Kidsgrove Algol Compiler - Brick 01

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 01.
Hot links to images of individual pages are embedded in the text. Not all the pages have yet been converted.

Loaded 54725 bytes for KAB01.txt
L77 not available
L77 not available
Warning: YG0 is out of range, only 0 YG-stores specified
This is L77
Relocated 5
Finished
Reached end of file


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


   6310  W0 = E3272
  10200  Y0 = E4224
   6310 YB0 = E3272
   6350 YF0 = E3304
   6400 YL0 = E3328
   6500 YS0 = E3392
   6540 YU0 = E3424
   6600 YV0 = E3456
   6700 YW0 = E3520
   7000 YX0 = E3584
   7100 YY0 = E3648
   7200 YZ0 = E3712


    0/0: 200 266 163                                                   [ original source of the next page     -- eXperimantal version
                                                                       ST11104; TL 1000;START1600;
                                                                       V   50;
                                                                       YA     ; YB   31; YC     ;
                                                                       YD     ; YE     ; YF   23;
                                                                       YG     ; YH     ; YJ     ;
                                                                             YK; YL63; YM;
                                                                       YN     ; YP     ; YQ     ;
                                                                       YR     ; YS   31; YT     ;
                                                                             YU31; YV63; YW63;
                                                                       YX   63; YY   63; YZ  511;
    4/0: 202 266 344|202 266 344                                             RESTART; J6; J6;
                                                                       PROGRAM;

V-store at 03100 = 026 046 061 054 064 061                                   V0=B0542306113032061;
V-store at 03101 = 236 236 236 236 236 236                                   V1=B4751723647517236;
V-store at 03102 = 016 000 016 037 242 003                                   V2=QAYX0/AYX31/B121003;
V-store at 03103 = 016 040 016 077 242 021                                   V3=QAYX32/AYX63/B121021;
V-store at 03104 = 016 100 016 137 000 000                                   V4=QAYY0/AYY31/0;
V-store at 03105 = 016 140 016 177 000 000                                   V5=QAYY32/AYY63/0;
V-store at 03106 = 000 001 000 001 014 351                                   V6=Q1/1/AYF1;
V-store at 03107 = 000 010 000 004 000 022                                   V7=Q8/4/18;
V-store at 03122 = 005 012 013 301 321 010                                   V18=B0120501360350410;
V-store at 03123 = 000 037 000 001 014 310                                   V19=Q31/1/AYB0;
V-store at 03124 = 016 200 017 177 000 000                                   V20=QAYZ0/AYZ255/0;
V-store at 03125 = 017 200 020 177 000 000                                   V21=QAYZ256/AYZ511/0;
 3163/0: 304 000 377|041|033|304 000 024|170 371|200 333 377                 SETB377; ZERO; NOT; SET20; =RC15; JS3P8;
 3165/1: 304 000 141|170 065|304 000 001|170 103                       8;      SET97; =RI3;      SET1; =RM4;
 3166/5: 304 053 055|042|170 136                                             SETAZ50; DUP; =Q5;
 3167/5: 304 020 200|042|170 036|036                                         SETAY0; DUP; =Q1; -;
 3171/0: 170 051|145 040|154 006|157 015                                     =RC2; I2=-1; C0TOQ6; Q0TOQ13;
 3172/2: 041|170 343|041|301 013 300                                         ZERO; =RM14; ZERO; =V0P7;
 3173/3: 300 006 103|300 006 102|200 320 106                                 V3; V2; JSE70; (CHANNEL 3);                                    [B121003;
 3175/0: 202 266 344                                                         J6;
 3175/3: 052|300 006 102|300 006 103|200 320 106                             ERASE; V2; V3; JSE70; (MONITOR);                               [B121021;
 3177/1: 202 266 344                                                         J6;
 3177/4: 300 006 125|300 006 124|204 333 361|041|200 333 305                 V21; V20; JS1P7; ZERO; JSP7;
 3201/5: 304 000 006|170 070|200 334 231                                     SET6; =C3; JS4P754; (OPEN CH. 7);
 3203/1: 304 000 106|200 320 106                                             SETB106; JSE70; (CH. 6 OPEN ETC.);                             [B106;
 3204/1: 204 266 337                                                         J3;
 3204/4: 164 023|202 046 206                                                 SHL+9; J173≥Z;
 3205/3: 304 000 002|170 070                                                 SET2; =C3;
 3206/2: 320 013 074|220 046 274                                       173;      Z35; J169<Z;
                                                                             (UNDER POST CONTROL);
 3207/2: 304 000 011|200 220 000|161 321|164 061|304 000 003                 SET9; OUT; SHA-24; SHL+24; SET3;
 3211/3: 200 220 000|161 321|166 061|321 013 075|052                         OUT; SHA-24; SHLD+24; =Z34; ERASE;
V-store at 03135 = 015 140 015 176 240 002                                   V29=QAYU0/AYU30/B120002;
 3213/2: 300 006 135|200 320 106                                             V29; JSE70; (OPEN READ PPT);                                   [B120002;
 3214/2: 204 266 337                                                         J3;
 3214/5: 304 140 002|200 320 106                                             SETB60002; JSE70; (CLOSE PPT);                                 [B60002;
 3215/5: 204 266 337                                                         J3;
 3216/2: 170 376|100 360|164 255|304 000 075|015                             =Q15; M0M15; SHL-42; SETB75; NEV;
 3220/0: 220 154 174                                                         JP100=Z; (INITIAL EM);
 3220/3: 300 015 140|041|166 061                                             YU0; ZERO; SHLD+24;
 3221/3: 304 001 302|164 031|015                                             SETB0702; SHL+12; NEV;
 3222/3: 304 015 002|015|204 146 264                                         SETB6402; NEV; J244≠Z;(IF NOT CN CRLF T CRLF);
 3223/4: 304 000 004|170 371|042|164 321|311 000 201|041|033                 SET4; =RC15; DUP; SHL-24; =Y1; ZERO; NOT;
 3225/5: 065                                                           237;      REV;
 3226/0: 041|166 015|042|304 000 020|036|224 046 264                   238;      ZERO; SHLD+6; DUP; SETB20; -; J244<Z;
                                                                       [ original source of the next page
 3227/5: 304 000 034|224 026 264|304 000 036|015|042|222 146 232|033         SETB34; J244=; SETB36; NEV; DUP; J236=Z; NOT;
 3232/2: 066|166 015|065|052|143 360|265 366 225                       236;      CAB; SHLD+6; REV; ERASE; DC15; J237C15NZ;
 3234/0: 301 375 176|171 362|201 146 240                                     =YU30M15; M15; J239≠Z;
 3235/2: 140 360|304 000 010|170 370|300 015 141|042|311 000 202|200 266 226
                                                                             M+I15; SET8; =C15; YU1; DUP; =Y2; J238;
 3240/1: 171 070|304 000 002|015|221 146 270                           239;      C3; SET2; NEV; J172=Z;
 3241/4: 300 006 135|304 177 004|015|200 320 106                             V29; SETB77404; NEV; JSE70; (FIND TEXT);                       [B120002; B77404; NEV; i.e. B157406;
 3243/2: 201 266 267                                                         J174;
 3243/5: 300 006 105|300 006 104|201 331 316                                 V5; V4; JS6P1; (OPEN CH.6-PRINT TITLE-IDENT TO Z44-45);
 3245/2: 201 266 340                                                         J4;
 3245/5: 201 331 360                                                         JS7P1; (CLOSE CH.6);
 3246/2: 201 266 340                                                         J4;
 3246/5: 320 013 062|164 075|164 255|304 000 041|036                         Z45; SHL+30; SHL-42; SET33; -;
 3250/4: 320 013 071|304 000 001|164 115|066|042|221 146 273                 Z38; SET1; SHL+38; CAB; DUP; J243=Z;(IF ALGOL);
 3252/5: 304 000 024|036|204 146 264                                         SET20; -; J244≠Z;(IF NOT U);
 3254/0: 033|065|042|164 031|204 046 264                                     NOT; REV; DUP; SHL+12; J244≥Z;(IF U/C COMP. PERMIT BIT
 3255/2: 054|321 013 071                                                     NOT SET); AND; =Z38;(REMOVE KIDSGROVE MARKER);
 3256/0: 203 334 221                                                         JS3P754; (CLOSE CH.7);
 3256/3: 304 006 024                                                         SETB3024; (USERCODE COMPILER);
 3257/0: 204 333 330                                                   171;      JS4P7; (CLOSE CH.5);
 3257/3: 304 260 141|167 003|200 320 106                                     SETB130141; SHC+1; JSE70; (CLOSE CH.3);                        [B130141; SHC+1;  i.e. B060303;
 3260/5: 204 266 337                                                         J3;
 3261/2: 204 266 346                                                         J7; (FETCH BRICK);
 3261/5: 304 261 343|167 003|200 320 106                               170;      SETB130743; SHC+1; JSE70; (CLOSE CH.7-2LB-MOVE START);     [B130743; SHC+1;  i.e. B061707;
 3263/1: 204 266 337                                                         J3;
 3263/4: 304 006 125|200 266 257                                             SETB3125; J171; (PHASE CONTROL );
 3264/4: 304 000 145                                                   244;      SET101; (FAIL 001/01, CALL MESSAGE INVALID);
 3265/1: 170 365|304 000 200|170 362|171 376|200 260 106               175;      =RI15; SETB200; =M15; Q15; JE70;                           [B200;
 3267/1: 304 000 311|201 266 265                                       174;      SET201; J175; (FAIL 002/01, TEXT NOT ON TEXT TAPE);
 3270/1: 304 015 140|201 331 332                                       172;      SETAYU0; (ADDRESS OF P.T. IDENTIFIER); JS26P1;
 3271/1: 201 266 340                                                         J4;
 3271/4: 320 013 071|304 000 001|164 115|042                                 Z38; SET1; SHL+38; DUP;
 3273/1: 052|011|321 013 071                                           243;      ERASE; OR; =Z38; (SET KIDSGROVE WORKER);            [sic, but it should have been MARKER
 3274/0: 320 013 127|164 341|164 041|321 013 127                       169;      Z8; SHL-16; SHL+16; =Z8; (INITIAL BLOCK COUNT);
 3275/4: 300 014 236|170 376|141 360|320 013 063|101 360|320 013 062         V0P755; =Q15; M-I15; Z44; =M0M15; Z45;
 3300/1: 200 334 242|204 266 337                                       234;      JSP755; J3;
 3301/1: 300 014 236|164 301|304 000 035|036|220 146 304                     V0P755; SHL-32; SET29; -; J235=Z;(IF IND. BL. NOW TRANS.);
 3303/1: 041|033|201 266 300                                                 ZERO; NOT; J234; (377.S);
 3304/0: 041|033|164 321|042|301 015 176                               235;      ZERO; NOT; SHL-24; DUP; =YU30;
 3305/2: 167 365|301 015 177                                                 SHC-6; =YU31; (MASK FOR FIND CONTROL);
 3306/1: 300 000 002|164 365|164 015|304 000 031|011                         E2; SHL-6; SHL+6; SETB31; OR;
 3310/0: 301 015 140|300 000 003|164 015|304 000 027|166 365                 =YU0; E3; SHL+6; SETB27; SHLD-6;
 3312/1: 052|301 015 141|300 006 135|304 177 002                             ERASE; =YU1; V29; SETB77402;
 3313/5: 015|200 320 106                                                     NEV; JSE70; (FIND CONTROL );                                   [B120002; SETB77402; NEV; i.e. B157400;
 3314/3: 204 266 337                                                         J3;
 3315/0: 300 006 105|300 006 104|203 331 357                                 V5; V4; JS8P1;
 3316/3: 201 266 340                                                         J4;
                                                                       1;      (COPY CONTROL FROM CH.8 BUFFER TO CH.7 BUFFER-TO E.M.);
 3317/0: 041|203 331 363                                                     ZERO; JS27P1; (FETCH NEXT BLOCK, SUMCHECK LOST);
 3317/4: 201 266 340                                                         J4;
 3320/1: 300 014 236|170 376|304 000 001|172 370|141 360                     V0P755; =Q15; SET1; =+C15; M-I15; (30/1/AB);
 3322/1: 102 320|042|164 101|164 261                                   246;      M0M13Q; DUP; SHL+32; SHL-40;
 3323/2: 304 000 276|015|223 146 331                                         SETB276; NEV; J245=Z;(IF E.M.);
 3324/3: 103 360|261 366 322|102 320|103 360|100 320|101 360           247;      =M0M15Q; J246C15NZ; M0M13Q; =M0M15Q; M0M13; =M0M15;
 3326/4: 320 013 127|033|027|321 013 127                                     Z8; NOT; NEG; =Z8;
 3330/0: 200 334 265|204 266 337|200 266 317                                 JS11P755;(TRANSFER BLOCK CH.7); J3; J1;
 3331/3: 304 000 377|164 021|011                                       245;      (E.M. FOUND); SETB377; SHL+8; OR; (DELETE E.M.);
 3332/3: 103 360|241 366 334|102 320|203 266 332                       249;      =M0M15Q; J248C15Z; M0M13Q; J249;
 3334/1: 205 334 253|204 266 337                                       248;      JS10P755; (FORM NEW CHECK SUM FOR,AND TRANSFER,E.M. BL);J3;
 3335/1: 304 217 177|167 343|042|301 015 300|301 015 340                     SETB107577; SHC-15; DUP; =YW0; =YW32;(1ST WORDS OF
 3337/1: 204 266 350                                                         CH.7 BUFFERS); J242;
                                                                       [ original source of the next page
 3337/4: 304 002 133                                                   3;      SET603;
 3340/1: 304 001 054|036|200 334 023                                   4;      SET300; -; JSP9;
 3341/2: 304 004 022|320 013 070|204 046 346                           162;      SETB2022; Z39; J7≥Z;
 3342/5: 052|304 002 001|164 017|200 320 106                                 ERASE; SETB1001; SHL+7; JSE70;                                 [B1001; SHL+7; i.e. B200;
 3344/2: 320 013 070|047|052|041|033                                   6;      Z39; STR; ERASE; ZERO; NOT;
 3345/3: 050|321 013 070|304 006 125                                         CONT; =Z39; SETB3125;
 3346/4: 170 364|304 336 010|170 362|171 376|200 260 106               7;      =I15; SETB157010; =M15; Q15; JE70;                           [B157010; brick change
                                                                       242;      (N.B. FIRST WORD OF GEN. U/C WILL START NEW CH.7 BLOCK);
 3350/4: 320 013 071|164 011|047|301 014 241                                 Z38; SHL+4; STR; =V3P755;(≠O IF TEXT PRINTOUT REQ.);
 3352/1: 052                                                                 ERASE;
 3352/2: 205 331 362                                                         JS9P1; (CLOSE CH. 8);
 3352/5: 201 266 340                                                         J4;
 3353/2: 300 006 105|300 006 104|171 070|204 331 317                         V5; V4; C3; JS5P1; (OPEN TEST CHANNEL);
 3355/1: 201 266 340                                                         J4;
 3355/4: 304 000 301|164 101|033|027|321 013 126                             SET193; SHL+32; NOT; NEG; =Z9;
 3357/2: 300 006 122|203 333 105                                             V18; JS1P4;
 3360/2: 300 006 132|200 333 305                                             V26; JSP7;
 3361/2: 304 001 214|171 042|170 130|103 045                                 SETB614; M2; =C5; =M5M2Q;
 3362/5: 041|170 143|041|170 171                                             ZERO; =RM6; ZERO; =RC7;

 3363/5: 141 160                                                             M-I7;
 3364/1: 304 200 000|170 070                                                 SETB100000; =C3;

 3365/0: 200 331 215                                                   32;      JSP1; (OLD READERS START HERE);

 3365/3: 203 267 131                                                         J23;
 3366/0: 171 024|200 146 374                                                 I1; J10≠Z;
 3366/5: 304 000 214|201 027 043                                             SETB214; J11≠; (INITIAL BS NOT BEGIN);
 3367/5: 154 006|143 140                                                     C0TOQ6; DC6;
 3370/3: 320 013 071|164 011|220 046 373|041|301 014 022|200 266 374         Z38; SHL+4; J5<Z; ZERO; =V5P9; J10;
 3373/0: 300 006 134|301 014 350                                       5;      V28; =YF0;
V-store at 03134 = 377 037 052 075 071 377                                   V28=B7761745217234777;
 3374/0: 042|164 365|170 370|242 370 221                               10;      DUP; SHL-6; =C15; J12C15Z; (ALPHA);
 3375/2: 143 360|241 367 137                                                 DC15; J13C15Z; (DECLARATORS);
 3376/1: 304 000 200|224 027 331                                             SETB200; J31=; (COMMENT);
 3377/1: 304 000 217|221 027 137                                             SETB217; J13=; (OWN);
 3400/1: 042|304 000 017|054                                                 DUP; SET15; AND;
 3401/0: 167 377|042                                                   66;       SHC-1; DUP;
 3401/3: 170 362|164 251|170 370|300 366 110|042                             =M15; SHL-44; =C15; V8M15; DUP;
 3403/1: 164 360|171 370|172 370|065|142 360                                 SHLC15; C15; =+C15; REV; NC15;
 3404/4: 164 360|174 000|042|204 047 024                                     SHLC15; =LINK; DUP; J14≥Z;
 3406/0: 065|042|164 371|304 000 007|054                                     REV; DUP; SHL-4; SET7; AND;
 3407/2: 170 370|260 367 012                                                 =C15; J15C15NZ; (NOT OPENING BRACKETS);
 3410/1: 042|200 333 260                                                     DUP; JSP6;
 3410/5: 201 267 044                                                         J16;
 3411/2: 065|204 267 024                                                     REV; J14;
 3412/0: 042|171 024|015|304 000 217|054                               15;      DUP; I1; NEV; SETB217; AND;
 3413/2: 201 147 045                                                         J17≠Z;
 3413/5: 171 024|164 361|056|143 360|065                                     I1; SHL-8; +; DC15; REV;
 3415/1: 300 006 127|300 006 126|262 367 021|052|052                         V23; V22; J39C15NZ; ERASE; ERASE;
 3417/0: 065|204 333 267                                                     REV; JS1P6;
 3417/4: 201 267 046                                                         J19;
 3420/1: 065|300 006 131|300 006 130                                         REV; V25; V24;
 3421/2: 042|164 301|172 030|066|047                                   39;      DUP; SHL-32; =+C1; CAB; STR;
 3422/3: 162 011|161 005|170 370|012|166 360                                 SHAD+4; SHA+2; =C15; PERM; SHLDC15;
 3424/0: 052|162 371|052                                                     ERASE; SHAD-4; ERASE;
 3424/4: 164 003|047|166 003|201 047 027                               14;      SHL+1; STR; SHLD+1; J18≥Z;
 3426/0: 042|171 076|015|221 047 047                                         DUP; Q3; NEV; J20<Z;
 3427/1: 164 003|047|166 003|002|047                                   18;      SHL+1; STR; SHLD+1; =TR; STR;
 3430/2: 225 347 031                                                         J37TR;
                                                                       [ original source of the next page
 3430/5: 171 076|047|065|052|015                                             Q3; STR; REV; ERASE; NEV;
 3431/5: 171 076|164 007|042|205 047 034                               37;      Q3; SHL+3; DUP; J164≥Z;
 3433/1: 164 003|164 377|304 376 300|200 334 023                             SHL+1; SHL-1; SET-320; JSP9;
 3434/5: 164 373|065|050                                               164;      SHL-3; REV; CONT;
 3435/3: 170 076|164 003|042|204 047 037                                     =Q3; SHL+1; DUP; J21≥Z;
 3436/5: 065|042|170 110|065                                                 REV; DUP; =C4; REV;
 3437/4: 164 003|042|204 047 041                                       21;      SHL+1; DUP; J22≥Z;
 3440/4: 065|042|200 333 305                                                 REV; DUP; JSP7;
 3441/3: 065                                                                 REV;
 3441/4: 164 003|204 047 042                                           22;      SHL+1; J38≥Z;
 3442/3: 052                                                                 ERASE;
 3442/4: 202 360 000                                                   38;      EXIT; (TREE ON CLASS OPERATIONS);
 3443/1: 304 377 366|201 266 340                                       11;      SET-10; J4;
 3444/1: 304 377 365|201 266 340                                       16;      SET-11; J4;
 3445/1: 304 377 364|201 266 340                                       17;      SET-12; J4;
 3446/1: 304 377 363|201 266 340                                       19;      SET-13; J4;
 3447/1: 304 376 306|200 334 023                                       20;      SET-314; JSP9;
 3450/1: 201 267 027                                                         J18;
 3450/4: 304 376 306|200 334 023                                       153;      SET-314; JSP9;
 3451/4: 042|304 000 040|164 021|011|200 333 260                             DUP; SETB40; SHL+8; OR; JSP6;
 3453/2: 201 267 044                                                         J16;
 3453/5: 304 004 000|171 024|011|170 024                               156;      SETB2000; I1; OR; =I1;
 3455/1: 052                                                           155;      ERASE;
 3455/2: 200 331 215|203 267 131|041|033|200 333 305                   154;      JSP1; J23; ZERO; NOT; JSP7;
 3457/1: 304 000 214|225 027 073                                             SETB214; J158=;
 3460/1: 304 000 230|224 027 076                                             SETB230; J159=;
 3461/1: 304 000 245|224 027 076                                             SETB245; J159=;
 3462/1: 304 000 120|223 027 071                                             SETB120; J161=;
 3463/1: 304 000 234|015|202 147 055                                         SETB234; NEV; J154≠Z;
 3464/2: 204 333 267|201 267 046|171 024|164 113|221 110 024                 JS1P6; J19; I1; SHL+37; J47>Z;
 3466/3: 171 024|304 104 214|015|202 147 055                                 I1; SETB42214; NEV; J154≠Z;
 3470/0: 204 333 267|201 267 046|202 267 055                                 JS1P6; J19; J154;
 3471/3: 171 076|164 007|041|033                                       161;      Q3; SHL+3; ZERO; NOT;
 3472/3: 166 373|052|170 076                                                 SHLD-3; ERASE; =Q3;
 3473/2: 201 267 137                                                         J13;
 3473/5: 171 076|164 007|041|033|166 373                               158;       Q3; SHL+3; ZERO; NOT; SHLD-3;
 3475/1: 052|170 076|304 000 040|200 267 351                                 ERASE; =Q3; SETB40; J123;
 3476/4: 171 024|304 001 000|054|200 146 374                           159;      I1; SETB400; AND; J10≠Z;
 3500/1: 201 267 055                                                         J155;

 3500/4: 143 360|260 370 174                                           112;      DC15; J143C15NZ; (NOT ARRAY);
 3501/3: 143 020|304 000 211|204 027 111                                     DC1; SETB211; J140≠;
 3502/5: 142 020|154 032|001|171 030|161 125                                 NC1; C1TOQ10; VR; C1; SHA+42;
 3504/2: 164 277|221 210 300                                                 SHL-33; J144V; (TOO MANY ELS.IN SEG.);
 3505/1: 200 334 112                                                         JSP16;
 3505/4: 204 270 301                                                         J42;
 3506/1: 100 245|011|101 245|042                                             M5M10; OR; =M5M10; DUP;
 3507/1: 154 001                                                       142;      C0TOQ1;
 3507/3: 171 076|164 007|164 373|170 076                                     Q3; SHL+3; SHL-3; =Q3;
 3510/5: 041|066|205 267 352                                                 ZERO; CAB; J138;
 3511/4: 264 027 176|205 267 311                                       140;      J108C1NZ; J141;
 3512/4: 171 024|304 000 013|015|200 147 363                           89;      I1; SETB13; NEV; J41≠Z;
 3514/1: 204 333 267                                                         JS1P6;
 3514/4: 201 267 044                                                         J16;
 3515/1: 304 000 001|170 250|171 362|033                                     SET1; =C10; M15; NOT;
 3516/3: 027|001|161 123|202 270 277                                         NEG; VR; SHA+41; J88;
 3517/4: 102 220                                                       26;      M0M9Q;
 3520/0: 200 333 305                                                   25;      JSP7;
 3520/3: 264 227 117                                                         J26C9NZ;
 3521/0: 041|304 000 020|200 267 001                                         ZERO; SET16; J66;
                                                                       [ original source of the next page
 3522/1: 200 333 100                                                   24;      JSP4;
 3522/4: 200 267 132                                                         J150;
 3523/1: 205 267 127                                                         J28;
 3523/4: 001|042|161 101|052|304 002 235                                     VR; DUP; SHA+32; ERASE; SETB1235;
 3525/0: 222 207 130                                                         J27V;
 3525/3: 052|304 004 235|065                                                 ERASE; SETB2235; REV;
 3526/2: 164 101|011|304 000 021|200 267 001                           29;      SHL+32; OR; SET17; J66;
 3527/5: 304 001 235                                                   28;      SETB635;
 3530/2: 065|200 334 124                                               27;      REV; JSP45;
 3531/0: 202 267 126                                                         J29;
V-store at 03120 = 025 027 006 374 006 374                                   V16=QB12427/AR10/AR10;
 3531/3: 201 266 340                                                   23;      J4;
 3532/0: 304 001 054|036|200 334 023|041                               150;      SET300; -; JSP9; ZERO;
 3533/2: 052|200 331 215|201 266 340|042|304 000 013                   151;      ERASE; JSP1; J4; DUP; SETB13;
 3535/1: 036|202 107 133                                                     -; J151≤Z;
 3535/5: 041|304 004 235                                                     ZERO; SETB2235;
 3536/3: 065|202 267 126                                                     REV; J29;


 3537/1: 171 076|041|033|166 005|033                                   13;      Q3; ZERO; NOT; SHLD+2; NOT;
 3540/2: 203 147 305                                                         J101≠Z; (DECLARATOR NOT IN BLOCK HEAD);
 3540/5: 200 047 164                                                         J102≥Z; (SECOND AND SUBSEOUENT DECLARATORS);
 3541/2: 151 007|241 047 044                                                 M0TOQ7; J16C2Z;
 3542/1: 304 340 000|172 070|202 333 341                                     SETB160000; =+C3; JS2P7;
 3543/3: 042|164 123|220 047 146                                             DUP; SHL+41; J103<Z; (BEGIN FOR STATEMENT);
 3544/3: 304 000 040|015|304 340 000|172 024                                 SETB40; NEV; SETB160000; =+I1;
 3546/0: 171 024|304 375 377|054|170 024                               103;      I1; SETB176777; AND; =I1;
 3547/2: 001|171 170|027|033|042                                             VR; C7; NEG; NOT; DUP;
 3550/2: 170 170|027|042|170 062|161 117|164 363|011                         =C7; NEG; DUP; =M3; SHA+39; SHL-7; OR;
 3552/1: 171 142|033|027|042|170 142                                         M6; NOT; NEG; DUP; =M6;
 3553/2: 161 121|164 343|011|220 207 307                                     SHA+40; SHL-15; OR; J104V;
 3554/4: 042|200 333 305                                                     DUP; JSP7;
 3555/2: 171 130|170 362|100 365|170 216|171 042                             C5; =M15; M5M15; =Q8; M2;
 3557/0: 170 204|171 216|101 365|170 376|171 124                             =I8; Q8; =M5M15; =Q15 ; I5;
 3560/4: 170 370|152 017|171 042|042|170 130                                 =C15; I0TOQ15; M2; DUP; =C5;
 3562/1: 170 124|171 376|103 045                                             =I5; Q15; =M5M2Q;
 3563/1: 171 162|200 146 365                                                 M7; J32≠Z;
 3564/0: 042|171 162|033|054|164 125                                   102;      DUP; M7; NOT; AND; SHL+42;
 3565/1: 223 047 305                                                         J101<Z; (SPECIFIER IN BLOCK HEAD);
 3565/4: 042|164 373|304 000 010|036|170 370                                 DUP; SHL-3; SET8; -; =C15;
 3567/1: 171 162|264 367 272                                                 M7; J105C15NZ;
 3570/0: 304 376 377|054                                                     SETB177377; AND;
 3570/4: 304 377 237|054                                               116;      SETB177637; AND;
 3571/2: 203 147 305                                                   117;      J101≠Z;
 3571/5: 171 162                                                       106;      M7;
 3572/1: 011|170 162|200 331 215                                       111;      OR; =M7; JSP1;
 3573/1: 203 267 131                                                         J23;
 3573/4: 042|164 365|170 370|240 367 202                                     DUP; SHL-6; =C15; J107C15Z; (ALPHA);
 3575/0: 171 162|224 047 176                                                 M7; J108<Z; (NON-ALPHA AFTER COMMA);
 3575/5: 143 360|241 367 137                                                 DC15; J13C15Z; (COMPOUND DECLARATOR);
 3576/4: 304 376 301|200 334 023                                       108;      SET-319; JSP9;
 3577/4: 203 270 311                                                         J157;
 3600/1: 304 376 300|200 334 023                                       163;      SET-320; JSP9;
 3601/1: 052|041|205 267 236                                                 ERASE; ZERO; J113;
 3602/0: 042|304 000 014|036|224 047 176                               107;      DUP; SET12; -; J108<Z; (NUMERIC);
 3603/2: 304 000 037|170 050|171 122|172 042|171 056                         SET31; =C2; M5; =+M2; Q2;
 3605/1: 200 333 037                                                         JSP3; (PACK IDENTIFIER);
 3605/4: 201 266 340                                                         J4;
 3606/1: 171 124|170 050|171 356|171 056|200 333 224                         I5; =C2; Q14; Q2; JSP5;
 3610/0: 205 267 236                                                         J113;
                                                                       [ original source of the next page
 3610/3: 001                                                                 VR;
 3610/4: 042|304 376 377|054                                                 DUP; SETB177377; AND;
 3611/3: 304 000 140|015|201 147 200                                         SETB140; NEV; J163≠Z;
 3612/4: 066|052|171 162|304 001 377|054                                     CAB; ERASE; M7; SETB777; AND;
 3614/0: 304 001 140|224 027 221                                             SETB540; J130=;
 3615/0: 011|304 000 030|171 162|054                                         OR; SETB30; M7; AND;
 3616/1: 304 000 020|015|222 150 136                                         SETB20; NEV; J128=Z;
 3617/2: 171 144|042|033|027|170 144                                         I6; DUP; NOT; NEG; =I6;
 3620/3: 164 101|011                                                         SHL+32; OR;
 3621/0: 171 102|164 061                                                     M4; SHL+24;
 3621/4: 011|101 345|170 356|171 162|164 117                           130;      OR; =M5M14; =Q14; M7; SHL+39;
 3623/1: 047|033|172 030|157 222|052                                         STR; NOT; =+C1; Q9TOQ2; ERASE;
 3624/2: 304 000 246|222 027 262                                             SETB246; J131=;
 3625/2: 304 000 230|015|204 147 176                                         SETB230; NEV; J108≠Z; (NOT SEMICOLON);
 3626/3: 304 000 140|170 162|264 027 313                                     SETB140; =M7; J149C1NZ; (SPECIFICATION NOT COMPLETE);
 3627/5: 304 000 230                                                         SETB230;
                                                                             (END OF PROCEDURE HEADING);
 3630/2: 042|170 110|200 333 305                                       133;      DUP; =C4; JSP7;
 3631/2: 304 200 000|170 070                                                 SETB100000; =C3;
 3632/1: 171 062|170 130                                                     M3; =C5;
 3632/5: 151 006|154 007                                                     M0TOQ6; C0TOQ7;
 3633/3: 304 101 214|200 333 260                                             SETB40614; JSP6;
 3634/3: 201 267 044                                                         J16;
 3635/0: 304 000 314|171 102|164 121|011|200 267 146                         SETB314; M4; SHL+40; OR; J103;
 3636/5: 012|170 356|170 056                                           113;      PERM; =Q14; =Q2;
 3637/4: 171 042|171 122|027                                                 M2; M5; NEG;
 3640/3: 172 042|171 022|036|042|170 050                                     =+M2; M1; -; DUP; =C2;
 3641/5: 221 047 044                                                         J16<Z;
 3642/2: 203 150 144                                                         J118≠Z;
 3642/5: 171 162|167 125|047|225 050 142                                     M7; SHC+42; STR; J127<Z;
 3644/1: 042|164 015|223 047 245                                             DUP; SHL+6; J145<Z;
 3645/1: 154 001                                                             C0TOQ1;
 3645/3: 164 003|200 047 252                                           145;      SHL+1; J119≥Z; (NOT PROCEDURE, SWITCH);
 3646/2: 171 162|164 131|200 050 146                                         M7; SHL+44; J109≥Z; (PROCEDURE);
 3647/3: 304 000 265|204 027 176                                             SETB265; J108≠;
 3650/3: 200 334 112                                                         JSP16;
 3651/0: 204 270 301                                                         J42;
 3651/3: 304 000 013                                                         SETB13;
 3652/0: 171 144|042|033|027|170 144                                   119;      I6; DUP; NOT; NEG; =I6;
 3653/1: 164 021|171 102|011|164 061                                         SHL+8; M4; OR; SHL+24;
 3654/2: 171 162|304 001 377|054|011|042                               126;      M7; SETB777; AND; OR; DUP;
 3655/4: 103 045|200 333 305                                                 =M5M2Q; JSP7; (OUTPUT CODEWORD);
 3656/3: 171 162|304 000 130|015|221 147 107                                 M7; SETB130; NEV; J142=Z;
 3660/0: 304 000 246|200 027 310                                       139;      SETB246; J110≠; (TERMINATOR NOT C0MMA);
 3661/0: 143 020|304 000 253|200 333 305                                     DC1; SETB253; JSP7;
 3662/2: 052|171 162|304 200 000|201 267 172                           131;      ERASE; M7; SETB100000; J111;
 3663/5: 222 047 265                                                   134;      J135<Z;
 3664/2: 200 331 215|203 267 131                                             JSP1; J23;
 3665/2: 304 000 234|224 027 176                                       135;      SETB234; J108=;
 3666/2: 304 000 245|224 027 176                                             SETB245; J108=;

 3667/2: 304 000 230|205 027 263                                             SETB230; J134≠;
 3670/2: 304 300 000|170 070|204 333 267                                     SETB140000; =C3; JS1P6;
 3671/4: 201 267 046                                                         J19;
 3672/1: 205 267 312                                                         J147;
 3672/4: 153 052|143 360|264 367 277                                   105;      IM2TOQ10; DC15; J114C15NZ;
 3673/5: 042|164 133|205 147 275                                             DUP; SHL+45; J136≠Z;
 3674/5: 171 162|033|027|170 162                                             M7; NOT; NEG; =M7;
 3675/5: 304 376 377|054                                               136;      SETB177377; AND;
 3676/3: 304 377 270|054                                               115;      SETB177670; AND;
                                                                       [ original source of the next page
 3677/1: 204 267 170                                                         J116;
 3677/4: 143 360|243 367 276                                           114;      DC15; J115C15Z; (*PROCEDURE);
 3700/3: 143 360|244 367 170                                                 DC15; J116C15Z; (*SWITCH);
 3701/2: 304 377 374|172 370|244 367 170                                     SET-4; =+C15; J116C15Z; (*LABEL , *STRING);
 3702/4: 304 377 376|172 370|263 367 305                                     SET-2; =+C15; J101C15NZ; (NOT *OWN);
 3704/0: 065|052|304 001 000|065|202 267 171                                 REV; ERASE; SETB400; REV; J117;
 3705/3: 304 376 302|200 334 023|203 270 311                           101;      SET-318; JSP9; J157;
 3707/0: 304 377 357|201 266 340                                       104;      SET-17; J4;
 3710/0: 171 162|167 365|164 247                                       110;      M7; SHC-6; SHL-45;
 3711/0: 170 370|264 367 100                                                 =C15; J112C15NZ;
 3711/5: 304 000 230|204 027 176                                       141;      SETB230; J108≠;
 3712/5: 151 007|200 333 305                                           147;      M0TOQ7; JSP7;
 3713/4: 200 331 215                                                   149;      JSP1;
 3714/1: 203 267 131                                                         J23;
 3714/4: 304 000 200|200 026 374                                       148;      SETB200; J10≠;
 3715/4: 052|200 331 215                                               34;      ERASE; JSP1;
 3716/2: 203 267 131                                                         J23;
 3716/5: 304 000 230|204 027 315                                             SETB230; J34≠;
 3717/5: 052|204 267 313                                                     ERASE;J149;
 3720/3: 052|200 266 365                                               30;      ERASE; J32;
V-store at 03110 = 000 100 047 321 207 331                                   V8=QB100/AR58/AR31;
V-store at 03115 = 000 000 007 337 007 337                                   V13=Q0/AR35/AR35;
V-store at 03111 = 107 107 006 365 006 365                                   V9=QB43507/AR32/AR32;
                                                                       58;      (ARITHMETIC OPERATORS);
 3721/1: 042|304 000 301|036|225 050 052                                     DUP; SETB301; -; J82<Z;
 3722/3: 245 110 052                                                         J82C4Z;
 3723/0: 171 110|304 000 377|054|304 000 235|220 027 331                     C4; SETB377; AND; SETB235; J59=;
 3725/0: 304 000 224|220 027 331                                             SETB224; J59=;
 3726/0: 304 000 232|220 027 331                                             SETB232; J59=;
 3727/0: 304 000 233|220 027 331                                             SETB233; J59=;
 3730/0: 052|304 000 040|056|042                                             ERASE; SETB40; +; DUP;
 3731/0: 052|205 270 052                                               59;      ERASE; J82;
 3731/4: 304 000 160|054|042|201 147 340                               31;      SETB160; AND; DUP; J33≠Z;
 3733/0: 052|171 110|304 000 214|224 027 315                                 ERASE; C4; SETB214; J34=;
 3734/3: 304 000 230|224 027 315                                             SETB230; J34=;
 3735/3: 304 376 305|200 334 023|204 267 315                                 SET-315; JSP9; J34;
 3737/0: 052|304 377 361|201 266 340                                   35;      ERASE; SET-15; J4;
 3740/1: 304 000 040|223 027 320                                       33;      SETB40; J30=;
 3741/1: 304 000 060|224 030 350                                             SETB60; J200=;
 3742/1: 200 267 337                                                         J35;
V-store at 03117 = 000 144 047 137 207 342                                   V15=QB144/AR13/AR36;
 3742/4: 304 000 216|220 027 337                                       36;      SETB216; J35=;
 3743/4: 203 267 320                                                         J30;
V-store at 03116 = 004 104 250 322 047 344                                   V14=QB2104/AR50/AR40;
 3744/1: 304 000 214|200 027 363                                       40;      SETB214; J41≠;
 3745/1: 171 076|204 047 050                                                 Q3; J153≥Z;
 3746/0: 171 070|304 140 000|011|170 070                                     C3; SETB60000; OR; =C3;
 3747/2: 171 024|167 357|222 047 355                                         I1; SHC-9; J43<Z;
 3750/3: 304 000 040                                                         SETB40;
 3751/0: 043|304 000 360|054                                           123;      DUPD; SETB360; AND;
 3751/5: 011|171 102|164 121|011                                             OR; M4; SHL+40; OR;
 3752/5: 200 333 305                                                   138;      JSP7;
 3753/2: 164 021|011                                                         SHL+8; OR;
 3753/5: 200 333 260|201 267 044|200 266 365                                 JSP6; J16; J32;
 3755/2: 052|171 024|042                                               43;      ERASE; I1; DUP;
 3756/0: 304 376 377|054|170 024                                             SETB177377; AND; =I1;
 3757/0: 304 101 214|015|200 146 365                                         SETB40614; NEV; J32≠Z;
 3760/1: 304 340 000|172 070                                                 SETB160000; =+C3;
 3761/0: 151 007|200 266 365                                                 M0TOQ7; J32;
 3761/5: 052|204 333 267                                               63;      ERASE; JS1P6;
                                                                       [ original source of the next page
 3762/3: 201 267 046                                                         J19;

 3763/0: 171 024|304 002 225|225 027 361                               41;      I1; SETB1225; J63=; (CLEAR *THENS);
 3764/2: 304 000 131|225 027 361                                             SETB131; J63=; (CLEAR LABELS);
 3765/2: 042|221 147 046                                                     DUP; J19=Z;
 3766/0: 304 001 237|054|304 000 214|015|223 147 372                         SETB637; AND; SETB214; NEV; J44=Z;
 3767/5: 171 024|304 000 017|054|304 000 014|015                             I1; SETB17; AND; SETB14; NEV;
 3771/3: 201 147 045                                                         J17≠Z;
 3772/0: 304 000 234                                                         SETB234;
 3772/3: 304 000 230|225 030 132                                       44;      SETB230; J61=;
 3773/3: 171 024|164 351|164 011|011                                         I1; SHL-12; SHL+4; OR;
 3774/4: 171 024|164 361|304 000 373|054                                     I1; SHL-8; SETB373; AND;
 3776/0: 304 000 040|221 030 016                                             SETB40; J45=;
 3777/0: 304 000 142|221 030 016                                             SETB142; J45=;
 4000/0: 304 000 143|221 030 016                                             SETB143; J45=;
 4001/0: 065|042|241 047 044                                                 REV; DUP; J16C2Z;
 4001/5: 171 124|170 362|100 365                                             I5; =M15; M5M15;
 4002/5: 170 216|171 210|042|171 042                                         =Q8; C8; DUP; M2;
 4004/0: 171 024|304 360 377|054                                             I1; SETB170377; AND;
 4005/0: 304 100 214|015|201 150 012                                         SETB40214; NEV; J137≠Z;
 4006/1: 052|170 222|100 225                                                 ERASE; =M9; M5M9;
 4007/0: 041|166 041|065                                                     ZERO; SHLD+16; REV;
 4007/4: 041|166 041|170 170                                                 ZERO; SHLD+16; =C7;
 4010/3: 164 341|171 042|166 341                                             SHL-16; M2; SHLD-16;
 4011/3: 052|101 225|042                                                     ERASE; =M5M9; DUP;
 4012/1: 170 210|170 124|171 216                                       137;      =C8; =I5; Q8;
 4013/1: 101 365|164 101|011                                                 =M5M15; SHL+32; OR;
 4014/0: 103 045                                                             =M5M2Q;
 4014/2: 171 062|164 101|011                                                 M3; SHL+32; OR;
 4015/1: 171 142|164 063|011                                                 M6; SHL+25; OR;
 4016/0: 065                                                                 REV;
 4016/1: 065                                                           45;      REV;
 4016/2: 171 102|164 121|011|200 333 305                                     M4; SHL+40; OR; JSP7;
 4017/4: 204 333 267                                                         JS1P6;
 4020/1: 201 267 046                                                         J19;
 4020/4: 171 024|164 113|221 047 055                                         I1; SHL+37; J155<Z;
 4021/5: 041|065|166 377                                                     ZERO; REV; SHLD-1;
 4022/3: 304 000 040|015|225 147 263                                         SETB40; NEV; J134=Z;
 4023/4: 220 047 363                                                         J41<Z;
 4024/1: 200 331 215                                                   47;      JSP1;
 4024/4: 205 270 031                                                         J48;
 4025/1: 304 000 230|220 026 374                                             SETB230; J10=;
 4026/1: 304 000 234|220 026 374                                             SETB234; J10=;
 4027/1: 304 000 245|220 026 374                                             SETB245; J10=;
 4030/1: 052|201 270 024                                                     ERASE; J47;
 4030/5: 304 002 150|201 266 340                                       49;      SET616; J4;
 4031/5: 042|304 000 002|056|223 047 131                               48;   DUP; SET2; +; J23<Z;                   [ layout altered by DHo to put label at LH edge
 4033/1: 052|171 024|205 150 030                                             ERASE; I1; J49≠Z;
 4034/1: 300 006 132|304 000 020|011                                         V26; SETB20; OR;
 4035/2: 200 333 305                                                         JSP7;
 4035/5: 204 333 330                                                         JS4P7;
 4036/2: 304 000 240|200 333 373                                             SETB240; JSP8;
 4037/2: 203 334 221                                                         JS3P754;
 4037/5: 304 001 234|101 045                                                 SETB634; =M5M2;
 4040/4: 171 042|164 101|100 120                                             M2; SHL+32; M0M5;
 4041/4: 011|101 120                                                         OR; =M0M5;
 4042/1: 304 260 141|167 003|200 320 106                                     SETB130141; SHC+1; JSE70;                                      [B130141; SHC+1; i.e. B060303; (CLOSE CH.3);
 4043/3: 017|017|017                                                         DUMMY; DUMMY; DUMMY;
 4044/0: 201 331 360                                                         JS7P1;
 4044/3: 017|017|017                                                         DUMMY; DUMMY; DUMMY;
                                                                       [ original source of the next page
 4045/0: 320 013 126|320 013 127|166 041|167 341|321 013 127                 Z9; Z8; SHLD+16; SHC-16; =Z8;
 4047/1: 052                                                                 ERASE; (COPY OF FIRST FREE LABEL NUMBER);
 4047/2: 202 266 341                                                         J162;
V-store at 03133 = 000 000 004 022 336 010                                   V27=Q0/B2022/B157010;
V-store at 03132 = 001 000 000 000 001 214                                   V26=Q256/0/B614;
V-store at 03126 = 000 001 000 000 110 300                                   V22=Q1/0/B44300;
V-store at 03127 = 110 310 310 314 210 300                                   V23=B2214431063104300;
V-store at 03130 = 000 000 000 000 133 340                                   V24=Q0/0/B55740;
V-store at 03131 = 133 350 332 334 233 360                                   V25=B2676433267115760;
 4047/5: 304 000 204|205 030 053                                       80;      SETB204; J81≠;
 4050/5: 265 110 052                                                         J82C4NZ; (LAST BS NOT AN IDENTIFIER );
 4051/2: 304 007 000|172 024|304 000 007|056                                 SETB3400; =+I1; SET7; +;
 4052/5: 304 000 007|201 270 131                                       82;      SET7; J62;
 4053/5: 304 000 224|225 030 052                                       81;      SETB224; J82=; (CLOSING EXPRESSION BRACKET );
 4054/5: 171 362|200 334 175                                                 M15; JSP15;
 4055/4: 204 270 056                                                         J83;
 4056/1: 205 270 133                                                         J84;
 4056/4: 042|223 047 131                                               83;      DUP; J23<Z;
 4057/2: 220 107 337                                                         J35>Z; (INVALID PARAMETER COMMENT);
 4057/5: 304 007 204|200 333 260                                             SETB3604; JSP6;
 4060/5: 201 267 044                                                         J16;
 4061/2: 170 030|052|304 000 246                                             =C1; ERASE; SETB246;
 4062/2: 200 266 374                                                         J10;

V-store at 03112 = 300 000 250 062 250 047                                   V10=QB140000/AR90/AR80;

                                                                             ( ROUND BRACKETS . IF . THEN . ELSE );
 4062/5: 304 000 265|205 030 064                                       90;      SETB265; J91≠; (NOT := );
 4063/5: 304 000 107|201 270 131                                             SETB107; J62;
 4064/5: 042|164 371|304 000 010|036|170 370                           91;      DUP; SHL-4; SET8; -; =C15;
 4066/2: 263 370 076                                                         J92C15NZ; ( NOT IF );
 4066/5: 304 000 027|065|041|171 076|204 050 072                             SETB27; REV; ZERO; Q3; J93≥Z;
 4070/3: 052|304 000 131|200 333 260                                         ERASE; SETB131; JSP6;
 4071/4: 201 267 046                                                         J19;
 4072/1: 304 000 002                                                         SET2; (STATEMENT IF);
 4072/4: 043|056|012|164 021|056|200 333 260                           93;      DUPD; +; PERM; SHL+8; +; JSP6;
 4074/1: 201 267 044                                                         J16;
 4074/4: 065|201 270 131                                                     REV; J62;
 4075/2: 052|204 333 267                                               78;      ERASE; JS1P6;
 4076/0: 201 267 046                                                         J19; (DENEST LABELS);
 4076/3: 171 024|304 000 377|054|304 000 131|222 030 075               92;      I1; SETB377; AND; SETB131; J78=;
 4100/3: 304 000 020|056|201 027 045                                         SETB20; +; J17≠;
 4101/4: 171 024|204 333 267                                                 I1; JS1P6; (DENEST LAST *IF OR *THEN);
 4102/3: 201 267 046                                                         J19;
 4103/0: 164 361|042|164 005|304 000 027|011                                 SHL-8; DUP; SHL+2; SETB27; OR;
 4104/3: 012|065|042|012                                                     PERM; REV; DUP; PERM;
 4105/1: 304 000 375|054|304 000 245|015|204 150 072                         SETB375; AND; SETB245; NEV; J93≠Z;
 4107/0: 011|065|201 270 131                                                 OR; REV; J62;
V-store at 03113 = 000 000 007 337 250 107                             V11=Q0/AR35/AR120;
                                                                       (FOR ETC);
 4107/5: 304 000 206|203 030 113                                       120;      SETB206; J121≠;
 4110/5: 171 076|047|065|170 076|201 047 047                                 Q3; STR; REV; =Q3; J20≥Z;
 4112/2: 042|200 333 260                                                     DUP; JSP6;(FOR TO BRACKET STACK);
 4113/0: 201 267 044                                                         J16;
 4113/3: 171 024|304 000 206|015|202 150 122                           121;      I1; SETB206; NEV; J124≠Z;
 4115/0: 304 000 326|204 030 126                                             SETB326; J122≠;
 4116/0: 204 333 267|201 267 046                                             JS1P6; J19;
 4117/0: 304 000 214|304 000 143|066                                         SETB214; SETB143; CAB;
 4120/1: 304 007 351|174 000                                                 SETAR123; =LINK;
 4121/0: 304 000 137|164 121|204 267 024                                     SETB137; SHL+40; J14;
                                                                       [ original source of the next page
 4122/2: 304 000 246|201 027 045                                       124;      SETB246; J17≠;
 4123/2: 052|171 024|042|164 361|056                                         ERASE; I1; DUP; SHL-8; +;
 4124/3: 304 000 017|054|304 000 240|011|304 000 001                         SETB17; AND; SETB240; OR; SET1;
 4126/2: 172 030                                                             =+C1;
 4126/4: 304 000 107|201 270 131                                       122;      SETB107; J62;
V-store at 03114 = 004 304 010 260 210 127                                   V12=QB2304/AR70/AR60;
                                                                             (GO TO,SEMICOLON,SQUARE BRACKETS,COLON);
 4127/4: 304 000 230|224 027 112                                       60;      SETB230; J89=;
 4130/4: 304 000 163                                                         SETB163;
 4131/1: 164 121|304 006 365|174 000|204 267 024                       62;      SHL+40; SETAR32; =LINK; J14;
 4132/5: 304 000 033|201 270 131                                       61;      SETB33; J62;

                                                                       84;      (CLOSING BRACKET ACTION);
 4133/5: 012|052|304 006 374|174 000                                         PERM; ERASE; SETAR10; =LINK;
 4135/0: 304 000 007|164 121|204 267 024                                     SET7; SHL+40; J14;

 4136/2: 171 064|042|033|027|170 064                                   128;      I3; DUP; NOT; NEG; =I3;
 4137/3: 042|164 121|065|304 000 300|036                                     DUP; SHL+40; REV; SET192; -;
 4140/5: 204 107 221                                                         J130≤Z;
 4141/2: 304 376 277|200 334 023                                             SET-321; JSP9;
 4142/2: 204 267 221                                                         J130;
 4142/5: 167 255|304 177 277|054|042|222 147 254                       127;      SHC-42; SETB77677; AND; DUP; J126=Z;
 4144/3: 304 376 300|200 334 023|203 270 311                           118;      SET-320; JSP9; J157;
 4146/0: 304 100 214|200 333 260                                       109;      SETB40214; JSP6;
 4147/0: 201 267 044                                                         J16;
 4147/3: 171 102|171 164|033|027|042                                         M4; I7; NOT; NEG; DUP;
 4150/4: 170 164|042|304 000 140|036|202 110 153                             =I7; DUP; SET96; -; J132≤Z;
 4152/2: 304 376 277|200 334 023                                             SET-321; JSP9;
 4153/2: 042|170 102                                                   132;      DUP; =M4;
 4153/5: 164 021|011|164 101|171 162                                         SHL+8; OR; SHL+32; M7;
 4155/0: 304 001 377|054|011|042                                             SETB777; AND; OR; DUP;
 4156/0: 164 133|223 150 160                                                 SHL+45; J125=Z;
 4156/5: 171 144|042|033|027|170 144                                         I6; DUP; NOT; NEG; =I6;
 4160/0: 164 025|011                                                         SHL+10; OR;
 4160/3: 241 047 044|042|103 045|200 333 305                           125;      J16C2Z; DUP; =M5M2Q; JSP7;
 4162/0: 241 047 044|304 000 254|164 101|171 170                             J16C2Z; SETB254; SHL+32; C7;
 4163/4: 166 341|052|171 124|166 341                                         SHLD-16; ERASE; I5; SHLD-16;
 4164/5: 052|171 130|170 062                                                 ERASE; C5; =M3;
 4165/4: 171 042|042|170 130|170 124                                         M2; DUP; =C5; =I5;
 4166/5: 103 045|304 000 230|222 027 230                                     =M5M2Q; SETB230; J133=;
 4170/1: 304 000 204|015|204 147 176                                         SETB204; NEV; J108≠Z;
 4171/2: 304 000 213|200 333 305                                             SETB213; JSP7;
 4172/2: 304 200 140|151 007|154 001                                         SETB100140; M0TOQ7; C0TOQ1;
 4173/3: 205 267 171                                                         J106;
 4174/0: 304 377 375|172 370|264 366 337                               143;      SET-3; =+C15; J3C15NZ;
 4175/2: 304 000 224|015|204 147 176                                         SETB224; NEV; J108≠Z;
 4176/3: 200 334 175                                                         JSP15;
 4177/0: 201 270 217                                                         J146;
 4177/3: 304 000 230|015|204 147 176                                         SETB230; NEV; J108≠Z;
 4200/4: 304 000 233|200 333 305                                             SETB233; JSP7;
 4201/4: 143 020|142 020|171 030|041|166 125                                 DC1; NC1; C1; ZERO; SHLD+42;
 4203/1: 200 147 307|164 341|171 130|170 362                                 J104≠Z; SHL-16; C5; =M15;
 4204/4: 152 057|141 360|100 365|011|101 365                                 I2TOQ15; M-I15; M5M15; OR; =M5M15;
 4206/1: 304 020 000|172 070|304 000 140|170 162                             SETB10000; =+C3; SETB140; =M7;
 4207/5: 157 051                                                             Q2TOQ9;
 4210/1: 200 331 215|203 267 131                                       166;      JSP1; J23;
 4211/1: 304 000 200|200 030 215                                             SETB200; J167≠;
 4212/1: 052|200 331 215                                               168;      ERASE; JSP1;
 4212/5: 203 267 131                                                         J23;
 4213/2: 304 000 230|201 030 212                                             SETB230; J168≠;
                                                                       [ P3; J4;
 4224/1: 304 014 310|042|170 223|036|170 230                                 SETAYB0; DUP; =RM9; -; =C9;
 4225/4: 304 000 271|203 030 227                                             SETB271; J65≠;
 4226/4: 171 076|224 050 240                                                 Q3; J64<Z;
 4227/3: 042|304 000 265|015|304 000 100|065                           65;      DUP; SETB265; NEV; SETB100; REV;
 4231/0: 204 150 232                                                         J68≠Z;
 4231/3: 304 002 000|011|200 267 120                                   67;      SETB1000; OR; J25;
 4232/4: 065|042|012                                                   68;      REV; DUP; PERM;
 4233/1: 304 000 211|015|200 147 120                                         SETB211; NEV; J25≠Z; (NOT [);
 4234/2: 171 076|167 011|047|033|164 017                                     Q3; SHC+4; STR; NOT; SHL+7;
 4235/4: 170 210|041|033|050|167 371                                         =C8; ZERO; NOT; CONT; SHC-4;
 4236/5: 170 076|240 207 120                                                 =Q3; J25C8Z; (INNER [);
 4237/4: 205 333 351                                                         JS6P7; (HOLD);
 4240/1: 200 267 120                                                         J25;
 4240/4: 052|304 000 131|042|164 117|171 142                           64;      ERASE; SETB131; DUP; SHL+39; M6;
 4242/1: 166 363|052|171 062|166 361|052                                     SHLD-7; ERASE; M3; SHLD-8; ERASE;
 4243/3: 171 102|166 361|052|320 013 126|167 041                             M4; SHLD-8; ERASE; Z9; SHC+16;
 4245/1: 042|033|027|167 341|321 013 126                                     DUP; NOT; NEG; SHC-16; =Z9;
 4246/3: 166 341|052|171 056                                                 SHLD-16; ERASE; Q2; (LABEL DECN. CODEWORD);
 4247/2: 241 047 044                                                   69;      J16C2Z;
 4247/5: 102 220|103 045|262 230 247                                         M0M9Q; =M5M2Q; J69C9NZ;
 4251/0: 170 376|171 124|170 370|171 122|172 362                             =Q15; I5; =C15; M5; =+M15;
 4252/4: 171 356|171 376|200 333 224                                         Q14; Q15; JSP5;
 4253/5: 202 270 255                                                         J79;
 4254/2: 052                                                                 ERASE;
 4254/3: 170 356|203 270 144                                           77;      =Q14; J118;
 4255/2: 203 150 254                                                   79;      J77≠Z;
 4255/5: 170 356|241 047 044                                                 =Q14; J16C2Z;
 4256/4: 042|103 045|041|065|205 267 352                                     DUP; =M5M2Q; ZERO; REV; J138;

 4260/0: 304 000 211|203 030 263|154 201                               70;      SETB211; J71≠; C8TOQ1;
 4261/2: 304 001 000|172 024                                                 SETB400; =+I1;
 4262/1: 033|027                                                             NOT; NEG;
 4262/3: 200 333 305|200 266 365                                       72;      JSP7; J32;
 4263/3: 304 000 232|201 030 274                                       71;      SETB232; J73≠;
 4264/3: 171 362|203 050 262                                                 M15; J72≥Z;
 4265/2: 200 333 305                                                         JSP7;
 4265/5: 200 331 215                                                         JSP1;
 4266/2: 203 267 131                                                         J23;
 4266/5: 304 000 265|203 030 271                                             SETB265; J74≠;
 4267/5: 205 333 334                                                         JS5P7;
 4270/2: 304 002 000|011|202 333 326                                         SETB1000; OR; JS3P7;
 4271/3: 204 333 356                                                   74;      JS7P7;
 4272/0: 171 076|167 011|047|052|167 371                                     Q3; SHC+4; STR; ERASE; SHC-4;
 4273/2: 170 076|200 266 374                                                 =Q3; J10;
 4274/1: 304 000 231|203 030 262                                       73;      SETB231; J72≠;
 4275/1: 171 362|065|042|200 333 305                                         M15; REV; DUP; JSP7;
 4276/2: 065|161 377|001|161 125                                             REV; SHA-1; VR; SHA+42;
 4277/2: 164 323|204 210 303                                           88;      SHL-23; J76NV;
 4300/1: 304 376 275|200 334 023                                       144;      SET-323; JSP9;
 4301/1: 203 270 311                                                         J157;
 4301/4: 304 377 372|201 266 340                                       42;      SET-6; J4;
                                                                       [ original source of the next page
 4302/4: 200 334 112                                                   75;      JSP16;
 4303/1: 204 270 301                                                         J42;
 4303/4: 042|100 245|011|103 245|264 250 302                           76;      DUP; M5M10; OR; =M5M10Q; J75C10NZ;
 4305/1: 052|304 300 000|170 070|304 000 231|205 027 311                     ERASE; SETB140000; =C3; SETB231; J141≠;

 4307/1: 052|200 331 215                                                     ERASE; JSP1;
 4307/5: 203 267 131                                                         J23;
 4310/2: 143 020|142 020|200 267 260                                         DC1; NC1; J139;

 4311/3: 171 024|042|304 000 377|054                                   157;      I1; DUP; SETB377; AND;
 4312/4: 304 000 214|015|042|066                                             SETB214; NEV; DUP; CAB;
 4313/4: 164 351|304 000 004|015|011|222 150 317|225 147 053                 SHL-12; SET4; NEV; OR; J160=Z; J156=Z;
 4315/5: 204 333 267|201 267 046|203 270 311                                 JS1P6; J19; J157;
 4317/2: 052|171 162|164 125                                           160;      ERASE; M7; SHL+42;
 4320/1: 151 007|225 047 053                                                 M0TOQ7; J156<Z;
 4321/0: 100 020|304 004 000|011|101 020                                     M0M1; SETB2000; OR; =M0M1;
 4322/2: 205 267 053                                                         J156;
 4322/5: 042|304 000 100|054|225 150 325                               50;      DUP; SETB100; AND; J51=Z; (NOT *TRUE OR *FALSE);
 4324/1: 304 000 040|036|304 000 107|201 270 131                             SETB40; -; SETB107; J62;
 4325/5: 304 000 001|065|154 010                                       51;      SET1; REV; C0TOQ8;
 4326/5: 304 000 215|224 030 333                                             SETB215; J54=; ([);
 4327/5: 052|052|304 376 274|200 334 023                                     ERASE; ERASE; SET-324; JSP9;
 4331/1: 203 270 311                                                         J157;
 4331/4: 200 333 260                                                   52;      JSP6; ([ TO BRACKET STACK);
 4332/1: 201 267 044                                                         J16;
 4332/4: 200 331 215                                                   53;      JSP1; (FETCH NEXY ABS);
 4333/1: 203 267 131                                                         J23;
 4333/4: 042|066|041|166 021|170 230                                   54;      DUP; CAB; ZERO; SHLD+8; =C9;
 4334/5: 011|240 230 341                                                     OR; J56C9Z;
 4335/3: 200 334 136                                                         JS6P45;
 4336/0: 263 210 340                                                         J55C8NZ;
 4336/3: 143 200|164 101|304 000 215|011|200 333 305                         DC8; SHL+32; SETB215; OR; JSP7;
 4340/2: 041                                                                 ZERO;
 4340/3: 052|171 230                                                   55;      ERASE; C9; (MARKER FOR OUTPUT);
 4341/0: 065|304 000 377|222 030 347                                   56;      REV; SETB377; J57=;
 4342/1: 304 000 215|224 030 331                                             SETB215; J52=; ([);
 4343/1: 304 000 235|015|204 150 332                                         SETB235; NEV; J53≠Z; (NOT ]);
 4344/2: 204 333 267                                                         JS1P6;
 4344/5: 201 267 044                                                         J16;
 4345/2: 171 024|304 000 215|015|224 150 332                                 I1; SETB215; NEV; J53=Z; (NOT LAST ]);
 4346/5: 304 000 377                                                         SETB377;
 4347/2: 244 230 333                                                   57;      J54C9Z; (FILL LAST OUTPUT WORD WITH DUMMY ABS);
 4347/5: 052|052|200 266 365                                                 ERASE; ERASE; J32;


                                                                       200;      (CODE BODIES);
                                                                             (V30= LAST D LIST ENTRY);
V-store at 03137 = 027 024 031 026 230 242                                   V31=B0561 2031 0551 4242;       [027 024 031 026 230 242 LINK;=
V-store at 03140 = 044 000 030 002 034 230                                   V32=B1100 0030 0041 6230;       [044 000 030 002 034 230 Y0M2Q;
V-store at 03141 = 000 001 000 001 006 146                                   V33=Q1/1/AV38;
V-store at 03142 = 000 004 000 001 006 143                                   V34=Q4/1/AV35;
V-store at 03143 = 236 030 321 024 002 230                                   V35=B4741 4321 0500 1230;       [236 030 321 024 002 230  M-I2;
V-store at 03144 = 236 044 000 030 002 230                                   V36=B4742 2000 0600 1230;       [236 044 000 030 002 230  Y0M2;
V-store at 03145 = 242 027 024 031 026 230                                   V37=B5041 3424 0621 3230;       [242 027 024 031 026 230 =LINK;
V-store at 03146 = 020 043 024 037 001 230                                   V38=B0402 1424 0760 0630;       [020 043 024 037 001 230 EXIT1;
V-store at 03147 = 240 033 000 230 377 377                                   V39=B5001 5400 4617 7777;       [240 033 000 230 377 377  P0;
V-store at 03150 = 025 036 033 000 000 000                                   V40=B0521 7033 0000 0000;       [025 036 033 000 000 000 JSP000
 4350/4: 052|171 076|200 051 026                                             ERASE; Q3; J201≥Z;
 4351/4: 171 024|304 101 214|015|200 151 026                                 I1; SETB40614; NEV; J201≠Z;
 4353/1: 141 040|100 045|042|301 006 136|164 301                             M-I2; M5M2; DUP; =V30; SHL-32;
                                                                       [ original source of the next page
 4354/5: 170 251|157 057|154 257|171 122|172 362                             =RC10; Q2TOQ15; C10TOQ15; M5; =+M15;
 4356/3: 171 356|171 376|200 333 224                                         Q14; Q15; JSP5; (CHECK FORMAL LIST);
 4357/4: 224 150 361                                                         J202=Z;
 4360/1: 304 376 157|200 334 023                                       216;      SET-401; JSP9; (FORMALS INVALID IN CODE);
 4361/1: 203 270 311                                                         J157;
 4361/4: 170 356|241 370 360                                           202;      =Q14; J216C15Z;
 4362/3: 171 362|204 150 363                                                 M15; J203≠Z; (NOT STARRED);
 4363/2: 152 012                                                             I0TOQ10; (SET STARRED FUNCTION MARKER);
 4363/4: 304 000 004|170 270|304 000 241                               203;      SET4; =C11; SETB241; (CODE SPEC SEPARATOR);
 4365/0: 304 000 241|015|200 151 027                                   204;       SETB241; NEV; J205≠Z; (WRONG SEPARATOR);
 4366/1: 200 331 215                                                         JSP1;
 4366/4: 203 267 131                                                         J23;
 4367/1: 042|304 000 011|036|220 111 027                                     DUP; SET9; -; J205>Z; (NONNUMERIC);
 4370/3: 200 333 100                                                         JSP4; (NUMBER READ);
 4371/0: 200 271 027                                                         J205; (FAIL);
 4371/3: 200 271 027                                                         J205; (FLOATING POINT);
 4372/0: 065|143 260|260 270 365                                             REV; DC11; J204C11NZ;
 4373/0: 304 000 237|036|026|304 000 007|036|200 151 027                     SET159; -; ABS; SET7; -; J205≠Z; (WRONG TERMINATOR);
 4375/0: 304 000 041|164 121|171 102|304 240 033                             SETB41; SHL+40; M4; SETB120033;
 4376/4: 164 101|304 000 002|154 013|200 334 103                             SHL+32; SET2; C0TOQ11; JSP14; (P<LEVEL>V<VSTORES>);
 4400/2: 200 271 027                                                         J205;
 4400/5: 304 000 016|036|220 111 027                                         SET14; -; J205>Z; (TOO MANY SJNS);
 4402/0: 041|166 131|200 151 027                                             ZERO; SHLD+44; J205≠Z; (TOO MANY QS);
 4403/0: 065|166 371|200 151 027                                             REV; SHLD-4; J205≠Z; (TOO MANY NS);
 4404/0: 171 102|166 341|052|304 000 216|011                                 M4; SHLD-16; ERASE; SETB216; OR;
 4405/3: 304 000 001|164 053|011|200 333 305                                 SET1; SHL+21; OR; JSP7; (CODE WORD);
 4407/0: 171 244|223 151 012                                                 I10; J207=Z; (*FUNCTION);
 4407/5: 300 006 137|200 334 210                                             V31; JSP754;
 4410/5: 300 006 140|200 334 210                                             V32; JSP754; (LINK≠Y0M2Q/);
 4411/5: 143 260|143 260                                                     DC11; DC11;

 4412/3: 304 000 236|201 334 220                                       207;      SETB236; JS1P754; (SP BEFORE INSTRUCTION);
 4413/3: 200 331 215                                                         JSP1;
 4414/0: 203 267 131                                                         J23;
 4414/3: 304 000 360|203 031 030                                             SETB360; J210≠; (NOT *EXIT);
 4415/3: 052|300 006 141|170 236|171 244|221 151 020                         ERASE; V33; =Q9; I10; J209=Z;
 4417/2: 300 006 142|170 236                                                 V34; =Q9;
 4420/1: 102 220                                                       209;      M0M9Q;
 4420/3: 200 334 210                                                   223;      JSP754;
 4421/0: 200 334 076                                                         JSP13;
 4421/3: 261 231 020                                                         J209C9NZ;(OUTPUT APPROPRIATE SEQUENCE);
 4422/0: 200 331 215                                                   211;      JSP1;
 4422/3: 203 267 131                                                         J23;
 4423/0: 304 000 237|036|026|304 000 007|036|223 151 012                     SET159; -; ABS; SET7; -; J207=Z; (TERMINATOR);
 4425/0: 304 376 155|203 271 027                                       212;      SET-403; J165;
 4426/0: 304 376 160|203 271 027                                       201;      SET-400; J165;
 4427/0: 304 376 156                                                   205;       SET-402;
 4427/3: 200 334 023                                                   165;      JSP9;
 4430/0: 203 270 311                                                         J157;
 4430/3: 304 000 300|201 031 036                                       210;      SETB300; J231≠; (NOT *ALGOL);
 4431/3: 052|300 006 147|200 334 210                                         ERASE; V39; JSP754; (P0/);
 4432/4: 300 006 136|103 045                                                 V30; =M5M2Q;
 4433/3: 200 331 215                                                         JSP1;
 4434/0: 203 267 131                                                         J23;
 4434/3: 304 000 230|220 026 374                                             SETB230; J10=;
 4435/3: 052|200 271 025                                                     ERASE; J212;
 4436/1: 042|304 000 012|036|200 051 046                               231;      DUP; SET10; -; J213≥Z; (NOT DIGIT);
 4437/3: 304 000 240|201 334 220                                             SETB240; JS1P754;
 4440/3: 154 013|202 271 042                                                 C0TOQ11; J214; (NEWLINE FOR LABEL);
 4441/2: 200 331 215                                                   208;      JSP1;
                                                                       [ original source of the next page
 4441/5: 203 267 131                                                         J23;
 4442/2: 042|201 334 220                                               214;      DUP; JS1P754;
 4443/0: 304 000 237|036|026|304 000 007|036|202 151 041                     SET159; -; ABS; SET7; -; J208≠Z;
 4445/0: 200 334 076                                                         JSP13;
 4445/3: 203 271 012                                                         J207; (SKIP TO END OF INSTRUCTION);
 4446/0: 304 000 204|224 031 063                                       213;      SETB204; J215=; (OPENING BRACKET);
 4447/0: 151 012|304 000 242|225 031 057                                     M0TOQ10; SETB242; J217=; (=);
 4450/2: 304 000 025|201 031 053                                             SETB25; J218≠; (NOT J);
 4451/2: 304 000 001                                                         SET1;
 4451/5: 170 242|200 331 215                                           219;      =M10; JSP1;
 4452/4: 203 267 131                                                         J23;
 4453/1: 304 000 215|220 031 074                                       218;      SETB215; J220=; (FORMAL INSTRUCTION);
 4454/1: 171 242|222 151 042                                                 M10; J214=Z; (1 ABS READ);
 4455/0: 065|201 334 220                                                     REV; JS1P754;
 4455/4: 171 242|222 051 042                                                 M10; J214<Z; (NOT A JUMP);
 4456/3: 304 000 001|170 270|202 271 042                                     SET1; =C11; J214;
 4457/5: 041|033|205 271 051                                           217;      ZERO; NOT; J219;
 4460/4: 052|170 356|304 376 153|200 334 023                           226;      ERASE; =Q14; SET-405; JSP9;
 4462/1: 203 270 311                                                         J157;
                                                                       222;      (USERCODE COMMENTS);
 4462/4: 200 331 215                                                         JSP1;
 4463/1: 203 267 131                                                         J23;
 4463/4: 042|201 334 220                                               215;      DUP; JS1P754;
 4464/2: 304 000 204|205 031 066                                             SETB204; J221≠; (NOT OPENING BRACKET);
 4465/2: 200 333 260                                                         JSP6;
 4465/5: 201 267 044                                                         J16;
 4466/2: 204 271 062                                                         J222;
 4466/5: 304 000 224|015|204 151 062                                   221;      SETB224; NEV; J222≠Z; (NOT CLOSING BRACKET);
 4470/0: 204 333 267                                                         JS1P6;
 4470/3: 201 267 044                                                         J16;
 4471/0: 171 024|304 101 214|015|204 151 062                                 I1; SETB40614; NEV; J222≠Z; (DENEST);
 4472/3: 304 000 230|201 334 220                                             SETB230; JS1P754;
 4473/3: 200 271 022                                                         J211;
 4474/0: 052|171 242|221 151 075                                       220;      ERASE; M10; J206=Z;
 4475/0: 052                                                                 ERASE;
 4475/1: 200 331 215                                                   206;      JSP1;
 4475/4: 203 267 131                                                         J23;
 4476/1: 042|304 000 100|036|220 051 101                                     DUP; SETB100; -; J224<Z; (ALPHA NUMERIC);
 4477/3: 304 376 154|200 334 023                                       225;      SET-404; JSP9;
 4500/3: 203 270 311                                                         J157;
 4501/0: 042|304 000 014|036|223 051 077                               224; DUP; SETB14; -; J225<Z; (NONALPHA);
 4502/2: 157 051|304 000 037|170 050|171 122|172 042                         Q2TOQ9; SET31; =C2; M5; =+M2;
 4504/1: 171 056|200 333 037                                                 Q2; JSP3; (READ FORMAL IDENTIFIER);
 4505/0: 201 266 340                                                         J4;
 4505/3: 170 376|171 362|171 022|036|221 047 044                             =Q15; M15; M1; -; J16<Z;
 4507/1: 304 000 235|015|203 151 077                                         SETB235; NEV; J225≠Z; (NOT [);
 4510/2: 154 242|171 356|171 056|200 333 224                                 C10TOQ2; Q14; Q2; JSP5;
 4511/5: 204 271 060                                                         J226; (FORMAL NOT IN LIST);
 4512/2: 065|170 356|157 222|042|304 000 377                                 REV; =Q14; Q9TOQ2; DUP; SETB377;
 4513/5: 054|304 000 171|015|027|033                                         AND; SETB171; NEV; NEG; NOT;
 4515/0: 171 242|027|033|015|200 051 025                                     M10; NEG; NOT; NEV; J212≥Z;
 4516/2: 171 242|205 111 134                                                 M10; J227≤Z; (NOT J[FORMAL]);
 4517/1: 304 000 002|171 244|036|304 000 030|164 121                         SET2; I10; -; SETB30; SHL+40;
 4521/0: 171 370|027|304 230 044|164 101                                     C15; NEG; SETB114044; SHL+32;
 4522/2: 304 000 355|300 006 150|304 000 003|200 334 103                     SET237; V40; SET3; JSP14;
 4524/2: 200 271 027                                                         J205; (JSP237/Y<FORMAL>M1/);
 4524/5: 200 334 076                                                         JSP13;
 4525/2: 164 117|224 051 130                                                 SHL+39; J229<Z; (CALL BY VALUE);
 4526/1: 304 000 316|300 006 150|304 000 003|202 334 110                     SET206; V40; SET3; JS1P14;
 4530/1: 200 271 027                                                         J205; (JSP206/);
                                                                       [ original source of the next page
 4530/4: 304 000 337|304 025 033|164 101|304 000 002|202 334 110       229;      SET223; SETB12433; SHL+32; SET2; JS1P14;
 4533/0: 200 271 027                                                         J205; (JP223/);
 4533/3: 304 000 001|170 270|200 271 022                                     SET1; =C11; J211;
                                                                       227;      (FETCH OR STORE);
 4534/5: 042|304 000 030|054|171 242|054                                     DUP; SETB30; AND; M10; AND;
 4536/1: 200 151 025                                                         J212≠Z; (STORE TO NON<TYPE> FORMAL);
 4536/4: 304 001 370|054|304 000 140|015|223 151 146                         SETB770; AND; SETB140; NEV; J230=Z;
 4540/3: 304 000 002|171 244|036|304 000 030|164 121                         SET2; I10; -; SETB30; SHL+40;
 4542/2: 171 370|027|304 236 044|171 242|161 025                             C15; NEG; SETB117044; M10; SHA+10;
 4544/0: 036                                                                 -; (<SP:=>Y<FORMAL>M<1;2>/);
 4544/1: 164 101|304 000 002|200 334 103                               233;      SHL+32; SET2; JSP14;
 4545/3: 200 271 027                                                         J205;
 4546/0: 200 271 022                                                         J211;
                                                                       230;      (<TYPE> FORMALS BY NAME);
 4546/3: 304 000 002|171 244|036|304 000 030|164 121                         SET2; I10; -; SETB30; SHL+40;
 4550/2: 171 370|171 242|056|027                                             C15; M10; +; NEG;
 4551/2: 304 230 044|164 101|304 000 352|300 006 150                         SETB114044; SHL+32; SET234; V40;
 4553/1: 304 000 003|200 334 103                                             SET3; JSP14;
 4554/1: 200 271 027                                                         J205; (JSP234/Y<F:F+1>M1);
 4554/4: 200 334 076                                                         JSP13;
 4555/1: 304 000 316|300 006 150|304 000 003|202 334 110                     SET206; V40; SET3; JS1P14;
 4557/1: 200 271 027                                                         J205; (JSP206/);
 4557/4: 171 242|223 051 163                                                 M10; J228<Z; (STORE);
 4560/3: 304 000 354|300 006 150|304 000 003|202 334 110                     SET236; V40; SET3; JS1P14;
 4562/3: 200 271 027                                                         J205; (JSP236/);
 4563/0: 200 271 022                                                         J211;
 4563/3: 304 000 003|304 242 030|164 101|304 000 002|202 334 110       228;      SET3; SETB121030; SHL+32; SET2; JS1P14;
 4565/5: 200 271 027                                                         J205; (=M3/);
 4566/2: 304 000 353|300 006 150|304 000 003|202 334 110                     SET235; V40; SET3; JS1P14;
 4570/2: 200 271 027                                                         J205; (JSP235/);
 4570/5: 304 000 003|304 000 030|164 121|041                                 SET3; SETB30; SHL+40; ZERO;
 4572/2: 304 242 044|201 271 144                                             SETB121044; J233; (=Y0M3/);


=== Start P1V16; at address 2445/4615
                                                                       P1V16;      (FETCH ABS WITH LIBRARY EXTRODION);
                                                                             (NORMAL ENTRY-FETCHS 1 ABS TO N1*D47);
                                                                             (ENTRY 6-INITIALISE CHANNEL 6,BUFFERS IN N1 AND N2);
                                                                             (ENTRY 8-INITIALSE CHANNEL 8);
                                                                             (ENTRY 2-INITIALISE CHANNEL 2);
                                                                             (ENTRY 3-START ROD FROM LIBRARY AO);
                                                                             (ENTRY 4-CLOSE CHANNEL,NUMBER IN N1);
                                                                             (ENTRY 7-CLOSE CHANNEL 6);
                                                                             (ENTRY 9-CLOSE CHANNEL 8);
                                                                             (NORMAL EXIT-EXIT2);
                                                                             (FAILURE EXIT-EXIT1,N1=FAILURE NUMBER);
                                                                             (-1 EM,-2 INITIAL EM,-3 PANACEA);
                                                                             (-4 INVALID BS OF POST BLOCK NUMCHECK FAILURE);
                                                                             (-5 INVALID CRLF ON 5-CHANNEL);
                                                                             (-7 INVALID LIBRARY CALL);
V-store at 04602 = 000 000 007 013 040 225                                   V6=B0702620225; (CNCRRCRL);
V-store at 04603 = 050 242 212 050 242 212                                   V7=B1212121212121212;
V-store at 04604 = 000 000 000 101 004 020                                   V8=B20202020;
V-store at 04605 = 011 206 011 210 337 000                                   V9=QAV10/AV12/B157400;
V-store at 04610 = 377 377 377 377 377 377                                   V12=-1; (MASH FOR LIBRARY FIND);   [ sic -- did it mean HASH
V-store at 04611 = 377 360 000 000 000 000                                   V13=B7777000000000000;
V-store at 04612 = 015 000 015 037 000 000                                   V14=QAYL0/AYL31/0;
V-store at 04613 = 015 040 015 077 000 000                                   V15=QAYL32/AYL63/0;
V-store at 04614 = 000 000 000 000 000 000                                   V16=0;                             [ V-store added by DHo -- see below
 4615/0: 300 011 175|042|170 370|164 301|304 000 002                   16;      V1; DUP; =C15; SHL-32; SET2;
 4616/5: 015|221 151 376                                                     NEV; J74=Z;
 4617/3: 300 011 174                                                   24;      V0; (PORTIAL WORD AT ABS);       [ sic
                                                                       [ original source of the next page
 4620/0: 041|166 021                                                   14;      ZERO; SHLD+8;
 4620/3: 065|042|200 151 237                                           15;      REV; DUP; J10≠Z; (ABS REMAINING);
 4621/2: 052|263 331 235                                                     ERASE; J13C13NZ; (NOT END OF LINE);
 4622/0: 264 371 224                                                         J23C15NZ; (NOT END OF BLOCKS);
 4622/3: 171 350|203 331 363|200 360 000                               11;      C14; JS27; EXIT1;
 4623/5: 304 000 036|170 370                                                 SET30; =C15; (RESET BLOCKS WORD COUNT);
 4624/4: 143 360|102 320|041|166 021|027                               23;      DC15; M0M13Q; ZERO; SHLD+8; NEG;
 4626/0: 033|167 123|042|200 051 232                                         NOT; SHC+41; DUP; J22≥Z;
 4627/1: 164 005|164 253|042|172 322|027                                     SHL+2; SHL-43; DUP; =+M13; NEG;
 4630/3: 172 370|052|243 371 222                                             =+C15; ERASE; J11C15Z; (BUFFERNOW EMPTY);
 4631/3: 204 271 224                                                         J23; (SKIP N DUMMY LINE);

 4632/0: 167 005|042|166 253|065|205 031 233                           22;      SHC+2; DUP; SHLD-43; REV; J28≠;
 4633/3: 143 140                                                             DC6;
 4633/5: 042|170 330                                                   28;      DUP; =C13; (LINE WORD COUNT);
 4634/2: 027|172 370|011|200 271 220                                         NEG; =+C15; OR; J14;

 4635/3: 164 121|102 320|166 261|203 271 220                           13;      SHL+40; M0M13Q; SHLD-40; J15;
 4637/0: 301 011 174|171 370|200 331 242                               10;      =V0; C15; JS40;
 4640/2: 304 000 377|203 032 067                                             SETB377; J17≠;
 4641/2: 052|200 271 215                                                     ERASE; J16;

 4642/0: 164 101|300 011 175|164 341|166 041|301 011 175               40;      SHL+32; V1; SHL-16; SHLD+16; =V1;
 4644/0: 052|200 360 000                                                     ERASE; EXIT1;

                                                                       29;      (END OF LIBRARY ROUTINE,RESORT TO PREVIOUS CHANNEL AFTER);
                                                                             (LOST LIBRARY REGREST,RED NEXT REQREST OTHERWISE);    [ sic - are these original typos for REQUEST, or jargon?
 4644/4: 052|304 140 000|200 320 106                                         ERASE; SETB60000; JSE70; (CLOSE CHANNEL 8);                    [B60000;
 4645/5: 201 271 315                                                         J20;
 4646/2: 300 011 176|301 011 174|300 011 177|301 011 175|300 011 200         V2; =V0; V3; =V1; V4;
 4650/5: 170 336|300 011 201|170 356|300 011 214|167 013                     =Q13; V5; =Q14; V16; SHC+5;             [ originally this flag was in Q3, which is also used elsewhere - DHo
 4652/5: 164 003|047|002|167 365|301 011 214                                 SHL+1; STR; =TR; SHC-6; =V16;
 4654/2: 200 351 215                                                         J16NTR; (AFTER LOST LIBRARY REQUEST IN SEGMENT);
 4654/5: 304 000 320                                                         SETB320;
 4655/2: 304 000 320|205 031 312                                       35;      SETB320; J18≠; (NOT LIBRARY);
 4656/2: 300 011 214|164 013|224 051 264                                     V16; SHL+5; J30<Z; (LIBRARY CALL IN LIBRARY ROUTINE);    [ originally in Q3 -- DHo
 4657/4: 052|200 331 215                                                     ERASE; JSP1;
 4660/2: 200 360 000                                                         EXIT1;
 4660/5: 042|164 365|204 151 264                                             DUP; SHL-6; J30≠Z; (INITIAL BS NOT ALPHARUSERIC);
 4661/5: 200 331 215                                                         JSP1;
 4662/2: 201 271 265                                                         J31;
 4662/5: 042|304 000 012|036|224 051 267                                     DUP; SET10; -; J32<Z; (NEXT BS0-9);
 4664/1: 042                                                                 DUP; (FAILURE PATH,LIBRARY CALLS);
 4664/2: 052                                                           33;      ERASE;
 4664/3: 052                                                           34;      ERASE;
 4664/4: 304 377 371                                                   30;      SET-7;
 4665/1: 065|052|200 360 000                                           31;      REV; ERASE; EXIT1;

 4666/0: 304 000 014|304 000 230|041|201 271 271                       3;      SET12; SETB230; ZERO; J38;
                                                                             (CALL LIBRARY A0);

 4667/4: 200 333 100                                                   32;      JSP4; (READ LIBRARY NUMBER);
 4670/1: 203 271 264                                                         J34; (NUMBER REED FAIL);
 4670/4: 202 271 264                                                         J33; (FLOABING POINT);
 4671/1: 300 011 203|065|067|300 011 204|011                           38;      V7; REV; FRB; V8; OR;
 4672/4: 041|166 061|202 151 264                                             ZERO; SHLD+24; J33≠Z; (NUMBER>9999);
 4673/4: 066|300 011 202|056|166 045|301 011 206                             CAB; V6; +; SHLD+18; =V10;
 4675/2: 301 011 207|041|033|065|304 000 246                                 =V11; ZERO; NOT; REV; SETB246;
 4676/5: 220 031 301                                                         J36=; (TERMINATOR COMMA);
 4677/2: 304 000 230|015|204 151 264                                         SETB230; NEV; J30≠Z; (INCALID TERMINATOR);
                                                                       [ original source of the next page
 4700/3: 164 003|042                                                         SHL+1; DUP;
 4701/0: 065|164 135|164 367|300 011 214|011                           36;      REV; SHL+46; SHL-5; V16; OR;    [ originally in Q3 -- DHo
 4702/3: 301 011 214|300 011 174|301 011 176|300 011 175|301 011 177         =V16; V0; =V2; V1; =V3;
 4705/0: 171 336|301 011 200|171 356|301 011 201|300 011 205                 Q13; =V4; Q14; =V5; V9;
 4707/1: 200 320 106                                                         JSE70; (FIND LIBRARY TECT);    [ sic surely a typo for TEXT    [B157400;
 4707/4: 204 271 264                                                         J30;
 4710/1: 052|300 011 212|300 011 213|203 331 357                             ERASE; V14; V15; JS8P1;
 4711/5: 200 360 000                                                         EXIT1; (INITIALISE LIBRARY READ);
 4712/2: 200 271 215                                                         J16; (FETCH FIRST ABS);

 4712/5: 200 334 051                                                   18;      JSP11; (CHECK ABS FOR EDITING SYMBOLS);
 4713/2: 200 271 215                                                         J16; (IGNORE EDIBIG SYBMOLOS);
 4713/5: 042|200 333 373                                                     DUP; JSP8; (ABS TO CVNT LINE BUFFER);
 4714/3: 202 360 001                                                         EXIT2;

 4715/0: 052                                                           19;      ERASE; (PANACEA FAILURS);   [ sic surely a typo for FAILURE
 4715/1: 304 377 375|200 360 000                                       20;      SET-3; EXIT1;

 4716/1: 304 000 006|204 271 317                                       6;      SET6; J5; (OPEN CHANNEL 6);

 4717/1: 304 000 002                                                   2;      SET2; (OPEN CHENNEL 2);      [ sic surely a typo for CHANNEL
 4717/4: 042|164 101|301 011 175|170 351                               5;      DUP; SHL+32; =V1; =RC14;
 4721/0: 170 376|304 242 100|171 350|011|170 362                             =Q15; SETB121100; C14; OR; =M15;
 4722/4: 171 376|200 320 106                                                 Q15; JSE70; (INITIATE CHANND);                                 [B121100; C14; OR;
 4723/3: 201 271 315                                                         J20;
 4724/0: 171 350|304 000 002|015|202 151 327                                 C14; SET2; NEV; J41≠Z;
 4725/3: 202 332 161                                                         JS11P2; (STORE START ADDRESS,INITIALISE CHARCTER FETCH);  [ sic CHARACTER
 4726/0: 304 012 250|170 343|204 271 356                                     SETAV35P10; =RM14; J42;

 4727/2: 304 000 001|164 121|301 011 174|263 151 356                   41;      SET1; SHL+40; =V0; J25C6NZ;
 4731/1: 320 013 074|223 051 356                                             Z35; J25<Z;
 4732/1: 170 362|145 360|153 375|304 000 014|172 322                   26;      =M15; I15=-1; IM15TOQ13; SET12; =+M13;
 4734/0: 304 377 302|103 320                                                 SETB177702; =M0M13Q;
 4734/5: 304 000 007|172 362|300 000 007|103 320|041                         SET7; =+M15; E7; =M0M13Q; ZERO;
 4736/4: 103 320|304 000 006|170 330                                         =M0M13Q; SET6; =C13;
 4737/5: 102 360|304 000 002|015|103 320                                     M0M15Q; SET2; NEV; =M0M13Q;
 4741/1: 017|017|017|017|017|102 360|103 320                           *43;      M0M15Q; =M0M13Q;
 4742/4: 017|017|177 320                                               *;      J43C13NZS;
 4743/2: 041|103 320|102 360|042|321 013 062                                 ZERO; =M0M13Q; M0M15Q; DUP; =Z45;
 4744/5: 103 320|100 360|042|321 013 063|164 061                             =M0M13Q; M0M15; DUP;  =Z44; SHL+24;
 4746/3: 164 321|103 320|041|101 320|304 000 015                             SHL-24; =M0M13Q; ZERO; =M0M13; SET13;
 4750/1: 172 322|171 362|170 324|304 340 303|170 330                         =+M13; M15; =I13; SETB160303; =C13;
 4752/0: 171 336|167 041|200 320 106                                         Q13; SHC+16; JSE70; (PRINT TITLE);                             [SETB160303;
 4753/1: 201 271 315                                                         J20;
 4753/4: 154 015|304 377 365|172 322|171 336|304 000 010                     C0TOQ13; SET-11; =+M13; Q13; SET8;
 4755/4: 200 220 000|143 140                                                 OUT; DC6;
 4756/3: 052                                                           25;      ERASE;
 4756/4: 157 015|202 360 001                                           42;      Q0TOQ13; EXIT2; (END OF OPEN);

 4757/3: 041|204 271 317                                               8;      ZERO; J5; (OPEN CHANNEL 8);

 4760/1: 304 000 006                                                   7;      SET6; (CLOSE CHANNEL 6);
 4760/4: 304 140 000|011|200 320 106                                   4;      SETB60000; OR; JSE70;                                        [B60000; OR;
 4761/5: 201 271 315                                                         J20;
 4762/2: 202 360 001                                                         EXIT2;
 4762/5: 041|204 271 360                                               9;      ZERO; J4; (CLOSE CHANNEL 8);

                                                                       27;      (FETCH NEXT BLOCKS,SUMCHECK LOST);
 4763/3: 304 340 000|011|200 320 106                                         SETB160000; OR; JSE70;                                         [B160000; OR;
 4764/4: 200 271 315                                                         J19;
                                                                       [ original source of the next page
 4765/1: 170 336|304 000 036|170 371|151 337|041                             =Q13; SET30; =RC15; M13TOQ15; ZERO;
 4766/5: 042                                                                 DUP;
 4767/0: 102 360|047|057                                               *12;      M0M15Q; STR; +D;
 4767/4: 017|017|177 360                                               *;      J12C15NZS;
 4770/2: 100 360|164 301|047|057                                             M0M15; SHL-32; (BLOCK NO.); STR; +D;
 4771/2: 140 340|164 041|171 342|166 341|052                                 M+I14; SHL+16; M14; SHLD-16; ERASE;
 4772/5: 102 360|015|065|100 360|015                                         M0M15Q; NEV; REV; M0M15; NEV;
 4774/0: 011|201 151 375                                                     OR; J21≠Z; (SUM SEEPERCE CHECK FAIL);     [ sic
 4774/4: 202 360 001                                                         EXIT2;
 4775/1: 304 377 374|200 360 000                                       21;      SET-4; EXIT1; (SUM,SEQUENCE FAIL);

 4776/1: 001|204 332 077                                               74;      (FETCH ABS FROM CHENNEL 2); VR; JS75;    [ sic
 4776/5: 201 272 077                                                         J69;
 4777/2: 042|205 052 000                                                     DUP; J76≥Z;
 5000/0: 161 271|201 272 077                                                 SHA-36; J69; (EM; EXIT1 WITH N1=-1 OR-2);
 5000/5: 042|164 005|161 003|220 052 066                               76;      DUP; SHL+2; SHA+1; J77<Z; (T OR S);
 5002/1: 223 212 003                                                         J78V; (NOT ALPHA);
 5002/4: 171 324|225 051 312                                                 I13; J18<Z; (ALPHA SEQUENCE);
 5003/3: 171 322|200 331 242|171 316|301 011 174|300 012 205           78;      M13; JS40; Q12; =V0; V0P10;
 5005/4: 164 341|170 303|145 300|145 340|144 320                             SHL-16; =RM12; I12=-1; I14=-1; I13=+1;
 5007/2: 104 014|143 300|164 025|065|201 272 016                             M12M0H; DC12; SHL+10; REV; J80;
                                                                             (INITIALISE BS FELCH ENTER LOOP);

                                                                       81;      (QUARTER WORD FETCH WITH INCREMENT);
 5011/0: 171 310|027|167 377|042|170 362                                     C12; NEG; SHC-1; DUP; =M15;
 5012/2: 104 374|065|204 052 013                                             M12M15H; REV; J82≥Z;
 5013/2: 164 031                                                             SHL+12;
 5013/4: 143 300|200 360 000                                           82;      DC12; EXIT1; (M12 LOSE ADDRESS,C12-CUNENT);

                                                                       123;      (START OF RAIN LOOP,ABS READ);
 5014/3: 200 333 373                                                         JSP8; (BS TO LINE BUFFER);
 5015/0: 052                                                           83;      ERASE;
 5015/1: 204 332 077                                                   84;      JS75; (FETCH NEXT CHARACTER);
 5015/4: 200 272 077                                                         J68;
 5016/1: 042|164 011|164 261|200 334 051                               80;      DUP; SHL+4; SHL-40; JSP11;
 5017/3: 200 272 015                                                         J83; (EDITING SYMBOLS IN COMPOUND BS);
 5020/0: 052|171 324|167 375|203 052 022                                     ERASE; I13; SHC-2; J85≥Z; (NL=FALSE);
 5021/2: 042|033|164 245|220 152 015                                         DUP; NOT; SHL-46; J83=Z; (T IN ABS);
 5022/3: 265 332 026                                                   85;      J86C13NZ; (CHARACTER BOUGHT FROM BUFFER);
 5023/0: 042|300 012 205|170 376|105 337|171 322                             DUP; V0P10; =Q15; =M15M13H; M13;
 5024/4: 033|027|042|170 322|171 370                                         NOT; NEG; DUP; =M13; C15;
 5025/5: 036|225 052 026                                                     -; J86<Z; (STON CHARACTER IN BUFFER AND);
 5026/3: 151 015                                                             M0TOQ13; (INCORRECT POINLIR WITH ENDAVOID CARRY);
 5026/5: 041|166 011|170 370|041|033                                   86;      ZERO; SHLD+4; =C15; ZERO; NOT;
 5030/0: 027|164 360|167 371|042|170 376                                     NEG; SHLC15; SHC-4; DUP; =Q15;
 5031/2: 066|161 375|054|223 152 053                                         CAB; SHA-2; AND; J87=Z; (CURRENT);
                                                                             (CHARACTER ROTA VALID SUCCESSOR);    [ sic NOT A VALID SUCCESSOR ?
 5032/3: 042|164 261|164 121|200 332 011                               88;      DUP; SHL-40; SHL+40; JS81;
 5033/5: 015|041|166 021|200 152 046                                         NEV; ZERO; SHLD+8; J89≠Z;
                                                                             (CHARACTER NOT THE NEXT IN THE UNECT PARTIAL BS);
 5035/0: 065|052|042|202 052 036                                             REV; ERASE; DUP; J90≥Z;
 5036/0: 143 300                                                             DC12; (SKIP NEXT ENTRY IN TABLE);
 5036/2: 164 003|171 370|033|164 107|167 003                           90;      SHL+1; C15; NOT; SHL+35; SHC+1;
 5037/5: 171 324|164 377|011|164 003|170 324                                 I13; SHL-1; OR; SHL+1; =I13;
                                                                             (NL:=NL OR NOT ALPHARUMERC,END:=FALSE);   [ sic
 5041/2: 041|166 003|221 152 015                                             ZERO; SHLD+1; J84=Z; (NOT END CH BS);
 5042/2: 200 332 011                                                         JS81;
 5042/5: 164 271|170 344|171 324|042|167 375                                 SHL-36; =I14; I13; DUP; SHC-2;
 5044/2: 222 052 050                                                         J91<Z; (NL=TRUE);
 5044/5: 033|027|170 324|201 272 015                                         NOT; NEG; =I13; J84; (END:=TRUE);
                                                                       [ original source of the next page

 5046/0: 203 052 053                                                   89;      J87≥Z; (NO NOU ALTERATIVES TO TRY);    [ sic
 5046/3: 200 332 011                                                         JS81; (FETCH ADDRESS OF NEXT TRY);
 5047/0: 164 271|027|170 310|203 272 032                                     SHL-36; NEG; =C12; J88;

                                                                       91;      (POTENTIAL END OF BS CONTAINING NO-ALPHA CHARACTERS);
 5050/2: 152 354|052|171 322|200 331 242                                     I14TOQ12; ERASE; M13; JS40; (MOVE);
 5051/4: 042|164 245                                                         (BUFFER LOSE ADDRESS); DUP; SHL-46;
 5052/1: 224 152 057                                                         J92=Z; (NO VALID SUCCESSOR SUIT WITH BS);
 5052/4: 152 015|201 272 015                                                 I0TOQ13; J84; (NL:=FERD:=ID:=FALSE);
                                                                       87;      (EXIT PATH,FINAL CHECKS AND BUFFER UPDATING);
 5053/3: 171 324|304 000 001|015|171 370|164 355                             I13; SET1; NEV; C15; SHL-10;
 5055/1: 011|164 133|204 152 057                                             OR; SHL+45; J92≠Z; (NL OR ROT END OR ALPHA);
 5056/1: 171 322|027|033|200 331 242|152 354                                 M13; NEG; NOT; JS40; I14TOQ12;
 5057/4: 052|171 322|300 011 175|170 322|171 322                       92;      ERASE; M13; V1; =M13; M13;
 5061/2: 036|042|202 052 063                                                 -; DUP; J93≥Z;
 5062/1: 300 012 205|164 301|172 330                                         V0P10; SHL-32; =+C13; (FESET BUFFER POINTERS);
 5063/2: 172 330|171 304|300 011 174|170 316|042                       93;      =+C13; I12; V0; =Q12; DUP;
 5065/0: 032|223 052 073                                                     MAX; J94<Z; (NO BS READ);
 5065/4: 164 111                                                             SHL+36;
 5066/0: 152 015|205 212 072                                           77;      I0TOQ13; J95NV; (INITIAL TERMINATOR);
 5066/5: 164 011|164 261                                               79;      SHL+4; SHL-40;
 5067/3: 304 000 276|202 031 255                                       17;      SETB276; J35≠; (NOT EM);
 5070/3: 300 011 214|164 013|224 051 244                                     V16; SHL+5; J29<Z; (EM IN LIBRARY ROUTINE);    [ originally in Q3 -- DHo
 5071/5: 052|041|033|200 360 000                                             ERASE; ZERO; NOT; EXIT1;

 5072/5: 052|201 271 376                                               95;      ERASE; J74; (IGNORE INITIAL TERMINATORS);

                                                                       94;      (NO BS READ:FAIL IF N0N ALPHA CHARACTERS HERE);
                                                                             (OCCURED,OTHERWISE SET ID AND OUTPUT FIRST OF);
                                                                             (SEQUENCE OF ALPHA BS);
 5073/3: 001|164 245|042|171 324|054                                         VR; SHL-46; DUP; I13; AND;
 5074/4: 164 377|204 152 076                                                 SHL-1; J96≠Z; (NL SET:FAIL-4);
 5075/3: 164 037|170 324|201 271 376                                         SHL+15; =I13; J74;

 5076/4: 033|042                                                       96;      NOT; DUP; (FAILURE NUMBER);
 5077/0: 052                                                           68;      ERASE;
 5077/1: 200 360 000                                                   69;      EXIT1; (FAILURE EXIT FROM BS READ);

                                                                       75;      (FETCH CASELESS CHARACTER FROM INPUT DEVICE  OR);
 5077/4: 241 332 123                                                         (INTERVAL CHARACTER BUFFER); J110C13Z; (BUFFER EMPTY);
 5100/1: 300 012 205|170 376|104 337|143 320|244 332 104                     V0P10; =Q15; M15M13H; DC13; J98C13Z;
 5102/1: 171 322|033|027|042|170 322                                         M13; NOT; NEG; DUP; =M13;
 5103/2: 171 370|036|204 112 104                                             C15; -; J98≤Z;
 5104/2: 151 015                                                             M0TOQ13; (UPDATE BUFFER PRINTER CYCLICLY);
 5104/4: 202 360 001                                                   98;      EXIT2;

 5105/1: 017|017|017|017|017|171 350|204 032 142                       *99;      C14; J101≠; (0:NEW LINE);
 5106/5: 017|052|202 272 115                                           *100;      ERASE; J97; (01:IGNORE);
 5107/4: 017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017
                                                                       *;      DUMMY; *DUMMY; *DUMMY; *DUMMY;
 5113/1: 017|017|017|017|017|304 000 377|200 272 147                   *;      SETB377; J203; (2-6:INVALID,MORNING ORD IGNORE);
 5115/0: 172 342                                                       *;      =+M14; (7:CASE);
 5115/2: 200 332 153                                                   97;      JSP2; (FETCH CHARACTER);
 5115/5: 204 272 145                                                         J102;
 5116/2: 167 377|042|170 362|104 376|065                                     SHC-1; DUP; =M15; M14M15H; REV;
 5117/4: 203 052 120                                                         J103≥Z;
 5120/1: 164 031                                                             SHL+12; (QUARTER WORD FETCH FROM A TABLE);
 5120/3: 042|224 052 125                                               103;      DUP; J104<Z; (EXTERNAL CHARACTER);
 5121/1: 041|166 011|174 000|047|162 261                                     ZERO; SHLD+4; =LINK; STR; SHAD-40;
 5122/3: 050|202 372 106                                                     CONT; EXITAR99; (TREE ON INTERNAL TYPE);
                                                                       [ original source of the next page

 5123/1: 171 350|161 351|222 152 115                                   110;      (ENTRY); C14; SHA-12; J97=Z;
 5124/2: 171 350|304 007 377|054|164 111                                     C14; SETB3777; AND; SHL+36;
 5125/4: 164 003|042|220 052 131                                       104;      SHL+1; DUP; J105<Z; (MULTIPLE);
 5126/4: 260 352 130                                                         J106C14NZ; (LOST CHARACTER A MULTIPLE);
 5127/1: 164 377|202 360 001                                                 SHL-1; EXIT2; (CASELESS CHARACTER *D11);

 5130/0: 164 267                                                       106;      SHL-37;
 5130/2: 041|201 272 133                                               109;      ZERO; J107; (CLEAR MULTIPLE);

 5131/0: 164 267|171 350|220 032 107                                   105;      SHL-37; C14; J100=; (IGNORE REPEATS);
 5132/1: 042|304 004 000|036|065                                             DUP; SETB2000; -; REV;
 5133/1: 171 350|033|222 152 135                                       107;      C14; NOT; J108=Z;
 5134/1: 170 350|164 111|202 360 001                                         =C14; SHL+36; EXIT2; (SET MULTIPLE IN C14);

 5135/2: 011|304 020 000|011|171 350|065                               108;      OR; SETB10000; OR; C14; REV;
 5136/4: 170 350|167 377|204 052 141                                         =C14; SHC-1; J204≥Z; (VALID RELINE);
 5137/5: 171 350|161 377|304 376 317|036|200 334 023                         C14; SHA-1; SET-305; -; JSP9;
 5141/4: 304 000 240|202 360 001                                       204;      SETB240; EXIT2; (NUV LINE);

 5142/4: 171 350|033|220 112 107                                       101;      C14; NOT; J100>Z;
 5143/4: 042|170 350|033|222 152 115                                         DUP; =C14; NOT; J97=Z;
 5144/5: 143 140|202 272 115                                                 DC6; J97; (COUNT LINES);

 5145/4: 042|033|202 152 130                                           102;      DUP; NOT; J109≠Z;
 5146/3: 200 360 000                                                         EXIT1;

 5147/0: 054|027|200 334 023                                           203;      AND; NEG; JSP9;
 5147/5: 202 272 115                                                         J97; (WARNING MESSAGE,IGNORE CHARACTER);
                                                                             (END OF BASIC SYMBOL FETCH);
=== Start P2V1; at address 2667/5153
 5153/0: 041|300 012 151                                               P2V1;      ZERO; V0;
 5153/4: 041|166 015|012|011|042                                       3;      ZERO; SHLD+6; PERM; OR; DUP;
 5154/4: 224 152 163                                                         J9=Z; (WORD EMPTY FETCH NEXT);
 5155/1: 065|304 000 075|223 032 157                                         REV; SETB75; J5=; (EM);
 5156/2: 065|301 012 151|202 360 001                                         REV; =V0; EXIT2; (NORMAL EXIT);
 5157/3: 052|300 012 151|220 152 161                                   5;      ERASE; V0; J6=Z;
 5160/4: 052|041                                                             ERASE; ZERO;
 5161/0: 033                                                           6;      NOT;
 5161/1: 041                                                           7;      ZERO;
 5161/2: 301 012 152|304 000 001|164 125|301 012 151                   11;      =V1; SET1; SHL+42; =V0;
 5163/1: 200 360 000                                                   8;      EXIT1;
 5163/4: 052|300 012 152|170 376|264 372 167                           9;      ERASE; V1; =Q15; J15C15NZ;
 5165/1: 052                                                                 ERASE;
 5165/2: 304 340 002|200 320 106                                       10;      SETB160002; JSE70;                                          [B160002;
 5166/2: 202 272 171                                                         J4;
 5166/5: 170 376|304 000 001                                                 =Q15; SET1;
 5167/4: 102 360|171 376|301 012 152|204 272 153                       15;      M0M15Q; Q15; =V1; J3;
 5171/2: 304 377 375|201 272 161                                       4;      SET-3; J7;
 5172/2: 170 376|304 242 002|170 362|171 376|200 320 106               1;      =Q15; SETB121002; =M15; Q15; JSE70;                          [B121002;
 5174/2: 202 272 171                                                         J4;
 5174/5: 041|065|202 272 161                                                 ZERO; REV; J11;
 5175/4: 304 340 002|200 320 106                                       14;      SETB160002; JSE70;                                          [B160002;
 5176/4: 202 272 171                                                         J4;
 5177/1: 052                                                                 ERASE;
 5177/2: 304 000 102|200 320 106                                       2;      SETB102; JSE70;                                              [B102;
 5200/2: 202 272 171                                                         J4;
 5200/5: 042|221 052 202                                                     DUP; J13<Z;
 5201/3: 052|202 360 001                                                     ERASE; EXIT2;
 5202/1: 164 007|204 052 175                                           13;      SHL+3; J14≥Z;
 5203/0: 304 140 002|200 320 106                                             SETB60002; JSE70;                                              [B60002;
                                                                       [ original source of the next page
 5204/0: 202 272 171                                                         J4;
 5204/3: 202 360 001                                                         EXIT2;
=== Start P10V152; at address 2846/5436
                                                                       P10V152;
V-store at 05205 = 000 022 012 310 012 206                                   V0=Q18/AV67/AV1;
V-store at 05247 = 000 022 012 310 000 000                                   V34=Q18/AV67/0;
V-store at 05250 = 231 346 001 232 006 003                                   V35=B4636 3001 4640 3003;
V-store at 05251 = 232 346 005 161 001 000                                   V36=B4656 3005 3420 0400;
V-store at 05252 = 140 206 011 140 246 013                                   V37=B3010 3011 3012 3013;
V-store at 05253 = 140 306 015 140 351 241                                   V38=B3014 3015 3016 4641;
V-store at 05254 = 200 010 001 200 050 003                                   V39=B4000 4001 4002 4003;
V-store at 05255 = 200 110 005 200 150 007                                   V40=B4004 4005 4006 4007;
V-store at 05256 = 200 210 011 357 370 012                                   V41=B4010 4011 7377 4012;
V-store at 05257 = 231 211 301 235 030 013                                   V42=B4630 4701 4721 4013;
V-store at 05260 = 142 010 014 200 330 016                                   V43=B3040 4014 4015 4016;
V-store at 05261 = 200 370 020 201 030 022                                   V44=B4017 4020 4021 4022;
V-store at 05262 = 201 070 024 201 130 026                                   V45=B4023 4024 4025 4026;
V-store at 05263 = 201 170 030 201 230 032                                   V46=B4027 4030 4031 4032;
V-store at 05264 = 201 270 034 201 330 036                                   V47=B4033 4034 4035 4036;
V-store at 05265 = 201 370 040 202 030 042                                   V48=B4037 4040 4041 4042;
V-store at 05266 = 202 070 044 202 126 073                                   V49=B4043 4044 4045 3073;
V-store at 05267 = 143 306 075 143 341 000                                   V50=B3074 3075 3076 0400;
V-store at 05270 = 231 346 101 232 006 103                                   V51=B4636 3101 4640 3103;
V-store at 05271 = 232 346 105 020 007 360                                   V52=B4656 3105 0400 3760;
V-store at 05272 = 144 206 111 144 246 113                                   V53=B3110 3111 3112 3113;
V-store at 05273 = 144 306 115 144 352 376                                   V54=B3114 3115 3116 5376;
V-store at 05274 = 230 031 211 231 231 202                                   V55=B4601 4611 4631 4602;
V-store at 05275 = 234 051 242 233 031 221                                   V56=B4702 4642 4661 4621;
V-store at 05276 = 230 111 224 357 366 133                                   V57=B4604 4624 7377 3133;
V-store at 05277 = 231 211 322 230 351 246                                   V58=B4630 4722 4616 4646;
V-store at 05300 = 146 010 046 202 170 050                                   V59=B3140 4046 4047 4050;
V-store at 05301 = 202 230 052 202 270 054                                   V60=B4051 4052 4053 4054;
V-store at 05302 = 202 330 056 202 370 060                                   V61=B4055 4056 4057 4060;
V-store at 05303 = 203 030 062 203 070 064                                   V62=B4061 4062 4063 4064;
V-store at 05304 = 203 130 066 203 170 070                                   V63=B4065 4066 4067 4070;
V-store at 05305 = 203 230 072 203 270 074                                   V64=B4071 4072 4073 4074;
V-store at 05306 = 203 330 076 203 366 173                                   V65=B4075 4076 4077 3173;
V-store at 05307 = 147 306 175 147 341 000                                   V66=B3174 3175 3176 0400;
V-store at 05310 = 000 057 356 000 140 271                                   V67=B0002 7756 0006 0271;
V-store at 05311 = 242 100 265 377 070 234                                   V68=B5044 0265 7763 4234;
V-store at 05312 = 000 240 215 231 300 015                                   V69=B0012 0215 4634 0015;
V-store at 05313 = 011 330 054 001 000 222                                   V70=B0235 4054 0020 0222;
V-store at 05314 = 302 300 023 013 042 272                                   V71=B6054 0023 0262 1272;
V-store at 05315 = 002 077 361 046 240 037                                   V72=B0043 7761 1152 0037;
V-store at 05316 = 377 023 022 377 023 202                                   V73=B7761 1422 7761 1602;
V-store at 05317 = 377 022 244 014 323 102                                   V74=B7761 1244 0315 1502;
V-store at 05320 = 377 023 164 010 143 232                                   V75=B7761 1564 0206 1632;
V-store at 05321 = 003 077 361 067 240 055                                   V76=B0063 7761 1572 0055;
V-store at 05322 = 377 023 242 377 022 244                                   V77=B7761 1642 7761 1244;
V-store at 05323 = 015 322 322 377 022 242                                   V78=B0335 1322 7761 1242;
V-store at 05324 = 377 023 064 011 122 352                                   V79=B7761 1464 0225 1352;
V-store at 05325 = 004 257 361 053 300 071                                   V80=B0112 7761 1274 0071;
V-store at 05326 = 010 123 072 004 157 361                                   V81=B0205 1472 0106 7761;
V-store at 05327 = 071 057 361 052 057 361                                   V82=B1622 7761 1242 7761;
V-store at 05330 = 054 057 361 052 057 361                                   V83=B1302 7761 1242 7761;
V-store at 05331 = 067 100 102 062 057 361                                   V84=B1564 0102 1442 7761;
V-store at 05332 = 065 100 263 047 240 142                                   V85=B1524 0263 1172 0142;
V-store at 05333 = 377 023 112 005 257 361                                   V86=B7761 1512 0132 7761;
V-store at 05334 = 064 057 361 061 057 361                                   V87=B1502 7761 1422 7761;
V-store at 05335 = 052 057 361 046 057 361                                   V88=B1242 7761 1142 7761;
V-store at 05336 = 063 100 103 052 057 361                                   V89=B1464 0103 1242 7761;
                                                                       [ original source of the next page
V-store at 05337 = 054 057 361 056 057 361                                   V90=B1302 7761 1342 7761;
V-store at 05340 = 063 100 214 046 240 162                                   V91=B1464 0214 1152 0162;
V-store at 05341 = 377 023 172 006 357 361                                   V92=B7761 1572 0156 7761;
V-store at 05342 = 067 057 361 046 057 361                                   V93=B1562 7761 1142 7761;
V-store at 05343 = 076 100 110 063 057 361                                   V94=B1744 0110 1462 7761;
V-store at 05344 = 051 100 223 070 240 217                                   V95=B1224 0223 1612 0217;
V-store at 05345 = 377 023 312 024 217 361                                   V96=B7761 1712 0510 7761;
V-store at 05346 = 056 057 361 071 057 361                                   V97=B1342 7761 1622 7761;
V-store at 05347 = 050 057 361 055 100 130                                   V98=B1202 7761 1324 0130;
V-store at 05350 = 071 057 361 052 240 207                                   V99=B1622 7761 1252 0207;
V-store at 05351 = 377 023 124 013 143 162                                   V100=B7761 1524 0266 1562;
V-store at 05352 = 377 022 342 377 023 062                                   V101=B7761 1342 7761 1462;
V-store at 05353 = 377 022 304 007 243 112                                   V102=B7761 1304 0172 1512;
V-store at 05354 = 011 237 361 067 300 225                                   V103=B0231 7761 1574 0225;
V-store at 05355 = 012 063 302 377 023 064                                   V104=B0243 1702 7761 1464;
V-store at 05356 = 010 362 252 012 317 361                                   V105=B0217 1252 0254 7761;
V-store at 05357 = 063 240 241 377 022 224                                   V106=B1472 0241 7761 1224;
V-store at 05360 = 011 303 032 012 217 361                                   V107=B0234 1432 0250 7761;
V-store at 05361 = 070 057 361 052 100 245                                   V108=B1602 7761 1244 0245;
V-store at 05362 = 066 057 361 073 100 303                                   V109=B1542 7761 1664 0303;
V-store at 05363 = 067 240 265 377 022 242                                   V110=B1572 0265 7761 1242;
V-store at 05364 = 377 022 142 377 023 024                                   V111=B7761 1142 7761 1424;
V-store at 05365 = 004 023 132 015 077 361                                   V112=B0101 1532 0323 7761;
V-store at 05366 = 067 057 361 064 057 361                                   V113=B1562 7761 1502 7761;
V-store at 05367 = 050 057 361 052 057 361                                   V114=B1202 7761 1242 7761;
V-store at 05370 = 051 057 361 072 057 361                                   V115=B1222 7761 1642 7761;
V-store at 05371 = 067 057 361 052 100 120                                   V116=B1562 7761 1244 0120;
V-store at 05372 = 061 240 323 377 022 142                                   V117=B1432 0323 7761 1142;
V-store at 05373 = 377 022 162 377 022 242                                   V118=B7761 1162 7761 1242;
V-store at 05374 = 377 023 024 007 222 212                                   V119=B7761 1424 0171 1212;
V-store at 05375 = 016 057 361 064 057 361                                   V120=B0342 7761 1502 7761;
V-store at 05376 = 062 057 361 062 057 361                                   V121=B1442 7761 1442 7761;
V-store at 05377 = 052 057 361 063 057 361                                   V122=B1242 7761 1462 7761;
V-store at 05400 = 071 100 200 063 240 351                                   V123=B1624 0200 1472 0351;
V-store at 05401 = 377 023 102 377 023 224                                   V124=B7761 1502 7761 1624;
V-store at 05402 = 010 062 312 017 057 361                                   V125=B0203 1312 0362 7761;
V-store at 05403 = 064 057 361 071 057 361                                   V126=B1502 7761 1622 7761;
V-store at 05404 = 064 100 210 074 240 375                                   V127=B1504 0210 1712 0375;
V-store at 05405 = 377 022 322 377 022 342                                   V128=B7761 1322 7761 1342;
V-store at 05406 = 377 023 022 377 022 244                                   V129=B7761 1422 7761 1244;
V-store at 05407 = 011 143 272 020 217 361                                   V130=B0226 1672 0410 7761;
V-store at 05410 = 046 057 361 061 057 361                                   V131=B1142 7761 1422 7761;
V-store at 05411 = 072 057 361 052 100 237                                   V132=B1642 7761 1244 0237;
V-store at 05412 = 072 241 023 377 023 062                                   V133=B1652 0423 7761 1462;
V-store at 05413 = 377 023 222 377 022 342                                   V134=B7761 1622 7761 1342;
V-store at 05414 = 377 023 024 014 142 232                                   V135=B7761 1424 0306 1232;
V-store at 05415 = 021 217 361 064 100 326                                   V136=B0430 7761 1504 0326;
V-store at 05416 = 015 241 034 375 200 114                                   V137=B0332 0434 7730 0114;
V-store at 05417 = 014 241 047 377 021 162                                   V138=B0312 0447 7761 0562;
V-store at 05420 = 377 021 042 377 021 242                                   V139=B7761 0442 7761 0642;
V-store at 05421 = 377 021 164 014 001 012                                   V140=B7761 0564 0300 0412;
V-store at 05422 = 023 017 361 043 057 361                                   V141=B0460 7761 1062 7761;
V-store at 05423 = 024 057 361 037 100 360                                   V142=B0502 7761 0764 0360;
V-store at 05424 = 026 241 071 377 020 362                                   V143=B0552 0471 7761 0362;
V-store at 05425 = 377 021 022 377 020 224                                   V144=B7761 0422 7761 0224;
V-store at 05426 = 013 003 022 377 022 352                                   V145=B0260 1422 7761 1352;
V-store at 05427 = 014 277 361 047 057 361                                   V146=B0313 7761 1162 7761;
V-store at 05430 = 067 057 361 046 057 361                                   V147=B1562 7761 1142 7761;
V-store at 05431 = 067 057 361 076 100 320                                   V148=B1562 7761 1744 0320;
V-store at 05432 = 052 240 200 377 022 302                                   V149=B1252 0200 7761 1302;
                                                                       [ original source of the next page
V-store at 05433 = 377 023 042 377 022 242                                   V150=B7761 1442 7761 1242;
V-store at 05434 = 377 023 062 377 023 224                                   V151=B7761 1462 7761 1624;
V-store at 05435 = 016 000 000 000 000 000                                   V152=B0340 0000 0000 0000;
=== Start P3V0; at address 2847/5437
V-store at 05436 = 377 003 002 001 000 000                             P3V0;      V0=B7760140200200000;
 5437/0: 300 013 036|012|205 273 047                                         V0; PERM; J3;
 5440/1: 052|202 273 046                                               4;      ERASE; J5;
 5440/5: 300 013 036|204 273 046                                       1;      V0; J2;
 5441/5: 042|164 377|304 000 005|015|221 153 051                       6;      DUP; SHL-1; SET5; NEV; J7=Z;
 5443/3: 241 373 040                                                         J4C15Z; (31 WORDS FULL; IGNORE);
 5444/0: 011|001|161 021|222 213 046                                         OR; VR; SHA+8; J5V;
 5445/1: 033|027|103 360|300 013 036                                         NOT; NEG; =M0M15Q; V0;
 5446/2: 171 376                                                       5;      Q15;
 5446/4: 200 331 215                                                   2;      JSP1;
 5447/1: 204 273 065                                                         J13;
 5447/4: 065                                                                 REV;
 5447/5: 170 376|042|164 365|225 153 041                               3;      =Q15; DUP; SHL-6; J6=Z; (ALPHA);
 5451/1: 065|042|223 053 055                                           7;      REV; DUP; J8<Z;
 5452/0: 001|304 000 005                                                     VR; SET5;

 5452/4: 065|161 021|065|027|033                                       9;      REV; SHA+8; REV; NEG; NOT;
 5453/4: 224 213 052                                                         J9V;
 5454/1: 164 007|056|033|027|103 360                                         SHL+3; +; NOT; NEG; =M0M15Q;
 5455/2: 042                                                                 DUP;
 5455/3: 052|304 000 037|171 370|036|042                               8;      ERASE; SET31; C15; -; DUP;
 5456/5: 170 370|042|027|171 364|034                                         =C15; DUP; NEG; I15; ×D;
 5460/0: 050|172 362|143 360|220 113 064                                     CONT; =+M15; DC15; J10>Z;
 5461/2: 203 273 064                                                         J11;
 5461/5: 100 360|171 370|161 007|304 000 002|056                       12;      M0M15; C15; SHA+3; SET2; +;
 5463/3: 056|103 360                                                         +; =M0M15Q;
 5464/0: 265 373 061                                                   10;      J12C15NZ;
 5464/3: 140 360|171 376|202 360 001                                   11;      M+I15; Q15; EXIT2;
 5465/4: 012|052|052|200 360 000                                       13;      PERM; ERASE; ERASE; EXIT1;
=== Start P4V8; at address 2880/5500
V-store at 05472 = 152 115 074 045 346 216                             P4V8;      V3=B3244647411363216;
V-store at 05473 = 043 166 111 037 002 054                                   V4=B1067311107601054;
V-store at 05474 = 117 254 176 167 152 123                                   V5=B2372617635665123;
V-store at 05475 = 127 162 066 342 017 101                                   V6=B2567106670407501;
V-store at 05476 = 331 126 271 240 320 035                                   V7=B6625327150150035;
 5500/0: 001|300 013 067|164 367|304 000 001|054                       10;      VR; V0; SHL-5; SET1; AND;
 5501/4: 170 225                                                             =RI9;
 5502/0: 157 010|041|033|300 013 067|304 000 020                       11;      Q0TOQ8; ZERO; NOT; V0; SET16;
 5503/4: 054|171 222|011|204 153 120                                         AND; M9; OR; J2≠Z;
 5504/5: 065|204 273 121                                                     REV; J3;
 5505/3: 301 013 067|200 360 000                                       1;      =V0; EXIT1;
                                                                             (MAIN LOOP);
 5506/3: 065|052                                                       4;      REV; ERASE;
 5506/5: 242 213 115                                                   5;      J6C8Z;
 5507/2: 143 200                                                             DC8;
 5507/4: 042|304 000 012|034|223 153 106                               7;      DUP; SET10; ×D; J4=Z;
 5511/0: 304 000 001|172 210|052|065                                         SET1; =+C8; ERASE; REV;
 5512/1: 052|300 013 067|304 000 004|054|171 222                       8;      ERASE; V0; SET4; AND; M9;
 5513/5: 011|205 153 215                                                     OR; J9≠Z;
 5514/3: 304 001 000|170 222                                           13;      SET256; =M9;
 5515/2: 171 230|225 053 142                                           6;      C9; J14<Z;
 5516/1: 171 222|222 113 120                                                 M9; J15>Z;
 5517/0: 042|066|056|221 213 112                                             DUP; CAB; +; J8V;
 5520/0: 065                                                                 REV;
 5520/1: 052                                                           16;      ERASE;
 5520/2: 140 200                                                       15;      M+I8;
 5520/4: 200 331 215                                                   2;      JSP1;
 5521/1: 202 273 216                                                         J12;
                                                                       [ original source of the next page
 5521/4: 042|170 230|300 013 067|164 261|036                           3;      DUP; =C9; V0; SHL-40; -;
 5523/1: 042|042|161 373|036|161 373                                         DUP; DUP; SHA-3; -; SHA-3;
 5524/2: 201 153 131                                                         J17≠Z;
 5524/5: 304 000 005|056|171 222|225 153 126                                 SET5; +; M9; J18=Z;
 5526/2: 171 222|054                                                         M9; AND;
 5526/5: 042|224 153 152                                               18;      DUP; J19=Z;
 5527/3: 065|042|204 053 107                                                 REV; DUP; J7≥Z;
 5530/2: 154 010|201 273 120                                                 C0TOQ8; J16;
                                                                       17;      (NON-DIGITS);
 5531/1: 052|171 230|042|301 013 077|042                                     ERASE; C9; DUP; =V8; DUP;
 5532/3: 300 013 067|164 021|011|304 000 001|170 230                         V0; SHL+8; OR; SET1; =C9;
 5534/2: 065                                                                 REV;
 5534/3: 065|041|166 021|066|065                                       20;      REV; ZERO; SHLD+8; CAB; REV;
 5535/3: 143 220|203 033 134                                                 DC9; J20≠;
 5536/2: 052|242 233 140                                                     ERASE; J21C9Z;
 5537/0: 164 361|171 230|033|202 153 210                                     SHL-8; C9; NOT; J22≠Z;
 5540/2: 167 337|171 222|011|225 053 215                               21;      SHC-17; M9; OR; J9<Z;
 5541/4: 260 233 151                                                         J23C9NZ;
 5542/1: 041|033|170 222                                                     ZERO; NOT; =M9;
 5542/5: 042|202 053 144                                               14;      DUP; J24≥Z;
 5543/3: 241 213 204                                                         J25C8Z;
 5544/0: 033                                                                 NOT;
 5544/1: 027                                                           26;      NEG;
 5544/2: 171 202|171 204|036|225 053 215                               24;      M8; I8; -; J9<Z;
 5545/4: 171 224|204 053 146                                                 I9; J27≥Z;
 5546/3: 027                                                                 NEG;
 5546/4: 260 233 161                                                   27;      J28C9NZ;
 5547/1: 171 216|301 013 070|301 013 071|200 273 102                         Q8; =V1; =V2; J11; (READ EXPONENT);
 5551/0: 171 204|205 153 215                                           23;      I8; J9≠Z;
 5551/5: 144 200|204 273 120                                                 I8=+1; J2;
 5552/4: 171 210|033|027|170 210                                       19;      C8; NOT; NEG; =C8;
 5553/4: 065|042|033|221 153 120                                             REV; DUP; NOT; J16=Z;
 5554/4: 065|201 273 120                                                     REV; J16;
 5555/2: 052|300 013 067|304 000 002|054|161 377|171 204               31;      ERASE; V0; SET2; AND; SHA-1; I8;
 5557/2: 011|171 222|056|205 113 106                                         OR; M9; +; J5≤Z;
 5560/3: 203 273 114                                                         J13;
                                                                             (OUTPUT CONVERSION TO SFB);
 5561/0: 171 222|171 204|011|221 153 220                               28;      M9;I8; OR; J33=Z;
 5562/2: 171 222|205 053 164                                                 M9; J29≥Z;
 5563/1: 300 013 070|170 216|172 210|300 013 071                             V1; =Q8; =+C8; V2;
 5564/5: 171 210|171 202|036|300 013 072|034                           29;      C8; M8; -; V3; ×D;
 5566/2: 162 005|043|016|042|170 236                                         SHAD+2; DUPD; ROUND; DUP; =Q9;
 5567/3: 041|065|053|050|042                                                 ZERO; REV; -D; CONT; DUP;
 5570/2: 042|035|161 363|042|300 013 073                                     DUP; ×; SHA-7; DUP; V4;
 5571/4: 035|300 013 074|056|065|300 013 075                                 ×; V5; +; REV; V6;
 5573/1: 056|300 013 076|065|060|056                                         +; V7; REV; ÷; +;
 5574/2: 065|161 371|043|056|012|036                                         REV; SHA-4; DUPD; +; PERM; -;
 5575/3: 161 003|017|060|065|042|041                                         SHA+1; ÷; REV; DUP; ZERO;
L77 not available
 5576/4: 200 334 165|045|027|170 210|052                                     JSL77; FIX; NEG; =C8; ERASE;
 5600/0: 164 200|035|171 236|304 000 060|056                                 SHLC8; ×; Q9; SET48; +;
L77 not available
 5601/3: 171 210|036|200 334 165|225 213 215                                 C8; -; JSL77; J9V;
 5603/0: 300 013 077|065|202 360 001                                   30;      V8; REV; EXIT2;
                                                                             (SIGNS AND TERMINATORS);
 5604/1: 241 233 144                                                   25;      J26C9Z;
 5604/4: 171 222|171 224|011|171 204|011                                     M9; I9; OR; I8; OR;
 5606/0: 300 013 067|011|304 000 010|054|224 153 120                         V0; OR; SET8; AND; J2=Z;
 5607/5: 205 273 215                                                         J9;
 5610/2: 052|304 377 372|171 230|161 003|036|042                       22;      ERASE; SET-6; C9; SHA+1; -;DUP;
 5612/0: 222 113 155                                                         J31>Z;
 5612/3: 033|065|042|033|171 224                                             NOT; REV; DUP; NOT; I9;
                                                                       [ original source of the next page
 5613/3: 011|171 210|011|171 204|011                                         OR; C8; OR; I8; OR;
 5614/4: 221 153 217                                                         J32=Z;
 5615/1: 065|202 273 155                                                     REV; J31;
 5615/5: 304 377 370                                                   9;      SET-8;
 5616/2: 065|052|200 360 000                                           12;      REV; ERASE; EXIT1;
 5617/1: 065|170 224|204 273 120                                       32;      REV; =I9; J2;
 5620/1: 300 013 077|065|200 360 001                                   33;      V8; REV; EXIT3;
=== Start P5V1; at address 2964/5624
                                                                       P5V1;      (SEARCH DECLARATION LIST + CODE BODY FORMALS);
 5624/0: 042|301 013 222|170 376|171 370|170 343                             DUP; =V0; =Q15; C15; =RM14;
 5625/4: 145 340|304 377 376|170 371|204 273 241                             I14=-1; SET-2; =RC15; J9;
 5627/2: 167 375|047|164 253|065|164 377                               2;      SHC-2; STR; SHL-43; REV; SHL-1;
 5630/4: 054|027|172 342                                                     AND; NEG; =+M14; (STEP TO CODE WORD);
 5631/2: 300 013 223|170 376|243 373 242                                     V1; =Q15; J1C15Z; (FORMAL CHECK CANCELLED);
 5632/4: 100 345|042|164 133|220 153 240                                     M5M14; DUP; SHL+45; J10=Z;
 5634/0: 304 001 370|054                                                     SETB770; AND;
 5634/4: 304 001 140|221 033 241                                             SETB540; J7=; (<TYPE> FORMAL BY VALUE);
 5635/4: 140 360|304 000 140|225 033 240                                     M+I15; SETB140; J8=; (BY NAME);
 5637/0: 304 000 160|201 033 241                                             SETB160; J7≠;
 5640/0: 304 000 002|170 370                                           10;      SET2; =C15; (INVALID CODE BODY FORMAL);
 5640/5: 143 360                                                       8;      DC15;
 5641/1: 052|143 360                                                   7;      ERASE; DC15;
 5641/4: 171 376|301 013 223                                           9;      Q15; =V1;
 5642/3: 140 340|300 013 222|170 376                                   1;      M+I14; V0; =Q15;
 5643/4: 171 342|171 122|056|171 362|015                                     M14; M5; +; M15; NEV;
 5645/0: 224 153 255                                                         J5=Z; (ADDRESS OF UNKNOWN IDENTIFIER FOUND IN LIST);
 5645/3: 102 345|042|167 377|222 053 252                                     M5M14Q; DUP; SHC-1; J3<Z; (IDENTIFIER);
 5646/5: 042|164 301|042|170 342|224 153 256                                 DUP; SHL-32; DUP; =M14; J6=Z;
 5650/2: 164 125|047|052|161 003|052                                         SHL+42; STR; ERASE; SHA+1; ERASE;
 5651/3: 203 273 242                                                         J1; (END DIGIT TO VR);
 5652/0: 102 345                                                       4;      M5M14Q;
 5652/2: 102 360|202 033 227                                           3;      M0M15Q; J2≠;
 5653/1: 167 375|220 053 252                                                 SHC-2; J4<Z;
 5654/0: 100 345|300 013 223|170 376|202 360 001                             M5M14; V1; =Q15; EXIT2;
 5655/4: 300 013 223|170 376|041                                       5;      V1; =Q15; ZERO;
 5656/4: 001|200 360 000                                               6;      VR; EXIT1; (N1≠O IMPLIES NOT IN LIST);

=== Start P6V-1; at address 2992/5660
 5660/0: 243 053 277                                                   P6;      J3C2Z;
 5660/3: 171 024|164 101|171 030|166 361|052                                 I1; SHL+32; C1; SHLD-8; ERASE;
 5662/0: 164 377|171 142|166 363|052|171 062                                 SHL-1; M6; SHLD-7; ERASE; M3;
 5663/3: 166 361|052|171 102|166 361|052                                     SHLD-8; ERASE; M4; SHLD-8; ERASE;
 5664/5: 111 020|170 024|154 001|041|033                                     =M0M1N; =I1; C0TOQ1; ZERO; NOT;
 5666/1: 042|172 050|027|172 022|202 360 001                           2;      DUP; =+C2; NEG; =+M1; EXIT2;
 5667/4: 171 024|223 153 277                                           1;      I1; J3=Z;
 5670/3: 100 020|171 030|170 362|047|162 017                                 M0M1; C1; =M15; STR; SHAD+7;
 5672/0: 170 102|164 003|047|162 017|170 062                                 =M4; SHL+1; STR; SHAD+7; =M3;
 5673/3: 164 003|047|162 015|170 142|164 005                                 SHL+1; STR; SHAD+6; =M6; SHL+2;
 5675/0: 047|162 017|170 030|164 303|170 024                                 STR; SHAD+7; =C1; SHL-31; =I1;
 5676/3: 304 000 001|201 273 266                                             SET1; J2;
 5677/3: 200 360 000                                                   3;      EXIT1;
=== Start P7V4; at address 3013/5705
V-store at 05700 = 000 000 000 000 000 000                             P7V4;      V0=0;                      [ output to channel 5, entry 4 is close, 1 and 8 are open
 5705/0: 300 013 300|202 053 326                                             V0; J3≥Z;
 5706/0: 300 013 302|171 356|301 013 302|170 356                             V2; Q14; =V2; =Q14;
 5707/4: 042|221 153 324                                                     DUP; J10=Z;
 5710/2: 171 344|225 053 320                                                 I14; J9<Z;
 5711/1: 171 350|171 344|034|050|172 342                               17;      C14; I14; ×D; CONT; =+M14;
 5712/3: 142 340|300 013 301|170 376                                         NC14; V1; =Q15;
 5713/4: 260 373 316                                                   12;      J11C15NZ;
 5714/1: 304 340 005|200 320 106                                             SETB160005; JSE70;                                             [B160005;
 5715/1: 204 266 337                                                         J3P0;
 5715/4: 170 376                                                             =Q15;
                                                                       [ original source of the next page
 5716/0: 102 340|103 360|264 353 313                                   11;      M0M14Q; =M0M15Q; J12C14NZ;
 5717/1: 171 376|301 013 301|304 013 303|170 343                             Q15; =V1; SETAV3; =RM14;
 5720/5: 103 340                                                       9;      =M0M14Q;
 5721/1: 171 356|300 013 302|170 356|301 013 302                       16;      Q14; V2; =Q14; =V2;
 5722/5: 041|033|301 013 300|200 360 000                               13;      ZERO; NOT; =V0; EXIT1;
 5724/1: 141 340|100 340|140 340|205 153 320                           10;      M-I14; M0M14; M+I14; J9≠Z;
 5725/4: 052|201 273 321                                                     ERASE; J16;
 5726/2: 300 013 300|042|202 113 340                                   3;      V0; DUP; J19≤Z;
 5727/3: 170 362|101 360|205 273 322                                         =M15; =M0M15; J13;
 5730/4: 203 333 346                                                   4;      JS20;                         [ close channel 5
 5731/1: 041|301 013 300|304 140 005|170 370|171 376                         ZERO; =V0; SETB60005; =C15; Q15;
 5733/0: 167 041|200 320 106                                                 SHC+16; JSE70;                                                 [B60005
 5733/5: 204 266 337                                                         J3P0;
 5734/2: 200 360 000                                                         EXIT1;
 5734/5: 300 013 302|170 376|171 370|171 364|034                       5;      V2; =Q15; C15; I15; ×D;
 5736/3: 050|172 362|171 364|027|170 364                                     CONT; =+M15; I15; NEG; =I15;
 5737/5: 262 373 343                                                         J14C15NZ;
 5740/2: 304 002 141|201 266 340                                       19;      SET609; J4P0;
 5741/2: 300 013 302|042|170 376                                       2;      V2; DUP; =Q15;
 5742/2: 052|242 373 340                                               15;      ERASE; J19C15Z;
 5743/0: 141 360                                                             M-I15;
 5743/2: 304 000 001|172 370|100 360|042|222 153 342                   14;      SET1; =+C15; M0M15; DUP; J15=Z;
 5745/1: 171 362|301 013 300|200 360 000                                     M15; =V0; EXIT1;
 5746/3: 300 013 300|202 053 340                                       20;      V0; J19≥Z;
 5747/3: 300 013 302|171 356|301 013 302|170 356                             V2; Q14; =V2; =Q14;
 5751/1: 041|201 273 311                                                     ZERO; J17;
 5751/5: 203 333 346                                                   6;      JS20;
 5752/2: 171 122|171 042|056|041|033                                         M5; M2; +; ZERO; NOT;
 5753/3: 170 365|042|170 362|301 013 300|041                           21;      =RI15; DUP; =M15; =V0; ZERO;
 5755/0: 103 360|171 376|301 013 302|200 360 000                             =M0M15Q; Q15; =V2; EXIT1;
 5756/4: 203 333 346                                                   7;      JS20;
 5757/1: 304 013 303|304 000 001|203 273 353                                 SETAV3; SET1; J21;
 5760/4: 304 242 005|201 273 362                                       8;      SETB121005; J18;               [ open channel 5 single forward
 5761/4: 304 242 105                                                   1;      SETB121105;                    [ open channel 5 double forward
 5762/1: 300 013 300|202 153 340                                       18;      V0; J19≠Z;
 5763/1: 166 341|052|167 041                                                 SHLD-16; ERASE; SHC+16;
 5764/0: 304 013 303|042|301 013 300|170 363                                 SETAV3; DUP; =V0; =RM15;
 5765/3: 041|103 360|171 376|301 013 302|200 320 106                         ZERO; =M0M15Q; Q15; =V2; JSE70;                                [B computed
 5767/2: 204 266 337                                                         J3P0;
 5767/5: 301 013 301|200 360 000                                             =V1; EXIT1;

=== Start P8V1; at address 3067/5773
                                                                       P8V1;
V-store at 05771 = 000 170 000 001 000 000                                   V0=Q120/1/0;
 5773/0: 157 017|304 000 240|220 034 011                                     Q0TOQ15; SETB240; J1=;
 5774/2: 300 013 372|042|204 154 001                                         V1; DUP; J2≠Z;
 5775/3: 033|304 000 024|170 371                                             NOT; SET20; =RC15;
 5776/3: 017|017|017|042|303 374 354                                   *3;      DUP; =YF4M15Q;
 5777/4: 017|017|177 360                                               *;      J3C15NZS;
 6000/2: 052|300 013 371|042|301 013 372                                     ERASE; V0; DUP; =V1;
 6001/4: 170 376|240 374 014                                           2;      =Q15; J4C15Z;
 6002/3: 171 362|167 373|042|170 362|164 255                                 M15; SHC-3; DUP; =M15; SHL-42;
 6004/0: 170 370|300 374 354|167 360|164 021|065                             =C15; YF4M15; SHCC15; SHL+8; REV;
 6005/4: 166 361|052|142 360|167 360|301 374 354                             SHLD-8; ERASE; NC15; SHCC15; =YF4M15;
 6007/2: 300 013 372|170 376|143 360|140 360|041                             V1; =Q15; DC15; M+I15; ZERO;
 6011/0: 052|171 362|042|164 377|054                                   1;      ERASE; M15; DUP; SHL-1; AND;
 6012/1: 304 000 002|054|171 376|056|301 013 372                             SET2; AND; Q15; +; =V1;
 6013/5: 041                                                                 ZERO;
 6014/0: 052|200 360 000                                               4;      ERASE; EXIT1;

=== Start P9V5; at address 3091/6023
V-store at 06015 = 050 242 212 050 242 212                             P9V5;      V0=B1212121212121212;
                                                                       [ original source of the next page
V-store at 06016 = 000 002 000 002 014 351                                   V1=Q2/2/AYF1;
Warning: YG0 is out of range, only 0 YG-stores specified
V-store at 06017 = 014 350 015 000 270 321                                   V2=QAYF0/AYG0/B134321;
V-store at 06020 = 377 021 046 056 061 236                                   V3=B7761044613430636;
V-store at 06021 = 377 027 056 063 052 236                                   V4=B7761345614625236;
 6023/0: 320 013 070|047|041|033|011                                         Z39; STR; ZERO; NOT; OR;
 6024/1: 050|321 013 070                                                     CONT; =Z39;
 6024/5: 304 000 204|200 333 373                                             SETB204; JSP8;
 6025/5: 304 000 216|200 333 373                                             SETB216; JSP8;
 6026/5: 304 000 224|200 333 373                                             SETB224; JSP8;
 6027/5: 300 014 020|301 014 350|300 014 021|301 014 352               5;      V3; =YF0; V4; =YF2;
 6031/5: 300 014 016                                                         V1;
 6032/2: 170 376|042|026|300 014 015|300 000 003                       6;      =Q15; DUP; ABS; V0; E3;
 6034/0: 300 000 002|166 255|052                                             E2; SHLD-42; ERASE;
 6035/0: 304 003 317|054|164 045|013|056                                     SETB1717; AND; SHL+18; TOB; +;
 6036/2: 300 014 015|065|067|164 043|171 364                           1;      V0; REV; FRB; SHL+17; I15;
 6037/5: 164 005|162 015|205 214 037                                   2;      SHL+2; SHAD+6; J2NV;
 6041/0: 304 000 236|011|103 360|052|244 374 043                             SETB236; OR; =M0M15Q; ERASE; J3C15Z;
 6042/4: 171 150|027|202 274 036                                       13;            C6; NEG; J1;
 6043/4: 300 014 017|170 376|225 054 045                               3;      V2; =Q15; J7<Z;
 6045/0: 304 014 352|170 364                                                 SETAYF2; =I15;
                                                                             7;
 6045/5: 171 376|200 320 106|017|017                                   4;      Q15; JSE70; DUMMY; DUMMY;                                    [B134321; sometimes
 6047/0: 041|052|200 360 000                                                 ZERO; ERASE; EXIT1;
=== Start P11V0; at address 3113/6051
                                                                       P11V0;
 6051/0: 304 000 236|224 034 057                                             SETB236; J1=;
 6052/0: 304 000 256|224 034 057                                             SETB256; J1=;
 6053/0: 304 000 240|221 034 055                                             SETB240; J2=;
 6054/0: 041|301 014 050|202 360 001                                         ZERO; =V0; EXIT2;
 6055/1: 300 014 050|204 154 057                                       2;      V0; J1≠Z;
 6056/1: 041|033|301 014 050|041|200 333 305                                 ZERO; NOT; =V0; ZERO; JSP7;
 6057/4: 200 333 373|200 360 000                                       1;      JSP8; EXIT1;


=== Start P12V0; at address 3122/6062
                                                                       P12V0;      (OUTPUTS A NUMBER IN N3 AFTER UP TO);
                                                                             (SIX ABS FROM N2. NUMBER OF ABS IN N1);
V-store at 06061 = 050 242 212 050 240 101                                   V0=B1212 1212 1212 0101;
 6062/0: 203 334 210                                                         JS2P754; (OUTPUT ABS);
 6062/3: 042|164 101|164 301|222 034 064                                     DUP; SHL+32; SHL-32; J1=;
 6063/5: 200 360 000                                                         EXIT1; (NUMBER TOO LARGE);
 6064/2: 300 014 061|065|067|304 000 006|170 371                       1;      V0; REV; FRB; SET6; =RC15;
 6066/0: 152 017|041                                                         I0TOQ15; ZERO; (LHZ SUPPRESS WHILE I15 = O);
 6066/3: 164 005|166 015|143 360|240 374 071                           2;      SHL+2; SHLD+6; DC15; J3C15Z;
 6070/0: 042|164 121|222 154 071                                             DUP; SHL+40; J4=Z;
 6071/0: 144 360                                                       3;      I15=+1; (END OF LHZ SUPPRESS);
 6071/2: 140 360|263 374 066                                           4;      M+I15; J2C15NZ; (M15 COUNTS SIGNIFICANT D1GITS);
 6072/1: 171 362|027|161 007|170 370                                         M15; NEG; SHA+3; =C15;
 6073/2: 166 360|052                                                         SHLDC15; ERASE; (LEFT-JUSTIFY ABS);
 6073/5: 171 362|203 334 210                                                 M15; JS2P754;
 6074/4: 202 360 001                                                         EXIT2;

=== Start P13V-1; at address 3134/6076
                                                                       P13;      (INSTRUCTIONS PER LINE COUNTER);
 6076/0: 242 274 100                                                         J1C11Z; (AFTER A USERCODE LABEL);
 6076/3: 143 260|261 274 102                                                 DC11; J2C11NZ;
 6077/2: 304 000 240|201 334 220                                             SETB240; JS1P754; (NEWLINE);
 6100/2: 304 000 256|201 334 220                                       1;      SETB256; JS1P754; (TAB);
 6101/2: 304 000 005|170 270                                                 SET5; =C11;
 6102/1: 200 360 000                                                   2;      EXIT1;

=== Start P14V-1; at address 3139/6103
                                                                       P14;      (OUTPUTS SEQUENCES OF ABS AND NUMBERS);
                                                                             (TERMINATED BY SEMICOLON,SPACE.NORMAL ENTRY);
                                                                       [ original source of the next page
                                                                             (PAIRS OF DATA WORDS IN N STORE,NUMBER );
                                                                             (OF PAIRS IN N1. ENTRY 1: DATA AS FOR P12);
 6103/0: 170 210                                                             =C8;
 6103/2: 171 210|143 200                                               4;      C8; DC8;
 6104/0: 200 334 062                                                   3;      JSP12;
 6104/3: 200 360 000                                                         EXIT1;
 6105/0: 262 214 103                                                         J4C8NZ;
 6105/3: 304 230 236|164 101|304 000 002|203 334 210                   2;      SETB114236; SHL+32; SET2; JS2P754;
 6107/2: 200 334 076                                                         JSP13;
 6107/5: 202 360 001                                                         EXIT2;
 6110/2: 154 010|200 274 104                                           1;      C0TOQ8; J3;

=== Start P16V-1; at address 3146/6112
                                                                       P16;      (FIND CODEWORD  DATA;M5=START ADDRESS OF D-LIST);
                                                                             (Q1O=-/+OR1÷REL.ADD. OF IDENT);
                                                                             (RESULTS :M10=REL ADD OF CODEWORD);
                                                                             (FAILURES:EXIT1 IF ADD. OF O WORD);
                                                                             (USES:2-NESTS.1-SJNS);
 6112/0: 100 245|140 240|042|167 377|222 054 114                             M5M10; M+I10; DUP; SHC-1; J1<Z;
 6113/4: 052|200 360 000                                                     ERASE; EXIT1;
 6114/2: 167 375|047|164 253|065|166 377                               1;      SHC-2; STR; SHL-43; REV; SHLD-1;
 6115/4: 054|171 244|034|050|172 242|202 360 001                             AND; I10; ×D; CONT; =+M10;EXIT2;
=== Start P45V3; at address 3156/6124
V-store at 06120 = 240 256 041 242 015 230                             P45V3;      V0=B5012 7041 5040 6630;
V-store at 06121 = 050 242 212 050 242 212                                   V1=B1212 1212 1212 1212;
V-store at 06122 = 000 000 000 236 236 236                                   V2=B4751 7236;
V-store at 06123 = 000 000 000 000 000 000                                   V3=0;
 6124/0: 300 014 123|170 371|205 274 127                                     V3; =RC15; J4;
 6125/2: 052|300 375 200|200 360 000                                   7;      ERASE; YV0M15; EXIT1;
 6126/3: 302 375 200|222 034 125                                       5;      YV0M15Q; J7=;
 6127/3: 140 360                                                             M+I15;
 6127/5: 263 374 126                                                   4;      J5C15NZ;
 6130/2: 304 015 300|304 015 201|036                                         SETAYW0; SETAYV1; -;
 6131/3: 171 362|036|200 114 136                                             M15; -; J6≤Z;
 6132/3: 042|303 375 200|320 013 126|164 101|164 301                         DUP; =YV0M15Q; Z9; SHL+32; SHL-32;
 6134/2: 303 375 200|171 362|161 377|301 014 123                             =YV0M15Q; M15; SHA-1; =V3;
 6136/0: 320 013 126|042|033|027|321 013 126                           6;      Z9; DUP; NOT; NEG; =Z9;
 6137/3: 164 101|164 301|042|012|300 014 121|065                             SHL+32; SHL-32; DUP; PERM; V1; REV;
 6141/1: 067|161 045|300 014 120|042|164 061|012|164 321                     FRB; SHA+18; V0; DUP; SHL+24; PERM; SHL-24;
 6143/1: 164 005|166 015|164 005|166 015                                     SHL+2; SHLD+6; SHL+2; SHLD+6;
 6144/3: 164 005|166 015|200 334 210|041                                     SHL+2; SHLD+6; JSP754; ZERO;
 6145/5: 166 015|164 005|166 015|065|052                                     SHLD+6; SHL+2; SHLD+6; REV; ERASE;
 6147/1: 166 041|066|065|164 013                                             SHLD+16; CAB; REV; SHL+5;
 6150/1: 166 007|164 013|166 007|200 334 210                                 SHLD+3; SHL+5; SHLD+3; JSP754;
 6151/4: 171 376|012|201 334 160|200 334 210|201 334 160|200 334 210         Q15; PERM; JS1; JSP754; JS1; JSP754;
 6154/1: 041|166 007|164 013|166 007|065                                     ZERO; SHLD+3; SHL+5; SHLD+3; REV;
 6155/3: 052|166 341                                                         ERASE; SHLD-16;
 6156/0: 052|300 014 122|011|200 334 210                                     ERASE; V2; OR; JSP754;
 6157/2: 170 376|200 360 000                                                 =Q15; EXIT1;
 6160/1: 041|304 000 006|170 370                                       1;      ZERO; SET6; =C15;
 6161/1: 017|017|017|017|017|164 013|166 007|017|017|143 360|177 360   *2;      SHL+5; SHLD+3; *DC15; J2C15NZS;
 6163/4: 200 360 000                                                         EXIT1;

This is L77
=== Start P2999V-1; at address 3189/6165
 6165/0: 065|042|223 154 171|041|024                                   L77;      REV; DUP; J164=Z; ZERO; FLOAT;
 6166/1: 047|012|041|162 021|066                                             STR; PERM; ZERO; SHAD+8; CAB;
 6167/1: 056|162 361|042|222 054 171                                         +; SHAD-8; DUP; J127<Z;
 6170/2: 050|065|050                                                         CONT; REV; CONT;

 6170/5: 200 360 000                                                   128;      EXIT1;
 6171/2: 052                                                           127;      ERASE;
 6171/3: 052|052|041|205 274 170                                       164;      ERASE; ERASE; ZERO; J128;

                                                                       [ original source of the next page
=== Start P100V0; at address 3196/6174
V-store at 06173 = 000 000 006 131 336 010                             P100V0;      V0=Q0/B3131/B157010;
 6174/0: 300 014 173|200 260 106                                             V0; JE70;                                                      [B157010;

=== Start P15V-1; at address 3197/6175
 6175/0: 154 010|041                                                   P15;      C0TOQ8; ZERO;
 6175/3: 052|143 200|200 331 215                                       1;      ERASE; DC8; JSP1;
 6176/3: 200 360 000                                                         EXIT1;
 6177/0: 042|161 003|304 000 113|036|026                                     DUP; SHA+1; SET75; -; ABS;
 6200/2: 304 000 064|036|223 054 175                                         SET52; -; J1<Z; (ALPHA);
 6201/3: 171 210|033|200 154 203                                             C8; NOT; J2≠Z;
 6202/3: 202 360 001                                                         EXIT2; (NOT A PARAMETER COMMENT);
 6203/0: 304 000 271|015|200 331 215                                   2;      SETB271; NEV; JSP1;
 6204/1: 204 274 205                                                         J3;
 6204/4: 304 000 204|015|011|042                                             SETB204; NEV; OR; DUP;
 6205/4: 052|200 360 000                                               3;      ERASE; EXIT1;
=== Start P754V0; at address 3208/6210
                                                                       P754V0;      (OUTPUT ABS TO CANNEL 7 IN POST FORMAT);
                                                                             (NORMAL ENTRY - 6 ABS IN N1);
                                                                             (ENTRY 1 - 1 ABS IN N1*D47);
                                                                             (ENTRY 2 - N ABS IN N2 LEFT-JUSTIFIED);
                                                                             (N*D47 IN N1.);
                                                                             (ENTRY 3 - CLOSE NO DATA REQUIRED);
                                                                             (WRITES ANY PARTIALLY COMPLETED WORDS OUT AND);
                                                                             (CLOSE THE CHANNEL 7, NO LAST BLOCKS, NO MORE START);
                                                                             (EXIT - EXIT1 IN THE EVENT OF FAILURE);
                                                                             (EXITS TO R4PO WITH FAILURE NUMBER PRINTS OUT);
                                                                             (AS FAIL O13OO. THEN CALLS S95);
 6210/0: 304 000 006                                                         SET6;
 6210/3: 300 014 207|065                                               2;      V0; REV;
 6211/1: 012|166 017|047|002|166 003                                   11;      PERM; SHLD+7; STR; =TR; SHLD+1;
 6212/2: 204 354 215                                                         J10NTR; (WORD NOT FULL);
 6212/5: 320 013 070|220 054 215|200 334 242|204 274 225                     Z39; J12<Z; JSP755; J5;
 6214/5: 041                                                                 ZERO;
 6215/0: 052|304 000 001                                               12;      ERASE; SET1; (NEW WORD FULL MARKER);
 6215/4: 066|027|033|042|221 114 211                                   10;      CAB; NEG; NOT; DUP; J11>Z;
 6216/5: 052|301 014 207|052|200 360 000                                     ERASE; =V0; ERASE; EXIT1;
 6220/1: 164 121|304 000 001|203 274 210                               1;      SHL+40; SET1; J2;
 6221/3: 300 014 207|027|033|221 154 224                               3;      (CLOSE); V0; NEG; NOT; J7=Z;
 6222/5: 041|033|201 334 220                                                 ZERO; NOT; JS1;
 6223/4: 203 274 221                                                         J3;
 6224/1: 202 334 272                                                   7;      JS3P755;
 6224/4: 200 274 226                                                         J6;
 6225/1: 200 360 000                                                         EXIT1;
 6225/4: 052|052                                                       5;      ERASE; ERASE;
 6226/0: 173 000|052|041|201 266 340                                   6;      LINK; ERASE; ZERO; J4P0;
 6227/1: 304 261 343|167 003|200 320 106                               8;      SETB130743; SHC+1; JSE70;                                    [B130743;
 6230/3: 200 274 226                                                         (CLOSE CH. 7 WRITE 2 LBS); J6;
 6231/0: 304 000 001|301 014 207|200 334 266|200 274 226               4;      (OPEN); SET1; =V0; JS1P755; J6;
 6233/0: 320 013 074|222 054 235                                             Z35; J13<Z; (POST);
 6234/0: 300 000 060|164 101|221 154 227                                     E48; SHL+32; J8=Z;
 6235/2: 200 360 000                                                   13;      EXIT1;
=== Start P755V3; at address 3234/6242
                                                                       P755V3;      (32-WORD BLOCKS ABS IN POST FORMAT TO CH.7 MAG. TAPE);
V-store at 06237 = 015 300 015 337 242 107                                   V1=QAYW0/AYW31/B121107;
V-store at 06240 = 015 340 015 377 000 000                                   V2=QAYW32/AYW63/0;
                                                                       9;      (NORMAL ENTRY-6 ABS IN N1);
 6242/0: 300 014 236|170 376|103 360|240 374 245                             V0; =Q15; =M0M15Q; J2C15Z;
 6243/4: 171 376|301 014 236|202 360 001                                     Q15; =V0; EXIT2;
                                                                       2;      (BUFFER FULL);
 6245/0: 300 014 241|225 154 253                                             V3; J10=Z;(IF TEXT PRINTOUT NOT REQ.);
 6246/0: 171 376|301 014 241                                                 Q15; =V3;
 6246/5: 171 362|042|170 364|304 000 035|036|170 370                         M15; DUP; =I15; SET29; -; =C15;
 6250/4: 304 270 321|170 362|171 376|200 320 106|203 274 302                 SETB134321; =M15; Q15; JSE70; J7;                              [B134321;
                                                                       [ original source of the next page
 6252/5: 300 014 241|170 376|052                                             V3; =Q15; ERASE;
                                                                       10;      (ALSO ENTERED PROM R248PO);
 6253/5: 171 362|304 000 036|042|170 371|036                                 M15; SET30; DUP; =RC15; -;
 6255/2: 170 362|041|042                                                     =M15; ZERO; DUP;
 6256/0: 102 360|047|057                                               *5;      M0M15Q; STR; +D;
 6256/4: 017|017|177 360                                               *;      J5C15NZS;
 6257/2: 320 013 127|042|033|027|321 013 127                                 Z8; DUP; NOT; NEG; =Z8;
 6260/5: 164 101|164 301|042|051|066                                         SHL+32; SHL-32; DUP; REVD; CAB;
 6262/0: 047|057|042|161 365|200 154 302                                     STR; +D; DUP; SHA-6; J8≠Z;
 6263/2: 164 041|066|166 341|052                                             SHL+16; CAB; SHLD-16; ERASE;
 6264/2: 103 360|103 360                                                     =M0M15Q; =M0M15Q;
 6265/0: 304 340 007|200 274 267                                       11;      SETB160007; J4; (ALSO ENTERED FROM R247PO);
                                                                       1;      (OPEN);
 6266/0: 300 014 240|300 014 237                                             V2; V1;
 6267/0: 200 320 106                                                   4;      JSE70;                                                       [B121107;
 6267/3: 203 274 302                                                         J7;
 6270/0: 033|027|304 000 003|164 101|036                                     NOT; NEG; SET3; SHL+32; -;
 6271/2: 301 014 236|202 360 001                                             =V0; EXIT2;
                                                                       3;      (CLOSE);
 6272/2: 300 014 236|164 301|304 000 035|036|221 154 276                     V0; SHL-32; SET29; -; J6=Z;
 6274/2: 041|033|200 334 242                                                 ZERO; NOT; JS9;
 6275/1: 203 274 302                                                         J7;
 6275/4: 202 274 272                                                         J3;
 6276/1: 300 014 236|027|033|170 364                                   6;      V0; NEG; NOT; =I15;
 6277/2: 304 140 007|170 362|171 376|200 320 106                             SETB60007; =M15; Q15; JSE70;                                   [B60007;
 6301/0: 203 274 302                                                         J7;
 6301/3: 202 360 001                                                         EXIT2;
 6302/0: 052|052|052                                                   8;      ERASE; ERASE; ERASE;
 6302/3: 200 360 000                                                   7;      EXIT1; (FAILURE EXIT);

=== Start P-1V-1; at address 3267/6303
Finished
                                                                             FINISH;

Reached end of file