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.
Loaded 93009 bytes for KAB60.txt
Relocated 14
Finished
Reached end of file
=============== Second pass
===========================
11204 W0 = E4740
14200 Y0 = E6272
11206 YA0 = E4742
11512 YB0 = E4938
11612 YC0 = E5002
11713 YD0 = E5067
12013 YE0 = E5131
12064 YF0 = E5172
12077 YG0 = E5183
12200 YY0 = E5248
13200 YZ0 = E5760
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;
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);
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);
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 - Hux
3265/3: 056 +; (+AZ5O=TOP ADDRESS OP WORKING SPACE);
3265/4: 042|304 053 056|056|304 022 204|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 204 *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 200|036|170 130 SETAY0; -; =C5; (FREE SPACE AVAILABLE);
3302/0: 320 013 126|164 301|311 004 024 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 206 22; =YA0M10Q;
3315/3: 200 334 261|042|311 004 027 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 033|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 212 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 200|313 170 200 17; M7; PERM; =Y0M7Q; =Y0M7Q;
3350/1: 164 007|033|027|313 223 112 SHL+3; NOT; NEG; =YB0M9Q;
3351/2: 240 234 346|203 266 315 J10P750C9Z; (N.S. FULL); J1;
3352/2: 313 203 212|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 205|304 001 000|011|311 242 205 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 032 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 032|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 032|300 006 105|200 330 060|300 006 106|200 330 060 YE15; V5; JSP403; V6; JSP403; ( SET<label>; =Z0; TRACE - this was always O/P)
3400/1: 203 266 315 J1;
10; (SWITCH);
3400/4: 313 203 212|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 211|304 000 030|054|164 373 ERASE; YC-1M8; SETB30; AND; SHL-3;
3404/4: 027|033|203 147 007|052|310 004 031 NEG; NOT; J12≠Z; ERASE; YE14;
3406/1: 033|027|311 004 031|203 266 315 NOT; NEG; =YE14; J1; (M:=M+1);
3407/3: 313 203 212|240 214 344 12; =YC0M8Q; J4P750C8Z; (L.P. LIST FULL);
3410/3: 304 000 001|311 004 031|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 027|304 000 007|054|311 004 014 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 200 024 237 242 003 V0=QAYY0/AYY31/B121003;
V-store at 03423 = 024 240 024 277 000 000 V1=QAYY32/AYY63/0;
V-store at 03424 = 000 000 000 000 000 000 V2=0;
V-store at 03425 = 024 300 026 100 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 024 300 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 167 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 170|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 011|220 047 107 Z38; SHL4; J4<Z; (SHL+4 IF WITH 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 100 026 137 243 007 V1=QAYY448/AYY479/B121407;
V-store at 03520 = 026 140 026 177 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 100|311 006 140 =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);
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 200 025 177 242 105 V0=QAYY0/AYY255/B121105;
V-store at 03562 = 025 200 026 177 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 205|054|065|310 004 027|054|200 267 374
1; SETB177; DUP; YA-1M10; AND; REV; YE12; AND ; JP400;
=== 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 033 SHLD+2; DUP; =YE16;
4123/3: 065|041|033|311 004 032|200 330 153 REV; ZERO; NOT; =YE15; JS1P406;
4125/0: 310 170 177|304 004 000|056 Y-1M7; SETB2000; +;
4126/1: 311 170 177|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 200|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 112|240 234 347
6; SETB1600; AND; SHL-7; REV; SHL+3; +; =YB0M9Q; J11P750C9Z;
4136/2: 310 242 205|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 205|304 200 000|027 YA-1M10; SETB100000; NEG;
4141/5: 011|311 242 205 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 032 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 032|220 150 165 YE15; J7=Z; (IF STORE);
4155/1: 200 330 261 JSP409; (CONSTRUCTS I/5 WORD IN N1);
4155/4: 310 004 033|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 033|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 111|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 205|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 206|164 005 SETB4000; DUP; YA0M10; SHL+2;
4201/1: 054|015|310 170 177|011|311 170 177 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 212|240 214 345 =YC0M8Q; J5P750C8Z;
4213/4: 304 000 233|311 004 027 SETB233; =YE12; (DUMMY CLOSING PARAMETER BRACKET);
[ original source of the next page
4214/4: 041 ZERO; (DUMMY OPENING PARAMETER BRACKET);
4214/5: 310 242 205|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 212|240 214 345|200 360 000 18; =YC0M8Q; J5P750C8Z; EXIT1;
4227/4: 200 330 261|310 004 033|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 205|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 032|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 112|240 234 350 =YB0M9Q; J12P750C9Z;
4251/4: 313 170 200|143 120|244 130 257|200 360 000 =Y0M7Q; DC5; J15C5Z; EXIT1;
13; (STORE);
4253/3: 041|310 223 111|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 200|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 033|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 112|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 205|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 027|170 056 M6; =RC4; J16C4Z; YE12; =Q2;
4305/3: 312 103 313|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 027|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 027|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 022 20; ERASE; YE7; (CURRENT YO-YO);
4322/2: 310 004 023|200 270 327 21; YE8; (CURRENT AV); J22;
4323/2: 310 004 027|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 027|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 027|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 143 313|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 027|164 321|164 061|304 010 025|056 2; YE12; SHL-24; SHL+24; SETB4025; +;
4347/4: 304 000 005|311 004 033|200 330 265 SET5; =YE16; JSP410;
4351/1: 310 004 027|304 001 000|054|203 150 354 YE12; SETB400; AND; J6≠Z;
4352/5: 304 040 000|310 170 177|011|311 170 177 SETB20000; Y-1M7; OR; =Y-1M7;
4354/3: 310 242 205|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 027|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 033|200 330 265 SETB225; +; SET2; =YE16; JSP410;
4374/1: 310 223 111|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 027|164 101|164 257|202 151 031 8; ERASE; YE12; SHL+32; SHL-41; J15≠Z;
4404/0: 310 004 027|171 162|166 041|164 055|310 242 205|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 027|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 033|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 026|027|033|200 151 004 15; YE11; NEG; NOT; J12≠Z; (IF IN £FUNCT.);
4432/4: 310 004 023|205 271 011 YE8; (AV); J18;
=== Start P412V-1; at address 2332/4434
P412;
[ original source of the next page
4434/0: 310 203 211|141 200|171 210|033|027|170 210|042|311 004 033 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 032|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 033 =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 034 DUP; =YE17;
4451/3: 015|042|311 004 033 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 177|304 100 000|056|311 170 177 5; Y-1M7; SETB40000; +; =Y-1M7;
4457/0: 310 170 176|310 004 034|164 015|056|311 170 176 Y-2M7; YE17; SHL+6; +; =Y-2M7;
4461/0: 200 360 000 EXIT1;
4;
4461/3: 310 223 111|310 223 110|311 223 111|311 223 110 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 034|164 351|310 223 111|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 111|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 034|200 360 000 =YE17; EXIT1;
4505/5: 171 162|042|311 004 034 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 200|313 170 200|200 360 000 1; =Y0M7Q; =Y0M7Q; EXIT1;
=== Start P419V-1; at address 2381/4515
P419;
4515/0: 300 006 112|041|310 223 111|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 027|313 242 206|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 036|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 205|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 205|304 000 200|056|205 271 147 4; W1; SETB200; +; J6;
3; (T1=T2);
4533/4: 310 002 205|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 205|304 001 000|056|205 271 147 11; W1; SETB400; +; J6;
4541/5: 304 034 000|310 002 205|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 200|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 111|141 240|171 250|033|027|170 250|310 004 036|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 111|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 205|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 205|056|205 271 147 JSP413; ERASE; SETB600; W1; +; J6P421;
=== Start P413V-1; at address 2427/4573
4573/0: 310 242 205|310 223 110|164 373|310 223 111|164 373|164 025|056
P413; YA-1M10; YB-2M9; SHL-3; YB-1M9; SHL-3; SHL+10; +;
4575/4: 171 162|164 051|056|164 045|304 000 007|042|310 223 111|054 M7; SHL+20; +; SHL+18; SETB7; DUP; YB-1M9; AND;
4600/1: 164 007|065|310 223 110|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 205|200 360 000 REV; SETB177; AND; DUP; PERM; +; =W1; EXIT1;
=== Start P426V-1; at address 2437/4605
P426;
4605/0: 310 004 024|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 027|056|313 242 206|240 254 365 YE12; +; =YA0M10Q; J31P750C10Z;
4611/0: 033|027|311 004 024 NOT; NEG; =YE9;
4611/5: 304 000 051|310 242 204|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 205|304 010 000|015|311 242 205 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 200|143 120|264 131 223 2; =Y0M7Q; DC5; J1C5NZ;
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 205|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 111|164 373|056|164 041|310 242 205|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 205|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 111|304 000 007|054|164 033 YB-1M9; SETB7; AND; SHL+13;
4640/4: 304 004 000|056|171 376|056|311 242 205 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 205|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 111|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 024|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 205|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 024|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 021|033|027|311 004 024 YE6; NOT; NEG; =YE9;
4701/2: 304 000 001|311 004 063 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 177 Y-1M7; (N.B. AN O.R.);
4705/4: 304 000 160|054|164 371|056|313 223 112 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 111|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 111|202 271 315 SET1; =YB-1M9; J8;
4715/1: 052 2; ERASE;
4715/2: 171 162|164 041|310 242 205|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 112|304 000 007|054|311 004 063|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 063 =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 205|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 111 AND; REV; YB-1M9;
4733/5: 054|043|036|223 151 343 AND; DUPD; -; J2=Z;
4734/5: 171 162|164 025|310 223 111|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 111|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 027|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 205|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 034|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 205|304 001 000|056|311 242 205 YA-1M10; SETB400; +; =YA-1M10;
4774/2: 310 004 016|311 004 020 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 060 =C5; NOT; NEG; =YE37;
5003/0: 200 335 075 JSP414;
5003/3: 310 203 211|042|170 116|042|304 000 037 YC-1M8; DUP; =Q4; DUP; SETB37;
5005/1: 054|304 000 012|036|311 004 035 AND; SETB12; -; =YE18; (=ZERO IF INTEGER ARRAY);
5006/3: 304 001 000|054|042|311 004 036|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 205|042|170 116|164 361|304 000 377|054|310 004 035|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 036|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 036|202 152 025 8; JSP403; YE19; J16≠Z;
5022/1: 310 004 023|310 004 022|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 211|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 027|056|313 242 206|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 205|042|164 075|201 052 162 YA-1M10; DUP; SHL+30; J2≥Z;
5055/4: 300 006 112|171 162|164 025|310 004 034|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 205 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 205|170 116 YA-1M10; =Q4;
5067/1: 310 203 211|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 027|304 003 000|054 ERASE; YE12; SETB1400; AND;
5102/3: 304 002 000|223 032 154 SETB1000; J3=; (I); (HUX PDF shows no print first guess was B4000)
5103/3: 304 001 000|220 032 106 SETB400; J20=; (IF L SET);
5104/3: 221 152 106 J5=Z;
5105/0: 304 004 210|200 267 061 SET1160; JP206; (BOTH) (this failure is Neither Value nor an address)
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 027|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 211|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 112|240 234 353 SETB2; +; =YB0M9Q; J15P750C9Z;
5121/3: 310 203 211|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 211|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 211|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 112|240 234 354 +; =YB0M9Q; J16P750C9Z;
5161/4: 202 272 151 J18;
2; (SWITCH);
5162/1: 052|171 162|164 025|310 004 034|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 211|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 033|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 205|042|304 000 377|054 YA-1M10; DUP; SETB377; AND;
5204/1: 304 000 210|036|220 152 221 SETB210; -; J10=Z; (GO TO);
5205/2: 042|304 013 377|054|304 010 205 DUP; SETB5777; AND; SETB4205;
5206/4: 225 032 220|304 010 204|036|220 152 221 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|223 152 215 -; J11=Z; (IF OPENING PARAM. BRACKET);
5212/2: 304 020 377|054|304 020 265 SETB10377; AND; SETB10265;
5213/3: 223 032 215 J11=; (IF :=(SWITCH));
5214/0: 203 272 215 j11; [hux, looks very odd
5214/3: 304 016 114|200 267 061 SET3660; JP206; (FAILURE 366O);
5215/3: 052|171 162|027|033|164 007 11; ERASE; M7; NEG; NOT; SHL+3;
5216/4: 304 000 005|056|313 223 112|240 234 355 SET5; +; =YB0M9Q; J17P750C9Z;
5220/2: 200 360 000 EXIT1;
5220/5: 052 19; ERASE;
5221/0: 052 10; ERASE;
5221/1: 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 027 YE12;
5224/3: 313 242 206|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 205|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 111|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 205|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 111|203 272 251 +; =YB-1M9; J4;
5250/5: 052|052|164 373 3; ERASE; ERASE; SHL-3;
5251/3: 311 004 034|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 034|170 062|310 070 200|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 201|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 200|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 200|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 035 10; ERASE; ERASE; I3=1; ZERO; =YE18;
5321/4: 140 060|171 062|310 004 034|036|220 152 337 14; M+I3; M3; YE17; -; J15=Z;
5323/3: 310 070 200|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 035|220 152 331 16; YE18; J17=Z;
5330/0: 304 006 340|200 267 061 SET1760; JP206;
5331/0: 041|033|311 004 035|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 112|240 234 356|204 272 321
M7; NEG; NOT; SHL+3; SETB2; +; =YB0M9Q; J18P750C9Z; J14;
5337/0: 310 070 201|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 206|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 035|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 201|304 001 000|054|225 152 367 Y1M3; SETB400; AND; J49=Z; (IE NOT OWN);
5361/2: 310 170 177|304 100 000|164 007|011 Y-1M7; SETB40000; SHL+3; OR;
5362/5: 311 170 177 =Y-1M7; (SET YB MARKER);
5363/2: 200 334 215 JSP460;
5363/5: 310 170 177|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 177 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 201|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 112 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 033|200 330 265 SHL-8; SETB225; +; SET2; =YE16; JSP410;
5402/1: 304 000 301 25; SETB301; (+);
5402/4: 313 242 206|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 112|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 201|167 301|033|027|167 101|310 070 200|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 205|304 001 000|056|042|311 242 205 YA-1M10; SETB400; +; DUP; =YA-1M10;
5422/1: 164 361|304 000 077|054|042|311 004 033 SHL-8; SETB77; AND; DUP; =YE16;
5423/5: 310 203 211|164 041|164 255|036|205 113 032 YC-1M8; SHL+16; SHL-42; -; J29≤Z;
5425/4: 310 004 027|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 211|164 355|310 004 033|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 205|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 205 Q4; =YA-1M10;
5441/2: 304 000 002|311 004 033 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 112|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 177|011|311 170 177 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 027|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 177 44; SETB171; =Y-1M7;
5506/2: 200 334 244|310 004 024|033|027|311 004 024 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 024|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 024|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 024|033|027|311 004 024|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 177 39; SETB171; =Y-1M7;
5524/3: 200 334 244|200 334 230 JSP463; JSP462;
5525/3: 171 162|164 041|310 004 024|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 024|056|164 055 M7; SHL+16; YE9; +; SHL+22;
5532/2: 304 000 007|056|205 331 221 SETB7; +; JS2P426;
5533/3: 310 004 024|033|027|311 004 024 YE9; NOT; NEG; =YE9;
5534/5: 310 242 205|170 116|310 004 024|042|170 110|171 116|311 242 205
38; YA-1M10; =Q4; YE9; DUP; =C4; Q4; =YA-1M10;
5537/3: 033|027|311 004 024|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 021|056|164 055 M7; SHL+16; YE6; +; SHL+22;
5543/5: 304 001 010|056|205 331 221 SETB410; +; JS2P426;
5545/0: 310 203 211|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 211|304 000 200|054|224 153 171 41; JSP414; YC-1M8; SETB200; AND; J42=Z;
5565/1: 310 223 111|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 211|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 027|056 C4; SHL+32; YE12; +;
5601/1: 304 020 000|056|313 242 206 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 205|056|311 242 205 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 027|056|313 242 206|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 211|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 027|310 004 031|164 041|056|313 242 206 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 027|313 242 206|240 254 375 YE12; =YA0M10Q; J39P750C10Z;
5630/3: 310 242 204|304 200 000|027 1; YA-2M10; SETB100000; NEG;
5631/4: 011|311 242 204 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 027|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 177|310 242 205 SETB71; =Y-1M7;(OPT.BD.3); YA-1M10;
5643/4: 304 010 000|011|311 242 205|200 360 000 1; SETB4000; OR; =YA-1M10; (INSERT GO TO); EXIT1;
=== Start P445V-1; at address 2982/5646
P445;
5646/0: 310 004 027|042|313 242 206|240 254 376 1; YE12; DUP; =YA0M10Q; J40P750C10Z;
5647/4: 164 041|041|166 017|311 004 022 SHL+16; ZERO; SHLD+7; =YE7;
5651/0: 041|166 041|042|311 004 016|311 004 020 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 022|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 061 ZERO; =YE38;
5657/3: 310 004 027|042|041|166 021|311 004 021 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 015|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 017 REV; SHL+24; SHL-36; +; =YE4;
5666/2: 164 051|164 251|311 004 036 SHL+20; SHL-44; =YE19;
5667/3: 320 333 055|042|304 000 100|054|311 004 030 Z50M13; DUP; SETB100; AND; =YE13;
5671/2: 304 000 001|054|033|027|311 004 026 SET1; AND; NOT; NEG; =YE11;
5672/5: 320 333 053|042|164 101|164 261|311 004 023 Z52M13; DUP; SHL+32; SHL-40; =YE8;
5674/4: 042|164 055|164 265|320 013 132|056|311 004 037 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 013 Z53M13; SHL+32; SHL-40; =YE0;
5701/3: 310 004 021|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 024|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 024|304 000 051|200 330 060 YE9; SETB51; JSP403;
5717/3: 304 016 352|200 330 060 SETB7352; JSP403;
5720/3: 310 004 024|033|027|311 004 024 YE9; NOT; NEG; =YE9;
5721/5: 310 004 036|300 006 105|200 330 060 5; YE19; V5P0; JSP403;
5723/2: 310 004 037|300 006 141|200 330 060 YE20; V33P0; JSP403;
5724/5: 310 004 013|300 006 105|200 330 060 YE0; V5P0; JSP403;
5726/2: 300 006 142|200 330 060 V34P0; JSP403;
5727/2: 310 004 030|202 153 332 YE13; J6≠Z;
5730/2: 310 004 021|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 023|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 021|027|033|203 153 357 YE6; NEG; NOT; J8≠Z;
5737/3: 200 360 000 EXIT1;
5740/0: 310 004 026|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 013|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 036|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 037|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 026|027|033|222 153 354|200 360 000 2; YE11; NEG; NOT; J18=Z; EXIT1;
5754/2: 310 004 022|310 004 023|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 015|304 000 003|304 000 002|311 004 034|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 034|033|027|201 273 373 14; YE17; NOT; NEG; J12;
5772/0: 310 004 034|304 000 002|056 11; YE17; SET2; +;
5773/1: 311 004 034|140 100|202 273 362 12; =YE17; M+I4; J13;
10; (ARRAY BY VALUE);
5774/3: 052|310 004 034|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 027|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 015|170 322|320 333 054|164 051 12; YE2; =M13; Z51M13; SHL+20;
6007/5: 164 251|311 004 036 SHL-44; =YE19;
6010/4: 320 333 053|164 055|164 265|320 013 132|056|311 004 037 Z52M13; SHL+22; SHL-38; Z5; +; =YE20;
(V-STORE NO. FOR FIXED SPACE REQUIRED);
6013/0: 310 004 022|027|033|042|311 004 022 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 205|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 023|300 006 150|200 330 060 YE8; V40P0; JSP403; (Y(AV));
6021/3: 310 004 026|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 036|222 154 032 YE19; J4=Z;
6026/2: 310 004 036|300 006 105|200 330 060 YE19; V5P0; JSP403; (SET (N));
6027/5: 310 004 037|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 036|222 154 037 3; YE19; J6=Z;
6034/5: 310 004 036|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 022|205 154 076 YE7; J9≠Z; (IF YO-YO-1≠0);
6044/4: 310 004 037|300 006 141|200 330 060 YE20; V33P0; JSP403;
6046/1: 310 004 017|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 061|164 031|011|321 333 055 Z50M13; YE38; SHL+12; OR; =Z50M13;
6052/4: 310 004 017|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 206|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 206|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 206|164 061|164 277 11; ERASE; YA0M4; SHL+24; SHL-33;
6073/1: 042|311 004 016|311 004 020 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 026|027|033|223 154 101|202 274 040 1; YE11; NEG; NOT; J15=Z; J5;
6101/3: 310 004 022|310 004 023|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 027|313 242 206|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 205|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 205 =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 205|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 205|304 100 000|011 YA-1M10; SETB40000; OR;
6142/1: 311 242 205 =YA-1M10; (SET THEN IN IF);
6142/4: 200 360 000 EXIT1;
=== Start P453V-1; at address 3172/6144
P453;
6144/0: 310 242 205|170 116|171 104|224 154 153 YA-1M10; =Q4; I4; J1=Z;
6145/4: 200 335 075 JSP414;
6146/1: 310 242 205|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 024|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 024|033|027|300 006 156|200 330 060 YE9; NOT; NEG; V46P0; JSP403;
6161/2: 310 004 024|304 016 351|200 330 060 YE9; SETB7351; JSP403;
6162/5: 304 016 352|200 330 060 SETB7352; JSP403;
6163/5: 310 004 024|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 016|311 004 020 YE3; =YE5;
6167/1: 033|027|311 004 024 NOT; NEG; =YE9;
6170/0: 171 116|311 242 205 Q4; =YA-1M10;
6170/5: 200 360 000 EXIT1;
=== Start P454V-1; at address 3194/6172
P454;
6172/0: 310 242 205|304 100 000|011|311 242 205|200 272 037 YA-1M10; SETB40000; OR; =YA-1M10; JP434;
=== Start P455V-1; at address 3197/6175
6175/0: 310 004 027|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 027|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 024|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 206|240 255 000 SETB207; +; =YA0M10Q; J42P750C10Z;
6210/4: 310 004 024|304 000 002|056|311 004 024|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 201|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 112|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 112|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 024|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 200 027 177 000 000 P2V8; V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 06251 = 027 200 030 177 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 211|304 000 007|054|171 162|027 YC-1M8; SETB7; AND; M7; NEG;
6413/2: 033|164 007|056|313 223 112 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 027|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 032|153 022|153 163 ZERO; =YE15; (M); IM1TOQ2; IM7TOQ3; (A;=B, L;=I);
6503/5: 171 130|311 004 034 C5; =YE17; (FREE SPACE COUNTER);
6504/4: 312 030 200|042|311 004 033|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 033|164 077|222 055 123 YE16; SHL+31; J5<Z; (TYPE 4+B);
6517/3: 052 6; ERASE;
6517/4: 310 004 033|313 050 200|204 275 104 11; YE16; =Y0M2Q; J1;
6521/1: 052|310 004 033|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 200|313 050 200|201 275 124 Y0M4Q; =Y0M2Q; J8;
6526/3: 052|153 163|310 004 033|313 050 200|310 004 034|170 130 9; ERASE; IM7TOQ3; YE16; =Y0M2Q; YE17; =C5; (NEXT ST ENTER);
6530/5: 310 004 032|224 155 104|202 275 143 YE15; J1=Z; J14;
6532/2: 041|033|311 004 032|202 275 123 3; ZERO; NOT; =YE15; J5;
6533/4: 052|310 004 033|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 033|313 050 200|204 275 104 YE16; =Y0M2Q; J1;
6540/3: 310 004 033 12; YE16;
6541/0: 313 070 200|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 032 ZERO; =YE15; (CLEAR D DARK);
6544/0: 041|311 004 033|041|311 004 037|041|311 004 040 50; ZERO; =YE16; ZERO; =YE20; ZERO; =YE21; (CLEAR FLAG);
6546/0: 171 130|311 004 041 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 041|170 130 15; IM7TOQ3; (C=1); YE22; =C5; (FREE SPACE COUNTER);
6551/2: 312 030 200|042|311 004 031 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); SET161; JP206;
6565/3: 310 004 031|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 177|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 040|311 004 037|200 275 200 ZERO; DUP; NOT; =YE21; =YE20; J39;
6577/2: 041|311 004 040 38; ZERO; =YE21;
6600/0: 312 050 200|042|311 004 035|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 035|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 035|042|311 050 177 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 037|310 004 040|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 037|033|311 004 040 47; ZERO; DUP; =YE20; NOT; =YE21;
6630/3: 310 004 035|311 050 177|200 275 200 45; YE18; =Y-1M2; J39;
6632/0: 310 004 033 35; YE16;
6632/3: 310 004 041|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 031|042|311 004 034 36; YE14; DUP; =YE17;
6635/3: 312 030 200|311 004 031|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 037|310 004 040|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 032|222 155 353 YE15; J52=Z; (SKIP AND ENTER L-MARKERS);
6645/3: 041|033|311 004 035 ZERO; NOT; =YE18; (SETM);
6646/2: 171 130|311 004 045 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 035|205 155 257 53; (REPEAT); YE18; J54≠Z;
6653/1: 304 053 055|171 122|056|304 030 200|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 035 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 200|036|170 022|145 020 SETAZ50; M5; +; SETAY0; -; =M1; I1=-1; (SET B REL TO YO);
6663/1: 041|311 004 035 ZERO; =YE18;
6663/5: 153 163 55; IM7TOQ3; (BETA=I);
6664/1: 312 050 200|313 030 200 Y0M2Q; =Y0M1Q;
6665/1: 312 050 200|042|311 004 031|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 031|042|164 077|221 055 321 58; (4); YE14; DUP; SHL+31; J89<Z;(IF B SET);
6702/0: 041|166 025|311 004 032|052 ZERO; SHLD+10; =YE15; ERASE; (I IN WS1 TO WS2);
6703/1: 200 336 206|200 336 231|310 004 031|313 070 200|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 031|304 000 177|054|304 000 025|036|203 155 334 59; YE14; SETB177; AND; SETB25; -; J62≠Z;
6711/2: 310 004 031|311 004 033|312 050 200|311 004 031 YE14; =YE16; Y0M2Q; =YE14;
6713/2: 310 004 033|304 170 000|054|201 155 322 YE16; SETB74000; AND; J66≠Z;
6715/0: 310 004 031|041|166 025|311 004 032|052 YE14; ZERO; SHLD+10; =YE15; ERASE;
6716/4: 200 336 206 JSP481;
6717/1: 200 336 231 67; JSP482;
6717/4: 310 004 033|313 030 200 68; YE16; =Y0M1Q;
6720/4: 310 004 031 69; YE14;
6721/1: 313 030 200|201 275 265 89; =Y0M1Q; J56;
6722/1: 200 336 255|201 275 317 66; JSP483; J67;
6723/1: 310 004 031|304 000 177|054|304 000 026|036|204 155 320 60; (6); YE14; SETB177; AND; SETB26; -; J69≠Z;
6725/3: 310 004 031|311 004 033|312 050 200|311 004 031 YE14; =YE16; Y0M2Q; =YE14;
6727/3: 310 004 033|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 031|041|166 025|311 004 032|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 031|313 030 200 63; (9); YE14; =Y0M1Q;
6740/4: 200 336 257|201 275 252 JSP484; J53;
6741/4: 310 004 045|170 130|202 275 353 YE26; =C5; J52;
6743/0: 310 004 031|164 351|304 000 006|310 004 031|041|166 025 64; (1O); YE14; SHL-12; SETB6; YE14; ZERO; SHLD+10;
6745/2: 311 004 032|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 031|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 200|042|311 004 031|304 000 017|054|304 000 004|036|201 055 373
71; Y0M1Q; DUP; =YE14; SETB17; AND; SET4; -; J72≥Z;
6757/4: 310 004 031|167 051|041|166 025|311 004 032|052 YE14; SHC+20; ZERO; SHLD+10; =YE15; ERASE;
6761/4: 200 336 271|204 275 364|310 004 031|304 100 000|164 005|011|311 004 031
JSP485; J73; YE14; SETB40000; SHL+2; OR; =YE14;
6764/4: 310 004 031|167 025|041|166 025|311 004 032|052 73; YE14; SHC+10; ZERO; SHLD+10; =YE15; ERASE;
6766/4: 200 336 271|204 275 371|310 004 031|304 100 000|164 007|011|311 004 031
JSP485; J74; YE14; SETB40000; SHL+3; OR; =YE14;
6771/4: 310 004 031|311 030 201|204 275 354 74; YE14; =Y1M1; J71;
6773/1: 310 004 031|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 031|164 025|164 265|311 004 032 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 031|304 100 000|164 007|011|311 004 031|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 200|170 276|310 004 035|164 025|164 265|171 262|036|201 156 027
Y0M4Q; =Q11; YE18; SHL+10; SHL-38; M11; -; J2≠Z;
7023/3: 310 004 035|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 035|041|033|311 004 037 =YE18; ZERO; NOT; =YE20;
7027/1: 310 004 035|164 051|164 265|171 262|036|204 156 017 2; YE18; SHL+20; SHL-38; M11; -; J4≠Z;
7031/2: 310 004 035|167 051|164 025|171 264|166 355|052 YE18; SHC+20; SHL+10; I11; SHLD-10; ERASE;
7033/2: 167 331|311 004 035|041|033|311 004 037|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 200|170 276 Y0M4Q; =Q11;
7041/2: 310 004 035|164 025|164 265|171 262|036|204 156 037 YE18; SHL+10; SHL-38; M11; -; J2≠Z;
7043/3: 310 004 035|167 025|164 025|171 264|166 355|052 YE18; SHC+10; SHL+10; I11; SHLD-10; ERASE;
7045/3: 167 355|311 004 035|041|033|311 004 037 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 035|054|065|310 004 031|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 200|311 004 035|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 031|041|166 025|170 264 1; YE14; ZERO; SHLD+10; =I11;
7121/5: 052|310 004 035|041|166 025|170 262|052|171 276 ERASE; YE18; ZERO; SHLD+10; =M11; ERASE; Q11;
7123/5: 313 070 200|143 120|264 136 125 =Y0M3Q; DC5; J2C5NZ;
7125/1: 200 335 001 JSP407;
7125/4: 041|033|042|311 004 035|042|311 004 032|311 004 033 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 035|311 050 177|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 031|164 025|310 004 035|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 035|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 035|311 050 177|201 276 147 JSP467; YE18; =Y-1M2; J2;
7145/2: 200 336 037|310 004 035|311 050 177|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 035|304 000 177|054|304 000 005|036|203 156 157 P478; YE18; SETB177; AND; SETB5; -; J2≠Z;
7154/2: 312 050 200|042|311 004 036|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 035|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 035|054|065|310 004 031|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 200|042|311 004 036 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 200|042|311 004 036 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 034|310 004 036|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 035|311 050 176|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 200|042|311 004 041 Y0M14Q; DUP; =YE22;
7211/3: 164 311|304 003 377|054|310 004 032|036|225 156 217 SHL-28; SETB1777; AND; YE15; -; J3=Z;
7213/4: 310 004 041|164 335|304 003 377|054|310 004 032|036|225 156 217
YE22; SHL-18; SETB1777; AND; YE15; -; J3=Z;
7216/2: 310 004 041|313 310 200|200 276 207 YE22; =Y0M12Q; J1;
7217/5: 310 004 041|313 330 200|143 120|260 136 207 3; YE22; =Y0M13Q; DC5; J1C5NZ;
7221/4: 171 316|311 004 036|171 336|311 004 037|171 356|311 004 040|200 335 001
Q12; =YE19; Q13; =YE20; Q14; =YE21; JSP407;
7224/4: 310 004 036|170 316|310 004 037|170 336|310 004 040|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 044|171 322|171 062|036|224 156 252 P482; ZERO; =YE25; M13; M3; -; J1=Z;
7233/0: 153 076|041|311 004 042 2; IM3TOQ14; ZERO; =YE23;
7234/0: 312 350 200|042|311 004 043|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 042|224 156 250 YE23; J5=Z;
7240/0: 310 004 042|042|313 030 200|311 004 044|200 276 233 YE23; DUP; =Y0M1Q; =YE25; J2;
7242/1: 310 004 043|310 004 044|036|221 156 253 4; YE24; YE25; -; J6=Z;
7243/5: 310 004 043|041|166 025|310 004 042|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 043|311 004 042|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 177|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 200|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 200|042|312 350 200|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 200|042|311 004 033 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 033|167 051|041|166 025|310 004 032|036|222 156 314 YE16; SHC+20; ZERO; SHLD+10; YE15; -; J4=Z;
7277/5: 052|310 004 033|167 025|041|166 025|310 004 032|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 033|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 077 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 031|017|017|177 100 *1; ZERO; =YE14M4Q; *J1C4NZS;
7320/2: 171 036|311 004 060 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 025|042|033|027|311 004 025|164 071|011 SETB12; YE10; DUP; NOT; NEG; =YE10; SHL+28; OR;
7326/2: 213 321 123 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 055 3; M5; =YE34; (GAMMA FOR RESTART);
7331/1: 312 030 200|042|311 004 034|304 000 017|054|210 321 040|201 276 331
2; Y0M1Q; DUP; =YE17; SETB17; AND; (jsp904; jsp905;) JSP731; J2;
=== Start P488V-1; at address 3804/7334
7334/0: 310 004 034|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 034|164 101|164 247|304 000 004|036|221 156 353 YE17; SHL+32; SHL-45; SET4; -; J1=Z;
7341/2: 310 004 034|164 107|164 247|304 000 004|036|200 156 361 YE17; SHL+35; SHL-45; SET4; -; J1P489≠Z;
7343/4: 310 004 034|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 034|052 REV; SHLD-10; PERM; REV; SHLD-10; ERASE; =YE17; ERASE;
7353/1: 200 337 267|310 004 034|304 000 177|054|304 000 061|036|220 156 357
1; JSP702; YE17; SETB177; AND; SETB61; -; J2=Z;
7356/0: 210 320 247|212 260 144 JSP707; J1P705; (IS PR);
7357/0: 210 321 361|212 260 144 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 030|210 320 054|200 360 000 1; JSP703; JSP704; EXIT1;
=== Start P490V-1; at address 3827/7363
P490; (4);
7363/0: 310 004 034|164 077|223 056 366 YE17; SHL+31; J1<Z;
7364/2: 200 337 267 JSP702;
7364/5: 310 004 034|304 000 160|054|200 156 375 YE17; SETB160; AND; J2≠Z; (JUMP IF ERASE);
7366/3: 310 004 034|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 077|212 260 144 ERASE; V52P0; JSP718; J1P705; (JSP202);
7372/4: 027|033|205 156 377 3; NEG; NOT; J4≠Z;
7373/3: 300 006 165|210 321 077|212 260 144 V53P0; JSP718; J1P705; (JSP2O3);
7375/0: 300 006 143|210 321 077|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 261 370 P492; ZERO; J2P491;
=== Start P493V-1; at address 3842/7402
P493; (TYPE 7);
7402/0: 310 004 034|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 034|164 025|164 301|304 012 152|210 321 077 1; YE17; SHL+10; SHL-32; SETB5152; JSP718;
7410/1: 304 016 352|210 261 077 SETB7352; JP718;
7411/1: 310 004 034|164 075|164 251|027|172 062|310 004 034|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 034|164 265|313 064 064|210 321 003 YE17; SHL-38; =YF0M3Q; JSP713;
7416/2: 310 004 034|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 077|310 004 034|164 067|203 057 024 6; JSP718; YE17; SHL+27; J7≥Z;
7423/0: 304 000 027|210 321 077|205 277 026 SETB27; JSP718; J8;
7424/3: 310 004 034|164 065|205 057 026 7; YE17; SHL+26; J8≥Z;
7425/5: 304 000 033|210 321 077 SETB33; JSP718;
7426/5: 310 004 034|164 025|164 301|304 000 077|210 321 077 8; YE17; SHL+10; SHL-32; SETB77; JSP718;
7431/0: 304 000 073|210 321 077 SETB73; JSP718;
7432/0: 310 004 034|164 073|223 057 036 YE17; SHL+29; J9<Z;
7433/2: 310 004 061|310 004 034|164 105|164 251|032|311 004 061|052|001|200 360 000
10; YE38; YE17; SHL+34; SHL-44; MAX; =YE38; ERASE; VR; EXIT1;
7436/3: 041|033|311 004 031|202 277 033 9; ZERO; NOT; =YE14; J10;
7437/5: 200 337 267 3; JSP702;
7440/2: 310 004 034|164 051|164 301|304 000 025|210 321 077|300 006 240|210 321 077
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 034|164 265|313 064 064|210 321 003 P494; YE17; SHL-38; =YF0M3Q; JSP713;
7446/5: 310 004 034|164 341|304 000 077|054|225 157 071 YE17; SHL-16; SETB77; AND; J10=Z;
7450/5: 300 006 241|210 321 077 V97P0; JSP718; (SET A);
[ original source of the next page
7451/5: 310 004 034|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 034|164 325|164 101 7; REV; ERASE; YE17; SHL-22; SHL+32;
7470/2: 161 301|065|210 321 077|200 277 076 SHA-32; REV; JSP718; J11;
7471/5: 310 004 034|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 077 V5P0; JSP718; (;SETN);
7476/0: 304 000 073|210 321 077|215 260 146 11; SETB73; JSP718; J2P705; (CHECK IN PR TEST);
7477/3: 052|300 006 242|210 321 077|215 260 146 8; ERASE; V98P0; JSP718; J2P705; (ZERO); (CHECK IN PR LIST);
7501/1: 052|300 006 242|210 321 077|300 006 203|210 321 077|215 260 146
9; ERASE; V98P0; JSP718; V67P0; JSP718; J2P705; (ZERO LIST);
=== Start P495V-1; at address 3908/7504
7504/0: 173 000|052|310 004 060|170 103|310 110 201|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 303 2; M+I4; ZERO; JSP730;
7515/3: 304 000 031|313 110 200|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 200|171 102|056|036|171 122|056|170 130
9; M4TOQ7; SETAZ0; SETAY0; M4; +; -; M5; +; =C5;
7523/1: 041|311 004 063 ZERO; =YE40; (CLEAR COND. EXP. TYPE);
7523/5: 213 321 123|310 004 025|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 063|210 321 303 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 063|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 303|213 321 123 4; M+I4; M+I4; ZERO; JSP730; JS10P718;
7537/0: 310 004 025|027|033|164 071|304 000 014|056|323 133 055 YE10; NEG; NOT; SHL+28; SET12; +; =Z50M5Q;
7541/2: 210 321 155|171 062|223 157 151 JSP721; M3; J10=Z;
7542/4: 310 242 205|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 206|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 016|311 004 020|141 100|151 107 10; YE3; =YE5; M-I4; M4TOQ7;
7553/1: 304 053 137|304 030 200|171 102|056|036 SETAZ0; SETAY0; M4; +; -;
7554/5: 171 122|056|170 130 M5; +; =C5;
7555/4: 041|311 004 025 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 303 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 211|304 000 007|054 7; M+I4; YC-1M8; SET7; AND;
7564/5: 042|210 321 303 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 112 =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 303 8; M+I4; ZERO; JSP730;
7573/2: 304 000 031|313 110 200 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 034|164 103|221 117 201 P496; YE17; SHL+33; J1>Z; (Q SET);
7600/2: 041|033|311 004 032 ZERO; NOT; =YE15;
7601/1: 310 004 034|164 105|224 057 223 1; YE17; SHL+34; J2<Z;
7602/3: 310 004 034|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 034|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 064|311 004 041|171 116|311 004 062|210 321 051 5; YF0M4Q; =YE22; Q4; =YE39; JSP716;(RESTART);
7614/3: 310 004 062|170 116|261 117 212 YE39; =Q4; J5C4NZ;
7615/5: 310 004 055|170 122|304 053 055|171 122|056|304 030 200|171 162|056|036
YE34; =M5; SETAZ50; M5; +; SETAY0; M7; +; -;
7620/5: 170 130|041|170 062|310 004 060|170 022|140 020|140 020|200 360 000
=C5; ZERO; =M3; YE37; =M1; M+I1; M+I1; EXIT1;
7623/4: 210 321 017|041|033|311 004 031 2; JSP714; ZERO; NOT; =YE14;
7625/0: 213 321 123|310 004 034|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 034|164 123|164 247|223 157 234 6; YE17; SHL+41; SHL-45; J7=Z; (TYPE=O);
7632/1: 310 004 034|164 265|313 064 064 YE17; SHL-38; =YF0M3Q;
7633/3: 210 321 003 JSP713; (NESTS);
7634/0: 215 320 146 JS2P705;
7634/3: 200 360 000 7; EXIT1;
=== Start P497V-1; at address 3997/7635
7635/0: 310 004 034|042|033|224 157 237 P497; YE17; DUP; NOT; J1=Z;
7636/2: 164 365|210 321 077|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 064|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 200|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 200|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;
=== Start P710V-1; at address 4022/7666
7666/0: 052|200 360 000 P710; ERASE; EXIT1;
[ original source of the next page
=== Start P702V-1; at address 4023/7667
P702; (FETCH MONADIC);
7667/0: 041|033|311 004 062 ZERO; NOT; =YE39;
7667/5: 310 004 041|311 004 042|041|311 004 047|041|311 004 051 1; YE22; =YE23; ZERO; =YE28; ZERO; =YE30;
7672/1: 310 004 034|164 025|164 265|042|311 004 041 YE17; SHL+10; SHL-38; DUP; =YE22;
7674/0: 200 337 241|203 277 277 JSP700; J2;
7675/0: 171 262|304 000 004|036|205 117 307 M11; SET4; -; J3≤Z;
7676/3: 210 321 051|214 260 026 JSP716; (RESTART); J32;
7677/3: 310 004 041|200 337 250|201 277 303 2; YE22; JSP701; J4;
7701/0: 310 270 177|164 101|164 301|311 004 051|204 277 310 Y-1M11; SHL+32; SHL-32; =YE30; J6;
7703/1: 310 004 041|200 337 260|205 277 306 4; YE22; JSP717; J5;
7704/4: 310 270 177|164 101|164 301|311 004 047|204 277 310 Y-1M11; SHL+32; SHL-32; =YE28; J6;
7706/5: 304 005 266|200 267 061 5; SET1462; JP206; (FAILURE 14/62);
7707/5: 171 262|311 004 045|310 004 062|204 157 336 3; M11; =YE26;6; YE39; J7≠Z; (MONADIC);
(DIADIC FETCH);
7711/4: 310 004 047|204 157 316 YE28; J12≠Z;
7712/4: 310 004 051|202 157 327 YE30; J13≠Z;
7713/4: 310 004 050|204 157 352 YE29; J14≠Z;
7714/4: 310 004 052|200 157 356 YE31; J15≠Z;
7715/4: 210 320 264|201 277 365 JSP709; J16;
7716/4: 310 004 050|201 157 323|310 004 052|201 157 322 12; YE29; J17≠Z; YE31; J18≠Z;
7720/4: 310 004 046|213 320 250|200 277 325 YE27; JS1P708; (NS2); J19;
7722/1: 212 321 317|200 277 325 18; JS1P711; (PPR2); J19;
7723/1: 310 004 050|310 004 034|164 051|210 321 242 17; YE29; YE17; SHL+20; JSP725;
7725/0: 310 004 047|310 004 034|164 025|210 321 242|201 277 365 19; YE28; YE17; SHL+10; JSP725; J16;
7727/2: 310 004 052|204 157 335|310 004 050|205 157 332 13; YE31; J20≠Z; YE29; J21≠Z;
7731/2: 310 004 046|213 320 250|204 277 334 YE27; JS1P708; (NS2); J22;
7732/5: 310 004 050|310 004 034|164 051|210 321 242 21; YE29; YE17; SHL+20; JSP725;
7734/4: 210 321 316|201 277 365 22; JSP711; (PPR1); J16;
7735/4: 212 321 317|204 277 334 20; JS1P711; (PPR2); J22;
7; (MONADIC FETCH);
7736/4: 310 004 047|220 157 342 YE28; J8=Z;
7737/4: 310 004 047|310 004 034|164 025|210 321 242 YE28; YE17; SHL+10; JSP725;
7741/3: 200 360 000 11; EXIT1;
7742/0: 310 004 051|223 157 343 8; YE30; J9=Z;
7743/0: 210 261 316 JP711; (TRANSLATE PPR);
7743/3: 210 320 250 9; JSP708;
7744/0: 310 004 034|164 131|164 251 10; YE17; SHL+44; SHL-44;
7745/1: 304 000 007|036|223 157 341 SET7; -; J11=Z;
7746/2: 310 004 034|164 075|223 057 341 YE17; SHL+30; J11<Z;
7747/4: 300 006 207|210 321 077 V71P0; JSP718; (DUP);
7750/4: 310 064 063|313 064 064|210 321 003|200 360 000 YF-1M3; =YF0M3Q; JSP713; EXIT1;
7752/4: 310 004 045|213 320 250|310 004 050|310 004 034|164 051|210 321 242|203 277 357
14; YE26; JS1P708; (NS1); YE29; YE17; SHL+20; JSP725; J23;
7756/0: 310 004 045|213 320 250 15; YE26; JS1P708; (NS1);
7757/0: 212 321 317 JS1P711; (PPR2);
7757/3: 310 004 034|304 000 177|054|200 337 266|201 277 362|201 277 365
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 say this point specifically show P710
[ as dummy always returning non-commutative - EXIT1 DHRH Mar 2018
24; (NO);
7762/1: 300 006 170|210 321 077 V56P0; JSP718; (REV);
7763/1: 310 064 062|310 064 063|311 064 062|311 064 063 YF-2M3; YF-1M3; =YF-2M3; =YF-1M3;
16; (L MARKERS);
7765/1: 310 004 047|310 004 050|056|310 004 051|056|310 004 052|056|220 157 374
YE28; YE29; +; YE30; +; YE31; +; J25=Z;
7770/1: 310 004 050|310 004 052|056|230 140 010 29; YE29; YE31; +; J26=Z;
7771/5: 310 004 047|310 004 051|056|232 140 020 31; YE28; YE30; +; J27=Z;
7773/3: 200 360 000 28; EXIT1;
7774/0: 304 000 003|310 004 034|164 341|054|201 157 370 25; SET3; YE17; SHL-16; AND; J29≠Z; (BOTH WANTED);
7776/0: 310 004 034|164 025|041|166 025|065|041|166 025|065|052|036 YE17; SHL+10; ZERO; SHLD+10; REV; ZERO; SHLD+10; REV; ERASE; -;
10000/3: 210 140 004 J30≠Z;
10001/0: 300 006 207|210 321 077|310 064 063|313 064 064|210 321 003|200 360 000
V71P0; JSP718; YF-1M3; =YF0M3Q; JSP713; (DUP); EXIT1;
[ original source of the next page
10004/0: 300 006 223|210 321 077|310 064 063|310 064 062|313 064 064|313 064 064|210 321 003|200 360 000
30; V83P0; JSP718; YF-1M3; YF-2M3; =YF0M3Q; =YF0M3Q; JSP713; EXIT1;
10010/0: 310 004 034|164 077|225 057 371 26; YE17; SHL+31; J31<Z;
10011/2: 300 006 170|210 321 077|304 000 065|210 321 030 V56P0; JSP718; SETB065; JSP722; (REV);
10013/2: 300 006 207|210 321 077|310 064 063|313 064 064|210 321 003 V71P0; JSP718; YF-1M3; =YF0M3Q; JSP713; (DUP);
10015/5: 300 006 213|210 321 077|304 000 066|210 321 030|200 360 000 V75P0; JSP718; SETB066; JSP722; (CAB); EXIT1;
10020/2: 310 004 034|164 075|223 057 373 27; YE17; SHL+30; J28<Z;
10021/4: 300 006 207|210 321 077|310 064 063|313 064 064|210 321 003 V71P0; JSP718; YF-1M3; =YF0M3Q; JSP713; (DUP);
10024/1: 300 006 210|210 321 077|304 000 012|210 321 030|200 360 000 V72P0; JSP718; SETB012; JSP722; (PERM); EXIT1;
10026/4: 210 261 006 32; J4P713;
=== Start P703V-1; at address 4120/10030
10030/0: 041|311 004 045|041|311 004 046 P703; (FETCH DIADIC); ZERO; =YE26; ZERO; =YE27;
10031/2: 041|042|311 004 050|311 004 052|041|311 004 062 ZERO; DUP; =YE29; =YE31; ZERO; =YE39;
(INITIALISE PR2 PPR2 ETC);
10033/2: 310 004 034|164 051|164 265|042|311 004 041 YE17; SHL+20; SHL-38; DUP; =YE22;
10035/1: 220 157 267 JP702=Z;
10035/4: 310 004 041|200 337 241|210 260 043 YE22; JSP700; J2;
10037/1: 171 262|304 000 004|036|214 100 041 M11; SET4; -; J1≤Z;
10040/4: 210 321 051 JSP716; (RESTART);
10041/1: 214 260 026 J32P702;
10041/4: 171 262|311 004 046|205 277 267 1; M11; =YE27; J1P702;
10043/0: 310 004 041|200 337 250|214 260 046 2; YE22; JSP701; J3;
10044/3: 310 270 177|164 101|164 301|311 004 052|205 277 267 Y-1M11; SHL+32; SHL-32; =YE31; J1P702;
10046/4: 310 004 041|200 337 260|212 260 052 3; YE22; JSP717; J4;
10050/1: 310 270 177|164 101|164 301|311 004 050|205 277 267 Y-1M11; SHL+32; SHL-32; =YE29; J1P702;
10052/2: 304 006 032|200 267 061 4; SET1562; JP206; (FAILURE 15/62);
=== Start P704V-1; at address 4140/10054
P704; (FIX÷FLOAT);
10054/0: 310 004 062|210 140 121 YE39; JP705≠Z; (IF MONADIC);
10055/0: 310 004 034|304 000 177|054|304 000 001|233 020 116 YE17; SETB177; AND; SETB1; J6=; (**);
10057/1: 304 000 021|231 020 117 SETB21; J7=; (÷);
10060/1: 052|310 004 034|164 101|041|166 007|065|041 ERASE; YE17; SHL+32; ZERO; SHLD+3; REV; ZERO;
10062/0: 166 007|065|052|043|036|234 140 103 SHLD+3; REV; ERASE; DUPD; -; J5=Z; (2 CELLS);
10063/3: 065|027|033|042|233 140 066 REV; NEG; NOT; DUP; J1=Z;
10064/4: 027|033|235 140 070 NEG; NOT; J2=Z;
10065/3: 304 006 176|200 267 061 SET1662; JP206; (FAILURE 16/62);
10066/3: 052|304 000 002|036|234 140 075 1; ERASE; SET2; -; J3=Z;
10067/5: 304 006 342|200 267 061 4; SET1762; JP206; (FAILURE 17/62);
10070/5: 027|033|215 140 067 2; NEG; NOT; J4≠Z;
10071/4: 300 006 165|210 321 077|310 004 034|167 101|164 007|304 000 001|166 373|052
V53P0; JSP718; YE17; SHC+32; SHL+3; SETB1; SHLD-3; ERASE;
10074/5: 167 301|215 260 117 SHC-32; J8;
10075/4: 300 006 170|210 321 077|300 006 165|210 321 077|300 006 170|210 321 077
3; V56P0; JSP718; V53P0; JSP718; V56P0; JSP718;
10100/4: 310 004 034|167 107|164 007|304 000 001|166 373|052|167 273|215 260 117
YE17; SHC+35; SHL+3; SETB1; SHLD-3; ERASE; SHC-35; J8;
5; (T1=T2);
10103/4: 027|033|235 140 115 NEG; NOT; J9=Z; (T1=T2=REAL);
10104/3: 304 000 002|036|210 140 116 SET2; -; J10≠Z; (IF NOT INTEGER);
10105/4: 310 004 034|042|304 000 177|054 YE17; DUP; SETB177; AND;
10107/0: 304 000 041|036|215 140 115 SETB41; -; J9≠Z; (IF NOT /);
10110/1: 304 044 000|036|311 004 034 SETB22000; -; =YE17; (T1:=T2:=REAL);
10111/2: 300 006 170|210 321 077|300 006 165|210 321 077 V56P0; JSP718; V53P0; JSP718;
10113/2: 300 006 170|210 321 077 V56P0; JSP718; (REV; JSP203; REV;); (I.E. FLOAT N2);
10114/2: 300 006 165|210 321 077 V53P0; JSP718; (JSP2O3;); (I*E. FLOAT N1);
10115/2: 210 260 116 J10;
10115/5: 052 9; ERASE;
10116/0: 210 260 121 10; JP705;
10116/3: 052|210 261 200 6; ERASE; JP723;
10117/1: 052|210 261 220 7; ERASE; JP724;
10117/5: 311 004 034|210 260 121 8; =YE17; JP705;
=== Start P705V-1; at address 4177/10121
P705; (GENERATE OPERANDS);
10121/0: 310 004 034|304 000 003|054|017|017|017|017|017|200 336 014 YE17; SETB3; AND; *JSP465;
[ original source of the next page
10123/3: 213 260 125|213 260 126|211 260 172|215 260 225 J3; J4; J5; J6;
10125/3: 304 007 252|200 267 061 3; SET1962; JP206; (FAILURE 19/62);
10126/3: 310 004 034|164 123|164 247|017|017|200 336 014 4; YE17; SHL+41; SHL-45; *JSP465;
10130/3: 213 260 134|213 260 135|210 260 137|211 260 156|214 260 162|211 260 164|212 260 143|214 260 165
J7; J8; J9; J10; J11; J12; J13; J14;
10134/3: 304 010 016|200 267 061 7; SET2062; JP206; (FAILURE 2O/62);
10135/3: 300 006 171|210 321 077|210 260 143 8; (÷); V57P0; JSP718; J15;
10137/0: 304 000 066|210 321 077 9; (/); SETB66; JSP718;
10140/0: 310 004 034|164 115|164 247|027|033|210 140 143 18; YE17; SHL+38; SHL-45; NEG; NOT; J15≠Z;
10142/0: 304 000 021|210 321 077 16; SETB21; JSP718;
10143/0: 141 060 15; M-I3;
10143/2: 304 000 073|210 321 077 13; SETB73; JSP718; (SEMI-COLON);
10144/2: 310 004 034|041|166 025|042|311 064 063|065|052 1; YE17; ZERO; SHLD+10; DUP; =YF-1M3; (INST TO NSS); REV; ERASE;
10146/2: 214 260 147 J36;
10146/5: 310 004 034|164 265 2; YE17; SHL-38;
10147/4: 200 337 260|214 260 155 36; JSP717; J17; (IS IT IN THE PR LIST);
10150/4: 310 270 177|164 101|164 301|304 015 044|210 321 077|310 004 026|304 000 030|210 321 077
Y-1M11; SHL+32; SHL-32; SETB6444; JSP718; YE11; SETB30; JSP718;
10154/2: 304 000 073|210 321 077|141 060 SETB73; JSP718; M-I3;
10155/4: 200 360 000 17; EXIT1;
10; (MULT);
10156/1: 304 000 065|210 321 077 SETB65; JSP718;
10157/1: 310 004 034|164 115|164 247|027|033 YE17; SHL+38; SHL-45; NEG; NOT;
10160/4: 230 140 142 J16=Z;
10161/1: 300 006 172|210 321 077|210 260 143 V58P0; JSP718; (*D; CONT); J15;
10162/4: 304 000 054|210 321 077|210 260 140 11; (+); SETB54; JSP718; J18;
10164/1: 304 000 055|210 321 077|210 260 140 12; (-); SETB55; JSP718; J18;
10165/4: 300 006 173|210 321 077|310 004 034|164 115|164 247|027|033|212 140 143
14; (M-); V59P0; JSP718; YE17; SHL+38; SHL-45; NEG; NOT; J13≠Z;
10170/4: 304 000 021|210 321 077|212 260 143 SETB21; JSP718; J13;
5; (TYPE 2 OPERAND I.E., RELATIONAL);
10172/1: 310 004 034|164 101|164 247|027|033|231 140 175 YE17; SHL+32; SHL-45; NEG; NOT; J19=Z;
10174/1: 300 006 174|214 260 175 V60P0; J20;
10175/1: 300 006 175 19; V61P0;
10175/4: 210 321 077 20; JSP718; (SIGN OR SIGNF);
10176/1: 310 004 034|164 123|164 247|017|017|017|017|200 336 014 YE17; SHL+41; SHL-45; *JSP465;
10200/3: 213 260 205|210 260 210|213 260 213|210 260 216|213 260 221|210 260 224|213 260 204|213 260 204
J21; J22; J23; J24; J25; J26; J28; J28;
10204/3: 304 010 162|200 267 061 28; SET2162; JP206; (FAILURE 21/62);
10205/3: 300 006 176|210 321 077|300 006 143|210 321 077|210 260 225 21; V62P0; JSP718; V35P0; JSP718; J27;
10210/0: 300 006 201|210 321 077|300 006 200|210 321 077|300 006 177|210 321 077|210 260 225
22; V65P0; JSP718; V64P0; JSP718; V63P0; JSP718; J27;
10213/3: 300 006 202|210 321 077|300 006 177|210 321 077|210 260 225 23; V66P0; JSP718; V63P0; JSP718; J27;
10216/0: 300 006 176|210 321 077|300 006 143|210 321 077|300 006 177|210 321 077|210 260 225
24; V62P0; JSP718; V35P0; JSP718; V63P0; JSP718; J27;
10221/3: 300 006 201|210 321 077|300 006 200|210 321 077|210 260 225 25; V65P0; JSP718; V64P0; JSP718; J27;
10224/0: 300 006 202|210 321 077 26; V66P0; JSP718;
10225/0: 141 060|212 260 144 27; M-I3; J1; (IS PR);
6; (BODEAN OPERATORS);
10225/5: 310 004 034|164 123|164 247|200 336 014 YE17; SHL+41; SHL-45; *JSP465;
10227/3: 213 260 233|210 260 235|213 260 236|210 260 240|213 260 243|212 260 245|212 260 245|212 260 245
J29; J30; J31; J32; J33; J34; J34; J34;
10233/3: 300 006 203|210 321 077|212 260 144 29; (NOT); V67P0; JSP718; J1;
10235/0: 300 006 204|210 321 077|213 260 244 30; (AND); V68P0; JSP718; J35;
10236/3: 300 006 205|210 321 077|213 260 244 31; (OR); V69P0; JSP718; J35;
10240/0: 300 006 170|210 321 077|300 006 177|210 321 077|300 006 205|210 321 077|213 260 244
32; (IMP); V56P0; JSP718; V63P0; JSP718; V69P0; JSP718; J35;
10243/3: 300 006 206|210 321 077 33; (EQU); V70P0; JSP718;
10244/3: 141 060|212 260 144 35; M-I3; J1;
10245/2: 304 010 326|200 267 061 34; SET2262; JP206; (FAILURE 22/62);
=== Start P707V-1; at address 4263/10247
10247/0: 304 015 042|200 267 061 P707; SET3362; JP206;
=== Start P708V-1; at address 4264/10250
P708; (MONADIC MANIPULATIONS);
10250/0: 310 004 045 YE26;
10250/3: 027|033|017|200 336 014 1; NEG; NOT; *JSP465;
10251/3: 200 360 000|213 260 253|213 260 255|213 260 257 EXIT1; J2; J3; J4;
10253/3: 300 006 170|210 321 077|304 000 065|210 261 030 2; V56P0; JSP718; SETB065; JP722; (REV);
[ original source of the next page
10255/3: 300 006 213|210 321 077|304 000 066|210 261 030 3; V75P0; JSP718; SETB066; JP722; (CAB);
10257/3: 300 006 211|210 321 077|300 006 170|210 321 077 4; V73P0; JSP718; V56P0; JSP718;
10261/3: 300 006 212|210 261 030 V74P0; (REVD REV); JP722;
(* original version )
=== Start P709V0; at address 4276/10264
P709V0; (DIADIC MANIPULATIENE);
10264/0: 310 004 045|230 140 266 YE26; J1=Z;
10265/0: 310 004 046|210 140 267 YE27; J2≠Z;
10266/0: 304 011 072|200 267 061 1; SET2362; JP206; (FAILURE 23/62);
10267/0: 310 004 045|310 004 046|036|215 100 274 2; YE26; YE27; -; (NS1-NS2); J3≤Z;
10270/4: 310 004 034|304 000 177|054|200 337 266|215 260 274 YE17; SETB177; AND; JSP710; J3;
10272/5: 310 064 062|310 064 063|311 064 062|311 064 063 YF-2M3; YF-1M3; =YF-2M3; =YF-1M3;
10274/5: 310 004 045|161 005|310 004 046|056|304 000 005|036|042|311 000 263|017|017|200 336 014
3; YE26; SHA+2; YE27; +; SET5; -; DUP; =V0; *JSP465;
10300/3: 213 260 310|200 360 000|213 260 313|213 260 316|213 260 321|213 260 321|213 260 323|213 260 325
J4; EXIT1; J6; J7; J8; J8; J10; J11;
10304/3: 213 260 331|213 260 333|213 260 331|213 260 336|213 260 340|213 260 344|213 260 350|213 260 350
J12; J13; J12; J15; J16; J17; J18; J18;
10310/3: 300 006 207|210 321 077 4; V71P0; JSP718; (DUP);
10311/3: 310 064 063|313 064 064|210 321 003|200 360 000 5; YF-1M3; =YF0M3Q; JSP713; (NESTS); EXIT1;
10313/3: 300 006 213|210 321 077|300 006 170|210 321 077|300 006 214|213 260 353
6; V75P0; JSP718; V56P0; JSP718; V76P0; J20; (CAB. REV);
10316/3: 300 006 210|210 321 077|300 006 211|210 321 077|300 006 215|213 260 353
7; V72P0; JSP718; V73P0; JSP718; V77P0; J20; (PERM, REVD);
10321/3: 300 006 170|210 321 077|304 000 065|213 260 353 8; V56P0; JSP718; SETB065; J20; (REV); [hux was p715
10323/3: 300 006 210|210 321 077|304 000 012|213 260 353 10; V72P0; JSP718; SETB012; J20; (PERM);
10325/3: 300 006 213|210 321 077|300 006 170|210 321 077 11; V75P0; JSP718; V56P0; JSP718;
10327/3: 300 006 211|210 321 077|300 006 216|213 260 353 V73P0; JSP718; V78P0; J20; (CAB REV REVD);
10331/3: 300 006 213|210 321 077|304 000 066|213 260 353 12; V75P0; JSP718; SETB066; J20; (CAB);
10333/3: 300 006 210|210 321 077|300 006 170|210 321 077|300 006 217|213 260 353
13; V72P0; JSP718; V56P0; JSP718; V79P0; J20; (PERM, REV);
10336/3: 300 006 211|210 321 077|304 000 051|213 260 353 15; V73P0; JSP718; SETB051; J20; (REVD);
10340/3: 300 006 210|214 261 105|300 006 211|210 321 077|300 006 170|210 321 077|300 006 220|213 260 353
16; V72P0; J6P718; V73P0; JSP718; V56P0; JSP718; V80P0; J20; (PERM REVD REV);
10344/3: 300 006 210|210 321 077|300 006 211|210 321 077|300 006 210|210 321 077|300 006 221|213 260 353
17; V72P0; JSP718; V73P0; JSP718; V72P0; JSP718; V81P0; J20; (PERM REVD PERM);
10350/3: 300 006 211|210 321 077|300 006 170|210 321 077|300 006 222|213 260 353
18; V73P0; JSP718; V56P0; JSP718; V82P0; J20; (REVD REV);
10353/3: 210 321 030|310 000 263|304 000 005|044|232 140 356 20; JSP722; V0; SET5; %I; J9=Z;
10355/4: 052|200 360 000 ERASE; EXIT1;
10356/2: 052|310 000 263|213 140 310 9; ERASE; V0; J4≠Z;
10357/3: 200 360 000 EXIT1;
=== Start P712V-1; at address 4336/10360
P712; (LOCALE);
10360/0: 310 004 057|164 061|164 257|214 140 376 YE36; SHL+24; SHL-41; J1≠Z;
10361/4: 310 004 057|164 041|164 261|042|231 140 377 YE36; SHL+16; SHL-40; DUP; J2=Z;
10363/3: 042|027|033|232 141 000 DUP; NEG; NOT; J3=Z;
10364/3: 164 121|200 334 332|211 261 001|320 333 055|304 000 100|054|212 140 372
SHL+40; JSP3; J7; Z50M13; SETB100; AND; J4≠Z;
10367/3: 164 261|304 011 014|210 321 077 SHL-40; SETB4414; JSP718; (YA(LEVEL));
10370/5: 300 006 166|210 321 077|214 260 374 V54P0; JSP718; (:=M3;); J5;
10372/2: 164 261|300 006 105|210 321 077 4; SHL-40; V5P0; JSP718; (:SET(LEVEL));
10373/4: 300 006 167|210 321 077 V55P0; JSP718;
10374/4: 304 000 003 5; SET3;
10375/1: 164 043|310 004 057|011|311 004 057 6; SHL+17; YE36; OR; =YE36;
10376/4: 200 360 000 1; EXIT1;
10377/1: 052|310 004 026|211 260 375 2; ERASE; YE11; J6;
10400/2: 052|041|211 260 375 3; ERASE; ZERO; J6;
10401/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 4355/10403
P713; (NESTS);
10403/0: 171 062|304 000 012|036|214 101 014 M3; SET10; -; J1≤Z;
10404/3: 310 004 064|311 004 041 YF0; =YE22; (INSTR. NO. OF BOTTOM CELL);
10405/3: 210 321 051 JSP716; (RESTART);
4; (ALSO PROM 32P7O2);
10406/0: 310 004 055|170 122 YE34; =M5;
10406/5: 041|170 063 ZERO; =RM3;
10407/2: 310 004 060|170 036|144 020|140 020|140 020 YE37; =Q1; I1=1; M+I1; M+I1;
10411/1: 173 000|304 056 012|164 101|164 301|235 021 013 2; LINK; SETAR76P414; SHL+32; SHL-32; J3=;
10413/1: 052|211 261 011 ERASE; J2;
10413/5: 174 000|201 276 331 3; =LINK; J2P486; (RETURN);
10414/4: 310 004 061|171 062|032|001|311 004 061 1; YE38; M3; MAX; VR; =YE38;
[ original source of the next page
10416/2: 052|200 360 000 ERASE; EXIT1;
=== Start P714V-1; at address 4367/10417
P714; (NSS TO PR);
10417/0: 171 062|234 141 025 2; M3; J1=Z;
10417/5: 141 060|310 064 064|311 004 041|210 321 135 M-I3; YF0M3; =YE22; JSP720; (PR ENTRY);
10421/4: 300 006 102|210 321 077 V2P0; JSP718; (=Y (PPR));
10422/4: 310 004 026|304 000 030|210 321 077 YE11; SETB30; JSP718; (M (MOD));
10424/1: 304 000 073|210 321 077|210 261 017 SETB73; JSP718; (SEMICOLON); J2;
10425/4: 200 360 000 1; EXIT1;
=== Start P722V0; at address 4376/10430
10430/0: 042|311 001 034|311 001 027 P722V0; DUP; =R1; =V0;
10431/1: 310 064 060|310 064 061|310 064 062|310 064 063 YF-4M3; YF-3M3; YF-2M3; YF-1M3;
10433/1: 017|017|017|017|017|017 *1; DUMMY;
10434/1: 017|017|017|017|017|311 064 063|311 064 062|311 064 061|311 064 060|200 360 000
* =YF-1M3; =YF-2M3; =YF-3M3; =YF-4M3; EXIT1;
=== Start P731V-1; at address 4384/10440
10440/0: 200 336 014 P731; *JSP465;
10440/3: 200 360 000|200 276 334|200 276 361|200 276 361|200 276 363|210 261 363|200 277 001
EXIT1; JP488; JP489; JP489; JP490; JP491; JP492;
10444/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;
10447/0: 200 360 000|200 360 000|200 277 235 EXIT1; EXIT1; JP497;
=== Start P716V-1; at address 4393/10451
10451/0: 213 321 123 P716; (RESTART); JS10P718;
10451/3: 151 024|145 100 M1TOQ4; I4=-1;
10452/1: 140 100 3; M+I4;
10452/3: 310 110 200|304 000 017|054 Y0M4; SETB17; AND;
10453/4: 304 000 011|231 021 072 SETB11; J1=;
10454/4: 304 000 007|231 021 072 SETB7; J1=;
10455/4: 052|310 110 200|304 000 177|054|304 000 025|235 021 066 ERASE; Y0M4; SETB177; AND; SETB25; J2=;
10460/0: 304 000 026|235 021 066 SETB26; J2=;
10461/0: 052|310 110 200|164 265|310 004 041|036|211 141 052 ERASE; Y0M4; SHL-38; YE22; -; J3≠Z;
10463/1: 310 110 200|304 000 177|054|304 000 005|036|210 141 071|171 102|210 321 150|200 360 000
Y0M4; SETB177; AND; SET5;-; J4≠Z; M4; JSP726; (GENERATE PPR); EXIT1;
10466/5: 052|310 110 200|164 353|304 000 057|054|231 141 052 2; ERASE; Y0M4; SHL-11; SETB57; AND; J3=Z;
10471/0: 210 321 135|052|200 360 000 4; JSP720; (GENERATE PR); ERASE; EXIT1;
10472/1: 052|304 012 002|200 267 061 1; ERASE; SET2562; JP206; (FAILURE 25/62);
=== Start P718V2; at address 4415/10477
P718V2; (OUTPUT TO O/L); (N1=CH. STRING, N2=INTEGER);
V-store at 10474 = 000 000 000 000 000 000 V0=0;
V-store at 10475 = 000 052 377 377 000 010 V1=Q42/-1/8;
V-store at 10476 = 000 000 012 050 242 212 V2=B1212121212;
10477/0: 310 001 075|170 276|001 V1; =Q11; VR;
10500/0: 041|304 000 011|170 262 5; ZERO; SET9; =M11;
10501/0: 166 015|042|140 260|214 141 105 7; SHLD+6; DUP; M+I11; J6≠Z;
10502/2: 171 262|210 141 101|141 260|214 261 105 M11; J7≠Z; M-I11; J6;
10504/0: 041|166 015|140 260|171 262|231 141 115 1; ZERO; SHLD+6; M+I11; M11; J2=Z;
10505/4: 164 260|310 001 074|011|311 001 074|304 377 372|172 270|270 261 104
6; SHLC11; V0; OR; =V0; SET-6; =+C11; J1C11NZ;
10510/3: 310 001 074|304 000 077|011|323 133 055|271 121 113 V0; SETB77; OR; =Z50M5Q; J9C5NZ;
10512/4: 200 335 001 JSP407;
10513/1: 041|311 001 074|304 000 052|170 270|210 261 104 9; ZERO; =V0; SET42; =C11; J1;
10515/1: 052|052|231 241 122|042|215 041 117 2; ERASE; ERASE; J3EN; DUP; J8≥Z;
10516/4: 027|304 000 055|210 261 100 NEG; SETB55; J5;
10517/5: 310 001 076|065|067|210 201 100 8; V2; REV; FRB; J5NV;
10521/1: 304 012 146|200 267 061 4; SET2662; JP206; (FAILURE);
10522/1: 171 276|311 001 075|200 360 000 3; Q11; =V1; EXIT1;
10523/3: 310 001 075|170 276 10; V1; =Q11;
10524/2: 304 000 077|164 260|310 001 074|011|311 001 074|304 377 372|172 270|272 261 124
11; SETB77; SHLC11; V0; OR; =V0; SET-6; =+C11; J11C11NZ;
10527/4: 304 000 077|310 001 074|011|323 133 055|272 121 132 SETB77; V0; OR; =Z50M5Q; J12C5NZ;
10531/5: 200 335 001 JSP407;
10532/2: 041|311 001 074|304 000 052|170 270|211 261 122 12; ZERO; =V0; SET42; =C11; J3;
=== Start P720V-1; at address 4445/10535
P720; (GENERATE A PR);
10535/0: 310 004 041|164 041|310 004 020|056|313 050 200|143 120|272 121 140
YE22; SHL+16; YE5; +; =Y0M2Q; DC5; J1C5NZ;
10537/5: 200 335 001 JSP407;
10540/2: 310 004 020 1; YE5; ( YE2; =M4; Z51M4; SHL+24; SHL-36; YE5; -; J2=Z; Hux BETA correction - query)
10540/5: 310 004 020|033|027|311 004 020|213 261 145 YE5; NOT; NEG; =YE5; J3;
[ original source of the next page
10542/4: 320 113 054|042|304 000 077|054|065 2; Z51M4; DUP; SETB77; AND; REV;
10544/1: 164 061|164 271|056 SHL+24; SHL-36; +;
10545/0: 311 004 020 =YE5; (PRP;=FSR+PLANK);
10545/3: 310 004 020|310 004 017|032|311 004 017|052|001|200 360 000 3; YE5; YE4; MAX; =YE4; ERASE; VR; EXIT1;
=== Start P726V-1; at address 4456/10550
P726; (GENERATE A PPR); (I DASH IN N1);
10550/0: 310 004 041|027|164 041|056|313 050 200|143 120|270 121 153 YE22; NEG; SHL+16; +; =Y0M2Q; DC5; J1C5NZ;
10552/3: 200 335 001 JSP407;
10553/0: 200 360 000 1; EXIT1;
=== Start P721V0; at address 4461/10555
10555/0: 310 110 177 P721V0; (JSP901;) (OUTPUT); Y-1M4;
10555/3: 164 025|167 025|164 071|304 000 012|056|311 001 154 SHL+10; SHC+10; SHL+28; SETB12; +; =V0;
10557/4: 041|170 303|214 261 162 ZERO; =RM12; J2;
10560/4: 320 313 055|310 001 154|036|230 141 165 3; Z50M12; V0; -; J1=Z;
10562/2: 141 300 M-I12;
10562/4: 171 302|171 122|036|214 141 160 2; M12; M5; -; J3≠Z;
10564/0: 304 013 222|200 267 061 SET2962; JP206; (FAILURE 29/62);
10565/0: 171 302|210 321 332|171 342|027|033|042|170 342 1; M12; JSP719; M14; NEG; NOT; DUP; =M14;
10567/0: 171 122|036|230 141 171 M5; -; J4=Z;
10570/0: 304 013 366|200 267 061 SET3062; JP206; (FAILURE 3O/62);
10571/0: 304 030 177|171 102|027|033|170 162 4; SETAY-1; M4; NEG; NOT; =M7;
10572/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 4480/10600
P723V1; (**);
10600/0: 310 004 034|164 101|041|166 007|311 001 176|041|166 007|311 001 177|052
YE17; SHL+32; ZERO; SHLD+3; =V0; ZERO; SHLD+3; =V1; ERASE;
(T1 IN VO, T2 IN V1);
10603/0: 310 001 176|304 000 002|036|210 141 211 V0; SET2; -; J1≠Z;
10604/4: 310 001 177|027|033|233 141 207 V1; NEG; NOT; J2=Z;
10606/0: 300 006 225|210 321 077|215 261 214 V85P0; JSP718; J4;
10607/3: 300 006 230|210 321 077|215 261 214 2; V88P0; JSP718; (JS1P231); J4;
10611/0: 310 001 177|027|033|235 141 213 1; V1; NEG; NOT; J5=Z; (IF REAL);
10612/2: 300 006 226|210 321 077|215 261 214 V86P0; JSP718; (JS3P231); J4;
10613/5: 300 006 227|210 321 077 5; V87P0; JSP718; (JS2P231);
10614/5: 141 060|212 260 144 4; M-I3; J1P705; (IS IT A PR);
=== Start P724V1; at address 4496/10620
P724V1; (INTEGER ÷, FIX÷FLOAT OPERANDS);
10620/0: 310 004 034|164 101|041|166 007|311 001 216|041|166 007|311 001 217
YE17; SHL+32; ZERO; SHLD+3; =V0; (T1); ZERO; SHLD+3; =V1; (T2);
10622/5: 052 ERASE;
10623/0: 310 001 217|304 000 002|036|215 141 226 V1; SET2; -; J1≠Z;
10624/4: 310 001 216|304 000 002|036|214 141 234 4; V0; SET2; -; J2≠Z;
10626/2: 210 260 121 JP705;
10626/5: 310 001 217|027|033|231 141 231 1; V1; NEG; NOT; J3=Z;
10630/1: 304 014 132|200 267 061 SET3162; JP206; (FAILURE 31/62);
10631/1: 300 006 170|210 321 077|300 006 224|210 321 077|300 006 170|210 321 077|214 261 224
3; V56P0; JSP718; V84P0; JSP718; V56P0; JSP718; J4;
10634/4: 310 001 216|027|033|230 141 237 2; V0; NEG; NOT; J5=Z;
10636/0: 304 014 276|200 267 061 SET3262; JP206; (FAILURE 32/62);
10637/0: 300 006 224|210 321 077|210 260 121 5; V84P0; JSP718; JP705;
=== Start P725V0; at address 4514/10642
10642/0: 164 265|313 064 064|311 001 241|210 321 003 P725V0; (O/P Y(N1)M(MOD)SEMICOLON); SHL-38; =YF0M3Q; =V0; JSP713;
10643/5: 310 001 241|304 000 044|210 321 077|310 004 026|304 000 030|210 321 077
V0; SETB44; JSP718; YE11; SETB30; JSP718;
10646/5: 304 000 073|210 321 077|200 360 000 SETB73; JSP718; EXIT1;
(+ original version - rewritten by DHRH)
=== Start P727V-1; at address 4521/10651
P727; (GENERATE OVERFLOW TEST);
10651/0: 310 004 057|304 010 000|054|230 141 256 YE36; SETB4000; AND; J1=Z;
10652/4: 320 013 071|164 015|230 041 255 2; Z38; SHL+6; J3<Z;
10654/0: 300 006 234|213 261 255 V92P0; (JSP244;); J4;
10655/0: 300 006 244 3; V100P0; (JP233V;);
10655/3: 210 321 077 4; JSP718;
10656/0: 200 360 000 1; EXIT1;
=== Start P728V-1; at address 4527/10657
P728; (O/P Y, YA, YB, Z (ADDRESS));
10657/0: 310 004 057|304 000 200|043|054|212 141 270 YE36; SETB200; DUPD; AND; J1≠Z; (A);
10660/5: 164 003|043|054|212 141 267 SHL+1; DUPD; AND; J2≠Z; (B);
10662/0: 164 003|043|054|212 141 266 SHL+1; DUPD; AND; J3≠Z; (Z);
10663/1: 164 003|043|054|212 141 265 SHL+1; DUPD; AND; J4≠Z; (V);
10664/2: 304 000 044|215 261 270 (Y); SETB44; J5;
10665/2: 304 000 041|215 261 270 4; SETB41; J5;
[ original source of the next page
10666/2: 304 000 045|215 261 270 3; SETB45; J5;
10667/2: 304 011 015|215 261 270 2; SETB4415; J5;
10670/2: 304 011 014 1; SETB4414;
10670/5: 012|052|052|310 004 057 5; PERM; ERASE; ERASE; YE36;
10671/5: 170 376|171 370 =Q15; C15; (ALLOW FOR NEGATIVE ADDRESS);
10672/3: 065|210 321 077|200 360 000 REV; JSP718; EXIT1;
=== Start P729V0; at address 4541/10675
10675/0: 310 004 026|311 001 274|310 004 057|042|164 067 P729V0; YE11; =V0; YE36; DUP; SHL+27;
10677/0: 164 251|311 004 026|170 376|171 370 SHL-44; =YE11; =Q15; C15;
10700/3: 310 004 034|210 321 242|310 001 274|311 004 026|200 360 000 YE17; JSP725; V0; =YE11; EXIT1;
=== Start P730V-1; at address 4547/10703
P730; (TYPE IN N1);
10703/0: 164 011|304 000 012|056|310 004 061|164 021|056 SHL+4; SETB12; +; YE38; SHL+8; +;
10705/0: 310 004 031|164 137|164 275|056|310 004 032|164 137|164 277|056
YE14; SHL+47; SHL-34; +; YE15; SHL+47; SHL-33; +;
10707/4: 310 004 025|027|033|164 071|056|171 102|164 115|056 YE10; NEG; NOT; SHL+28; +; M4; SHL+38; +;
10711/5: 313 110 200|200 360 000 =Y0M4Q; EXIT1;
=== Start P711V2; at address 4558/10716
10716/0: 171 036|310 004 051|211 261 320 P711V2; Q1; (PPR1); YE30; J2;
10717/2: 171 036|310 004 052 1; Q1; YE31; (PPR2);
10720/1: 170 022|311 001 313|310 004 034|311 001 314|310 004 057|311 001 315
2; =M1; =V0; YE17; =V1; YE36; =V2;
10723/0: 312 030 200|311 004 034|210 321 370 Y0M1Q; =YE17; JS1P491;
10724/3: 310 001 313|170 036|310 001 314|311 004 034|310 001 315|311 004 057|200 360 000
V0; =Q1; V1; =YE17; V2; =YE36; EXIT1;
=== Start P719V1; at address 4570/10732
P719V1; (OUTPUT AND O.R.);
10732/0: 170 322|145 320|304 000 101|170 271 =M13; I13=-1; SET65; =RC11;
10733/3: 140 320|320 333 055|304 000 017|054|042 1; M+I13; Z50M13; SETB17; AND; DUP;
10735/1: 232 141 342 J2=Z;
10735/4: 304 000 014|036|232 141 354 SETB14; -; J3=Z;
(INSTRUCTIONS);
10736/5: 320 333 055|167 365|171 276|311 001 331|200 330 060 Z50M13; SHC-6; Q11; =V1; JSP403;
10741/0: 310 001 331|170 276|213 261 333 V1; =Q11; J1;
10742/2: 052|171 336|313 264 077|275 261 344 2; (OR);ERASE; Q13; =YG0M11Q; J7C11NZ;
10743/5: 304 012 312|200 267 061 SET2762; JP206; (FAILURE 27/62);
10744/5: 320 333 055|164 025|167 025|164 071|304 000 012|056 7; Z50M13; SHL+10; SHC+10; SHL+28; SETB12; +;
10747/0: 311 001 330 =V0; (REQUIRED OR);
10747/3: 041|170 322 ZERO; =M13;
10750/0: 320 333 055|310 001 330|036|233 141 333 9; Z50M13; V0; -; J1=Z;
10751/4: 140 320|171 322|171 122|036|210 141 350 M+I13; M13; M5; -; J9≠Z;
10753/2: 304 013 056|200 267 061 SET2862; JP206; (FAILURE 28/62);
10754/2: 171 262|235 141 357 3; (EOR); M11; J8=Z;
10755/1: 141 260|171 270|033|027|170 270|310 264 077|170 336|213 261 333
M-I11; C11; NOT; NEG; =C11; YG0M11; =Q13; J1;
10757/5: 157 336|200 360 000 8; (END OF O/P AN O÷R); Q13TOQ14; EXIT1;
=== Start P706V-1; at address 4593/10761
10761/0: 304 015 206|200 267 061 P706; SET3462; JP206;
=== Start P491V0; at address 4595/10763
10763/0: 310 004 034|164 265|200 337 250|210 261 370 P491V0; (5); YE17; SHL-38; JSP701; J1;
10764/5: 310 004 034|304 000 177|054|304 000 005|036|213 141 367 YE17; SETB177; AND; SET5; -; J45≠Z;
10767/1: 140 020 M+I1;
10767/3: 200 360 000 45; EXIT1;
10770/0: 041|033 1; ZERO; NOT;
10770/2: 311 001 362 2; =V0;
10770/5: 310 004 034|164 123|164 247|200 336 014|213 261 375|213 261 374|212 262 010|213 261 374
YE17; SHL+41; SHL-45; *JSP465; J3; J4; J5; J6;
10774/3: 304 001 006|200 267 061 4;6; SET262; JP206; (FAILURE 2/62);
10775/3: 312 030 200|042|311 004 057 3; Y0M1Q; DUP; =YE36;
10776/4: 164 123|164 247|027|033|231 142 001 SHL+41; SHL-45; NEG; NOT; J7=Z;
11000/1: 304 001 152|200 267 061 SET362; JP206; (FAILURE 3/62);
11001/1: 310 004 057|304 000 001|164 027|043|054|210 142 153 7; YE36; SET1; SHL+11; DUPD; AND; J8≠Z; (L);
11003/2: 164 011|043|054|211 142 131 SHL+4; DUPD; AND; J9≠Z; (R);
11004/3: 164 375|043|054|210 142 123 SHL-2; DUPD; AND; J10≠Z; (F);
11005/4: 164 003|043|054|210 142 067 SHL+1; DUPD; AND; J11≠Z; (S);
11006/5: 164 375|054|210 142 063 SHL-2; AND; J12≠Z; (P);
11007/5: 213 262 042 J13; (NULL);
[ original source of the next page
11010/2: 310 001 362|234 142 013 5; (TYPE 2); V0; J14=Z;
11011/2: 310 004 034|164 265|313 064 064|210 321 003|213 262 015 YE17; SHL-38; =YF0M3Q; JSP713; J15;
11013/4: 200 337 267|304 000 064|210 321 077|141 060 14; JSP702; SETB64; JSP718; (=); M-I3; (S=S-1);
11015/3: 310 004 034|164 061|164 253|042|304 000 037 15; YE17; SHL+24; SHL-43; DUP; SETB37;
11017/2: 015|235 142 040 NEV; J16=Z; (IP C-R ALL SET);
11020/0: 304 000 001|054|231 142 022 SETB1; AND; J17=Z;
11021/1: 304 000 035|210 321 077 SETB35; JSP718; (R);
11022/1: 310 004 034|164 061|164 253 17; YE17; SHL+24; SHL-43;
11023/2: 304 000 002|043|054|210 142 031 SETB2; DUPD; AND; J18≠Z; (Q);
11024/4: 164 003|043|054|210 142 032 SHL+1; DUPD; AND; J19≠Z; (M);
11025/5: 164 003|043|054|210 142 033 SHL+1; DUPD; AND; J20≠Z; (I);
11027/0: 164 003|054|210 142 034 SHL+1; AND; J21≠Z; (C);
11030/0: 304 015 352|200 267 061 SET3562; JP206; (FAILURE 35/62); (NOT ANY OF C-Q);
11031/0: 304 000 034|215 262 037 18; SETB34; J22;
11032/0: 304 000 030|215 262 037 19; SETB30; J22;
11033/0: 304 000 024|215 262 037 20; SETB24; J22;
11034/0: 304 000 016 21; SETB16;
11034/3: 310 004 034|164 051|164 251|065|210 321 077|304 000 073|210 321 077|200 360 000
23; YE17; SHL+20; SHL-44; REV; JSP718; SETB73; JSP718; EXIT1;
11037/5: 012|052|052|213 262 034 22; PERM; ERASE; ERASE; J23;
11040/5: 052|300 006 233|210 321 077|200 360 000 16; (LINK); ERASE; V91P0; JSP718; EXIT1;
13; (NULL);
11042/3: 310 004 057|164 117|232 042 044 YE36; SHL+39; J46<Z; (IF OWN);
11043/5: 210 320 360 JSP712; (LOCALE);
11044/2: 310 001 362|211 142 050 46; V0; J24≠Z;
11045/2: 200 337 267|141 060 JSP702; M-I3;
11046/1: 210 321 251|304 000 064|210 321 077|210 262 052 JSP727; (OVERFLOW ROUTINE);26; SETB64; JSP718; (=); J43;
11050/1: 310 004 034|164 265|313 064 064|210 321 003 24; YE17; SHL-38; =YF0M3Q; JSP713; (NESTS);
11052/0: 210 321 257|310 004 057|164 113|164 251|213 142 061 43; JSP728; (Y(CH)ADD); YE36; SHL+37; SHL-44; J32≠Z;
11054/1: 310 004 057|164 067|164 251|304 000 030|210 321 077 YE36; SHL+27; SHL-44; SETB30; JSP718; (M(MOD));
11056/2: 310 004 057|164 077|233 102 061 YE36; SHL+31; J32>Z;
11057/4: 041|033|311 004 032 ZERO; NOT; =YE15; (Q-FLAG);
11060/3: 304 000 034|210 321 077 SETB34; JSP718; (Q);
11061/3: 304 000 073|210 321 077|210 262 151 32; SETB73; JSP718;(;); J47;
12; (P);
11063/0: 210 320 360 JSP712; (LOCALE);
11063/3: 210 321 275 JSP729;
11064/0: 300 006 235|210 321 077 V93P0; JSP718; (JSP2O8;);
11065/0: 041|033|311 004 031 ZERO; NOT; =YE14; (SET S FLAG);
11065/5: 141 060|141 060 M-I3; M-I3; (S:=S-2);
11066/3: 200 360 000 EXIT1;
11; (S);
11067/0: 052|052 ERASE; ERASE;
11067/2: 310 001 362|215 142 112 V0; J33≠Z;
11070/2: 310 004 034|167 025|041|166 025|065|041|166 025 YE17; SHC+10; ZERO; SHLD+10; REV; ZERO; SHLD+10;
11072/2: 012|065|166 355|052|065|166 355|052 PERM; REV; SHLD-10; ERASE; REV; SHLD-10; ERASE;
11073/5: 167 051|041|166 003|065|164 003|065|166 377 SHC+20; ZERO; SHLD+1; REV; SHL+1; REV; SHLD-1;
11075/4: 052|164 377|167 045|304 000 001|164 043|056|311 004 034 ERASE; SHL-1; SHC+18; SET1; SHL+17; +; =YE17; (INTERCHANGE 01 AND 02 AND PUT L1 INTO
11100/0: 210 320 030 L2); JSP703; (DIADIC FETCH);
11100/3: 300 006 166|210 321 077 V54P0; JSP718; (=M3;);
11101/3: 210 321 251 JSP727; (OVERFLOW);
11102/0: 304 000 064|210 321 077 34; SETB64; JSP718; (=);
11103/0: 171 062|304 000 002|036|170 062 M3; SET2; -; =M3; (S:=S-2);
11104/2: 310 004 057|304 001 000|054|230 142 107 37; YE36; SETB400; AND; J35=Z;
11106/0: 304 011 015|213 262 107 SETB4415; J36;
11107/0: 304 000 044 35; SETB44;
11107/3: 310 004 057|170 376|171 370 36; YE36; =Q15; C15; (ALLOW FOR NEG. ADDRESS);
11110/4: 065 REV;
11110/5: 200 336 315|300 006 236|210 321 077|210 262 151 JSP715; V94P0; JSP718; (M3;); J47;
[ original source of the next page
11112/5: 310 004 034|167 025|164 025|041|166 025 33; YE17; SHC+10; SHL+10; ZERO; SHLD+10;
11114/3: 065|164 355|065|166 355|052 REV; SHL-10; REV; SHLD-10; ERASE;
11115/4: 167 053|033|027|167 043 SHC+21; NOT; NEG; SHC+17; (SET L1);
11116/4: 311 004 034|200 337 267 =YE17; JSP702; (MONADIC
FETCH TO OBTAIN MODIFIER);
11117/4: 300 006 166|210 321 077 V54P0; JSP718; (=M3);
11120/4: 310 004 034|164 265|311 064 063 YE17; SHL-38; =YF-1M3; (I.E. STORE AND S:=S-1 C0MBINED);
11122/0: 210 321 003|212 262 104 JSP713; J37;
11123/0: 052|052 10; (F); ERASE; ERASE;
11123/2: 310 001 362|212 142 125 V0; J38≠Z;
11124/2: 304 001 316|200 267 061 SET462; JP206; (FAILURE 4/62);
11125/2: 210 321 017|210 320 360 38; JSP714; JSP712;
11126/2: 210 321 275 JSP729; (O/P Y(ADDRESS)M(MODIFIER)SEMI C0L0N);
11126/5: 300 006 237|210 321 077|041|033|311 004 031 V95P0; JSP718; ZERO; NOT; =YE14;
11130/4: 210 262 151 J47;
11131/1: 052|052|210 320 360 9; (R); ERASE; ERASE; JSP712;
11132/0: 310 001 362|210 142 134 V0; J39≠Z;
11133/0: 200 337 267|215 262 135 JSP702; J40;
11134/0: 310 004 034|164 265|313 064 064|210 321 003 39; YE17; SHL-38; =YF0M3Q; JSP713;
11135/5: 310 004 015|170 102|320 113 054|164 061|164 271|310 004 057|164 061
40; YE2; =M4; Z51M4; SHL+24; SHL-36; YE36; SHL+24;
11140/4: 164 257|056|304 000 044|210 321 077 SHL-41; +; SETB44; JSP718; (Y(R+FIXED));
11142/1: 310 004 026|304 000 030|210 321 077|300 006 166|210 321 077 YE11; SETB30; JSP718; (M(MOD)); V54P0; JSP718; (:=M3;);
11144/4: 310 001 362|213 142 147 V0; J41≠Z;
11145/4: 304 000 064|210 321 077|141 060|210 321 251 SETB64; JSP718; M-I3; JSP727; (OVERFLOW);
11147/3: 210 321 257|300 006 236|210 321 077 41; JSP728; V94P0; JSP718;
11151/0: 310 001 362|233 142 152|215 260 146 47; V0; J48=Z; J2P705;
11152/3: 200 360 000 48; EXIT1;
11153/0: 052|052|310 004 034|304 000 017 8; (L); ERASE; ERASE; YE17; SETB17;
11154/2: 054|304 000 006|036|232 142 162 AND; SET6; -; J44=Z;
11155/4: 210 320 360 JSP712;
11156/1: 210 321 275 JSP729;
11156/4: 310 004 057|164 105|235 102 161 YE36; SHL+34; J42>Z;
11160/0: 300 006 237|210 321 077|041|033|311 004 031 V95P0; JSP718; ZERO; NOT; =YE14;
11161/5: 200 360 000 42; EXIT1;
11162/2: 310 004 057|167 111|164 003|164 377 44; YE36; SHC+36; SHL+1; SHL-1;
11163/5: 167 271|311 004 057|214 321 252 SHC-36; =YE36; JS2P727;
11165/1: 211 262 001 J7;
=== Start P-1V-1; at address 4726/11166
Finished
FINISH;
Reached end of file