Kidsgrove Algol Compiler - Brick 45

This assembler listing has hot links for all references to P-routines.

You can click on the routine number in code such as JS16P295; or V0P299; and jump to the routine. When you have seen enough of it, you can use the back button to carry on where you left off.
The original source was in the form of a single PDF file for each brick. Here is the PDF file for brick 45.
Hot links to images of individual pages are embedded in the text.

Loaded 10021 bytes for KAB45.txt
Relocated 14
Finished
Reached end of file


=============== Second pass
===========================


   3740  W0 = E2016
  10600  Y0 = E4480
   3740 YA0 = E2016
   4140 YB0 = E2144
   6540 YC0 = E3424
   6600 YY0 = E3456
   7600 YZ0 = E3968


    0/0: 200 266 111                                                   [ original source of the next page

                                                                       ST 11104; TL 1000;
                                                                       START 1600;
                                                                       V    8;
                                                                       YA  127; YB 1279; YC   31;
                                                                       YY  511; YZ  511;
    4/0: 200 267 305|200 267 305                                       RESTART; JP10; JP10;
                                                                       PROGRAM;
V-store at 03101 = 000 000 005 220 336 010                                   V1=Q0/B2620/B157010;
V-store at 03100 = 102 065 037 007 260 230                                   V0=B2043243701730230;
V-store at 03110 = 001 001 002 000 000 214                                   V8=Q257/512/B214;
 3111/0: 304 010 140|170 103                                                 SETAYB0; =RM4;
 3111/5: 304 007 340|170 043|146 040                                         SETAYA0; =RM2; I2=2;
 3113/0: 204 327 204|203 266 114                                             JS1P2; J2;
 3114/0: 200 327 201                                                   1;      JSP2;
 3114/3: 042|301 015 144                                               2;      DUP; =YC4;
 3115/1: 304 000 206|221 026 164                                             SETB206; J3=;
 3116/1: 304 000 120|015|164 375|164 125|225 146 134                         SETB120; NEV; SHL-2; SHL+42; J4=Z;
 3120/0: 300 015 144|304 000 374|015|164 121|225 146 325                     YC4; SETB374; NEV; SHL+40; J5=Z;
 3122/0: 300 015 144|304 040 216|015|164 121|224 146 362                     YC4; SET8334; NEV; SHL+40; J6=Z;
 3124/0: 300 015 144|304 001 234|015|164 117|167 007                         YC4; SETB634; NEV; SHL+39; SHC+3;
 3125/5: 164 003|224 146 362                                                 SHL+1; J6=Z;
 3126/4: 300 015 144|300 006 110|015|167 057|164 043|225 146 134             YC4; V8; NEV; SHC+23; SHL+17; J4=Z;
 3131/0: 300 015 144|304 000 377|054|304 000 354|015|221 147 012             YC4; SETB377; AND; SETB354; NEV; J32=Z;
 3133/2: 300 015 144|200 327 030|200 266 114                                 YC4; JSP300; J1;

 3134/5: 300 015 144|200 327 276|200 266 210|042                       4;      YC4; JSP3; J7; DUP;
 3136/3: 164 261|301 015 140                                                 SHL-40; =YC0;
 3137/2: 157 321|171 022|301 015 141                                         Q13TOQ1; M1; =YC1;
 3140/3: 320 033 054|164 061|164 271|033|027|042|301 015 157|301 015 143
                                                                             Z51M1; SHL+24; SHL-36; NOT; NEG; DUP; =YC15; =YC3;
 3143/1: 200 327 030|200 266 114                                             JSP300; J1;
 3144/1: 100 040|167 377|164 375|164 005|167 003                       11;      M0M2; SHC-1; SHL-2; SHL+2; SHC+1;
 3145/5: 042|101 040                                                         DUP; =M0M2;
 3146/2: 300 015 147|300 015 150|171 102|200 327 063                         YC7; YC8; M4; JSP834;
 3150/1: 065|200 327 133|203 266 157                                         REV; JS1P840; J15;
 3151/2: 304 000 326|015|205 146 162                                         SETB326; NEV; J18≠Z;
 3152/3: 200 327 074                                                         JSP837;
 3153/0: 304 000 210|200 327 030                                             SETB210; JSP300;
 3154/0: 300 015 153|200 327 050                                             YC11; JSP830;
 3155/0: 304 000 230|200 327 030                                             SETB230; JSP300;
 3156/0: 300 015 145|200 327 030                                             YC5;  JSP300;
 3157/0: 204 327 136                                                         JS3P840;
 3157/3: 300 015 147|170 102                                           15;      YC7; =M4;
 3160/2: 300 015 143|300 015 157|032|001|301 015 157                   17;      YC3; YC15; MAX; VR; =YC15;
 3162/1: 052|200 266 114                                                     ERASE; J1;
 3162/5: 300 015 150|170 102|204 266 177                               18;      YC8; =M4; J8;
 3164/1: 300 015 140|164 121|304 000 254|011|200 327 030               3;      YC0; SHL+40; SETB254; OR; JSP300;
 3166/1: 052|300 015 143                                                     ERASE; YC3;
 3166/5: 100 040|164 377|164 003|101 040                                     M0M2; SHL-1; SHL+1; =M0M2;
 3170/1: 164 101|301 015 142                                                 SHL+32; =YC2;
 3171/0: 171 102|042|301 015 147|042|164 101|111 040                   M4; DUP; =YC7; DUP; SHL+32; =M0M2N;
 3172/5: 304 000 265|200 327 067                                             SETB265; JSP836;
 3173/5: 170 162|100 160|042|301 015 146                                     =M7; M0M7; DUP; =YC6;
 3175/1: 164 135|100 040|167 373|164 375                                     SHL+46; M0M2; SHC-3; SHL-2;
 3176/3: 166 005|167 007|101 040|052                                         SHLD+2; SHC+3; =M0M2; ERASE;
 3177/4: 171 102|301 015 150                                           8;      M4; =YC8;
 3200/3: 200 327 201|042|301 015 144                                   9;      JSP2; DUP; =YC4;
 3201/4: 304 000 226|225 026 274                                             SETB226; J10=;
 3202/4: 304 000 246|221 026 144                                             SETB246; J11=;
 3203/4: 304 000 266|221 026 214                                             SETB266; J12=;
                                                                       [ original source of the next page
 3204/4: 304 000 326|221 026 144                                             SETB326; J11=;
 3205/4: 103 100|171 102|304 015 140                                         =M0M4Q; M4; SETAYC0;
 3206/5: 015|224 146 211|203 266 200                                         NEV; J13=Z; J9;

 3210/0: 052|304 000 221|200 327 272                                   7;      ERASE; SET145; JSP7;
 3211/1: 173 000|052                                                   14;      LINK; ERASE;
 3211/4: 304 000 365|200 327 272                                       13;      SET245; JSP7;
 3212/4: 173 000|052|304 001 131|200 327 272                           16;      LINK; ERASE; SET345; JSP7;
 3214/1: 052                                                           12;      ERASE;
 3214/2: 100 040|167 377|164 375|164 005                                     M0M2; SHC-1; SHL-2; SHL+2;
 3215/4: 304 000 001|011|167 003|101 040                                     SET1; OR; SHC+1; =M0M2;
 3217/0: 171 102|301 015 151                                                 M4; =YC9;
 3217/5: 304 000 306|200 327 067                                             SETB306; JSP836;
 3220/5: 171 102|301 015 152|200 327 157                                     M4; =YC10; JSP841;
 3222/1: 200 327 126                                                         JSP839;
 3222/4: 300 015 155|200 327 030                                             YC13; JSP300;
 3223/4: 304 002 265|200 327 030                                             SETB1265; JSP300;
 3224/4: 300 015 147|300 015 150|300 015 151|200 327 063                     YC7; YC8; YC9; JSP834;
 3226/4: 300 015 151|300 015 152|200 327 065                                 YC9; YC10; JSP835;
 3230/1: 200 327 074                                                         JSP837;
 3230/4: 300 015 154|200 327 030                                             YC12; JSP300;
 3231/4: 304 000 207|200 327 030                                             SETB207; JSP300;
 3232/4: 300 015 156|200 327 052                                             YC14; JSP831;
 3233/4: 304 000 261|200 327 030                                             SETB261; JSP300;
 3234/4: 304 000 204|200 327 030                                             SETB204; JSP300;
 3235/4: 300 015 155|200 327 052                                             YC13; JSP831;
 3236/4: 304 000 321|200 327 030                                             SETB321; JSP300;
 3237/4: 304 000 204|200 327 030                                             SETB204; JSP300;
 3240/4: 300 015 152|171 102|200 327 054                                     YC10; M4; JSP832;
 3242/0: 304 000 224|200 327 030                                             SETB224; JSP300;
 3243/0: 304 000 224|200 327 030                                             SETB224; JSP300;
 3244/0: 304 000 302|200 327 030                                             SETB302; JSP300;
 3245/0: 304 004 235|200 327 030                                             SETB2235; JSP300;
 3246/0: 304 000 227|200 327 030                                             SETB227; JSP300;
 3247/0: 304 000 210|200 327 030                                             SETB210; JSP300;
 3250/0: 300 015 153|200 327 050                                             YC11; JSP830;
 3251/0: 304 000 230|200 327 030                                             SETB230; JSP300;
 3252/0: 110 040|170 136                                                     M0M2N; =Q5;
 3252/4: 300 015 150|042|170 124|170 163                                     YC8; DUP; =I5; =RM7;
 3254/0: 300 015 151|170 203|300 015 152                                     YC9; =RM8; YC10;
 3255/2: 017|017|017|017|171 202|220 026 260|017|102 200|103 160       *21;      M8; J22=; *M0M8Q; =M0M7Q;
 3257/4: 177 160                                                             J21C7NZS;
 3260/0: 052|171 162|301 015 150|171 202|301 015 151                   22;      ERASE; M7; =YC8; M8; =YC9;
 3261/5: 151 164|151 165                                                     M7TOQ4; M7TOQ5;
 3262/3: 300 015 147|170 130                                                 YC7; =C5;
 3263/2: 171 136|111 040                                                     Q5; =M0M2N;
 3264/0: 100 040|065                                                         M0M2; REV;
 3264/3: 200 327 133|202 266 160                                             JS1P840; J17;
 3265/3: 200 327 107                                                         JSP838;
 3266/0: 304 000 326|015|200 146 272                                         SETB326; NEV; J23≠Z;
 3267/1: 300 015 145|200 327 030                                       24;      YC5; JSP300;
 3270/1: 300 015 147|170 102|204 327 136|202 266 160                         YC7; =M4; JS3P840; J17;
 3272/0: 300 015 153|200 327 030                                       23;      YC11; JSP300;
 3273/0: 110 040|170 136|171 124|170 102|204 266 177                         M0M2N; =Q5; I5; =M4; J8;
 3274/5: 052                                                           10;      ERASE;
 3275/0: 100 040|167 377|164 375|164 005                                     M0M2; SHC-1; SHL-2; SHL+2;
 3276/2: 304 000 002|011|167 003|101 040                                     SET2; OR; SHC+1; =M0M2;
 3277/4: 171 102|301 015 151                                                 M4; =YC9;
 3300/3: 200 327 157                                                         JSP841;
 3301/0: 200 327 074|100 040|065                                             JSP837; M0M2; REV;
                                                                       [ original source of the next page
 3302/0: 300 015 154|200 327 030                                             YC12; JSP300;
 3303/0: 300 015 147|300 015 150|300 015 151|200 327 063                     YC7; YC8; YC9; JSP834;
 3305/0: 304 000 207|200 327 030                                             SETB207; JSP300;
 3306/0: 304 000 203|200 327 030                                             SETB203; JSP300;
 3307/0: 304 000 204|200 327 030                                             SETB204; JSP300;
 3310/0: 300 015 151|171 102|200 327 054                                     YC9; M4; JSP832;
 3311/2: 304 000 224|200 327 030                                             SETB224; JSP300;
 3312/2: 304 000 227|200 327 030                                             SETB227; JSP300;
 3313/2: 304 000 210|200 327 030                                             SETB210; JSP300;
 3314/2: 300 015 153|200 327 050                                             YC11; JSP830;
 3315/2: 304 000 230|200 327 030                                             SETB230; JSP300;
 3316/2: 200 327 133|202 266 160                                             JS1P840; J17;
 3317/2: 304 000 210|200 327 030                                             SETB210; JSP300;
 3320/2: 300 015 154|200 327 050                                             YC12; JSP830;
 3321/2: 304 000 230|200 327 030                                             SETB230; JSP300;
 3322/2: 304 000 326|015|221 146 267                                         SETB326; NEV; J24=Z;
 3323/3: 300 015 153|200 327 030                                             YC11; JSP300;
 3324/3: 300 015 150|170 102|204 266 177                                     YC8; =M4; J8;
 3325/5: 300 015 143|171 044|036|301 015 143                           5;      YC3; I2; -; =YC3;
 3327/2: 141 040                                                             M-I2;
 3327/4: 203 327 101                                                         JS1P837;
 3330/1: 100 040|164 137|205 146 342                                         M0M2; SHL+47; J25≠Z;
 3331/2: 300 015 144|200 327 030                                             YC4; JSP300;
 3332/2: 304 000 230|200 327 030                                             SETB230; JSP300;
 3333/2: 110 040|164 301|170 102                                             M0M2N; SHL-32; =M4;
 3334/2: 100 040|164 133|164 245|042                                         M0M2; SHL+45; SHL-46; DUP;
 3335/3: 224 146 361|027|033|220 146 355                                     J19=Z; NEG; NOT; J26=Z;
 3336/5: 304 000 210|200 327 030                                             SETB210; JSP300;
 3337/5: 300 015 154|200 327 050                                             YC12; JSP830;
 3340/5: 200 327 165                                                         JSP842;
 3341/2: 300 015 153|200 327 030|200 266 114                                 YC11; JSP300; J1;

 3342/5: 300 015 144|200 327 030                                       25;      YC4; JSP300;
 3343/5: 300 015 143|164 101|301 015 142|200 327 126                         YC3; SHL+32; =YC2; JSP839;
 3345/4: 304 176 002|200 327 030                                             SETB77002; JSP300;
 3346/4: 304 002 265|200 327 030                                             SETB1265; JSP300;
 3347/4: 300 015 156|200 327 052|300 006 100|200 327 030                     YC14; JSP831; V0; JSP300;
 3351/4: 300 015 143|027|033|301 015 143                                     YC3; NEG; NOT; =YC3;
 3353/0: 200 327 165|300 015 153|200 327 030|200 266 114                     JSP842; YC11; JSP300; J1;
 3355/0: 041                                                           26;      ZERO;
 3355/1: 300 015 143|164 101|011|301 015 142                                 YC3; SHL+32; OR; =YC2;
 3356/4: 200 327 126                                                         JSP839;
 3357/1: 200 327 107|200 327 165                                             JSP838; JSP842;
 3360/1: 300 015 153|200 327 030|200 266 114                                 YC11; JSP300; J1;
 3361/4: 200 327 165|200 266 114                                       19;      JSP842; J1;
 3362/4: 300 015 141|170 022                                           6;      YC1; =M1;
 3363/3: 320 033 054|042|164 061|164 271                                     Z51M1; DUP; SHL+24; SHL-36;
 3364/5: 300 015 157|036|027|164 125|164 255                                 YC15; -; NEG; SHL+42; SHL-42;
 3366/2: 065|164 365|164 015|011|321 033 054                                 REV; SHL-6; SHL+6; OR; =Z51M1;
 3367/5: 300 015 144|200 327 030                                             YC4; JSP300;
 3370/5: 300 015 144|304 001 234|015|164 117|167 007                         YC4; SETB634; NEV; SHL+39; SHC+3;
 3372/4: 164 003|200 146 114                                                 SHL+1; J1≠Z;
 3373/3: 320 013 126|170 176|171 170                                         Z9; =Q7; C7;
 3374/4: 033|027|170 170                                                     NOT; NEG; =C7;
 3375/2: 171 176|321 013 126                                                 Q7; =Z9;
 3376/1: 204 327 220                                                         JS3P2;
 3376/4: 200 327 266                                                         JS3P6;
 3377/1: 304 010 004|200 320 106|201 267 011                                 SETB4004; JSE70; J30;
 3400/4: 320 013 071|164 011|201 047 010|300 006 101|170 036|304 004 224|170 024
                                                                             Z38; SHL4; J27≥Z; V1; =Q1; SETB2224; =I1; [original HUX  test TRACE 1 bit rather than TEXT DHo
                                                                       	(Call matrix if with TABLES)

 3403/4: 304 000 131|164 011|320 013 125|164 341|164 041|011                SETB131; SHL+4; Z10; SHL-16; SHL+16; OR;
 3405/5: 304 000 001|164 035|011|321 013 125                           	SET1; SHL+14; OR; =Z10;	[ask for call matrix - hux
                                                                            (SETB4131; SHL+4; Z10; SHL-16; SHL+16; OR;
                                                                       	(SET1; SHL+14; OR;) =Z10; );  [original - hux

                                                                       [ original source of the next page
 3407/2: 171 036|200 260 106                                                 Q1; JE70;
 3410/1: 300 006 101|200 260 106                                       27;      V1; JE70;
 3411/1: 304 001 275|200 267 272                                       30;      SET0445; JP7;
 3412/1: 300 015 144|200 327 030                                       32;      YC4; JSP300;
 3413/1: 141 040|100 040|164 137|203 147 015                                 M-I2; M0M2; SHL+47; J31≠Z;
 3414/4: 140 040|200 266 114                                                 M+I2; J1;
 3415/3: 300 015 143|164 101|301 015 142|200 327 126                   31;      YC3; SHL+32; =YC2; JSP839;
 3417/2: 300 015 155|200 327 030                                             YC13; JSP300;
 3420/2: 304 002 265|200 327 030                                             SETB1265; JSP300;
 3421/2: 304 174 002|200 327 030                                             SETB76002; JSP300;
 3422/2: 304 000 230|200 327 030                                             SETB230; JSP300;
 3423/2: 300 015 143|033|027|301 015 143                                     YC3; NOT; NEG; =YC3;
 3424/4: 140 040|202 266 160                                                 M+I2; J17;

=== Start P300V1; at address 1816/3430
V-store at 03426 = 000 000 000 000 000 000                             P300V1;      V0=0;
V-store at 03427 = 000 000 000 000 000 000                                   V1=0;
 3430/0: 300 007 026|202 147 032                                             V0; J1≠Z;
 3431/0: 041|033|301 007 026|200 267 260                                     ZERO; NOT; =V0; J1P6;
 3432/2: 300 007 027|205 147 036                                       1;      V1; J3≠Z;
 3433/2: 042|304 000 330|054|304 000 010|015                                 DUP; SETB330; AND; SETB10; NEV;
 3434/5: 225 147 035                                                         J2=Z;
 3435/2: 200 267 255                                                   JP6;
 3435/5: 301 007 027|200 360 000                                       2;      =V1; EXIT1;

 3436/5: 042|164 121|164 261|304 000 212|036|204 147 045               3;      DUP; SHL+40; SHL-40; SETB212; -; J4≠Z;
 3440/5: 164 041|300 007 027|042|164 041|012                                 SHL+16; V1; DUP; SHL+16; PERM;
 3442/2: 164 301|166 341|301 007 027|042|012                                 SHL-32; SHLD-16; =V1; DUP; PERM;
 3443/5: 164 341|166 341|052|200 327 255|200 267 255                         SHL-16; SHLD-16; ERASE; JSP6; JP6;
 3445/4: 300 007 027|200 327 255|041|301 007 027|200 267 255           4;      V1; JSP6; ZERO; =V1; JP6;

=== Start P830V-1; at address 1832/3450
                                                                       P830;
 3450/0: 041|033|164 003|167 015|054                                         ZERO; NOT; SHL+1; SHC+6; AND;
 3451/1: 200 267 030                                                         JP300;
=== Start P831V-1; at address 1834/3452
                                                                       P831;
 3452/0: 041|033|164 003|167 023|054                                         ZERO; NOT; SHL+1; SHC+9; AND;
 3453/1: 200 267 030                                                         JP300;
=== Start P832V-1; at address 1836/3454
                                                                       P832;
 3454/0: 065|170 343                                                         REV; =RM14;
 3454/3: 171 342|224 027 056|102 340                                   1;      M14; J2=; M0M14Q;
 3455/4: 200 327 030|203 267 054                                             JSP300; J1;
 3456/4: 052|200 360 000                                               2;      ERASE; EXIT1;
=== Start P833V-1; at address 1840/3460
                                                                       P833;
 3460/0: 304 002 265|200 327 030                                             SETB1265; JSP300;
 3461/0: 200 327 054                                                         JSP832;
 3461/3: 304 000 230|200 267 030                                             SETB230; JP300;
=== Start P834V-1; at address 1843/3463
                                                                       P834;
 3463/0: 065|042|066|051                                                     REV; DUP; CAB; REVD;
 3463/4: 200 327 054|200 267 060                                             JSP832; JP833;
=== Start P835V-1; at address 1845/3465
                                                                       P835;
 3465/0: 300 015 156|200 327 030                                             YC14; JSP300;
 3466/0: 200 267 060                                                         JP833;
=== Start P836V-1; at address 1847/3467
                                                                       P836;
 3467/0: 200 327 201|042|012|225 027 072                               1;      JSP2; DUP; PERM; J2=;
 3470/2: 065|103 100                                                         REV; =M0M4Q;
 3470/5: 171 102|304 015 140|015                                             M4; SETAYC0; NEV;
 3471/5: 221 146 211|200 267 067                                             J14P0=Z; J1;
 3472/5: 052|052|200 360 000                                           2;      ERASE; ERASE; EXIT1;
=== Start P837V-1; at address 1852/3474
                                                                       P837;
 3474/0: 320 013 126|170 156|142 140|143 140                                 Z9; =Q6; NC6; DC6;
 3475/3: 100 040|170 136|154 145|142 120                                     M0M2; =Q5; C6TOQ5; NC5;
 3476/5: 143 140|142 140|171 156|321 013 126|171 136                         DC6; NC6; Q6; =Z9; Q5;
                                                                       [ original source of the next page
 3500/4: 101 040|201 267 103                                                 =M0M2; J2;
 3501/3: 100 040|170 136|171 130|033|027                               1;      M0M2; =Q5; C5; NOT; NEG;
 3502/5: 170 150                                                             =C6;
 3503/1: 304 000 131|170 122|041|170 124                               2;      SETB131; =M5; ZERO; =I5;
 3504/3: 153 126                                                             IM5TOQ6;
 3504/5: 171 136|301 015 153|171 156|301 015 154                             Q5; =YC11; Q6; =YC12;
 3506/3: 200 360 000                                                         EXIT1;
=== Start P838V-1; at address 1863/3507
                                                                       P838;
 3507/0: 110 040|170 136                                                     M0M2N; =Q5;
 3507/4: 171 124|171 122|200 327 065                                         I5; M5; JSP835;
 3510/5: 300 015 155|200 327 030                                             YC13; JSP300;
 3511/5: 304 002 265|200 327 030                                             SETB1265; JSP300;
 3512/5: 171 130|171 124|200 327 054                                         C5; I5; JSP832;
 3514/0: 304 002 265|200 327 030                                             SETB1265; JSP300;
 3515/0: 171 130|170 343|102 340                                             C5; =RM14; M0M14Q;
 3516/0: 200 327 052                                                         JSP831;
 3516/3: 171 342|171 124|200 327 054                                         M14; I5; JSP832;
 3517/4: 304 000 301|200 327 030                                             SETB301; JSP300;
 3520/4: 300 015 156|200 327 052                                             YC14; JSP831;
 3521/4: 304 000 230|200 327 030                                             SETB230; JSP300;
 3522/4: 304 000 210|200 327 030                                             SETB210; JSP300;
 3523/4: 300 015 154|200 327 050                                             YC12; JSP830;
 3524/4: 304 000 230|200 267 030                                             SETB230; JP300;
=== Start P839V-1; at address 1878/3526
                                                                       P839;
 3526/0: 300 015 142|304 002 000|011                                         YC2; SETB1000; OR;
 3527/1: 100 040|164 127|164 245|011                                         M0M2; SHL+43; SHL-46; OR;
 3530/2: 042|301 015 155                                                     DUP; =YC13;
 3531/0: 304 000 001|164 101|056|301 015 156                                 SET1; SHL+32; +; =YC14;
 3532/3: 200 360 000                                                         EXIT1;
=== Start P840V-1; at address 1883/3533
                                                                       P840;
 3533/0: 304 000 326|203 027 142|203 267 135                           1;      SETB326; J4≠; J6;
 3534/3: 304 000 326|223 027 142                                       2;      SETB326; J4=;
 3535/3: 065|164 137|203 147 153|052                                   6;      REV; SHL+47; J5≠Z; ERASE;
 3536/4: 300 015 143|171 044|056|301 015 143                           3;      YC3; I2; +; =YC3;
 3540/1: 140 040|171 042|304 010 140|015                                     M+I2; M2; SETAYB0; NEV;
 3541/3: 224 146 212|200 360 000                                             J16P0=Z; EXIT1;
 3542/3: 065|042|167 377|222 047 153                                   4;      REV; DUP; SHC-1; J7<Z;
 3543/4: 304 000 001|011|101 040                                             SET1; OR; =M0M2;
 3544/4: 171 176|171 216|320 013 126|170 176|171 170|033|027                 Q7; Q8; Z9; =Q7; C7; NOT; NEG;
 3546/5: 042|170 170|170 210|171 176|321 013 126                             DUP; =C7; =C8; Q7; =Z9;
 3550/3: 152 010|304 000 131|170 202                                         I0TOQ8; SETB131; =M8;
 3551/4: 171 216|301 015 145|170 216|170 176|041                             Q8; =YC5; =Q8; =Q7; ZERO;
 3553/2: 052                                                           7;      ERASE;
 3553/3: 304 001 210|200 327 030                                       5;      SETB610; JSP300;
 3554/3: 300 015 145|200 327 050                                             YC5; JSP830;
 3555/3: 304 000 230|200 327 030|202 360 001                                 SETB230; JSP300; EXIT2;
=== Start P841V-1; at address 1903/3557
                                                                       P841;
 3557/0: 200 327 201|042|301 015 144                                   2;      JSP2; DUP; =YC4;
 3560/1: 304 000 246|223 027 164                                             SETB246; J1=;
 3561/1: 304 000 326|223 027 164                                             SETB326; J1=;
 3562/1: 103 100|171 102|304 015 140                                         =M0M4Q; M4; SETAYC0;
 3563/2: 015|221 146 211|200 267 157                                         NEV; J14P0=Z; J2;
 3564/3: 200 360 000                                                   1;      EXIT1;

=== Start P842V-1; at address 1909/3565
 3565/0: 300 015 140|164 121|304 000 274|011                           P842;      YC0; SHL+40; SETB274; OR;
 3566/3: 200 327 030|304 000 230|200 267 030                                 JSP300; SETB230; JP300;

=== Start P2V8; at address 1921/3601
V-store at 03570 = 017 200 020 177 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03571 = 020 200 021 177 000 000                                   V1=QAYZ256/AYZ511/0; (BUPFER 2);
V-store at 03574 = 242 104 242 304 140 004                                   V4=B5044224261060004; (F/B/C);
V-store at 03575 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
                                                                       [ original source of the next page
V-store at 03576 = 000 000 000 000 110 004                                   V6=B44004; (CBN);
V-store at 03600 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 3601/0: 300 007 172                                                         V2; (FETCH NEXT WORD NORMAL ENTRY);
 3601/3: 170 376|242 367 213                                           10;      =Q15; J7C15Z;
 3602/2: 102 360|171 376|301 007 172|041|301 007 173                         M0M15Q; Q15; =V2; ZERO; =V3;
 3604/1: 200 360 000                                                         EXIT1; (NORMAL EXIT);
                                                                             (INITIAL ENTRY FORWARDS READ);
 3604/4: 300 007 171|300 007 174|170 376|171 370                       1;      V1; V4; =Q15; C15;
 3606/2: 300 007 170|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 3610/2: 203 267 215                                                         J13;
 3610/5: 300 007 176|200 320 106                                             V6; JSE70;
 3611/5: 203 267 215                                                         J13;
 3612/2: 301 007 177|205 267 214                                             =V7; J8;
 3613/2: 300 007 175|200 320 106                                       7;      V5; JSE70;
 3614/2: 203 267 215                                                         J13;
 3614/5: 042|203 147 201                                               8;      (jsp400;) DUP; J10≠Z;		[print buffer
 3615/3: 304 037 321|200 327 272                                       13;      SET8145; JSP7; (FAILURE);
                                                                             (INITIAL ENTRY BACKWARDS READ);
 3616/3: 300 007 171|300 007 174|170 376|171 364|202 267 206           2;      V1; V4; =Q15; I15; J6;
                                                                             (CLOSE);
 3620/4: 300 007 174|200 320 106                                       3;      V4; JSE70;
 3621/4: 203 267 215                                                         J13;
 3622/1: 200 360 000                                                         EXIT1;
                                                                             (INITIAL ENTRY POR FETCH PREVIOUS WORD);
 3622/4: 300 007 172|170 376|145 360|140 360|140 360                   4;      V2; =Q15; I15=-1; M+I15; M+I15;
 3624/3: 205 267 225                                                         J9;
                                                                             (NORMAL ENTRY FOR FETCH PREVIOUS WORD);
 3625/0: 300 007 173|170 376                                           5;      V3; =Q15;
 3625/5: 102 360|171 376|301 007 173|200 360 000                       9;      M0M15Q; Q15; =V3; EXIT1;
                                                                             (WHAT IS CURRANT POSITION);
 3627/3: 300 007 176|200 320 106                                       11;      V6; JSE70;
 3630/3: 203 267 215                                                         J13;
 3631/0: 300 007 177|036|304 000 377|042|300 007 172                         V7; -; SETB377; DUP; V2;
 3632/5: 054|012|054|164 021|011                                             AND; PERM; AND; SHL+8; OR;
 3633/5: 200 360 000                                                         EXIT1;
                                                                             (SKIP TO GIVEN BLOCK);
 3634/2: 042|164 361|300 007 177|056|300 007 200                       12;      DUP; SHL-8; V7; +; V8;
 3636/0: 170 376|170 364|171 376|200 320 106                                 =Q15; =I15; Q15; JSE70;
 3637/3: 203 267 215                                                         J13;
 3640/0: 167 361|164 361|167 021|300 007 175|200 320 106                     SHC-8; SHL-8; SHC+8; V5; JSE70;
 3642/0: 203 267 215                                                         J13;
 3642/3: 170 376|042|171 362|036|027                                         =Q15; DUP; M15; -; NEG;
 3643/4: 172 370|170 362|171 376|301 007 172|200 360 000                     =+C15; =M15; Q15; =V2; EXIT1;

=== Start P6V6; at address 1965/3655
V-store at 03646 = 015 200 016 177 242 105                             P6V6;      V0=QAYY0/AYY255/-23995;
V-store at 03647 = 016 200 017 177 000 000                                   V1=QAYY256/AYY511/0;
V-store at 03650 = 000 000 000 000 000 000                                   V2=0;
V-store at 03651 = 000 000 000 000 340 005                                   V3=B160005;
V-store at 03652 = 000 000 000 000 140 105                                   V4=B60105;
V-store at 03653 = 000 000 175 004 072 321                                   V5=B17501035321;
 3655/0: 300 007 250                                                         V2;
 3655/3: 170 376|103 360|243 367 262                                   2;      =Q15;=M0M15Q; J4C15Z;
 3656/4: 171 376|301 007 250|200 360 000                                     Q15; =V2; EXIT1;
 3660/0: 300 007 247|300 007 246                                       1;      V1; V0;
 3661/0: 200 320 106|200 267 265|203 267 255                                 JSE70; J6; J2;
 3662/3: 300 007 251|200 320 106|200 267 265|301 007 250               4;      V3; JSE70; J6; =V2;
 3664/3: 200 360 000                                                         EXIT1;
 3665/0: 304 040 065|200 327 272|300 007 250|170 365|300 007 252|170 362|171 376
                                                                       6;       SET8245; JSP7;3;      V2; =RI15; V4; =M15; Q15;
 3670/0: 200 320 106|200 267 265|200 360 000                                 JSE70; J6; EXIT1;

                                                                       [ original source of the next page
=== Start P7V-1; at address 1978/3672
 3672/0: 170 365                                                       P7;      =RI15;
 3672/2: 304 000 200|170 362                                                 SETB200; =M15;
 3673/1: 320 013 070|041|033|047|015|011|321 013 070                         Z39; ZERO; NOT; STR; NEV; OR; =Z39;
 3675/0: 171 376|200 260 106                                                 Q15; JE70;
=== Start P3V-1; at address 1982/3676
                                                                       P3;      (SEARCH LEVEL PARAMETERS POR A LEVEL L );
 3676/0: 041|170 323|304 000 377|167 361|065                                 ZERO; =RM13; SETB377; SHC-8; REV;
 3677/3: 320 333 055|170 336|171 324|042|170 322                       1;      Z50M13; =Q13; I13; DUP; =M13;
 3701/1: 203 147 302                                                         J2≠Z;
 3701/4: 065|052|200 360 000                                                 REV; ERASE; (NONE EXIST N1=L); EXIT1;
 3702/3: 043|320 333 053|015|054|203 147 277                           2;      DUPD; Z52M13; NEV; AND; J1≠Z;
 3704/0: 065|052|202 360 001                                                 REV; ERASE; (N1=L; M13=ALP 0F L); EXIT2;

=== Start P10V-1; at address 1989/3705
                                                                       P10; [called only on RESTART - reason unclear - hux
 3705/0: 320 013 070|220 047 307|304 040 231|200 327 272               	Z39; J1<Z; SET8345; JSP7;
 3707/0: 304 206 125|164 101|164 301                                   1; 	SETB103125; SHL+32; SHL-32;
 3710/1: 320 013 125|164 341|164 041|011|321 013 125                         Z10; SHL-16; SHL+16; OR; =Z10;
 3712/0: 304 336 010|170 362|304 004 224|170 364                             SETB157010; =M15; SETB2224; =I15;
 3713/4: 171 376|200 260 106                                                 Q15; JE70;

                                                                       [ diagnostic routine
=== Start P400V-1; at address 1997/3715
                                                                       P400; (print YZ stores);
 3715/0: 171 376                                                       	Q15;
 3715/2: 304 016 172|164 041                                                 SETB7172; (YZ); SHL+16; (start of print at YZ0);
 3716/1: 304 020 177|170 365|304 017 200|170 370|171 376|304 000 106|200 220 000|170 376
                                                                             SETAYZ255; =RI15; SETAYZ0; =C15;Q15; SET70; OUT; =Q15;
 3721/3: 200 360 000                                                   	EXIT1;

=== Start P-1V-1; at address 2002/3722
Finished
                                                                             FINISH;








































Reached end of file