Kidsgrove Algol Compiler - Brick 02

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 02.
Hot links to images of individual pages are embedded in the text.

Loaded 12611 bytes for KAB02.txt
Warning: YG0 is out of range, only 0 YG-stores specified
Warning: YG0 is out of range, only 0 YG-stores specified
Relocated 31
Finished
Reached end of file


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


   4034  W0 = E2076
   6240  Y0 = E3232
   4034 YB0 = E2076
   4074 YF0 = E2108
   4140 YX0 = E2144
   4240 YY0 = E2208
   5240 YZ0 = E2720


    0/0: 200 266 163                                                   [ original source of the next page
                                                                       [ There have been [ comments inserted
                                                                       [ Also some code -- to remove this, remove all lines including    ≠addition
                                                                       [ Also there are diagnostic calls JSP30×;, which should be removed to get the original
                                                                       ST 11104; TL 1000; START1600;
                                                                       V   50;
                                                                             YB   31; YF   35; YX   63; YY  511; YZ  511;
    4/0: 205 266 225|205 266 225                                       RESTART; J6; J6;
                                                                       PROGRAM;
V-store at 03100 = 010 140 010 177 242 003                                   V0=QAYX0/AYX31/B121003;
V-store at 03101 = 010 200 010 237 242 021                                   V1=QAYX32/AYX63/B121021;
V-store at 03102 = 010 240 011 237 000 000                                   V2=QAYY0/AYY255/0;
V-store at 03103 = 011 240 012 237 000 000                                   V3=QAYY256/AYY511/0;
V-store at 03104 = 000 010 000 004 000 022                                   V4=Q8/4/18;
V-store at 03105 = 377 024 051 052 063 236                                   V5=B7761 2051 1243 1636;
V-store at 03106 = 010 101 000 001 010 034                                   V6=QAYF5/1/AYB0;
 3163/0: 300 000 001|164 061|164 321|304 000 063|036                         E1; SHL+24; SHL-24; SET51; -;
 3164/5: 042|170 136|170 323|041|301 120 053                                 DUP; =Q5; =RM13; ZERO; =E43M5;       [ Looks like M5 is used for accessing Z-stores
 3166/2: 300 006 101|300 006 100|200 320 106                                 V1; V0; JSE70; (OPEN CH,3);
 3167/5: 205 266 225                                                         J6;
 3170/2: 052|300 006 100|300 006 101|200 320 106                             ERASE; V0; V1; JSE70; (MONITOR);
 3172/0: 205 266 225                                                         J6;
 3172/3: 304 010 004|200 320 106                                             SETB4004; JSE70; (INTERCHANGE);
 3173/3: 201 266 221                                                         J3;
 3174/0: 300 006 103|300 006 102|204 327 223                                 V3; V2; JS1P7; (STORE WITH LAG);	[ opens channel 5 with YY0 buffer V1 contains the open return
 3175/3: 300 007 143|170 316|202 327 326|100 320                             V1P7; =Q12; JS7P9; M0M13;
 3177/1: 164 301|042|172 322|170 330|143 320                                 SHL-32; DUP; =+M13; =C13; DC13;		[computes the D-List size from the offset in the last entry
 3200/4: 142 320                                                             NC13; (Q13 = D LIST SIZE/1/AENDPROG);
 3201/0: 171 322|042|027|033|161 003                                         M13; DUP; NEG; NOT; SHA+1;
 3202/1: 170 043|304 014 240|042|161 003|170 036                             =RM2; SETAY0; DUP; SHA+1; =Q1;
 3203/5: 036|170 050|145 040                                                 -; =C2; I2=-1; (OPERATOR STACK);
 3204/4: 102 320|103 300|264 306 207                                   1;      M0M13Q; =M0M12Q; J2C12NZ;		[here we copy the d-list 634 first to YY space
                                                                       						[this results in a backward write of the D-list to YY1 up hux
 3205/5: 304 340 005|200 320 106                                             SETB160005; JSE70;			[write D-List when buffer is full
 3206/5: 201 266 221                                                         J3;
 3207/2: 170 316                                                             =Q12;
 3207/4: 264 326 204                                                   2;      J1C13NZ; (OUTPUT D LIST);
 3210/1: 304 340 105|170 310|171 316|167 041|200 320 106                     SETB160105; =C12; Q12; SHC+16; JSE70;
 3212/1: 201 266 221                                                         J3;
 3212/4: 301 007 143|304 110 005|200 320 106                                 =V1P7; SETB44005; JSE70; (CBN);
 3214/1: 201 266 221                                                         J3;
 3214/4: 033|027|164 101|321 013 125                                         NOT; NEG; SHL+32; =Z10;
 3215/5: 202 327 035                                                         JS1P2; (INITIATE FETCH NEXT WORD);
 3216/2: 154 006                                                             C0TOQ6;
 3216/4: 200 327 030                                                   10;      JSP2; (NEXT CODEWORD);		[ this will read from Channel 4 Hux
                                                                       						[at this point the D-List is in Z-stores and in reverse on Ch5
 3217/1: 304 000 240|201 026 232                                             SETB240; J11≠;
 3220/1: 052|143 140|204 266 216                                             ERASE; DC6; J10;
 3221/1: 304 002 133                                                   3;      SET603;
 3221/4: 304 001 054|036|200 327 305                                   4;      SET300; -; JSP9;
 3222/5: 304 004 220|300 120 013|201 046 230                           8;      SETB2220; E11M5; J7≥Z;
 3224/2: 052|304 004 001|164 017|200 260 106                                 ERASE; SETB2001; SHL+7; JE70;   [ this is a sneaky way of setting N1 = Q0/2/B200 i.e. FAIL 00/02
 3225/5: 304 006 125|300 120 013|047|052|041|033|050|301 120 013       6;      SETB3125; E11M5; STR; ERASE; ZERO; NOT; CONT; =E11M5;    [ DHu thinks this go to B95 having changed E11M5
 3230/1: 170 364|304 336 010|170 362|171 376|200 260 106               7;      =I15; SETB157010; =M15; Q15; JE70;
 3232/1: 171 024|202 146 235                                           11;      I1; J12≠Z;
 3233/0: 042|304 001 214|015|164 117                                         DUP; SETB614; NEV; SHL+39;
 3234/1: 203 146 276                                                         J13≠Z; (FIRST BS NOT BEGINPROG);
 3234/4: 144 020                                                             I1=+1;
 3235/0: 154 006                                                             C0TOQ6;
 3235/2: 042|304 000 100|015|164 117|223 146 300                       12;      DUP; SETB100; NEV; SHL+39; J14=Z;
 3237/0: 042|164 121|205 046 316                                             DUP; SHL+40; J15≥Z; (DEC/SPEC);
 3240/0: 042|304 000 017|054|304 000 014|036                                 DUP; SETB17; AND; SET12; -;
 3241/3: 170 370|263 366 354                                                 =C15; J16C15NZ; (NOT BEGIN OR END);
 3242/2: 042|167 367|047|002                                                 DUP; SHC-5; STR; =TR;
 3243/1: 167 377|202 046 245                                                 SHC-1; J27≥Z;
                                                                       [ original source of the next page
 3244/0: 042|164 021|164 277|223 146 257                                     DUP; SHL+8; SHL-33; J17=Z; (BN/BNN ZERO);
 3245/2: 225 346 267                                                   27;      J18TR; (ENDS);
 3245/5: 243 046 277                                                         J19C2Z; (OPERATOR STACK MEETS BRACKET STACK);
 3246/2: 171 124|042|170 130|170 362|100 365|164 341                         I5; DUP; =C5; =M15; M5M15; SHL-16;
 3250/1: 170 124|041|171 142|166 363|052|171 062                             =I5;  ZERO; M6; SHLD-7; ERASE; M3;
 3251/5: 166 361|052|171 102|166 361|052                                     SHLD-8; ERASE; M4; SHLD-8; ERASE;
 3253/1: 107 040|042|171 042|167 377|164 243|027                             =M0M2QH; DUP; M2; SHC-1; SHL-47; NEG;
 3254/5: 172 050|041|166 021|170 102|041                               20;      =+C2; ZERO; SHLD+8; =M4; ZERO;
 3256/1: 166 021|170 062|164 257|170 142                                     SHLD+8; =M3; SHL-41; =M6;
 3257/3: 041|002                                                       17;      ZERO; =TR;
 3257/5: 042|200 327 147                                               21;      DUP; JSP7; (OUTPUT CODEWORD);
 3260/3: 304 001 234|015|164 117|204 146 216                                 SETB634; NEV; SHL+39; J10≠Z;
 3262/0: 204 327 172                                                         JS4P7;
 3262/3: 304 140 004|200 320 106                                             SETB60004; JSE70; (CLOSE INPUT TAPE);
 3263/3: 201 266 221                                                         J3;
 3264/0: 304 010 004|200 320 106                                             SETB4004; JSE70;
 3265/0: 201 266 221                                                         J3;
 3265/3: 304 260 141|167 003|200 320 106                                     SETB130141; SHC+1; JSE70; (CLOSE CH,3);
 3266/5: 017|017|017                                                         DUMMY; DUMMY; DUMMY;
 3267/2: 205 266 222                                                         J8;
 3267/5: 171 130|170 362|100 365|042|304 000 314|015|164 121|223 146 273
                                                                       18;      C5; =M15; M5M15; DUP; SETB314; NEV; SHL+40; J43=Z;
 3272/3: 164 301|170 362|100 365                                             SHL-32; =M15; M5M15;
 3273/3: 164 301|170 130|171 042|304 000 001|054|141 040|104 040|065|205 266 254
                                                                       43;      SHL-32; =C5; M2; SET1; AND; M-I2; M0M2H; REV; J20;
 3276/3: 304 002 142|204 266 221                                       13;      SET610; J4;
 3277/3: 304 377 367|204 266 221                                       19;      SET-9; J4;
 3300/3: 001|200 327 333                                               14;      VR; JSP13; (LOAD IDENTIFIER);
 3301/1: 304 010 034|170 363|154 137|171 376|200 327 106                     SETAYB0; =RM15; C5TOQ15; Q15; JSP5;
 3303/1: 205 266 312                                                         J23; (NOT DECLARED/OUTSIDE SCOPE);
 3303/4: 224 206 305                                                         J5V;
 3304/1: 304 377 351|171 036|224 046 221                                     SET-23; Q1; J4<Z;
 3305/3: 052                                                                 ERASE;
 3305/4: 015|042|164 127|164 245|170 370                               5;       NEV; DUP; SHL+43; SHL-46; =C15;
 3307/0: 265 366 360                                                         J24C15NZ;
 3307/3: 167 041|041|166 021|171 102|203 026 311                       26;      SHC+16; ZERO; SHLD+8; M4; J25≠;
 3311/1: 052|041                                                             ERASE; ZERO;
 3311/3: 166 361|052|167 341|205 266 257                               25;      SHLD-8; ERASE; SHC-16; J21;
 3312/5: 052|300 006 105|301 010 100|300 006 106|200 327 340           23;      ERASE; V5; =YF4; V6; JSP17;
 3315/0: 052|304 376 300|200 327 305                                         ERASE; SET-320; JSP9;
 3316/1: 041|204 266 305                                                     ZERO; J5;
                                                                             (DECLERATIONS AND FORMALS);
 3316/5: 042|164 125|164 247|170 210|241 206 332                       15;      DUP; SHL+42; SHL-45; =C8; J22C8Z;
 3320/3: 143 200|242 206 346                                                 DC8; J28C8Z; (ARRAY);
 3321/2: 143 200|244 206 337                                                 DC8; J29C8Z; (PROCEDURE);
 3322/1: 143 200|243 206 350                                                 DC8; J30C8Z; (SWITCH,LABEL);
 3323/0: 143 200|261 207 015                                                 DC8; J9C8NZ; (INVALID);
 3323/5: 042                                                                 DUP; (FORMAL);
 3324/0: 140 200|100 205|140 200|042|167 377|201 046 345               31;      M+I8; M5M8; M+I8; DUP; SHC-1; J34≥Z;
 3326/0: 167 375|047|164 253|065|164 377                                     SHC-2; STR; SHL-43; REV; SHL-1;
 3327/2: 054|027|172 202|043|100 205                                         AND; NEG; =+M8; DUPD; M5M8;
 3330/3: 015|054|200 146 324                                                 NEV; AND; J31≠Z; (SERCH D÷F IN DLIST);
 3331/2: 065|052|100 205|011                                                 REV; ERASE; M5M8; OR;
 3332/1: 200 327 147                                                   22;      JSP7; (OUTPUT UPDATED CODEWORD);
 3332/4: 200 327 030|244 206 336                                             JSP2; J33C8Z; (<TYPE>, FORMAL);
 3333/4: 140 200|143 200|244 206 336                                         M+I8; DC8; J33C8Z; (PROCEDURE);
 3334/5: 143 200|265 206 257                                                 DC8; J21C8NZ; (SWITCH);
 3335/4: 304 000 253|204 026 353                                             SETB253; J42≠; (BOUND PAIR BRACKET);
 3336/4: 200 327 147|204 266 216                                       33;      JSP7; J10;
 3337/4: 204 327 172                                                   29;      JS4P7;
 3340/1: 300 006 103|300 006 102|204 327 222                                 V3; V2; JS8P7; (START NEW BLOCK FOR PROCEDURE);
 3341/4: 304 000 001|170 210|041|033|164 321|167 341                         SET1; =C8; ZERO; NOT; SHL-24; SHC-16;
                                                                       [ original source of the next page
 3343/3: 065|171 130|170 202|145 200|200 266 324                       32;      REV; C5; =M8; I8=-1; J31;
 3345/1: 164 301|170 202|200 266 324                                   34;       SHL-32; =M8; J31;
 3346/2: 304 203 340|167 023|304 000 002|170 210|203 266 343           28;       SETB101740; SHC+9; SET2; =C8; J32;
 3350/3: 042|167 377|224 046 336                                       30;      DUP; SHC-1; J33<Z; (LABEL);
 3351/3: 304 201 377|167 023|304 000 003|170 210|203 266 343                 SETB100777; SHC+9; SET3; =C8; J32; (SWITCH);
 3353/4: 304 377 375|170 370                                           42;      SET-3; =C15;
 3354/3: 304 000 003|172 370|265 366 257                               16;      SET3; =+C15; J21C15NZ; (OPERATOR, NOT BPL);
 3355/5: 042|164 123|164 245|205 146 257                                     DUP; SHL+41; SHL-46; J21≠Z; (NOT *( OR *) );
 3357/1: 171 036|047|033|050|170 036                                         Q1; STR; NOT; CONT; =Q1;
 3360/2: 205 266 257                                                         J21;
                                                                             (NON-TYPE IDENTIFIERS)
 3360/5: 143 360|240 367 013                                           24;      DC15; J35C15Z; (ARRAY);
 3361/4: 143 360|245 366 373                                                 DC15; J36C15Z; (PROCEDURE);
 3362/3: 143 360|261 367 015                                                 DC15; J9C15NZ; (NOT SWITCH LABEL OR STRING);
 3363/2: 042|100 345|015|164 115|224 047 004                                 DUP; M5M14; NEV; SHL+38; J40<Z;
 3364/5: 042|304 000 007|054|027|033                                         DUP; SET7; AND; NEG; NOT;
 3366/0: 203 146 307                                                         J26≠Z; (SWITCH OR STRING);
 3366/3: 167 041|041|166 057|171 102|164 021                                 SHC+16; ZERO; SHLD+23; M4; SHL+8;
 3370/0: 171 062|011|164 017|171 142|011                                     M3; OR; SHL+7; M6; OR;
 3371/2: 203 026 372                                                         J37≠; (NOT LOCAL TO BLOCK);
 3371/5: 164 363|164 017                                                     SHL-7; SHL+7;
 3372/3: 166 323|052|167 341|203 266 307                               37;      SHLD-23; ERASE; SHC-16; J26;
 3373/5: 304 376 377|042|100 345|054|101 345                           36;      SETB177377; DUP; M5M14; AND; =M5M14;
 3375/2: 054|167 355|047|225 047 000                                         AND; SHC-10; STR; J38<Z; (LH MARKER);
 3376/3: 164 341|167 365|171 102|166 361|052                                 SHL-16; SHC-6; M4; SHLD-8; ERASE;
 3400/0: 167 361|205 266 257                                                 SHC-8; J21;
 3400/5: 042|170 204|164 017|041|166 007                               38;      DUP; =I8; SHL+7; ZERO; SHLD+3;
 3402/1: 170 210|164 261|171 042|170 223|140 220                             =C8; SHL-40; M2; =RM9; M+I9;
 3403/5: 171 102|262 207 007                                                 M4; J39C8NZ; (FUNCTION LOCATION);
 3404/4: 304 377 352|204 266 221                                       40;      SET-22; J4;
 3405/4: 065|027|033|224 147 004                                       41;      REV; NEG; NOT; J40=Z;
 3406/4: 106 220|164 261                                                     M0M9QH; SHL-40;
 3407/2: 042|012|204 027 005                                           39;      DUP; PERM; J41≠; (CHECK USE WITHIN SCOPE);
 3410/1: 065|052|164 021|170 202|171 216                                     REV; ERASE; SHL+8; =M8; Q8;
 3411/3: 167 041|304 002 000|011|203 266 307                                 SHC+16; SETB1000; OR; J26;
 3413/0: 100 345|042|304 301 377|054|012                               35;      M5M14; DUP; SETB140777; AND; PERM;
 3414/2: 015|015|203 266 307                                                 NEV; NEV; J26;
 3415/1: 304 377 361|204 266 221                                       9;      SET-15; J4;

=== Start P2V8; at address 1816/3430
V-store at 03417 = 012 240 013 237 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03420 = 013 240 014 237 000 000                                   V1=QAYZ256/AYZ511/0; (BUFFER 2);
V-store at 03423 = 242 104 243 304 140 004                                   V4=B5044224361060004; (F/B/C);
V-store at 03424 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
V-store at 03425 = 000 000 000 000 110 004                                   V6=B44004; (CBN);
V-store at 03427 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 3430/0: 300 007 021                                                         V2; (FETCH NEXT WORD NORMAL ENTRY);
 3430/3: 170 376                                                       10;      =Q15;
 3430/5: 244 367 044                                                   17;      J7C15Z;
 3431/2: 102 360|042|222 147 034                                             M0M15Q; DUP; J18=Z;
 3432/2: 171 376                                                             Q15;
 3432/4: 301 007 021|041|301 007 022                                   14;       =V2; ZERO; =V3;
 3433/5: 200 360 000                                                         EXIT1; (NORMAL EXIT);
 3434/2: 052|143 140|205 267 030                                       18;      ERASE; DC6; J17;
                                                                             (INITIAL ENTRY FORWARDS READ);
 3435/2: 300 007 020|300 007 023|170 376|171 370                       1;      V1; V4; =Q15; C15;
 3437/0: 300 007 017|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 3441/0: 205 267 046                                                         J13;
 3441/3: 300 007 025|200 320 106                                             V6; JSE70;
 3442/3: 205 267 046                                                         J13;
 3443/0: 301 007 026|042|204 147 032|205 267 046                             =V7; DUP; J14≠Z; J13;
                                                                       [ original source of the next page
 3444/4: 300 007 024|200 320 106                                       7;      V5; JSE70;
 3445/4: 205 267 046                                                         J13;
 3446/1: 042|203 147 030                                               8;      DUP; J10≠Z;
 3446/5: 201 266 221                                                   13;      J3P0; (FAILURE);
                                                                             (INITIAL ENTRY BACKWARDS READ);
 3447/2: 300 007 020|300 007 023|170 376|171 364|200 267 037           2;      V1; V4; =Q15; I15; J6;
                                                                             (CLOSE);
 3451/3: 202 327 035|320 013 125|164 301|164 041|304 152 004           16;     JS1; Z10; SHL-32; SHL+16; SETB65004;
 3453/4: 011|200 320 106                                                     OR; JSE70;

 3454/2: 205 267 046                                                         J13;
 3454/5: 204 267 044                                                         J7;
 3455/2: 300 007 023|200 320 106                                       3;      V4; JSE70;
 3456/2: 205 267 046                                                         J13;
 3456/5: 200 360 000                                                         EXIT1;
 3457/2: 300 007 020|304 242 204|200 267 037                           15;      V1; SETB121204; J6;
                                                                             (INITIAL ENTRY FOR FETCH PREVIOUS WORD);
 3460/5: 300 007 021|170 376|171 364|027|170 364|140 360|140 360       4;      V2; =Q15; I15;NEG; =I15; M+I15; M+I15;
 3463/1: 203 267 064                                                         J9;
                                                                             (NORMAL ENTRY POR FETCH PREV1OUS WORD);
 3463/4: 300 007 022|170 376                                           5;      V3; =Q15;
 3464/3: 102 360|171 376|301 007 022|200 360 000                       9;      M0M15Q; Q15; =V3; EXIT1;
                                                                             (WHAT IS CURRANT POSITION);
 3466/1: 300 007 025|200 320 106                                       11;      V6; JSE70;
 3467/1: 205 267 046                                                         J13;
 3467/4: 300 007 026|036|304 000 377|042|300 007 021                         V7; -; SETB377; DUP; V2;
 3471/3: 054|012|054|164 021|011                                             AND; PERM; AND; SHL+8; OR;
 3472/3: 200 360 000                                                         EXIT1;
                                                                             (SKIP TO GIVEN BLOCK);
 3473/0: 042|164 361|300 007 026|056|300 007 027                       12;      DUP; SHL-8; V7; +; V8;
 3474/4: 170 376|170 364|171 376|200 320 106                                 =Q15; =I15; Q15; JSE70;
 3476/1: 205 267 046                                                         J13;
 3476/4: 167 361|164 361|167 021|300 007 024|200 320 106                     SHC-8; SHL-8; SHC+8; V5; JSE70;
 3500/4: 205 267 046                                                         J13;
 3501/1: 170 376|042|171 362|036|027                                         =Q15; DUP; M15; -; NEG;
 3502/2: 172 370|170 362|171 376|301 007 021|200 360 000                     =+C15; =M15; Q15; =V2; EXIT1;
=== Start P5V0; at address 1862/3506
                                                                       P5V0;      (COMPARE IDENTIFIER WITH DECLARATION LIST);
 3506/0: 042|301 007 105|170 376|171 370|170 343                             DUP; =V0; =Q15; C15; =RM14;
 3507/4: 145 340|001|204 267 112                                             I14=-1; VR; J1;
 3510/4: 167 375|047|164 253|065|164 377                               2;      SHC-2; STR; SHL-43; REV; SHL-1;
 3512/0: 054|027|172 342                                                     AND; NEG; =+M14; (STEP TO END OF IDENTIFIER);
 3512/4: 140 340|300 007 105|170 376                                   1;      M+I14; V0; =Q15;
 3513/5: 171 342|171 122|056|171 362|015                                     M14; M5; +; M15; NEV;
 3515/1: 220 147 125                                                         J5=Z; (SOUGHT ADDRESS FOUND IN D LIST);
 3515/4: 102 345|042|167 377|223 047 122                                     M5M14Q; DUP; SHC-1; J3<Z; (IDENTIFIER);
 3517/0: 042|164 301|042|170 342|221 147 125                                 DUP; SHL-32; DUP; =M14; J6=Z;
 3520/3: 164 125|047|052|161 003|052                                         SHL+42; STR; ERASE; SHA+1; ERASE;
 3521/4: 204 267 112                                                         J1; (END DIGIT TO VR);
 3522/1: 102 345                                                       4;      M5M14Q;
 3522/3: 102 360|204 027 110                                           3;      M0M15Q; J2≠; (MISMATCH);
 3523/2: 167 375|221 047 122                                                 SHC-2; J4<Z; (END OF IDENTIFIER NOT REACHED);
 3524/1: 100 345|202 360 001                                                 M5M14; EXIT2; (CODEWORD IN N1);
 3525/0: 041                                                           5;      ZERO;
 3525/1: 001|200 360 000                                               6;      VR; EXIT1; (N1≠O IMPLIES IDENTIFIER NOT IN D LIST);
=== Start P6V-1; at address 1878/3526
 3526/0: 242 047 141                                                   P6;      J3C2Z;                 [ there do not seem to be any calls of this routine
 3526/3: 171 024|164 101|171 030|166 361|052                                 I1; SHL+32; C1; SHLD-8; ERASE;
 3530/0: 105 020|170 024|154 001|171 022|033                                 =M0M1H; =I1; C0TOQ1; M1; NOT;
 3531/3: 027|042|170 022|164 137|161 243                                     NEG; DUP; =M1; SHL+47; SHA-47;
 3532/5: 172 050|202 360 001                                           2;      =+C2; EXIT2;
 3533/4: 171 024|222 147 141                                           1;      I1; J3=Z;
                                                                       [ original source of the next page
 3534/3: 171 022|042|027|033|170 022                                         M1; DUP; NEG; NOT; =M1;
 3535/4: 304 000 001|054|104 020|171 030|170 362                             SET1; AND; M0M1H; C1; =M15;
 3537/2: 041|166 021|170 030|164 301|170 024                                 ZERO; SHLD+8; =C1; SHL-32; =I1;
 3540/5: 205 267 132                                                         J2;
 3541/2: 200 360 000                                                   3;      EXIT1;
=== Start P7V4; at address 1895/3547
V-store at 03542 = 000 000 000 000 000 000                             P7V4;      V0=0;                [ OUTPUT CODEWORD
 3547/0: 300 007 142|202 047 170                                             V0; J3≥Z;               [ zero if channel closed
 3550/0: 300 007 144|171 356|301 007 144|170 356                             V2; Q14; =V2; =Q14;       [ Q14 preserved in V2
 3551/4: 042|221 147 166                                                     DUP; J10=Z;
 3552/2: 171 344|225 047 162                                                 I14; J9<Z;
 3553/1: 171 350|171 344|034|050|172 342                               17;      C14; I14; ×D; CONT; =+M14;
 3554/3: 142 340|300 007 143|170 376                                         NC14; V1; =Q15;
 3555/4: 260 367 160                                                   12;      J11C15NZ;
 3556/1: 304 340 005|200 320 106                                             SETB160005; JSE70;
 3557/1: 201 266 221                                                         J3P0;
 3557/4: 170 376                                                             =Q15;
 3560/0: 102 340|103 360|264 347 155                                   11;      M0M14Q; =M0M15Q; J12C14NZ;
 3561/1: 171 376|301 007 143|304 007 145|170 343                             Q15; =V1; SETAV3; =RM14;
 3562/5: 103 340                                                       9;      =M0M14Q;
 3563/1: 171 356|300 007 144|170 356|301 007 144                       16;      Q14; V2; =Q14; =V2;    [ Q14 restored from V2
 3564/5: 041|033|301 007 142|200 360 000                               13;      ZERO; NOT; =V0; EXIT1;
 3566/1: 141 340|100 340|140 340|205 147 162                           10;      M-I14; M0M14; M+I14; J9≠Z;
 3567/4: 052|201 267 163                                                     ERASE; J16;
 3570/2: 300 007 142|042|202 107 202                                   3;      V0; DUP; J19≤Z;
 3571/3: 170 362|101 360|205 267 164                                         =M15; =M0M15; J13;
 3572/4: 203 327 210                                                   4;      JS20;                   [ entered after discovering *END
 3573/1: 041|301 007 142|304 140 005|170 370|171 376                         ZERO; =V0; SETB60005; =C15; Q15;
 3575/0: 167 041|200 320 106                                                 SHC+16; JSE70;
 3575/5: 201 266 221                                                         J3P0;
 3576/2: 200 360 000                                                         EXIT1;
 3576/5: 300 007 144|170 376|171 370|171 364|034                       5;      V2; =Q15; C15; I15; ×D;
 3600/3: 050|172 362|171 364|027|170 364                                     CONT; =+M15; I15; NEG; =I15;
 3601/5: 262 367 205                                                         J14C15NZ;
 3602/2: 304 002 141|204 266 221                                       19;      SET609; J4P0;
 3603/2: 300 007 144|042|170 376                                       2;      V2; DUP; =Q15;
 3604/2: 052|242 367 202                                               15;      ERASE; J19C15Z;
 3605/0: 141 360                                                             M-I15;
 3605/2: 304 000 001|172 370|100 360|042|222 147 204                   14;      SET1; =+C15; M0M15; DUP; J15=Z;
 3607/1: 171 362|301 007 142|200 360 000                                     M15; =V0; EXIT1;
 3610/3: 300 007 142|202 047 202                                       20;      V0; J19≥Z;
 3611/3: 300 007 144|171 356|301 007 144|170 356                             V2; Q14; =V2; =Q14;
 3613/1: 041|201 267 153                                                     ZERO; J17;
 3613/5: 203 327 210                                                   6;      JS20;
 3614/2: 171 122|171 042|056|041|033                                         M5; M2; +; ZERO; NOT;
 3615/3: 170 365|042|170 362|301 007 142|041                           21;      =RI15; DUP; =M15; =V0; ZERO;
 3617/0: 103 360|171 376|301 007 144|200 360 000                             =M0M15Q; Q15; =V2; EXIT1;
 3620/4: 203 327 210                                                   7;      JS20;
 3621/1: 304 007 145|304 000 001|203 267 215                                 SETAV3; SET1; J21;
 3622/4: 304 242 005|201 267 224                                       8;      SETB121005; J18;        [ start new block for procedure
 3623/4: 304 242 105                                                   1;      SETB121105;             [ store with lag
 3624/1: 300 007 142|202 147 202                                       18;      V0; J19≠Z;
 3625/1: 166 341|052|167 041                                                 SHLD-16; ERASE; SHC+16;
 3626/0: 304 007 145|042|301 007 142|170 363                                 SETAV3; DUP; =V0; =RM15;
 3627/3: 041|103 360|171 376|301 007 144|200 320 106                         ZERO; =M0M15Q; Q15; =V2; JSE70;
 3631/2: 201 266 221                                                         J3P0;
 3631/5: 301 007 143|200 360 000                                             =V1; EXIT1;

=== Start P9V41; at address 1989/3705
V-store at 03633 = 050 242 212 050 242 212                             P9V41;      V0=B1212121212121212;
V-store at 03634 = 000 002 000 002 010 075                                   V1=Q2/2/AYF1;
Warning: YG0 is out of range, only 0 YG-stores specified
V-store at 03635 = 010 074 010 140 270 321                                   V2=QAYF0/AYG0/B134321;
                                                                       [ original source of the next page
V-store at 03636 = 377 021 046 056 061 236                                   V3=B7761044613430636;       [377 021 046 056 061 236  Fail
V-store at 03637 = 377 027 056 063 052 236                                   V4=B7761345614625236;       [377 027 056 063 052 236  Line
 3705/0: 041|033|047|015|300 120 013                                         ZERO; NOT; STR; NEV; E11M5;
 3706/1: 011|301 120 013                                                     OR; =E11M5;
 3706/5: 300 007 236|301 010 074|300 007 237|301 010 076                     V3; =YF0; V4; =YF2;
 3710/5: 300 007 234                                                   5;      V1;
 3711/2: 170 376|042|026|300 007 233|300 000 003                       6;      =Q15; DUP; ABS; V0; E3;
 3713/0: 300 000 002|166 255|052                                             E2; SHLD-42; ERASE;
 3714/0: 304 003 317|054|164 045|013|056                                     SETB1717; AND; SHL+18; TOB; +;
 3715/2: 300 007 233|065|067|164 043|171 364                           1;      V0; REV; FRB; SHL+17; I15;
 3716/5: 164 005|162 015|205 207 316                                   2;      SHL+2; SHAD+6; J2NV;
 3720/0: 304 000 236|011|103 360|052|244 367 322                             SETB236; OR; =M0M15Q; ERASE; J3C15Z;
 3721/4: 171 150|027|202 267 315                                             C6; NEG; J1;
 3722/4: 300 007 235|170 376|225 047 324                               3;      V2; =Q15; J4<Z;
 3724/0: 304 010 076|170 364                                                 SETAYF2; =I15;
 3724/5: 171 376|200 320 106                                           4;      Q15; JSE70;
 3725/4: 017|017|041                                                         DUMMY; DUMMY; ZERO;
 3726/1: 052                                                                 ERASE;
Warning: YG0 is out of range, only 0 YG-stores specified
 3726/2: 304 010 140|304 010 074|036|170 371|243 367 332               7;      SETAYG0; SETAYF0; -; =RC15; J8C15Z;
 3730/2: 041|033                                                             ZERO; NOT;
 3730/4: 017|017|042|303 370 074                                       *9;      DUP; =YF0M15Q;
 3731/4: 017|017|177 360                                               *      J9C15NZS;
 3732/2: 052                                                                 ERASE;
 3732/3: 200 360 000                                                   8;      EXIT1;
=== Start P13V-1; at address 2011/3733
 3733/0: 304 010 034|170 343                                           P13;      SETAYB0; =RM14;
 3733/5: 200 327 030                                                   1;      JSP2;
 3734/2: 042|103 340|167 375|225 047 333                                     DUP; =M0M14Q; SHC-2; J1<Z;
 3735/4: 200 360 000                                                         EXIT1;


=== Start P17V0; at address 2016/3740
                                                                       P17V0;       (PACKED IDENTIFIER TO ABS BUFFER);
                                                                             (DATA; N1=BUFFER FFS/-1/IDEN.SA);
                                                                             (RESULTS; N1=NEW BFFS/*-1/AFFSAFTER IDEN);
                                                                             (USES; 3 NS-1 SJNS- Q15);
 3740/0: 170 376|171 356|301 007 337|171 370|170 343                         =Q15; Q14; =V0; C15; =RM14;
 3741/5: 102 360|304 377 370|170 370                                   1;     M0M15Q; SET-8; =C15;
 3743/0: 042|167 375|224 047 347                                             DUP; SHC-2; J2<Z; (FULL WORD NOT LAST);
 3744/0: 304 000 001|170 350|042|304 000 370|054                             SET1; =C14; DUP; SETB370; AND;
 3745/4: 042|223 147 347                                                     DUP; J3=Z; (LAST WORD FULL);
 3746/2: 304 377 320|056|042|170 370                                         SET-48; +; DUP; =C15;
 3747/3: 052                                                           3;      ERASE;
 3747/4: 033|164 360|142 360|164 360|033                               2;      NOT; SHLC15; NC15; SHLC15; NOT;
 3751/0: 103 340|265 347 341                                                 =M0M14Q; J1C14NZ;
 3751/5: 171 342|170 370|300 007 337|170 356                                 M14; =C15; V0; =Q14;
 3753/2: 171 376|200 360 000                                                 Q15; EXIT1;


=== Start P300V-1; at address 2029/3755
                                                                       P300;
 3755/0: 171 376                                                       	Q15;
                                                                             (print YZ stores);
 3755/2: 304 016 172|164 041                                                 SETB7172; (YZ); SHL+16; (start of print at YZ0);
 3756/1: 304 015 240|170 365|304 014 240|170 370|171 376|304 000 106|200 220 000
                                                                             SET3488; =RI15; SET3232; =C15; Q15; SET70; OUT;
 3761/1: 170 376                                                       	=Q15;
 3761/3: 200 360 000                                                   	EXIT1;
=== Start P301V-1; at address 2034/3762
                                                                       P301;
 3762/0: 171 376                                                       	Q15;
                                                                             (print YY stores);
 3762/2: 304 016 171|164 041                                                 SETB7171; (YY); SHL+16; (start of print at YY0);
 3763/1: 304 010 322|170 365|304 010 240|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYY50; =RI15; SETAYY0; =C15; Q15; SET70; OUT;
 3766/1: 170 376                                                       	=Q15;
 3766/3: 200 360 000                                                   	EXIT1;

=== Start P305V-1; at address 2039/3767
                                                                       P305;
                                                                       (print Z-stores);
 3767/0: 171 376                                                       	Q15;
 3767/2: 304 000 072|164 041|304 000 261|011                                 SETB72; (Z); SHL+16; SET177; OR;  (start of print at Z100);
 3770/5: 304 053 055|170 365|304 052 373|170 370|171 376|304 000 106|200 220 000
                                                                             SETAZ50; =RI15; SETAZ100; =C15; Q15; SET70; OUT;
 3773/5: 170 376                                                       	=Q15;
 3774/1: 200 360 000                                                   	EXIT1;


=== Start P-1V-1; at address 2045/3775
Finished
Reached end of file