Kidsgrove Algol Compiler - Brick 60

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

Loaded 93265 bytes for DavidHu/KAB60.txt
Relocated 12
Finished
Reached end of file


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


  11304  W0 = E4804
  14300  Y0 = E6336
  11306 YA0 = E4806
  11612 YB0 = E5002
  11712 YC0 = E5066
  12013 YD0 = E5131
  12113 YE0 = E5195
  12164 YF0 = E5236
  12177 YG0 = E5247
  12300 YY0 = E5312
  13300 YZ0 = E5824


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


                                                                       ST11104; TL  600;
                                                                       START 1600;
                                                                             V106; W1;
                                                                       YA  195; YB   63; YC   64;
                                                                       YD   63; YE   40; YF   10;
                                                                       YG64;
                                                                       YY  511; YZ  511;
    4/0: 203 267 114|203 267 114                                       RESTART;J3P206;J3P206;
                                                                       PROGRAM;	[ if TEXT option set the call to B24 requests the O/P of the Level Parameters - hux

V-store at 03100 = 000 000 071 250 201 027                                   V0=B007152100427; (23O-J);   [ these V-stores use a 6-bit code
V-store at 03101 = 000 000 036 101 363 041                                   V1=B3620371441; (SETAV);     [ of the upper case letters of the ABS code
V-store at 03102 = 000 000 000 003 275 044                                   V2=B736444; (;=Y);           [ 73 is ; 75 is star/dollar/pound
V-store at 03103 = 000 000 000 001 200 173                                   V3=B300173; (M1;);
V-store at 03104 = 000 000 000 001 127 233                                   V4=B253633; (JSP);
V-store at 03105 = 000 000 000 355 344 037                                   V5=B73362037; (;SET);
V-store at 03106 = 000 000 073 322 120 073                                   V6=B7364450073; (;=Z0;);
V-store at 03107 = 000 016 336 101 363 044                                   V7=B733620371444; (;SETAY);
V-store at 03110 = 003 265 136 154 040 200                                   V8=B73253633020200; (;JSP220);
V-store at 03111 = 000 004 043 121 360 173                                   V9=B204324370173; (EXIT1;);
V-store at 03112 = 000 000 000 005 000 026                                   V10=B0000000001200026; (YOM2Q);
V-store at 03113 = 000 000 073 365 344 037                                   V11=B7375362037; (;*SET);
V-store at 03114 = 355 127 233 010 020 073                                   V12=B7325363302010073; (;JSP210);
V-store at 03115 = 355 127 233 010 041 273                                   V13=B7325363302020673; (;JSP226;);
V-store at 03116 = 000 000 030 013 275 044                                   V14=B3002736444; (M2;=Y);
V-store at 03117 = 000 007 220 174 311 015                                   V15=B362037144415; (SETAYB);
V-store at 03120 = 000 000 064 150 201 027                                   V16=B0000006432100427; (2O9-J);
V-store at 03121 = 000 000 067 250 102 227                                   V17=B6752041227;(222-J);
V-store at 03122 = 000 000 067 340 100 027                                   V18=B6770040027; (223-JP);
V-store at 03123 = 142 305 002 357 377 377                                   V19=B3054240273777777; (M+I2; M/C);
V-store at 03124 = 000 000 063 340 100 027                                   V20=B0000006370040027; (2O7-J);
V-store at 03125 = 000 000 065 140 100 027                                   V21=B0000006530040027; (213-J);
V-store at 03126 = 000 000 001 040 001 045                                   V22=B0000000110000445; (M1(IL));
V-store at 03127 = 000 000 065 350 201 027                                   V23=B6572100427; (215-JSP);
V-store at 03130 = 355 127 233 010 040 073                                   V24=B7325363302020073; (;JSP220;);
V-store at 03131 = 000 000 000 355 120 173                                   V25=B73250173; (;J1;);
V-store at 03132 = 356 251 120 165 256 317                                   V26=B7352452035327317; (*;ZERO;D);
V-store at 03133 = 201 276 336 101 360 273                                   V27=B4033733620370273; (UP;SET2;);
V-store at 03134 = 076 006 373 322 120 173                                   V28=B1740337364450173; (DUP;=Z1;);
V-store at 03135 = 321 326 002 357 106 001                                   V29=B6435300273643001; (=RM2;=M1);
V-store at 03136 = 000 000 000 003 265 136                                   V30=B732536; (;JS);
V-store at 03137 = 356 124 035 153 266 240                                   V31=B7345203532733240; (;ZERO;OU);
V-store at 03140 = 000 000 000 000 007 373                                   V32=B3773; (T;);
V-store at 03141 = 000 000 000 000 016 341                                   V33=B7341; (;V);
V-store at 03142 = 355 127 233 010 021 273                                   V34=B7325363302010673; (;JSP216;);
V-store at 03143 = 000 004 035 061 344 073                                   V35=B203514362073; (ERASE;);
V-store at 03144 = 000 000 000 357 111 014                                   V36=B73644414; (;=YA);
V-store at 03145 = 355 127 233 010 042 073                                   V37=B7325363302021073; (;JSP228;);
V-store at 03146 = 355 127 233 010 022 073                                   V38=B7325363302011073; (;JSP218;);
V-store at 03147 = 105 106 124 171 076 350                                   V39=B2124312436237350; (FINISH;EM);
V-store at 03150 = 000 000 000 000 000 044                                   V40=B44; (Y);
V-store at 03151 = 001 200 173 321 200 273                                   V41=B30017364300273; (M1;=M2;);
V-store at 03152 = 355 127 233 010 042 173                                   V42=B7325363302021173; (;JSP229;);
V-store at 03153 = 355 127 233 010 020 273                                   V43=B7325363302010273; (;JSP212;);
V-store at 03154 = 003 265 133 010 022 173                                   V44=B73253302011173; (;JP219;);
V-store at 03155 = 000 000 036 101 363 035                                   V45=B3620371435; (SETAR);
V-store at 03156 = 000 000 000 000 016 325                                   V46=B7325; (;J);
V-store at 03157 = 000 000 000 000 015 034                                   V47=B6434; (=Q);
V-store at 03160 = 000 000 000 002 263 044                                   V48=B531444; (/AY);
                                                                       [ original source of the next page
V-store at 03161 = 000 000 000 002 263 035                                   V49=B531435; (/AR);
V-store at 03162 = 000 000 067 150 102 227                                   V50=B0000006732041227; (P221-J);
V-store at 03163 = 000 000 062 150 100 027                                   V51=B0000006232040027; (P2O1-J);
V-store at 03164 = 001 127 233 010 000 273                                   V52=B25363302000273; (JSP2O2;);
V-store at 03165 = 001 127 233 010 000 373                                   V53=B25363302000373; (JSP2O3;);
V-store at 03166 = 000 000 073 321 200 373                                         V54=B7364300373; (;=M3;);
V-store at 03167 = 355 127 233 010 001 173                                   V55=B7325363302000573; (;JSP205;);
V-store at 03170 = 000 000 000 165 010 173                                   V56=B35204173; (REV;);
V-store at 03171 = 000 005 136 154 040 004                                   V57=B253633020004; (JSP2O4);
V-store at 03172 = 000 376 316 151 227 373                                   V58=B17731632313773; (*D;CONT);
V-store at 03173 = 000 000 000 001 224 022                                   V59=B312022; (NEG);
V-store at 03174 = 000 000 036 121 046 173                                   V60=B3624223173; (SIGN;);
V-store at 03175 = 000 007 224 111 224 173                                   V61=B362422312173; (SIGNF;);
V-store at 03176 = 171 367 173 165 010 173                                   V62=B3637357335204173; (STR;REV;);
V-store at 03177 = 000 000 000 145 247 373                                   V63=B31323773; (NOT;);
V-store at 03200 = 000 000 000 145 004 273                                   V64=B31202273; (NEG;);
V-store at 03201 = 000 007 223 062 320 173                                   V65=B362314550173; (SHA-1;);
V-store at 03202 = 060 327 273 145 004 273                                   V66=B1415367331202273; (ABS;NEG;);
V-store at 03203 = 000 000 000 145 247 373                                   V67=B31323773; (NOT;);
V-store at 03204 = 000 000 000 061 223 373                                   V68=B14311773; (AND;);
V-store at 03205 = 000 000 000 001 247 173                                   V69=B323573; (OR;);
V-store at 03206 = 145 010 173 145 247 373                                   V70=B3120417331323773; (NEV;NOT;);
V-store at 03207 = 000 000 000 076 006 373                                   V71=B17403373; (DUP;);
V-store at 03210 = 000 000 033 101 326 073                                   V72=B3320353073; (PERM;);
V-store at 03211 = 000 000 035 102 023 373                                   V73=B3520411773; (REVD;);
V-store at 03212 = 017 017 017 017 051 065                                   V74=B360741703624465; (BINARY REVD REV);
V-store at 03213 = 000 000 000 070 303 173                                   V75=B16141573; (CAB;);
V-store at 03214 = 017 017 017 017 066 065                                   V76=B360741703633065; (BINARY CAB REV);
V-store at 03215 = 017 017 017 017 012 051                                   V77=B360741703605051; (BINARY PERM REVD);
V-store at 03216 = 017 017 017 066 065 051                                   V78=B360741715432451; (CAB REV REVD);
V-store at 03217 = 017 017 017 017 012 065                                   V79=B360741703605065; (PERM REV);
V-store at 03220 = 017 017 017 012 051 065                                   V80=B360741702424465; (PERM REVD REV);
V-store at 03221 = 017 017 017 012 051 012                                   V81=B360741702424412; (PERM REVD PERM);
V-store at 03222 = 017 017 017 017 051 065                                   V82=B360741703624465; (REVD REV);
V-store at 03223 = 000 000 017 201 263 373                                   V83=B1740331773; (DUPD;);
V-store at 03224 = 001 127 233 010 060 273                                   V84=B25363302030273; (JSP232;);
V-store at 03225 = 125 341 033 010 060 173                                   V85=B2536043302030173; (JS4P232;);
V-store at 03226 = 125 340 333 010 060 173                                   V86=B2536033302030173; (JS3P231;);
V-store at 03227 = 125 340 233 010 060 173                                   V87=B2536023302030173; (JS2P231;);
V-store at 03230 = 125 340 133 010 060 173                                   V88=B2536013302030173; (JS1P231;);
V-store at 03231 = 000 000 000 003 124 173                                   V89=B652173; (*F;);
V-store at 03232 = 000 000 036 101 360 173                                   V90=B3620370173; (SET1;);
V-store at 03233 = 000 000 027 121 225 273                                   V91=B2724312673; (LINK;);
V-store at 03234 = 001 127 233 010 101 073                                   V92=B25363302040473;(JSP244;);
V-store at 03235 = 001 127 233 010 002 073                                   V93=B25363302001073; (JSP2O8;);
V-store at 03236 = 000 000 000 001 200 373                                   V94=B300373; (M3;);
V-store at 03237 = 001 127 233 010 001 273                                   V95=B25363302000673; (JSP2O6;);
V-store at 03240 = 000 000 000 003 111 173                                   V96=B644573; (=Z;);
V-store at 03241 = 000 000 000 171 007 314                                   V97=B36203714; (SETA);
V-store at 03242 = 000 000 045 101 326 273                                   V98=B4520353273; (ZERO;);
V-store at 03243 = 000 016 364 261 200 273                                   V99=B736454300273; (;=+M2;);

V-store at 03244 = 001 126 302 014 070 173                                   V100=B25330203034173; (JP233V;);
V-store at 03245 = 000 000 075 350 101 027                                   V101=B7572040427; (247-J,-I,S,P);
V-store at 03246 = 142 325 002 357 377 377                                   V102=B3055240273777777; (M-I2; M/C);
V-store at 03247 = 000 000 000 004 000 025                                   V103=B1000025; (YOM2);
V-store at 03252 = 003 265 136 154 041 010                                   V106=B73253633020410; (;JSP248);
                                                                             (INITIALISE TRANSLITERATOR);
                                                                       	[JSP903;hux diagnostic
 3253/0: 304 000 004|202 326 310|304 000 007|202 326 310|036           20;      SET4; JS24; SET7; JS24; -;
 3255/1: 205 146 263                                                         J27≠Z; (IF CHANNEL 4 DEVICE ≠ CHANNEL 7 DEVICE);
                                                                       [ original source of the next page
                                                                             (I.E. IF CHANNELS 4 AND 7 NOT ON SAME TAPE);
 3255/4: 204 334 264                                                         JS1P2; (OPEN CHANNEL 4);
 3256/1: 200 327 171                                                         JS1P760; (OPEN CHANNEL 5);
 3256/4: 200 334 261                                                   26;      JSP2; (READ NEXT WORD);
 3257/1: 042|200 327 164                                                     DUP; JSP760; (WRITE WORD);
 3257/5: 304 001 234|015|164 117|204 146 256                                 SETB634; NEV; SHL+39; J26≠Z;
                                                                             (I.E. COPY CHANNEL 4 TO CHANNEL 5);
 3261/2: 203 334 302                                                         JS3P2; (CLOSE CHANNEL 4);
 3261/5: 203 327 173                                                         JS3P760; (CLOSE CHANNEL 5);
 3262/2: 304 344 004|200 320 106|200 266 314                                 SETB162004; JSE70; J25;
                                                                             (INTERCHANGE CHANNELS 4 AND 5);

                                                                       [ not at all clear what is going on here
 3263/5: 320 013 123|164 101|161 301|304 000 277                       27;   Z12; SHL+32; SHA-32; SET191; 	[this seems to keep the call matrix space,
                                                                       					[call matrix is not used
 3265/3: 056                                                                 +; (+AZ5O=TOP ADDRESS OP WORKING SPACE);
 3265/4: 042|304 053 056|056|304 022 304|036|170 231                         DUP; SETAZ49; +;  SETAW0; -; =RC9;
 3267/3: 164 101|320 013 124|164 341|166 041                                 SHL+32; Z11; SHL-16; SHLD+16;
 3271/0: 321 013 124|052                                                     =Z11; ERASE; (ERASE CALL MATRIX);

 3271/4: 017|017|041|313 222 304                                       *21;	ZERO; = W0M9Q;
 3272/4: 017|017|177 220                                               	*J21C9NZS; (CLEAR WORKING SPACE) [ no evidence that this is needed hux

 3273/2: 304 000 100|042|170 231                                            SET64; DUP; =RC9; (INITIALISE J);
 3274/2: 042|170 151|170 211                                                 DUP; =RC6; =RC8; (J,V DASHED);
 3275/1: 140 200                                                             M+I8; (SETV=1);
 3275/3: 304 000 304|170 251                                                 SET196; =RC10; (P);
 3276/2: 041|170 171                                                         ZERO; =RC7; (I);

 3276/5: 320 013 124|170 122                                           	Z11; =M5; (GAMMA)

 3277/4: 145 120|304 053 055|171 122|056                                     I5=-1; SETAZ50; M5; +;
 3301/0: 304 030 300|036|170 130                                             SETAY0; -; =C5; (FREE SPACE AVAILABLE);
 3302/0: 320 013 126|164 301|311 004 124                                     Z9; SHL-32; =YE9; (NEXT FREE REFERENCE);
 3303/2: 204 334 264                                                         JS1P2; (OPEN FETCH); (CHANNEL  4);
 3303/5: 202 327 036                                                         JS1P6; (OPEN PRINTER CHANNEL); (CHANNEL 3);
 3304/2: 200 327 141                                                         JS1P754; (OPEN MAG. TAPE CHANNEL); (CHANNEL 7);
 3304/5: 200 334 261|042|304 001 377|054                                     JSP2; DUP; SETB777; AND;
 3306/1: 304 001 214|015|220 146 315                                         SETB614; NEV; J22=Z;
 3307/2: 304 000 074|200 267 061                                             SET60; JP206; (FAILURE O/6O-PROGRAM
                                                                             DOES NOT BEGIN WITH BEGIN PROGRAM);
 3310/2: 304 000 100|011|200 320 106|200 266 314                       24;      (CHANNEL NO. IN NI); SETB100; OR; JSE70; J25;
 3312/0: 164 023|047|002|164 257|222 346 310                                 SHL+9; STR; =TR; SHL-41; J24TR;
 3313/3: 200 360 000                                                         EXIT1; (DEVICE N0. 0F CHANNEL, IN N1);
 3314/0: 304 017 170|200 267 061                                       25;      (PANACEA FAILURE); SET3960; JP206;
 3315/0: 313 242 306                                                   22;      =YA0M10Q;
 3315/3: 200 334 261|042|311 004 127                                   1;      JSP2; DUP; =YE12;
 3316/4: 042|304 000 200|054|220 146 325                                     DUP; SETB200; AND; J2=Z;
 3320/0: 042|304 000 017|054|042|304 000 015                                 DUP; SETB17; AND; DUP; SET13;
 3321/3: 036|225 146 353                                                     -; J3=Z;
 3322/1: 304 000 016|036|220 146 355                                         SET14; -; J4=Z;
 3323/2: 052|200 330 052|203 266 315                                         ERASE; JSP402; J1; (EXIT1);
 3324/3: 205 267 101                                                         J10P206; (EXIT2 - END OF PROG.);
 3325/0: 042|304 000 100|054|203 146 361                               2;      DUP; SETB100; AND; J6≠Z; (JUMP IF D41≠0);
                                                                       5;      (VARIABLE PROCESSOR);
 3326/2: 042|304 002 000|054|202 146 331                                     DUP; SETB1000; AND; J15≠Z;
                                                                             (IF L-MARKER SET);
 3327/4: 042|311 004 133|200 330 143|203 266 315                       23;      DUP; =YE16; JSP406; (IDENT. PROC.); J1;
 3331/2: 042|304 000 037|054|304 000 031|036                           15;      DUP; SETB37; AND; SETB31; -;
 3332/5: 224 146 327                                                         J23=Z; (IP LABEL WITH BLOCK NESTING NO.=1);
 3333/2: 042|304 001 030|054|202 146 352                                     DUP; SETB430; AND; J16≠Z;
 3334/4: 042|304 000 040|054|222 146 352                                     DUP; SETB40; AND; J16=Z;
 3336/0: 042|304 000 210|011|304 003 377|054                                 DUP; SETB210; OR; SETB1777; AND;
 3337/3: 171 162|164 031|056|313 203 312                                     M7; SHL+12; +; =YC0M8Q;
 3340/5: 240 214 341                                                         J1P750C8Z;
 3341/2: 164 321|304 001 000|056|164 061                                     SHL-24; SETB400; +; SHL+24;
 3342/4: 304 040 025|056                                                     SETB20025; +;
                                                                       [ original source of the next page
 3343/2: 171 162|164 115|304 001 005|056                                     M7; SHL+38; SETB405; +;
 3344/4: 143 120|143 120|171 130|224 106 346                                 DC5; DC5; C5; J17>Z;
 3346/1: 200 275 001                                                         J1P407; (SPACE SAVER-FAILS);
 3346/4: 171 162|012|313 170 300|313 170 300                           17;      M7; PERM; =Y0M7Q; =Y0M7Q;
 3350/1: 164 007|033|027|313 223 212                                         SHL+3; NOT; NEG; =YB0M9Q;
 3351/2: 240 234 346|203 266 315                                             J10P750C9Z; (N.S. FULL); J1;
 3352/2: 313 203 312|240 214 342|203 266 315                           16;      =YC0M8Q; J2P750C8Z; (L.P. LIST FULL); J1;
 3353/5: 052|200 330 107                                               3;      (CLASS 13, I.E. CONSTANT); ERASE; JSP405; (CONSTANT FETCH);
 3354/3: 203 266 315                                                         J1;
                                                                       4;      (CODE PROC.);
 3355/0: 164 301|300 006 104|200 330 060                                     SHL-32; V4; JSP403;
 3356/2: 304 000 073|200 330 060                                             SETB73; JSP403;
 3357/2: 310 242 305|304 001 000|011|311 242 305                             YA-1M10; SETB400; OR; =YA-1M10;
                                                                             (TO INHIBIT FETCH OF CODE FUNCT. DESIG.);
 3361/0: 203 266 315                                                         J1;
 3361/3: 042|304 000 030|054                                           6;      (DECLARATION); DUP; SETB30; AND;
 3362/2: 164 373|042|221 147 002                                             SHL-3; DUP; J7=Z; (REAL, INTEGER, BOOLEAN);
 3363/2: 027|033|042|220 147 003                                             NEG; NOT; DUP; J8=Z; (ARRAY);
 3364/2: 027|033|220 147 012                                                 NEG; NOT; J9=Z; (PROCEDURE);
                                                                             (SWITCH OR LABEL);
 3365/1: 042|304 000 007|054|224 147 000                                     DUP; SETB7; AND; J10=Z; (SWITCH);
                                                                       14;
 3366/3: 164 301|042|311 004 132                                             SHL-32; DUP; =YE15;(REF);
 3367/3: 304 000 051|200 330 060|304 016 352|200 330 060                     SETB51; JSP403; SETB7352; JSP403; (O/P REF);
 3371/3: 320 013 127|170 376|244 366 375                                     Z8; =Q15; J28C15Z;
 3372/5: 310 004 132|171 370|036|224 046 375                                 YE15; C15; -; J28<Z; (IF ALGOL REF);
 3374/2: 320 013 071|164 011|203 046 315                                     Z38; SHL+4; J1≥Z; (IF WITHOUT TEXT);
                                                                       28;
 3375/4: 310 004 132|300 006 105|200 330 060|300 006 106|200 330 060         YE15; V5; JSP403; V6; JSP403;
 3400/1: 203 266 315                                                         J1;
                                                                       10;      (SWITCH);
 3400/4: 313 203 312|240 214 343                                             =YC0M8Q; J3P750C8Z;
 3401/4: 203 266 315                                                         J1;
 3402/1: 052                                                           7;      ERASE;
 3402/2: 052|203 266 315                                               13;      ERASE; J1;
                                                                       8;      (ARRAY);
 3403/0: 052|310 203 311|304 000 030|054|164 373                             ERASE; YC-1M8; SETB30; AND; SHL-3;
 3404/4: 027|033|203 147 007|052|310 004 131                                 NEG; NOT; J12≠Z; ERASE; YE14;
 3406/1: 033|027|311 004 131|203 266 315                                     NOT; NEG; =YE14; J1; (M:=M+1);
 3407/3: 313 203 312|240 214 344                                       12;      =YC0M8Q; J4P750C8Z; (L.P. LIST FULL);
 3410/3: 304 000 001|311 004 131|203 266 315                                 SET1; =YE14; J1;
                                                                       9;
 3412/0: 164 261|304 012 175|200 330 060                                     SHL-40; SETB5175; JSP403;
 3413/2: 304 000 073|200 330 060                                             SETB73; JSP403;
 3414/2: 304 012 152|200 330 060                                             SETB5152; JSP403;
 3415/2: 310 004 127|304 000 007|054|311 004 114                             YE12; SETB7; AND; =YE1;
 3417/0: 304 000 230                                                         SETB230;
 3417/3: 042|200 334 261|036|203 147 017                               11;      DUP; JSP2; -; J11≠Z; (SEARCH
 3420/5: 052|203 266 315                                                     FOR SEMI-COLON); ERASE; J1;
                                                                             (END OF MAIN ORGANISING LOOP);
=== Start P6V7; at address 1818/3432
                                                                       P6V7;      (USER-CODE TO PRINTER);
V-store at 03422 = 024 300 024 337 242 003                                   V0=QAYY0/AYY31/B121003;
V-store at 03423 = 024 340 024 377 000 000                                   V1=QAYY32/AYY63/0;
V-store at 03424 = 000 000 000 000 000 000                                   V2=0;
V-store at 03425 = 025 000 026 200 270 321                                   V3=QAYY64/AYY448/B134321;
V-store at 03426 = 377 377 377 377 140 303                                   V4=Q-1/-1/B60303;
V-store at 03427 = 000 000 175 004 072 321                                   V5=B17501035321;
V-store at 03431 = 001 200 000 001 025 000                                   V7=Q384/1/AYY64;
 3432/0: 320 013 071|164 011|202 047 057                               11;      (NORMAL ENTRY); Z38; SHL+4; J9≥Z; (IF NO TEXT REQ.);
 3433/2: 300 007 024                                                         V2;
                                                                       [ original source of the next page
 3433/5: 170 376|103 360|243 367 045|171 376                           2;      =Q15; =M0M15Q; J4C15Z; Q15;
 3435/2: 301 007 024|200 360 000                                       7;      =V2; EXIT1;
 3436/2: 320 013 071|164 011|203 047 057                               1;      (OPEN); Z38; SHL+4; J10≥Z;
 3437/4: 300 007 023|300 007 022|200 320 106|203 267 046                     V1; V0; JSE70; J6;
 3441/4: 300 007 023|300 007 022|304 000 016|056                             V1; V0; SETB16; +;
 3443/2: 200 320 106|203 267 046|052|300 007 031|202 267 035           8;      JSE70; J6; ERASE; V7; J7;
 3445/3: 300 007 025|202 267 043                                       4;      V3; J8;
 3446/3: 304 015 350|200 267 061                                       6;      SET3560; JP206;
                                                                       3;      (CLOSE);
 3447/3: 320 013 071|164 011|203 047 057                                     Z38; SHL+4; J10≥Z;
 3450/5: 300 007 025|170 376|300 007 024|170 364                             V3; =Q15; V2; =I15;
 3452/3: 171 364|171 370|036|222 147 055                                     I15; C15; -; J12=Z;(BUFFER NOT PARTIALLY FILLED);
 3453/5: 171 376|200 320 106|203 267 046                                     Q15; JSE70; J6;
 3455/1: 052                                                                 ERASE;           [ inserted by DHo to cope with uncertainties about results form JSE70 -- see p45.jpg and p47.jpg
 3455/2: 300 007 026|200 320 106|203 267 046|200 360 000               12;      V4; JSE70; J6; EXIT1;
 3457/2: 052                                                           9;      ERASE;
 3457/3: 200 360 000                                                   10;      EXIT1;
=== Start P206V0; at address 1841/3461
                                                                       P206V0;      (FAILURE÷FINISH ROUTINE);

 3461/0: 300 007 060|225 047 100                                       6;      (FAILURE); V0; J12<Z;
 3462/0: 042|164 003|033|027|167 377                                         DUP; SHL+1; NOT; NEG; SHC-1;
 3463/1: 042|301 007 060|321 013 070                                         DUP; =V0; =Z39; (SET FAILURE MARKER, NUMBER);
 3464/2: 171 036|311 002 267                                           8;      Q1; =W-13;
 3465/1: 304 000 016|170 031|304 000 001|167 351                             SET14; =RC1; SET1; SHC-12;
 3466/5: 017|171 056|065|042|300 007 067|056                           *11;      Q2; REV; DUP; R11; +;
 3470/2: 301 007 067|065|313 022 270|260 027 067                             =R11; REV; =W-12M1Q; J11C1NZ;
                                                                             (PRESERVE Q1-15 IN W-13 TO W1);
 3472/0: 052|041|301 015 024                                                 ERASE; ZERO; =V4P751;
 3472/5: 170 045                                                             =RI2; (PRESERVE FAILURE NUMBER);
 3473/1: 222 247 074|052|201 267 073                                   9;      J1EN; ERASE; J9;
                                                                       1;
 3474/2: 304 377 350|167 365|200 330 060                                     SETB177750; SHC-6; JSP403; (E.M.
                                                                             AND PACK OUT,TO FORCE OUT BUFFERS);
 3475/4: 203 334 302                                                         JS3P2; (CLOSE CHANNEL 4);
 3476/1: 202 327 147                                                   	JS3P754; (CLOSE CHANNEL 7);
 3476/4: 203 327 047                                                         JS3P6; (CLOSE CHANNEL 3-PRINTER U/C O/P);
 3477/1: 304 000 200|170 042|171 056|200 260 106                             SETB200; =M2; Q2; JE70; (FAILURE
                                                                             NUMBER TO MON. FLEX. AND PRINTER; RETURN VIA RESTART);
 3500/5: 304 006 125|203 267 112                                       12;      SETB3125; J7; (CALL FAILURE BRICK 95);
                                                                       10;      (FINISH);
 3501/5: 304 000 001|167 375|321 013 070                                     SET1; SHC-2; =Z39; (NO FAILURE);
 3503/1: 203 334 302|203 327 047|202 327 147                                 JS3P2; JS3P6; JS3P754; (CLOSE CHANNELS 4,3,7);
 3504/4: 320 013 071|164 003|220 047 107                                     Z38; SHL1; J4<Z; (IF WITH TRACE used to be TEXT);
 3506/0: 304 006 024|203 267 112                                             SETB3024; J7; (TO CALL BRICK 84);

 3507/0: 304 004 224|320 013 125|164 337|164 043                       4;      SETB2224; Z10; SHL-17; SHL+17;
 3510/4: 304 206 024|164 101|164 301|056|321 013 125                         SETB103024; SHL+32; SHL-32; +; =Z10; [ output the level parameters - hux

 3512/3: 170 364|304 336 010|170 362                                   7;      =I15; SETB157010; =M15;
 3513/4: 171 376|200 260 106                                                 Q15; JE70; (CALL NEXT BRICK);
                                                                       3;      (OPERATOR RESTART-ODD OR EVEN);
 3514/3: 304 046 204|200 267 061                                             SET9860; J6; (FAILURE 98/6O);

=== Start P754V2; at address 1873/3521
                                                                       P754V2;      (CHANNEL 7-32 WORD BLOCKS A.B.S. TO MAG. TAPE);
V-store at 03517 = 026 200 026 237 243 007                                   V1=QAYY448/AYY479/B121407;
V-store at 03520 = 026 240 026 277 000 000                                   V2=QAYY480/AYY511/0;
                                                                       9;      (NORMAL ENTRY-- 6A.B.S. CHARS. IN N1);
 3521/0: 300 007 116|170 376|103 360|240 367 124                             V0; =Q15; =M0M15Q; J2C15Z;
 3522/4: 171 376|301 007 116|200 360 000                                     Q15; =V0; EXIT1;
                                                                       2;      (BUFFER FULL);
 3524/0: 171 362|304 000 036|042|170 371|036                                 M15; SET30; DUP; =RC15; -;
 3525/3: 170 362                                                             =M15;
 3525/5: 041|042                                                             ZERO; DUP;
 3526/1: 017|017|017|017|017|102 360|047|057|017|017|177 360           *5;      M0M15Q; STR; +D; *J5C15NZS; (SUM 3O WORDS);
 3530/2: 320 013 127|042|033|027|321 013 127                                 Z8; DUP; NOT; NEG; =Z8; (BLOCK COUNT);
                                                                       [ original source of the next page
 3531/5: 164 101|164 301|042|051|066                                         SHL+32; SHL-32; DUP; REVD; CAB;
 3533/0: 047|057                                                             STR; +D;
 3533/2: 042|161 365|200 147 140                                             DUP; SHA-6; J8≠Z; (MACHINE ADDITION CHECK);
 3534/2: 164 041|066|166 341                                                 SHL+16; CAB; SHLD-16; (BLOCK NO.);
 3535/1: 052                                                                 ERASE;
 3535/2: 103 360|103 360                                                     =M0M15Q; =M0M15Q; (31ST. AND 32ND* WORDS);
 3536/0: 304 340 007|200 267 144                                             SETB160007; J4; (TO TRANSFER BLOCK);
 3537/0: 304 017 024|200 267 061                                       7;      (PANACEA FAILURE); SET3860; JP206;
 3540/0: 304 046 040|200 267 061                                       8;      (ADDITION FAILURE); SET9760; JP206;
                                                                       1;      (OPEN);
 3541/0: 304 217 177|167 343|042                                             SETB107577; SHC-15; DUP;
 3542/0: 311 006 200|311 006 240                                             =YY448; =YY480; (STANDARD 1ST. WORD OP BUFFERS);
 3543/0: 300 007 120|300 007 117                                             V2; V1;
 3544/0: 200 320 106|200 267 137                                       4;      JSE70; J7;
 3545/0: 033|027|304 000 003|164 101|036                                     NOT; NEG; SET3; SHL+32; -;
 3546/2: 301 007 116                                                         =V0; (29/1/ADDRESS OF 2ND.WORD OF BUPFER);
 3546/5: 200 360 000                                                         EXIT1;
                                                                       3;      (CLOSE);
                                                                             	[ M12; JSP719; [THIS IS TO OUTPUT CODE ON FAILURE
                                                                       			[ THIS ALSO FAILS _ SO LOOPS _ BUT DOES O/P ALL THE GEN. CODE HUX
                                                                       			[ MUST BE REMOVED WHEN BUG HUNTING COMPLTETED
                                                                       			[ NO WARRANTEE WAHTSOEVER

 3547/2: 300 007 116|164 301|304 000 035|036|224 147 152                     V0; SHL-32; SET29; -; J6=Z;
                                                                             (IF BUFPER JU5T BEEN TRANSFERRED);
 3551/2: 041|033|200 327 121                                                 ZERO; NOT; JS9; (6 377 CHAR.S);
 3552/1: 202 267 147                                                         J3;
 3552/4: 320 013 127|164 101|164 301|304 000 002|056                   6;      Z8; SHL+32; SHL-32; SET2; +;
 3554/3: 170 370                                                             (I.E. LAST BLOCK NO. +3); =C15;
 3554/5: 300 007 116|027|033|170 364                                         V0; NEG; NOT; =I15; (I.E. ADDRESS
                                                                             OF FIR5T WORD OF NEXT FREE BUFFER);
 3556/0: 304 141 007|170 362                                                 SETB60407; =M15;
 3556/5: 171 376|200 320 106|200 267 137|200 360 000                         Q15; JSE70; J7; EXIT1;
=== Start P760V2; at address 1908/3564
                                                                       P760V2;      (OUTPUT TO CHANNEL 5);
V-store at 03561 = 024 300 025 277 242 105                                   V0=QAYY0/AYY255/B121105;
V-store at 03562 = 025 300 026 277 000 000                                   V1=QAYY256/AYY511/0;
                                                                       8;      (NORMAL ENTRY - CODEWORD IN N1);
 3564/0: 300 007 163                                                         V2;
 3564/3: 170 376|103 360|240 367 167                                   2;      =Q15; =M0M15Q; J4C15Z;
 3565/4: 171 376                                                             Q15;
 3566/0: 301 007 163|200 360 000                                       7;      =V2; EXIT1;
 3567/0: 304 340 005|200 267 172                                       4;      SETB160005; J5;
 3570/0: 304 017 334|200 267 061                                       6;      SET4060; JP206; (FAILURE 4O/6O);
                                                                       1;      (OPEN);
 3571/0: 300 007 162|300 007 161                                             V1; V0;
 3572/0: 200 320 106|200 267 170|200 267 166                           5;      JSE70; J6; J7;
                                                                       3;      (CLOSE);
 3573/3: 300 007 163|170 365|304 140 005|170 362                             V2; =RI15; SETB60005; =M15;
 3575/1: 171 376|200 320 106|200 267 170|200 360 000                         Q15; JSE70; J6; EXIT1;
=== Start P400V124; at address 2044/3774
                                                                       P400V124;
V-store at 03577 = 011 122 011 124 011 162                                   V0=QAP420/AP421/AP425;
V-store at 03600 = 011 170 011 170 011 162                                   V1=QAP424/AP424/AP425;
V-store at 03601 = 011 205 011 225 011 235                                   V2=QAP426/AP427/AP428;
V-store at 03602 = 011 251 011 330 011 362                                   V3=QAP429/AP430/AP431;
V-store at 03603 = 011 366 012 036 012 037                                   V4=QAP432/AP433/AP434;
V-store at 03604 = 012 223 012 224 012 231                                   V5=QAP435/AP436/AP437;
V-store at 03605 = 012 232 013 175 013 217                                   V6=QAP438/AP439/AP440;
V-store at 03606 = 013 227 013 233 013 234                                   V7=QAP441/AP442/AP443;
V-store at 03607 = 013 236 013 246 014 004                                   V8=QAP444/AP445/AP446;
V-store at 03610 = 014 106 014 112 014 116                                   V9=QAP447/AP448/AP449;
V-store at 03611 = 014 130 012 053 014 140                                   V10=QAP450/AP451/AP452;
V-store at 03612 = 014 144 014 172 014 175                                   V11=QAP453/AP454/AP455;
V-store at 03613 = 014 200 014 203 014 205                                   V12=QAP456/AP457/AP458;
V-store at 03614 = 014 213 150 142 012 231                                   V13=QAP459/AR7P405/AP437;
V-store at 03615 = 004 000 000 000 000 000                                   V14=B0100000000000000;
                                                                       [ original source of the next page
V-store at 03616 = 000 000 000 000 004 100                                   V15=B0000000000002100;
V-store at 03617 = 001 124 121 105 024 121                                   V16=B0025212121212121;
V-store at 03620 = 004 020 000 000 000 000                                   V17=B0101000000000000;
V-store at 03621 = 000 000 000 000 004 100                                   V18=B0000000000002100;
V-store at 03622 = 001 124 121 105 024 121                                   V19=B0025212121212121;
V-store at 03623 = 004 020 102 000 000 000                                   V20=B0101010200000000;
V-store at 03624 = 000 000 000 000 004 100                                   V21=B0000000000002100;
V-store at 03625 = 001 124 121 105 024 121                                   V22=B0025212121212121;
V-store at 03626 = 105 024 121 000 000 000                                   V23=B2121212100000000;
V-store at 03627 = 000 000 000 000 004 100                                   V24=B0000000000002100;
V-store at 03630 = 001 124 121 105 024 121                                   V25=B0025212121212121;
V-store at 03631 = 004 020 102 104 000 000                                   V26=B0101010221000000;
V-store at 03632 = 000 000 000 000 004 121                                   V27=B0000000000002121;
V-store at 03633 = 105 124 121 105 024 121                                   V28=B2125212121212121;
V-store at 03634 = 004 020 102 015 020 000                                   V29=B0101010203210000;
V-store at 03635 = 000 000 000 000 004 121                                   V30=B0000000000002121;
V-store at 03636 = 105 124 121 105 024 121                                   V31=B2125212121212121;
V-store at 03637 = 004 020 102 014 121 000                                   V32=B0101010203050400;
V-store at 03640 = 000 000 000 000 004 121                                   V33=B0000000000002121;
V-store at 03641 = 105 124 121 105 024 121                                   V34=B2125212121212121;
V-store at 03642 = 004 020 102 014 121 004                                   V35=B0101010203050404;
V-store at 03643 = 000 000 000 000 004 121                                   V36=B0000000000002121;
V-store at 03644 = 105 124 121 105 024 121                                   V37=B2125212121212121;
V-store at 03645 = 004 020 102 014 121 004                                   V38=B0101010203050404;
V-store at 03646 = 020 000 000 000 004 121                                   V39=B0400000000002121;
V-store at 03647 = 105 124 121 105 024 121                                   V40=B2125212121212121;
V-store at 03650 = 004 020 102 014 121 004                                   V41=B0101010203050404;
V-store at 03651 = 020 100 000 000 004 121                                   V42=B0404000000002121;
V-store at 03652 = 105 124 121 105 024 121                                   V43=B2125212121212121;
V-store at 03653 = 000 000 000 000 000 000                                   V44=B0000000000000000;
V-store at 03654 = 000 000 000 000 006 000                                   V45=B0000000000003000;
V-store at 03655 = 001 124 121 105 024 121                                   V46=B0025212121212121;
V-store at 03656 = 004 020 102 014 121 004                                   V47=B0101010203050404;
V-store at 03657 = 020 111 311 105 024 121                                   V48=B0404471121212121;
V-store at 03660 = 105 024 121 105 024 121                                   V49=B2121212121212121;
V-store at 03661 = 004 020 102 104 121 004                                   V50=B0101010221050404;
V-store at 03662 = 020 101 206 030 146 006                                   V51=B0404060606063006;
V-store at 03663 = 031 144 121 105 024 121                                   V52=B0626212121212121;
V-store at 03664 = 004 020 102 014 121 004                                   V53=B0101010203050404;
V-store at 03665 = 020 104 107 105 024 121                                   V54=B0404210721212121;
V-store at 03666 = 105 024 121 105 024 121                                   V55=B2121212121212121;
V-store at 03667 = 004 020 102 014 121 004                                   V56=B0101010203050404;
V-store at 03670 = 020 104 110 105 024 121                                   V57=B0404211021212121;
V-store at 03671 = 105 024 121 105 024 121                                   V58=B2121212121212121;
V-store at 03672 = 105 024 121 105 024 121                                   V59=B2121212121212121;
V-store at 03673 = 105 024 121 115 064 121                                   V60=B2121212123232121;
V-store at 03674 = 105 024 323 115 064 321                                   V61=B2121232323232321;
V-store at 03675 = 105 024 121 105 024 121                                   V62=B2121212121212121;
V-store at 03676 = 105 024 121 106 144 121                                   V63=B2121212121462121;
V-store at 03677 = 105 031 246 232 151 221                                   V64=B2121464646464621;
V-store at 03700 = 004 020 102 014 121 004                                   V65=B0101010203050404;
V-store at 03701 = 020 104 111 052 004 121                                   V66=B0404211112402121;
V-store at 03702 = 105 024 121 105 024 121                                   V67=B2121212121212121;
V-store at 03703 = 004 020 102 014 121 004                                   V68=B0101010203050404;
V-store at 03704 = 020 104 111 051 331 121                                   V69=B0404211112354521;
V-store at 03705 = 105 024 121 105 024 121                                   V70=B2121212121212121;
V-store at 03706 = 105 024 121 105 024 121                                   V71=B2121212121212121;
V-store at 03707 = 105 024 121 104 004 121                                   V72=B2121212121002121;
V-store at 03710 = 105 020 000 000 000 021                                   V73=B2121000000000021;
V-store at 03711 = 004 020 102 014 121 004                                   V74=B0101010203050404;
                                                                       [ original source of the next page
V-store at 03712 = 020 104 111 051 351 121                                   V75=B0404211112364521;
V-store at 03713 = 105 022 313 054 262 321                                   V76=B2121131313131321;

V-store at 03714 = 105 024 121 105 024 121                                   V77=B2121212121212121;
V-store at 03715 = 105 024 121 105 024 121                                   V78=B2121212121212121;
V-store at 03716 = 105 025 024 121 105 021                                   V79=B2121242424242421;
V-store at 03717 = 004 020 102 014 121 004                                   V80=B0101010203050404;
V-store at 03720 = 020 104 111 105 024 114                                   V81=B0404211121212114;
V-store at 03721 = 105 024 121 105 024 121                                   V82=B2121212121212121;
V-store at 03722 = 004 020 102 014 121 004                                   V83=B0101010203050404;
V-store at 03723 = 020 104 111 105 024 115                                   V84=B0404211121212115;
V-store at 03724 = 105 024 121 105 024 121                                   V85=B2121212121212121;
V-store at 03725 = 070 343 216 070 343 216                                   V86=B1616161616161616;
V-store at 03726 = 070 343 216 070 343 216                                   V87=B1616161616161616;
V-store at 03727 = 072 043 216 070 343 221                                   V88=B1642161616161621;
V-store at 03730 = 004 020 102 014 121 004                                   V89=B0101010203050404;
V-store at 03731 = 020 104 111 105 024 121                                   V90=B0404211121212121;
V-store at 03732 = 075 024 121 105 024 121                                   V91=B1721212121212121;
V-store at 03733 = 004 020 102 014 121 004                                   V92=B0101010203050404;
V-store at 03734 = 020 104 111 105 024 121                                   V93=B0404211121212121;
V-store at 03735 = 175 024 121 105 024 121                                   V94=B3721212121212121;
V-store at 03736 = 101 004 020 101 004 020                                   V95=B2020202020202020;
V-store at 03737 = 101 004 020 101 004 120                                   V96=B2020202020202120;
V-store at 03740 = 101 164 020 101 004 021                                   V97=B2027202020202021;
V-store at 03741 = 004 020 102 014 121 004                                   V98=B0101010203050404;
V-store at 03742 = 020 104 111 105 024 121                                   V99=B0404211121212121;
V-store at 03743 = 105 044 121 105 024 121                                   V100=B2122212121212121;
V-store at 03744 = 004 020 102 014 121 004                                   V101=B0101010203050404;
V-store at 03745 = 020 104 111 205 024 121                                   V102=B0404211141212121;
V-store at 03746 = 105 052 021 242 204 121                                   V103=B2122502150502121;
V-store at 03747 = 105 024 121 105 024 121                                   V104=B2121212121212121;
V-store at 03750 = 105 024 121 105 224 121                                   V105=B2121212121312121;
V-store at 03751 = 105 026 131 145 226 121                                   V106=B2121313131313121;
V-store at 03752 = 004 020 102 014 121 004                                   V107=B0101010203050404;
V-store at 03753 = 020 104 111 051 351 121                                   V108=B0404211112364521;
V-store at 03754 = 105 026 221 105 024 121                                   V109=B2121322121212121;
V-store at 03755 = 105 024 121 105 024 121                                   V110=B2121212121212121;
V-store at 03756 = 105 024 121 105 264 121                                   V111=B2121212121332121;
V-store at 03757 = 105 026 333 155 266 321                                   V112=B2121333333333321;
V-store at 03760 = 004 020 102 014 121 004                                   V113=B0101010203050404;
V-store at 03761 = 020 104 111 051 351 121                                   V114=B0404211112364521;
V-store at 03762 = 105 024 134 105 024 121                                   V115=B2121213421212121;
V-store at 03763 = 004 020 102 014 121 004                                   V116=B0101010203050404;
V-store at 03764 = 020 104 111 051 351 121                                   V117=B0404211112364521;
V-store at 03765 = 105 024 121 151 024 121                                   V118=B2121212132212121;
V-store at 03766 = 105 024 121 105 024 121                                   V119=B2121212121212121;
V-store at 03767 = 105 024 121 105 024 121                                   V120=B2121212121212121;
V-store at 03770 = 105 030 343 216 070 321                                   V121=B2121434343434321;
V-store at 03771 = 004 020 102 014 121 004                                   V122=B0101010203050404;
V-store at 03772 = 020 104 111 051 351 121                                   V123=B0404211112364521;
V-store at 03773 = 105 024 121 106 104 121                                   V124=B2121212121442121;
 3774/0: 200 330 041|164 361|065|200 330 041                                 JSP401; SHL-8; REV; JSP401;
 3775/3: 304 000 377|054|042|304 000 007|054                                 SETB377; AND; DUP; SETB7; AND;
 3777/0: 304 000 006|034|050|170 370                                         SET6; ×D; CONT; =C15;
 4000/1: 164 373|065|304 000 003|034|050                                     SHL-3; REV; SET3; ×D; CONT;
 4001/3: 056|170 362|300 367 215                                             +; =M15; V14M15;
 4002/3: 167 360|164 255|304 007 177|170 362|304 000 003                     SHCC15; SHL-42; SETAV0; =M15; SET3;
 4004/3: 044|161 011|170 370|170 342|100 357                                 %I; SHA+4; =C15; =M14; M15M14;
 4006/0: 167 360|164 301|174 000|202 360 000                                 SHCC15; SHL-32; =LINK; EXIT;
=== Start P401V24; at address 2081/4041
                                                                       P401V24;
                                                                       [ original source of the next page
V-store at 04010 = 000 030 000 001 000 000                             V0=Q24/1/0;
V-store at 04011 = 000 000 001 021 001 001                             V1=B0000000104200401;
V-store at 04012 = 001 001 041 061 001 001                             V2=B0020044114200401;
V-store at 04013 = 002 002 101 121 002 002                             V3=B0040110124201002;
V-store at 04014 = 003 003 141 161 003 003                             V4=B0060154134201403;
V-store at 04015 = 004 004 002 022 004 004                             V5=B0100200204402004;
V-store at 04016 = 004 004 042 062 004 004                             V6=B0100204214402004;
V-store at 04017 = 004 004 102 122 004 004                             V7=B0100210224402004;
V-store at 04020 = 005 005 003 023 006 006                             V8=B0120240304603006;
V-store at 04021 = 007 007 043 063 010 010                             V9=B0160344314604010;
V-store at 04022 = 011 011 103 004 012 012                             V10=B0220450301005012;
V-store at 04023 = 013 027 024 005 014 013                             V11=B0261342401206013;
V-store at 04024 = 015 027 025 045 016 027                             V12=B0321342511207027;
V-store at 04025 = 017 014 065 007 020 015                             V13=B0360606501610015;
V-store at 04026 = 021 027 027 047 022 027                             V14=B0421342711611027;
V-store at 04027 = 023 016 010 030 024 027                             V15=B0460701006012027;
V-store at 04030 = 025 017 011 031 026 027                             V16=B0520741106213027;
V-store at 04031 = 027 027 051 071 027 027                             V17=B0561345116213427;
V-store at 04032 = 030 020 012 032 031 027                             V18=B0601001206414427;
V-store at 04033 = 032 027 052 013 033 021                             V19=B0641345202615421;
V-store at 04034 = 034 027 033 053 035 027                             V20=B0701343312616427;
V-store at 04035 = 036 022 014 034 037 027                             V21=B0741101407017427;
V-store at 04036 = 040 023 054 074 041 027                             V22=B1001145417020427;
V-store at 04037 = 036 024 114 134 042 027                             V23=B0741211427021027;
V-store at 04040 = 043 025 154 174 044 027                             V24=B1061255437022027;
 4041/0: 300 010 010|170 376|042|164 021|011                                 V0; =Q15; DUP; SHL+8; OR;
 4042/3: 042|302 370 011|170 356|171 344|015                           1;      DUP; V1M15Q; =Q14; I14; NEV;
 4044/0: 041|065|166 361                                                     ZERO; REV; SHLD-8;
 4044/4: 202 150 046                                                         J2≠Z;
 4045/1: 052|052|171 350|200 360 000                                         ERASE; ERASE; C14; EXIT1;
 4046/2: 205 150 047                                                   2;      J3≠Z;
 4046/5: 052|171 342|200 360 000                                             ERASE; M14; EXIT1;
 4047/5: 263 370 042                                                   3;      J1C15NZ;
 4050/2: 304 000 240|200 267 061                                             SET160; JP206;
=== Start P402V-1; at address 2090/4052
                                                                       P402;
 4052/0: 304 000 177|042|310 242 305|054|065|310 004 127|054|200 267 374
                                                                       1;      SETB177; DUP; YA-1M10; AND; REV; YE12; AND ; (jsp900; JSP904;jsp905;) JP400; [hux diagnostic
=== Start P403V2; at address 2096/4060
V-store at 04055 = 000 000 000 000 000 000
V-store at 04056 = 000 060 377 377 000 010
V-store at 04057 = 000 000 000 050 242 212                             P403V2;      V0=0; V1=Q48/-1/8; V2=B12121212;
 4060/0: 300 010 056|170 276|001                                             V1; =Q11; VR;
 4061/0: 041|304 000 011|170 262                                       5;      ZERO; SET9; =M11;
 4062/0: 166 015|042|140 260|204 150 066                               7;      SHLD+6; DUP; M+I11; J6≠Z;
 4063/2: 171 262|200 150 062|141 260|204 270 066                             M11; J7≠Z; M-I11; J6;
 4065/0: 041|166 015|140 260|171 262|223 150 076                       1;      ZERO; SHLD+6; M+I11; M11; J2=Z;
 4066/4: 200 335 027|200 270 065                                       6;      JSP751; J1; (EXIT 1);
 4067/4: 304 377 370|172 270|164 260|300 010 055|011                         SET-8; =+C11; SHLC11; V0; OR;
 4071/3: 301 010 055|260 270 065|300 010 055|200 327 121|300 010 055|200 327 032
                                                                             =V0; J1C11NZ; V0; JSP754; V0; JSP6;
 4074/3: 041|301 010 055|304 000 060|170 270|200 270 065                     ZERO; =V0; SET48; =C11; J1;
 4076/3: 052|052|220 250 104|042|201 050 101|027|304 000 055|200 270 061
                                                                       2;      ERASE; ERASE; J3EN; DUP; J8≥Z; NEG; SETB55; J5;
 4101/1: 300 010 057|065|067|220 210 103|200 270 061                   8;      V2; REV; FRB; J4V; J5;
 4103/0: 304 046 350|200 267 061                                       4;      SET9960; JP206;
 4104/0: 171 276|301 010 056|200 360 000                               3;      Q11; =V1; EXIT1;
=== Start P405V0; at address 2119/4107
                                                                       P405V0;
V-store at 04106 = 000 077 377 300 001 210                                   V0=B0003777760000610;
 4107/0: 042|304 000 160|054|164 371                                         DUP; SETB160; AND; SHL-4;
 4110/1: 042|224 150 116                                                     DUP; J1=Z;
 4110/5: 027|033|042|224 150 117                                             NEG; NOT; DUP; J2=Z;
 4111/5: 027|033|224 150 114                                                 NEG; NOT; J3=Z;
 4112/4: 052|171 162|164 115|300 010 106                                     ERASE; M7; SHL+38; V0;
 4114/0: 056|201 270 131                                                     +; J5;
 4114/4: 052|171 162|164 115|304 001 210                               3;      ERASE; M7; SHL+38; SETB610;
 4116/0: 056|201 270 131                                                     +; J5;
                                                                       [ original source of the next page
 4116/4: 304 001 004|200 267 061                                       1;      SET260; JP206;
 4117/4: 052|042|304 004 000|054                                       2;      ERASE; DUP; SETB2000; AND;
 4120/4: 201 150 127                                                         J4≠Z;
                                                                             (V-STORE FETCH);
 4121/1: 164 361|041|065|166 375|164 021                                     SHL-8; ZERO; REV; SHLD-2; SHL+8;
 4122/3: 166 005|042|311 004 133                                             SHLD+2; DUP; =YE16;
 4123/3: 065|041|033|311 004 132|200 330 153                                 REV; ZERO; NOT; =YE15; JS1P406;
 4125/0: 310 170 277|304 004 000|056                                         Y-1M7; SETB2000; +;
 4126/1: 311 170 277|202 270 136                                             =Y-1M7; (SET V); J8;
 4127/1: 171 162|166 041|164 055|304 001 010|056|065|052               4;      M7; SHLD+16; SHL+22; SETB410; +; REV; ERASE;
 4131/1: 171 162|065|042|313 170 300|143 120|264 130 133|200 275 002   5;      M7; REV; DUP; =Y0M7Q; DC5; J6C5NZ; J2P407;
 4133/4: 304 003 200|054|164 363|065|164 007|056|313 223 212|240 234 347
                                                                       6;      SETB1600; AND; SHL-7; REV; SHL+3; +; =YB0M9Q; J11P750C9Z;
 4136/2: 310 242 305|304 000 017|054                                   8;      YA-1M10; SETB17; AND;
 4137/3: 304 000 013|036|203 150 142                                         SETB13; -; J7≠Z;
 4140/4: 310 242 305|304 200 000|027                                         YA-1M10; SETB100000; NEG;
 4141/5: 011|311 242 305                                                     OR; =YA-1M10; (SET E MARKER);
 4142/3: 200 360 000                                                   7;      EXIT1;
=== Start P406V-1; at address 2147/4143
                                                                       P406;      (IDENTIFIFR PROCESSOR);
 4143/0: 041|033|311 004 132                                                 ZERO; NOT; =YE15;
 4143/5: 042|304 000 030|054|164 373                                         DUP; SETB30; AND; SHL-3;
 4145/0: 042|220 150 153                                                     DUP; J1=Z; (SCALAR);
 4145/4: 027|033|042|221 150 203                                             NEG; NOT; DUP; J2=Z; (ARRAY);
 4146/4: 027|033|222 150 233                                                 NEG; NOT; J3=Z; (PROC);
 4147/3: 042|304 000 007|054|042|221 150 242                                 DUP; SETB7; AND; DUP; J4=Z; (SWITCH);
 4151/0: 027|033|225 150 242                                                 NEG; NOT; J5=Z; (LABEL);
 4151/5: 052|304 001 150|200 267 061                                         ERASE; SET360; JP206;
                                                                       1;      (SCALAR);
 4153/0: 052|042|164 321|225 150 243                                         ERASE; DUP; SHL-24; J6=Z; (IF INTEGER WITH CODE=O);
 4154/1: 310 004 132|220 150 165                                             YE15; J7=Z; (IF STORE);
 4155/1: 200 330 261                                                         JSP409; (CONSTRUCTS I/5 WORD IN N1);
 4155/4: 310 004 133|304 000 040|043|054|015                                 YE16; SETB40; DUPD; AND; NEV;
 4157/1: 042|066                                                             DUP; CAB; (N3=O IF PORMAL);
 4157/3: 304 001 000|054|011|201 150 162                                     SETB400; AND; OR; J17≠Z;
 4160/5: 052|304 040 000|011|200 270 164                                     ERASE; SETB20000; OR; (SETF TO DENOTE FORMAL BY NAME); J9;
 4162/1: 220 150 164                                                   17;      J9=Z; (IF FORMAL BY VALUE);
 4162/4: 310 004 133|304 001 000|054|011                                     YE16; SETB400; AND; OR; (O/L MARKER);
 4164/0: 200 330 265|200 360 000                                       9;      JSP410; EXIT1;
 4165/0: 042|042|304 000 040|054|164 007                               7;      DUP; DUP; SETB40; AND; SHL+3;
 4166/2: 304 002 377|056|054|036                                             SETB1377; +; AND; -;
 4167/2: 304 000 026|056                                                     SETB26; +;
 4170/0: 171 162|164 025|041|310 223 211|166 373                             M7; SHL+10; ZERO; YB-1M9; SHLD-3;
 4171/4: 066|056|164 031|166 041|016                                         CAB; +; SHL+12; SHLD+16; ROUND;
 4172/5: 304 000 006|056|200 331 111                                         SETB06; +; JSP418;
 4174/0: 310 242 305|304 000 177|054                                   11;      YA-1M10; SETB177; AND;
 4175/1: 304 000 065|015|224 150 202                                         SETB65; NEV; J12=Z;
 4176/2: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4177/4: 304 010 000|042|310 242 306|164 005                                 SETB4000; DUP; YA0M10; SHL+2;
 4201/1: 054|015|310 170 277|011|311 170 277                                 AND; NEV; Y-1M7; OR; =Y-1M7;
 4202/4: 200 360 000                                                   12;      EXIT1;
                                                                       2;      (ARRAY);
 4203/1: 052                                                                 ERASE;
 4203/2: 042|304 000 177|164 031|054                                         DUP; SETB177; SHL+12; AND;
 4204/3: 204 150 227|201 270 226                                             J8≠Z; J18; (NOT L.H.S.);
 4205/3: 042|304 000 040|054|203 150 220                               16;      DUP; SETB40; AND; J19≠Z; (IF FORMAL);
 4206/5: 200 334 332|203 274 002                                             JSP3; J3P445; (FAILURE 23/6O);
 4207/5: 171 322|164 101|164 325                                             M13; SHL+32; SHL-22; (ADDRESS OF LEVEL PARAMETERS);
 4210/5: 056|042|304 176 000|164 043|054                               20;      +; DUP; SETB77000; SHL+17; AND;
 4212/1: 201 150 226                                                         J18≠Z; (IF NOT PARAMETERLESS PROC.);
 4212/4: 313 203 312|240 214 345                                             =YC0M8Q; J5P750C8Z;
 4213/4: 304 000 233|311 004 127                                             SETB233; =YE12; (DUMMY CLOSING PARAMETER BRACKET);

                                                                       [ original source of the next page
 4214/4: 041                                                                 ZERO; (DUMMY OPENING PARAMETER BRACKET);
 4214/5: 310 242 305|304 000 213|015|164 121                                 YA-1M10; SETB213; NEV; SHL+40;
 4216/2: 203 152 224                                                         J1P436≠Z; (IP NOT IN PARAMETER LIST);
 4216/5: 140 240|203 333 230|141 240|203 272 224                             M+I10; JS1P441; M-I10; (SET E); J1P436;
                                                                       19;      (FORMAL PROCEDURE);
 4220/3: 167 061|200 334 332|203 274 002                                     SHC+24; JSP3; J3P445; (FAILURE 23/6O-NO LEVEL PARAMS);
 4221/5: 320 333 053|164 041|164 255                                         Z52M13; SHL+16; SHL-42; (NUMBER OF PARAMETERS);
 4223/0: 171 322|164 101|056                                                 M13; SHL+32; (ADDRESS OF LEVEL PARAMS); +;
 4223/5: 167 365|065|164 021|164 361                                         SHC-6; REV; SHL+8; SHL-8;
 4225/0: 166 341|164 361|205 270 210                                         SHLD-16; SHL-8; J20;
 4226/1: 313 203 312|240 214 345|200 360 000                           18;      =YC0M8Q; J5P750C8Z; EXIT1;
 4227/4: 200 330 261|310 004 133|304 000 040|043|054|015|164 007       8;      JSP409; YE16; SETB40; DUPD; AND; NEV; SHL+3;
 4232/0: 054|011|200 330 265|200 360 000                                     AND; OR; JSP410; EXIT1;
                                                                       3;      (PROCEDURE);
 4233/2: 042|304 000 017|054|223 150 205                                     DUP; SETB17; AND; J16=Z; (IF NOT TYPE PROC.);
 4234/4: 310 242 305|042|304 000 037|054|304 000 014                         YA-1M10; DUP; SETB37; AND; SETB14;
 4236/3: 015                                                                 NEV; (=O IF BEGIN);
 4236/4: 065|304 117 377|054|304 100 207                                     REV; SETB47777; AND; SETB40207;
 4240/0: 015                                                                 NEV; (=O IF IF+THEN);
 4240/1: 034|050|203 150 205                                                 ×D; CONT; J16≠Z; (IF NEITHER);
 4241/0: 304 000 200|056                                                     SETB200; +;
 4241/4: 203 270 205                                                         (SET S.M.-VALUE OF FUNCTION DESIGNATOR NOT REQUIRED); J16;
 4242/1: 052|201 270 226                                               4;      ERASE; J18;
 4242/5: 200 330 275|200 360 000                                       5;      JSP408; EXIT1;
                                                                       6;      (INTEGER WITH CODE=O);
 4243/5: 164 355|171 162|164 047|056|164 007                                 SHL-10; M7; SHL+19; +; SHL+3;
 4245/2: 310 004 132|223 150 253                                             YE15; J13=Z; (IF STORE);
 4246/2: 164 041|304 001 045|056                                             SHL+16; SETB445; +;
 4247/2: 171 162|164 007|304 000 002|056                                     M7; SHL+3; SET2; +;
 4250/4: 313 223 212|240 234 350                                             =YB0M9Q; J12P750C9Z;
 4251/4: 313 170 300|143 120|244 130 257|200 360 000                         =Y0M7Q; DC5; J15C5Z; EXIT1;
                                                                       13;      (STORE);
 4253/3: 041|310 223 211|166 373|164 031                                     ZERO; YB-1M9; SHLD-3; SHL+12;
 4254/5: 066|056|166 041|016                                                 CAB; +; SHLD+16; ROUND;
 4255/4: 304 000 046|056                                                     SETB46; +;
 4256/2: 313 170 300|143 120|260 130 174                               14;      =Y0M7Q; DC5; J11C5NZ;
 4257/4: 200 275 003                                                   15;      J3P407;
=== Start P409V-1; at address 2225/4261
                                                                       P409;
 4261/0: 041|166 061|065|164 013|065|166 023|164 037                         ZERO; SHLD+24; REV; SHL+5; REV; SHLD+9; SHL+15;
 4262/5: 304 000 025|056|065|052|200 360 000                                 SETB25; +; REV; ERASE; EXIT1;
=== Start P410V-1; at address 2229/4265
                                                                       P410;
 4265/0: 171 162|164 115|304 000 005|056|310 004 133|304 000 007|054         M7; SHL+38; SETB05; +; YE16; SETB7; AND;
 4267/3: 042|164 017|066|011|066|065                                         DUP; SHL+7; CAB; OR; CAB; REV;
 4270/4: 200 331 111                                                   2;      JSP418;
 4271/1: 171 162|304 000 002|036                                       1;      M7; SET2; -;
 4272/1: 164 007|056                                                   3;      SHL+3; +;
 4272/4: 313 223 212|240 234 351|200 360 000                                 =YB0M9Q; J13P750C9Z; EXIT1;
=== Start P408V-1; at address 2237/4275
                                                                       P408;      (LA8EL);
 4275/0: 304 000 040|054|205 150 345                                         SETB40; AND; J2≠Z; (IF FORMAL);
 4276/1: 310 242 305|042|304 000 377|054                                     YA-1M10; DUP; SETB377; AND;
 4277/3: 304 000 210|036|224 150 364                                         SETB210; -; J3=Z; (GO TO);
 4300/4: 304 013 377|054|304 010 205|224 030 364                             SETB5777; AND; SETB4205; J3=; (IF GO TO);
 4302/2: 304 010 204|224 030 364|052                                         SETB4204; J3=;(IF L.BRACKET + GO TO); ERASE;
 4303/3: 171 142|170 111|242 110 310|310 004 127|170 056                     M6; =RC4; J16C4Z; YE12; =Q2;
 4305/3: 312 104 013|042|170 076|171 056|015|164 321                   5;      YD0M4Q; DUP; =Q3; Q2; NEV; SHL-24;
 4307/2: 220 150 345|263 110 305                                             J4=Z; J5C4NZ; (SCAN LABEL LIST);
 4310/2: 320 013 126|170 056|171 042|042|033                           16;      Z9; =Q2; M2; DUP; NOT;
 4311/5: 027|170 042|171 056|321 013 126                                     NEG; =M2; Q2; =Z9;
 4313/1: 304 000 041|200 330 060                                             SETB41; JSP403; (V(NEXT FREE V-STORE NO.));
 4314/1: 310 004 127|164 041|164 261|042|170 110                             YE12; SHL+16; SHL-40; DUP; =C4; (LOCALE);
                                                                       [ original source of the next page
 4315/5: 300 006 157|200 330 060                                       1;      V47P0; JSP403;
 4316/5: 262 110 323                                                         J19C4NZ; (IF LOCALE≠O);
 4317/2: 310 004 127|164 101|164 257                                         YE12; SHL+32; SHL-41; (YO-YO OF LABEL);
 4320/3: 042|224 150 321|202 270 322                                         DUP; J20=Z; J21;
 4321/4: 052|310 004 122                                               20;      ERASE; YE7; (CURRENT YO-YO);
 4322/2: 310 004 123|200 270 327                                       21;      YE8; (CURRENT AV); J22;
 4323/2: 310 004 127|164 041|200 334 332|202 271 030                   19;      YE12; SHL+16; (LEVEL NO. IN DO-7); JSP3; J10;
 4325/1: 164 041|164 257                                                     SHL+16; SHL-41; (YO-YO OF LABEL);
 4325/5: 320 333 053|164 101|164 261                                         Z52M13; SHL+32; SHL-40; (AV FOR LABEL);
 4327/0: 056|300 006 160|200 330 060                                   22;      +; V48P0; JSP403; (/AY(AV+YO-YO));
 4330/1: 310 004 127|164 301|300 006 161|200 330 060|304 000 073|200 330 060
                                                                             YE12; SHL-32; V49P0; JSP403; SETB73; JSP403;
 4333/0: 310 004 127|170 116|171 042|027|033|042|170 102                     YE12; =Q4; M2; NEG; NOT; DUP; =M4;
 4335/0: 171 116|245 150 336                                                 Q4; (REF.NO./LOCALE.B.N./V N*); J13C6Z;
 4335/5: 313 144 013|200 270 337                                             =YD0M6Q; (ENTER IN LABEL LIST); J14;
 4336/5: 052                                                           13;      ERASE;
 4337/0: 164 101|304 004 025|056                                       14;      SHL+32; SETB2025; +;
 4340/0: 171 162|164 115|304 002 205|056|200 331 111                         M7; SHL+38; SETB1205; +; JSP418;
 4341/5: 304 000 005|171 162|201 330 272                                     SETB5; M7; JS3P410; (I/L TO N.S.);
 4343/1: 300 006 162|171 162|164 115|056|205 271 221                         V50P0; M7; SHL+38; +; J2P426;
 4345/0: 171 062|200 270 337                                           4;      M3; J14;
 4345/5: 310 004 127|164 321|164 061|304 010 025|056                   2;      YE12; SHL-24; SHL+24; SETB4025; +;
 4347/4: 304 000 005|311 004 133|200 330 265                                 SET5; =YE16; JSP410;
 4351/1: 310 004 127|304 001 000|054|203 150 354                             YE12; SETB400; AND; J6≠Z;
 4352/5: 304 040 000|310 170 277|011|311 170 277                             SETB20000; Y-1M7; OR; =Y-1M7;
 4354/3: 310 242 305|042|304 000 377|054                               6;      YA-1M10; DUP; SETB377; AND;
 4355/5: 304 000 210|036|224 150 361                                         SETB210; -; J17=Z; (IF GO TO );
 4357/0: 304 013 377|054|304 010 205|224 030 361                             SETB5777; AND; SETB4205; J17=; (IF + GO TO);
 4360/4: 304 010 204|200 030 364                                             SETB4204; J7≠;(IF NOT L.BRACKET + GO TO);
 4361/4: 300 006 122|205 331 221                                       17;      V18P0; JS2P426;
 4362/4: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4364/0: 052|200 360 000                                               7;      ERASE; EXIT1;
 4364/4: 052|310 004 127|164 041|042                                   3;      ERASE; YE12; SHL+16; DUP;
 4365/5: 164 261|221 151 002                                                 SHL-40; J8=Z; (IF LOCALE=O);
 4366/4: 200 334 332|202 271 030                                             JSP3; J10; (IF NO LEVEL PARAMS);
 4367/4: 320 333 055|304 000 100|054|201 151 024                             Z50M13; SETB100; AND; J11≠Z;
                                                                             (IF LEVEL RECURSIVE);
 4371/2: 164 261|164 101                                                     SHL-40; SHL+32;
 4372/0: 304 000 225|056|304 000 002|311 004 133|200 330 265                 SETB225; +; SET2; =YE16; JSP410;
 4374/1: 310 223 211|164 373|171 162|164 025|056                             YB-1M9; SHL-3; M7; SHL+10; +;
 4375/5: 164 037|304 011 002|056                                             SHL+15; SETB4402; +;
 4376/5: 164 033|304 000 046|056|205 331 221                                 SHL+13; SETB46; +; JS2P426;
 4400/2: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4401/4: 204 271 010                                                         J9;
 4402/1: 052|310 004 127|164 101|164 257|202 151 031                   8;      ERASE; YE12; SHL+32; SHL-41; J15≠Z;
 4404/0: 310 004 127|171 162|166 041|164 055|310 242 305|304 001 000   12;      YE12; M7; SHLD+16; SHL+22; YA-1M10; SETB400;
 4406/3: 054|164 027|056|304 000 027|056|065|052|205 271 221                 AND; SHL+11; +; SETB27; +; REV; ERASE; J2P426;
 4410/4: 320 333 053|164 101|164 261                                   9;      Z52M13; SHL+32; SHL-40; (AV);
 4411/5: 310 004 127|164 101|164 257|056|164 101|304 000 025|056       18;      YE12; SHL+32; SHL-41; (YO-YO); +; SHL+32; SETB25; +;
 4414/1: 304 000 002|311 004 133|200 330 265|171 162|042|304 000 002|036|065
                                                                             SET2; =YE16; JSP410; M7; DUP; SET2; -; REV;
 4417/0: 164 025|056|164 007|033|027|164 011|033                             SHL+10; +; SHL+3; NOT; NEG; SHL+4; NOT;
 4420/4: 027|164 053|304 100 046|056|205 331 221                             NEG; SHL+21; SETB40046; +; JS2P426;
 4422/2: 141 220|171 230|033|027|170 230|200 271 004                         M-I9; C9; NOT; NEG; =C9; J12;
                                                                       11;      (LEVEL RECURSIVE);
 4424/1: 164 261|171 162|164 041|056                                         SHL-40; M7; SHL+16; +;
 4425/2: 164 055|304 001 010|056|205 331 221                                 SHL+22; SETB410; +; JS2P426;
 4426/5: 300 006 163|205 331 221|204 271 010                                 V51P0; JS2P426; J9;
 4430/2: 304 001 314|200 267 061                                       10;      SET460; JP206;
 4431/2: 310 004 126|027|033|200 151 004                               15;      YE11; NEG; NOT; J12≠Z; (IF IN ¬£FUNCT.);
 4432/4: 310 004 123|205 271 011                                             YE8; (AV); J18;
=== Start P412V-1; at address 2332/4434
                                                                       P412;
                                                                       [ original source of the next page
 4434/0: 310 203 311|141 200|171 210|033|027|170 210|042|311 004 133         YC-1M8; M-I8; C8; NOT; NEG; =C8; DUP; =YE16;
 4436/3: 042|304 000 030|054|164 373                                         DUP; SETB30; AND; SHL-3;
 4437/4: 042|221 151 042                                                     DUP; J1=Z;
 4440/2: 027|033|222 151 043                                                 NEG; NOT; J2=Z;
 4441/1: 304 002 060|200 267 061                                             SET560; JP206;
 4442/1: 041|311 004 132|200 270 153                                   1;      ZERO;      =YE15; J1P406;
 4443/2: 042|304 001 000|054|036|042                                   2;      DUP; SETB400; AND; -; DUP;
 4444/3: 311 004 133                                                         =YE16;
 4445/0: 042|304 014 000|054|200 151 065                                     DUP; SETB6000; AND; J3≠Z;
 4446/2: 042|304 000 200|054|220 151 065                                     DUP; SETB200; AND; J3=Z;
 4447/4: 042|304 003 377|164 031|054                                         DUP; SETB1777; SHL+12; AND;
 4450/5: 042|311 004 134                                                     DUP; =YE17;
 4451/3: 015|042|311 004 133                                                 NEV; DUP; =YE16;
 4452/2: 042|304 002 000|054|042                                             DUP; SETB1000; AND; DUP;
 4453/2: 012|015|065|203 151 061                                             PERM; NEV; REV; J4≠Z; (IF L.H.S.);
 4454/2: 200 331 072|204 330 227                                             JSP411; JS8P406;
 4455/2: 310 170 277|304 100 000|056|311 170 277                       5;      Y-1M7; SETB40000; +; =Y-1M7;
 4457/0: 310 170 276|310 004 134|164 015|056|311 170 276                     Y-2M7; YE17; SHL+6; +; =Y-2M7;
 4461/0: 200 360 000                                                         EXIT1;
                                                                       4;
 4461/3: 310 223 211|310 223 210|311 223 211|311 223 210                     YB-1M9; YB-2M9; =YB-1M9; =YB-2M9;
 4463/3: 200 331 072|200 330 165|202 271 055                                 JSP411; JS7P406; J5;
                                                                       3;
 4465/0: 042|304 002 000|054|042|012|015                                     DUP; SETB1000; AND; DUP; PERM; NEV;
 4466/2: 041|166 061|065|164 013|065                                         ZERO; SHLD+24; REV; SHL+5; REV;
 4467/3: 166 023|164 037|065|164 265|056                                     SHLD+9; SHL+15; REV; SHL-38; +;
                                                                             (MOVE MOD÷REG.Q÷R FROM D29-37 TO D24-32);
 4470/5: 065|200 150 165|204 270 227                                         REV; J7P406≠Z; (IP L.H.S); J8P406;
=== Start P411V-1; at address 2362/4472
 4472/0: 310 004 134|164 351|310 223 211|164 373|015                   P411;      YE17; SHL-12; YB-1M9; SHL-3; NEV;
 4473/5: 222 151 075                                                         J1=Z;
 4474/2: 304 002 224|200 267 061                                             SET660; JP206;
 4475/2: 141 220|171 230|033|027|170 230|200 360 000                   1;      M-I9; C9; NOT; NEG; =C9; EXIT1;
=== Start P415V-1; at address 2368/4500
                                                                       P415;      (TYPE AND I OP NSJ-1 IN N1, N2);
 4500/0: 027|033|222 151 101                                                 NEG; NOT; J1=Z; (IF REAL);
 4500/5: 202 360 001                                                         EXIT2; (NOT REAL);
 4501/2: 200 360 000                                                   1;      EXIT1; (REAL);
=== Start P417V-1; at address 2370/4502
 4502/0: 310 223 211|042|164 373|065|304 000 007|054|200 331 100       P417;      YB-1M9; DUP; SHL-3; REV; SETB7; AND; JSP415;
 4504/2: 205 271 105                                                         J2;
 4504/5: 311 004 134|200 360 000                                             =YE17; EXIT1;
 4505/5: 171 162|042|311 004 134                                       2;      M7; DUP; =YE17;
 4506/5: 164 025|056|164 071|304 041 004                                     SHL+10; +; SHL+28; SETB20404;
 4510/1: 056|205 271 221                                                     +; J2P426; (REAL-INT. TRANSFER FUNCT. TO I.L.);
=== Start P418V-1; at address 2377/4511
 4511/0: 143 120|143 120|171 130|220 111 113                           P418;      DC5; DC5; C5; J1>Z;
 4512/3: 200 275 004                                                         J4P407;
 4513/0: 313 170 300|313 170 300|200 360 000                           1;      =Y0M7Q; =Y0M7Q; EXIT1;
=== Start P419V-1; at address 2381/4515
                                                                       P419;
 4515/0: 300 006 112|041|310 223 211|166 373|065|164 247|065                 V10P0; ZERO; YB-1M9; SHLD-3; REV; SHL-45; REV;
 4517/1: 171 162|164 025|056|164 037|056|164 033|304 000 006|056|200 271 111
                                                                             M7; SHL+10; +; SHL+15; +; SHL+13; SETB6; +; JP418;

=== Start P420V-1; at address 2386/4522
 4522/0: 310 004 127|313 242 306|240 254 364|200 360 000               P420;      YE12; =YA0M10Q; J30P750C10Z; EXIT1;
=== Start P421V-1; at address 2388/4524
 4524/0: 041                                                           P421;      ZERO;
 4524/1: 311 004 136|200 331 173                                       12;      =YE19; JSP413;
 4525/1: 042|304 000 021|036|220 151 140                                     DUP; SETB21; -; J1=Z;
 4526/3: 027|033|225 151 141                                                 NEG; NOT; J2=Z;
 4527/2: 304 034 000|310 002 305|043|054                                     SETB16000; W1; DUPD; AND;
 4530/4: 012|164 373|054|036|224 151 133                                     PERM; SHL-3; AND; -; J3=Z;
 4532/0: 310 002 305|304 000 200|056|205 271 147                       4;      W1; SETB200; +; J6;
                                                                       3;      (T1=T2);
 4533/4: 310 002 305|042                                                     W1; DUP;
 4534/2: 042|304 000 177|054|304 000 041|036                                 DUP; SETB177; AND; SETB41; -;
                                                                       [ original source of the next page
 4535/5: 223 151 146                                                         J5=Z; (IF /);
 4536/2: 304 034 000|054|164 373|056|205 271 147                             SETB16000; AND; SHL-3; +; J6;
 4540/0: 052                                                           1;      ERASE;
 4540/1: 310 002 305|304 001 000|056|205 271 147                       11;      W1; SETB400; +; J6;
 4541/5: 304 034 000|310 002 305|043|054                               2;      SETB16000; W1; DUPD; AND;
 4543/1: 304 010 000|036|203 151 146                                         SETB4000; -; J5≠Z;
 4544/2: 164 373|054|304 020 000|036|221 151 140                             SHL-3; AND; SETB10000; -; J11=Z;
 4546/0: 200 271 132                                                         J4;
 4546/3: 052|052|200 271 132                                           5;      ERASE; ERASE; J4;
 4547/2: 200 360 000                                                   10;      EXIT1;
 4547/5: 141 220|171 230|033|027|170 230                               6;      M-I9; C9; NOT; NEG; =C9;
 4551/1: 042|171 162|065|313 170 300|143 120|264 131 153               7;      DUP; M7; REV; =Y0M7Q; DC5; J8C5NZ;
 4553/1: 200 275 005                                                         J5P407;
 4553/4: 164 007|065|304 003 200|054|164 363|056                       8;      SHL+3; REV; SETB1600; AND; SHL-7; +;
 4555/2: 311 223 211|141 240|171 250|033|027|170 250|310 004 136|202 151 147|200 270 052
                                                                             =YB-1M9; M-I10; C10; NOT; NEG; =C10; YE19; J10≠Z; J1P402;
 4560/4: 041|033|201 271 124                                           9;      ZERO; NOT; J12;
=== Start P425V-1; at address 2418/4562
 4562/0: 310 223 211|042|164 373|171 162|164 025|056|164 071           P425;      YB-1M9; DUP; SHL-3; M7; SHL+10; +; SHL+28;
 4564/1: 065|304 000 007|054|164 017|042|164 015|056|056                     REV; SETB7; AND; SHL+7; DUP; SHL+6; +; +;
 4566/1: 310 242 305|304 000 177|054|056|201 271 151                         YA-1M10; SETB177; AND; +; J7P421;
=== Start P424V-1; at address 2424/4570
                                                                       P424;
 4570/0: 200 331 173|052|304 001 200|310 002 305|056|205 271 147             JSP413; ERASE; SETB600; W1; +; J6P421;
=== Start P413V-1; at address 2427/4573
 4573/0: 310 242 305|310 223 210|164 373|310 223 211|164 373|164 025|056
                                                                       P413;   (jsp906;  jsp907;) YA-1M10; YB-2M9; SHL-3; YB-1M9; SHL-3; SHL+10; +;   [ hux diagnostic
 4575/4: 171 162|164 051|056|164 045|304 000 007|042|310 223 211|054         M7; SHL+20; +; SHL+18; SETB7; DUP; YB-1M9; AND;
 4600/1: 164 007|065|310 223 210|054|056|164 025|056                         SHL+3; REV; YB-2M9; AND; +; SHL+10; +;
 4602/0: 065|304 000 177|054|042|012|056|311 002 305|200 360 000             REV; SETB177; AND; DUP; PERM; +; =W1; EXIT1;
=== Start P426V-1; at address 2437/4605
                                                                       P426;
 4605/0: 310 004 124|042|164 041|065|033|027|042|012|056|164 041             YE9; DUP; SHL+16; REV; NOT; NEG; DUP; PERM; +; SHL+16;
 4607/2: 310 004 127|056|313 242 306|240 254 365                             YE12; +; =YA0M10Q; J31P750C10Z;
 4611/0: 033|027|311 004 124                                                 NOT; NEG; =YE9;
 4611/5: 304 000 051|310 242 304|304 011 377|054                             SETB51; YA-2M10; SETB4777; AND;
 4613/3: 304 010 204|221 031 216                                             SETB4204; J4=;(IF L. BRACKET + GO TO);
 4614/3: 304 010 205|205 031 220                                             SETB4205; J3≠;(IF NOT IF + GO TO);
 4615/3: 052|200 271 217                                                     ERASE; J5;
 4616/1: 052|304 000 020|015                                           4;      ERASE; SETB20; NEV;(CHANGE BOUND TO TYPE 3);
 4617/0: 310 242 305|304 010 000|015|311 242 305                       5;      YA-1M10; SETB4000; NEV; =YA-1M10;(INSERT GO TO IN IF);
 4620/4: 042                                                                 DUP;
 4620/5: 052|171 162|164 115|056                                       3;      ERASE; M7; SHL+38; +;
 4621/5: 313 170 300|143 120|264 131 223                               2;      =Y0M7Q; (JSP900; JSP904;jsp905;) DC5; J1C5NZ; [hux - diagnostic
 4623/1: 200 275 006                                                         J6P407;
 4623/4: 200 360 000                                                   1;      EXIT1;
=== Start P427V-1; at address 2453/4625
                                                                       P427;
 4625/0: 310 242 305|164 113|220 051 251                                     YA-1M10; SHL+37; JP429<Z; (IF ELSE SET
                                                                             IN IF IN OSP-1);
 4626/2: 171 162|164 025|310 223 211|164 373|056|164 041|310 242 305|164 041|164 301
                                                                             M7; SHL+10; YB-1M9; SHL-3; +; SHL+16; YA-1M10; SHL+16; SHL-32;
 4631/3: 056|164 031|304 000 047|056                                         +; SHL+12; SETB47; +;
 4632/4: 141 220|171 230|033|027|170 230|205 271 221                         M-I9; C9; NOT; NEG; =C9; J2P426;
=== Start P428V-1; at address 2461/4635
 4635/0: 310 242 305|042|170 376                                       P428;      YA-1M10; DUP; =Q15;
 4636/0: 304 010 000|054|202 151 246                                         SETB4000; AND; J1≠Z;
 4637/1: 310 223 211|304 000 007|054|164 033                                 YB-1M9; SETB7; AND; SHL+13;
 4640/4: 304 004 000|056|171 376|056|311 242 305                             SETB2000; +; Q15; +; =YA-1M10;
 4642/2: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4643/4: 171 162|164 041|171 370|056|164 055                                 M7; SHL+16; C15; +; SHL+22;
 4645/1: 304 100 027|056|205 331 221                                         SETB40027; +; JS2P426;
 4646/2: 171 162|164 041|171 364|056|164 055                           1;      M7; SHL+16; I15; +; SHL+22;
 4647/5: 304 000 007|056|205 271 221                                         SETB7; +; J2P426;
=== Start P429V-1; at address 2473/4651
 4651/0: 310 242 305|042|304 010 000|054|202 151 324                   P429;      YA-1M10;DUP; SETB4000; AND; J6≠Z;
 4652/5: 042|304 004 000|054|202 151 255                                     DUP; SETB2000; AND; J1≠Z;
 4654/1: 052|304 002 370|200 267 061                                         ERASE; SET760; JP206;
 4655/2: 164 347|304 000 007|054                                       1;      SHL-13; SETB7; AND;
 4656/2: 310 223 211|304 000 007|054|042|012                                 YB-1M9; SETB7; AND; DUP; PERM;
                                                                       [ original source of the next page
 4657/5: 036|221 151 315                                                     -; J2=Z;
 4660/3: 042|164 377|027|033|222 151 310                                     DUP; SHL-1; NEG; NOT; J3=Z;
 4661/5: 304 000 004|036|223 151 310                                         SETB4; -; J7=Z;
 4663/0: 171 162|164 041|310 004 124|056|164 055                             M7; SHL+16; YE9; +; SHL+22;
 4664/4: 304 000 027|056|205 331 221                                         SETB27; +; JS2P426;
 4665/5: 171 162|164 041|310 242 305|170 376|171 370                         M7; SHL+16; YA-1M10; =Q15; C15;
 4667/4: 056|164 055|304 000 007|056|205 331 221                             +; SHL+22; SETB7; +; JS2P426;
 4671/2: 171 162|164 055|033|027|164 041                                     M7; SHL+22; NOT; NEG; SHL+16;
 4672/4: 304 100 204|056|205 331 221                                         SETB40204; +; JS2P426;
 4673/5: 171 162|164 041|310 004 124|056|164 055                             M7; SHL+16; YE9; +; SHL+22;
 4675/3: 304 000 007|056|205 331 221                                         SETB7; +; JS2P426;
 4676/4: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4700/0: 310 004 121|033|027|311 004 124                                     YE6; NOT; NEG; =YE9;
 4701/2: 304 000 001|311 004 163                                       4;      SET1; =YE40;
 4702/2: 141 240|171 250|033|027|170 250                               5;      M-I10; C10; NOT; NEG; =C10;
 4703/4: 200 335 075                                                         JSP414;
 4704/1: 171 162|027|033|164 007                                             M7; NEG; NOT; SHL+3;
 4705/1: 310 170 277                                                         Y-1M7; (N.B. AN O.R.);
 4705/4: 304 000 160|054|164 371|056|313 223 212                             SETB160; AND; SHL-4; +; =YB0M9Q;
 4707/2: 240 234 352|200 270 052                                             J14P750C9Z; J1P402;
 4710/2: 052                                                           3;      ERASE;
 4710/3: 171 162|164 025|310 223 211|164 373|056                       7;      M7; SHL+10; YB-1M9; SHL-3; +;
 4712/1: 164 071|304 100 204|056|205 331 221                                 SHL+28; SETB40204; +; JS2P426;
 4713/4: 304 000 001|311 223 211|202 271 315                                 SET1; =YB-1M9; J8;
 4715/1: 052                                                           2;      ERASE;
 4715/2: 171 162|164 041|310 242 305|170 376|171 370                   8;      M7; SHL+16; YA-1M10; =Q15; C15;
 4717/1: 056|164 055                                                         +; SHL+22;
 4717/4: 304 000 007|056|205 331 221                                         SETB7; +; JS2P426;
 4720/5: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4722/1: 310 223 212|304 000 007|054|311 004 163|202 271 302                 YB0M9; SETB7; AND; =YE40; J5;
 4724/2: 052|141 240|171 250|033|027                                   6;      ERASE; M-I10; C10; NOT; NEG;
 4725/3: 170 250|304 000 005|311 004 163                                     =C10; SET5; =YE40; (LABEL);
 4726/5: 200 335 075|200 270 052                                             JSP414; J1P402;
=== Start P430V-1; at address 2520/4730
 4730/0: 310 242 305|042|304 020 000|054|201 151 346                   P430;      YA-1M10; DUP; SETB10000; AND; J1≠Z;
 4731/5: 164 347|304 000 007|042|012                                         SHL-13; SETB7; DUP; PERM;
 4733/0: 054|065|310 223 211                                                 AND; REV; YB-1M9;
 4733/5: 054|043|036|223 151 343                                             AND; DUPD; -; J2=Z;
 4734/5: 171 162|164 025|310 223 211|164 373|056                             M7; SHL+10; YB-1M9; SHL-3; +;
 4736/3: 164 037|056|164 015|065                                             SHL+15; +; SHL+6; REV;
 4737/3: 042|012|056|164 017                                                 DUP; PERM; +; SHL+7;
 4740/2: 304 000 004|056|205 331 221                                         SETB4; +; JS2P426;
 4741/3: 171 162|027|033|164 007|056                                         M7; NEG; NOT; SHL+3; +;
 4742/4: 311 223 211|041|041                                                 =YB-1M9; ZERO; ZERO;
 4743/3: 052|052|141 240|171 250|033|027|170 250|200 331 034|200 270 052
                                                                       2;      ERASE; ERASE; M-I10; C10; NOT; NEG; =C10; JSP412; J1P402;
 4746/1: 052|310 004 127|304 000 377|054|304 000 230                   1;      ERASE; YE12; SETB377; AND; SETB230;
 4750/0: 036|224 151 351                                                     -; J3=Z; (IF;);
 4750/4: 304 003 134|200 267 061                                             SET860; JP206;
 4751/4: 200 335 075                                                   3;      JSP414;
 4752/1: 200 335 066|300 006 111|200 330 060                                 JSP753; V9P0; JSP403;
 4753/4: 310 242 305|164 041|164 301                                         YA-1M10; SHL+16; SHL-32;
 4754/5: 304 016 351|200 330 060                                             SETB7351; JSP403;
 4755/5: 304 016 352|200 330 060                                             SETB7352; JSP403;
 4756/5: 141 240|171 250|033|027|170 250                                     M-I10; C10; NOT; NEG; =C10;
 4760/1: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4761/3: 200 360 000                                                         EXIT1;
=== Start P431V-1; at address 2546/4762
 4762/0: 171 222|225 151 363                                           P431;      M9; J1=Z;
 4762/5: 304 003 300|200 267 061                                             SET960; JP206; (N.S. NOT EMPTY);
 4763/5: 200 335 075                                                   1;     JSP414;
 4764/2: 200 275 066                                                         JP753;
=== Start P432V0; at address 2550/4766
                                                                       P432V0;
                                                                       [ original source of the next page
 4766/0: 041|033                                                             ZERO; NOT;
 4766/2: 301 011 365|200 331 102                                       1;      =V0; JSP417;
 4767/2: 300 006 112|171 162|164 025|310 004 134|056                   3;      V10P0; M7; SHL+10; YE17; +;
 4771/1: 164 071|304 100 006|056|200 331 111                                 SHL+28; SETB40006; +; JSP418;
 4772/4: 310 242 305|304 001 000|056|311 242 305                             YA-1M10; SETB400; +; =YA-1M10;
 4774/2: 310 004 116|311 004 120                                             YE3; =YE5; (PRP:=FSB);
 4775/2: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 4776/4: 200 335 075                                                         JSP414;
 4777/1: 300 011 365|204 152 000|200 360 000                                 V0; J4≠Z; EXIT1;
 5000/4: 141 160|171 130|033|027|042                                   4;      M-I7; C5; NOT; NEG; DUP;
 5001/5: 170 130|033|027|311 004 160                                         =C5; NOT; NEG; =YE37;
 5003/0: 200 335 075                                                         JSP414;
 5003/3: 310 203 311|042|170 116|042|304 000 037                             YC-1M8; DUP; =Q4; DUP; SETB37;
 5005/1: 054|304 000 012|036|311 004 135                                     AND; SETB12; -; =YE18; (=ZERO IF INTEGER ARRAY);
 5006/3: 304 001 000|054|042|311 004 136|203 152 030                         SETB400; AND; DUP; =YE19; J5≠Z;
 5010/2: 171 110|300 006 107|200 330 060                                     C4; V7P0; JSP403;
 5011/4: 310 242 305|042|170 116|164 361|304 000 377|054|310 004 135|205 152 014
                                                                       13;      YA-1M10; DUP; =Q4; SHL-8; SETB377; AND; YE18; J6≠Z;
 5014/4: 027                                                                 NEG;
 5014/5: 300 006 105|200 330 060|310 004 136|202 152 032               6;      V5P0; JSP403; YE19; J14≠Z;
 5016/5: 171 104|300 006 105|200 330 060                                     I4; V5P0; JSP403;
                                                                       15;
 5020/1: 300 006 114                                                   7;      V12P0;
 5020/4: 200 330 060|310 004 136|202 152 025                           8;      JSP403; YE19; J16≠Z;
 5022/1: 310 004 123|310 004 122|056|300 006 116|200 330 060                 YE8; YE7; +; V14P0; JSP403;
 5024/2: 300 006 103|200 330 060                                             V3P0; JSP403;
 5025/2: 141 200|171 210|033|027|170 210                               16;      M-I8; C8; NOT; NEG; =C8;
 5026/4: 141 240|171 250|033|027|170 250                                     M-I10; C10; NOT; NEG; =C10;
 5030/0: 200 360 000                                                         EXIT1;
 5030/3: 171 110|300 006 117|200 330 060|204 272 011                   5;      C4; V15P0; JSP403; J13;
 5032/2: 304 000 001|300 006 113|200 330 060                           14;      SET1; V11P0; JSP403;
 5033/5: 171 104|027|300 006 105|200 330 060                                 I4; NEG; V5P0; JSP403;
 5035/2: 201 272 020                                                         J15;
=== Start P433V-1; at address 2590/5036
 5036/0: 041|202 271 366                                               P433;      ZERO; J1P432;
=== Start P434V-1; at address 2591/5037
 5037/0: 304 000 131|205 331 221                                       P434;      SETB131; JS2P426;
 5040/0: 304 000 031|205 331 221                                             SETB31; JS2P426;
 5041/0: 310 203 311|304 000 037|054                                         YC-1M8; SETB37; AND;
 5042/1: 304 000 030|222 032 046                                             SETB30; J1=;
 5043/1: 164 373|027|033|222 152 045                                         SHL-3; NEG; NOT; J2=Z;
 5044/2: 304 004 044|200 267 061                                             SET1060; JP206;
 5045/2: 304 010 000|200 272 047                                       2;      SETB4000; J3;
 5046/2: 052|304 004 000                                               1;      ERASE; SETB2000;
 5047/0: 164 015|310 004 127|056|313 242 306|240 254 366               3;      SHL+6; YE12; +; =YA0M10Q; J32P750C10Z;
 5051/0: 200 360 000                                                         EXIT1;
=== Start P451V0; at address 2603/5053
 5053/0: 041                                                           P451V0;      ZERO;
 5053/1: 301 012 052|200 331 102                                       1;      =V0; JSP417;
 5054/1: 310 242 305|042|164 075|201 052 162                                 YA-1M10; DUP; SHL+30; J2≥Z;
 5055/4: 300 006 112|171 162|164 025|310 004 134|056                         V10P0; M7; SHL+10; YE17; +;
 5057/3: 164 071|304 100 006|056|200 331 111                                 SHL+28; SETB40006; +; JSP418;
 5061/0: 304 001 000|056|311 242 305                                         SETB400; +; =YA-1M10; (K:=K+1);
 5062/1: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 5063/3: 200 335 075                                                         JSP414;
 5064/0: 300 012 052|220 152 154                                             V0; J7=Z; (EXIT IF ROUTINE 31);
 5065/0: 141 160|171 130|033|027|170 130                               13;      M-I7; C5; NOT; NEG; =C5;
 5066/2: 310 242 305|170 116                                                 YA-1M10; =Q4;
 5067/1: 310 203 311|164 041|171 110|166 021|164 061                         YC-1M8; SHL+16; C4; SHLD+8; SHL+24;
 5071/0: 304 000 025|056                                                     SETB25; +;
 5071/4: 065|164 321|042|304 000 040|042                                     REV; SHL-24; DUP; SETB40; DUP;
 5073/0: 066|054                                                             CAB; AND; (FORMAL/ACTUAL MARKER);
 5073/2: 015|164 007|054                                                     NEV; SHL+3; AND; (O/L MARKER
 5074/0: 011                                                                 IF NOT FORMAL); OR;
                                                                       [ original source of the next page
 5074/1: 171 162|164 115|304 001 005|056|200 331 111                         M7; SHL+38; SETB405; +; JSP418;
 5076/0: 171 116|164 101|171 162|164 021|166 021                             Q4; SHL+32; M7; SHL+8; SHLD+8;
 5077/4: 164 055|304 001 010|056|205 331 221                                 SHL+22; SETB410; +; JS2P426;
 5101/1: 052|310 004 127|304 003 000|054                                     ERASE; YE12; SETB1400; AND;
 5102/3: 304 010 000|223 032 154                                             SETB4000; J3=; (I);
 5103/3: 304 001 000|220 032 106                                             SETB400; J20=; (IF L SET);
 5104/3: 221 152 106                                                         J5=Z; (NEITHER);
 5105/0: 304 004 210|200 267 061                                             SET1160; JP206; (BOTH);
 5106/0: 052                                                           20;      ERASE;
 5106/1: 171 116|164 101|164 261                                       5;      Q4; SHL+32; SHL-40; (K);
 5107/1: 027|033|042|220 152 126                                             NEG; NOT; DUP; J14=Z; (VECTOR);
 5110/1: 027|033|224 152 137                                                 NEG; NOT; J15=Z; (2 DIM);
 5111/0: 300 006 120                                                         V16P0; (JSP2O9-I/L);
 5111/3: 171 162|164 115|056|205 331 221                               17;      M7; SHL+38; +; JS2P426;
 5112/5: 310 004 127|304 001 000|054|203 152 156                       16;      YE12; SETB400; AND; J4≠Z; (IF L SET);
 5114/3: 200 335 075                                                         JSP414;
 5115/0: 310 203 311|304 002 000|054|220 152 142                             YC-1M8; SETB1000; AND; J6=Z; (IF R.H.S.);
 5116/4: 171 162|027|033|042|164 007                                         M7; NEG; NOT; DUP; SHL+3;
 5117/5: 304 000 002|056|313 223 212|240 234 353                             SETB2; +; =YB0M9Q; J15P750C9Z;
 5121/3: 310 203 311|041|166 061|065|164 031                                 YC-1M8; ZERO; SHLD+24; REV; SHL+12;
 5123/0: 066|166 351|052|065|166 321                                         CAB; SHLD-12; ERASE; REV; SHLD-24;
 5124/1: 052|304 000 200|056|311 203 311|204 272 152                         ERASE; SETB200; +; =YC-1M8; J9;
                                                                       14;      (VECTOR);
 5126/0: 052|171 162|141 160|171 130|033                                     ERASE; M7; M-I7; C5; NOT;
 5127/2: 027|170 130                                                         NEG; =C5;
 5127/5: 164 115|304 001 005|056|300 006 246                                 SHL+38; SETB405; +; V102P0;
 5131/2: 200 331 111                                                         JSP418; (M-I2,O5 WORDS);
 5131/5: 171 162|042|042|033|027                                             M7; DUP; DUP; NOT; NEG;
 5132/5: 164 025|065|027|033|056                                             SHL+10; REV; NEG; NOT; +;
 5133/5: 164 025|065|304 000 004|036|056                                     SHL+10; REV; SET4; -; +;
 5135/1: 164 045|304 111 101|056                                             SHL+18; SETB44501; +;
 5136/1: 300 006 247|200 331 111                                             V103P0; JSP418; (1/5,+WORDS);
 5137/1: 205 272 112                                                         J16;
                                                                       15;    (2 DIM);
 5137/4: 141 160|171 130|033|027|170 130                                     M-I7; C5; NOT; NEG; =C5;
 5141/0: 300 006 245|203 272 111                                             V101P0; (JSP247-1/L); J17;
 5142/0: 310 203 311|170 116|171 110|164 101                           6;      YC-1M8; =Q4; C4; SHL+32;
 5143/3: 304 100 025|056                                                     SETB40025; +; (YA,S,1/5);
 5144/1: 171 162|042|027|033|065                                             M7; DUP; NEG; NOT; REV;
 5145/1: 164 051|056|164 045|304 000 005|056                                 SHL+20; +; SHL+18; SETB5; +;
 5146/4: 171 116|304 000 007|054|042|012                                     Q4; SETB7; AND; DUP; PERM;
 5150/0: 164 017|056|066|065|204 330 270                                     SHL+7; +; CAB; REV; JS2P410;
 5151/2: 141 200|171 210|033|027|170 210                               18;      M-I8; C8; NOT; NEG; =C8;
 5152/4: 141 240|171 250|033|027|170 250                               9;      M-I10; C10; NOT; NEG; =C10;
 5154/0: 200 360 000                                                   7;      EXIT1;
 5154/3: 052|300 006 100                                               3;      ERASE; V0P0;
 5155/1: 171 162|164 115|056|205 331 221                               8;      M7; SHL+38; +; JS2P426;
 5156/3: 200 335 075                                                   4;      JSP414;
 5157/0: 171 162|027|033|164 007|304 000 002                                 M7; NEG; NOT; SHL+3; SETB2;
 5160/3: 056|313 223 212|240 234 354                                         +; =YB0M9Q; J16P750C9Z;
 5161/4: 202 272 151                                                         J18;
                                                                       2;       (SWITCH);
 5162/1: 052|171 162|164 025|310 004 134|056                                 ERASE; M7; SHL+10; YE17; +;
 5163/4: 164 017|304 000 031|056|164 053                                     SHL+7; SETB31; +; SHL+21;
 5165/0: 304 100 046|056|205 331 221                                         SETB40046; +; JS2P426;
 5166/1: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 5167/3: 200 335 075                                                         JSP414;
 5170/0: 141 160|171 130|033|027|170 130                                     M-I7; C5; NOT; NEG; =C5;
 5171/2: 171 236                                                             Q9;
 5171/4: 310 203 311|041|166 061|065|052                                     YC-1M8; ZERO; SHLD+24; REV; ERASE;
                                                                       [ original source of the next page
 5173/0: 164 061                                                             SHL+24;
 5173/2: 304 000 025|056|304 000 004|311 004 133|200 330 265                 SETB25; +; SET4; =YE16; JSP410;
 5175/3: 170 236                                                             =Q9;
 5175/5: 300 006 121|171 162|164 115|056|205 331 221                         V17P0; M7; SHL+38; +; JS2P426;
 5177/4: 141 240|171 250|033|027|170 250                                     M-I10; C10; NOT; NEG; =C10;
 5201/0: 141 200|171 210|033|027|170 210                                     M-I8; C8; NOT; NEG; =C8;
 5202/2: 200 335 075                                                         JSP414;
 5202/5: 310 242 305|042|304 000 377|054                                     YA-1M10; DUP; SETB377; AND;
 5204/1: 304 000 210|036|223 152 220                                         SETB210; -; J10=Z; (GO TO);
 5205/2: 042|304 013 377|054|304 010 205                                     DUP; SETB5777; AND; SETB4205;
 5206/4: 222 032 220|304 010 204|036|223 152 220                             J19=;(IF + GO TO); SETB4204; -; J10=Z;(L.BRACKET + GO TO);
 5210/2: 042|304 000 377|054|304 000 213                                     DUP; SETB377; AND; SETB213;
 5211/4: 036|220 152 215                                                     -; J11=Z; (IF OPENING PARAM. BRACKET);
 5212/2: 304 020 377|054|304 020 265                                         SETB10377; AND; SETB10265;
 5213/3: 220 032 215                                                         J11=; (IF :=(SWITCH));
 5214/0: 304 016 114|200 267 061                                             SET3660; JP206; (FAILURE 366O);
 5215/0: 052|171 162|027|033|164 007                                   11;      ERASE; M7; NEG; NOT; SHL+3;
 5216/1: 304 000 005|056|313 223 212|240 234 355                             SET5; +; =YB0M9Q; J17P750C9Z;
 5217/5: 200 360 000                                                         EXIT1;
 5220/2: 052                                                           19;      ERASE;
 5220/3: 052                                                           10;      ERASE;
 5220/4: 300 006 122|171 162|164 115|056|205 271 221                   12;      V18P0; M7; SHL+38; +; J2P426;
=== Start P435V-1; at address 2707/5223
 5223/0: 041|033|201 272 053                                           P435;      ZERO; NOT; J1P451;
=== Start P436V-1; at address 2708/5224
                                                                       P436;      (INSERT OPENING PARAMETER BRACKET);
 5224/0: 310 004 127                                                         YE12;
 5224/3: 313 242 306|240 254 367                                       1;      =YA0M10Q; J33P750C10Z;
 5225/3: 300 006 123|042|304 000 151                                         V19P0; DUP; SETB151;
 5226/4: 200 331 111                                                         JSP418; (TYPE 6 BOUND, M+I2;);
 5227/1: 304 000 031|065|200 331 111                                         SETB31; REV; JSP418; (M+I2; TYPE 1 BOUND);
 5230/2: 202 273 020                                                         J1P438;
=== Start P437V-1; at address 2713/5231
                                                                       P437;
 5231/0: 304 004 354|200 267 061                                             SET1260; JP206;
=== Start P438V-1; at address 2714/5232
                                                                       P438;      (PARAMETER CONCLUSION);
 5232/0: 310 242 305|170 116                                                 YA-1M10; =Q4;
 5232/5: 171 104|304 000 030|054|200 152 313                                 I4; SETB30; AND; J2≠Z;
 5234/2: 310 223 211|042|304 000 007|054|171 104                             YB-1M9; DUP; SETB7; AND; I4;
 5236/0: 304 000 007|054|043|036|225 152 250                                 SETB7; AND; DUPD; -; J3=Z;
 5237/3: 065|164 015|056|065|164 373                                         REV; SHL+6; +; REV; SHL-3;
 5240/4: 164 053|056|171 162|164 077|056                                     SHL+21; +; M7; SHL+31; +;
 5242/0: 164 017|304 000 004|056|171 162|065                                 SHL+7; SETB4; +; M7; REV;
 5243/3: 205 331 221                                                         JS2P426;
 5244/0: 171 116|304 200 000|027|011                                         Q4; SETB100000; NEG; OR;
 5245/1: 042|311 242 305|170 116                                             DUP; =YA-1M10; =Q4;
 5246/1: 042|164 007|171 104|304 000 007|054                                 DUP; SHL+3; I4; SETB7; AND;
 5247/4: 056|311 223 211|203 272 251                                         +; =YB-1M9; J4;
 5250/5: 052|052|164 373                                               3;      ERASE; ERASE; SHL-3;
 5251/3: 311 004 134|171 116|164 057|204 052 261                       4;      =YE17; Q4; SHL+23; J5≥Z; (IF BY NAME);
 5253/1: 200 331 115                                                   45;      JSP419;
 5253/4: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 5255/0: 200 335 075|202 273 020                                             JSP414; J1;
 5256/0: 171 162|164 115|300 006 124|056|205 331 221                   47;      M7; SHL+38; V20P0; +; JS2P426;
 5257/5: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 5261/1: 200 360 000                                                         EXIT1;
 5261/4: 200 332 256                                                   5;      JS47;
 5262/1: 171 162|164 041|171 110|027|033                                     M7; SHL+16; C4; NEG; NOT;
 5263/3: 056|164 055|304 000 007|056|205 331 221                             +; SHL+22; SETB7; +; JS2P426;
 5265/1: 171 102|203 052 273                                                 M4; J6≥Z;
 5266/0: 171 162|164 115|300 006 125|056|205 331 221                   8;      M7; SHL+38; V21P0; +; JS2P426;
 5267/5: 171 162|164 041|171 110|056|164 055|304 000 007|056|205 331 221
                                                                       12;      M7; SHL+16; C4; +; SHL+22; SETB7; +; JS2P426;
 5272/3: 200 335 075|202 273 020                                             JSP414; J1;
                                                                       [ original source of the next page
 5273/3: 310 004 134|170 062|310 070 300|304 000 037|054|304 000 005   6;      YE17; =M3; Y0M3; SETB37; AND; SETB5;
 5276/0: 036|224 152 277                                                     -; J7=Z;
 5276/4: 304 005 120|200 267 061                                             SET1360; JP206;
 5277/4: 310 070 301|304 004 000|054|200 152 266                       7;      Y1M3; SETB2000; AND; J8≠Z;
 5301/2: 145 060|171 110|304 000 002|036|164 055|304 000 007|056|164 025
                                                                             I3=-1; C4; SET2; -; SHL+22; SETB7; +; SHL+10;
 5304/0: 140 060|310 070 300|042|164 025|066|065|222 032 320           9;      M+I3; Y0M3; DUP; SHL+10; CAB; REV; J10=;
 5306/1: 065|042|304 000 017|054|304 000 012|036|222 152 311                 REV; DUP; SETB17; AND; SETB12; -; J11=Z;
 5310/2: 304 005 264|200 267 061                                             SET1460; JP206;
 5311/2: 304 000 200|056|311 070 300|200 272 304                       11;      SETB200; +; =Y0M3; J9;
 5313/0: 171 104|304 000 037|054|304 000 031|036|221 152 316           2;      I4; SETB37; AND; SETB31; -; J13=Z;
 5315/1: 304 006 030|200 267 061                                             SET1560; JP206;
 5316/1: 171 116|164 057|221 052 253                                   13;      Q4; SHL+23; J45<Z; (IF BY VALUE);
 5317/2: 200 332 256|205 272 267                                             JS47; J12;
 5320/2: 052|052|144 060|041|311 004 135                               10;      ERASE; ERASE; I3=1; ZERO; =YE18;
 5321/4: 140 060|171 062|310 004 134|036|220 152 337                   14;      M+I3; M3; YE17; -; J15=Z;
 5323/3: 310 070 300|042|304 000 017|054|304 000 012|036|220 152 327         Y0M3; DUP; SETB17; AND; SETB12; -; J16=Z;
 5326/0: 304 006 174|200 267 061                                             SET1660; JP206;
 5327/0: 310 004 135|220 152 331                                       16;      YE18; J17=Z;
 5330/0: 304 006 340|200 267 061                                             SET1760; JP206;
 5331/0: 041|033|311 004 135|164 025|164 355|171 162|164 115|056       17;      ZERO; NOT; =YE18; SHL+10; SHL-10; M7; SHL+38; +;
 5333/2: 205 331 221                                                         JS2P426;
 5333/5: 171 162|027|033|164 007|304 000 002|056|313 223 212|240 234 356|204 272 321
                                                                             M7; NEG; NOT; SHL+3; SETB2; +; =YB0M9Q; J18P750C9Z; J14;
 5337/0: 310 070 301|304 100 000|043|054|221 152 354                   15;      Y1M3; SETB40000; DUPD; AND; J19=Z;
 5340/5: 164 377|054|225 152 342                                             SHL-1; AND; J20=Z;
 5341/5: 304 007 104|200 267 061                                             SET1860; JP206;
 5342/5: 200 334 215|304 000 301|313 242 306|240 254 370               20;      JSP460; SETB301; =YA0M10Q; J34P750C10Z;
 5344/5: 204 331 160                                                         JS9P421;
 5345/2: 141 220|171 230|033|027|170 230                               18;      M-I9; C9; NOT; NEG; =C9;
 5346/4: 171 162|164 115|300 006 124|056|205 331 221                   21;      M7; SHL+38; V20P0; +; JS2P426;
 5350/3: 171 110|171 162|164 041|056|164 055|304 000 007|056|205 331 221
                                                                             C4; M7; SHL+16; +; SHL+22; SETB7; +; JS2P426;
 5353/1: 200 335 075|202 273 020                                             JSP414; J1;
 5354/1: 164 377|054|221 152 357                                       19;      SHL-1; AND; J22=Z;
 5355/1: 310 004 135|222 153 015                                             YE18; J23=Z;
 5356/1: 304 007 250|200 267 061                                             SET1960; JP206;
 5357/1: 200 334 215                                                   22;      JSP460;
 5357/4: 310 070 301|304 001 000|054|225 152 367                             Y1M3; SETB400; AND; J49=Z; (IE NOT OWN);
 5361/2: 310 170 277|304 100 000|164 007|011                                 Y-1M7; SETB40000; SHL+3; OR;
 5362/5: 311 170 277                                                         =Y-1M7; (SET YB MARKER);
 5363/2: 200 334 215                                                         JSP460;
 5363/5: 310 170 277|167 025|164 041|167 055|304 100 000|164 015             Y-1M7; SHC+10; SHL+16; SHC+22; SETB40000; SHL+6;
 5366/1: 011|311 170 277                                                     OR; (SET Y MARKER); =Y-1M7;
                                                                             (SET ADDRESS=O, I.E. AYO);
 5366/5: 304 000 321|204 273 002                                             SETB321; (-); J48;
 5367/5: 310 070 301|164 321|304 000 377|054                           49;      Y1M3; SHL-24; SETB377; AND;
 5371/2: 042|204 152 376                                                     DUP; J24≠Z; (IF LOCALE≠O);
 5372/0: 052|171 162|042|164 115|300 006 126                                 ERASE; M7; DUP; SHL+38; V22P0;
 5373/3: 056|205 331 221                                                     +; JS2P426;
 5374/1: 164 007|304 000 002|056|313 223 212                                 SHL+3; SETB2; +; =YB0M9Q;
 5375/4: 240 234 357|201 273 002                                             J19P750C9Z; J25;
 5376/4: 200 334 223|204 273 004                                       24;      JSP461; J26;
 5377/4: 164 361|304 000 225|056|304 000 002|311 004 133|200 330 265         SHL-8; SETB225; +; SET2; =YE16; JSP410;
 5402/1: 304 000 301                                                   25;      SETB301; (+);
 5402/4: 313 242 306|240 254 371                                       48;      =YA0M10Q; J35P750C10Z;
 5403/4: 204 331 160|202 272 345                                             JS9P421; J18;
 5404/4: 164 335|171 162|164 115|056                                   26;      (RECURSIVE); SHL-18; M7; SHL+38; +;
 5405/5: 304 001 010|056|171 162|065|205 331 221                             SETB410; +; M7; REV; JS2P426;
 5407/3: 164 007|304 000 002|056|313 223 212|240 234 360                     SHL+3; SETB2; +; =YB0M9Q; J20P750C9Z;
 5411/3: 171 162|164 115|300 006 127|056|205 331 221                         M7; SHL+38; V23P0; +; JS2P426;
 5413/2: 141 220|141 220|304 000 002|172 230|202 272 345                     M-I9; M-I9; SET2; =+C9; J18;
 5415/2: 310 070 301|167 301|033|027|167 101|310 070 300|200 331 111   23;      Y1M3; SHC-32; NOT; NEG; SHC+32; Y0M3; JSP418;
                                                                       [ original source of the next page
 5417/5: 204 272 346                                                         J21;
                                                                       1;      (NEXT PARAMETER);
 5420/2: 310 242 305|304 001 000|056|042|311 242 305                         YA-1M10; SETB400; +; DUP; =YA-1M10;
 5422/1: 164 361|304 000 077|054|042|311 004 133                             SHL-8; SETB77; AND; DUP; =YE16;
 5423/5: 310 203 311|164 041|164 255|036|205 113 032                         YC-1M8; SHL+16; SHL-42; -; J29≤Z;
 5425/4: 310 004 127|304 000 377|054|304 000 233|036                         YE12; SETB377; AND; SETB233; -;
 5427/3: 220 153 031|304 010 014|200 267 061                                 J28=Z; SET2060; JP206;
 5431/0: 141 240|171 250|033|027|170 250                               28;      M-I10; C10; NOT; NEG; =C10;
 5432/2: 205 273 140                                                         J27;
 5432/5: 310 203 311|164 355|310 004 133|036                           29;      YC-1M8; SHL-10; YE16; -;
 5434/2: 170 102|320 113 053                                                 =M4; Z52M4; (LOOK UP NEXT FORMAL FROM L.P.S);
 5435/1: 304 001 377|054|042|310 242 305|170 116                             SETB777; AND; DUP; YA-1M10; =Q4;
 5436/5: 170 104                                                             =I4;
 5437/1: 171 102|304 077 377|054|170 102                                     M4; SETB37777; AND; =M4;
 5440/3: 171 116|311 242 305                                                 Q4; =YA-1M10;
 5441/2: 304 000 002|311 004 133                                             SET2; =YE16; (INTEGER MARKER,FOR P41O);
 5442/2: 042|304 000 030|054|164 373                                         DUP; SETB30; AND; SHL-3; (CLASS);
 5443/3: 042|223 153 103                                                     DUP; J30=Z; (REAL,INT. OR BOOL.);
 5444/1: 027|033|042|223 153 067                                             NEG; NOT; DUP; J31=Z; (ARRAY);
 5445/1: 027|033|221 153 062                                                 NEG; NOT; J32=Z; (PROC.);
 5446/0: 042|304 000 007|054|042|225 153 060                                 DUP; SETB7; AND; DUP; J33=Z; (SWITCH);
 5447/3: 027|033|225 153 121                                                 NEG; NOT; J34=Z; (LABEL);
 5450/2: 052|200 334 261|042                                                 (STRING); ERASE; JSP2; (NEXT CODE WORD); DUP;
 5451/1: 304 000 040|054|200 153 102                                         SETB40; AND; J35≠Z; (IF FORMAL);
 5452/2: 170 116|171 110|171 162|164 041|056                                 =Q4; C4; M7; SHL+16; +;
 5453/5: 164 003|033|027|164 053                                             SHL+1; NOT; NEG; SHL+21;
 5454/5: 304 000 010|056|171 162|164 007|304 000 002                   37;      SETB10; +; M7; SHL+3; SET2;
 5456/4: 056|313 223 212|240 234 361                                         +; =YB0M9Q; J21P750C9Z;
 5457/5: 205 331 221|203 273 075                                             JS2P426; J36;
                                                                       33;      (SWITCH);
 5460/5: 052|052|200 334 261|202 273 101                                     ERASE; ERASE; JSP2; (NEXT CODEWORD); J46;
                                                                       32;      (PROCEDURE);
 5462/1: 052|200 334 261|042|304 000 040|054                                 ERASE; JSP2; DUP; SETB40; AND;
 5463/4: 202 153 101                                                         J46≠Z; (IF FORMAL);
 5464/1: 170 116|171 110|164 361|171 162|164 041                             =Q4; C4; SHL-8; M7; SHL+16;
 5465/5: 056|164 011|033|027|164 045                                         +; SHL+4; NOT; NEG; SHL+18;
 5467/0: 205 273 054                                                         J37;
 5467/3: 052|052|200 334 261                                           31;      ERASE; ERASE; JSP2; (NEXT CODEWORD);
 5470/2: 042|304 000 040|054|200 153 102                                     DUP; SETB40; AND; J35≠Z; (IF FORMAL);
 5471/4: 042|200 330 261|200 330 265|304 000 040|043                         DUP; JSP409; JSP410; SETB40; DUPD;
 5473/3: 054|015|164 007|054                                                 AND; NEV; SHL+3; AND;
 5474/2: 310 170 277|011|311 170 277                                         Y-1M7; OR; =Y-1M7; (O/L MARKER);
 5475/3: 200 331 115                                                   36;      JSP419;
 5476/0: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 5477/2: 200 335 075                                                         JSP414; (OPTIMISE);
 5477/5: 200 334 261                                                         JSP2; (NEXT CODEWORD);
 5500/2: 311 004 127|202 273 020                                             =YE12; J1;
                                                                       46;      (FORMAL PROC.);
 5501/2: 164 321|164 061                                                     SHL-24; SHL+24;
 5502/0: 200 330 261|200 330 265|203 273 075                           35;      JSP409; JSP410; J36;
 5503/3: 052|304 001 000|054|222 153 105|200 360 000                   30;      ERASE;SETB400; AND; J44=Z; EXIT1;
 5505/2: 304 000 171|311 170 277                                       44;      SETB171; =Y-1M7;
 5506/2: 200 334 244|310 004 124|033|027|311 004 124                         JSP463; YE9; NOT; NEG; =YE9;
 5510/1: 200 334 230|200 334 244|200 334 230                                 JSP462; JSP463; JSP462;
 5511/4: 171 162|164 041|310 004 124|033|027                                 M7; SHL+16; YE9; NOT; NEG;
 5513/1: 056|164 055|304 000 027|056|205 331 221                             +; SHL+22; SETB27; +; JS2P426;
 5514/5: 171 162|164 041|310 004 124|027|033                                 M7; SHL+16; YE9; NEG; NOT;
 5516/2: 056|164 055|304 000 007|056|205 331 221                             +; SHL+22; SETB7; +; JS2P426;
 5520/0: 310 004 124|033|027|311 004 124|205 273 134                         YE9; NOT; NEG; =YE9; J38;
 5521/5: 304 001 000|054|223 153 123|200 360 000                       34;      SETB400; AND; J39=Z; EXIT1;
                                                                       [ original source of the next page
 5523/3: 304 000 171|311 170 277                                       39;      SETB171; =Y-1M7;
 5524/3: 200 334 244|200 334 230                                             JSP463; JSP462;
 5525/3: 171 162|164 041|310 004 124|033|027                                 M7; SHL+16; YE9; NOT; NEG;
 5527/0: 056|164 055|304 000 027|056|205 331 221                             +; SHL+22; SETB27; +; JS2P426;
 5530/4: 171 162|164 041|310 004 124|056|164 055                             M7; SHL+16; YE9; +; SHL+22;
 5532/2: 304 000 007|056|205 331 221                                         SETB7; +; JS2P426;
 5533/3: 310 004 124|033|027|311 004 124                                     YE9; NOT; NEG; =YE9;
 5534/5: 310 242 305|170 116|310 004 124|042|170 110|171 116|311 242 305
                                                                       38;      YA-1M10; =Q4; YE9; DUP; =C4; Q4; =YA-1M10;
 5537/3: 033|027|311 004 124|200 360 000                                     NOT; NEG; =YE9; EXIT1;
 5540/5: 141 160|171 130|033|027|170 130                               27;      M-I7; C5; NOT; NEG; =C5;
 5542/1: 171 162|164 041|310 004 121|056|164 055                             M7; SHL+16; YE6; +; SHL+22;
 5543/5: 304 001 010|056|205 331 221                                         SETB410; +; JS2P426;
 5545/0: 310 203 311|042|304 000 040|054|205 153 157                         YC-1M8; DUP; SETB40; AND; J40≠Z;
 5546/5: 200 334 332|203 273 173                                             JSP3; J43;
 5547/5: 171 162|164 021|166 021|065|052                                     M7; SHL+8; SHLD+8; REV; ERASE;
 5551/1: 164 007|033|027|164 047|304 100 027                                 SHL+3; NOT; NEG; SHL+19; SETB40027;
 5552/4: 056|320 333 055|304 000 001|043|054                                 +; Z50M13; SET1; DUPD; AND;
 5554/1: 015|065|164 351|304 000 017|054                                     NEV; REV; SHL-12; SETB17; AND;
 5555/3: 164 025|066|056|065|164 045                                         SHL+10; CAB; +; REV; SHL+18;
 5556/4: 056|205 331 221|200 273 163                                         +; JS2P426; J41;
 5557/5: 164 301|164 061|304 020 025|056                               40;      SHL-32; SHL+24; SETB10025; +;
 5561/1: 171 162|164 115|304 000 005|056|200 331 111                         M7; SHL+38; SETB5; +; JSP418;
 5563/0: 200 335 075|310 203 311|304 000 200|054|224 153 171           41;      JSP414; YC-1M8; SETB200; AND; J42=Z;
 5565/1: 310 223 211|164 373|171 162|164 025|056|164 071|304 000 024|056
                                                                             YB-1M9; SHL-3; M7; SHL+10; +; SHL+28; SETB24; +;
 5567/5: 205 331 221                                                         JS2P426;
 5570/2: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 5571/4: 141 200|171 210|033|027|170 210|200 360 000                   42;      M-I8; C8; NOT; NEG; =C8; EXIT1;
 5573/3: 304 010 160|200 267 061                                       43;      SET2160; JP206;
=== Start P439V-1; at address 2941/5575
                                                                       P439;
 5575/0: 310 203 311|042|170 116                                             YC-1M8; DUP; =Q4;
 5576/0: 304 000 377|054|304 000 130|036                                     SETB377; AND; SETB130; -;
 5577/2: 200 153 213                                                         J1≠Z; (IF NOT SWITCH DECL.);
 5577/5: 171 110|164 101|310 004 127|056                                     C4; SHL+32; YE12; +;
 5601/1: 304 020 000|056|313 242 306                                         SETB10000; +; =YA0M10Q;
 5602/2: 240 254 372                                                         J36P750C10Z;
 5602/5: 141 200|171 210|033|027|170 210                                     M-I8; C8; NOT; NEG; =C8;
 5604/1: 171 116|164 061|164 255                                             Q4; SHL+24; SHL-42; (K);
 5605/1: 300 006 105|200 330 060                                             V5P0; JSP403; (;SET(K));
 5606/1: 171 110|300 006 107|200 330 060                                     C4; V7P0; JSP403; (;SETAY(Ssquare bracketOsquare bracket));
 5607/3: 300 006 130|200 330 060                                             V24P0; JSP403; (;JSP220;);
 5610/3: 041|033|027|164 101                                                 ZERO; NOT; NEG; SHL+32;
 5611/2: 310 242 305|056|311 242 305                                         YA-1M10; +; =YA-1M10; (Ssquare bracketOsquare bracket;=S*L0square bracket+1);
 5612/3: 200 274 144                                                         JP453;
 5613/0: 171 116|304 000 007|054|164 033|310 004 127|056|313 242 306|240 254 373
                                                                       1;      Q4; SETB7; AND; SHL+13; YE12; +; =YA0M10Q; J37P750C10Z;
 5616/0: 200 360 000                                                         EXIT1;
=== Start P440V-1; at address 2959/5617
 5617/0: 310 203 311|304 000 037|054|164 373|027                       P440;      YC-1M8; SETB37; AND; SHL-3; NEG;
 5620/4: 033|222 153 222                                                     NOT; J1=Z;
 5621/2: 304 010 324|200 267 061                                             SET2260; JP206;
 5622/2: 310 004 127|310 004 131|164 041|056|313 242 306               1;      YE12; YE14; SHL+16; +; =YA0M10Q;
 5624/2: 240 254 374                                                         J38P750C10Z;
 5624/5: 304 000 071|205 331 221                                             SETB71; JS2P426;
 5625/5: 304 000 031|205 271 221                                             SETB31; J2P426;
=== Start P441V-1; at address 2967/5627
                                                                       P441;
 5627/0: 310 004 127|313 242 306|240 254 375                                 YE12; =YA0M10Q; J39P750C10Z;
 5630/3: 310 242 304|304 200 000|027                                   1;      YA-2M10; SETB100000; NEG;
 5631/4: 011|311 242 304                                                     OR; =YA-2M10; (INSERT E);
 5632/2: 200 360 000                                                         EXIT1;
=== Start P442V-1; at address 2971/5633
                                                                       P442;
 5633/0: 200 331 205|203 273 230                                             JSP426; J1P441;
=== Start P443V-1; at address 2972/5634
                                                                       P443;
                                                                       [ original source of the next page
 5634/0: 140 240|203 333 230|141 240|200 272 224                             M+I10; JS1P441; M-I10; JP436;
=== Start P444V-1; at address 2974/5636
                                                                       P444;
 5636/0: 310 004 127|042|304 000 204|015|164 121|224 153 243                 YE12; DUP; SETB204; NEV; SHL+40; J1=Z;(IF L.BRACKET);
 5640/1: 052|141 240|171 250|033|027|170 250                                 ERASE; M-I10; C10; NOT; NEG; =C10;
 5641/4: 200 331 205                                                         JSP426;
 5642/1: 304 000 071|311 170 277|310 242 305                                 SETB71; =Y-1M7;(OPT.BD.3); YA-1M10;
 5643/4: 304 010 000|011|311 242 305|200 360 000                       1;      SETB4000; OR; =YA-1M10; (INSERT GO TO); EXIT1;
=== Start P445V-1; at address 2982/5646
                                                                       P445;
 5646/0: 310 004 127|042|313 242 306|240 254 376                       1;      YE12; DUP; =YA0M10Q; J40P750C10Z;
 5647/4: 164 041|041|166 017|311 004 122                                     SHL+16; ZERO; SHLD+7; =YE7;
 5651/0: 041|166 041|042|311 004 116|311 004 120                             ZERO; SHLD+16; DUP; =YE3; =YE5; [ SEE PDF - printer fault on the 8 of SHLD+18
                                                                       	[changed to SHLD+16, which enables integrate to converge
                                                                       	[see P1010238 B60-TransTacticFlowcharts- which calcs the shift as 16  Hux
 5652/4: 052|304 000 071|205 331 221                                         ERASE; SETB71; JS2P426;
 5653/5: 310 004 122|027|033|042|202 053 256|304 020 100|200 267 061         YE7; NEG; NOT; DUP; J19≥Z; SET4160; JP206;(YO-YO≤O);
 5656/2: 203 153 352                                                   19;      J2≠Z; (IF YO-YO >1);
 5656/5: 041|311 004 161                                                     ZERO; =YE38;
 5657/3: 310 004 127|042|041|166 021|311 004 121                             YE12; DUP; ZERO; SHLD+8; =YE6;
 5661/1: 052                                                                 ERASE;
 5661/2: 200 334 332|203 274 002                                             JSP3; J3;
 5662/2: 171 322|311 004 115|052                                             M13; =YE2; ERASE;
 5663/2: 320 333 054|042|042|304 000 077|054                                 Z51M13; DUP; DUP; SETB77; AND;
 5664/5: 065|164 061|164 271|056|311 004 117                                 REV; SHL+24; SHL-36; +; =YE4;
 5666/2: 164 051|164 251|311 004 136                                         SHL+20; SHL-44; =YE19;
 5667/3: 320 333 055|042|304 000 100|054|311 004 130                         Z50M13; DUP; SETB100; AND; =YE13;
 5671/2: 304 000 001|054|033|027|311 004 126                                 SET1; AND; NOT; NEG; =YE11;
 5672/5: 320 333 053|042|164 101|164 261|311 004 123                         Z52M13; DUP; SHL+32; SHL-40; =YE8;
 5674/4: 042|164 055|164 265|320 013 132|056|311 004 137                     DUP; SHL+22; SHL-38; Z5; +; =YE20;
                                                                             (V-STORE NO. FOR FIXED SFACE REQUIRED);

 5676/4: 164 041|164 255|027|172 322                                         SHL+16; SHL-42; NEG; =+M13;
 5677/5: 320 333 052|164 101|164 261|311 004 113                             Z53M13; SHL+32; SHL-40; =YE0;
 5701/3: 310 004 121|027|033|200 153 340                                     YE6; NEG; NOT; J4≠Z;
 5702/5: 304 012 101|200 330 060                                             SETB5101; JSP403;
 5703/5: 300 006 132|200 330 060                                             V26P0; JSP403;
 5704/5: 300 006 133|200 330 060                                             V27P0; JSP403;
 5705/5: 300 006 134|200 330 060                                             V28P0; JSP403;
 5706/5: 300 006 135|200 330 060                                             V29P0; JSP403;
 5707/5: 310 004 124|300 006 136|200 330 060                                 YE9; V30P0; JSP403;
 5711/2: 300 006 252|320 013 071|164 031|203 053 313                         V106P0; Z38; SHL+12; J30≥Z; (IF NOT FORTRAN);
 5713/1: 033|027                                                             NOT; NEG; (; JSP249);
 5713/3: 200 330 060                                                   30;      JSP403;
 5714/0: 300 006 137|200 330 060                                             V31P0; JSP403;
 5715/0: 300 006 140|200 330 060                                             V32P0; JSP403;
 5716/0: 310 004 124|304 000 051|200 330 060                                 YE9; SETB51; JSP403;
 5717/3: 304 016 352|200 330 060                                             SETB7352; JSP403;
 5720/3: 310 004 124|033|027|311 004 124                                     YE9; NOT; NEG; =YE9;
 5721/5: 310 004 136|300 006 105|200 330 060                           5;      YE19; V5P0; JSP403;
 5723/2: 310 004 137|300 006 141|200 330 060                                 YE20; V33P0; JSP403;
 5724/5: 310 004 113|300 006 105|200 330 060                                 YE0; V5P0; JSP403;
 5726/2: 300 006 142|200 330 060                                             V34P0; JSP403;
                                                                       (JSP900;)[diagnostic hux
 5727/2: 310 004 130|202 153 332                                             YE13; J6≠Z;
 5730/2: 310 004 121|300 006 144|200 330 060|202 273 333                     YE6; V36P0; JSP403; J7;
 5732/2: 300 006 143|200 330 060                                       6;      V35P0; JSP403;
 5733/2: 310 004 123|033|027|300 006 102|200 330 060|300 006 103|200 330 060
                                                                       7;      YE8; NOT; NEG; V2P0; JSP403; V3P0; JSP403;
 5736/1: 310 004 121|027|033|203 153 357                                     YE6; NEG; NOT; J8≠Z;
 5737/3: 200 360 000                                                         EXIT1;
 5740/0: 310 004 126|027|033|225 153 321                               4;      YE11; NEG; NOT; J5=Z;
 5741/2: 300 006 143|200 330 060                                             V35P0; JSP403;
 5742/2: 310 004 113|027|300 006 105|200 330 060                             YE0; NEG; V5P0; JSP403;
 5744/0: 300 006 243|200 330 060                                             V99P0; JSP403;
 5745/0: 310 004 136|042|225 153 351                                         YE19; DUP; J17=Z;
                                                                       [ original source of the next page
 5746/1: 300 006 105|200 330 060                                             V5P0; JSP403;
 5747/1: 310 004 137|300 006 141|200 330 060                                 YE20; V33P0; JSP403;
 5750/4: 300 006 145|200 330 060|041                                         V37P0; JSP403; ZERO;
 5751/5: 052|200 360 000                                               17;      ERASE; EXIT1;
 5752/3: 310 004 126|027|033|222 153 354|200 360 000                   2;      YE11; NEG; NOT; J18=Z; EXIT1;
 5754/2: 310 004 122|310 004 123|056|300 006 116|200 330 060           18;      YE7; YE8; +; V14P0; JSP403;
 5756/3: 300 006 103|200 270 060                                             V3P0; JP403;
 5757/3: 310 004 115|304 000 003|304 000 002|311 004 134|036|170 102|145 100
                                                                       8;      YE2; SET3; SET2; =YE17; -; =M4; I4=-1;
 5762/2: 320 113 055|042|304 000 077|054                               13;      Z50M4; DUP; SETB77; AND;
 5763/4: 304 000 033|036|203 153 365                                         SETB33; -; J9≠Z;
 5764/5: 052|200 360 000                                                     ERASE; EXIT1;
 5765/3: 304 001 370|054|042|304 001 150|036|223 153 374               9;      SETB770; AND; DUP; SETB550; -; J10=Z;
 5767/3: 304 000 140|036|220 153 372                                         SETB140; -; J11=Z;
 5770/4: 310 004 134|033|027|201 273 373                               14;      YE17; NOT; NEG; J12;
 5772/0: 310 004 134|304 000 002|056                                   11;      YE17; SET2; +;
 5773/1: 311 004 134|140 100|202 273 362                               12;      =YE17; M+I4; J13;
                                                                       10;      (ARRAY BY VALUE);
 5774/3: 052|310 004 134|300 006 107|200 330 060                             ERASE; YE17; V7P0; JSP403; (;SETAY(FL));
 5776/1: 320 113 055|304 000 007|054|304 000 002|036                         Z50M4; SETB7; AND; SET2; -;
 6000/0: 300 006 105|200 330 060                                             V5P0; JSP403; (;SET(TYPE MARKER));
 6001/0: 300 006 146|200 330 060|204 273 370                                 V38P0; JSP403; (;JSP218;); J14;
 6002/3: 304 011 070|200 267 061                                       3;      SET2360; JP206;
=== Start P446V-1; at address 3076/6004
 6004/0: 310 004 127|304 001 000|054|204 154 056                       P446;      YE12; SETB400; AND; J13≠Z; (IF END PROG.);
 6005/4: 200 335 075                                                         JSP414;
 6006/1: 310 004 115|170 322|320 333 054|164 051                       12;      YE2; =M13; Z51M13; SHL+20;
 6007/5: 164 251|311 004 136                                                 SHL-44; =YE19;
 6010/4: 320 333 053|164 055|164 265|320 013 132|056|311 004 137             Z52M13; SHL+22; SHL-38; Z5; +; =YE20;
                                                                             (V-STORE NO. FOR FIXED SPACE REQUIRED);
 6013/0: 310 004 122|027|033|042|311 004 122                                 YE7; NEG; NOT; DUP; =YE7;
 6014/3: 204 154 077                                                         J1≠Z;
 6015/0: 320 333 053|304 000 007|054|220 154 024                             Z52M13; SETB7; AND; J16=Z; (IF NOT TYPE PROC.);
 6016/4: 310 242 305|164 117|220 054 024                                     YA-1M10; SHL+39; J16<Z; (IF CODE TYPE PR0C-
                                                                             OMIT FETCH 0F FUNCT. DESIG. VALUE);
 6020/0: 310 004 123|300 006 150|200 330 060                                 YE8; V40P0; JSP403; (Y(AV));
 6021/3: 310 004 126|304 000 030|200 330 060|304 000 073|200 330 060         YE11; SETB30; JSP403; SETB73; JSP403;
                                                                             (M(MOD););
 6024/0: 320 333 055|167 377|205 054 033                               16;      Z50M13; SHC-1; J3≥Z;
 6025/2: 310 004 136|222 154 032                                             YE19; J4=Z;
 6026/2: 310 004 136|300 006 105|200 330 060                                 YE19; V5P0; JSP403; (SET (N));
 6027/5: 310 004 137|300 006 141|200 330 060                                 YE20; V33P0; JSP403; (;V(FS));
 6031/2: 300 006 152|200 330 060                                             V42P0; JSP403; (;JSP229);
 6032/2: 300 006 111|200 330 060|202 274 040                           4;      V9P0; JSP403; J5; [EXIT1;
 6033/5: 310 004 136|222 154 037                                       3;      YE19; J6=Z;
 6034/5: 310 004 136|300 006 105|200 330 060|300 006 153|200 330 060         YE19; V5P0; JSP403; V43P0; JSP403;
 6037/2: 300 006 154|200 330 060                                       6;      V44P0; JSP403; [JP219;
 6040/2: 141 240|171 250|033|027|170 250                               5;      M-I10; C10; NOT; NEG; =C10;
 6041/4: 151 244|145 100                                                     M10TOQ4; I4=-1;
 6042/2: 141 160|171 130|033|027|170 130                                     M-I7; C5; NOT; NEG; =C5;
 6043/4: 310 004 122|205 154 076                                             YE7; J9≠Z; (IF YO-YO-1≠0);
 6044/4: 310 004 137|300 006 141|200 330 060                                 YE20; V33P0; JSP403;
 6046/1: 310 004 117|304 000 064|200 330 060                                 YE4; SETB64; JSP403;
 6047/4: 304 016 351|200 330 060                                             SETB7351; JSP403;
 6050/4: 320 333 055|310 004 161|164 031|011|321 333 055                     Z50M13; YE38; SHL+12; OR; =Z50M13;
 6052/4: 310 004 117|320 333 054|042                                         YE4; Z51M13; DUP;
 6053/5: 164 365|164 015|012                                                 SHL-6; SHL+6; PERM;
 6054/4: 164 061|164 271                                                     SHL+24; SHL-36;
 6055/2: 036|056|321 333 054                                                 -; +; =Z51M13;
                                                                             (PLANK:=FSL MAX-FSL);
 6056/1: 200 360 000                                                         EXIT1;
 6056/4: 171 242|027|033|225 154 060                                   13;      M10; NEG; NOT; (P-1); J14=Z;
                                                                       [ original source of the next page
 6057/5: 304 015 040|200 267 061                                             SET3360; JP206;

                                                                       14;

 6060/5: 300 006 147|200 330 060                                             V39P0; JSP403; (FINISH; E.M.);  [ the 0s are mistimed identically on the printer, so probably the same char
 6061/5: 041|033|200 330 060                                                 ZERO; NOT; JSP403; (FORCE OUT BUFFER);
 6062/4: 202 360 001                                                         EXIT2; (END OF TRANSLATION);
 6063/1: 310 102 306|304 000 377|054                                   7;      YA0M4; SETB377; AND;
 6064/2: 304 000 214|225 034 071                                             SETB214; J11=; (IF B. BLOCK);
 6065/2: 304 000 314|225 034 071                                             SETB314; J11=; (IF B. PROG.);
 6066/2: 304 000 354|225 034 067                                             SETB354; J17=; (IF B. FOR);
 6067/2: 205 274 074                                                         J8;
 6067/5: 052|310 102 306|164 041|164 317                               17;      ERASE; YA0M4; SHL+16; SHL-25;
 6071/1: 042|225 154 074                                                     DUP; J8=Z; (IF YO-YO AND STORAGE=0);
 6071/5: 052|310 102 306|164 061|164 277                               11;      ERASE; YA0M4; SHL+24; SHL-33;
 6073/1: 042|311 004 116|311 004 120                                         DUP; =YE3; =YE5; (RE-SET FSB, PRP);
 6074/2: 200 360 000                                                   2;      EXIT1;
 6074/5: 052|171 102|205 154 076                                       8;      ERASE; M4; J9≠Z;
 6075/5: 304 011 234|200 267 061                                             SET2460; JP206;
 6076/5: 140 100|201 274 063                                           9;      M+I4; J7;
 6077/4: 310 004 126|027|033|223 154 101|202 274 040                   1;      YE11; NEG; NOT; J15=Z; J5;
 6101/3: 310 004 122|310 004 123|056|300 006 150|200 330 060           15;      YE7; YE8; +; V40P0; JSP403;
 6103/4: 300 006 151|200 330 060|202 274 040                                 V41P0; JSP403; J5;
=== Start P447V-1; at address 3142/6106
                                                                       P447;
 6106/0: 310 004 127|313 242 306|240 254 377                           1;      YE12; =YA0M10Q; J41P750C10Z;
 6107/3: 304 000 071|171 162|164 115|056|205 331 221|200 360 000             SETB71; M7; SHL38; +; JS2P426; EXIT1; [ WHY IS SHL38 AN ERROR?
=== Start P448V-1; at address 3146/6112
                                                                       P448;
 6112/0: 200 335 075|141 240|171 250|033|027|170 250                         JSP414; M-I10; C10; NOT; NEG; =C10;
 6113/5: 141 160|171 130|033|027|170 130|200 360 000                         M-I7; C5; NOT; NEG; =C5; EXIT1;
=== Start P449V-1; at address 3150/6116
                                                                       P449;
 6116/0: 310 242 305|170 116|171 110|171 162|164 041                         YA-1M10; =Q4; C4; M7; SHL+16;
 6117/5: 056|164 055|304 000 027|056|205 331 221                             +; SHL+22; SETB27; +; JS2P426;
 6121/3: 171 104|171 162|164 041|056|164 055                                 I4; M7; SHL+16; +; SHL+22;
 6123/0: 304 000 007|056|205 331 221                                         SETB7; +; JS2P426;
 6124/1: 171 116|167 343|033|027|167 037                                     Q4; SHC-15; NOT; NEG; SHC+15;
 6125/3: 311 242 305                                                         =YA-1M10;
 6126/0: 200 335 075                                                         JSP414;
 6126/3: 304 012 152|200 270 060                                             SETB5152; JP403;
=== Start P450V-1; at address 3160/6130
 6130/0: 310 242 305|170 116|171 102|223 054 132                       P450;      YA-1M10; =Q4; M4; J1<Z;
 6131/4: 171 104|205 274 132                                                 I4; J2;
 6132/3: 171 110                                                       1;      C4;
 6132/5: 171 162|164 041|056|164 055                                   2;      M7; SHL+16; +; SHL+22;
 6134/0: 304 000 007|056|205 331 221                                         SETB7; +; JS2P426;
 6135/1: 200 335 075                                                         JSP414;
 6135/4: 200 335 066                                                         JSP753;
 6136/1: 141 240|171 250|033|027|170 250                                     M-I10; C10; NOT; NEG; =C10;
 6137/3: 200 270 052                                                         J1P402;
=== Start P452V-1; at address 3168/6140
 6140/0: 200 331 225|200 335 075                                       P452;      JSP427; JSP414;
 6141/0: 310 242 305|304 100 000|011                                         YA-1M10; SETB40000; OR;
 6142/1: 311 242 305                                                         =YA-1M10; (SET THEN IN IF);
 6142/4: 200 360 000                                                         EXIT1;
=== Start P453V-1; at address 3172/6144
                                                                       P453;
 6144/0: 310 242 305|170 116|171 104|224 154 153                             YA-1M10; =Q4; I4; J1=Z;
 6145/4: 200 335 075                                                         JSP414;
 6146/1: 310 242 305|170 116                                                 YA-1M10; =Q4;
 6147/0: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 6150/2: 300 006 111|200 330 060                                             V9P0; JSP403;
 6151/2: 171 104|304 016 351|200 330 060                                     I4; SETB7351; JSP403;
 6152/4: 304 016 352|200 330 060                                             SETB7352; JSP403;
 6153/4: 310 004 124|300 006 155|200 330 060                           1;      YE9; V45P0; JSP403;
                                                                       [ original source of the next page
 6155/1: 171 110|300 006 102|200 330 060                                     C4; V2P0; JSP403;
 6156/3: 304 006 001|200 330 060                                             SETB3001; JSP403;
 6157/3: 310 004 124|033|027|300 006 156|200 330 060                         YE9; NOT; NEG; V46P0; JSP403;
 6161/2: 310 004 124|304 016 351|200 330 060                                 YE9; SETB7351; JSP403;
 6162/5: 304 016 352|200 330 060                                             SETB7352; JSP403;
 6163/5: 310 004 124|033|027|042|170 104                                     YE9; NOT; NEG; DUP; =I4;
 6165/1: 171 110|033|027|170 110                                             C4; NOT; NEG; =C4;
 6166/1: 310 004 116|311 004 120                                             YE3; =YE5;
 6167/1: 033|027|311 004 124                                                 NOT; NEG; =YE9;
 6170/0: 171 116|311 242 305                                                 Q4; =YA-1M10;
 6170/5: 200 360 000                                                         EXIT1;
=== Start P454V-1; at address 3194/6172
                                                                       P454;
 6172/0: 310 242 305|304 100 000|011|311 242 305|200 272 037                 YA-1M10; SETB40000; OR; =YA-1M10; JP434;
=== Start P455V-1; at address 3197/6175
 6175/0: 310 004 127|164 041|164 317|221 154 177                       P455;      YE12; SHL+16; SHL-25; J1=Z;
 6176/4: 200 273 246                                                         JP445;
 6177/1: 200 274 106                                                   1;      JP447;
=== Start P456V-1; at address 3200/6200
 6200/0: 310 004 127|164 041|164 317|221 154 202                       P456;      YE12; SHL+16; SHL-25; J1=Z;
 6201/4: 200 274 004                                                         JP446;
 6202/1: 200 274 112                                                   1;      JP448;
=== Start P457V-1; at address 3203/6203
 6203/0: 141 240|171 250|033|027|170 250|200 270 052                   P457;      M-I10; C10; NOT; NEG; =C10; J1P402;
=== Start P458V-1; at address 3205/6205
 6205/0: 310 004 124|042|033|027|065|164 041|056|164 041               P458;      YE9; DUP; NOT; NEG; REV; SHL+16; +; SHL+16;
 6207/0: 304 000 207|056|313 242 306|240 255 000                             SETB207; +; =YA0M10Q; J42P750C10Z;
 6210/4: 310 004 124|304 000 002|056|311 004 124|200 360 000                 YE9; SET2; +; =YE9; EXIT1;
=== Start P459V-1; at address 3211/6213
 6213/0: 141 240|171 250|033|027|170 250|200 360 000                   P459;      M-I10; C10; NOT; NEG; =C10; EXIT1;
=== Start P460V-1; at address 3213/6215
 6215/0: 171 162|042|164 041|310 070 301|164 301|056                   P460;      M7; DUP; SHL+16; Y1M3; SHL-32; +;
 6216/5: 164 055|304 001 010|056                                             SHL+22; SETB410; +;
 6217/5: 205 331 221                                                         JS2P426;
 6220/2: 164 007|033|027|033|027                                             SHL+3; NOT; NEG; NOT; NEG;
 6221/2: 313 223 212|240 234 362                                             =YB0M9Q; J22P750C9Z;
 6222/2: 200 360 000                                                         EXIT1;
=== Start P461V-1; at address 3219/6223
                                                                       P461;
 6223/0: 164 121|200 334 332|200 274 227                                     SHL+40; JSP3; J1;
 6224/2: 320 333 055|304 000 100|054|203 154 226                             Z50M13; SETB100; AND; J2≠Z;
 6226/0: 202 360 001                                                         EXIT2;
 6226/3: 200 360 000                                                   2;      EXIT1;
 6227/0: 304 012 000|200 267 061                                       1;      SET2560; JP206;
=== Start P462V-1; at address 3224/6230
 6230/0: 171 162|042|027|033|065                                       P462;      M7; DUP; NEG; NOT; REV;
 6231/0: 164 025|056|164 035|304 005 001|056                                 SHL+10; +; SHL+14; SETB2401; +;
 6232/3: 164 035|304 000 046|056|205 331 221                                 SHL+14; SETB46; +; JS2P426;
 6234/0: 171 162|164 007|033|027|033                                         M7; SHL+3; NOT; NEG; NOT;
 6235/1: 027|313 223 212|240 234 363                                         NEG; =YB0M9Q; J23P750C9Z;
 6236/2: 171 162|164 051|304 000 104|056|164 045                             M7; SHL+20; SETB104; +; SHL+18;
 6240/0: 304 001 045|056|205 331 221                                         SETB445; +; JS2P426;
 6241/1: 200 331 115                                                         JSP419;
 6241/4: 141 220|171 230|033|027|170 230                                     M-I9; C9; NOT; NEG; =C9;
 6243/0: 200 360 000                                                         EXIT1;
=== Start P463V-1; at address 3236/6244
                                                                       P463;
 6244/0: 171 162|164 041|310 004 124|056|164 011|033|027|164 045             M7; SHL+16; YE9; +; SHL+4; NOT; NEG; SHL+18;
 6246/2: 304 000 010|056|205 271 221                                         SETB10; +; J2P426;

=== Start P2V8; at address 3249/6261
V-store at 06250 = 026 300 027 277 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 06251 = 027 300 030 277 000 000                                   V1=QAYZ256/AYZ511/0; (BUFER 2);
V-store at 06254 = 242 104 243 304 140 004                                   V4=B5044224361060004; (F/B/C);
V-store at 06255 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
V-store at 06256 = 000 000 000 000 110 004                                   V6=B44004; (CBN);
V-store at 06260 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 6261/0: 300 014 252                                                         V2; (FETCH NEXT WORD NORMAL ENTRY);
 6261/3: 170 376|240 374 274                                           10;      =Q15; J7C15Z;
 6262/2: 102 360|171 376                                                     M0M15Q; Q15;
 6263/0: 301 014 252|041|301 014 253                                   14;       =V2; ZERO; =V3;
                                                                       [ original source of the next page
 6264/1: 200 360 000                                                         EXIT1; (NORMAL EXIT);
                                                                             (INITIAL ENTRY FORWARDS READ);
 6264/4: 300 014 251|300 014 254|170 376|171 370                       1;      V1; V4; =Q15; C15;
 6266/2: 300 014 250|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 6270/2: 201 274 276                                                         J13;
 6270/5: 300 014 256|200 320 106                                             V6; JSE70;
 6271/5: 201 274 276                                                         J13;
 6272/2: 301 014 257|042|200 154 263|201 274 276                             =V7; DUP; J14≠Z; J13;
 6274/0: 300 014 255|200 320 106                                       7;      V5; JSE70;
 6275/0: 201 274 276                                                         J13;
 6275/3: 042|203 154 261                                               8;     (JSP901;) DUP; J10≠Z;
 6276/1: 304 016 260|200 267 061                                       13;      SET3760; JP206; (FAIL 37/6O);
 6277/1: 204 334 264|320 013 125|164 301|164 041|304 152 004|011|200 320 106
                                                                       16;      JS1; Z10; SHL-32; SHL+16; SETB65004; OR; JSE70;
 6302/0: 200 274 274                                                         J7;
 6302/3: 300 014 254|200 320 106                                       3;      V4; JSE70;
 6303/3: 201 274 276                                                         J13;
 6304/0: 200 360 000                                                         EXIT1;
 6304/3: 300 014 251|304 242 204|202 274 266                           15;      V1; SETB121204; J6;
                                                                             (INITI4L ENTRY FOR FETCH PREVIOUS WORD);
 6306/0: 300 014 252|170 376|171 364|027|170 364|140 360|140 360       4;      V2; =Q15; I15;NEG; =I15; M+I15; M+I15;
 6310/2: 204 274 311                                                         J9;
                                                                             (NORMAL ENTRY FOR FETCH PREVIOUS WORD);
 6310/5: 300 014 253|170 376                                           5;      V3; =Q15;
 6311/4: 102 360|171 376|301 014 253|200 360 000                       9;      M0M15Q; Q15; =V3; EXIT1;
                                                                             (WHAT IS CURRANT POSITION);
 6313/2: 300 014 256|200 320 106                                       11;      V6; JSE70;
 6314/2: 201 274 276                                                         J13;
 6314/5: 300 014 257|036|304 000 377|042|300 014 252                         V7; -; SETB377; DUP; V2;
 6316/4: 054|012|054|164 021|011                                             AND; PERM; AND; SHL+8; OR;
 6317/4: 200 360 000                                                         EXIT1;
                                                                             (SKIP TO GIVEN BLOCK);
 6320/1: 042|164 361|300 014 257|056|300 014 260                       12;      DUP; SHL-8; V7; +; V8;
 6321/5: 170 376|170 364|171 376|200 320 106                                 =Q15; =I15; Q15; JSE70;
 6323/2: 201 274 276                                                         J13;
 6323/5: 167 361|164 361|167 021|300 014 255|200 320 106                     SHC-8; SHL-8; SHC+8; V5; JSE70;
 6325/5: 201 274 276                                                         J13;
 6326/2: 170 376|042|171 362|036|027                                         =Q15; DUP; M15; -; NEG;
 6327/3: 172 370|170 362|171 376|301 014 252|200 360 000                     =+C15; =M15; Q15; =V2; EXIT1;
=== Start P3V-1; at address 3290/6332
                                                                       P3;      (SEARCH LEVEL PARAMETERS FOR A LEVEL L);
 6332/0: 041|170 323|304 000 377|167 361|065                                 ZERO; =RM13; SETB377; SHC-8; REV;
 6333/3: 320 333 055|170 336|171 324|042|170 322                       1;      Z50M13; =Q13; I13; DUP; =M13;
 6335/1: 203 154 336                                                         J2≠Z;
 6335/4: 065|052|200 360 000                                                 REV; ERASE; (NONE EXIST N1=L); EXIT1;
 6336/3: 043|320 333 053|015|054|203 154 333                           2;      DUPD; Z52M13; NEV; AND; J1≠Z;
 6340/0: 065|052|202 360 001                                                 REV; ERASE; (N1=L; M13=ALP 0F L); EXIT2;
=== Start P750V-1; at address 3297/6341
                                                                       P750;      (L.P. LIST FULL);
 6341/0: 304 027 254|200 267 061|304 030 020|200 267 061               *1;      SET6060; JP206; 2; SET6160; JP206;
 6343/0: 304 030 164|200 267 061|304 030 330|200 267 061               3;      SET6260; JP206; 4; SET6360; JP206;
 6345/0: 304 031 074|200 267 061                                       5;      SET6460; JP206;
                                                                             (N.S. FULL);
 6346/0: 304 031 240|200 267 061|304 032 004|200 267 061               10;      SET6560; JP206; 11; SET6660; JP206;
 6350/0: 304 032 150|200 267 061|304 032 314|200 267 061               12;      SET6760; JP206; 13; SET6860; JP206;
 6352/0: 304 033 060|200 267 061|304 033 224|200 267 061               14;      SET6960; JP206; 15; SET7060; JP206;
 6354/0: 304 033 370|200 267 061|304 034 134|200 267 061               16;      SET7160; JP206; 17; SET7260; JP206;
 6356/0: 304 034 300|200 267 061|304 035 044|200 267 061               18;      SET7360; JP206; 19; SET7460; JP206;
 6360/0: 304 035 210|200 267 061|304 035 354|200 267 061               20;      SET7560; JP206; 21; SET7660; JP206;
 6362/0: 304 036 120|200 267 061|304 036 264|200 267 061               22;      SET7760; JP206; 23; SET7860; JP206;
                                                                             (O.S. FULL);
 6364/0: 304 037 030|200 267 061|304 037 174|200 267 061               30;      SET7960; JP206; 31; SET8060; JP206;
 6366/0: 304 037 340|200 267 061|304 040 104|200 267 061               32;      SET8160; JP206; 33; SET8260; JP206;
                                                                       [ original source of the next page
 6370/0: 304 040 250|200 267 061|304 041 014|200 267 061               34;      SET8360; JP206; 35; SET8460; JP206;
 6372/0: 304 041 160|200 267 061|304 041 324|200 267 061               36;      SET8560; JP206; 37; SET8660; JP206;
 6374/0: 304 042 070|200 267 061|304 042 234|200 267 061               38;      SET8760; JP206; 39; SET8860; JP206;
 6376/0: 304 043 000|200 267 061|304 043 144|200 267 061               40;      SET8960; JP206; 41; SET9060; JP206;
 6400/0: 304 043 310|200 267 061                                       42;      SET9160; JP206;
=== Start P407V-1; at address 3329/6401
                                                                       P407;      (ORIGINALLY SPACE SAVER);
 6401/0: 304 012 144|200 267 061                                       1;      SET2660; JP206;
 6402/0: 304 012 310|200 267 061                                       2;      SET2760; JP206;
 6403/0: 304 013 054|200 267 061                                       3;      SET2860; JP206;
 6404/0: 304 013 220|200 267 061                                       4;      SET2960; JP206;
 6405/0: 304 013 364|200 267 061                                       5;      SET3060; JP206;
 6406/0: 304 014 130|200 267 061                                       6;      SET3160; JP206;
=== Start P758V-1; at address 3335/6407
                                                                       P758;      (DUMMY OPTIM1SER);
 6407/0: 304 013 163|164 101|164 301                                         SETAR41P438; SHL+32; SHL-32;
 6410/1: 173 000|042|174 000|036|203 155 014                                 LINK; DUP; =LINK; -; J1≠Z;
 6411/4: 310 203 311|304 000 007|054|171 162|027                             YC-1M8; SETB7; AND; M7; NEG;
 6413/2: 033|164 007|056|313 223 212                                         NOT; SHL+3; +; =YB0M9Q;
 6414/3: 171 162|304 016 375|200 330 060                               1;      M7; SETB7375; JSP403;
 6415/5: 041|033|205 331 221                                                 ZERO; NOT; JS2P426;
 6416/4: 200 360 000                                                         EXIT1;
=== Start P751V6; at address 3351/6427
                                                                       P751V6;
V-store at 06420 = 276 240 256 241 301 321                                   V0=B5752025650340721;
V-store at 06421 = 271 201 211 231 202 302                                   V1=B5630061146301302;
V-store at 06422 = 242 261 221 204 224 000                                   V2=B5053062141112000;
V-store at 06423 = 236 230 322 216 246 377                                   V3=B4751432243523377;
 6427/0: 304 000 077|054|042|304 000 071|015                                 SETB77; AND; DUP; SETB71; NEV;
 6430/3: 200 155 032                                                         J1≠Z;
 6431/0: 301 015 024|200 360 000                                             =V4; EXIT1;
 6432/0: 300 015 024|221 155 041                                       1;      V4; J2=Z; (PREVIOUS CHAR. NOT U/L);
 6433/0: 304 000 062|036|042|203 155 035                                     SETB62; (<); -; DUP; J3≠Z;
 6434/2: 052|304 000 222|205 275 036                                         ERASE; SETB222; (≤); J7;
 6435/3: 027|033|200 155 040                                           3;      NEG; NOT; J4≠Z; (FAIL IF NOT > OR <);
 6436/2: 304 000 262                                                         SETB262; (≥);
 6436/5: 041|301 015 024|202 360 001                                   7;      ZERO; =V4; (CLEAR U/L MARKER); EXIT2;
 6440/0: 052|304 014 274|200 267 061                                   4;      ERASE; SET3260; JP206; (FAILURE 32/6O);
 6441/1: 304 000 077|225 035 052                                       2;      SETB77; J8=; (IF 77);
 6442/1: 304 000 051|223 035 055                                             SETB51; J6=; (IF CRLF);
 6443/1: 304 000 052|223 035 055                                             SETB52; J6=; (IF TAB);
 6444/1: 304 000 073|200 035 050                                             SETB73; J9≠; (IF NOT SEMI-COLON);
 6445/1: 300 015 026|225 155 046                                             V6; J10=Z; (IF S.C. NOT SET);
 6446/1: 052|200 360 000                                                     ERASE; EXIT1; (IGNORE THIS SEMI-COLON);
 6446/5: 042|301 015 026|203 275 055                                   10;      DUP; =V6; (SET SC); J6;
 6450/0: 041|301 015 026                                               9;      ZERO; =V6; (CLEAR S.C);
 6450/4: 304 000 050|205 035 052                                             SETB50; J8≠; (IF NOT E.M.);
 6451/4: 042|301 015 025|203 275 055                                         DUP; =V5; (SET E.M.); J6;
 6452/5: 300 015 025|203 155 055                                       8;      V5; J6≠Z; (JUMP IF E.M. SET);
 6453/5: 304 000 077|203 035 055                                             SETB77; J6≠; (JUMP IF NOT 77 CHAR.);
 6454/5: 052|200 360 000                                                     ERASE; EXIT1; (IGNORE 77 CHAR.);
                                                                       6;      (ONE FOR ONE);
 6455/3: 042|304 000 046|036|042|204 055 057                                 DUP; SET38; -; DUP; J5≥Z;
 6457/0: 052|202 360 001                                                     ERASE; EXIT2; (8. BIT CHAR.=6 BIT CHAR.);
 6457/4: 065|052|027|033|027                                           5;      REV; ERASE; NEG; NOT; NEG;
 6460/3: 033|042|220 055 040                                                 NOT; DUP; J4<Z;
 6461/2: 304 015 020|170 362|304 000 006|044                                 SETAV0; =M15; SET6; %I;
 6462/5: 161 007|170 370|170 342                                             SHA+3; =C15; =M14;
 6463/5: 100 357|167 360|164 261|202 360 001                                 M15M14; SHCC15; SHL-40; EXIT2;
=== Start P753V-1; at address 3382/6466
 6466/0: 310 004 127|042|304 000 377|054                               P753;      YE12; DUP; SETB377; AND;
 6467/2: 304 000 230|036|201 155 074                                         SETB230; -; J2≠Z;
 6470/3: 164 351|042|220 155 073                                             SHL-12; DUP; J1=Z;
 6471/3: 304 176 000|164 067|011|200 270 060                                 SETB77000; SHL+27; OR; JP403;
                                                                       [ original source of the next page
 6473/0: 052|304 012 152|200 270 060                                   1;      ERASE; SETB5152; JP403;
 6474/1: 052|200 360 000                                               2;      ERASE; EXIT1;
=== Start P414V-1; at address 3389/6475
                                                                       P414;   (OPTIMISER); (RUNO FLOAT ORS);
                                                                       (JSP904;jsp905;)
 6475/0: 171 162|221 115 100|171 162|221 055 077|200 360 000                 M7; J90>Z; M7; J91<Z; EXIT1; (I=O);
 6477/1: 304 002 371|200 267 061                                       91;      (I<O); SET761; JP206;
 6500/1: 304 000 111|205 331 221                                       90;      SETB111; JS2P426; (TYPE 4 BOUND);
                                                                       (JSP905;)
 6501/1: 151 161|145 020|140 020|140 020                                     M7TOQ1; I1=-1; M+I1; M+I1; (B1=I-2);
 6502/3: 041|311 004 132|153 022|153 163                                     ZERO; =YE15; (M); IM1TOQ2; IM7TOQ3; (A;=B, L;=I);
 6503/5: 171 130|311 004 134                                                 C5; =YE17; (FREE SPACE COUNTER);

 6504/4: 312 030 300|042|311 004 133|304 000 177|054                   1;      Y0M1Q; DUP; =YE16; SETB177; AND;
 6506/3: 304 000 025|224 035 133                                             SETB25; J4=; (5/1);
 6507/3: 304 000 065|222 035 123                                             SETB65; J5=; (5/3);
 6510/3: 304 000 017|054|304 000 006|222 035 123                             SETB17; AND; SETB6; J5=; (TYPE 6);
 6512/1: 304 000 007|222 035 123                                             SETB7; J5=; (TYPE 7);
 6513/1: 304 000 012|221 035 121                                             SETB12; J2=; (TYPE 1O OR);
 6514/1: 304 000 011|222 035 132                                             SETB11; J3=; (TYPE 9 OPT BD);
 6515/1: 304 000 004|203 035 117                                             SETB4; J6≠;
 6516/1: 310 004 133|164 077|222 055 123                                     YE16; SHL+31; J5<Z; (TYPE 4+B);
 6517/3: 052                                                           6;      ERASE;
 6517/4: 310 004 133|313 050 300|204 275 104                           11;      YE16; =Y0M2Q; J1;
 6521/1: 052|310 004 133|304 040 000|043|054|220 155 136               2;      ERASE; YE16; SETB20000; DUPD; AND; J7=Z; (S SET);
 6523/1: 052                                                                 ERASE;
 6523/2: 052                                                           5;      ERASE;
 6523/3: 153 164|171 062                                               10;      IM7TOQ4; M3;
 6524/1: 171 102|223 035 126                                           8;      M4; J9=;
 6525/0: 312 110 300|313 050 300|201 275 124                                 Y0M4Q; =Y0M2Q; J8;
 6526/3: 052|153 163|310 004 133|313 050 300|310 004 134|170 130       9;      ERASE; IM7TOQ3; YE16; =Y0M2Q; YE17; =C5; (NEXT ST ENTER);
 6530/5: 310 004 132|224 155 104|202 275 143                                 YE15; J1=Z; J14;
 6532/2: 041|033|311 004 132|202 275 123                               3;      ZERO; NOT; =YE15; J5;
 6533/4: 052|310 004 133|304 070 000|054|203 155 123                   4;      ERASE; YE16; SETB34000; AND; J10≠Z;
 6535/3: 204 275 117                                                         J11;

 6536/0: 164 003|054|223 155 140                                       7;      SHL+1; AND; J12=Z;
 6537/0: 310 004 133|313 050 300|204 275 104                                 YE16; =Y0M2Q; J1;
 6540/3: 310 004 133                                                   12;      YE16;
 6541/0: 313 070 300|143 120|264 135 104                               13;      =Y0M3Q; DC5; J1C5NZ;
 6542/2: 200 335 001|204 275 104                                             JSP407; J1;
                                                                       14;      (START RUN 1);
 6543/2: 041|311 004 132                                                     ZERO; =YE15; (CLEAR D DARK);
 6544/0: 041|311 004 133|041|311 004 137|041|311 004 140               50;      ZERO; =YE16; ZERO; =YE20; ZERO; =YE21; (CLEAR FLAG);
 6546/0: 171 130|311 004 141                                                 C5; =YE22;
 6546/5: 151 161|145 020|140 020|140 020                                     M7TOQ1; I1=-1; M+I1; M+I1; (B=I-2); (SKIP OB);
 6550/1: 153 163|310 004 141|170 130                                   15;      IM7TOQ3; (C=1); YE22; =C5; (FREE SPACE COUNTER);
 6551/2: 312 030 300|042|311 004 131                                         Y0M1Q; DUP; =YE14; (ILsquare bracketBsquare bracketTO WS1);
 6552/3: 304 000 017|054|017|017|017|017|017|200 336 014                     SETB17; AND; *JSP465; (BRANCH);
 6554/3: 203 275 164|205 275 167|205 275 167|205 275 167|205 275 167|203 275 165|201 275 150|201 275 150
                                                                             J32; J33; J33; J33; J33; J34; J15; J15;
 6560/3: 205 275 167|200 275 232|201 275 150|203 275 164|203 275 164|203 275 164|203 275 164|201 275 150
                                                                             J33; J35; J15; J32; J32; J32; J32; J15;
 6564/3: 304 000 241|200 267 061                                       32;      (FAIL); (jsp900; JSP904;jsp905;) SET161; JP206; [hux diagnostic
 6565/3: 310 004 131|304 000 177|054|304 000 025|036|222 155 234       34;      YE14; SETB177; AND; SETB25; -; J36=Z; (TEST 5/1);
 6567/5: 151 022|144 040|140 040|140 040                               33;      M1TOQ2; I2=1; M+I2; M+I2; (A=B+2);
 6571/1: 200 336 113                                                   48;      JSP464; (COMPARE);
 6571/4: 310 050 277|304 000 017|054|042|304 000 011|036|223 155 212         Y-1M2; SETB17; AND; DUP; SETB11; -; J37=Z; (OB);
 6574/1: 304 000 007|036|202 155 177                                         SETB7; -; J38≠Z; (TYPE 7);
 6575/2: 041|042|033|311 004 140|311 004 137|200 275 200                     ZERO; DUP; NOT; =YE21; =YE20; J39;

 6577/2: 041|311 004 140                                               38;      ZERO; =YE21;
 6600/0: 312 050 300|042|311 004 135|304 000 017|054|017|200 336 014   39;      Y0M2Q; DUP; =YE18; SETB17; AND; *JSP465;
 6602/3: 201 275 150|201 275 213|201 275 213|201 275 213|201 275 214|201 275 215|202 275 220|202 275 224
                                                                             J15; J40; J40; J40; J41; J42; J43; J44;
 6606/3: 201 275 215|205 275 241|201 275 215|203 275 164|203 275 164|203 275 164|203 275 164|201 275 215
                                                                             J42; J49; J42; J32; J32; J32; J32; J42;
                                                                       [ original source of the next page
 6612/3: 052|201 275 150                                               37;      ERASE; J15;
 6613/1: 200 336 017|203 275 230                                       40;      JSP466; J45;
 6614/1: 200 336 037|203 275 230                                       41;      JSP467; J45;
 6615/1: 310 004 135|304 000 177|054|304 000 005|036|200 155 200       42;      YE18; SETB177; AND; SETB5; -; J39≠Z; (5/O);
 6617/3: 140 040|200 275 200                                           46;      M+I2; J39;
 6620/2: 200 336 037|310 004 135|042|311 050 277                       43;      JSP467; YE18; DUP; =Y-1M2;
 6622/0: 304 000 177|054|304 000 006|036|200 155 200                         SETB177; AND; SETB6; -; J39≠Z; (6/O);
 6623/5: 203 275 217                                                         J46;
 6624/2: 310 004 137|310 004 140|054|220 155 227                       44;      YE20; YE21; AND; J47=Z;
 6626/0: 304 001 005|200 267 061                                             SET261; JP206; (FAILURE 1/23);
 6627/0: 041|042|311 004 137|033|311 004 140                           47;      ZERO; DUP; =YE20; NOT; =YE21;
 6630/3: 310 004 135|311 050 277|200 275 200                           45;      YE18; =Y-1M2; J39;
 6632/0: 310 004 133                                                   35;      YE16;
 6632/3: 310 004 141|170 130|200 155 144|203 275 244                         YE22; =C5; J50≠Z; J51; (EXIT TO COMPUTE AS
                                                                             EARLY AS POSSIBLE-RUN 2);
 6634/2: 310 004 131|042|311 004 134                                   36;      YE14; DUP; =YE17;
 6635/3: 312 030 300|311 004 131|164 353|304 000 055|054|201 155 150         Y0M1Q; =YE14; SHL-11; SETB55; AND; J15≠Z; (FOR Q OR S OR L);
 6640/0: 171 022|304 000 003|056|170 043|201 275 171                         M1; SET3; +; =RM2; J48; (A=B+3);
 6641/5: 310 004 137|310 004 140|054|221 155 150                       49;      YE20; YE21; AND; J15=Z;
 6643/3: 304 001 151|200 267 061                                             SET361; JP206; (FAILURE 1/24);

                                                                       51;      (COMPUTE AS EARLY AS POSSIBLE);
 6644/3: 310 004 132|222 155 353                                             YE15; J52=Z; (SKIP AND ENTER L-MARKERS);
 6645/3: 041|033|311 004 135                                                 ZERO; NOT; =YE18; (SETM);
 6646/2: 171 130|311 004 145                                                 C5; =YE26; (PRESERVE FREE SPACE TOTAL);
 6647/1: 171 162|171 022|036|027|033|027|172 130                             M7; M1; -; NEG; NOT; NEG; =+C5; (C5=C5-(I-B)-1);
 6650/5: 171 130|221 115 252                                                 C5; J53>Z; (CHECK ENOUGH SPACE FOR TWO TESTS);
 6651/4: 200 335 001                                                         JSP407;
 6652/1: 310 004 135|205 155 257                                       53;      (REPEAT); YE18; J54≠Z;
 6653/1: 304 053 055|171 122|056|304 030 300|036|170 042|145 040             SETAZ50; M5; +; SETAY0; -; =M2; I2=-1; (SET A REL TO YO);
 6655/3: 151 161|145 020|140 020                                             M7TOQ1; I1=-1; M+I1; (B=I-1);
 6656/3: 041|033|311 004 135                                                 ZERO; NOT; =YE18; (SETM);
 6657/2: 205 275 263                                                         J55;
 6657/5: 151 162|145 040|140 040                                       54;      M7TOQ2; I2=-1; M+I2; (A=I-1);
 6660/5: 304 053 055|171 122|056|304 030 300|036|170 022|145 020             SETAZ50; M5; +; SETAY0; -; =M1; I1=-1; (SET B REL TO YO);
 6663/1: 041|311 004 135                                                     ZERO; =YE18;
 6663/5: 153 163                                                       55;      IM7TOQ3; (BETA=I);
 6664/1: 312 050 300|313 030 300                                             Y0M2Q; =Y0M1Q;
 6665/1: 312 050 300|042|311 004 131|304 000 017|054|200 336 014       56;      Y0M2Q; DUP; =YE14; SETB17; AND; *JSP465;
 6667/3: 201 275 265|203 275 300|203 275 300|203 275 300|203 275 300|200 275 307|201 275 323|201 275 332
                                                                             J56; J58; J58; J58; J58; J59; J60; J61;
 6673/3: 203 275 334|204 275 337|200 275 343|203 275 277|203 275 277|203 275 277|203 275 277|204 275 351
                                                                             J62; J63; J64; J57; J57; J57; J57; J65;
 6677/3: 304 002 061|200 267 061                                       57;      SET561; JP206; (FAILURE 1/26);
 6700/3: 310 004 131|042|164 077|221 055 321                           58;      (4); YE14; DUP; SHL+31; J89<Z;(IF B SET);
 6702/0: 041|166 025|311 004 132|052                                         ZERO; SHLD+10; =YE15; ERASE; (I IN WS1 TO WS2);
 6703/1: 200 336 206|200 336 231|310 004 131|313 070 300|143 120|261 135 265
                                                                             JSP481; JSP482; YE14; =Y0M3Q; DC5; J56C5NZ;
 6706/0: 200 335 001|201 275 265                                             JSP407; J56;
 6707/0: 310 004 131|304 000 177|054|304 000 025|036|203 155 334       59;      YE14; SETB177; AND; SETB25; -; J62≠Z;
 6711/2: 310 004 131|311 004 133|312 050 300|311 004 131                     YE14; =YE16; Y0M2Q; =YE14;
 6713/2: 310 004 133|304 170 000|054|201 155 322                             YE16; SETB74000; AND; J66≠Z;
 6715/0: 310 004 131|041|166 025|311 004 132|052                             YE14; ZERO; SHLD+10; =YE15; ERASE;
 6716/4: 200 336 206                                                         JSP481;
 6717/1: 200 336 231                                                   67;      JSP482;
 6717/4: 310 004 133|313 030 300                                       68;      YE16; =Y0M1Q;
 6720/4: 310 004 131                                                   69;      YE14;
 6721/1: 313 030 300|201 275 265                                       89;      =Y0M1Q; J56;
 6722/1: 200 336 255|201 275 317                                       66;      JSP483; J67;
 6723/1: 310 004 131|304 000 177|054|304 000 026|036|204 155 320       60;      (6); YE14; SETB177; AND; SETB26; -; J69≠Z;
 6725/3: 310 004 131|311 004 133|312 050 300|311 004 131                     YE14; =YE16; Y0M2Q; =YE14;
 6727/3: 310 004 133|304 040 000|054|204 155 317                             YE16; SETB20000; AND; J68≠Z;
 6731/1: 200 336 255|201 275 317                                             JSP483; J67;
                                                                       [ original source of the next page
 6732/1: 171 062|171 162|036|224 155 320                               61;      (7); M3; M7; -; J69=Z;
 6733/3: 304 002 225|200 267 061                                             SET661; JP206; (FAILURE 1/27);
 6734/3: 310 004 131|041|166 025|311 004 132|052                       62;      (8); YE14; ZERO; SHLD+10; =YE15; ERASE;
 6736/1: 200 336 206|200 336 231|204 275 320                                 JSP481; JSP482; J69;
 6737/4: 310 004 131|313 030 300                                       63;      (9); YE14; =Y0M1Q;
 6740/4: 200 336 257|201 275 252                                             JSP484; J53;
 6741/4: 310 004 145|170 130|202 275 353                                     YE26; =C5; J52;
 6743/0: 310 004 131|164 351|304 000 006|310 004 131|041|166 025       64;      (1O); YE14; SHL-12; SETB6; YE14; ZERO; SHLD+10;
 6745/2: 311 004 132|052|054|221 155 350                                     =YE15; ERASE; AND; J70=Z;
 6746/4: 200 336 255|200 336 231|204 275 320                           88;      JSP483; JSP482; J69;
 6750/1: 200 336 206|200 336 231|204 275 320                           70;      JSP481; JSP482; J69;

 6751/4: 310 004 131|033|224 155 320|204 275 346                       65;      YE14; NOT; J69=Z; J88;
                                                                       52;      (SET L MARKERS);
 6753/2: 151 161|145 020|140 020|140 020                                     M7TOQ1; I1=-1; M+I1; M+I1; (BETA=I-2);
 6754/4: 312 030 300|042|311 004 131|304 000 017|054|304 000 004|036|201 055 373
                                                                       71;      Y0M1Q; DUP; =YE14; SETB17; AND; SET4; -; J72≥Z;
 6757/4: 310 004 131|167 051|041|166 025|311 004 132|052                     YE14; SHC+20; ZERO; SHLD+10; =YE15; ERASE;
 6761/4: 200 336 271|204 275 364|310 004 131|304 100 000|164 005|011|311 004 131
                                                                             JSP485; J73; YE14; SETB40000; SHL+2; OR; =YE14;
 6764/4: 310 004 131|167 025|041|166 025|311 004 132|052               73;      YE14; SHC+10; ZERO; SHLD+10; =YE15; ERASE;
 6766/4: 200 336 271|204 275 371|310 004 131|304 100 000|164 007|011|311 004 131
                                                                             JSP485; J74; YE14; SETB40000; SHL+3; OR; =YE14;
 6771/4: 310 004 131|311 030 301|204 275 354                           74;      YE14; =Y1M1; J71;

 6773/1: 310 004 131|304 000 177|054                                   72;      YE14; SETB177; AND;
 6774/2: 304 000 006|224 036 002                                             SETB06; J77=;
 6775/2: 304 000 046|223 036 011                                             SETB46; J75=;
 6776/2: 304 000 066|223 036 011                                             SETB66; J75=;
 6777/2: 304 000 017|054|304 000 004|223 036 011                             SETB17; AND; SETB4; J75=;
 7001/0: 304 000 011|036|204 155 354                                         SET9; -; J71≠Z;
 7002/1: 201 276 012                                                         J76;
 7002/4: 052|310 004 131|164 025|164 265|311 004 132                   77;      ERASE; YE14; SHL+10; SHL-38; =YE15;
 7004/3: 151 022|144 040|304 000 003|172 042|202 336 272                     M1TOQ2; I2=1; SET3; =+M2; JS5P485;
 7006/3: 204 275 371                                                         J74;
 7007/0: 310 004 131|304 100 000|164 007|011|311 004 131|204 275 371         YE14; SETB40000; SHL+3; OR; =YE14; J74;
 7011/3: 052|204 275 364                                               75;      ERASE; J73;
 7012/1: 200 336 316|200 360 000                                       76;      JSP486; EXIT1;
=== Start P465V-1; at address 3596/7014
 7014/0: 167 377|042|161 377|164 277|056                               P465;      SHC-1; DUP; SHA-1; SHL-33; +;
 7015/2: 173 000|056|174 000|200 360 000                                     LINK; +; =LINK; EXIT1;
                                                                             (THIS IS THE BRANCH ROUTINE AND ITS ENTRY JUMP
                                                                             IS STARRED);
=== Start P466V-1; at address 3599/7017
 7017/0: 153 164|171 062                                               P466;      IM7TOQ4; M3;
 7017/4: 171 102|223 036 035                                           4;      M4; J1=;
 7020/3: 312 110 300|170 276|310 004 135|164 025|164 265|171 262|036|201 156 027
                                                                             Y0M4Q; =Q11; YE18; SHL+10; SHL-38; M11; -; J2≠Z;
 7023/3: 310 004 135|167 025|164 025|171 264|166 355|052|167 355             YE18; SHC+10; SHL+10; I11; SHLD-10; ERASE; SHC-10;
 7025/5: 311 004 135|041|033|311 004 137                                     =YE18; ZERO; NOT; =YE20;
 7027/1: 310 004 135|164 051|164 265|171 262|036|204 156 017           2;      YE18; SHL+20; SHL-38; M11; -; J4≠Z;
 7031/2: 310 004 135|167 051|164 025|171 264|166 355|052                     YE18; SHC+20; SHL+10; I11; SHLD-10; ERASE;
 7033/2: 167 331|311 004 135|041|033|311 004 137|204 276 017                 SHC-20; =YE18; ZERO; NOT; =YE20; J4;
 7035/3: 052|200 360 000                                               1;      ERASE; EXIT1;
=== Start P467V-1; at address 3615/7037
 7037/0: 153 164|171 062                                               P467;      IM7TOQ4; M3;
 7037/4: 171 102|221 036 047                                           2;      M4; J1=;
 7040/3: 312 110 300|170 276                                                 Y0M4Q; =Q11;
 7041/2: 310 004 135|164 025|164 265|171 262|036|204 156 037                 YE18; SHL+10; SHL-38; M11; -; J2≠Z;
 7043/3: 310 004 135|167 025|164 025|171 264|166 355|052                     YE18; SHC+10; SHL+10; I11; SHLD-10; ERASE;
 7045/3: 167 355|311 004 135|041|033|311 004 137                             SHC-10; =YE18; ZERO; NOT; =YE20;
 7047/1: 052|200 360 000                                               1;      ERASE; EXIT1;
=== Start P468V21; at address 3646/7076
 7076/0: 304 000 017|042|310 004 135|054|065|310 004 131|054           P468V21;      SETB17; DUP; YE18; AND; REV; YE14; AND;
 7100/1: 161 003|170 262|042|304 000 007|054|304 000 006|034|050             SHA+1; =M11; DUP; SETB7; AND; SET6; ×D; CONT;
 7102/3: 170 330|164 373|172 262|171 262|304 000 026|036|203 056 112         =C13; SHL-3; =+M11; M11; SET22; -; J1≥Z;
 7105/0: 300 276 054|167 320|164 255|304 016 050|170 322|304 000 003|044
                                                                             V4M11; SHCC13; SHL-42; SETAV0; =M13; SET3; %I;
 7107/4: 161 011|170 330|170 342|100 355|167 320|164 301                     SHA+4; =C13; =M14; M13M14; SHCC13; SHL-32;
                                                                       [ original source of the next page
 7111/4: 174 000|202 360 000                                                 =LINK; EXIT;
 7112/3: 200 276 205                                                   1;      JP469;
V-store at 07050 = 016 115 016 117 016 131                                   V0=QAP470/AP471/AP472;
V-store at 07051 = 016 133 016 134 016 140                                   V1=QAP473/AP474/AP475;
V-store at 07052 = 016 141 016 151 016 152                                   V2=QAP476/AP477/AP478;
V-store at 07053 = 016 160 016 163 016 205                                   V3=QAP479/AP480/AP469;
V-store at 07054 = 054 262 313 054 262 313                                   V4=B1313131313131313;
V-store at 07055 = 054 262 313 054 262 313                                   V5=B1313131313131313;
V-store at 07056 = 054 000 202 014 201 207                                   V6=B1300020203100607;
V-store at 07057 = 024 162 113 054 262 305                                   V7=B0507111313131305;
V-store at 07060 = 054 040 002 014 201 207                                   V8=B1302000203100607;
V-store at 07061 = 024 162 113 054 262 305                                   V9=B0507111313131305;
V-store at 07062 = 054 040 200 014 201 207                                   V10=B1302020003100607;
V-store at 07063 = 024 162 113 054 262 305                                   V11=B0507111313131305;
V-store at 07064 = 054 040 202 004 201 207                                   V12=B1302020201100607;
V-store at 07065 = 024 162 113 054 262 305                                   V13=B0507111313131305;
V-store at 07066 = 054 040 202 014 241 207                                   V14=B1302020203120607;
V-store at 07067 = 024 162 113 054 262 305                                   V15=B0507111313131305;
V-store at 07070 = 054 262 313 054 262 313                                   V16=B1313131313131313;
V-store at 07071 = 054 262 313 054 262 313                                   V17=B1313131313131313;
V-store at 07072 = 054 262 313 054 262 313                                   V18=B1313131313131313;
V-store at 07073 = 054 262 313 054 262 313                                   V19=B1313131313131313;
V-store at 07074 = 054 040 202 014 201 207                                   V20=B1302020203100607;
V-store at 07075 = 020 162 113 054 262 305                                   V21=B0407111313131305;
=== Start P464V-1; at address 3659/7113
                                                                       P464;      (COMPARE);
 7113/0: 312 050 300|311 004 135|200 336 076|200 276 113               1;      Y0M2Q; =YE18; JSP468; J1;
=== Start P470V-1; at address 3661/7115
 7115/0: 200 336 134|203 276 120|200 276 131                           P470;      (A); JSP474; J1P471; JP472; (CROUTINE);
=== Start P471V-1; at address 3663/7117
 7117/0: 200 336 134|203 276 120|200 276 133                           P471;      (B); JSP474; J1; JP473; (D ROUTINE);
 7120/3: 310 004 131|041|166 025|170 264                               1;      YE14; ZERO; SHLD+10; =I11;
 7121/5: 052|310 004 135|041|166 025|170 262|052|171 276                     ERASE; YE18; ZERO; SHLD+10; =M11; ERASE; Q11;
 7123/5: 313 070 300|143 120|264 136 125                                     =Y0M3Q; DC5; J2C5NZ;
 7125/1: 200 335 001                                                         JSP407;
 7125/4: 041|033|042|311 004 135|042|311 004 132|311 004 133           2;      ZERO; NOT; DUP; =YE18; DUP; =YE15; =YE16;
 7127/5: 203 276 131                                                         J1P472;
=== Start P472V-1; at address 3673/7131
 7131/0: 200 336 017                                                   P472;      (C); JSP466;
 7131/3: 310 004 135|311 050 277|200 360 000                           1;      YE18; =Y-1M2; EXIT1;
=== Start P473V-1; at address 3675/7133
 7133/0: 200 336 037|203 276 131                                       P473;      (D); JSP467; J1P472;
=== Start P474V-1; at address 3676/7134
 7134/0: 310 004 131|164 025|310 004 135|164 025|015|205 156 136       P474;      (E); YE14; SHL+10; YE18; SHL+10; NEV; J1≠Z;
 7136/2: 200 360 000                                                         EXIT1; (YES); (WS, SQINS* TO WS3 APART PROM I);
 7136/5: 202 360 001                                                   1;      EXIT2; (NO);
=== Start P475V-1; at address 3680/7140
 7140/0: 200 360 000                                                   P475;      (F); EXIT1;
=== Start P476V-1; at address 3681/7141
 7141/0: 310 004 135|304 000 177|054|304 000 006|036|222 156 145       P476;      (G); YE18; SETB177; AND; SETB6; -; J1=Z;
 7143/2: 200 336 037|310 004 135|311 050 277|201 276 147                     JSP467; YE18; =Y-1M2; J2;
 7145/2: 200 336 037|310 004 135|311 050 277|140 040                   1;      JSP467; YE18; =Y-1M2; M+I2; (A=A+1);
 7147/1: 173 000|052|200 360 000                                       2;      LINK; ERASE; EXIT1;
=== Start P477V-1; at address 3689/7151
 7151/0: 173 000|052|200 360 000                                       P477;      LINK; ERASE; EXIT1;
=== Start P478V-1; at address 3690/7152
 7152/0: 310 004 135|304 000 177|054|304 000 005|036|203 156 157       P478;      YE18; SETB177; AND; SETB5; -; J2≠Z;
 7154/2: 312 050 300|042|311 004 136|164 353|304 000 015|054|223 156 157
                                                                       1;      Y0M2Q; DUP; =YE19; SHL-11; SETB15; (S OR F OR L); AND; J2=Z;
 7157/0: 173 000|052                                                         LINK; ERASE;
 7157/3: 200 360 000                                                   2;      EXIT1;
=== Start P479V-1; at address 3696/7160
 7160/0: 310 004 135|164 105|205 056 161                               P479;      (K); YE18; SHL+34; J1≥Z;
 7161/2: 173 000|052                                                         LINK; ERASE;
 7161/5: 200 360 000                                                   1;      EXIT1;
=== Start P480V-1; at address 3699/7163
 7163/0: 304 000 177|042|310 004 135|054|065|310 004 131|054|220 036 173
                                                                       P480;      (L); SETB177; DUP; YE18; AND; REV; YE14; AND; J1=;
 7165/4: 304 000 005|036|222 156 167                                         (TYPE 2 WS3 IN N1); SETB5; -; J2=Z;
 7166/5: 200 360 000                                                         EXIT1;
 7167/2: 312 050 300|042|311 004 136                                   2;      Y0M2Q; DUP; =YE19;
 7170/3: 164 353|304 000 015|054|223 156 172                                 SHL-11; SETB15; AND; J3=Z;
 7172/0: 173 000|052                                                   4;      LINK; ERASE;
 7172/3: 200 360 000                                                   3;      EXIT1;
                                                                       [ original source of the next page
 7173/0: 304 000 005|036|221 156 175                                   1;      SETB5; -; J6=Z;
 7174/1: 200 336 134|203 276 120                                             JSP474; J1P471;
 7175/1: 312 050 300|042|311 004 136                                   6;      Y0M2Q; DUP; =YE19;
 7176/2: 164 353|304 000 015|054|200 156 172                                 SHL-11; SETB15; AND; J4≠Z;
 7177/5: 310 004 134|310 004 136|036|203 156 172                             YE17; YE19; -; J3≠Z;
 7201/3: 200 336 134|200 276 203|203 276 172                                 JSP474; J5; J3;
 7203/0: 203 336 120|310 004 135|311 050 276|200 360 000               5;      JS1P471; YE18; =Y-2M2; EXIT1;
=== Start P469V-1; at address 3717/7205
 7205/0: 304 001 315|200 267 061                                       P469;      SET461; JP206; (SELECTOR FAILURE);
=== Start P481V-1; at address 3718/7206
 7206/0: 153 176|153 174|153 075                                       P481;      IM7TOQ14; IM7TOQ12; IM3TOQ13;
 7207/0: 171 342|171 062|036|224 156 227                               1;      M14; M3; -; J2=Z; (BETA DASH=BETA);
 7210/2: 312 350 300|042|311 004 141                                         Y0M14Q; DUP; =YE22;
 7211/3: 164 311|304 003 377|054|310 004 132|036|225 156 217                 SHL-28; SETB1777; AND; YE15; -; J3=Z;
 7213/4: 310 004 141|164 335|304 003 377|054|310 004 132|036|225 156 217
                                                                             YE22; SHL-18; SETB1777; AND; YE15; -; J3=Z;
 7216/2: 310 004 141|313 310 300|200 276 207                                 YE22; =Y0M12Q; J1;
 7217/5: 310 004 141|313 330 300|143 120|260 136 207                   3;      YE22; =Y0M13Q; DC5; J1C5NZ;
 7221/4: 171 316|311 004 136|171 336|311 004 137|171 356|311 004 140|200 335 001
                                                                             Q12; =YE19; Q13; =YE20; Q14; =YE21; JSP407;
 7224/4: 310 004 136|170 316|310 004 137|170 336|310 004 140|170 356|200 276 207
                                                                             YE19; =Q12; YE20; =Q13; YE21; =Q14; J1;
 7227/4: 200 360 000                                                   2;      EXIT1;
=== Start P482V-1; at address 3737/7231
 7231/0: 041|311 004 144|171 322|171 062|036|224 156 252               P482;      ZERO; =YE25; M13; M3; -; J1=Z;
 7233/0: 153 076|041|311 004 142                                       2;      IM3TOQ14; ZERO; =YE23;
 7234/0: 312 350 300|042|311 004 143|201 156 242                       3;      Y0M14Q; DUP; =YE24; J4≠Z;
 7235/4: 171 322|171 342|036|200 156 234                               7;      M13; M14; -; J3≠Z;
 7237/0: 310 004 142|224 156 250                                             YE23; J5=Z;
 7240/0: 310 004 142|042|313 030 300|311 004 144|200 276 233                 YE23; DUP; =Y0M1Q; =YE25; J2;
 7242/1: 310 004 143|310 004 144|036|221 156 253                       4;      YE24; YE25; -; J6=Z;
 7243/5: 310 004 143|041|166 025|310 004 142|041|166 025                     YE24; ZERO; SHLD+10; YE23; ZERO; SHLD+10;
 7245/5: 066|036|012|052|052|224 116 235                                     CAB; -; PERM; ERASE; ERASE; J7>Z;
 7247/1: 310 004 143|311 004 142|204 276 235                                 YE24; =YE23; J7;
 7250/4: 151 303|171 130|171 342|036|171 322|056|170 130               5;      M12TOQ3; C5; M14; -; M13; +; =C5;
 7252/4: 200 360 000                                                   1;      EXIT1;
 7253/1: 041|311 350 277|204 276 235                                   6;      ZERO; =Y-1M14; J7;
=== Start P483V-1; at address 3757/7255
 7255/0: 153 075|153 163|153 174|200 360 000                           P483;      IM3TOQ13; IM7TOQ3; IM7TOQ12; EXIT1;

=== Start P484V-1; at address 3759/7257
 7257/0: 304 053 055|304 030 300|036|171 122|056|170 342|145 340       P484;      SETAZ50; SETAY0; -; M5; +; =M14; I14=-1;
 7261/2: 140 340|171 162|170 302|145 300|140 300                             M+I14; (BETA DASH); M7; =M12; I12=-1; M+I12;
 7263/0: 140 300                                                             M+I12; (BETA DASH DASH);
 7263/2: 312 310 300|042|312 350 300|036|203 156 267                   2;      Y0M12Q; DUP; Y0M14Q; -; J1≠Z;
 7265/1: 304 000 017|054|304 000 011|036|202 156 263                         SETB17; AND; SETB11; -; J2≠Z;
 7267/0: 202 360 001                                                         EXIT2;
 7267/3: 052|200 360 000                                               1;      ERASE; EXIT1;
=== Start P485V-1; at address 3769/7271
                                                                       P485;      (FORWARD SCAN);
 7271/0: 151 022|144 040|140 040|140 040                                     M1TOQ2; I2=1; M+I2;  M+I2; (BETA DASH=BETA+2);
 7272/2: 312 050 300|042|311 004 133                                   5;      Y0M2Q; DUP; =YE16;
 7273/3: 304 000 017|054|304 000 004|036|201 056 303                         SETB17; AND; SET4; -; J1≥Z;
 7275/2: 310 004 133|167 051|041|166 025|310 004 132|036|222 156 314         YE16; SHC+20; ZERO; SHLD+10; YE15; -; J4=Z;
 7277/5: 052|310 004 133|167 025|041|166 025|310 004 132|036|222 156 314
                                                                       3;      ERASE; YE16; SHC+10; ZERO; SHLD+10; YE15; -; J4=Z;
 7302/3: 052|202 276 272                                                     ERASE; J5;
 7303/1: 310 004 133|304 000 177|054                                   1;      YE16; SETB177; AND;
 7304/2: 304 000 006|225 036 277                                             SETB06; J3=;
 7305/2: 304 000 046|225 036 277                                             SETB46; J3=;
 7306/2: 304 000 066|225 036 277                                             SETB66; J3=;
 7307/2: 304 000 017|054                                                     SETB17; AND;
 7310/0: 304 000 004|225 036 277                                             SETB4; J3=;
 7311/0: 304 000 007|224 036 313                                             SETB7; J2=;
 7312/0: 304 000 011|224 036 313|052|202 276 272                             SET9; J2=; ERASE; J5;
 7313/4: 052|202 360 001                                               2;      ERASE; EXIT2;
 7314/2: 052|200 360 000                                               4;      ERASE; EXIT1;

=== Start P715V-1; at address 3789/7315
 7315/0: 210 261 116                                                   P715;      JP718;
=== Start P486V-1; at address 3790/7316
                                                                       P486;      (INITIALISE GENERATOR);
                                                                       [ original source of the next page

 7316/0: 304 000 032|170 111                                                 SET26; =RC4;
 7316/5: 017|041|313 104 131|017|017|177 100                           *1;      ZERO; =YE14M4Q; *J1C4NZS;
 7320/2: 171 036|311 004 160                                                 Q1; =YE37;
 7321/1: 144 020|140 020|140 020|151 162|041|170 063                         I1=1; M+I1; M+I1; M7TOQ2; ZERO; =RM3;
 7323/0: 304 000 012|170 070                                                 SET10; =C3;
 7323/5: 304 000 012|310 004 125|042|033|027|311 004 125|164 071|011         SETB12; YE10; DUP; NOT; NEG; =YE10; SHL+28; OR;
 7326/2: 213 321 142                                                         JS10P718; (CLEAR UP THE LAST WORD STORED AND PUT IN
 7326/5: 323 133 055|262 136 330|200 335 001                                 THE OR); =Z50M5Q; J3C5NZ; JSP407;
 7330/2: 171 122|311 004 155                                           3;      M5; =YE34; (GAMMA FOR RESTART);
 7331/1: 312 030 300|042|311 004 134|304 000 017|054|210 321 057|201 276 331
                                                                       2;      Y0M1Q; DUP; =YE17; SETB17; AND; (jsp904; jsp905;) JSP731; J2;
=== Start P488V-1; at address 3804/7334
 7334/0: 310 004 134|304 000 177|054|304 000 061|220 156 360           P488;      (1); YE17; SETB177; AND; SETB61; J3=Z;
 7336/1: 027|033|200 156 361                                                 NEG; NOT; J1P489≠Z;
 7337/0: 310 004 134|164 101|164 247|304 000 004|036|221 156 353             YE17; SHL+32; SHL-45; SET4; -; J1=Z;
 7341/2: 310 004 134|164 107|164 247|304 000 004|036|200 156 361             YE17; SHL+35; SHL-45; SET4; -; J1P489≠Z;
 7343/4: 310 004 134|167 025|041|166 025|065|041|166 025                     YE17; SHC+10; ZERO; SHLD+10; REV; ZERO; SHLD+10; (O2W01);
 7345/4: 012|167 031|065|166 007|012|065|166 007                             PERM; SHC+12; REV; SHLD+3; PERM; REV; SHLD+3;
 7347/2: 012|065|166 373|012|065|166 373|012|167 351                         PERM; REV; SHLD-3; PERM; REV; SHLD-3; PERM; SHC-12;
 7351/1: 065|166 355|012|065|166 355|052|311 004 134|052                     REV; SHLD-10; PERM; REV; SHLD-10; ERASE; =YE17; ERASE;
 7353/1: 200 337 277|310 004 134|304 000 177|054|304 000 061|036|220 156 357
                                                                       1;      JSP702; YE17; SETB177; AND; SETB61; -; J2=Z;
 7356/0: 210 320 254|212 260 151                                             JSP707; J1P705; (IS PR);
 7357/0: 210 322 005|212 260 151                                       2;      JSP706; J1P705; (IS PR);
 7360/0: 052|200 276 361                                               3;      ERASE; J1P489;
=== Start P489V-1; at address 3825/7361
                                                                       P489;      (2,3);
 7361/0: 210 320 035|210 320 061|200 360 000                           1;      JSP703; JSP704; EXIT1;
=== Start P490V-1; at address 3827/7363
                                                                       P490;      (4);
 7363/0: 310 004 134|164 077|223 056 366                                     YE17; SHL+31; J1<Z;
 7364/2: 200 337 277                                                         JSP702;
 7364/5: 310 004 134|304 000 160|054|200 156 375                             YE17; SETB160; AND; J2≠Z; (JUMP IF ERASE);
 7366/3: 310 004 134|164 347|304 000 007|054|027|033|042|204 156 372   1;      YE17; SHL-13; SETB7; AND; NEG; NOT; DUP; J3≠Z;
 7371/0: 052|300 006 164|210 321 116|212 260 151                             ERASE; V52P0; JSP718; J1P705; (JSP202);
 7372/4: 027|033|205 156 377                                           3;      NEG; NOT; J4≠Z;
 7373/3: 300 006 165|210 321 116|212 260 151                                 V53P0; JSP718; J1P705; (JSP2O3);
 7375/0: 300 006 143|210 321 116|141 060|171 070|033|027|170 070|200 360 000
                                                                       2;      V35P0; JSP718; (ERASE); M-I3; C3; NOT; NEG; =C3; EXIT1;
 7377/5: 304 000 242|200 267 061                                       4;      SET162; JP206; (FAILURE 1/62);
=== Start P492V-1; at address 3841/7401
 7401/0: 041|212 262 014                                               P492;      ZERO; J2P491;
=== Start P493V-1; at address 3842/7402
                                                                       P493;      (TYPE 7);
 7402/0: 310 004 134|164 123|164 247|017|017|017|017|017|200 336 014|200 277 006|201 277 011|205 277 037
                                                                             YE17; SHL+41; SHL-45; *JSP465; J1; J2; J3;
 7406/0: 310 004 134|164 025|164 301|304 012 152|210 321 116           1;      YE17; SHL+10; SHL-32; SETB5152; JSP718;
 7410/1: 304 016 352|210 261 116                                             SETB7352; JP718;
 7411/1: 310 004 134|164 075|164 251|027|172 062|310 004 134|164 115|164 247
                                                                       2;      YE17; SHL+30; SHL-44; NEG; =+M3; YE17; SHL+38; SHL-45;
 7414/0: 222 157 016                                                         J4=Z; (TR=O);
 7414/3: 310 004 134|164 265|313 064 164|210 321 022                         YE17; SHL-38; =YF0M3Q; JSP713;
 7416/2: 310 004 134|164 071|204 057 020                               4;      YE17; SHL+28; J5≥Z;
 7417/4: 304 005 136|201 277 021                                             SETB2536; J6;
 7420/4: 304 000 025                                                   5;      SETB25;
 7421/1: 210 321 116|310 004 134|164 067|203 057 024                   6;      JSP718; YE17; SHL+27; J7≥Z;
 7423/0: 304 000 027|210 321 116|205 277 026                                 SETB27; JSP718; J8;
 7424/3: 310 004 134|164 065|205 057 026                               7;      YE17; SHL+26; J8≥Z;
 7425/5: 304 000 033|210 321 116                                             SETB33; JSP718;
 7426/5: 310 004 134|164 025|164 301|304 000 077|210 321 116           8;      YE17; SHL+10; SHL-32; SETB77; JSP718;
 7431/0: 304 000 073|210 321 116                                             SETB73; JSP718;
 7432/0: 310 004 134|164 073|223 057 036                                     YE17; SHL+29; J9<Z;
 7433/2: 310 004 161|310 004 134|164 105|164 251|032|311 004 161|052|001|200 360 000
                                                                       10;      YE38; YE17; SHL+34; SHL-44; MAX; =YE38; ERASE; VR; EXIT1;
 7436/3: 041|033|311 004 131|202 277 033                               9;      ZERO; NOT; =YE14; J10;
 7437/5: 200 337 277                                                   3;      JSP702;
 7440/2: 310 004 134|164 051|164 301|304 000 025|210 321 116|300 006 240|210 321 116
                                                                             YE17; SHL+20; SHL-32; SETB25; JSP718; V96P0; JSP718;
 7443/3: 141 060|200 360 000                                                 M-I3; EXIT1;
=== Start P494V-1; at address 3877/7445
 7445/0: 310 004 134|164 265|313 064 164|210 321 022                   P494;      YE17; SHL-38; =YF0M3Q; JSP713;
 7446/5: 310 004 134|164 341|304 000 077|054|225 157 071                     YE17; SHL-16; SETB77; AND; J10=Z;
 7450/5: 300 006 241|210 321 116                                             V97P0; JSP718; (SET A);
                                                                       [ original source of the next page
 7451/5: 310 004 134|164 065|042|222 057 061                                 YE17; SHL+26; DUP; J1<Z; (V);
 7453/2: 164 003|042|222 057 062                                             SHL+1; DUP; J2<Z; (Y);
 7454/2: 164 003|042|222 057 063                                             SHL+1; DUP; J3<Z; (Z);
 7455/2: 164 003|042|222 057 064                                             SHL+1; DUP; J4<Z; (R);
 7456/2: 164 003|042|222 057 065                                             SHL+1; DUP; J5<Z; (YB);
 7457/2: 164 003|042|222 057 066                                             SHL+1; DUP; J6<Z; (YA);
 7460/2: 304 002 062|200 267 061                                             SET562; JP206; (FAILURE 5/62-MACHINE);
 7461/2: 304 000 041|205 277 066                                       1;      SETB41; J7;
 7462/2: 304 000 044|205 277 066                                       2;      SETB44; J7;
 7463/2: 304 000 045|205 277 066                                       3;      SETB45; J7;
 7464/2: 304 000 035|205 277 066                                       4;      SETB35; J7;
 7465/2: 304 011 015|205 277 066                                       5;      SETB4415; J7;
 7466/2: 304 011 014                                                   6;      SETB4414;
 7466/5: 065|052|310 004 134|164 325|164 101                           7;      REV; ERASE; YE17; SHL-22; SHL+32;
 7470/2: 161 301|065|210 321 116|200 277 076                                 SHA-32; REV; JSP718; J11;
 7471/5: 310 004 134|164 325|164 101|161 301|042                       10;      YE17; SHL-22; SHL+32; SHA-32; DUP;
 7473/3: 223 157 077|042|033|027|221 157 101                                 J8=Z; DUP; NOT; NEG; J9=Z;
 7475/0: 300 006 105|210 321 116                                             V5P0; JSP718; (;SETN);
 7476/0: 304 000 073|210 321 116|215 260 153                           11;      SETB73; JSP718; J2P705; (CHECK IN PR TEST);
 7477/3: 052|300 006 242|210 321 116|215 260 153                       8;      ERASE; V98P0; JSP718; J2P705; (ZERO); (CHECK IN PR LIST);
 7501/1: 052|300 006 242|210 321 116|300 006 203|210 321 116|215 260 153
                                                                       9;      ERASE; V98P0; JSP718; V67P0; JSP718; J2P705; (ZERO LIST);
=== Start P495V-1; at address 3908/7504
 7504/0: 173 000|052|310 004 160|170 103|310 110 301|164 123|164 247   P495;      LINK; ERASE; YE37; =RM4; Y1M4; SHL+41; SHL-45;
 7506/3: 017|017|017|200 336 014|203 277 113|203 277 114|201 277 127|201 277 135|205 277 156|205 277 157|202 277 163|202 277 172
                                                                             *JSP465; J1; J2; J3; J4; J5; J6; J7; J8;
 7513/3: 304 002 226|200 267 061                                       1;      SET662; JP206; (FAILURE 6/62);
 7514/3: 140 100|041|210 321 327                                       2;      M+I4; ZERO; JSP730;
 7515/3: 304 000 031|313 110 300|171 062|222 157 120                         SETB31; =Y0M4Q; M3; J9=Z;
 7517/2: 304 002 372|200 267 061                                             SET762; JP206; (FAILURE 7/62);
 7520/2: 151 107|304 053 137|304 030 300|171 102|056|036|171 122|056|170 130
                                                                       9;      M4TOQ7; SETAZ0; SETAY0; M4; +; -; M5; +; =C5;
 7523/1: 041|311 004 163                                                     ZERO; =YE40; (CLEAR COND. EXP. TYPE);
 7523/5: 213 321 142|310 004 125|027|033|164 071|304 000 014|056             JS10P718; YE10; NEG; NOT; SHL+28; SET12; +;
 7526/1: 323 133 055|200 360 000                                             =Z50M5Q; (EOR TO O/L); EXIT1;
 7527/1: 140 100|310 004 163|210 321 327                               3;      M+I4; YE40; JSP730;
 7530/3: 171 062|027|033|222 157 120                                         M3; NEG; NOT; J9=Z;(IF S = 1);
 7531/4: 171 062|201 157 134                                                 M3; J13≠Z;(IF S ≠0);
 7532/3: 310 004 163|304 000 005|036|222 157 120                             YE40; SETB5; -; J9=Z;( IF LABEL AND S =O);
 7534/1: 304 003 136|200 267 061                                       13;      SET862; JP206;

 7535/1: 140 100|140 100|041|210 321 327|213 321 142                   4;      M+I4; M+I4; ZERO; JSP730; JS10P718;
 7537/0: 310 004 125|027|033|164 071|304 000 014|056|323 133 055             YE10; NEG; NOT; SHL+28; SET12; +; =Z50M5Q;
 7541/2: 210 321 200|171 062|223 157 151                                     JSP721; M3; J10=Z;
 7542/4: 310 242 305|304 020 377|054                                         YA-1M10; SETB10377; AND;
 7543/5: 304 020 265|015|222 157 147                                         SETB10265; NEV; J14=Z;(IF :=SW IN OSP-1);
 7545/0: 310 242 306|304 011 377|054|304 010 205|015                         YA0M10; SETB4777; AND; SETB4205; NEV;
 7546/5: 203 157 150                                                         J12≠Z; (IF NOT IP + GO TO IN OSP);
 7547/2: 171 062|027|033|223 157 151                                   14;      M3; NEG; NOT; J10=Z; (IF S = 1);
 7550/3: 304 003 302|200 267 061                                       12;      SET962; JP206; (FAILURE 9/62);
 7551/3: 310 004 116|311 004 120|141 100|151 107                       10;      YE3; =YE5; M-I4; M4TOQ7;
 7553/1: 304 053 137|304 030 300|171 102|056|036                             SETAZ0; SETAY0; M4; +; -;
 7554/5: 171 122|056|170 130                                                 M5; +; =C5;
 7555/4: 041|311 004 125                                                     ZERO; =YE10; (RE-SET O.R.NO. =O);
 7556/2: 200 360 000                                                         EXIT1;
 7556/5: 304 004 046|200 267 061                                       5;    (JSP904;)   SET1062; JP206; (FAILURE 1O/62);
 7557/5: 140 100|304 000 002|210 321 327                               6;      M+I4; SET2; JSP730;
 7561/1: 171 062|027|033|222 157 120                                         M3; NEG; NOT; J9=Z;
 7562/2: 304 004 212|200 267 061                                             SET1162; JP206; (FAILURE 11/62);
 7563/2: 140 100|310 203 311|304 000 007|054                           7;      M+I4; YC-1M8; SET7; AND;
 7564/5: 042|210 321 327                                                     DUP; JSP730;
 7565/3: 042|224 157 171                                                     DUP; J11=Z;
 7566/1: 171 102|027|033|164 007|056                                         M4; NEG; NOT; SHL+3; +;
 7567/2: 313 223 212                                                         =YB0M9Q;
                                                                       [ original source of the next page
 7567/5: 171 062|222 157 120                                                 M3; J9=Z; (S=0);
 7570/4: 304 004 356|200 267 061                                             SET1262; JP206; (FAILURE 12/62);
 7571/4: 052|202 277 120                                               11;      ERASE; J9;
 7572/2: 140 100|041|210 321 327                                       8;      M+I4; ZERO; JSP730;
 7573/2: 304 000 031|313 110 300                                             SETB31;  =Y0M4Q;
 7574/2: 171 062|304 000 002|036|202 117 120                                 M3; SET2; -; J9≤Z;
 7575/5: 304 005 122|200 267 061                                             SET1362; JP206; (FAILURE 13/62);
=== Start P496V-1; at address 3967/7577
 7577/0: 310 004 134|164 103|221 117 201                               P496;      YE17; SHL+33; J1>Z; (Q SET);
 7600/2: 041|033|311 004 132                                                 ZERO; NOT; =YE15;

 7601/1: 310 004 134|164 105|224 057 223                               1;      YE17; SHL+34; J2<Z;
 7602/3: 310 004 134|164 123|164 247|220 157 225                             YE17; SHL+41; SHL-45; J4=Z;(IF O.R. TYPE =O);
 7604/1: 171 062|220 157 225                                                 M3; J4=Z; (IF S = O);
 7605/0: 310 004 134|164 111|164 251|304 000 011|036|042|222 117 211         YE17; SHL+36; SHL-44; SET9; -; DUP; (NESTS -9);J8>Z;
 7607/3: 171 062|056|042|225 117 211|052|200 277 225                         M3; +; DUP; (S + NESTS - 9); J3>Z; ERASE; J4;
 7611/2: 052|171 062                                                   8;      ERASE; M3;
 7611/5: 170 111                                                       3;      =RC4;
 7612/1: 312 104 164|311 004 141|171 116|311 004 162|210 321 070       5;      YF0M4Q; =YE22; Q4; =YE39; JSP716;(RESTART);
 7614/3: 310 004 162|170 116|261 117 212                                     YE39; =Q4; J5C4NZ;
 7615/5: 310 004 155|170 122|304 053 055|171 122|056|304 030 300|171 162|056|036
                                                                             YE34; =M5; SETAZ50; M5; +; SETAY0; M7; +; -;
 7620/5: 170 130|041|170 062|310 004 160|170 022|140 020|140 020|200 360 000
                                                                             =C5; ZERO; =M3; YE37; =M1; M+I1; M+I1; EXIT1;
 7623/4: 210 321 036|041|033|311 004 131                               2;      JSP714; ZERO; NOT; =YE14;
 7625/0: 213 321 142|310 004 134|164 311|164 115|164 355               4;      JS10P718; YE17; SHL-28; SHL+38; SHL-10;
 7627/0: 323 133 055|263 137 230                                             =Z50M5Q; J6C5NZ;
 7630/0: 200 335 001                                                         JSP407;
 7630/3: 310 004 134|164 123|164 247|223 157 234                       6;      YE17; SHL+41; SHL-45; J7=Z; (TYPE=O);
 7632/1: 310 004 134|164 265|313 064 164                                     YE17; SHL-38; =YF0M3Q;
 7633/3: 210 321 022                                                         JSP713; (NESTS);
 7634/0: 215 320 153                                                         JS2P705;
 7634/3: 200 360 000                                                   7;      EXIT1;
=== Start P497V-1; at address 3997/7635
 7635/0: 310 004 134|042|033|224 157 237                               P497;      YE17; DUP; NOT; J1=Z;
 7636/2: 164 365|210 321 116|200 360 000                                     SHL-6; JSP718; EXIT1;
 7637/4: 052|200 360 000                                               1;      ERASE; EXIT1;
=== Start P700V-1; at address 4001/7641
                                                                       P700;      (IS N1 IN NSS);
 7641/0: 041|170 263|171 062                                                 (JSP905; JSP906; JSP907;) ZERO; =RM11; M3;
 7641/5: 171 262|221 037 247|065|042                                   3;      M11; J1=; REV; DUP;
 7643/0: 312 264 164|036|225 157 244                                         YF0M11Q; -; J2=Z;
 7644/1: 065|205 277 241                                                     REV; J3;
 7644/5: 052|052|171 062|171 262|036|033|027|170 262|202 360 001       2;      ERASE; ERASE; M3; M11; -; NOT; NEG; =M11; EXIT2; (YES);
 7647/1: 052|052|200 360 000                                           1;      ERASE; ERASE; EXIT1; (NO);
=== Start P701V-1; at address 4008/7650
                                                                       P701;      (IS N1 IN PPR);
 7650/0: 153 173|171 042                                                     IM7TOQ11; M2;
 7650/4: 171 262|224 037 254|065|042                                   3;      M11; J1=; REV; DUP;
 7651/5: 312 270 300|042|223 117 255                                         Y0M11Q; DUP; J2>Z;
 7653/0: 161 341|056|223 157 256                                             SHA-16; +; J4=Z;
 7654/0: 065|204 277 250                                                     REV; J3;
 7654/4: 052|052|200 360 000                                           1;      ERASE; ERASE; EXIT1; (NO);

 7655/3: 052|052|065|204 277 250                                       2;      ERASE; ERASE; REV; J3; (PR LIST SKIP);

 7656/3: 052|052|202 360 001                                           4;      ERASE; ERASE; EXIT2;
=== Start P717V-1; at address 4016/7660
                                                                       P717;      (IS N1 IN PR)
 7660/0: 153 173|171 042                                                     IM7TOQ11; M2;
 7660/4: 171 262|224 037 254|065|042|312 270 300|042|224 057 264       3;      M11; J1P701=; REV; DUP; Y0M11Q; DUP; J2<Z;
 7663/0: 164 341|036|223 157 256                                             SHL-16; -; J4P701=Z;
 7664/0: 065|204 277 260                                                     REV; J3;

 7664/4: 052|052|065|204 277 260                                       2;      ERASE; ERASE; REV; J3;

                                                                       (+P710;      ERASE; EXIT1;   original version)


=== Start P710V-1; at address 4022/7666
                                                                       P710;   (J1; )  	[test for commutative operator - rewritten DHRH Mar 2018
                                                                       			  [remove () at the start to force non-commutative result
 7666/0: 304 000 042|224 037 275                                       		SETB42; J2=;	[=
 7667/0: 304 000 122|224 037 275                                       		SETB122; J2=;	[NOT=
 7670/0: 304 000 023|224 037 275                                       		SETB23; J2=;	[AND
 7671/0: 304 000 043|224 037 275                                       		SETB43; J2=;	[OR
 7672/0: 304 000 103|224 037 275                                       		SETB103; J2=;	[EQV
 7673/0: 304 000 101|224 037 275                                       		SETB101; J2=; 	[+
 7674/0: 304 000 061|224 037 275                                       		SETB61; J2=; 	[*

 7675/0: 052|200 360 000                                               1;	ERASE; EXIT1;   [non - commutative

 7675/4: 052|202 360 001                                               2;	ERASE; EXIT2;


                                                                       [ original source of the next page
=== Start P702V-1; at address 4031/7677
                                                                       P702;      (FETCH MONADIC);
 7677/0: 041|033|311 004 162                                                 ZERO; NOT; =YE39;
 7677/5: 310 004 141|311 004 142|041|311 004 147|041|311 004 151       1;      YE22; =YE23; ZERO; =YE28; ZERO; =YE30;
 7702/1: 310 004 134|164 025|164 265|042|311 004 141                         YE17; SHL+10; SHL-38; DUP; =YE22;
 7704/0: 200 337 241|203 277 307                                             JSP700; J2;
 7705/0: 171 262|304 000 004|036|205 117 317                                 M11; SET4; -; J3≤Z;
 7706/3: 210 321 070|210 260 034                                             JSP716; (RESTART); J32;
 7707/3: 310 004 141|200 337 250|201 277 313                           2;      YE22; JSP701; J4;
 7711/0: 310 270 277|164 101|164 301|311 004 151|204 277 320                 Y-1M11; SHL+32; SHL-32; =YE30; J6;
 7713/1: 310 004 141|200 337 260|205 277 316                           4;      YE22; JSP717; J5;
 7714/4: 310 270 277|164 101|164 301|311 004 147|204 277 320                 Y-1M11; SHL+32; SHL-32; =YE28; J6;
 7716/5: 304 005 266|200 267 061                                       5;      SET1462; JP206; (FAILURE 14/62);

 7717/5: 171 262|311 004 145|310 004 162|204 157 346                   3;      M11; =YE26;6;      YE39; J7≠Z; (MONADIC);
                                                                             (DIADIC FETCH);
 7721/4: 310 004 147|204 157 326                                             YE28; J12≠Z;
 7722/4: 310 004 151|202 157 337                                             YE30; J13≠Z;
 7723/4: 310 004 150|204 157 362                                             YE29; J14≠Z;
 7724/4: 310 004 152|200 157 366                                             YE31; J15≠Z;
 7725/4: 210 320 272|203 277 372                                             JSP709; J16;
 7726/4: 310 004 150|201 157 333|310 004 152|201 157 332               12;      YE29; J17≠Z; YE31; J18≠Z;
 7730/4: 310 004 146|213 320 255|200 277 335                                 YE27; JS1P708; (NS2); J19;
 7732/1: 212 321 343|200 277 335                                       18;      JS1P711; (PPR2); J19;
 7733/1: 310 004 150|310 004 134|164 051|210 321 265                   17;      YE29; YE17; SHL+20; JSP725;
 7735/0: 310 004 147|310 004 134|164 025|210 321 265|203 277 372       19;      YE28; YE17; SHL+10; JSP725; J16;
 7737/2: 310 004 152|204 157 345|310 004 150|205 157 342               13;      YE31; J20≠Z; YE29; J21≠Z;
 7741/2: 310 004 146|213 320 255|204 277 344                                 YE27; JS1P708; (NS2); J22;
 7742/5: 310 004 150|310 004 134|164 051|210 321 265                   21;      YE29; YE17; SHL+20; JSP725;
 7744/4: 210 321 342|203 277 372                                       22;      JSP711; (PPR1); J16;
 7745/4: 212 321 343|204 277 344                                       20;      JS1P711; (PPR2); J22;
                                                                       7;      (MONADIC FETCH);
 7746/4: 310 004 147|220 157 352                                             YE28; J8=Z;
 7747/4: 310 004 147|310 004 134|164 025|210 321 265                         YE28; YE17; SHL+10; JSP725;
 7751/3: 200 360 000                                                   11;      EXIT1;
 7752/0: 310 004 151|223 157 353                                       8;      YE30; J9=Z;
 7753/0: 210 261 342                                                   JP711; (TRANSLATE PPR);
 7753/3: 210 320 255                                                   9;      JSP708;
 7754/0: 310 004 134|164 131|164 251                                   10;      YE17; SHL+44; SHL-44;
 7755/1: 304 000 007|036|223 157 351                                         SET7; -; J11=Z;
 7756/2: 310 004 134|164 075|223 057 351                                     YE17; SHL+30; J11<Z;
 7757/4: 300 006 207|210 321 116                                             V71P0; JSP718; (DUP);
 7760/4: 310 064 163|313 064 164|210 321 022|200 360 000                     YF-1M3; =YF0M3Q; JSP713; EXIT1;
 7762/4: 310 004 145|213 320 255|310 004 150|310 004 134|164 051|210 321 265|203 277 367
                                                                       14;      YE26; JS1P708; (NS1); YE29; YE17; SHL+20; JSP725; J23;
 7766/0: 310 004 145|213 320 255                                       15;      YE26; JS1P708; (NS1);
 7767/0: 212 321 343                                                         JS1P711; (PPR2);

                                                                       23;     [ YE17; SETB177; AND; JSP710; J24; J16; (COMMUTATIVE);
                                                                       	[ remove comment marker from the above to activate the test for commutative op.
                                                                       	[ and check that P710 test is OK
                                                                       	[ the flowcharts sat this point specifically show P710
                                                                       	[ as dummy always returning non-commutative - EXIT1 DHRH Mar 2018
                                                                       24;      (NO);
 7767/3: 300 006 170|210 321 116                                             V56P0; JSP718; (REV);
 7770/3: 310 064 162|310 064 163|311 064 162|311 064 163                     YF-2M3; YF-1M3; =YF-2M3; =YF-1M3;
                                                                       16;      (L MARKERS);
 7772/3: 310 004 147|310 004 150|056|310 004 151|056|310 004 152|056|232 140 001
                                                                             YE28; YE29; +; YE30; +; YE31; +; J25=Z;
 7775/3: 310 004 150|310 004 152|056|232 140 015                       29;      YE29; YE31; +; J26=Z;
 7777/1: 310 004 147|310 004 151|056|234 140 025                       31;      YE28; YE30; +; J27=Z;
10000/5: 200 360 000                                                   28;      EXIT1;

10001/2: 304 000 003|310 004 134|164 341|054|203 157 375               25;      SET3; YE17; SHL-16; AND; J29≠Z; (BOTH WANTED);
10003/2: 310 004 134|164 025|041|166 025|065|041|166 025|065|052|036         YE17; SHL+10; ZERO; SHLD+10; REV; ZERO; SHLD+10; REV; ERASE; -;
10005/5: 212 140 011                                                         J30≠Z;
10006/2: 300 006 207|210 321 116|310 064 163|313 064 164|210 321 022|200 360 000
                                                                             V71P0; JSP718; YF-1M3; =YF0M3Q; JSP713; (DUP); EXIT1;
                                                                       [ original source of the next page
10011/2: 300 006 223|210 321 116|310 064 163|310 064 162|313 064 164|313 064 164|210 321 022|200 360 000
                                                                       30;      V83P0; JSP718; YF-1M3; YF-2M3; =YF0M3Q; =YF0M3Q; JSP713; EXIT1;
10015/2: 310 004 134|164 077|221 057 377                               26;      YE17; SHL+31; J31<Z;
10016/4: 300 006 170|210 321 116|304 000 065|210 321 047                     V56P0; JSP718; SETB065; JSP722; (REV);
10020/4: 300 006 207|210 321 116|310 064 163|313 064 164|210 321 022         V71P0; JSP718; YF-1M3; =YF0M3Q; JSP713; (DUP);
10023/1: 300 006 213|210 321 116|304 000 066|210 321 047|200 360 000         V75P0; JSP718; SETB066; JSP722; (CAB); EXIT1;
10025/4: 310 004 134|164 075|235 040 000                               27;      YE17; SHL+30; J28<Z;
10027/0: 300 006 207|210 321 116|310 064 163|313 064 164|210 321 022         V71P0; JSP718; YF-1M3; =YF0M3Q; JSP713; (DUP);
10031/3: 300 006 210|210 321 116|304 000 012|210 321 047|200 360 000         V72P0; JSP718; SETB012; JSP722; (PERM); EXIT1;
10034/0: 210 261 025                                                   32;      J4P713;

=== Start P703V-1; at address 4125/10035
10035/0: 041|311 004 145|041|311 004 146                               P703;      (FETCH DIADIC); ZERO; =YE26; ZERO; =YE27;
10036/2: 041|042|311 004 150|311 004 152|041|311 004 162                     ZERO; DUP; =YE29; =YE31; ZERO; =YE39;
                                                                             (INITIALISE PR2 PPR2 ETC);
10040/2: 310 004 134|164 051|164 265|042|311 004 141                         YE17; SHL+20; SHL-38; DUP; =YE22;
10042/1: 220 157 277                                                         JP702=Z;
10042/4: 310 004 141|200 337 241|210 260 050                                 YE22; JSP700; J2;
10044/1: 171 262|304 000 004|036|214 100 046                                 M11; SET4; -; J1≤Z;
10045/4: 210 321 070                                                         JSP716; (RESTART);
10046/1: 210 260 034                                                         J32P702;

10046/4: 171 262|311 004 146|205 277 277                               1;      M11; =YE27; J1P702;
10050/0: 310 004 141|200 337 250|214 260 053                           2;      YE22; JSP701; J3;
10051/3: 310 270 277|164 101|164 301|311 004 152|205 277 277                 Y-1M11; SHL+32; SHL-32; =YE31; J1P702;
10053/4: 310 004 141|200 337 260|212 260 057                           3;      YE22; JSP717; J4;
10055/1: 310 270 277|164 101|164 301|311 004 150|205 277 277                 Y-1M11; SHL+32; SHL-32; =YE29; J1P702;
10057/2: 304 006 032|200 267 061                                       4;      SET1562; JP206; (FAILURE 15/62);
=== Start P704V-1; at address 4145/10061
                                                                       P704;      (FIX÷FLOAT);
10061/0: 310 004 162|210 140 126                                             YE39; JP705≠Z; (IF MONADIC);
10062/0: 310 004 134|304 000 177|054|304 000 001|233 020 123                 YE17; SETB177; AND; SETB1; J6=; (**);
10064/1: 304 000 021|231 020 124                                             SETB21; J7=; (÷);
10065/1: 052|310 004 134|164 101|041|166 007|065|041                         ERASE; YE17; SHL+32; ZERO; SHLD+3; REV; ZERO;
10067/0: 166 007|065|052|043|036|234 140 110                                 SHLD+3; REV; ERASE; DUPD; -; J5=Z; (2 CELLS);
10070/3: 065|027|033|042|233 140 073                                         REV; NEG; NOT; DUP;  J1=Z;
10071/4: 027|033|235 140 075                                                 NEG; NOT; J2=Z;
10072/3: 304 006 176|200 267 061                                             SET1662; JP206; (FAILURE 16/62);
10073/3: 052|304 000 002|036|234 140 102                               1;      ERASE; SET2; -; J3=Z;
10074/5: 304 006 342|200 267 061                                       4;      SET1762; JP206; (FAILURE 17/62);
10075/5: 027|033|215 140 074                                           2;      NEG; NOT; J4≠Z;
10076/4: 300 006 165|210 321 116|310 004 134|167 101|164 007|304 000 001|166 373|052
                                                                       	V53P0; JSP718; YE17; SHC+32; SHL+3; SETB1; SHLD-3; ERASE;
10101/5: 167 301|215 260 124                                                 SHC-32; J8;
10102/4: 300 006 170|210 321 116|300 006 165|210 321 116|300 006 170|210 321 116
                                                                       3;      V56P0; JSP718; V53P0; JSP718; V56P0; JSP718;
10105/4: 310 004 134|167 107|164 007|304 000 001|166 373|052|167 273|215 260 124
                                                                             YE17; SHC+35; SHL+3; SETB1; SHLD-3; ERASE; SHC-35; J8;
                                                                       5;      (T1=T2);
10110/4: 027|033|235 140 122                                                 NEG; NOT; J9=Z; (T1=T2=REAL);
10111/3: 304 000 002|036|210 140 123                                         SET2; -; J10≠Z; (IF NOT INTEGER);
10112/4: 310 004 134|042|304 000 177|054                                     YE17; DUP; SETB177; AND;
10114/0: 304 000 041|036|215 140 122                                         SETB41; -; J9≠Z; (IF NOT /);
10115/1: 304 044 000|036|311 004 134                                         SETB22000; -; =YE17; (T1:=T2:=REAL);
10116/2: 300 006 170|210 321 116|300 006 165|210 321 116                     V56P0; JSP718; V53P0; JSP718;
10120/2: 300 006 170|210 321 116                                             V56P0; JSP718; (REV; JSP203; REV;); (I.E. FLOAT N2);
10121/2: 300 006 165|210 321 116                                             V53P0; JSP718; (JSP2O3;); (I*E. FLOAT N1);
10122/2: 210 260 123                                                         J10;
10122/5: 052                                                           9;      ERASE;
10123/0: 210 260 126                                                   10;      JP705;
10123/3: 052|210 261 223                                               6;      ERASE; JP723;
10124/1: 052|210 261 243                                               7;      ERASE; JP724;

10124/5: 311 004 134|210 260 126                                       8;      =YE17; JP705;
=== Start P705V-1; at address 4182/10126
                                                                       P705;      (GENERATE OPERANDS);
10126/0: 310 004 134|304 000 003|054|017|017|017|017|017|200 336 014         YE17; SETB3; AND; *JSP465;
                                                                       [ original source of the next page
10130/3: 213 260 132|213 260 133|211 260 177|215 260 232                     J3; J4; J5; J6;
10132/3: 304 007 252|200 267 061                                       3;      SET1962; JP206; (FAILURE 19/62);
10133/3: 310 004 134|164 123|164 247|017|017|200 336 014               4;      YE17; SHL+41; SHL-45; *JSP465;
10135/3: 213 260 141|213 260 142|210 260 144|211 260 163|214 260 167|211 260 171|212 260 150|214 260 172
                                                                             J7; J8; J9; J10; J11; J12; J13; J14;
10141/3: 304 010 016|200 267 061                                       7;      SET2062; JP206; (FAILURE 2O/62);
10142/3: 300 006 171|210 321 116|210 260 150                           8;      (÷); V57P0; JSP718; J15;
10144/0: 304 000 066|210 321 116                                       9;      (/); SETB66; JSP718;
10145/0: 310 004 134|164 115|164 247|027|033|210 140 150               18;      YE17; SHL+38; SHL-45; NEG; NOT; J15≠Z;
10147/0: 304 000 021|210 321 116                                       16;      SETB21; JSP718;
10150/0: 141 060                                                       15;      M-I3;
10150/2: 304 000 073|210 321 116                                       13;      SETB73; JSP718; (SEMI-COLON);
10151/2: 310 004 134|041|166 025|042|311 064 163|065|052               1;      YE17; ZERO; SHLD+10; DUP; =YF-1M3; (INST TO NSS); REV; ERASE;

10153/2: 214 260 154                                                         J36;
10153/5: 310 004 134|164 265                                           2;      YE17; SHL-38;

10154/4: 200 337 260|214 260 162                                       36;      JSP717; J17; (IS IT IN THE PR LIST);
10155/4: 310 270 277|164 101|164 301|304 015 044|210 321 116|310 004 126|304 000 030|210 321 116
                                                                             Y-1M11; SHL+32; SHL-32; SETB6444; JSP718; YE11; SETB30; JSP718;
10161/2: 304 000 073|210 321 116|141 060                                     SETB73; JSP718; M-I3;
10162/4: 200 360 000                                                   17;      EXIT1;
                                                                       10;      (MULT);
10163/1: 304 000 065|210 321 116                                             SETB65; JSP718;
10164/1: 310 004 134|164 115|164 247|027|033                                 YE17; SHL+38; SHL-45; NEG; NOT;
10165/4: 230 140 147                                                         J16=Z;
10166/1: 300 006 172|210 321 116|210 260 150                                 V58P0; JSP718; (*D; CONT); J15;
10167/4: 304 000 054|210 321 116|210 260 145                           11;      (+); SETB54; JSP718; J18;
10171/1: 304 000 055|210 321 116|210 260 145                           12;      (-); SETB55; JSP718; J18;
10172/4: 300 006 173|210 321 116|310 004 134|164 115|164 247|027|033|212 140 150
                                                                       14;      (M-); V59P0; JSP718; YE17; SHL+38; SHL-45; NEG; NOT; J13≠Z;
10175/4: 304 000 021|210 321 116|212 260 150                                 SETB21; JSP718; J13;
                                                                       5;      (TYPE 2 OPERAND I.E., RELATIONAL);
10177/1: 310 004 134|164 101|164 247|027|033|231 140 202                     YE17; SHL+32; SHL-45; NEG; NOT; J19=Z;
10201/1: 300 006 174|214 260 202                                             V60P0; J20;
10202/1: 300 006 175                                                   19;      V61P0;
10202/4: 210 321 116                                                   20;      JSP718; (SIGN OR SIGNF);
10203/1: 310 004 134|164 123|164 247|017|017|017|017|200 336 014             YE17; SHL+41; SHL-45; *JSP465;
10205/3: 213 260 212|210 260 215|213 260 220|210 260 223|213 260 226|210 260 231|213 260 211|213 260 211
                                                                             J21; J22; J23; J24; J25; J26; J28; J28;
10211/3: 304 010 162|200 267 061                                       28;      SET2162; JP206; (FAILURE 21/62);
10212/3: 300 006 176|210 321 116|300 006 143|210 321 116|210 260 232   21;      V62P0; JSP718; V35P0; JSP718; J27;
10215/0: 300 006 201|210 321 116|300 006 200|210 321 116|300 006 177|210 321 116|210 260 232
                                                                       22;      V65P0; JSP718; V64P0; JSP718; V63P0; JSP718; J27;
10220/3: 300 006 202|210 321 116|300 006 177|210 321 116|210 260 232   23;      V66P0; JSP718; V63P0; JSP718; J27;
10223/0: 300 006 176|210 321 116|300 006 143|210 321 116|300 006 177|210 321 116|210 260 232
                                                                       24;      V62P0; JSP718; V35P0; JSP718; V63P0; JSP718; J27;
10226/3: 300 006 201|210 321 116|300 006 200|210 321 116|210 260 232   25;      V65P0; JSP718; V64P0; JSP718; J27;
10231/0: 300 006 202|210 321 116                                       26;      V66P0; JSP718;
10232/0: 141 060|212 260 151                                           27;      M-I3; J1; (IS PR);
                                                                       6;      (BODEAN OPERATORS);
10232/5: 310 004 134|164 123|164 247|200 336 014                             YE17; SHL+41; SHL-45; *JSP465;
10234/3: 213 260 240|210 260 242|213 260 243|210 260 245|213 260 250|212 260 252|212 260 252|212 260 252
                                                                             J29; J30; J31; J32; J33; J34; J34; J34;
10240/3: 300 006 203|210 321 116|212 260 151                           29;      (NOT); V67P0; JSP718; J1;
10242/0: 300 006 204|210 321 116|213 260 251                           30;      (AND); V68P0; JSP718; J35;
10243/3: 300 006 205|210 321 116|213 260 251                           31;      (OR); V69P0; JSP718; J35;
10245/0: 300 006 170|210 321 116|300 006 177|210 321 116|300 006 205|210 321 116|213 260 251
                                                                       32;      (IMP); V56P0; JSP718; V63P0; JSP718; V69P0; JSP718; J35;
10250/3: 300 006 206|210 321 116                                       33;      (EQU); V70P0; JSP718;
10251/3: 141 060|212 260 151                                           35;      M-I3; J1;
10252/2: 304 010 326|200 267 061                                       34;      SET2262; JP206; (FAILURE 22/62);
=== Start P707V-1; at address 4268/10254
10254/0: 304 015 042|200 267 061                                       P707;      SET3362; JP206;
=== Start P708V-1; at address 4269/10255
                                                                       P708;      (MONADIC MANIPULATIONS);
10255/0: 310 004 145                                                         YE26;
10255/3: 027|033|017|200 336 014                                       1;      NEG; NOT; *JSP465;
10256/3: 200 360 000|213 260 260|213 260 262|213 260 264                     EXIT1; J2; J3; J4;
10260/3: 300 006 170|210 321 116|304 000 065|210 261 047               2;      V56P0; JSP718; SETB065; JP722; (REV);
                                                                       [ original source of the next page
10262/3: 300 006 213|210 321 116|304 000 066|210 261 047               3;      V75P0; JSP718; SETB066; JP722; (CAB);
10264/3: 300 006 211|210 321 116|300 006 170|210 321 116               4;      V73P0; JSP718; V56P0; JSP718;
10266/3: 300 006 212|210 261 047                                             V74P0; (REVD REV); JP722;

                                                                       (+	original version
                                                                       P709V0;      (DIADIC MANIPULATIENE);
                                                                             YE26; J1=Z;
                                                                             YE27; J2≠Z;
                                                                       1;      SET2362; JP206; (FAILURE 23/62);
                                                                       2;      YE26; YE27; -; (NS1-NS2); J3≤Z;
                                                                             YE17; SETB177; AND; JSP710; J3;
                                                                             YF-2M3; YF-1M3; =YF-2M3; =YF-1M3;
                                                                       3;      YE26; SHA+2; YE27; +; SET5; -; DUP; =V0; *JSP465;
                                                                             J4; EXIT1; J6; J7; J8; J8; J10; J11;
                                                                             J12; J13; J12; J15; J16; J17; J18; J18;
                                                                       4;      V71P0; JSP718; (DUP);
                                                                       5;      YF-1M3; =YF0M3Q; JSP713; (NESTS); EXIT1;
                                                                       6;      V75P0; JSP718; V56P0; JSP718; V76P0; J20; (CAB. REV);
                                                                       7;      V72P0; JSP718; V73P0; JSP718; V77P0; J20; (PERM, REVD);
                                                                       8;      V56P0; JSP718; SETB065; J20; (REV); [hux was p715
                                                                       10;     V72P0; JSP718; SETB012; J20; (PERM);
                                                                       11;      V75P0; JSP718; V56P0; JSP718;
                                                                             V73P0; JSP718; V78P0; J20; (CAB REV REVD);
                                                                       12;      V75P0; JSP718; SETB066; J20; (CAB);
                                                                       13;      V72P0; JSP718; V56P0; JSP718; V79P0; J20; (PERM, REV);
                                                                       15;      V73P0; JSP718; SETB051; J20; (REVD);
                                                                       16;      V72P0; J6P718; V73P0; JSP718; V56P0; JSP718; V80P0; J20; (PERM REVD REV);
                                                                       17;      V72P0; JSP718; V73P0; JSP718; V72P0; JSP718; V81P0; J20; (PERM REVD PERM);
                                                                       18;      V73P0; JSP718; V56P0; JSP718; V82P0; J20; (REVD REV);
                                                                       20;      JSP722; V0; SET5; %I; J9=Z;
                                                                             ERASE; EXIT1;
                                                                       9;      ERASE; V0; J4≠Z;
                                                                             EXIT1;
                                                                       )

=== Start P709V1; at address 4282/10272
                                                                       P709V1;      (DIADIC MANIPULATION);   [ - DHRH rewritten Mar 2018
                                                                       [ in its original form this always treats any diadic operator as non-commutative
                                                                       [this tests for commutative operators to avoid redundant REV
10272/0: 310 004 145|230 140 274                                             YE26; J1=Z;
10273/0: 310 004 146|210 140 275                                             YE27; J2≠Z;
10274/0: 304 011 072|200 267 061                                       1;      SET2362; JP206; (FAILURE 23/62);	[need two operands

                                                                       2;	[ set V1 =1 if commutative else 0

10275/0: 310 004 134|304 000 177|054|200 337 266|211 260 300                  YE17; SETB177; AND; JSP710; J30;
10277/1: 304 000 001|212 260 300                                       	SET1 ;  J3; 	[commutative
10300/1: 041                                                           30;	ZERO; 		[non commutative
10300/2: 311 000 271                                                   3;    =V1;

                                                                       	[ if V1 == 1 the manipulation is generated without the final REV

10300/5: 310 004 145|161 005|310 004 146|056|304 000 005|036|042|311 000 270|017|017|200 336 014
                                                                             YE26; SHA+2; YE27; +; SET5; -; DUP; =V0; *JSP465;
10304/3: 213 260 314|200 360 000|213 260 317|213 260 323|213 260 326|210 260 332|210 260 334|210 260 336
                                                                             J4; EXIT1; J6; J7; J82; J8; J10; J11;
10310/3: 210 260 342|210 260 344|210 260 342|210 260 350|210 260 352|210 260 357|210 260 363|210 260 367
                                                                             J12; J13; J12; J15; J16; J17; J18; J19;

10314/3: 300 006 207|210 321 116                                       4;  (0)    	V71P0; JSP718; (DUP);
10315/3: 310 064 163|313 064 164|210 321 022|200 360 000               5;      	YF-1M3; =YF0M3Q; JSP713; (NESTS); EXIT1; [IF WE HAVE DONE A DUP THEN WE COULD HAVE NS OVERFLOW
10317/3: 310 000 271|210 140 342|300 006 213|210 321 116|300 006 170|210 321 116|300 006 214|210 260 372
                                                                       6;  (2)    	V1; J12≠Z; V75P0; JSP718; V56P0; JSP718; V76P0; J20; (CAB. REV);
10323/3: 300 006 210|210 321 116|300 006 211|210 321 116|300 006 215|210 260 372
                                                                       7;  (3)   	V72P0; JSP718; V73P0; JSP718; V77P0; J20; (PERM, REVD);
10326/3: 310 000 271|213 140 331|300 006 170|210 321 116|304 000 065|210 260 372
                                                                       82;  (4)    V1; J81≠Z; V56P0; JSP718; SETB065; J20; (REV);
10331/3: 200 360 000                                                   81;		EXIT1;
10332/0: 300 006 170|210 321 116|304 000 065|210 260 372               8;   (5)	V56P0; JSP718; SETB065; J20; (REV DUP)
10334/0: 300 006 210|210 321 116|304 000 012|210 260 372               10;  (6)   	V72P0; JSP718; SETB012; J20; (PERM);
10336/0: 300 006 213|210 321 116|300 006 170|210 321 116|300 006 211|210 321 116|300 006 216|210 260 372
                                                                       11;  (7)    	V75P0; JSP718; V56P0; JSP718; V73P0; JSP718; V78P0; J20; (CAB REV REVD);
10342/0: 300 006 213|210 321 116|304 000 066|210 260 372               12;  (8,10)   	V75P0; JSP718; SETB066; J20; (CAB or CAB DUP);
10344/0: 310 000 271|210 140 334|300 006 210|210 321 116|300 006 170|210 321 116|300 006 217|210 260 372
                                                                       13;  (9)    V1; J10≠Z; V72P0; JSP718; V56P0; JSP718; V79P0; J20; (PERM, REV);
10350/0: 300 006 211|210 321 116|304 000 051|210 260 372               15;  (11)   	V73P0; JSP718; SETB051; J20; (REVD);
10352/0: 310 000 271|213 140 323|300 006 210|214 261 124|300 006 211|210 321 116|300 006 170|210 321 116|300 006 220|210 260 372
                                                                       16;  (12)   V1; J7≠Z;  V72P0; J6P718; V73P0; JSP718; V56P0; JSP718; V80P0; J20; (PERM REVD REV);
10357/0: 300 006 210|210 321 116|300 006 211|210 321 116|300 006 210|210 321 116|300 006 221|210 260 372
                                                                       17;  (13)   	V72P0; JSP718; V73P0; JSP718; V72P0; JSP718; V81P0; J20; (PERM REVD PERM);
10363/0: 310 000 271|210 140 350|300 006 211|210 321 116|300 006 170|210 321 116|300 006 222|210 260 372
                                                                       18;   (14)  V1; J15≠Z; V73P0; JSP718; V56P0; JSP718; V82P0; J20; (REVD REV);
10367/0: 300 006 211|210 321 116|300 006 170|210 321 116|300 006 222|210 260 372
                                                                       19;   (15)      V73P0; JSP718; V56P0; JSP718; V82P0; J20; (REVD REV DUP);

10372/0: 210 321 047|310 000 270|304 000 005|044|235 140 374           20;      JSP722; V0; SET5; %I; J9=Z;
10374/1: 052|200 360 000                                                     ERASE; EXIT1;
10374/5: 052|310 000 270|213 140 314                                   9;      ERASE; V0; J4≠Z; [generate the DUP
10376/0: 200 360 000                                                         EXIT1;


=== Start P712V-1; at address 4351/10377
                                                                       P712;      (LOCALE);
10377/0: 310 004 157|164 061|164 257|214 141 015                             YE36; SHL+24; SHL-41; J1≠Z;
10400/4: 310 004 157|164 041|164 261|042|231 141 016                         YE36; SHL+16; SHL-40; DUP; J2=Z;
10402/3: 042|027|033|232 141 017                                             DUP; NEG; NOT; J3=Z;
10403/3: 164 121|200 334 332|211 261 020|320 333 055|304 000 100|054|212 141 011
                                                                             SHL+40; JSP3; J7; Z50M13; SETB100; AND; J4≠Z;
10406/3: 164 261|304 011 014|210 321 116                                     SHL-40; SETB4414; JSP718; (YA(LEVEL));
10407/5: 300 006 166|210 321 116|214 261 013                                 V54P0; JSP718; (:=M3;); J5;
10411/2: 164 261|300 006 105|210 321 116                               4;      SHL-40; V5P0; JSP718; (:SET(LEVEL));
10412/4: 300 006 167|210 321 116                                             V55P0; JSP718;
10413/4: 304 000 003                                                   5;      SET3;
10414/1: 164 043|310 004 157|011|311 004 157                           6;      SHL+17; YE36; OR; =YE36;
10415/4: 200 360 000                                                   1;      EXIT1;
10416/1: 052|310 004 126|211 261 014                                   2;      ERASE; YE11; J6;
10417/2: 052|041|211 261 014                                           3;      ERASE; ZERO; J6;
10420/1: 304 011 236|200 267 061                                       7;      SET2462; JP206; (FAILURE 24/62);
                                                                             (INSETS M3, M2, M1, M0 IN MODIFIER POSN. OF YE36
                                                                             (CW2) FOR THE FETCH/STORE);
=== Start P713V-1; at address 4370/10422
                                                                       P713;      (NESTS);
10422/0: 171 062|304 000 012|036|214 101 033                                 M3; SET10; -; J1≤Z;
10423/3: 310 004 164|311 004 141                                             YF0; =YE22; (INSTR. NO. OF BOTTOM CELL);
10424/3: 210 321 070                                                         JSP716; (RESTART);
                                                                       4;      (ALSO PROM 32P7O2);
10425/0: 310 004 155|170 122                                                 YE34; =M5;
10425/5: 041|170 063                                                         ZERO; =RM3;
10426/2: 310 004 160|170 036|144 020|140 020|140 020                         YE37; =Q1; I1=1; M+I1; M+I1;
10430/1: 173 000|304 056 012|164 101|164 301|235 021 032               2;      LINK; SETAR76P414; SHL+32; SHL-32; J3=;
10432/1: 052|211 261 030                                                     ERASE; J2;
10432/5: 174 000|201 276 331                                           3;      =LINK; J2P486; (RETURN);
10433/4: 310 004 161|171 062|032|001|311 004 161                       1;      YE38; M3; MAX; VR; =YE38;
                                                                       [ original source of the next page
10435/2: 052|200 360 000                                                     ERASE; EXIT1;

=== Start P714V-1; at address 4382/10436
                                                                       P714;      (NSS TO PR);
10436/0: 171 062|234 141 044                                           2;             M3; J1=Z;
10436/5: 141 060|310 064 164|311 004 141|210 321 154                         M-I3; YF0M3; =YE22; JSP720; (PR ENTRY);
10440/4: 300 006 102|210 321 116                                             V2P0; JSP718; (=Y (PPR));
10441/4: 310 004 126|304 000 030|210 321 116                                 YE11; SETB30; JSP718; (M (MOD));
10443/1: 304 000 073|210 321 116|210 261 036                                 SETB73; JSP718; (SEMICOLON); J2;
10444/4: 200 360 000                                                   1;      EXIT1;
=== Start P722V0; at address 4391/10447
10447/0: 042|311 001 053|311 001 046                                   P722V0;      DUP; =R1; =V0;
10450/1: 310 064 160|310 064 161|310 064 162|310 064 163                     YF-4M3; YF-3M3; YF-2M3; YF-1M3;
10452/1: 017|017|017|017|017|017                                       *1;      DUMMY;
10453/1: 017|017|017|017|017|311 064 163|311 064 162|311 064 161|311 064 160|200 360 000
                                                                       *      =YF-1M3; =YF-2M3; =YF-3M3; =YF-4M3; EXIT1;
=== Start P731V-1; at address 4399/10457
10457/0: 200 336 014                                                   P731;      *JSP465;
10457/3: 200 360 000|200 276 334|200 276 361|200 276 361|200 276 363|210 262 007|200 277 001
                                                                             EXIT1; JP488; JP489; JP489; JP490; JP491; JP492;
10463/0: 200 277 002|200 277 045|200 277 104|200 277 177|200 360 000|200 360 000
                                                                             JP493; JP494; JP495; JP496; EXIT1; EXIT1;
10466/0: 200 360 000|200 360 000|200 277 235                                 EXIT1; EXIT1; JP497;
=== Start P716V-1; at address 4408/10470
10470/0: 213 321 142                                                   P716;      (RESTART); JS10P718;
10470/3: 151 024|145 100                                                     M1TOQ4; I4=-1;
10471/1: 140 100                                                       3;      M+I4;
10471/3: 310 110 300|304 000 017|054                                         Y0M4; SETB17; AND;
10472/4: 304 000 011|231 021 111                                             SETB11; J1=;
10473/4: 304 000 007|231 021 111                                             SETB7; J1=;
10474/4: 052|310 110 300|304 000 177|054|304 000 025|235 021 105             ERASE; Y0M4; SETB177; AND; SETB25; J2=;
10477/0: 304 000 026|235 021 105                                             SETB26; J2=;
10500/0: 052|310 110 300|164 265|310 004 141|036|211 141 071                 ERASE; Y0M4; SHL-38; YE22; -; J3≠Z;
10502/1: 310 110 300|304 000 177|054|304 000 005|036|210 141 110|171 102|210 321 173|200 360 000
                                                                       Y0M4; SETB177; AND; SET5;-; J4≠Z;      M4; JSP726; (GENERATE PPR); EXIT1;
10505/5: 052|310 110 300|164 353|304 000 057|054|231 141 071           2;      ERASE; Y0M4; SHL-11; SETB57; AND; J3=Z;
10510/0: 210 321 154|052|200 360 000                                   4;      JSP720; (GENERATE PR); ERASE; EXIT1;
10511/1: 052|304 012 002|200 267 061                                   1;      ERASE; SET2562; JP206; (FAILURE 25/62);
=== Start P718V2; at address 4430/10516
                                                                       P718V2;      (OUTPUT TO O/L); (N1=CH. STRING, N2=INTEGER);
V-store at 10513 = 000 000 000 000 000 000                                   V0=0;
V-store at 10514 = 000 052 377 377 000 010                                   V1=Q42/-1/8;
V-store at 10515 = 000 000 012 050 242 212                                   V2=B1212121212;
10516/0: 310 001 114|170 276|001                                             V1; =Q11; VR;

10517/0: 041|304 000 011|170 262                                       5;      ZERO; SET9; =M11;
10520/0: 166 015|042|140 260|214 141 124                               7;      SHLD+6; DUP; M+I11; J6≠Z;
10521/2: 171 262|210 141 120|141 260|214 261 124                             M11; J7≠Z; M-I11; J6;
10523/0: 041|166 015|140 260|171 262|231 141 134                       1;      ZERO; SHLD+6; M+I11; M11; J2=Z;
10524/4: 164 260|310 001 113|011|311 001 113|304 377 372|172 270|270 261 123
                                                                       6;      SHLC11; V0; OR; =V0; SET-6; =+C11; J1C11NZ;
10527/3: 310 001 113|304 000 077|011|323 133 055|271 121 132                 V0; SETB77; OR; =Z50M5Q; J9C5NZ;
10531/4: 200 335 001                                                         JSP407;
10532/1: 041|311 001 113|304 000 052|170 270|210 261 123               9;      ZERO; =V0; SET42; =C11; J1;
10534/1: 052|052|231 241 141|042|215 041 136                           2;      ERASE; ERASE; J3EN; DUP; J8≥Z;
10535/4: 027|304 000 055|210 261 117                                         NEG; SETB55; J5;
10536/5: 310 001 115|065|067|210 201 117                               8;      V2; REV; FRB; J5NV;
10540/1: 304 012 146|200 267 061                                       4;      SET2662; JP206; (FAILURE);
10541/1: 171 276|311 001 114|200 360 000                               3;      Q11; =V1; EXIT1;
10542/3: 310 001 114|170 276                                           10;      V1; =Q11;
10543/2: 304 000 077|164 260|310 001 113|011|311 001 113|304 377 372|172 270|272 261 143
                                                                       11;      SETB77; SHLC11; V0; OR; =V0; SET-6; =+C11; J11C11NZ;
10546/4: 304 000 077|310 001 113|011|323 133 055|272 121 151                 SETB77; V0; OR; =Z50M5Q; J12C5NZ;
10550/5: 200 335 001                                                         JSP407;

10551/2: 041|311 001 113|304 000 052|170 270|211 261 141               12;      ZERO; =V0; SET42; =C11; J3;
=== Start P720V-1; at address 4460/10554
                                                                       P720;      (GENERATE A PR);
10554/0: 310 004 141|164 041|310 004 120|056|313 050 300|143 120|272 121 157
                                                                             YE22; SHL+16; YE5; +; =Y0M2Q; DC5; J1C5NZ;
10556/5: 200 335 001                                                         JSP407;
10557/2: 310 004 120|310 004 115|170 102|320 113 054|164 061|164 271|310 004 120|036|235 141 164
                                                                       1;      YE5;YE2; =M4; Z51M4; SHL+24; SHL-36; YE5; -; J2=Z;
10563/0: 310 004 120|033|027|311 004 120|214 261 167                         YE5; NOT; NEG; =YE5; J3;
                                                                       [ original source of the next page
10564/5: 320 113 054|042|304 000 077|054|065                           2;      Z51M4; DUP; SETB77; AND; REV;
10566/2: 164 061|164 271|056                                                 SHL+24; SHL-36; +;
10567/1: 311 004 120                                                         =YE5; (PRP;=FSR+PLANK);
10567/4: 310 004 120|310 004 117|032|311 004 117|052|001|200 360 000   3;      YE5; YE4; MAX; =YE4; ERASE; VR; EXIT1;
=== Start P726V-1; at address 4475/10573
                                                                       P726;      (GENERATE A PPR); (I DASH IN N1);
10573/0: 310 004 141|027|164 041|056|313 050 300|143 120|270 121 176         YE22; NEG; SHL+16; +; =Y0M2Q; DC5; J1C5NZ;
10575/3: 200 335 001                                                         JSP407;
10576/0: 200 360 000                                                   1;      EXIT1;
=== Start P721V0; at address 4480/10600
10600/0: 310 110 277                                                   P721V0;  (JSP901;)    (OUTPUT); Y-1M4;
10600/3: 164 025|167 025|164 071|304 000 012|056|311 001 177                 SHL+10; SHC+10; SHL+28; SETB12; +; =V0;
10602/4: 041|170 303|214 261 205                                             ZERO; =RM12; J2;
10603/4: 320 313 055|310 001 177|036|230 141 210                       3;      Z50M12; V0; -; J1=Z;
10605/2: 141 300                                                             M-I12;
10605/4: 171 302|171 122|036|214 141 203                               2;      M12; M5; -; J3≠Z;
10607/0: 304 013 222|200 267 061                                             SET2962; JP206; (FAILURE 29/62);
10610/0: 171 302|210 321 356|171 342|027|033|042|170 342               1;      M12; JSP719; M14; NEG; NOT; DUP; =M14;
10612/0: 171 122|036|230 141 214                                             M5; -; J4=Z;
10613/0: 304 013 366|200 267 061                                             SET3062; JP206; (FAILURE 3O/62);
10614/0: 304 030 277|171 102|027|033|170 162                           4;      SETAY-1; M4; NEG; NOT; =M7;
10615/3: 171 102|056|320 013 124|170 122|304 053 055|171 122|056|036|027|170 130|200 360 000
                                                                       6;      M4; +; Z11; =M5; SETAZ50; M5; +; -; NEG; =C5; EXIT1;
=== Start P723V1; at address 4499/10623
                                                                       P723V1;      (**);
10623/0: 310 004 134|164 101|041|166 007|311 001 221|041|166 007|311 001 222|052
                                                                             YE17; SHL+32; ZERO; SHLD+3; =V0; ZERO; SHLD+3; =V1; ERASE;
                                                                             (T1 IN VO, T2 IN V1);
10626/0: 310 001 221|304 000 002|036|210 141 234                             V0; SET2; -; J1≠Z;
10627/4: 310 001 222|027|033|233 141 232                                     V1; NEG; NOT; J2=Z;
10631/0: 300 006 225|210 321 116|215 261 237                                 V85P0; JSP718; J4;
10632/3: 300 006 230|210 321 116|215 261 237                           2;      V88P0; JSP718; (JS1P231); J4;
10634/0: 310 001 222|027|033|235 141 236                               1;      V1; NEG; NOT; J5=Z; (IF REAL);
10635/2: 300 006 226|210 321 116|215 261 237                                 V86P0; JSP718; (JS3P231); J4;
10636/5: 300 006 227|210 321 116                                       5;      V87P0; JSP718; (JS2P231);
10637/5: 141 060|212 260 151                                           4;      M-I3; J1P705; (IS IT A PR);
=== Start P724V1; at address 4515/10643
                                                                       P724V1;      (INTEGER ÷, FIX÷FLOAT OPERANDS);
10643/0: 310 004 134|164 101|041|166 007|311 001 241|041|166 007|311 001 242
                                                                             YE17; SHL+32; ZERO; SHLD+3; =V0; (T1); ZERO; SHLD+3; =V1; (T2);
10645/5: 052                                                                 ERASE;
10646/0: 310 001 242|304 000 002|036|215 141 251                             V1; SET2; -; J1≠Z;
10647/4: 310 001 241|304 000 002|036|214 141 257                       4;      V0; SET2; -; J2≠Z;
10651/2: 210 260 126                                                         JP705;
10651/5: 310 001 242|027|033|231 141 254                               1;      V1; NEG; NOT; J3=Z;
10653/1: 304 014 132|200 267 061                                             SET3162; JP206; (FAILURE 31/62);
10654/1: 300 006 170|210 321 116|300 006 224|210 321 116|300 006 170|210 321 116|214 261 247
                                                                       3;      V56P0; JSP718; V84P0; JSP718; V56P0; JSP718; J4;
10657/4: 310 001 241|027|033|230 141 262                               2;      V0; NEG; NOT; J5=Z;
10661/0: 304 014 276|200 267 061                                             SET3262; JP206; (FAILURE 32/62);
10662/0: 300 006 224|210 321 116|210 260 126                           5;      V84P0; JSP718; JP705;
=== Start P725V0; at address 4533/10665
10665/0: 164 265|313 064 164|311 001 264|210 321 022                   P725V0;      (O/P Y(N1)M(MOD)SEMICOLON); SHL-38; =YF0M3Q; =V0; JSP713;
10666/5: 310 001 264|304 000 044|210 321 116|310 004 126|304 000 030|210 321 116
                                                                             V0; SETB44; JSP718; YE11; SETB30; JSP718;
10671/5: 304 000 073|210 321 116|200 360 000                                 SETB73; JSP718; EXIT1;

                                                                       (+ original version - rewritten by DHRH
                                                                       P727;      (GENERATE OVERFLOW TEST);
                                                                             YE36; SETB4000; AND; J1=Z;
                                                                       2;      Z38; SHL+6; J3<Z; (IF WITHOUT TEST POINTS);
                                                                             V92P0; (JSP244;); J4;
                                                                       3;      V100P0; (JP233V;);
                                                                       4;      JSP718;
                                                                       1;      EXIT1;
                                                                       )

=== Start P727V-1; at address 4540/10674
                                                                       P727;   (GENERATE OVERFLOW TEST - rewrite DHRH);
10674/0: 310 004 157|304 010 000|054|232 141 302                               YE36; SETB4000; AND; J1=Z; [this is a test for VR or trace check on assignments to parameters
                                                                       				   [this is not currently set, maybe a bug or typo, probably deliberate
                                                                       2;      [this entry is used on := assignment in a statement, including assignment to proc. id in a typed procedure
                                                                       	[ inserted test Z38÷D7 which when set prevents tests on assignment
10675/4: 320 013 071|164 017|232 041 302                               	Z38; SHL+7; J1<Z;  [Neither VR test or Print Values - added
10677/0: 320 013 071|164 015|232 041 301                               	Z38; SHL+6; J3<Z; (IF WITHOUT TEST POINTS); [ on-line described as WITHOUT Print Values
10700/2: 300 006 234|215 261 301                                             V92P0; (JSP244;); J4; [on-line described as WITH Print Values
10701/2: 300 006 244                                                   3;      V100P0; (JP233V;);
10701/5: 210 321 116                                                   4;      JSP718;
10702/2: 200 360 000                                                   1;      EXIT1;

=== Start P728V-1; at address 4547/10703
                                                                       P728;      (O/P Y, YA, YB, Z (ADDRESS));
10703/0: 310 004 157|304 000 200|043|054|212 141 314                         YE36; SETB200; DUPD; AND; J1≠Z; (A);
10704/5: 164 003|043|054|212 141 313                                         SHL+1; DUPD; AND; J2≠Z; (B);
10706/0: 164 003|043|054|212 141 312                                         SHL+1; DUPD; AND; J3≠Z; (Z);
10707/1: 164 003|043|054|212 141 311                                         SHL+1; DUPD; AND; J4≠Z; (V);
10710/2: 304 000 044|215 261 314                                             (Y); SETB44; J5;
10711/2: 304 000 041|215 261 314                                       4;      SETB41; J5;
                                                                       [ original source of the next page
10712/2: 304 000 045|215 261 314                                       3;      SETB45; J5;
10713/2: 304 011 015|215 261 314                                       2;      SETB4415; J5;
10714/2: 304 011 014                                                   1;      SETB4414;
10714/5: 012|052|052|310 004 157                                       5;      PERM; ERASE; ERASE; YE36;
10715/5: 170 376|171 370                                                     =Q15; C15; (ALLOW FOR NEGATIVE ADDRESS);
10716/3: 065|210 321 116|200 360 000                                         REV; JSP718; EXIT1;

=== Start P729V0; at address 4561/10721
10721/0: 310 004 126|311 001 320|310 004 157|042|164 067               P729V0;      YE11; =V0; YE36; DUP; SHL+27;
10723/0: 164 251|311 004 126|170 376|171 370                                 SHL-44; =YE11; =Q15; C15;
10724/3: 310 004 134|210 321 265|310 001 320|311 004 126|200 360 000         YE17; JSP725; V0; =YE11; EXIT1;
=== Start P730V-1; at address 4567/10727
                                                                       P730;      (TYPE IN N1);
10727/0: 164 011|304 000 012|056|310 004 161|164 021|056                     SHL+4; SETB12; +; YE38; SHL+8; +;
10731/0: 310 004 131|164 137|164 275|056|310 004 132|164 137|164 277|056
                                                                             YE14; SHL+47; SHL-34; +; YE15; SHL+47; SHL-33; +;
10733/4: 310 004 125|027|033|164 071|056|171 102|164 115|056                 YE10; NEG; NOT; SHL+28; +; M4; SHL+38; +;
10735/5: 313 110 300|200 360 000                                             =Y0M4Q; EXIT1;

=== Start P711V2; at address 4578/10742
10742/0: 171 036|310 004 151|211 261 344                               P711V2;      Q1; (PPR1); YE30; J2;
10743/2: 171 036|310 004 152                                           1;      Q1; YE31; (PPR2);
10744/1: 170 022|311 001 337|310 004 134|311 001 340|310 004 157|311 001 341
                                                                       2;      =M1; =V0; YE17; =V1; YE36; =V2;
10747/0: 312 030 300|311 004 134|210 322 014                                 Y0M1Q; =YE17; JS1P491;
10750/3: 310 001 337|170 036|310 001 340|311 004 134|310 001 341|311 004 157|200 360 000
                                                                             V0; =Q1; V1; =YE17; V2; =YE36; EXIT1;
=== Start P719V1; at address 4590/10756
                                                                       P719V1;      (OUTPUT AND O.R.);
10756/0: 170 322|145 320|304 000 101|170 271                                 =M13; I13=-1; SET65; =RC11;
10757/3: 140 320|320 333 055|304 000 017|054|042                       1;      M+I13; Z50M13; SETB17; AND; DUP;
10761/1: 232 141 366                                                         J2=Z;
10761/4: 304 000 014|036|232 142 000                                         SETB14; -; J3=Z;
                                                                             (INSTRUCTIONS);
10762/5: 320 333 055|167 365|171 276|311 001 355|200 330 060                 Z50M13; SHC-6; Q11; =V1; JSP403;
10765/0: 310 001 355|170 276|213 261 357                                     V1; =Q11; J1;
10766/2: 052|171 336|313 264 177|275 261 370                           2;      (OR);ERASE; Q13; =YG0M11Q; J7C11NZ;
10767/5: 304 012 312|200 267 061                                             SET2762; JP206; (FAILURE 27/62);
10770/5: 320 333 055|164 025|167 025|164 071|304 000 012|056           7;      Z50M13; SHL+10; SHC+10; SHL+28; SETB12; +;
10773/0: 311 001 354                                                         =V0; (REQUIRED OR);
10773/3: 041|170 322                                                         ZERO; =M13;
10774/0: 320 333 055|310 001 354|036|233 141 357                       9;      Z50M13; V0; -; J1=Z;
10775/4: 140 320|171 322|171 122|036|210 141 374                             M+I13; M13; M5; -; J9≠Z;
10777/2: 304 013 056|200 267 061                                             SET2862; JP206; (FAILURE 28/62);
11000/2: 171 262|235 142 003                                           3;      (EOR); M11; J8=Z;
11001/1: 141 260|171 270|033|027|170 270|310 264 177|170 336|213 261 357
                                                                             M-I11; C11; NOT; NEG; =C11; YG0M11; =Q13; J1;
11003/5: 157 336|200 360 000                                           8;      (END OF O/P AN O÷R); Q13TOQ14; EXIT1;

=== Start P706V-1; at address 4613/11005
11005/0: 304 015 206|200 267 061                                       P706;      SET3462; JP206;

=== Start P491V0; at address 4615/11007
11007/0: 310 004 134|164 265|200 337 250|210 262 014                   P491V0;      (5); YE17; SHL-38; JSP701; J1;
11010/5: 310 004 134|304 000 177|054|304 000 005|036|213 142 013             YE17; SETB177; AND; SET5; -; J45≠Z;
11013/1: 140 020                                                             M+I1;
11013/3: 200 360 000                                                   45;      EXIT1;
11014/0: 041|033                                                       1;      ZERO; NOT;
11014/2: 311 002 006                                                   2;      =V0;
11014/5: 310 004 134|164 123|164 247|200 336 014|213 262 021|213 262 020|212 262 034|213 262 020
                                                                             YE17; SHL+41; SHL-45; *JSP465; J3; J4; J5; J6;
11020/3: 304 001 006|200 267 061                                       4;6;      SET262; JP206; (FAILURE 2/62);
11021/3: 312 030 300|042|311 004 157                                   3;      Y0M1Q; DUP; =YE36;
11022/4: 164 123|164 247|027|033|231 142 025                                 SHL+41; SHL-45; NEG; NOT; J7=Z;
11024/1: 304 001 152|200 267 061                                             SET362; JP206; (FAILURE 3/62);
11025/1: 310 004 157|304 000 001|164 027|043|054|210 142 177           7;      YE36; SET1; SHL+11; DUPD; AND; J8≠Z; (L);
11027/2: 164 011|043|054|211 142 155                                         SHL+4; DUPD; AND; J9≠Z; (R);
11030/3: 164 375|043|054|210 142 147                                         SHL-2; DUPD; AND; J10≠Z; (F);
11031/4: 164 003|043|054|210 142 113                                         SHL+1; DUPD; AND; J11≠Z; (S);
11032/5: 164 375|054|210 142 107                                             SHL-2; AND; J12≠Z; (P);
11033/5: 213 262 066                                                         J13; (NULL);
                                                                       [ original source of the next page
11034/2: 310 002 006|234 142 037                                       5;      (TYPE 2); V0; J14=Z;
11035/2: 310 004 134|164 265|313 064 164|210 321 022|213 262 041             YE17; SHL-38; =YF0M3Q; JSP713; J15;
11037/4: 200 337 277|304 000 064|210 321 116|141 060                   14;      JSP702; SETB64; JSP718; (=); M-I3; (S=S-1);
11041/3: 310 004 134|164 061|164 253|042|304 000 037                   15;      YE17; SHL+24; SHL-43; DUP; SETB37;
11043/2: 015|235 142 064                                                     NEV; J16=Z; (IP C-R ALL SET);
11044/0: 304 000 001|054|231 142 046                                         SETB1; AND; J17=Z;
11045/1: 304 000 035|210 321 116                                             SETB35; JSP718; (R);
11046/1: 310 004 134|164 061|164 253                                   17;      YE17; SHL+24; SHL-43;
11047/2: 304 000 002|043|054|210 142 055                                     SETB2; DUPD; AND; J18≠Z; (Q);
11050/4: 164 003|043|054|210 142 056                                         SHL+1; DUPD; AND; J19≠Z; (M);
11051/5: 164 003|043|054|210 142 057                                         SHL+1; DUPD; AND; J20≠Z; (I);
11053/0: 164 003|054|210 142 060                                             SHL+1; AND; J21≠Z; (C);
11054/0: 304 015 352|200 267 061                                             SET3562; JP206; (FAILURE 35/62); (NOT ANY OF C-Q);
11055/0: 304 000 034|215 262 063                                       18;      SETB34; J22;
11056/0: 304 000 030|215 262 063                                       19;      SETB30; J22;
11057/0: 304 000 024|215 262 063                                       20;      SETB24; J22;
11060/0: 304 000 016                                                   21;      SETB16;
11060/3: 310 004 134|164 051|164 251|065|210 321 116|304 000 073|210 321 116|200 360 000
                                                                       23;      YE17; SHL+20; SHL-44; REV; JSP718; SETB73; JSP718; EXIT1;
11063/5: 012|052|052|213 262 060                                       22;      PERM; ERASE; ERASE; J23;
11064/5: 052|300 006 233|210 321 116|200 360 000                       16;      (LINK); ERASE; V91P0; JSP718; EXIT1;
                                                                       13;      (NULL);
11066/3: 310 004 157|164 117|232 042 070                                     YE36; SHL+39; J46<Z; (IF OWN);
11067/5: 210 320 377                                                         JSP712; (LOCALE);
11070/2: 310 002 006|211 142 074                                       46;      V0; J24≠Z;
11071/2: 200 337 277|141 060                                                 JSP702; M-I3;
11072/1: 210 321 274|304 000 064|210 321 116|210 262 076                     JSP727; (OVERFLOW ROUTINE);26;      SETB64; JSP718; (=); J43;
11074/1: 310 004 134|164 265|313 064 164|210 321 022                   24;      YE17; SHL-38; =YF0M3Q; JSP713; (NESTS);
11076/0: 210 321 303|310 004 157|164 113|164 251|213 142 105           43;      JSP728; (Y(CH)ADD); YE36; SHL+37; SHL-44; J32≠Z;
11100/1: 310 004 157|164 067|164 251|304 000 030|210 321 116                 YE36; SHL+27; SHL-44; SETB30; JSP718; (M(MOD));
11102/2: 310 004 157|164 077|233 102 105                                     YE36; SHL+31; J32>Z;
11103/4: 041|033|311 004 132                                                 ZERO; NOT; =YE15; (Q-FLAG);
11104/3: 304 000 034|210 321 116                                             SETB34; JSP718; (Q);
11105/3: 304 000 073|210 321 116|210 262 175                           32;      SETB73; JSP718;(;); J47;

                                                                       12;      (P);
11107/0: 210 320 377                                                         JSP712; (LOCALE);
11107/3: 210 321 321                                                         JSP729;
11110/0: 300 006 235|210 321 116                                             V93P0; JSP718; (JSP2O8;);
11111/0: 041|033|311 004 131                                                 ZERO; NOT; =YE14; (SET S FLAG);
11111/5: 141 060|141 060                                                     M-I3; M-I3; (S:=S-2);
11112/3: 200 360 000                                                         EXIT1;

                                                                       11;      (S);
11113/0: 052|052                                                             ERASE; ERASE;
11113/2: 310 002 006|215 142 136                                             V0; J33≠Z;
11114/2: 310 004 134|167 025|041|166 025|065|041|166 025                     YE17; SHC+10; ZERO; SHLD+10; REV; ZERO; SHLD+10;
11116/2: 012|065|166 355|052|065|166 355|052                                 PERM; REV; SHLD-10; ERASE; REV; SHLD-10; ERASE;
11117/5: 167 051|041|166 003|065|164 003|065|166 377                         SHC+20; ZERO; SHLD+1; REV; SHL+1; REV; SHLD-1;
11121/4: 052|164 377|167 045|304 000 001|164 043|056|311 004 134             ERASE; SHL-1; SHC+18; SET1; SHL+17; +; =YE17; (INTERCHANGE 01 AND 02 AND PUT L1 INTO
11124/0: 210 320 035                                                         L2); JSP703; (DIADIC FETCH);
11124/3: 300 006 166|210 321 116                                             V54P0; JSP718; (=M3;);
11125/3: 210 321 274                                                         JSP727; (OVERFLOW);
11126/0: 304 000 064|210 321 116                                       34;      SETB64; JSP718; (=);
11127/0: 171 062|304 000 002|036|170 062                                     M3; SET2; -; =M3; (S:=S-2);
11130/2: 310 004 157|304 001 000|054|230 142 133                       37;      YE36; SETB400; AND; J35=Z;
11132/0: 304 011 015|213 262 133                                             SETB4415; J36;
11133/0: 304 000 044                                                   35;      SETB44;
11133/3: 310 004 157|170 376|171 370                                   36;      YE36; =Q15; C15; (ALLOW FOR NEG. ADDRESS);
11134/4: 065                                                                 REV;
11134/5: 200 336 315|300 006 236|210 321 116|210 262 175                     JSP715; V94P0; JSP718; (M3;); J47;
                                                                       [ original source of the next page
11136/5: 310 004 134|167 025|164 025|041|166 025                       33;      YE17; SHC+10; SHL+10; ZERO; SHLD+10;
11140/3: 065|164 355|065|166 355|052                                         REV; SHL-10; REV; SHLD-10; ERASE;
11141/4: 167 053|033|027|167 043                                             SHC+21; NOT; NEG; SHC+17; (SET L1);
11142/4: 311 004 134|200 337 277                                             =YE17; JSP702; (MONADIC
                                                                             FETCH TO OBTAIN MODIFIER);
11143/4: 300 006 166|210 321 116                                             V54P0; JSP718; (=M3);
11144/4: 310 004 134|164 265|311 064 163                                     YE17; SHL-38; =YF-1M3; (I.E. STORE AND S:=S-1 C0MBINED);
11146/0: 210 321 022|212 262 130                                             JSP713; J37;

11147/0: 052|052                                                       10;      (F); ERASE; ERASE;
11147/2: 310 002 006|212 142 151                                             V0; J38≠Z;
11150/2: 304 001 316|200 267 061                                             SET462; JP206; (FAILURE 4/62);
11151/2: 210 321 036|210 320 377                                       38;      JSP714; JSP712;
11152/2: 210 321 321                                                         JSP729; (O/P Y(ADDRESS)M(MODIFIER)SEMI C0L0N);
11152/5: 300 006 237|210 321 116|041|033|311 004 131                         V95P0; JSP718; ZERO; NOT; =YE14;
11154/4: 210 262 175                                                   J47;
11155/1: 052|052|210 320 377                                           9;      (R); ERASE; ERASE; JSP712;
11156/0: 310 002 006|210 142 160                                             V0; J39≠Z;
11157/0: 200 337 277|215 262 161                                             JSP702; J40;
11160/0: 310 004 134|164 265|313 064 164|210 321 022                   39;      YE17; SHL-38; =YF0M3Q; JSP713;
11161/5: 310 004 115|170 102|320 113 054|164 061|164 271|310 004 157|164 061
                                                                       40;      YE2; =M4; Z51M4; SHL+24; SHL-36; YE36; SHL+24;
11164/4: 164 257|056|304 000 044|210 321 116                                 SHL-41; +; SETB44; JSP718; (Y(R+FIXED));
11166/1: 310 004 126|304 000 030|210 321 116|300 006 166|210 321 116         YE11; SETB30; JSP718; (M(MOD)); V54P0; JSP718; (:=M3;);
11170/4: 310 002 006|213 142 173                                             V0; J41≠Z;
11171/4: 304 000 064|210 321 116|141 060|210 321 274                         SETB64; JSP718; M-I3; JSP727; (OVERFLOW);
11173/3: 210 321 303|300 006 236|210 321 116                           41;      JSP728; V94P0; JSP718;
11175/0: 310 002 006|233 142 176|215 260 153                           47;      V0; J48=Z; J2P705;
11176/3: 200 360 000                                                   48;      EXIT1;

11177/0: 052|052|310 004 134|304 000 017                               8;      (L); ERASE; ERASE; YE17; SETB17;
11200/2: 054|304 000 006|036|232 142 206                                     AND; SET6; -; J44=Z;
11201/4: 210 320 377                                                         JSP712;
11202/1: 210 321 321                                                         JSP729;
11202/4: 310 004 157|164 105|235 102 205                                     YE36; SHL+34; J42>Z;
11204/0: 300 006 237|210 321 116|041|033|311 004 131                         V95P0; JSP718; ZERO; NOT; =YE14;
11205/5: 200 360 000                                                   42;      EXIT1;
11206/2: 310 004 157|167 111|164 003|164 377                           44;      YE36; SHC+36; SHL+1; SHL-1;
11207/5: 167 271|311 004 157|214 321 275                                     SHC-36; =YE36; JS2P727;
11211/1: 211 262 025                                                         J7;


                                                                       [ diagnostic routines
=== Start P900V-1; at address 4746/11212
                                                                       P900;
11212/0: 171 376                                                       	Q15;
                                                                             (print YE stores);
11212/2: 304 016 145|164 041                                                 SETB7145; (YE); SHL+16; (start of print at YE0);
11213/1: 304 024 137|170 365|304 024 113|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYE20; =RI15; SETAYE0; =C15; Q15; SET70; OUT;
11216/1: 170 376                                                       	=Q15;
11216/3: 200 360 000                                                   	EXIT1;
=== Start P901V-1; at address 4751/11217
                                                                       P901;
11217/0: 171 376                                                       	Q15;
                                                                             (print YZ stores);
11217/2: 304 016 172|164 041                                                 SETB7172; (YZ); SHL+16; (start of print at YZ0);
11220/1: 304 027 300|170 365|304 026 300|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYZ256; =RI15; SETAYZ0; =C15; Q15; SET70; OUT;
11223/1: 170 376                                                       	=Q15;
11223/3: 200 360 000                                                   	EXIT1;

=== Start P902V-1; at address 4756/11224
                                                                       P902; [store dump and stop
11224/0: 171 376                                                       	Q15;
                                                                             (print W stores);
11224/2: 304 000 067|164 041                                                 SETB67; (W); SHL+16; (start of print at W0);
11225/1: 304 053 137|170 365|304 022 304|170 370|171 376|304 000 106|200 220 000
                                                                             SETAZ0; =RI15; SETAW0; =C15; Q15; SET70; OUT;
11230/1: 170 376                                                       	=Q15;
11230/3: 136 370                                                       	MRWDQ15;
11230/5: 200 360 000                                                   	EXIT1;

=== Start P903V-1; at address 4762/11232
                                                                       P903;
11232/0: 171 376                                                       	Q15;
                                                                             (print Z stores);
11232/2: 304 016 272|164 041|304 000 144|056                                 SETB7272; (Z); SHL+16; SET100; +; (start of print at Z0);
11233/5: 304 053 137|170 365|304 052 373|170 370|171 376|304 000 106|200 220 000
                                                                             SETAZ0; =RI15; SETAZ100; =C15; Q15; SET70; OUT;
11236/5: 170 376                                                       	=Q15;
                                                                       (MRWDQ15;)
11237/1: 200 360 000                                                   	EXIT1;

=== Start P904V-1; at address 4768/11240
                                                                       P904;
11240/0: 171 376                                                       	Q15;
                                                                             (print Y stores);
11240/2: 304 000 071|164 041                                                 SETB71; (Y); SHL+16; (start of print at Y0);
11241/1: 304 030 350|170 365|304 030 300|042|171 162|056|170 364|170 370|171 376|304 000 106|200 220 000
                                                                             SETAY40; =RI15; SETAY0; DUP; M7; +; =I15; =C15; Q15; SET70; OUT;
11245/1: 170 376                                                       	=Q15;
11245/3: 200 360 000                                                   	EXIT1;

=== Start P905V-1; at address 4774/11246
                                                                       P905;
11246/0: 171 376                                                       	Q15;
                                                                             (print YA stores);
11246/2: 304 016 141|164 041                                                 SETB7141; (YA); SHL+16; (start of print at YA0);
11247/1: 304 022 332|170 365|304 022 306|042|171 242|056|170 364|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYA20; =RI15; SETAYA0; DUP; M10; +; =I15; =C15; Q15; SET70; OUT;
11253/1: 170 376                                                       	=Q15;
11253/3: 200 360 000                                                   	EXIT1;
=== Start P906V-1; at address 4780/11254
                                                                       P906;
11254/0: 171 376                                                       	Q15;
                                                                             (print YF stores);
11254/2: 304 016 146|164 041                                                 SETB7146; (YF); SHL+16; (start of print at YF0);
11255/1: 304 024 176|170 365|304 024 164|042|171 062|056|170 364|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYF10; =RI15; SETAYF0; DUP; M3; +; =I15; =C15; Q15; SET70; OUT;
11261/1: 170 376                                                       	=Q15;
11261/3: 200 360 000                                                   	EXIT1;
=== Start P907V-1; at address 4786/11262
                                                                       P907;
11262/0: 171 376                                                       	Q15;
                                                                             (print YB stores);
11262/2: 304 016 142|164 041                                                 SETB7142; (YB); SHL+16; (start of print at YB0);
11263/1: 304 023 224|170 365|304 023 212|042|171 062|056|170 364|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYB10; =RI15; SETAYB0; DUP; M3; +; =I15; =C15; Q15; SET70; OUT;
11267/1: 170 376                                                       	=Q15;
11267/3: 200 360 000                                                   	EXIT1;


=== Start P-1V-1; at address 4792/11270
Finished
                                                                       FINISH;

















Reached end of file