Kidsgrove Algol Compiler - Brick 41
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 41.
Hot links to images of individual pages are embedded in the text.
Loaded 72996 bytes for KAB41.txt
Relocated 17
Finished
Reached end of file
=============== Second pass
===========================
11006 W0 = E4614
16300 Y0 = E7360
11021 YA0 = E4625
11022 YB0 = E4626
11476 YC0 = E4926
11561 YD0 = E4977
11726 YE0 = E5078
11753 YF0 = E5099
12574 YG0 = E5500
12657 YH0 = E5551
12704 YJ0 = E5572
13051 YK0 = E5673
13110 YL0 = E5704
13311 YN0 = E5833
13456 YP0 = E5934
14133 YR0 = E6235
14300 YY0 = E6336
15300 YZ0 = E6848
0/0: 200 266 100 [ original source of the next page verified by copy typing
[ bug corrected at R69P388V36 Sept 2021
ST11104; TL600; START1600;
Y0=E;
V; W10;
YA0; YB299; YC50;
YD100; YE20; YF400;
YG50; YH20; YJ100;
YK30; YL128;
YN100; YP300;
YR100;
YY511; YZ511;
4/0: 201 266 111|201 266 111 RESTART; J1; J1;
PROGRAM;
3100/0: 041 ZERO;
3100/1: 320 013 123|164 101|161 301|304 053 055|056 6; Z12; SHL+32; SHA-32; SETAZ50; +;
3102/0: 304 022 021|036|170 371 SETAYA0; -; =RC15;
3103/0: 041|313 362 021|017|017|177 360 *4; ZERO; =YA0M15Q; *J4C15NZS;
3104/2: 204 146 106 5; J7≠Z;
3104/5: 210 321 316|200 334 226|041|033|201 266 100 JSP899; JSP360; ZERO; NOT; J6;
7;
3106/4: 304 005 022 SETB2422;
3107/1: 170 025|304 336 010|170 022|171 036|200 260 106 2; =RI1; SETB157010; =M1; Q1; JE70;
3111/1: 320 013 070|221 046 113 1; Z39; J3<Z;
3112/1: 304 017 311|200 266 175 SET4041; JP7;
3113/1: 304 006 125|201 266 107 3; SETB3125; J2;
=== Start P2V8; at address 1622/3126
V-store at 03115 = 032 300 033 277 000 000 P2V8; V0=QAYZ0/AYZ255/0; (buffer 1);
V-store at 03116 = 033 300 034 277 000 000 V1=QAYZ256/AYZ511/0; (buffer 2);
V-store at 03121 = 242 104 243 304 140 004 V4=B5044224361060004; (F/B/C);
V-store at 03122 = 000 000 000 000 340 004 V5=B160004; (transfer);
V-store at 03123 = 000 000 000 000 110 004 V6=B44004; (CBN);
V-store at 03125 = 000 000 000 000 152 004 V8=B65004; (skip to block N);
3126/0: 300 006 117 V2; (fetch next word normal entry);
3126/3: 170 376|240 366 141 10; =Q15; J7C15Z;
3127/2: 102 360|171 376 M0M15Q; Q15;
3130/0: 301 006 117|041|301 006 120 14; =V2; ZERO; =V3;
3131/1: 200 360 000 EXIT1; (normal exit);
(initial entry forwards read);
3131/4: 300 006 116|300 006 121|170 376|171 370 1; V1; V4; =Q15; C15;
3133/2: 300 006 115|170 376|170 362|171 376|200 320 106 6; V0; =Q15; =M15; Q15; JSE70;
3135/2: 201 266 143 J13;
3135/5: 300 006 123|200 320 106 V6; JSE70;
3136/5: 201 266 143 J13;
3137/2: 301 006 124|042|200 146 130|201 266 143 =V7; DUP; J14≠Z; J13;
3141/0: 300 006 122|200 320 106 7; V5; JSE70;
3142/0: 201 266 143 J13;
3142/3: 042|203 146 126 8; DUP; J10≠Z;
3143/1: 304 037 315|200 266 175 13; SET8141; JP7;
3144/1: 300 006 121|200 320 106 3; V4; JSE70;
3145/1: 201 266 146 J2;
3145/4: 200 360 000 EXIT1;
3146/1: 304 037 315|203 266 177 2; SET8141; J1P7;
=== Start P6V6; at address 1647/3157
V-store at 03150 = 030 300 031 277 242 105 P6V6; V0=QAYY0/AYY255/B121105;
V-store at 03151 = 031 300 032 277 000 000 V1=QAYY256/AYY511/0;
V-store at 03152 = 000 000 000 000 000 000 V2=0;
V-store at 03153 = 000 000 000 000 340 005 V3=B160005;
V-store at 03154 = 000 000 000 000 140 105 V4=B60105;
V-store at 03155 = 000 000 175 004 072 321 V5=B17501035321;
3157/0: 300 006 152 V2;
3157/3: 170 376|103 360|243 366 164 2; =Q15;=M0M15Q; J4C15Z;
3160/4: 171 376 Q15;
[ original source of the next page
3161/0: 301 006 152|200 360 000 7; =V2; EXIT1;
3162/0: 300 006 151|300 006 150 1; V1; V0;
3163/0: 200 320 106|200 266 167|200 266 161 JSE70; J6; J7;
3164/3: 300 006 153|200 320 106|200 266 167|301 006 152 4; V3; JSE70; J6; =V2;
3166/3: 200 360 000 EXIT1;
3167/0: 304 040 061|200 266 175 6; SET8241; JP7;
3170/0: 300 006 152|170 365|300 006 154|170 362 3; V2; =RI15; V4; =M15;
3171/4: 171 376|200 320 106|203 266 173|200 360 000 Q15; JSE70; J5; EXIT1;
3173/3: 304 040 061|200 266 202 5; SET8241; J2P7;
=== Start P7V-1; at address 1661/3175
3175/0: 304 000 104|200 320 106|203 266 177 P7; SETB104; JSE70; J1;
3176/3: 203 046 177 J1≥Z;
3177/0: 201 326 144 JS3P2;
3177/3: 304 000 105|200 320 106|200 266 202 1; SETB105; JSE70; J2;
3201/0: 200 046 202 J2≥Z;
3201/3: 200 326 170 JS3P6;
3202/0: 170 365 2; =RI15;
3202/2: 320 013 070|041|033|047 Z39; ZERO; NOT; STR;
3203/2: 015|011|321 013 070 NEV; OR; =Z39;
3204/1: 304 000 200|170 362 SETB200; =M15;
3205/0: 171 376|200 260 106 Q15; JE70;
=== Start P3V-1; at address 1670/3206
P3; (search level parameters for a level L);
3206/0: 041|170 323|304 000 377|167 361|065 ZERO; =RM13; SETB377; SHC-8; REV;
3207/3: 320 333 055|170 336|171 324|042|170 322 1; Z50M13; =Q13; I13; DUP; =M13;
3211/1: 203 146 212 J2≠Z;
3211/4: 065|052|200 360 000 REV; ERASE; (none exist N1=L); EXIT1;
3212/3: 043|320 333 053|015|054|203 146 207 2; DUPD; Z52M13; NEV; AND; J1≠Z;
3214/0: 065|052|202 360 001 REV; ERASE; (N1=L: M13=ALP of L); EXIT2;
=== Start P300V-1; at address 1677/3215
3215/0: 304 000 003|170 345|310 014 322|170 350 P300; SET3; =RI14; Y18; =C14;
3216/4: 244 346 221 1; J2C14Z;
3217/1: 312 342 022|304 003 377|054|204 026 216 YB0M14Q; SETB1777; AND; J1≠;
3220/5: 141 340|201 266 231 M-I14; J2P301;
3221/4: 304 003 111|200 266 175 2; SET0841; JP7;
=== Start P301V-1; at address 1683/3223
3223/0: 310 342 023|304 000 006|170 371|167 021 P301; YB1M14; SET6; =RC15; SHC+8;
3224/4: 167 361|042|310 374 314|170 336|304 000 377 1; SHC-8; DUP; Y12M15; =Q13; SETB377;
3226/3: 054|171 322|032|052|001 AND; M13; MAX; ERASE; VR;
3227/3: 170 322|171 336|313 374 314|264 366 224 =M13; Q13; =Y12M15Q; J1C15NZ;
3231/1: 052|200 360 000 2; ERASE; EXIT1;
=== Start P303V-1; at address 1690/3232
3232/0: 304 000 060|036|027|170 370 P303; SET48; -; NEG; =C15;
3233/1: 041|304 000 001|166 360|200 360 000 ZERO; SET1; SHLDC15; EXIT1;
=== Start P305V-1; at address 1693/3235
3235/0: 041|170 363 P305; ZERO; =RM15;
3235/3: 312 374 374|042|304 000 234|054|304 000 010 1; Y60M15Q; DUP; SETB234; AND; SETB10;
3237/2: 015|224 146 244 NEV; J8=Z;
3240/0: 042|300 014 225|054|300 006 333|015|220 146 244 DUP; V2P360; AND; V8P308; NEV; J9=Z;
3242/0: 304 000 337|054|304 000 334|015|203 146 235 SETB337; AND; SETB334; NEV; J1≠Z;
3243/5: 041 ZERO;
3244/0: 052 9; ERASE;
3244/1: 200 360 000 10; EXIT1;
3244/4: 052|157 376|154 016 8; ERASE; Q15TOQ14; C0TOQ14;
3245/3: 312 374 374|304 000 377|054 Y60M15Q; SETB377; AND;
3246/4: 304 000 212|015|203 146 235 SETB212; NEV; J1≠Z;
3247/5: 041 2; ZERO;
3250/0: 312 374 374|304 000 377|054 3; Y60M15Q; SETB377; AND;
3251/1: 304 000 252|225 026 264 SETB252; J4=;
3252/1: 304 000 232|225 026 265 SETB232; J5=;
3253/1: 304 000 212|015|200 146 250 SETB212; NEV; J3≠Z;
3254/2: 171 364|263 346 256 I15; J6C14NZ;
[ original source of the next page
3255/1: 171 362|170 350|143 340|143 340 M15; =C14; DC14; DC14;
3256/3: 312 374 374|304 000 377|054|304 000 232|015 6; Y60M15Q; SETB377; AND; SETB232; NEV;
3260/2: 042|205 146 262 DUP; J7≠Z;
3261/0: 052|027|033|042|203 146 256 ERASE; NEG; NOT; DUP; J6≠Z;
3262/1: 052|200 266 250 ERASE; J3;
3262/5: 304 000 020|015|203 146 256 7; SETB20; NEV; J6≠Z;
3264/0: 033|027|203 266 256 NOT; NEG; J6;
3264/5: 052|033|027|200 266 250 4; ERASE; NOT; NEG; J3;
3265/5: 052|033|027|310 354 373|065 5; ERASE; NOT; NEG; Y59M14; REV;
3267/0: 164 047|011|311 354 373|243 346 235 SHL+19; OR; =Y59M14; J1C14Z;
3270/3: 171 350|170 362|203 266 235 C14; =M15; J1;
=== Start P306V-1; at address 1722/3272
3272/0: 042|164 321|310 014 333|042|221 046 302 P306; DUP; SHL-24; Y27; DUP; J4<Z;
3273/4: 041|170 023|041 ZERO; =RM1; ZERO;
3274/2: 052 1; ERASE;
3274/3: 042|224 146 303 2; DUP; J3=Z;
3275/1: 312 034 374|042|304 000 370|054 Y60M1Q; DUP; SETB370; AND;
3276/3: 304 000 110|015|202 146 274 SETB110; NEV; J1≠Z;
3277/4: 164 301|164 021|065|027|033|012 SHL-32; SHL+8; REV; NEG; NOT; PERM;
3301/0: 221 026 302 J4=;
3301/3: 065|203 266 274 REV; J2;
3302/1: 052|052|052|173 000|052 4; ERASE; ERASE; ERASE; LINK; ERASE;
3303/1: 203 272 264 J29P333;
3303/4: 052|052|200 360 000 3; ERASE; ERASE; EXIT1;
=== Start P307V-1; at address 1733/3305
3305/0: 041|170 023|041|311 014 333 P307; ZERO; =RM1; ZERO; =Y27;
3306/1: 041|170 051 ZERO; =RC2;
3306/4: 312 034 374|042|304 000 370|054|304 000 110 1; Y60M1Q; DUP; SETB370; AND; SETB110;
3310/3: 015|223 146 315 NEV; J2=Z;
3311/1: 042|304 000 337|054|304 000 334|015 DUP; SETB337; AND; SETB334; NEV;
3312/4: 222 146 322 J4=Z;
3313/1: 300 006 334|054|300 006 333|015|204 146 306 V9P308; AND; V8P308; NEV; J1≠Z;
3315/0: 200 360 000 EXIT1;
3315/3: 310 014 333|304 000 012|223 026 321 2; Y27; SET10; J3=;
3317/0: 033|027|311 014 333|164 301|164 021|313 045 257 NOT; NEG; =Y27; SHL-32; SHL+8; =YH0M2Q;
3321/0: 204 266 306 J1;
3321/3: 167 371|311 014 333 3; SHC-4; =Y27;
3322/2: 201 266 231 4; J2P301;
=== Start P308V9; at address 1757/3335
V-store at 03323 = 000 000 000 000 025 271 P308V9; V0=AYH10;
V-store at 03324 = 010 000 000 000 000 000 V1=1/4;
V-store at 03325 = 000 000 374 000 000 000 V2=B37400000000;
V-store at 03326 = 000 000 000 000 025 257 V3=AYH0;
V-store at 03327 = 000 000 000 200 000 000 V4=1/24;
V-store at 03330 = 000 000 000 010 000 000 V5=1/28;
V-store at 03331 = 000 000 377 000 001 040 V6=B37700000440;
V-store at 03332 = 020 000 000 000 000 000 V7=1/3;
V-store at 03333 = 001 001 002 000 000 234 V8=B0020040200000234;
V-store at 03334 = 377 377 377 000 001 377 V9=B7777777700000777;
3335/0: 041|042|043|170 023 ZERO; DUP; DUPD; =RM1;
3335/5: 170 043|310 002 021|304 000 206|015|311 002 020 =RM2; YA0; SETB206; NEV; =YA-1M0;
3337/5: 311 014 334|300 006 323|170 102|204 267 233 =Y28; V0; =M4; J74;
3341/4: 052 1; ERASE;
3341/5: 312 034 374 2; Y60M1Q;
3342/2: 042|304 000 326|015|203 146 344 DUP; SETB326; NEV; J32≠Z;
3343/4: 041|033|311 002 020 ZERO; NOT; =YA-1M0;
3344/3: 042|167 361|222 047 072 32; DUP; SHC-8; J33<Z;
3345/3: 042|167 363|224 047 054 DUP; SHC-7; J29<Z;
3346/3: 042|167 373|304 000 003|054|042|225 147 023 DUP; SHC-3; SETB3; AND; DUP; J19=Z;
3350/2: 027|033|042|221 146 363 NEG; NOT; DUP; J5=Z;
[ original source of the next page
3351/2: 027|033|204 146 341 NEG; NOT; J1≠Z;
3352/1: 171 042|221 146 354 M2; J3=Z;
3353/0: 104 044|042|224 046 361 M4M2H; DUP; J4<Z;
3354/0: 052 ERASE;
3354/1: 310 034 374|304 000 213|015|204 146 341 3; Y60M1; SETB213; NEV; J1≠Z;
3355/5: 042|167 365|225 046 360 DUP; SHC-6; J79<Z;
3356/5: 200 327 300|171 322|164 101|164 301|201 267 013 JSP309; M13; SHL+32; SHL-32; J70;
3360/5: 052|041|201 267 013 79; ERASE; ZERO; J70;
3361/4: 300 006 324|011|105 044|201 266 354 4; V1; OR; =M4M2H; J3;
3363/1: 052|310 034 374|304 000 212 5; ERASE; Y60M1; SETB212;
3364/2: 015|164 121|204 146 341 NEV; SHL+40; J1≠Z;
3365/2: 171 042|222 146 376 M2; J9=Z;
3366/1: 104 044|220 047 022 M4M2H; J18<Z;
3367/0: 104 044|200 327 304|304 000 374|054|304 000 150 M4M2H; JSP310; SETB374; AND; SETB150;
3371/0: 015|224 146 341 NEV; J1=Z;
3371/4: 157 046|304 001 000 Q2TOQ6; SETB400;
3372/3: 104 144|220 046 375 6; M4M6H; J7<Z;
3373/2: 104 144|200 327 304|054|042|222 147 020 M4M6H; JSP310; AND; DUP; J16=Z;
3375/0: 141 140|171 142|203 146 372 7; M-I6; M6; J6≠Z;
3376/1: 052 8; ERASE;
3376/2: 041|311 005 174 9; ZERO; =YG0;
3377/0: 042|164 333|304 000 037|054|042 17; DUP; SHL-19; SETB37; AND; DUP;
3400/2: 304 000 003|036|225 107 016 SET3; -; J14>Z;
3401/3: 164 031|310 005 174|056|311 005 174|310 014 333 15; SHL+12; YG0; +; =YG0; Y27; [DHo or was it -?
3403/3: 224 047 014 J13<Z;
3404/0: 310 014 333|170 131|164 321|242 127 007 Y27; =RC5; SHL-24; J11C5Z;
3405/4: 017|017|312 125 257|224 027 014|177 120 *10; YH0M5Q; J13=; J10C5NZS;
3407/2: 310 002 021|304 000 206|015|204 147 014 11; YA0; SETB206; NEV; J13≠Z;
3411/0: 052 77; ERASE;
3411/1: 171 022|027|033|310 005 174|056 12; M1; NEG; NOT; YG0; +;
3412/3: 300 006 327|056 V4; +;
3413/1: 164 061|140 040|105 044|205 266 341 70; SHL+24; M+I2; =M4M2H; J2;
3414/4: 300 006 330|310 005 174|011|311 005 174|200 267 011 13; V5; YG0; OR; =YG0; J77;
3416/5: 300 006 330|311 005 174|203 267 001 14; V5; =YG0; J15;
3420/2: 052|300 006 330|311 005 174|200 266 377 16; ERASE; V5; =YG0; J17;
3422/0: 104 044|300 006 324|011|105 044|202 266 376 18; M4M2H; V1; OR; =M4M2H; J9;
3423/5: 052|042|304 000 003|054|304 000 002 19; ERASE; DUP; SET3; AND; SET2;
3425/2: 015|223 147 031 NEV; J20=Z;
3426/0: 171 042|224 146 341 M2; J1=Z;
3426/5: 104 044|204 046 341 M4M2H; J1≥Z;
3427/4: 104 044|300 006 324|011|105 044|204 266 341 M4M2H; V1; OR; =M4M2H; J1;
3431/3: 042|304 000 040|054|171 042|223 147 050 20; DUP; SETB40; AND; M2; J27=Z;
3433/1: 104 044|203 047 050 M4M2H; J27≥Z;
3434/0: 310 014 313|224 147 035 Y11; J71=Z;
3435/0: 052|202 267 100 ERASE; J34;
3435/4: 223 147 037 71; J21=Z;
3436/1: 042|304 001 000|054|223 147 046 DUP; SETB400; AND; J25=Z;
3437/3: 310 014 312|225 147 041 21; Y10; J22=Z;
3440/3: 042|300 006 331|054|203 147 046 DUP; V6; AND; J25≠Z;
3441/5: 200 327 312|204 267 046 22; JSP311; J26;
3442/5: 104 044|167 007|304 000 003|043|054 23; M4M2H; SHC+3; SETB3; DUPD; AND;
3444/2: 015|223 147 046 NEV; J25=Z;
3445/0: 033|027|167 373|105 044|205 266 341 NOT; NEG; SHC-3; =M4M2H; J2;
3446/3: 052 25; ERASE;
3446/4: 104 044|300 006 324|011|105 044|205 266 341 26; M4M2H; V1; OR; =M4M2H; J2;
3450/3: 222 147 052 27; J28=Z;
3451/0: 042|304 001 000|054|224 146 341 DUP; SETB400; AND; J1=Z;
3452/2: 042|304 002 000|054|204 146 341 28; DUP; SETB1000; AND; J1≠Z;
3453/4: 200 327 322|205 266 341 JSP312; J2;
3454/4: 042|167 365|224 046 341 29; DUP; SHC-6; J1<Z;
[ original source of the next page
3455/4: 042|167 371|204 046 341 DUP; SHC-4; J1≥Z;
3456/4: 167 367|225 046 341 SHC-5; J2<Z;
3457/3: 312 034 374 30; Y60M1Q;
3460/0: 042|304 000 237|054|304 000 234 31; DUP; SETB237; AND; SETB234;
3461/2: 015|223 146 344 NEV; J32=Z;
3462/0: 042|304 000 377|054|304 000 230|015 DUP; SETB377; AND; SETB230; NEV;
3463/3: 223 146 344 J32=Z;
3464/0: 304 000 330|054|304 000 010|015|203 147 057 SETB330; AND; SETB10; NEV; J30≠Z;
3465/5: 151 025|312 034 374|042|304 000 377|054 M1TOQ5; Y60M1Q; DUP; SETB377; AND;
3467/3: 304 000 212|015|200 147 060 SETB212; NEV; J31≠Z;
3470/4: 304 001 000|011|313 134 374|203 267 057 SETB400; OR; =Y60M5Q; J30;
3472/2: 042|304 000 017|054|304 000 001|220 027 104 33; DUP; SETB17; AND; SET1; J36=;
3474/1: 304 000 012|223 027 116 SET10; J38=;
3475/1: 304 000 013|223 027 216 SET11; J62=;
3476/1: 304 000 014|223 027 226 SET12; J66=;
3477/1: 304 000 015|223 027 252 SET13; J67=;
3500/1: 052 ERASE;
3500/2: 052 34; ERASE;
3500/3: 171 042|225 146 341 35; M2; J2=Z;
3501/2: 104 044|205 046 341 M4M2H; J2≥Z;
3502/1: 104 044|300 006 324|011|105 044|205 266 341 M4M2H; V1; OR; =M4M2H; J2;
3504/0: 052|171 042|224 146 341 36; ERASE; M2; J1=Z;
3505/0: 104 044|204 046 341 M4M2H; J1≥Z;
3505/5: 164 371|304 000 007|054|304 000 003|036 SHL-4; SETB7; AND; SET3; -;
3507/3: 042|222 047 100 DUP; J34<Z;
3510/1: 205 147 112 J37≠Z;
3510/4: 104 044|300 006 332|043|011|105 044 M4M2H; V7; DUPD; OR; =M4M2H;
3512/1: 054|203 147 100 AND; J35≠Z;
3512/5: 104 044|167 017|304 000 003|043|054 37; M4M2H; SHC+7; SETB3; DUPD; AND;
3514/2: 015|222 147 100 NEV; J34=Z;
3515/0: 033|027|167 363|105 044|205 266 341 NOT; NEG; SHC-7; =M4M2H; J2;
3516/3: 052|171 042|224 146 341 38; ERASE; M2; J1=Z;
3517/3: 104 044|220 047 122 M4M2H; J41<Z;
3520/2: 204 266 341 J1;
3520/5: 052 39; ERASE;
3521/0: 304 004 021|200 266 175 40; SET1041; JP7;
3522/0: 164 371|304 000 003|054|027|033 41; SHL-4; SETB3; AND; NEG; NOT;
3523/2: 104 044|167 031|042|304 000 037|054 M4M2H; SHC+12; DUP; SETB37; AND;
3524/5: 066|221 147 131 CAB; J42=Z;
3525/3: 225 147 120 J39=Z;
3526/0: 027|033|304 017 377|167 351 NEG; NOT; SETB7777; SHC-12;
3527/1: 304 010 237|011|054|167 351 SETB4237; OR; AND; SHC-12;
3530/2: 105 044|205 266 341 =M4M2H; J2;
3531/1: 141 040|205 147 120 42; M-I2; J39≠Z;
3532/0: 310 002 020|220 147 134 YA-1M0; J55=Z;
3533/0: 042|167 361|204 047 166 DUP; SHC-8; J51≥Z;
3534/0: 167 031|304 017 377|054|170 123 55; SHC+12; SETB7777; AND; =RM5;
3535/2: 310 002 020|202 147 141 YA-1M0; J24≠Z;
3536/2: 310 134 375|164 041|310 134 374|167 041 Y61M5; SHL+16; Y60M5; SHC+16;
3540/0: 166 341|311 134 374|311 134 375 SHLD-16; =Y60M5; =Y61M5;
3541/2: 312 134 375|304 001 000|011|313 134 374 24; Y61M5Q; SETB400; OR; =Y60M5Q;
3543/0: 041 ZERO;
3543/1: 052 43; ERASE;
3543/2: 312 134 374|042|167 361|225 047 151 44; Y60M5Q; DUP; SHC-8; J46<Z;
3544/5: 042|304 000 037|054|304 000 002|015 DUP; SETB37; AND; SETB2; NEV;
3546/2: 201 147 143 J43≠Z;
3546/5: 042|167 365|205 047 150 DUP; SHC-6; J45≥Z;
3547/5: 042|167 357|201 047 143 DUP; SHC-9; J43≥Z;
3550/5: 200 327 322|202 267 143 45; JSP312; J44;
3551/5: 042|304 000 017|054|304 000 012|036 46; DUP; SETB17; AND; SET10; -;
[ original source of the next page
3553/2: 201 147 143 J43≠Z;
3553/5: 304 000 160|054|042|202 147 165 SETB160; AND; DUP; J50≠Z;
3555/1: 052|041|311 005 174 ERASE; ZERO; =YG0;
3556/0: 312 134 374|304 000 377|054|304 000 212|222 027 163 47; Y60M5Q; SETB377; AND; SETB212; J48=;
3560/1: 304 000 232|015|200 147 156 SETB232; NEV; J47≠Z;
3561/2: 310 005 174|042|221 147 143 YG0; DUP; J43=Z;
3562/3: 027|033|202 267 164 NEG; NOT; J49;
3563/2: 052|310 005 174|033|027 48; ERASE; YG0; NOT; NEG;
3564/2: 311 005 174|200 267 156 49; =YG0; J47;
3565/2: 167 367|205 106 341 50; SHC-5; J2≤Z;
3566/1: 202 267 143 J44;
3566/4: 167 031|304 017 377|054|033|027 51; SHC+12; SETB7777; AND; NOT; NEG;
3570/0: 042|170 122|171 022|036|033|164 023 DUP; =M5; M1; -; NOT; SHL+9;
3571/3: 310 134 374|144 120|011 Y60M5; I5=+1; OR;
3572/3: 313 134 374|310 014 311|220 147 216 =Y60M5Q; Y9; J61=Z;
3574/0: 312 134 374|304 000 377|054|304 000 042|225 027 202 52; Y60M5Q; SETB377; AND; SETB42; J53=;
3576/1: 304 000 235|220 027 212 SETB235; J58=;
3577/1: 304 000 252|220 027 212 SETB252; J58=;
3600/1: 304 000 232|225 027 212 SETB232; J60=;
3601/1: 304 000 261|200 027 212 SETB261; J58≠;
3602/1: 052|200 267 174 ERASE; J52;
3602/5: 052|141 120|312 134 374|310 014 311 53; ERASE; M-I5; Y60M5Q; Y9;
3604/2: 036|304 002 000|015 -; SETB1000; NEV;
3605/1: 201 147 212 J59≠Z;
3605/4: 041|033|311 005 174|310 005 175|205 147 210 ZERO; NOT; =YG0; YG1; J56≠Z;
3607/3: 041|033 ZERO; NOT;
3607/5: 311 005 175|200 267 174 54; =YG1; J52;
3610/5: 104 044|167 031|200 267 134 56; M4M2H; SHC+12; J55;
3612/0: 052 58; ERASE;
3612/1: 041|205 267 207 59; ZERO; J54;
3612/5: 052|310 005 174|220 147 216 60; ERASE; YG0; J61=Z;
3614/0: 304 004 000|141 120|310 134 374|011|313 134 374 SETB2000; M-I5; Y60M5; OR; =Y60M5Q;
3616/0: 203 267 256 61; J68;
3616/3: 052|171 042|222 147 220 62; ERASE; M2; J63=Z;
3617/3: 104 044|202 047 221 M4M2H; J64≥Z;
3620/2: 304 004 165|200 266 175 63; SET1141; JP7;
3621/2: 304 000 160|054|042|224 146 341 64; SETB160; AND; DUP; J1=Z;
3622/4: 167 365|204 047 225 SHC-6; J65≥Z;
3623/3: 104 044|167 021|033|027|167 361 M4M2H; SHC+8; NOT; NEG; SHC-8;
3624/5: 105 044|205 266 341 =M4M2H; J2;
3625/4: 141 040|205 266 341 65; M-I2; J2;
3626/3: 052|042|300 006 334|054|300 006 333|015|220 147 233 66; ERASE; DUP; V9; AND; V8; NEV; J72=Z;
3630/4: 042|167 367|200 047 247 DUP; SHC-5; J81≥Z;
3631/4: 042|304 001 100|054|224 146 341 DUP; SETB500; AND; J1=Z;
3633/0: 052|200 360 000 72; ERASE; EXIT1;
3633/4: 310 034 374|304 000 206|015|224 146 341 74; Y60M1; SETB206; NEV; J1=Z;
3635/2: 310 034 374|304 000 377|054|304 000 131|015 76; Y60M1; SETB377; AND; SETB131; NEV;
3637/1: 203 147 240|140 020|202 267 235 J78≠Z; M+I1; J76;
3640/3: 310 034 374|304 000 344|054 78; Y60M1; SETB344; AND;
3641/4: 304 000 100|015|204 146 341 SETB100; NEV; J1≠Z;
3642/5: 312 034 374|304 000 230|015|205 147 242 75; Y60M1Q; SETB230; NEV; J75≠Z;
3644/3: 310 034 374|304 000 230|015|202 147 235 73; Y60M1; SETB230; NEV; J76≠Z;
3646/1: 140 020|203 267 244 M+I1; J73;
3647/0: 042|300 014 223|015|164 117|223 147 244 81; DUP; V0P360; NEV; SHL+39; J73=Z;
3650/4: 304 001 100|054|225 146 341 SETB500; AND; J2=Z;
3651/5: 041|203 267 244 ZERO; J73;
3652/3: 052|171 042|224 146 341 67; ERASE; M2; J1=Z;
3653/3: 104 044|204 046 341 M4M2H; J1≥Z;
3654/2: 304 004 020|042|066|054|015 SETB2020; DUP; CAB; AND; NEV;
3655/3: 225 147 042 J23=Z;
[ original source of the next page
3656/0: 203 267 100 J35;
3656/3: 171 036|311 005 207|171 056|311 005 210|171 076|311 005 211 68; Q1; =YG11; Q2; =YG12; Q3; =YG13;
3661/0: 171 116|311 005 212|140 040|104 044|141 040 Q4; =YG14; M+I2; M4M2H; M-I2;
3662/5: 164 031|164 271|042|311 005 213|311 005 203 SHL+12; SHL-36; DUP; =YG15; =YG7;
3664/4: 200 330 340|310 005 213|311 005 203|200 330 176|200 330 253 JSP317; YG15; =YG7; JSP315; JSP316;
3667/1: 200 331 006|204 267 274 JSP318; J57;
3670/1: 041 ZERO;
3670/2: 310 005 207|170 036|310 005 210|170 056|310 005 211|170 076 69; YG11; =Q1; YG12; =Q2; YG13; =Q3;
3672/5: 310 005 212|170 116|225 147 210 YG14; =Q4; J56=Z;
3674/1: 205 266 341 J2;
3674/4: 041|033|202 267 270 57; ZERO; NOT; J69;
=== Start P309V1; at address 1984/3700
P309V1;
V-store at 03677 = 377 000 000 000 000 000 V1=B7760000000000000;
3700/0: 300 007 277|054|200 326 206|201 267 302 V1; AND; JSP3; J1;
3701/4: 201 266 231 J2P301;
3702/1: 304 003 255|200 266 175 1; SET0941; JP7;
=== Start P310V-1; at address 1988/3704
3704/0: 042|164 005|164 255|027|065 P310; DUP; SHL+2; SHL-42; NEG; REV;
3705/1: 164 021|042|220 147 310 SHL+8; DUP; J1=Z; [DHo could it possibly be SHL+6? Doubt it
3706/1: 161 301|056|170 062|320 073 052|200 360 000 SHA-32; +; =M3; Z53M3; EXIT1;
3710/0: 065|201 266 231 1; REV; J2P301;
=== Start P311V0; at address 1994/3712
V-store at 03711 = 000 000 000 000 023 326 P311V0; V0=AYE0;
3712/0: 310 014 313|202 147 321 Y11; J4≠Z;
3713/0: 300 007 311|170 362|164 321|164 061|310 014 315 V0; =M15; SHL-24; SHL+24; Y13;
3715/0: 170 356|171 344|171 342|042|170 323 =Q14; I14; M14; DUP; =RM13;
3716/3: 036|170 330|202 267 320 -; =C13; J1;
3717/3: 106 337|222 027 321 3; M15M13QH; J4=;
3720/2: 263 327 317 1; J3C13NZ;
3720/5: 203 273 271 J3P340;
3721/2: 201 266 231 4; J2P301;
=== Start P312V-1; at address 2002/3722
3722/0: 310 014 313|203 147 332 P312; Y11; J3≠Z;
3723/0: 310 014 327|224 147 340 Y23; J6=Z;
3724/0: 164 321|164 061|304 023 326|170 362 SHL-24; SHL+24; SETAYE0; =M15;
3725/3: 310 014 316|170 356|171 344|171 342|036|170 330 Y14; =Q14; I14; M14; -; =C13;
3727/3: 304 000 047|171 342|036|170 322|145 320 SET39; M14; -; =M13; I13=-1;
3731/1: 240 327 333 2; J4C13Z;
3731/4: 106 337|201 027 331 M15M13QH; J2≠;
3732/3: 201 266 231 3; J2P301;
3733/0: 107 337|171 344|033|027|170 344 4; =M15M13QH; I14; NOT; NEG; =I14;
3734/2: 171 356|311 014 316|310 014 327|042|223 147 337 Q14; =Y14; Y23; DUP; J5=Z;
3736/2: 027|033|311 014 327|041|033 NEG; NOT; =Y23; ZERO; NOT;
3737/3: 033|311 014 313|200 360 000 5; NOT; =Y11; EXIT1;
3740/4: 164 321|164 061|304 023 326|170 362 6; SHL-24; SHL+24; SETAYE0; =M15;
3742/1: 310 014 316|170 356|171 344|171 342|036|170 330 Y14; =Q14; I14; M14; -; =C13;
3744/1: 304 000 047|171 342|036|170 322|145 320 SET39; M14; -; =M13; I13=-1;
3745/5: 244 327 347 7; J8C13Z;
3746/2: 106 337|223 027 332|205 267 345 M15M13QH; J3=; J7;
3747/4: 052|041|203 267 337 8; ERASE; ZERO; J5;
=== Start P313V0; at address 2026/3752
V-store at 03751 = 000 002 000 000 004 235 P313V0; V0=Q2/0/B2235;
3752/0: 151 022|310 026 053|167 365|222 047 356 1; M1TOQ2; YK2M1; SHC-6; J2<Z;
3753/4: 171 022|304 000 002|056|170 042|310 026 055 M1; SET2; +; =M2; YK4M1;
3755/3: 167 365|200 050 023 SHC-6; J11≥Z;
3756/2: 310 046 054|042|311 005 206|167 373|310 046 052 2; YK3M2; DUP; =YG10; SHC-3; YK1M2;
3760/2: 042|311 005 205|167 373|221 107 372 DUP; =YG9; SHC-3; J4>Z;
3761/5: 225 107 376 J6>Z;
3762/2: 310 005 205|310 005 206|035|161 037|304 004 235 YG9; YG10; ×; SHA+15; SETB2235;
3764/2: 011|311 046 052|171 042|171 022|036 OR; =YK1M2; M2; M1; -;
3765/5: 202 147 370 J3≠Z;
3766/2: 310 026 055|311 026 053|310 026 056|311 026 054 YK4M1; =YK2M1; YK5M1; =YK3M1;
3770/2: 041|042|311 026 055|311 026 056|200 267 352 3; ZERO; DUP; =YK4M1; =YK5M1; J1;
3772/1: 222 047 374 4; J5<Z;
[ original source of the next page
3772/4: 310 005 205|310 005 206|036|205 107 376 YG9; YG10; -; J6≤Z;
3774/2: 310 005 205|311 046 054|310 005 206|311 046 052|202 267 356 5; YG9; =YK3M2; YG10; =YK1M2; J2;
3776/5: 171 042|171 022|036|221 150 006 6; M2; M1; -; J7=Z;
4000/1: 310 026 051|310 026 052|310 026 053|310 026 054|310 026 055 YK0M1; YK1M1; YK2M1; YK3M1; YK4M1;
4002/4: 310 026 056|311 026 054|311 026 053|311 026 052|311 026 051 YK5M1; =YK3M1; =YK2M1; =YK1M1; =YK0M1;
4005/1: 311 026 056|311 026 055 =YK5M1; =YK4M1;
4006/1: 310 026 056|310 026 054|036|200 150 101 7; YK5M1; YK3M1; -; J25≠Z;
4007/5: 310 026 052|167 373|200 050 101 YK1M1; SHC-3; J25≥Z;
4011/1: 310 026 052|170 076|171 070|310 026 051|310 026 055 YK1M1; =Q3; C3; YK0M1; YK4M1;
4013/2: 036|204 150 014 -; J8≠Z;
4014/0: 033|027|033|027 NOT; NEG; NOT; NEG;
4014/4: 027|033 8; NEG; NOT;
4015/0: 042|170 070|171 076|311 026 052|201 150 021 9; DUP; =C3; Q3; =YK1M1; J10≠Z;
4016/5: 041|311 026 053|041|311 026 054|304 000 301 ZERO; =YK2M1; ZERO; =YK3M1; SETB301;
4020/4: 311 026 051 =YK0M1;
4021/1: 041|311 026 055|041|311 026 056|200 270 101 10; ZERO; =YK4M1; ZERO; =YK5M1; J25;
4023/0: 041|041|043|311 005 174|311 005 175 11; ZERO; ZERO; DUPD; =YG0; =YG1;
4024/3: 311 005 176|170 042|304 000 001|170 062|200 330 105 =YG2; =M2; SET1; =M3; JSP314;
4026/4: 304 000 001|172 062|200 330 105|304 000 001|170 042 SET1; =+M3; JSP314; SET1; =M2;
4030/5: 200 330 105|304 000 006|042|170 051|171 022 JSP314; SET6; DUP; =RC2; M1;
4032/4: 170 063 =RM3;
4033/0: 312 066 051|313 045 177|260 050 033 12; YK0M3Q; =YG3M2Q; J12C2NZ;
4034/3: 170 051|041|170 071 =RC2; ZERO; =RC3;
4035/2: 312 065 174|161 003|171 022|056|170 102 13; YG0M3Q; SHA+1; M1; +; =M4;
4037/0: 312 045 177|311 106 051|312 045 177|311 106 052|262 050 035 YG3M2Q; =YK0M4; YG3M2Q; =YK1M4; J13C2NZ;
4041/3: 310 026 054|220 150 101 14; YK3M1; J25=Z;
4042/3: 310 026 054|167 375|222 050 060 YK3M1; SHC-2; J18<Z;
4043/5: 310 026 051|310 026 053|036|204 150 053 YK0M1; YK2M1; -; J16≠Z;
4045/3: 310 026 054|310 026 052|056|304 004 235|036 YK3M1; YK1M1; +; SETB2235; -;
4047/2: 311 026 052 =YK1M1;
4047/5: 310 026 055|311 026 053|310 026 056|311 026 054 15; YK4M1; =YK2M1; YK5M1; =YK3M1;
4051/5: 041|042|311 026 055|311 026 056|203 270 041 ZERO; DUP; =YK4M1; =YK5M1; J14;
4053/4: 310 026 052|310 026 054|036|042|203 050 056 16; YK1M1; YK3M1; -; DUP; J17≥Z;
4055/3: 310 026 053|311 026 051 YK2M1; =YK0M1;
4056/3: 026|304 004 235|011|311 026 052|205 270 047 17; ABS; SETB2235; OR; =YK1M1; J15;
4060/2: 310 026 052|167 375|204 050 076 18; YK1M1; SHC-2; J24≥Z;
4061/4: 041 ZERO;
4061/5: 042|171 022|056|170 042|310 046 052 19; DUP; M1; +; =M2; YK1M2;
4063/2: 310 046 054|036|201 150 076 YK3M2; -; J23≠Z;
4064/3: 310 046 051|310 046 053|036|223 150 073 YK0M2; YK2M2; -; J22=Z;
4066/1: 224 150 070 J20=Z;
4066/4: 310 026 055|311 026 051|310 026 056|311 026 052 YK4M1; =YK0M1; YK5M1; =YK1M1;
4070/4: 304 000 004|170 071|151 023 20; SET4; =RC3; M1TOQ3;
4071/5: 041|313 066 053|265 070 071 21; ZERO; =YK2M3Q; J21C3NZ;
4073/0: 200 270 101 J25;
4073/3: 300 007 351|311 046 052|304 000 261|311 046 053|052 22; V0; =YK1M2; SETB261; =YK2M2; ERASE;
4075/4: 200 267 352 J1;
4076/1: 200 150 101 23; J25≠Z;
4076/4: 310 026 056|167 375|200 050 101 24; YK5M1; SHC-2; J25≥Z;
4100/0: 304 000 002|205 270 061 SET2; J19;
4101/0: 310 026 052|200 150 104 25; YK1M1; J26≠Z;
4102/0: 304 000 301|311 026 051|304 004 235|311 026 052 SETB301; =YK0M1; SETB2235; =YK1M1;
4104/0: 200 270 122 26; J5P314;
=== Start P314V-1; at address 2117/4105
4105/0: 171 022|171 062|042|056|056 P314; M1; M3; DUP; +; +;
4106/1: 170 102|310 106 052 =M4; YK1M4;
4107/0: 171 022|171 042|042|056|056 M1; M2; DUP; +; +;
4110/1: 170 102|310 106 052 =M4; YK1M4;
4111/0: 043|036|002|042|223 150 115 DUPD; -; =TR; DUP; J1=Z;
[ original source of the next page
4112/1: 167 375|204 050 117|042|224 150 117 SHC-2; J3≥Z; DUP; J3=Z;
4113/4: 167 375|205 050 115 SHC-2; J2≥Z;
4114/3: 205 350 117|205 270 115 J4NTR; J2;
4115/3: 052|052 1; ERASE; ERASE;
4115/5: 310 045 174|033|027|311 045 174 2; YG0M2; NOT; NEG; =YG0M2;
4117/1: 201 270 121 J6;
4117/4: 052 3; ERASE;
4117/5: 310 065 174|033|027|311 065 174 4; YG0M3; NOT; NEG; =YG0M3;
4121/1: 041|002|200 360 000 6; ZERO; =TR; EXIT1;
4122/0: 171 116|311 005 174|171 076|311 005 175|171 056 5; Q4; =YG0; Q3; =YG1; Q2;
4124/0: 311 005 176|201 270 136 =YG2;J12;
4125/0: 310 026 053|311 026 051|310 026 054|311 026 052 11; YK2M1; =YK0M1; YK3M1; =YK1M1;
4127/0: 310 026 055|311 026 053|310 026 056|311 026 054 18; YK4M1; =YK2M1; YK5M1; =YK3M1;
4131/0: 041|042|311 026 055|311 026 056 20; ZERO; DUP; =YK4M1; =YK5M1;
4132/2: 310 026 052|170 056|265 050 172 22; YK1M1; =Q2; J24C2NZ;
4133/4: 304 000 301|311 026 051|304 004 235|311 026 052|205 270 172 SETB301; =YK0M1; SETB2235; =YK1M1; J24;
4136/1: 310 026 053|167 365|202 050 162 12; YK2M1; SHC-6; J19≥Z;
4137/3: 310 026 052|167 375|220 050 143 YK1M1; SHC-2; J14<Z;
4140/5: 310 026 052|170 056|242 050 150 YK1M1; =Q2; J13C2Z;
4142/1: 143 040|241 050 154 DC2; J15C2Z;
4143/0: 310 026 054|167 375|223 050 146 14; YK3M1; SHC-2; J17<Z;
4144/2: 310 026 054|170 056|242 050 150 YK3M1; =Q2; J13C2Z;
4145/4: 143 040|241 050 155 DC2; J16C2Z;
4146/3: 310 026 056|170 056|265 050 172|200 270 131 17; YK5M1; =Q2; J24C2NZ; J20;
4150/2: 310 026 055|311 026 051|310 026 056 13; YK4M1; =YK0M1; YK5M1;
4151/5: 311 026 052|041|042|311 026 053|311 026 054 =YK1M1; ZERO; DUP; =YK2M1; =YK3M1;
4153/4: 200 270 131 J20;
4154/1: 310 026 054|311 026 052 15; YK3M1; =YK1M1;
4155/1: 310 026 055|311 026 053|310 026 056|311 026 054 16; YK4M1; =YK2M1; YK5M1; =YK3M1;
4157/1: 041|042|311 026 055|311 026 056 ZERO; DUP; =YK4M1; =YK5M1;
4160/3: 310 026 054|170 056|265 050 172|200 270 127 YK3M1; =Q2; J24C2NZ; J18;
4162/2: 310 026 052|167 375|220 050 165 19; YK1M1; SHC-2; J21<Z;
4163/4: 310 026 052|170 056|240 050 125 YK1M1; =Q2; J11C2Z;
4165/0: 310 026 054|167 375|224 050 167 21; YK3M1; SHC-2; J23<Z;
4166/2: 310 026 054|170 056|240 050 127 YK3M1; =Q2; J18C2Z;
4167/4: 310 026 056|167 375|222 050 132 23; YK5M1; SHC-2; J22<Z;
4171/0: 310 026 056|170 056|240 050 131|202 270 132 YK5M1; =Q2; J20C2Z; J22;
4172/5: 310 005 174|310 005 175|310 005 176|170 056|170 076 24; YG0; YG1; YG2; =Q2; =Q3;
4175/0: 170 116|200 360 000 =Q4; EXIT1;
=== Start P315V-1; at address 2174/4176
4176/0: 304 000 001|042|311 005 174|311 005 177 P315; SET1; DUP; =YG0; =YG3;
4177/4: 310 006 051|167 327|200 050 252 YK0; SHC-21; J13≥Z;
4201/0: 310 006 052|164 301|320 013 123|164 301 YK1; SHL-32; Z12; SHL-32;
4202/4: 170 022|145 020 =M1; I1=-1;
4203/2: 322 033 055|042|225 150 212 1; Z50M1Q; DUP; J3=Z;
4204/3: 042|012|164 301|223 030 206 DUP; PERM; SHL-32; J2=;
4205/4: 065|052|202 270 203 REV; ERASE; J1;
4206/3: 065|170 036|171 024|311 005 175|171 022|311 005 176 2; REV; =Q1; I1; =YG1; M1; =YG2;
4210/4: 310 006 051|164 333|304 000 037|054|311 005 177|041 YK0; SHL-19; SETB37; AND; =YG3; ZERO;
4212/5: 065|052 3; REV; ERASE;
4213/1: 042|311 005 200|311 005 201|041|311 005 202 4; DUP; =YG4; =YG5; ZERO; =YG6;
4215/0: 304 000 002 SET2;
4215/3: 170 022|151 022|310 026 053|167 365|205 050 220 5; =M1; M1TOQ2; YK2M1; SHC-6; J6≥Z;
4217/3: 171 022|304 000 004|056|170 042 M1; SET4; +; =M2;
4220/5: 310 046 052|042|167 373|202 050 241 6; YK1M2; DUP; SHC-3; J10≥Z;
4222/2: 161 301|042|222 150 241 SHA-32; DUP; J10=Z;
4223/2: 310 046 051|167 367|205 050 224 YK0M2; SHC-5; J7≥Z;
4224/4: 027 NEG;
4224/5: 171 022|171 042|036|205 150 233 7; M1; M2; -; J9≠Z;
4226/1: 304 000 004|170 051|151 022 SET4; =RC2; M1TOQ2;
[ original source of the next page
4227/2: 310 046 053|313 046 051|262 050 227 8; YK2M2; =YK0M2Q; J8C2NZ;
4230/5: 310 026 052|205 150 233 YK1M1; J9≠Z;
4231/5: 304 000 301|311 026 051|304 004 235|311 026 052 SETB301; =YK0M1; SETB2235; =YK1M1;
4233/5: 041|033|311 005 200|310 005 201|170 042 9; ZERO; NOT; =YG4; YG5; =M2;
4235/3: 310 045 174|034|050|310 005 202|056 YG0M2; ×D; CONT; YG6; +;
4237/0: 311 005 202|041|042|311 026 055|311 026 056 =YG6; ZERO; DUP; =YK4M1; =YK5M1;
4240/5: 203 270 241 J11;
4241/2: 052 10; ERASE;
4241/3: 310 005 201|033|027|042|311 005 201 11; YG5; NOT; NEG; DUP; =YG5;
4243/0: 310 005 177|036|224 150 245 YG3; -; J12=Z;
4244/1: 171 022|304 000 006|056|203 270 215 M1; SET6; +; J5;
4245/4: 310 005 203|170 022|310 034 375|170 056|171 044 12; YG7; =M1; Y61M1; =Q2; I2;
4247/4: 310 005 202|056|170 044|171 056|311 034 375 YG6; +; =I2; Q2; =Y61M1;
4251/3: 200 360 000 EXIT1;
4252/0: 041|201 270 213 13; ZERO; J4;
=== Start P316V-1; at address 2219/4253
4253/0: 310 006 051|164 333|304 000 037|054|311 005 174 P316; YK0; SHL-19; SETB37; AND; =YG0;
4255/0: 041|311 005 175|304 000 002|170 022 ZERO; =YG1; SET2; =M1;
4256/3: 310 026 053|167 365|203 050 327 1; YK2M1; SHC-6; J12≥Z;
4257/5: 310 026 051|167 367|202 050 267 YK0M1; SHC-5; J3≥Z;
4261/1: 310 026 056|222 150 267 YK5M1; J3=Z;
4262/1: 304 000 006|170 051|151 022 SET6; =RC2; M1TOQ2;
4263/2: 312 046 051|262 050 263 2; YK0M2Q; J2C2NZ;
4264/2: 311 026 052|311 026 051|311 026 056|311 026 055|311 026 054 =YK1M1; =YK0M1; =YK5M1; =YK4M1; =YK3M1;
4266/5: 311 026 053 =YK2M1;
4267/2: 310 005 175|033|027|042|311 005 175 3; YG1; NOT; NEG; DUP; =YG1;
4270/5: 310 005 174|036|225 150 273 YG0; -; J4=Z;
4272/0: 171 022|304 000 006|056|170 022|203 270 256 M1; SET6; +; =M1; J1;
4273/5: 310 005 203|042|043|311 005 177|311 005 200 4; YG7; DUP; DUPD; =YG3; =YG4;
4275/4: 170 022|310 034 375|164 357|304 000 177|054 =M1; Y61M1; SHL-9; SETB177; AND;
4277/3: 042|311 005 201|065|304 000 002|056 DUP; =YG5; REV; SET2; +;
4301/0: 042|170 043|056|311 005 202|041 DUP; =RM2; +; =YG6; ZERO;
4302/2: 311 005 175|304 000 002|170 023 =YG1; SET2; =RM1;
4303/4: 041|312 026 051|167 367|201 050 306 5; ZERO; YK0M1Q; SHC-5; J6≥Z;
4305/1: 304 000 361|313 054 374 SETB361; =Y60M2Q;
4306/1: 033|027|304 000 006|220 030 312 6; NOT; NEG; SET6; J8=;
4307/3: 312 026 051|042|222 150 311 YK0M1Q; DUP; J7=Z;
4310/4: 313 054 374|041 =Y60M2Q; ZERO;
4311/2: 052|201 270 306 7; ERASE; J6;
4312/0: 052|310 005 175|033|027|042 8; ERASE; YG1; NOT; NEG; DUP;
4313/1: 311 005 175|310 005 174|036|222 150 316 =YG1; YG0; -; J9=Z;
4314/5: 304 000 252|313 054 374|204 270 303 SETB252; =Y60M2Q; J5;
4316/2: 304 000 232|313 054 374|171 042|027|033 9; SETB232; =Y60M2Q; M2; NEG; NOT;
4320/0: 310 005 200|033|027|042|170 022 YG4; NOT; NEG; DUP; =M1;
4321/2: 036|310 034 374|167 357|042|304 000 177 -; Y60M1; SHC-9; DUP; SETB177;
4323/0: 054|015|011|167 023|311 034 374 AND; NEV; OR; SHC+9; =Y60M1;
4324/2: 171 042|310 005 202|036|220 150 327 10; M2; YG6; -; J11=Z;
4325/5: 041|313 054 374|202 270 324 ZERO; =Y60M2Q; J10;
4327/0: 200 360 000 11; EXIT1;
4327/3: 310 026 052|167 373|202 050 267 12; YK1M1; SHC-3; J3≥Z;
4330/5: 310 026 051|167 367|202 050 267 YK0M1; SHC-5; J3≥Z;
4332/1: 310 026 054|222 150 267 YK3M1; J3=Z;
4333/1: 310 026 051|310 026 052|310 026 053|310 026 054 YK0M1; YK1M1; YK2M1; YK3M1;
4335/1: 311 026 052|311 026 051|311 026 054|311 026 053 =YK1M1; =YK0M1; =YK3M1; =YK2M1;
4337/1: 202 270 267 J3;
=== Start P317V-1; at address 2272/4340
4340/0: 310 005 203|170 023|041|170 043|312 034 374 P317; YG7; =RM1; ZERO; =RM2; Y60M1Q;
4341/5: 042|313 046 051|310 034 374|313 046 051|164 333 DUP; =YK0M2Q; Y60M1; =YK0M2Q; SHL-19;
4343/5: 304 000 037|054|042|042|311 005 174 SETB37; AND; DUP; DUP; =YG0;
4345/2: 311 005 176|304 000 003|036|200 110 350 =YG2; SET3; -; J2≤Z;
4347/0: 304 004 331|200 266 175 1; SET1241; JP7;
4350/0: 312 034 374|042|304 000 377|054 2; Y60M1Q; DUP; SETB377; AND;
[ original source of the next page
4351/2: 304 000 212|220 030 366 SETB212; J5=;
4352/2: 304 000 232|223 030 365 SETB232; J4=;
4353/2: 304 000 252|223 030 365 SETB252; J4=;
4354/2: 304 000 235|223 031 000 SETB235; J9=;
4355/2: 304 000 261|224 031 002 SETB261; J10=;
4356/2: 304 000 301|224 031 002 SETB301; J10=;
4357/2: 304 000 321|224 031 002 SETB321; J10=;
4360/2: 304 000 341|223 031 004 SETB341; J12=;
4361/2: 304 000 361|223 031 004 SETB361; J12=;
4362/2: 304 000 337|054|304 000 002|223 031 000 SETB337; AND; SETB2;J9=;
4364/0: 052|052|200 270 347 ERASE; ERASE; J1;
4364/5: 041|313 046 051 3; ZERO; =YK0M2Q;
4365/3: 265 050 364 4; J3C2NZ;
4366/0: 304 000 006|170 050|304 000 232|015|065|311 005 175|223 150 372
5; SET6; =C2; SETB232; NEV; REV; =YG1; J6=Z;
4370/4: 310 005 174|027|033|311 005 174|200 270 350 YG0; NEG; NOT; =YG0; J2;
4372/3: 310 005 174|200 150 347 6; YG0; J1≠Z;
4373/3: 304 000 002|170 022|310 005 176|304 000 006|170 024 SET2; =M1; YG2; SET6; =I1;
4375/4: 042|220 151 000 7; DUP; J8=Z;
4376/2: 200 327 352|140 020|027|033|204 270 375 JSP313; M+I1; NEG; NOT; J7;
4400/0: 201 266 231 8; J2P301;
4400/3: 065|310 005 175|222 151 003 9; REV; YG1; J11=Z;
4401/4: 304 000 301|313 046 051 SETB301; =YK0M2Q;
4402/4: 041|311 005 175 10; ZERO; =YG1;
4403/2: 313 046 051|052|200 270 350 11; =YK0M2Q; ERASE; J2;
4404/3: 304 000 040|015|204 271 002 12; SETB40; NEV; J10;
=== Start P318V-1; at address 2310/4406
4406/0: 310 014 334|042|170 031|042|221 151 037 P318; Y28; DUP; =RC1; DUP; J8=Z;
4407/4: 304 000 310|036|205 051 027 SET200; -; J6≥Z;
4410/5: 304 025 304|170 102 SETAYJ0; =M4;
4411/4: 106 024|164 321|042|304 000 377|054 1; M4M1QH; SHL-24; DUP; SETB377; AND;
4413/1: 204 151 026 J5≠Z;
4413/4: 164 361|170 063|310 005 203|170 043 SHL-8; =RM3; YG7; =RM2;
4415/1: 312 054 374|042|312 074 374|015|042|205 151 032 2; Y60M2Q; DUP; Y60M3Q; NEV; DUP; J7≠Z;
4417/1: 052|304 000 377|054|304 000 232|015|201 151 015 ERASE; SETB377; AND; SETB232; NEV; J2≠Z;
4421/1: 141 020|104 024|310 014 334 3; M-I1; M4M1H; Y28;
4422/2: 164 061|011|105 024 SHL+24; OR; =M4M1H;
4423/1: 310 014 334|042|033|027|311 014 334 4; Y28; DUP; NOT; NEG; =Y28;
4424/4: 170 022|310 005 203|164 101|105 024|200 360 000 =M1; YG7; SHL+32; =M4M1H; EXIT1;
4426/4: 052|264 031 011 5; ERASE; J1C1NZ;
4427/2: 201 271 023 J4;
4427/5: 310 005 203|170 022|304 001 000|310 034 375|011 6; YG7; =M1; SETB400; Y61M1; OR;
4431/5: 311 034 375|202 360 001 =Y61M1; EXIT2;
4432/5: 304 002 000|015|223 151 036|304 000 377|054|304 000 212|015|221 151 015
7; SETB1000; NEV; J9=Z; SETB377; AND; SETB212; NEV; J2=Z;
4435/5: 041|204 271 026 ZERO; J5;
4436/3: 052|201 271 015 9; ERASE; J2;
4437/1: 304 025 304|170 102|204 271 026 8; SETAYJ0; =M4; J5;
=== Start P319V-1; at address 2337/4441
4441/0: 304 000 301|170 111|041|170 071 P319; SET193; =RC4; ZERO; =RC3;
4442/2: 312 074 374|304 000 265|015|202 151 042 1; Y60M3Q; SETB265; NEV; J1≠Z;
4444/0: 171 062|027|033|161 035|170 136 2; M3; NEG; NOT; SHA+14; =Q5;
4445/2: 041|170 036|304 026 110|170 043|203 271 047 ZERO; =Q1; SETAYL0; =RM2; J4;
4447/1: 152 002 3; I0TOQ2;
4447/3: 312 074 374|042|167 361|201 051 115 4; Y60M3Q; DUP; SHC-8; J19≥Z;
4451/0: 304 004 377|054|304 004 235|223 031 104 SETB2377; AND; SETB2235; J14=;
4452/4: 304 000 377|054|304 000 261|224 031 102 SETB377; AND; SETB261; J13=;
4454/2: 304 000 301|220 031 076 SETB301; J11=;
4455/2: 304 000 341|220 031 076 SETB341; J11=;
4456/2: 304 000 321|224 031 075 SETB321; J10=;
4457/2: 304 000 361|224 031 075 SETB361; J10=;
4460/2: 042|304 000 017|054|304 000 006|015 DUP; SETB17; AND; SETB6; NEV;
4461/5: 223 151 064 J7=Z;
[ original source of the next page
4462/2: 221 151 047 J3=Z;
4462/5: 041 ZERO;
4463/0: 052 5; ERASE;
4463/1: 304 000 007|170 050|201 271 047 6; SET7; =C2; J3;
4464/3: 171 050|304 000 005|036|202 151 067 7; C2; SET5; -; J8≠Z;
4466/0: 242 031 067 J8C1Z;
4466/3: 304 000 006|170 050 SET6; =C2;
4467/2: 171 062|027|033|161 011|171 050 8; M3; NEG; NOT; SHA+4; C2;
4470/4: 011|171 136|011|161 061|107 102 OR; Q5; OR; SHA+24; =M2M4QH;
4472/0: 263 111 073 J9C4NZ;
4472/3: 304 005 075|200 266 175 SET1341; JP7;
4473/3: 164 371|304 000 015|015|200 151 044 9; SHL-4; SETB15; NEV; J2≠Z;
4475/0: 001|200 360 000 VR; EXIT1;
4475/4: 052|041 10; ERASE; ZERO;
4476/0: 170 044 11; =I2;
4476/2: 171 022|033|027|042|170 022 12; M1; NOT; NEG; DUP; =M1;
4477/3: 304 000 003|036|203 111 047 SET3; -; J4≤Z;
4500/4: 171 050|304 000 004|032|170 050|052 C2; SET4; MAX; =C2; ERASE;
4502/1: 203 271 047 J4;
4502/4: 052|263 031 112 13; ERASE; J18C1NZ;
4503/2: 041|033|170 030|201 271 047 ZERO; NOT; =C1; J3;
4504/3: 052|304 000 001 14; ERASE; SET1;
4505/1: 263 051 106 15; J16C2NZ;
4505/4: 170 050|201 271 110 =C2; J17;
4506/3: 171 050|304 000 003|032|170 050|052 16; C2; SET3; MAX; =C2; ERASE;
4510/0: 052 ERASE;
4510/1: 171 024|033|027|042|170 024 17; I1; NOT; NEG; DUP; =I1;
4511/2: 304 000 003|036|201 111 047 SET3; -; J3≤Z;
4512/3: 171 050|304 000 004|042|012|036 18; C2; SET4; DUP; PERM; -;
4513/5: 220 111 063 J5>Z;
4514/2: 170 050|201 271 047 =C2; J3;
4515/1: 042|167 363|201 051 117 19; DUP; SHC-7; J20≥Z;
4516/1: 304 005 241|200 266 175 SET1441; JP7;
4517/1: 042|304 000 037|054|304 000 002|015 20; DUP; SETB37; AND; SETB2; NEV;
4520/4: 200 151 063 J5≠Z;
4521/1: 042|167 365|201 051 123 DUP; SHC-6; J21≥Z;
4522/1: 042|167 357|200 051 063 DUP; SHC-9; J5≥Z;
4523/1: 042|300 012 171|054|223 151 125 21; DUP; V1P333; AND; J22=Z;
4524/3: 310 014 312|200 151 063 Y10; J5≠Z;
4525/3: 042|200 327 312|200 271 063 22; DUP; JSP311; J5;
4526/4: 310 014 311|033|220 151 063 Y9; NOT; J5=Z;
4527/5: 164 321|310 014 311|164 321|015|224 151 132 SHL-24; Y9; SHL-24; NEV; J23=Z;
4531/4: 304 000 002|201 271 105 SET2; J15;
4532/4: 171 050|304 000 004|036|201 051 063 23; C2; SET4; -; J6≥Z;
4534/1: 041|171 044|222 151 135 ZERO; I2; J24=Z;
4535/1: 033 NOT;
4535/2: 304 000 006|056|170 050|201 271 110 24; SET6; +; =C2; J17;
=== Start P322V-1; at address 2399/4537
4537/0: 041|042|043|170 076|170 023 P322; ZERO; DUP; DUPD; =Q3;=RM1;
4540/1: 170 043|311 014 335|304 026 110|170 143|304 026 250 =RM2; =Y29; SETAYL0; =RM6; SETAYL96;
4542/2: 170 123 =RM5;
4542/4: 104 026|042|170 116|164 265|170 162 1; M6M1H; DUP; =Q4; SHL-38; =M7;
4544/1: 310 174 374|171 022|027|033|170 162 Y60M7; M1; NEG; NOT; =M7;
4545/4: 304 000 265|221 031 222 SETB265; J17=;
4546/4: 304 000 226|225 031 153 SETB226; J2=;
4547/4: 304 000 246|221 031 222 SETB246; J17=;
4550/4: 304 000 266|225 031 206 SETB266; J14=;
4551/4: 304 000 306|015|222 151 166 SETB306; NEV; J4=Z;
4552/5: 304 006 005|200 266 175 SET1541; JP7;
4553/5: 052|104 166|164 321|304 000 017|054 2; ERASE; M6M7H; SHL-24; SETB17; AND;
4555/2: 304 000 005|036|220 111 202 SET5; -; J10>Z;
[ original source of the next page
4556/3: 171 064|304 000 002|036|200 151 201 I3; SET2; -; J9≠Z;
4560/0: 171 162|027|033|042|161 011 M7; NEG; NOT; DUP; SHA+4;
4561/1: 304 000 005|011|161 061|107 045 SET5; OR; SHA+24; =M5M2QH;
4562/3: 041|200 331 230 ZERO; JSP320;
4563/1: 171 162|041|033|027|200 331 230 3; M7; ZERO; NOT; NEG; JSP320;
4564/3: 171 022|304 000 002|200 331 230 M1; SET2; JSP320;
4565/5: 041|170 064 13; ZERO; =I3;
4566/2: 171 116|164 025|164 265|170 162|310 174 374 4; Q4; SHL+10; SHL-38; =M7; Y60M7;
4570/1: 304 000 326|015|221 151 172 SETB326; NEV; J5=Z;
4571/2: 140 020|204 271 142 M+I1; J1;
4572/1: 171 064|304 000 002|036|042|140 020|205 151 176 5; I3; SET2; -; DUP; M+I1; J8≠Z;
(M+I1 added 05/01/65);
4574/1: 052|171 022|200 331 237 6; ERASE; M1; JSP321;
4575/1: 171 022|033|027|200 331 237|204 271 177 7; M1; NOT; NEG; JSP321; J19;
4576/5: 033|027|221 151 175 8; NOT; NEG; J7=Z;
4577/4: 171 042|311 014 344|200 360 000 19; M2; =Y36; EXIT1;
4601/0: 304 000 004|205 271 204 9; SET4; J12;
4602/0: 171 064|304 000 002|036|202 151 204 10; I3; SET2; -; J11≠Z;
4603/3: 171 022|200 331 237 M1; JSP321;
4604/2: 304 000 003 11; SET3;
4604/5: 171 162|161 011|011|161 061|107 045|201 271 163 12; M7; SHA+4; OR; SHA+24; =M5M2QH; J3;
4606/5: 052|171 064|304 000 002|036|042|201 151 212 14; ERASE; I3; SET2; -; DUP; J15≠Z;
4610/4: 052|171 022|200 331 237|200 271 214 ERASE; M1; JSP321; J16;
4612/1: 033|027|220 151 214 15; NOT; NEG; J16=Z;
4613/0: 304 006 151|200 266 175 SET1641; JP7;
4614/0: 171 162|041|200 331 230|171 022|041 16; M7; ZERO; JSP320; M1; ZERO;
4615/3: 033|027|200 331 230|171 022|033 NOT; NEG; JSP320; M1; NOT;
4616/5: 027|304 000 002|200 331 230|171 162|161 011 NEG;SET2; JSP320; M7; SHA+4;
4620/4: 033|027|161 061|107 045|205 271 165 NOT; NEG; SHA+24; =M5M2QH; J13;
4622/1: 052|171 064|304 000 002|036|221 151 225 17; ERASE; I3; SET2; -; J18=Z;
4623/5: 041|033|027|172 064|202 271 166 ZERO; NOT; NEG; =+I3; J4;
4625/1: 171 022|200 331 237|202 271 166 18; M1; JSP321; J4;
=== Start P320V0; at address 2456/4630
V-store at 04627 = 001 347 236 151 125 125 P320V0; V0=B36363632252525;
4630/0: 065|170 062|104 066|164 051|164 251 REV; =M3; M6M3H; SHL+20; SHL-44;
4631/3: 027|033|042|161 003|056 NEG; NOT; DUP; SHA+1; +;
4632/3: 056|027|161 003|170 070|300 011 227 +; NEG; SHA+1; =C3; V0;
4634/0: 164 060|304 000 003|054|310 014 335|032 SHLC3; SETB3; AND; Y29; MAX;
4635/4: 311 014 335|052|001|200 360 000 =Y29; ERASE; VR; EXIT1;
=== Start P321V-1; at address 2463/4637
4637/0: 304 000 002|042|012|036|042 P321; SET2; DUP; PERM; -; DUP;
4640/1: 041|200 331 230|161 011|011 ZERO; JSP320; SHA+4; OR;
4641/2: 161 061|107 045|200 360 000 SHA+24; =M5M2QH; EXIT1;
=== Start P324V-1; at address 2467/4643
4643/0: 170 363|100 017|042|043|164 353 P324; =RM15; M15M0; DUP; DUPD; SHL-11;
4644/2: 304 000 017|054|027|033|065 SETB17; AND; NEG; NOT; REV;
4645/3: 164 343|304 000 003|054|036|065 SHL-15; SETB3; AND; -; REV;
4646/5: 164 337|304 000 003|054|036|065 SHL-17; SETB3; AND; -; REV;
4650/1: 167 347|042|304 000 003|054|015 SHC-13; DUP; SETB3; AND; NEV;
4651/3: 011|167 033|042|311 005 174|164 061 OR; SHC+13; DUP; =YG0; SHL+24;
4653/0: 164 253|164 003|304 000 001|170 343|041 SHL-43; SHL+1; SET1; =RM14; ZERO;
4654/4: 170 323 =RM13;
4655/0: 171 370|220 031 272 1; C15; J5=;
4655/5: 310 005 174|164 360|164 337|304 000 003|054 YG0; SHLC15; SHL-17; SETB3; AND;
4657/4: 042|170 350 DUP; =C14;
4660/1: 242 351 265|102 357|167 337|042|304 000 160|054 2; J6C14Z; M15M14Q; SHC-17; DUP; SETB160; AND;
4662/1: 042|012|015|167 043|065 DUP; PERM; NEV; SHC+17; REV;
4663/1: 304 000 201|011|313 326 053|313 326 053|201 271 260 SETB201; OR; =YK2M13Q; =YK2M13Q; J2;
4665/2: 304 000 002|172 370 6; SET2; =+C15;
[ original source of the next page
4666/1: 304 000 003|205 031 267 3; SET3; J4≠;
4667/1: 052|200 271 255 ERASE; J1;
4667/5: 041|313 326 053|041|313 326 053|033 4; ZERO; =YK2M13Q; ZERO; =YK2M13Q; NOT;
4671/2: 027|201 271 266 NEG; J3;
4672/0: 052|310 005 174|167 353|164 361|167 047 5; ERASE; YG0; SHC-11; SHL-8; SHC+19;
4673/4: 311 006 051|304 000 212|311 006 052|200 360 000 =YK0; SETB212; =YK1; EXIT1;
=== Start P325V-1; at address 2494/4676
4676/0: 170 362|154 014|310 006 051|042|311 005 174 P325; =M15; C0TOQ12; YK0; DUP; =YG0;
4677/5: 164 061|164 253|042|170 370|304 000 001 SHL+24; SHL-43; DUP; =C15; SET1;
4701/3: 042|170 343|304 000 002|170 325 DUP; =RM14; SET2; =RI13;
4702/5: 304 000 003|170 330 1; SET3; =C13;
4703/4: 310 326 054|224 151 307 2; YK3M13; J3=Z;
4704/4: 310 326 053|304 000 160|054|164 043|312 326 054 YK2M13; SETB160; AND; SHL+17; YK3M13Q;
4706/4: 011|103 357|264 331 303 OR; =M15M14Q; J2C13NZ;
4707/4: 143 360|241 371 313 3; DC15; J5C15Z;
4710/3: 241 331 312 4; J7C13Z;
4711/0: 140 320|143 320|203 271 310 M+I13; DC13; J4;
4712/1: 200 331 322|205 271 302 7; JSP326; J1;
4713/1: 171 342|164 027|310 005 174|011|311 005 174 5; M14; SHL+11; YG0; OR; =YG0;
4715/0: 065|304 000 003|036|225 151 316 REV; SET3; -; J6=Z;
4716/2: 200 331 322 JSP326;
4716/5: 052|310 005 174|042|304 002 000 6; ERASE; YG0; DUP; SETB1000;
4720/1: 054|015|101 360|200 360 000 AND; NEV; =M0M15; EXIT1;
=== Start P326V-1; at address 2514/4722
4722/0: 171 342|042|066|036|164 043 P326; M14; DUP; CAB; -; SHL+17;
4723/1: 164 300|310 005 174|011|311 005 174|304 377 376 SHLC12; YG0; OR; =YG0; SET-2;
4725/1: 172 310|200 360 000 =+C12; EXIT1;
=== Start P328V-1; at address 2518/4726
4726/0: 310 005 257|164 353|304 000 017|054|311 005 174 P328; YH0; SHL-11; SETB17; AND; =YG0;
4730/0: 041|033|170 371 ZERO; NOT; =RC15;
4730/4: 200 332 010|203 152 000 1; JSP329; J20≠Z;
4731/4: 171 370|204 051 376 C15; J19≥Z;
4732/3: 261 351 367 J15C14NZ;
4733/0: 164 301|042|170 351|310 005 174|036 SHL-32; DUP; =RC14; YG0; -;
4734/3: 042|203 051 361 DUP; J12≥Z;
4735/1: 052|041|033|170 342|151 017 ERASE; ZERO; NOT; =M14; M0TOQ15;
4736/2: 200 332 010|065|052|224 151 351 2; JSP329; REV; ERASE; J9=Z;
4737/4: 171 342|204 051 341 M14; J4≥Z;
4740/3: 171 350|172 362|202 271 336 3; C14; =+M15; J2;
4741/4: 310 014 321|170 336|171 324|170 331 4; Y17; =Q13; I13; =RC13;
4743/1: 310 323 161|042|304 003 377|054|171 362 5; YD0M13; DUP; SETB1777; AND; M15;
4744/5: 203 031 346 J6≠;
4745/2: 015|171 342|011|204 271 346 NEV; M14; OR; J7;
4746/3: 052 6; ERASE;
4746/4: 313 323 161|261 331 343 7; =YD0M13Q; J5C13NZ;
4747/4: 312 363 353|313 343 353|264 351 347 8; YF0M15Q; =YF0M14Q; J8C14NZ;
4751/1: 202 271 336 J2;
4751/4: 171 342|245 351 353 9; M14; J10C14Z;
4752/3: 203 051 340 J3≥Z;
4753/0: 151 376|203 271 340 M15TOQ14; J3;
4753/5: 202 051 355 10; J11≥Z;
4754/2: 304 006 315|200 266 175 SET1741; JP7;
4755/2: 310 363 353|164 301|171 362|056|171 342 11; YF0M15; SHL-32; M15; +; M14;
4757/0: 036|164 101|311 343 353|151 357|041 -; SHL+32; =YF0M14; M14TOQ15; ZERO;
4760/3: 033|170 370|204 271 330 NOT; =C15; J1;
4761/3: 310 005 174|171 362|056|170 322|164 101 12; YG0; M15; +; =M13; SHL+32;
4763/1: 311 323 353 =YF0M13;
4763/4: 310 005 174|170 351|151 375|144 320 13; YG0; =RC14; M15TOQ13; I13=+1;
4765/1: 312 345 257|313 323 353|261 351 365 14; YH0M14Q; =YF0M13Q; J14C14NZ;
4766/4: 205 272 005 J22;
4767/1: 052|171 350|310 005 174|036|042 15; ERASE; C14; YG0; -; DUP;
4770/3: 222 051 374 J25<Z;
4771/0: 042|220 151 375 DUP; J16=Z;
[ original source of the next page
4771/4: 164 027|171 362|310 005 174|056|170 322 SHL+11; M15; YG0; +; =M13;
4773/2: 311 323 353|201 271 375 =YF0M13; J17;
4774/2: 052|205 271 375 25; ERASE; J18;
4775/0: 052 16; ERASE;
4775/1: 171 362|170 370 17; M15; =C15;
4775/5: 171 350|201 272 007 18; C14; J24;
4776/4: 052|265 351 375 19; ERASE; J18C14NZ;
4777/2: 171 370|170 362|204 271 363 C15; =M15; J13;
5000/3: 052|171 350|310 005 174|036|205 151 375 20; ERASE; C14; YG0; -; J18≠Z;
5002/1: 171 362|170 323|041|170 342|144 340 M15; =RM13; ZERO; =M14; I14=+1;
5003/4: 312 323 353|312 345 257|036|204 152 006 21; YF0M13Q; YH0M14Q; -; J23≠Z;
5005/2: 264 352 003 J21C14NZ;
5005/5: 171 362|200 360 000 22; M15; EXIT1;
5006/4: 310 005 174 23; YG0;
5007/1: 172 362|204 271 330 24; =+M15; J1;
=== Start P329V-1; at address 2568/5010
5010/0: 310 363 353|042|164 353|304 000 017|054 P329; YF0M15; DUP; SHL-11; SETB17; AND;
5011/4: 170 350|042|304 000 377|054|200 360 000 =C14; DUP; SETB377; AND; EXIT1;
=== Start P330V1; at address 2574/5016
5016/0: 304 025 304|170 263|143 260 P330V1; SETAYJ0; =RM11; DC11;
5017/1: 171 270|033|027|042|170 270 1; C11; NOT; NEG; DUP; =C11;
5020/2: 310 014 334|036|222 152 043 Y28; -; J5=Z;
5021/3: 304 000 001|170 311|171 270|172 310 SET1; =RC12; C11; =+C12;
5023/0: 106 313|242 312 026|164 321 2; M11M12QH; J3C12Z; SHL-24;
5024/1: 304 000 377|054|171 270|036|221 152 017 SETB377; AND; C11; -; J1=Z;
5025/5: 200 272 023 J2;
5026/2: 164 301|311 005 203|200 330 340 3; SHL-32; =YG7; JSP317;
5027/4: 304 025 257|200 331 276|200 331 326|171 270|164 101 SETAYH0; JSP325; JSP328; C11; SHL+32;
5031/5: 011|200 332 166|164 055|011|200 332 141 OR; JSP332; SHL+22; OR; JSP331;
5033/3: 171 270|170 302 C11; =M12;
5034/1: 104 313|042|164 301|170 302|310 314 375 4; M11M12H; DUP; SHL-32; =M12; Y61M12;
5035/5: 164 357|304 000 177|054|172 302|310 014 336 SHL-9; SETB177; AND; =+M12; Y30;
5037/4: 164 101|304 000 232|011|311 314 375|164 041 SHL+32; SETB232; OR; =Y61M12; SHL+16;
5041/3: 167 021|042|170 302|221 152 017 SHC+8; DUP; =M12; J1=Z;
5042/5: 201 272 034 J4;
5043/2: 310 014 321|170 316|171 304|171 302|036 5; Y17; =Q12; I12; M12; -;
5045/0: 170 310|144 300|203 272 047 =C12; I12=+1;J7;
5046/1: 312 303 161|164 011|203 052 050 6; YD0M12Q; SHL+4; J8≥Z;
5047/3: 261 312 046|201 272 056 7; J6C12NZ; J9;
5050/3: 310 303 160|042|304 003 377|054|304 023 353 8; YD-1M12; DUP; SETB1777; AND; SETAYF0;
5052/2: 056|200 331 243|200 332 122|065 +; JSP324; JSP327; REV;
5053/4: 167 015|304 377 374|054|011 SHC+6; SET-4; AND; OR;
5054/5: 167 365|311 303 160|203 272 047 SHC-6; =YD-1M12; J7;
5056/1: 304 000 020|042|304 000 003|170 365|310 014 322 9; SET16; DUP; SET3; =RI15; Y18;
5060/1: 170 370|201 272 065 =C15; J12;
5061/0: 312 362 022|042|164 005|202 052 064 10; YB0M15Q; DUP; SHL+2; J11≥Z;
5062/3: 164 341|304 000 017|054|042|222 152 064 SHL-16; SETB17; AND; DUP; J11=Z;
5064/1: 032 MAX;
5064/2: 052|202 212 065|032 11; ERASE; J13NV; MAX;
5065/1: 001 12; VR;
5065/2: 260 372 061 13; J10C15NZ;
5065/5: 311 014 337|311 014 340 =Y31; =Y32;
5066/5: 310 014 321|170 376|171 364|171 362|036|042 14; Y17; =Q15; I15; M15; -; DUP;
5070/4: 170 370|170 251|151 372|304 023 161|172 362 =C15; =RC10; M15TOQ10; SETAYD0; =+M15;
5072/3: 300 012 014|171 376|200 332 147|157 257|041|170 323 V0; Q15; JSP323; Q10TOQ15; ZERO; =RM13;
5074/4: 245 372 115 15; J22C15Z;
5075/1: 171 362|170 345|312 363 161|042 M15; =RI14; YD0M15Q; DUP;
V-store at 05014 = 060 000 000 000 003 377 V0=QB30000/0/B1777;
5076/3: 300 012 014|054|311 002 006 V0; AND; =W0;
5077/4: 042|164 003|222 112 107 16; DUP; SHL+1; J19>Z;
[ original source of the next page
5100/4: 052|304 000 001|172 350|240 372 106 17; ERASE; SET1; =+C14; J23C15Z;
5102/1: 312 363 161|042|300 012 014|054 YD0M15Q; DUP; V0; AND;
5103/3: 310 002 006|015|224 152 077 W0; NEV; J16=Z;
5104/4: 141 360|304 000 001|172 370|052 18; M-I15; SET1; =+C15; ERASE;
5106/0: 171 356|313 325 174|204 272 074 23; Q14; =YG0M13Q; J15;
5107/2: 164 011|164 245|202 152 111 19; SHL+4; SHL-46; J20≠Z;
5110/3: 304 000 006|172 350 SET6; =+C14;
5111/2: 310 363 160|164 015|164 265 20; YD-1M15; SHL+6; SHL-38;
5112/3: 170 342|104 353|164 041|167 021 21; =M14; M11M14H; SHL+16; SHC+8;
5113/5: 042|224 152 100 DUP; J17=Z;
5114/3: 304 000 005|172 350|203 272 112 SET5; =+C14; J21;
5115/5: 171 322|042|170 370|304 025 174|170 362 22; M13; DUP; =C15; SETAYG0; =M15;
5117/3: 300 012 015|171 376|200 332 147|311 014 341|200 360 000 V1; Q15; JSP323; =Y33; EXIT1;
V-store at 05015 = 377 377 000 000 000 000 V1=Q-1/0/0;
=== Start P327V-1; at address 2642/5122
5122/0: 310 006 051|164 061|164 253|042|164 003 P327; YK0; SHL+24; SHL-43; DUP; SHL+1;
5123/4: 056|170 371|146 360|157 016 +; =RC15; I15=+2; Q0TOQ14;
5124/5: 310 014 311|304 002 000|015 Y9; SETB1000; NEV;
5126/0: 312 366 054|043|036|221 152 136 1; YK3M15Q; DUPD; -; J7=Z;
5127/2: 167 375|222 052 137 SHC-2; J8<Z;
5130/1: 260 372 126 2; J1C15NZ;
5130/4: 052|310 014 311|042|033|222 152 135 ERASE; Y9; DUP; NOT; J5=Z;
5132/1: 223 152 135 J6=Z;
5132/4: 041|265 352 134 ZERO; J4C14NZ;
5133/2: 033|027|171 344|205 152 134 3; NOT; NEG; I14; J4≠Z;
5134/3: 033|027 NOT; NEG;
5134/5: 200 360 000 4; EXIT1;
5135/2: 052 5; ERASE;
5135/3: 041|202 272 133 6; ZERO; J3;
5136/1: 221 152 130 7; J2=Z;
5136/4: 041|033|170 350 ZERO; NOT; =C14;
5137/2: 144 340|201 272 130 8; I14=+1; J2;
=== Start P331V-1; at address 2657/5141
5141/0: 310 014 321|170 036|171 024|042|033 P331; Y17; =Q1; I1; DUP; NOT;
5142/3: 027|170 024|171 036|311 014 321|170 022 NEG; =I1; Q1; =Y17; =M1;
5144/1: 311 023 161|200 360 000 =YD0M1; EXIT1;
=== Start P323V0; at address 2663/5147
P323V0; (internal one-word sort, 26.11.63);
5147/0: 144 320|170 376|301 012 146|171 370 I13=+1; =Q15; =V0; C15;
5150/3: 164 377|042|164 373|221 152 152 1; SHL-1; DUP; SHL-3; J2=Z;
5151/5: 164 377 SHL-1;
5152/1: 042|225 152 164 2; DUP; J6=Z;
5152/5: 041|033|027|011|042 ZERO; NOT; NEG; OR; DUP;
5153/4: 043|151 376|172 342|027|170 304|171 370 DUPD; M15TOQ14; =+M14; NEG; =I12; C15;
5155/2: 036|027|151 015 -; NEG; M0TOQ13;
5156/0: 151 334|100 316 3; M13TOQ12; M14M12;
5156/4: 100 317|043|300 012 146|042|012 4; M15M12; DUPD; V0; DUP; PERM;
5160/0: 054|012|054|037|203 112 162 AND; PERM; AND; SIGN; J5≤Z;
5161/1: 103 316|171 302|204 052 156 =M14M12Q; M12; J4≥Z;
5162/2: 041 ZERO;
5162/3: 052|101 316|140 320|171 322|200 032 156 5; ERASE; =M14M12; M+I13; M13; J3≠;
5164/1: 052|203 272 150 ERASE; J1;
5164/5: 052|200 360 000 6; ERASE; EXIT1;
(end of L82);
=== Start P332V-1; at address 2678/5166
5166/0: 310 014 336|033|027|042|311 014 336 P332; Y30; NOT; NEG; DUP; =Y30;
5167/3: 200 360 000 EXIT1;
=== Start P333V2; at address 2683/5173
V-store at 05170 = 074 000 000 000 043 377 P333V2; V0=B1700000000021777;
V-store at 05171 = 000 000 377 000 000 000 V1=Q0/B177400/0;
[ original source of the next page
5173/0: 310 014 321|167 341|170 216|300 012 170|311 203 161 Y17; SHC-16; =Q8; V0; =YD0M8;
5175/1: 300 012 014|170 216|041|311 014 342|310 014 341 V0P330; =Q8; ZERO; =Y34; Y33;
5177/1: 042|170 310|027|033|170 302|145 300 DUP; =C12; NEG; NOT; =M12; I12=-1;
5200/4: 245 312 370 1; J42C12Z;
5201/1: 157 007|157 006|310 305 174|170 236|171 224 Q0TOQ7; Q0TOQ6; YG0M12; =Q9; I9;
5203/0: 170 263|151 272|304 003 377|312 263 161|042 =RM11; M11TOQ10; SETB1777; YD0M11Q; DUP;
5204/5: 171 216|054|311 002 006 Q8; AND; =W0;
5205/5: 043|164 325|054|170 124 3; DUPD; SHL-22; AND; =I5;
5206/5: 042|012|164 301|054|170 144 DUP; PERM; SHL-32; AND; =I6;
5210/0: 042|164 003|222 052 212 DUP; SHL+1; J4<Z;
5211/0: 171 124|170 150 I5; =C6;
5211/4: 171 144|170 142 I6; =M6;
5212/2: 042|224 052 222 4; DUP; J6<Z;
5213/0: 042|164 345|304 000 017|054|042 DUP; SHL-14; SETB17; AND; DUP;
5214/2: 225 152 220 J5=Z;
5214/5: 042|310 014 337|036|205 052 220 DUP; Y31; -; J5≥Z;
5216/1: 170 170|042|164 333|304 000 007|054 =C7; DUP; SHL-19; SETB7; AND;
5217/4: 170 244|152 127|204 272 222 =I10; I5TOQ7; J6;
5220/5: 052|164 003|205 052 222 5; ERASE; SHL+1; J7≥Z;
5221/5: 171 124|170 162|041 I5; =M7; ZERO;
5222/4: 052 6; ERASE;
5222/5: 310 014 321|170 236|171 224|171 262|036 7; Y17; =Q9; I9; M11; -;
5224/3: 221 152 230 J8=Z;
5225/0: 304 003 377|312 263 161|042|171 216|054 SETB1777; YD0M11Q; DUP; Q8; AND;
5226/4: 310 002 006|036|225 152 205 W0; -; J3=Z;
5227/5: 052|052 ERASE; ERASE;
5230/1: 240 172 232 8; J9C7Z;
5230/4: 304 000 002|171 164|200 272 243 SET2; I7; J14;
5232/0: 245 152 237 9; J12C6Z;
5232/3: 310 014 340|042|304 000 005|036|202 112 236 Y32; DUP; SET5; -; J10≤Z;
5234/2: 027|033|042|311 014 340|170 170 NEG; NOT; DUP; =Y32; =C7;
5235/4: 041|200 272 237 ZERO; J11;
5236/2: 052|304 000 003 10; ERASE; SET3;
5237/0: 171 150|200 272 243 11; C6; J14;
5237/5: 171 162|220 152 242 12; M7; J13=Z;
5240/4: 304 000 003|171 162|200 272 243 SET3; M7; J14;
5242/0: 304 000 001|200 332 166 13; SET1; JSP332;
5243/0: 170 130|170 250|263 152 323 14; =C5; =C10; J26C6NZ;
5244/1: 151 253|310 263 161|304 003 377|054|170 262 M10TOQ11; YD0M11; SETB1777; AND; =M11;
5246/0: 312 263 353|200 326 272|164 353|304 000 017|054 YF0M11Q; JSP306; SHL-11; SETB17; AND;
5250/0: 027|033|170 270 NEG; NOT; =C11;
5250/4: 310 002 021|304 000 206|015|203 152 264 YA0; SETB206; NEV; J29≠Z;
5252/2: 041|042 ZERO; DUP;
5252/4: 052 15; ERASE;
5252/5: 240 272 264 16; J20C11Z;
5253/2: 312 263 353|042|167 375|204 052 252 YF0M11Q; DUP; SHC-2; J15≥Z;
5254/5: 310 014 313|205 152 263 Y11; J19≠Z;
5255/5: 042|167 365|205 052 257 DUP; SHC-6; J17≥Z;
5256/5: 042|167 357|205 052 263 DUP; SHC-9; J19≥Z;
5257/5: 310 014 312|221 152 262 17; Y10; J18=Z;
5260/5: 042|300 012 171|054|205 152 263 DUP; V1; AND; J19≠Z;
5262/1: 042|200 327 312|205 272 263|204 272 252 18; DUP; JSP311; J19; J15;
5263/5: 011 19; OR;
5264/0: 223 152 323 20; J26=Z;
5264/3: 151 253 29; M10TOQ11;
5264/5: 312 263 161|042|171 216|054|310 002 006 22; YD0M11Q; DUP; Q8; AND; W0;
5266/3: 036|203 152 302 -; J23≠Z;
5267/1: 042|164 003|203 053 006 DUP; SHL+1; J28≥Z;
5270/1: 042|164 301|304 003 377|054|304 100 000 DUP; SHL-32; SETB1777; AND; SETB40000;
5271/5: 011|170 222|042|042|304 020 000|054|164 015|011 OR; =M9; DUP; DUP; SETB10000; AND; SHL+6; OR;
[ original source of the next page
5273/5: 164 345|304 000 377|054|042|304 100 000|011 SHL-14; SETB377; AND; DUP; SETB40000; OR;
5275/4: 170 224|203 153 002 =I9; J21≠Z;
5276/3: 042|200 333 010|042|304 040 000|011|170 224 DUP; JSP334; DUP; SETB20000; OR; =I9;
5300/2: 065|164 325|304 003 377|054|200 333 011|203 273 002 REV; SHL-22; SETB1777; AND; JSP335; J21;
5302/3: 052|171 250|041|200 032 305 23; ERASE; C10; ZERO; J24≠;
5303/4: 310 014 340|033|027|311 014 340 Y32; NOT; NEG; =Y32;
5305/0: 027|033|202 152 322 24; NEG; NOT; J45≠Z;
5305/5: 310 014 336|027|033|311 014 336|202 272 322 Y30; NEG; NOT; =Y30; J45;
5307/4: 310 243 161|300 012 170|054|171 130|164 055 25; YD0M10; V0; AND; C5; SHL+22;
5311/3: 011|245 172 315|240 252 314 OR; J50C7Z; J51C10Z;
5312/4: 171 244|164 047|011|200 272 315 I10; SHL+19; OR; J52;
5314/0: 304 000 003|164 047|011 51; SETB3; SHL+19; OR;
5315/0: 171 170|164 035|011 52; C7; SHL+14; OR;
5315/5: 244 152 317 50; J43C6Z;
5316/2: 171 142|164 101|011|203 272 322 M6; SHL+32; OR; J46;
5317/4: 041|033|027|164 135|011|203 272 322 43; ZERO; NOT; NEG; SHL+46; OR; J46;
5321/1: 011|164 035|011|203 272 322 44; OR; SHL+14; OR; J46;
5322/2: 041 45; ZERO;
5322/3: 313 305 174|204 272 200 46; =YG0M12Q; J1;
5323/3: 304 025 304|170 122 26; SETAYJ0; =M5;
5324/2: 310 243 161|164 011|164 245|203 152 335 YD0M10; SHL+4; SHL-46; J30≠Z;
5326/0: 310 014 335|304 000 003|036|203 152 335 Y29; SET3; -; J30≠Z;
5327/4: 243 152 264 J29C6Z;
5330/1: 151 151 M6TOQ9;
5330/3: 104 225|042|164 301|170 222|310 234 375 27; M5M9H; DUP; SHL-32; =M9; Y61M9;
5332/1: 304 001 000|011|311 234 375|164 041|167 021 SETB400; OR; =Y61M9; SHL+16; SHC+8;
5334/0: 042|170 222|203 152 330|203 272 264 DUP; =M9; J27≠Z; J29;
5335/3: 241 152 344 30; J32C6Z;
5336/0: 171 250|167 377|221 052 344 C10; SHC-1; J32<Z;
5337/1: 151 151 M6TOQ9;
5337/3: 104 225|042|164 301|170 222|310 234 374 31; M5M9H; DUP; SHL-32; =M9; Y60M9;
5341/1: 171 170|164 031|011|311 234 374|164 041 C7; SHL+12; OR; =Y60M9; SHL+16;
5342/5: 167 021|042|170 222|203 152 337 SHC+8; DUP; =M9; J31≠Z;
5344/1: 151 253|041 32; M10TOQ11; ZERO;
5344/4: 052 33; ERASE;
5344/5: 312 263 161|042|171 216|054|310 002 006 41; YD0M11Q; DUP; Q8; AND; W0;
5346/3: 036|225 152 347 -; J34=Z;
5347/1: 052|204 272 307 ERASE; J25;
5347/5: 042|164 003|204 052 344 34; DUP; SHL+1; J33≥Z;
5350/5: 243 172 354 36; J37C7Z;
5351/2: 042|164 005|164 245|033|027 DUP; SHL+2; SHL-46; NOT; NEG;
5352/3: 164 013|171 170|011|304 100 000|011 SHL+5; C7; OR; SETB40000; OR;
5354/0: 205 272 354 J38;
5354/3: 171 130 37; C5;
5354/5: 170 230|042|164 015|164 265|304 100 000 38; =C9; DUP; SHL+6; SHL-38; SETB40000;
5356/3: 011|170 222|042|042|304 020 000|054 OR; =M9; DUP; DUP; SETB10000; AND;
5360/0: 164 015|011|164 065|164 261|042|223 152 363 SHL+6; OR; SHL+26; SHL-40; DUP; J39=Z;
5361/5: 304 100 000|011|170 224|052|205 272 367 SETB40000; OR; =I9; ERASE; J40;
5363/3: 052|164 041|164 265|042|171 130 39; ERASE; SHL+16; SHL-38; DUP; C5;
5364/5: 036|224 152 344 -; J33=Z;
5365/3: 200 333 010|042|304 040 000|011|170 224 JSP334; DUP; SETB20000; OR; =I9;
5367/1: 065|200 333 011 REV; JSP335;
5367/5: 200 333 014|205 272 344 40; JSP336; J41;
5370/5: 310 014 341|042|170 370|027|033|170 362|145 360 42; Y33; DUP; =C15; NEG; NOT; =M15; I15=-1;
5372/5: 310 014 321|170 356|171 342|170 323|041 Y17; =Q14; M14; =RM13; ZERO;
5374/3: 052|243 372 377 47; ERASE; J48C15Z;
5375/1: 312 365 174|042|223 152 374 YG0M15Q; DUP; J47=Z;
5376/2: 313 323 161|041|203 272 374 =YD0M13Q; ZERO; J47;
5377/3: 171 322|170 344|171 356|311 014 321 48; M13; =I14; Q14; =Y17;
5401/0: 171 330|027|311 014 326|200 360 000 C13; NEG; =Y22; EXIT1;
[ original source of the next page
5402/3: 042|164 303|304 140 000|042|012 21; DUP; SHL-31; SETB60000; DUP; PERM;
5403/5: 054|164 377|011|065|304 003 377 AND; SHL-1; OR; REV; SETB1777;
5405/1: 054|011|170 230|200 333 014|041 AND; OR; =C9; JSP336; ZERO;
5406/3: 052|205 272 264 28; ERASE; J22;
=== Start P334V-1; at address 2824/5410
5410/0: 210 261 030 P334; JP815;
=== Start P335V-1; at address 2825/5411
P335; (N1=TIR ,N2=PIR );
5411/0: 304 200 000|011|170 371 SETB100000; OR; =RC15;
5412/0: 304 240 000|011|170 364|171 376|210 260 311 SETB120000; OR; =I15; Q15; JP806;
=== Start P336V-1; at address 2828/5414
5414/0: 171 236|310 014 342|042|033|027 P336; Q9; Y34; DUP; NOT; NEG;
5415/2: 311 014 342|170 222|311 226 311|200 360 000 =Y34; =M9; =YN0M9; EXIT1;
=== Start P338V1; at address 2834/5422
5422/0: 304 030 133|170 222|157 017 P338V1; SETAYR0; =M9; Q0TOQ15;
5423/1: 304 025 271|170 242|041|170 323 SETAYH10; =M10; ZERO; =RM13;
5424/3: 157 334|157 333 Q13TOQ12; Q13TOQ11;
5425/1: 310 334 374|304 000 377|054|304 000 354|015 1; Y60M13; SETB377; AND; SETB354; NEV;
5427/0: 221 153 164 J39=Z;
5427/3: 140 320|201 273 025 M+I13; J1;
5430/2: 052 2; ERASE;
5430/3: 140 320|310 334 374 3; M+I13; Y60M13;
5431/2: 042|167 361|225 053 040 24; DUP; SHC-8; J9<Z;
5432/2: 042|304 000 377|054|304 000 131|015 DUP; SETB377; AND; SETB131; NEV;
5433/5: 202 153 030 J2≠Z;
5434/2: 200 333 264|203 273 030 JSP340; J3;
5435/2: 171 364|205 153 036 4; I15; J5≠Z;
5436/1: 171 322|170 364 M13; =I15;
5436/5: 151 337|203 273 030 5; M13TOQ15; J3;
5437/4: 041|033 7; ZERO; NOT;
5440/0: 170 370|202 273 035 8; =C15; J4;
5440/5: 042|304 000 017|054|304 000 014|222 033 102 9; DUP; SETB17; AND; SET12; J20=;
5442/4: 304 000 010|224 033 070 SET8; J15=;
5443/4: 304 000 007|220 033 057 SET7; J12=;
5444/4: 304 000 005|225 033 053 SET5; J11=;
5445/4: 304 000 006|015|222 153 047 SET6; NEV; J10=Z;
5446/5: 202 273 030 J2;
5447/2: 042|304 000 160|042|012|054 10; DUP; SETB160; DUP; PERM; AND;
5450/3: 015|202 153 030 NEV; J2≠Z;
5451/1: 164 361|200 326 215|310 342 022|164 003 SHL-8; JSP300; YB0M14; SHL+1;
5452/5: 224 053 037 J7<Z;
5453/2: 203 273 030 J3;
5453/5: 052|164 123|164 247|203 153 030 11; ERASE; SHL+41; SHL-45; J3≠Z;
5455/1: 104 312|300 013 021|011|105 312|203 273 030 M10M12H; V1; OR; =M10M12H; J3;
V-store at 05421 = 200 000 000 000 000 000 V1=-1/0;
5457/0: 052|164 371|304 000 003|054|042 12; ERASE; SHL-4; SETB3; AND; DUP;
5460/2: 202 153 063 J13≠Z;
5460/5: 140 300|171 322|164 061|300 013 020|056 M+I12; M13; SHL+24; V0; +;
5462/3: 105 312|202 273 030 =M10M12H; J2;
V-store at 05420 = 100 000 000 000 000 000 V0=1/1;
5463/2: 027|033|202 153 067 13; NEG; NOT; J14≠Z;
5464/1: 104 312|222 053 067 M10M12H; J14<Z;
5465/0: 171 322|164 061|300 013 021|011|300 013 020|011|105 312 M13; SHL+24; V1; OR; V0; OR; =M10M12H;
5467/2: 243 373 030 14; J3C15Z;
5467/5: 154 017|205 273 036 C0TOQ15; J5;
5470/4: 052|167 367|042|200 053 040 15; ERASE; SHC-5; DUP; J8≥Z;
5471/5: 170 250 =C10;
5472/1: 104 312|204 053 076 16; M10M12H; J18≥Z;
5473/0: 104 312|164 031|171 322|164 061|011 M10M12H; SHL+12; M13; SHL+24; OR;
5474/3: 107 271|140 300 =M9M11QH; M+I12;
5475/1: 141 300|104 312|164 003|221 053 075 17; M-I12; M10M12H; SHL+1; J17<Z;
[ original source of the next page
5476/4: 244 253 100 18; J19C10Z;
5477/1: 171 322|164 061|105 312|202 273 067 M13; SHL+24; =M10M12H; J14;
5500/4: 141 300|171 302|223 053 122 19; M-I12; M12; J25<Z;
5501/5: 202 273 067 J14;
5502/2: 052|167 367|154 012|221 053 072 20; ERASE; SHC-5; C0TOQ10; J16<Z;
5503/4: 140 300 M+I12;
5504/0: 171 322|042|170 230|164 061|105 312 26; M13; DUP; =C9; SHL+24; =M10M12H;
5505/3: 140 320|310 334 374|042|304 000 300|054 21; M+I13; Y60M13; DUP; SETB300; AND;
5507/1: 304 000 100|015|204 153 113 SETB100; NEV; J23≠Z;
5510/2: 140 320|310 334 374|304 000 377|054|304 000 230 22; M+I13; Y60M13; SETB377; AND; SETB230;
5512/2: 015|202 153 110 NEV; J22≠Z;
5513/0: 052|203 273 105 40; ERASE; J21;
5513/4: 042|304 000 377|054|304 000 230|015 23; DUP; SETB377; AND; SETB230; NEV;
5515/1: 220 153 113 J40=Z;
5515/4: 171 230|171 322|036|033|027|222 153 031 C9; M13; -; NOT; NEG; J24=Z;
5517/2: 171 322|027|033|164 061|042 M13; NEG; NOT; SHL+24; DUP;
5520/3: 171 230|164 111|011|107 271|105 312 C9; SHL+36; OR; =M9M11QH; =M10M12H;
5522/0: 202 273 031|171 364|171 362|036|222 153 137 J24;25; I15; M15; -; J30=Z;
5523/5: 151 274|145 300 M11TOQ12; I12=-1;
5524/3: 171 302|223 153 134 27; M12; J29=Z;
5525/2: 140 300|104 311|141 300|042|164 031 M+I12; M9M12H; M-I12; DUP; SHL+12;
5526/5: 167 031|171 362|036|202 053 133 SHC+12; M15; -; J28≥Z;
5530/1: 171 364|164 111|171 362|164 061|011 I15; SHL+36; M15; SHL+24; OR;
5531/4: 065|041|166 031|170 364|167 031 REV; ZERO; SHLD+12; =I15; SHC+12;
5533/0: 170 362 =M15;
5533/2: 105 311|140 300|203 273 124 28; =M9M12H; M+I12; J27;
5534/3: 171 362|164 061|171 364|164 111|011 29; M15; SHL+24; I15; SHL+36; OR;
5536/0: 105 011 =M9M0H;
5536/2: 171 262|033|027|170 262 M11; NOT; NEG; =M11;
5537/2: 154 012 30; C0TOQ10;
5537/4: 171 262|042|027|033|170 302 M11; DUP; NEG; NOT; =M12;
5540/5: 170 310|145 300|157 315 =C12; I12=-1; Q12TOQ13;
5541/5: 244 313 153|106 311|243 253 152 31; J35C12Z; M9M12QH; J34C10Z;
5543/1: 042|164 031|167 031|171 376|164 271|027|033 DUP; SHL+12; SHC+12; Q15; SHL-36; NEG; NOT;
5545/0: 036|201 053 147|171 376|107 331 -; J33≥Z; Q15; =M9M13QH;
5546/2: 170 376|205 273 141 32; =Q15; J31;
5547/1: 164 271|171 376|164 271|032 33; SHL-36; Q15; SHL-36; MAX;
5550/2: 001|052|171 376|164 031|065 VR; ERASE; Q15; SHL+12; REV;
5551/3: 166 351|052|202 273 146 SHLD-12; ERASE; J32;
5552/3: 041|033|170 250|202 273 146 34; ZERO; NOT; =C10; J32;
5553/4: 245 253 154 35; J36C10Z;
5554/1: 171 376|107 331 Q15; =M9M13QH;
5554/5: 171 322|171 262|036|033|042 36; M13; M11; -; NOT; DUP;
5556/0: 311 014 351|170 311 =Y41; =RC12;
5556/5: 171 322|033|027|170 302 M13; NOT; NEG; =M12;
5557/5: 171 262|170 271 M11; =RC11;
5560/3: 241 313 162 37; J38C12Z;
5561/0: 106 311|107 271|203 273 160 M9M12QH; =M9M11QH; J37;
5562/1: 244 273 163 38; J41C11Z;
5562/4: 041|107 271|201 273 162 ZERO; =M9M11QH; J38;
5563/4: 200 360 000 41; EXIT1;
5564/1: 171 322|164 061|107 271|200 273 104 39; M13; SHL+24; =M9M11QH; J26;
=== Start P339V-1; at address 2934/5566
5566/0: 310 014 322|170 371|304 000 003|170 364|041|033 P339; Y18; =RC15; SET3; =I15; ZERO; NOT;
5570/0: 244 373 173 21; J22C15Z;
5570/3: 312 362 022|164 005|042|200 053 173 YB0M15Q; SHL+2; DUP; J23≥Z;
5572/0: 164 021|164 275|032|065 SHL+8; SHL-34; MAX; REV;
5573/0: 052|200 273 170 23; ERASE; J21;
5573/4: 170 322|001 22; =M13; VR;
5574/1: 310 014 344|310 014 335|011|027|033|203 153 260 Y36; Y29; OR; NEG; NOT; J19≠Z;
[ original source of the next page
5576/1: 304 025 304|170 242|304 030 133|170 222 SETAYJ0; =M10; SETAYR0; =M9;
5577/5: 310 014 321|170 356|171 344|171 342|036|170 371 Y17; =Q14; I14; M14; -; =RC15;
5601/5: 151 357|200 273 260 M14TOQ15; J17;
5602/4: 312 363 161|042|300 012 014|054|311 002 006 1; YD0M15Q; DUP; V0P330; AND; =W0;
5604/3: 171 362|027|033|170 302 M15; NEG; NOT; =M12;
5605/3: 041|033|042|170 324|170 330 ZERO; NOT; DUP; =I13; =C13;
5606/4: 042|164 075|164 251|225 153 262 DUP; SHL+30; SHL-44; J20=Z;
5610/0: 042|164 065|164 247|304 000 003|015|205 153 262 DUP; SHL+26; SHL-45; SETB3; NEV; J20≠Z;
5612/0: 042|164 255|304 000 003|054|205 153 262 DUP; SHL-42; SETB3; AND; J20≠Z;
5613/4: 042|164 015|164 265|065|164 003 2; DUP; SHL+6; SHL-38; REV; SHL+1;
5615/0: 225 053 262 J20<Z;
5615/3: 170 262 =M11;
5615/5: 104 272|167 041|042|170 262|164 261 3; M10M11H; SHC+16; DUP; =M11; SHL-40;
5617/2: 042|310 274 374|167 355|220 053 222 DUP; Y60M11; SHC-10; J4<Z;
5620/5: 171 262|170 330|204 273 222 M11; =C13; J5;
5622/0: 171 262|170 324 4; M11; =I13;
5622/4: 170 262|205 153 215 5; =M11; J3≠Z;
5623/3: 200 273 224 J7;
5624/0: 241 373 230 7; J8C15Z;
5624/3: 312 363 161|042|300 012 014|054 YD0M15Q; DUP; V0P330; AND;
5625/5: 310 002 006|015|224 153 213 W0; NEV; J2=Z;
5627/0: 052|141 360|171 364|172 370 ERASE; M-I15; I15; =+C15;
5630/1: 171 322|171 324|036|200 053 261 8; M13; I13; -; J18≥Z;
5631/3: 171 324|171 330|036|203 053 245 I13; C13; -; J12≥Z;
5632/5: 171 324|042|170 263|033|221 153 246 I13; DUP; =RM11; NOT; J13=Z;
5634/2: 171 330|171 324|036|170 270|041 C13; I13; -; =C11; ZERO;
5635/4: 052 9; ERASE;
5635/5: 243 273 245 10; J12C11Z;
5636/2: 312 274 374|042|167 361|204 053 235 Y60M11Q; DUP; SHC-8; J9≥Z;
5637/5: 304 000 017|054|042|304 000 006|036|204 113 235 SETB17; AND; DUP; SET6; -; J9≤Z;
5641/5: 304 000 012|224 033 235 SET10; J9=;
5642/5: 304 000 013|224 033 235 SET11; J9=;
5643/5: 304 000 015|224 033 235 SET13; J9=;
5644/5: 052|201 273 246 ERASE; J13;
5645/3: 171 324|170 330 12; I13; =C13;
5646/1: 304 000 001|310 014 351|170 271|041 13; SET1; Y41; =RC11; ZERO;
5647/4: 052 14; ERASE;
5647/5: 241 273 254 15; J16C11Z;
5650/2: 106 271|042|164 271|171 330|036 M9M11QH; DUP; SHL-36; C13; -;
5651/4: 204 053 247 J14≥Z;
5652/1: 164 031|167 031|171 330|036|205 113 247 SHL+12; SHC+12; C13; -; J15≤Z;
5653/5: 052|041 ERASE; ZERO;
5654/1: 042|164 033|310 303 161|011|311 303 161 16; DUP; SHL+13; YD0M12; OR; =YD0M12;
5655/5: 171 330|170 302|164 027|310 314 374|011|311 314 374 C13; =M12; SHL+11; Y60M12; OR; =Y60M12;
5660/0: 264 373 202 17; J1C15NZ;
5660/3: 200 360 000 19; EXIT1;
5661/0: 171 322|171 330|036|221 053 246 18; M13; C13; -; J13<Z;
5662/2: 200 273 260 J17;
5662/5: 052|200 273 260 20; ERASE; J17;
=== Start P340V-1; at address 2996/5664
5664/0: 310 014 331|200 153 271 P340; Y25; J2≠Z;
5665/0: 304 023 076|170 362|310 014 323|170 343 SETAYC0; =M15; Y19; =RM14;
5666/4: 171 342|304 000 144|036|223 153 271|106 357|204 033 266 1; M14; SET100; -; J3=Z;M15M14QH; J1≠;
5671/0: 201 266 231 2; J2P301;
5671/3: 052|202 360 001 3; ERASE; EXIT2;
=== Start P341V-1; at address 3003/5673
5673/0: 310 014 314|170 376|144 320|304 023 076|170 302 P341; Y12; =Q15; I13=+1; SETAYC0; =M12;
5675/0: 310 014 331|204 153 327 Y25; J12≠Z;
5676/0: 310 014 323|170 343|140 340|041 Y19; =RM14; M+I14; ZERO;
5677/2: 052|171 342|304 000 144|036|220 153 306 1; ERASE; M14; SET100; -; J4=Z;
5701/0: 151 375|106 354 M15TOQ13; M12M14QH;
5701/4: 171 322|171 364|036|222 153 277 2; M13; I15; -; J1=Z;
[ original source of the next page
5703/0: 106 334|204 033 301 M12M13QH; J2≠;
5703/5: 141 320|141 340|041|042 M-I13; M-I14; ZERO; DUP;
5704/5: 107 334|107 354|202 273 277 =M12M13QH; =M12M14QH; J1;
5706/0: 304 000 143|170 322|145 320|157 336 4; SET99; =M13; I13=-1; Q13TOQ14;
5707/3: 041 ZERO;
5707/4: 052 5; ERASE;
5707/5: 310 014 323|171 322|036|221 153 313 6; Y19; M13; -; J7=Z;
5711/2: 106 334|042|224 153 307 M12M13QH; DUP; J5=Z;
5712/2: 107 354|205 273 307 =M12M14QH; J6;
5713/1: 310 014 325|310 014 323|036|171 342|042 7; Y21; Y19; -; M14; DUP;
5714/5: 311 014 323|056 =Y19; +;
5715/3: 151 376|144 340|157 355|041 M15TOQ14; I14=+1; Q14TOQ13; ZERO;
5716/4: 052 8; ERASE;
5716/5: 171 364|171 342|036|220 153 322 9; I15; M14; -; J10=Z;
5720/1: 106 354|042|224 153 316 M12M14QH; DUP; J8=Z;
5721/1: 107 334|205 273 316 =M12M13QH; J9;
5722/0: 171 322|042|042|157 376|170 344|171 356|311 014 314 10; M13; DUP; DUP; Q15TOQ14; =I14; Q14; =Y12;
5724/1: 171 362|036 M15; -;
5724/4: 220 153 326 J11=Z;
5725/1: 041|033|311 014 331 ZERO; NOT; =Y25;
5726/0: 036|171 364|056|311 014 325|200 360 000 11; -; I15; +; =Y21; EXIT1;
5727/4: 171 362|042|170 343|170 344 12; M15; DUP; =RM14; =I14;
5730/5: 171 356|311 014 314|310 014 325|171 362|200 273 326 Q14; =Y12; Y21; M15; J11;
=== Start P345V0; at address 3036/5734
V-store at 05733 = 000 001 000 000 004 235 P345V0; V0=Q1/0/B2235;
5734/0: 157 015|157 014|311 005 244 Q0TOQ13; Q0TOQ12; =YG40;
5735/1: 310 005 237|167 365|205 053 336 YG35; SHC-6; J1≥Z;
5736/3: 143 320 DC13;
5736/5: 310 005 231|167 365|202 054 046 1; YG29; SHC-6; J21≥Z;
5740/1: 310 005 243|310 005 230|221 033 344 YG39; YG28; J2=;
5741/4: 310 005 232|225 033 345 YG30; J19=;
5742/4: 310 005 234|222 034 041 YG32; J20=;
5743/4: 201 274 053 J22;
5744/1: 310 005 232|311 005 230|311 005 232|041 2; YG30; =YG28; =YG30; ZERO;
5745/5: 052|240 334 033 19; ERASE; J16C13Z;
5746/3: 310 005 235|200 334 216 YG33; JSP350;
5747/3: 310 005 230|311 005 222|310 005 236|311 005 223|310 005 240 YG28; =YG22; YG34; =YG23; YG36;
5752/0: 311 005 224|200 334 103 =YG24; JSP342;
5753/0: 310 005 242|223 153 357 YG38; J3=Z;
5754/0: 310 005 241|200 334 216 YG37; JSP350;
5755/0: 310 005 230|311 005 222|310 005 242|311 005 223|200 334 125 YG28; =YG22; YG38; =YG23; JSP343;
5757/3: 310 005 243|310 005 234|036|224 154 015 3; YG39; YG32; -; J13=Z;
5761/1: 310 005 234|224 153 365 18; YG32; J4=Z;
5762/1: 310 005 244|224 153 365 YG40; J4=Z;
5763/1: 310 005 233|311 005 221|310 005 234|311 005 222|200 334 161 YG31; =YG21; YG32; =YG22; JSP344;
5765/4: 304 000 007|170 351 4; SET7; =RC14;
5766/3: 171 310|027|033|224 114 101 C12; NEG; NOT; J31>Z;
5767/4: 241 313 374 J5C12Z;
5770/1: 310 005 210|200 334 220|310 005 211|200 334 220|304 000 261 YG12; JSP352; YG13; JSP352; SETB261;
5772/4: 200 334 220|310 005 212|200 334 220 JSP352; YG14; JSP352;
5774/1: 171 322|170 371|146 360 5; M13; =RC15; I15=+2;
5775/1: 245 374 006 6; J9C15Z;
5775/4: 310 365 174|161 301|033|204 154 000 YG0M15; SHA-32; NOT; J7≠Z;
5777/1: 304 000 321|200 334 220|202 274 005 SETB321; JSP352; J8;
6000/4: 304 000 301|200 334 220|310 365 174|161 301|027 7; SETB301; JSP352; YG0M15; SHA-32; NEG;
6002/4: 033|222 154 005 NOT; J8=Z;
6003/2: 310 365 174|200 334 220|304 000 261|200 334 220 YG0M15; JSP352; SETB261; JSP352;
6005/2: 312 365 175|200 334 220|201 273 375 8; YG1M15Q; JSP352; J6;
6006/5: 171 324|203 154 010 9; I13; J10≠Z;
6007/4: 171 342|205 154 012 M14; J11≠Z;
6010/3: 304 000 301|200 334 220|171 324|200 334 123|200 334 220 10; SETB301; JSP352; I13; JSP347; JSP352;
[ original source of the next page
6012/5: 171 350|027|033|221 154 015 11; C14; NEG; NOT; J12=Z;
6014/0: 041|200 334 220|205 274 012 ZERO; JSP352; J11;
6015/1: 200 360 000 12; EXIT1;
6015/4: 244 334 025 13; J14C13Z;
6016/1: 310 005 235|200 334 217|310 005 236|311 005 222|310 005 240 YG33; JSP351; YG34; =YG22; YG36;
6020/4: 311 005 223|200 334 125|310 005 242|224 153 365 =YG23; JSP343; YG38; J4=Z;
6022/4: 310 005 241|200 334 217|310 005 242|311 005 222|200 334 161 YG37; JSP351; YG38; =YG22; JSP344;
6025/1: 204 273 365 J4;
6025/4: 304 000 006|170 371 14; SET6; =RC15;
6026/3: 244 373 365 15; J4C15Z;
6027/0: 310 365 236|224 153 365 YG34M15; J4=Z;
6030/0: 312 365 235|200 334 217|312 365 235|311 005 222|200 334 161 YG33M15Q; JSP351; YG33M15Q; =YG22; JSP344;
6032/3: 203 274 026 J15;
6033/0: 304 000 006|170 371 16; SET6; =RC15;
6033/5: 241 373 361 17; J18C15Z;
6034/2: 310 365 236|221 153 361 YG34M15; J18=Z;
6035/2: 312 365 235|200 334 216|312 365 235|311 005 222|310 005 230 YG33M15Q; JSP350; YG33M15Q; =YG22; YG28;
6037/5: 311 005 223|200 334 125|205 274 033 =YG23; JSP343; J17;
6041/2: 310 005 244|224 154 015 20; YG40; J13=Z;
6042/2: 310 005 227|311 005 221|310 005 230|311 005 222|310 005 232 YG27; =YG21; YG28; =YG22; YG30;
6044/5: 311 005 223|200 334 125|204 274 015 =YG23; JSP343; J13;
6046/2: 310 005 230|310 005 227|310 005 243|310 005 230|224 034 067 21; YG28; YG27; YG39; YG28; J28=;
6050/5: 310 005 232|223 034 064 YG30; J26=;
6051/5: 310 005 234|222 034 062 YG32; J25=;
6052/5: 052|052 ERASE; ERASE;
6053/1: 052|310 005 244|304 000 006|170 371|170 350 22; ERASE; YG40; SET6; =RC15; =C14;
6055/0: 310 365 227|262 354 056 23; YG27M15; J24C14NZ;
6056/0: 052|041 ERASE; ZERO;
6056/2: 313 365 221|260 374 055 24; =YG21M15Q; J23C15NZ;
6057/2: 265 354 061 J32C14NZ;
6057/5: 304 000 301|311 005 221 SETB301; =YG21;
6060/5: 304 004 235|311 005 222 SETB2235; =YG22;
6061/5: 200 360 000 32; EXIT1;
6062/2: 310 005 233|051|311 005 233|311 005 234|201 274 066 25; YG31; REVD; =YG31; =YG32; J27;
6064/3: 310 005 231|051|311 005 231|311 005 232 26; YG29; REVD; =YG29; =YG30;
6066/1: 311 005 227|311 005 230|041|042|042 27; =YG27; =YG28; ZERO; DUP; DUP;
6067/4: 052|052|052|310 005 244|221 154 100 28; ERASE; ERASE;ERASE; YG40; J30=Z;
6071/1: 310 005 232|224 154 074 YG30; J29=Z;
6072/1: 310 005 231|311 005 221|310 005 232|311 005 222|200 334 161 YG29; =YG21; YG30; =YG22; JSP344;
6074/4: 310 005 234|221 154 100 29; YG32; J30=Z;
6075/4: 310 005 233|311 005 221|310 005 234|311 005 222|200 334 161 YG31; =YG21; YG32; =YG22; JSP344;
6100/1: 310 005 227|311 005 233|204 274 015 30; YG27; =YG31; J13;
6101/4: 202 360 001 31; EXIT2;
=== Start P342V-1; at address 3139/6103
6103/0: 304 000 001|304 000 003|170 351|157 357 P342; SET1; SET3; =RC14; Q14TOQ15;
6104/4: 240 354 111 1; J2C14Z;
6105/1: 312 345 222|042|167 373|224 054 107 YG22M14Q; DUP; SHC-3; J8<Z;
6106/4: 313 365 222|204 274 104 =YG22M15Q; J1;
6107/4: 200 334 122|034|050|204 274 104 8; JSP346; ×D; CONT; J1;
6111/0: 042|027|033|225 154 113 2; DUP; NEG; NOT; J3=Z;
6112/0: 042|222 154 120 DUP; J5=Z;
6112/4: 200 334 123|313 365 222|041 JSP347; =YG22M15Q; ZERO;
6113/5: 052|263 374 115 3; ERASE; J4C15NZ;
6114/3: 173 000|052|204 274 101 LINK; ERASE; J31P345;
6115/3: 171 362|304 000 002|220 034 121 4; M15; SET2; J7=;
6116/5: 027|033|203 154 120 NEG; NOT; J6≠Z;
6117/4: 200 334 161|041 JSP344; ZERO;
6120/2: 052 5; ERASE;
6120/3: 200 360 000 6; EXIT1;
[ original source of the next page
6121/0: 200 334 125|202 274 120 7; JSP343; J5;
=== Start P346V-1; at address 3154/6122
6122/0: 164 301|200 360 000 P346; SHL-32; EXIT1;
=== Start P347V-1; at address 3155/6123
6123/0: 164 101|304 004 235|011|200 360 000 P347; SHL+32; SETB2235; OR; EXIT1;
=== Start P343V-1; at address 3157/6125
6125/0: 310 005 223|167 373|310 005 222|167 373|200 054 135 P343; YG23; SHC-3; YG22; SHC-3; J2≥Z;
6127/1: 200 054 134 J1≥Z;
6127/4: 310 005 223|200 334 122|310 005 222|200 334 122|034 YG23; JSP346; YG22; JSP346; ×D;
6131/5: 050|200 334 123|311 005 222|200 334 161|200 360 000 CONT; JSP347; =YG22; JSP344; EXIT1;
6134/0: 200 334 170|200 360 000 1; JSP348; EXIT1;
6135/0: 310 005 222|310 005 223|066|201 054 140 2; YG22; YG23; CAB; J3≥Z;
6136/4: 311 005 222|311 005 223|200 274 134 =YG22; =YG23; J1;
6140/1: 032|311 005 222|311 005 223 3; MAX; =YG22; =YG23;
6141/2: 304 000 003|170 345|154 316 SET3; =RI14; C12TOQ14;
6142/3: 243 354 154 4; J7C14Z;
6143/0: 312 345 211|310 005 222|036 YG13M14Q; YG22; -;
6144/1: 310 345 207|310 005 223|036|011|203 154 142 YG11M14; YG23; -; OR; J4≠Z;
6146/0: 310 345 205|310 005 221|036|223 154 142 YG9M14; YG21; -; J4=Z;
6147/4: 244 354 153 5; J6C14Z;
6150/1: 310 345 210|311 345 205|310 345 211|311 345 206|310 345 212 YG12M14; =YG9M14; YG13M14; =YG10M14; YG14M14;
6152/4: 313 345 207|204 274 147 =YG11M14Q; J5;
6153/4: 143 300|200 360 000 6; DC12; EXIT1;
6154/3: 310 005 221|311 345 210|310 005 222|311 345 211|310 005 223 7; YG21; =YG12M14; YG22; =YG13M14; YG23;
6157/0: 311 345 212|304 000 001|172 310|200 360 000 =YG14M14; SET1; =+C12; EXIT1;
=== Start P344V-1; at address 3185/6161
6161/0: 310 005 222|042|167 373|201 054 165 P344; YG22; DUP; SHC-3; J2≥Z;
6162/3: 161 301|310 005 221|167 367|202 054 164 SHA-32; YG21; SHC-5; J1≥Z;
6164/1: 027 NEG;
6164/2: 172 324|200 360 000 1; =+I13; EXIT1;
6165/1: 311 005 223|300 013 333|311 005 222|200 274 170 2; =YG23; V0P345; =YG22; JP348;
=== Start P348V-1; at address 3192/6170
6170/0: 310 005 221|167 367|202 054 173 P348; YG21; SHC-5; J1≥Z;
6171/2: 310 005 222|170 276|142 260|171 276|311 005 222 YG22; =Q11; NC11; Q11; =YG22;
6173/2: 171 322|170 351|146 340 1; M13; =RC14; I14=+2;
6174/2: 244 354 205 2; J5C14Z;
6174/5: 312 345 175|310 005 223|036|202 154 174|310 345 172|310 005 222|056|304 004 235|036
YG1M14Q; YG23; -; J2≠Z;YG-2M14; YG22; +; SETB2235; -;
6200/2: 042|311 345 172|164 301|200 154 211 DUP; =YG-2M14; SHL-32; J7≠Z;
6201/5: 245 354 204 3; J4C14Z;
6202/2: 310 345 174|311 345 172|310 345 175|313 345 173|205 274 201 YG0M14; =YG-2M14; YG1M14; =YG-1M14Q; J3;
6204/5: 041|033|201 274 210 4; ZERO; NOT; J6;
6205/4: 310 005 222|311 345 174|310 005 223|311 345 175|304 000 001 5; YG22; =YG0M14; YG23; =YG1M14; SET1;
6210/1: 172 322|200 360 000 6; =+M13; EXIT1;
6211/0: 200 360 000 7; EXIT1;
=== Start P349V-1; at address 3210/6212
6212/0: 036|221 154 214 P349; -; J2=Z;
6212/4: 304 000 321 SETB321;
6213/1: 311 005 221|200 360 000 1; =YG21; EXIT1;
6214/1: 304 000 301|201 274 213 2; SETB301; J1;
=== Start P350V-1; at address 3214/6216
6216/0: 310 005 227|200 274 212 P350; YG27; JP349;
=== Start P351V-1; at address 3215/6217
6217/0: 310 005 233|200 274 212 P351; YG31; JP349;
=== Start P352V-1; at address 3216/6220
6220/0: 313 345 221|243 354 221 P352; =YG21M14Q; J1C14Z;
6221/0: 200 360 000 EXIT1;
6221/3: 173 000|052|202 360 001 1; LINK; ERASE; EXIT2;
[ original source of the next page
=== Start P360V2; at address 3222/6226
6226/0: 204 326 131|200 326 162|200 326 126|200 326 157|304 000 236 P360V2; JS1P2; JS1P6; JSP2; JSP6; SETB236;
6230/3: 200 326 157|041|033|301 014 224 JSP6; ZERO; NOT; =V1;
6231/5: 200 326 126|170 036 1; JSP2; =Q1;
6232/4: 171 022|304 000 236|015|221 154 235 M1; SETB236; NEV; J2=Z;
6234/1: 304 000 215|200 266 175 SET141; JP7;
6235/1: 171 024|042|170 051|042|311 014 300 2; I1; DUP; =RC2; DUP; =Y0;
6236/4: 320 013 123|164 101|161 301|304 053 055|056|304 034 374 Z12; SHL+32; SHA-32; SETAZ50; +; SETAY60;
6241/0: 036|036|205 114 242 -; -; J3≤Z;
6241/5: 304 001 125|200 266 175 SET341; JP7;
6242/5: 200 326 126|313 054 374|265 054 242 3; JSP2; =Y60M2Q; J3C2NZ;
6244/2: 310 014 374|311 002 021 Y60; =YA0;
6245/2: 200 326 126|171 036|015|225 154 247 JSP2; Q1; NEV; J4=Z;
6246/5: 304 000 361|200 266 175 SET241; JP7;
6247/5: 171 030|223 054 260 4; C1; J7<Z;
6250/4: 171 030|311 014 301|310 014 375|042|042 C1; =Y1; Y61; DUP; DUP;
6252/2: 304 000 337|054|304 000 002|015|012 SETB337; AND; SETB2; NEV; PERM;
6253/5: 304 000 040|054|164 007|054|011|201 154 257 SETB40; AND; SHL+3; AND; OR; J5≠Z;
6255/4: 310 014 375|311 014 311|200 274 260 Y61; =Y9; J6;
6257/1: 041|033|311 014 311 5; ZERO; NOT; =Y9;
6260/0: 203 274 315 6; J11;
6260/3: 041|311 014 311|171 030|027|311 014 310 7; ZERO; =Y9; C1; NEG; =Y8;
6262/1: 203 274 315 J11;
6262/4: 304 000 011|170 051 12; SET9; =RC2;
6263/3: 041|313 054 312|263 054 263 8; ZERO; =Y10M2Q; J8C2NZ;
6264/4: 304 000 143|311 014 323 SET99; =Y19;
6265/4: 304 000 144|042|311 014 324|311 014 325 SET100; DUP; =Y20; =Y21;
6267/2: 304 000 047|311 014 327|041|311 014 336 SET39; =Y23; ZERO; =Y30;
6271/0: 304 001 220|164 101|311 003 353 SET400; SHL+32; =YF0;
6272/2: 171 030|301 014 224 9; C1; =V1;
6273/1: 041|042|043|043 10; ZERO; DUP; DUPD; DUPD;
6273/5: 311 014 334|311 014 312|311 014 313|311 014 331|311 014 332|311 014 333
=Y28; =Y10; =Y11; =Y25; =Y26; =Y27;
6276/5: 200 334 317 JSP361;
6277/2: 041|042|043|301 016 142 ZERO; DUP; DUPD; =V1P388;
6300/2: 301 016 143|301 016 144|301 016 204 =V2P388; =V3P388; =V35P388;
6301/5: 310 014 300|170 322|310 334 373|200 327 300 Y0; =M13; Y59M13; JSP309;
6303/4: 320 333 055|167 361|042|304 000 017 Z50M13; SHC-8; DUP; SETB17;
6305/1: 054|042|304 000 020|310 014 340|036|032 AND; DUP; SET16; Y32; -; MAX;
6306/5: 065|052|012|015|011|167 021 REV; ERASE; PERM; NEV; OR; SHC+8;
6310/0: 321 333 055|001 =Z50M13; VR;
6310/4: 310 002 021|300 014 225|054|300 014 223|015|205 154 231 YA0; V2; AND; V0; NEV; J1≠Z;
V-store at 06223 = 001 001 002 000 000 214 V0=B0020040200000214;
V-store at 06225 = 377 377 377 000 001 377 V2=B7777777700000777;
6313/0: 304 001 234|200 326 157|201 326 144|200 326 170|210 261 274 SETB634; JSP6; JS3P2; JS3P6; JP884;
6315/3: 300 014 224|224 054 262|202 274 272 11; V1; J12<Z; J9;
=== Start P361V-1; at address 3279/6317
P361; (P368 used 23/02/65--syntax check);
6317/0: 200 335 076 JSP368;
6317/3: 041|200 334 337|200 326 235|200 326 305|210 321 047 ZERO; JSP362; JSP305; JSP307; JSP820;
6321/4: 310 002 021|304 000 206|015|042|222 154 324 YA0; SETB206; NEV; DUP; J4=Z;
6323/3: 041|033|311 014 313 ZERO; NOT; =Y11;
6324/2: 200 334 347|200 326 335|200 333 273 4; JSP363; JSP308; JSP341;
6325/5: 042|200 154 330 DUP; J1≠Z;
6326/3: 200 331 041|200 331 137|200 333 022 JSP319; JSP322; JSP338;
6330/0: 200 332 016|200 332 173|200 154 333 1; JSP330; JSP333; J2≠Z;
6331/3: 200 333 166|200 335 033|200 335 257 JSP339; JSP366; JSP380;
6333/0: 210 321 263|200 334 356|200 335 002|304 000 020|200 334 337|200 335 071|210 261 277
2; JSP870; JSP364; JSP365; SETB20; JSP362; JSP367; JP889;
=== Start P362V-1; at address 3295/6337
P362; (Output end-comp or begin-comp);
6337/0: 310 002 021|304 000 206|015|205 154 345 YA0; SETB206; NEV; J2≠Z;
6340/4: 042|310 014 300|170 142|310 154 373|164 261|164 121 3; DUP; Y0; =M6; Y59M6; SHL-40; SHL+40;
[ original source of the next page
6342/5: 304 000 254|011|011|065|222 154 345 SETB254; OR; OR; REV; J1=Z;
6344/2: 200 326 157|304 000 230 JSP6; SETB230;
6345/2: 200 266 157 1; JP6;
6345/5: 052|200 360 000 2; ERASE; EXIT1;
=== Start P363V-1; at address 3303/6347
6347/0: 041|304 000 003|170 365|310 014 322|170 370 P363; ZERO; SET3; =RI15; Y18; =C15;
6350/5: 041 ZERO;
6351/0: 052|244 374 354 1; ERASE; J2C15Z;
6351/4: 312 362 022|042|164 005|200 054 351 YB0M15Q; DUP; SHL+2; J1≥Z;
6353/1: 164 101|164 255|032|065|200 274 351 SHL+32; SHL-42; MAX; REV; J1;
6354/4: 311 014 345|001|200 360 000 2; =Y37; VR; EXIT1;
=== Start P364V-1; at address 3310/6356
6356/0: 304 000 006|170 371|041 P364; SET6; =RC15; ZERO;
6357/0: 312 374 314|166 361|052|260 374 357 1; Y12M15Q; SHLD-8; ERASE; J1C15NZ;
6360/3: 310 014 313|164 137|310 014 312|164 137|164 373|011 Y11; SHL+47; Y10; SHL+47; SHL-3; OR;
6362/4: 310 014 331|164 137|164 371|011 Y25; SHL+47; SHL-4; OR;
6364/0: 310 014 340|304 000 017|054|164 041|011|310 014 345|164 025|011
Y32; SETB17; AND; SHL+16; OR; Y37; SHL+10; OR;
6366/4: 310 014 301|011|041|041|170 363 Y1; OR; ZERO; ZERO; =RM15;
6370/0: 304 000 003|170 345 SET3; =RI14;
6370/5: 310 014 322|170 350|041 Y18; =C14; ZERO;
6371/5: 052 2; ERASE;
6372/0: 242 354 377 3; J4C14Z;
6372/3: 312 342 022|042|164 005|225 054 371 YB0M14Q; DUP; SHL+2; J2<Z;
6374/0: 313 362 022|310 342 020|313 362 022 =YB0M15Q; YB-2M14; =YB0M15Q;
6375/3: 310 342 021|313 362 022 YB-1M14; =YB0M15Q;
6376/3: 033|027|200 274 372 NOT; NEG; J3;
6377/2: 033|027|311 014 322 4; NOT; NEG; =Y18;
6400/1: 313 362 022 =YB0M15Q;
6400/4: 313 362 022|200 360 000 =YB0M15Q; EXIT1;
=== Start P365V-1; at address 3330/6402
6402/0: 304 000 144|310 014 314|170 376|171 364|036 P365; SET100; Y12; =Q15; I15; -;
6403/5: 171 362|056|311 014 324|310 014 321|170 376 M15; +; =Y20; Y17; =Q15;
6405/4: 171 364|171 362|036|170 351 I15; M15; -; =RC14;
6406/5: 144 320 I13=+1;
6407/1: 151 376 M15TOQ14;
6407/3: 151 375 M15TOQ13;
6407/5: 154 015|041 C0TOQ13; ZERO;
6410/2: 052 1; ERASE;
6410/3: 241 355 016 2; J3C14Z;
6411/0: 312 343 161|042|164 011|164 245|222 155 010 YD0M14Q; DUP; SHL+4; SHL-46; J1=Z;
6412/5: 167 015|304 000 020|011|164 025|310 014 301|011 SHC+6; SETB20; OR; SHL+10; Y1; OR;
6414/5: 167 341|313 323 161|203 275 010 SHC-16; =YD0M13Q; J2;
6416/1: 171 362|171 330|036|170 364 3; M15; C13; -; =I15;
6417/2: 171 376|311 014 321 Q15; =Y17;
6420/1: 153 015 IM0TOQ13;
6420/3: 140 320 4; M+I13;
6420/5: 310 323 353|042|304 170 000|054 YF0M13; DUP; SETB74000; AND;
6422/1: 042|170 330|164 353|170 324 DUP; =C13; SHL-11; =I13;
6423/2: 164 121|201 155 025 SHL+40; J5≠Z;
6424/1: 263 335 020 J4C13NZ;
6424/4: 200 360 000 EXIT1;
6425/1: 171 364|170 351 5; I15; =RC14;
6425/5: 240 355 031 6; J7C14Z;
6426/2: 312 343 161|304 003 377|054|171 322|036 YD0M14Q; SETB1777; AND; M13; -;
6430/0: 223 155 020 J4=Z;
6430/3: 205 275 025 J6;
6431/0: 171 330|311 323 353|203 275 020 7; C13; =YF0M13; J4;
=== Start P366V-1; at address 3355/6433
6433/0: 157 016|310 014 321|170 376|171 364|171 362 P366; Q0TOQ14; Y17; =Q15; I15; M15;
6434/5: 036|170 370|144 360|041|157 375 -; =C15; I15=+1; ZERO; Q15TOQ13;
6436/1: 052 1; ERASE;
6436/2: 245 375 053 2; J4C15Z;
6436/5: 312 363 161|042|164 011|164 245|201 155 036 YD0M15Q; DUP; SHL+4; SHL-46; J1≠Z;
6440/4: 042|164 075|164 251|221 155 036 DUP; SHL+30; SHL-44; J1=Z;
[ original source of the next page
6442/0: 042|164 105|201 055 046 DUP; SHL+34; J3≥Z;
6443/0: 042|164 065|221 055 036 DUP; SHL+26; J1<Z;
6444/0: 164 075|164 251|170 350|152 016|151 376 SHL+30; SHL-44; =C14; I0TOQ14; M15TOQ14;
6445/4: 204 275 062 J7;
6446/1: 042|164 111|221 055 036 3; DUP; SHL+36; J1<Z;
6447/1: 042|164 067|164 245|171 342 DUP; SHL+27; SHL-46; M14;
6450/2: 032|065|052|201 215 053 MAX; REV; ERASE; J9NV;
6451/2: 170 342|164 075|164 251|170 350|202 275 036 =M14; SHL+30; SHL-44; =C14; J2;
6453/1: 052|201 275 036 9; ERASE; J1;
6453/5: 171 342|200 155 062 4; M14; J5≠Z;
6454/4: 310 014 340|027|033|042|311 014 340 Y32; NEG; NOT; DUP; =Y32;
6456/1: 042|170 350|304 000 004|036|200 155 062 DUP; =C14; SET4; -; J5≠Z;
6457/5: 304 000 005|311 014 340|041|311 014 346|200 360 000 SET5; =Y32; ZERO; =Y38; EXIT1;
6462/0: 144 340|041 5; I14=+1; ZERO;
6462/3: 052 6; ERASE;
6462/4: 241 335 067 7; J8C13Z;
6463/1: 312 323 161|042|164 073|164 251|171 350 YD0M13Q; DUP; SHL+29; SHL-44; C14;
6464/5: 036|203 155 062 -; J6≠Z;
6465/3: 304 010 000|011|311 323 160|204 275 062 SETB4000; OR; =YD-1M13; J7;
6467/1: 171 356|311 014 346|200 360 000 8; Q14; =Y38; EXIT1;
=== Start P367V-1; at address 3385/6471
6471/0: 304 000 006|170 031 P367; SET6; =RC1;
6471/5: 310 034 314|170 056|171 044|170 042|171 056|313 034 314|265 035 071
1; Y12M1; =Q2; I2; =M2; Q2; =Y12M1Q; J1C1NZ;
6474/4: 200 360 000 EXIT1;
=== Start P368V-1; at address 3390/6476
6476/0: 304 000 002|170 051|312 054 374|304 000 206|015 P368; SET2; =RC2; Y60M2Q; SETB206; NEV;
6500/0: 220 155 101|200 360 000 J1=Z; EXIT1;
6501/0: 312 054 374|304 000 265|222 035 105 1; Y60M2Q; SETB265; J2=;
6502/3: 304 000 017|054|304 000 006|015|200 155 101 SETB17; AND; SETB6; NEV; J1≠Z;
6504/2: 304 000 051|200 266 175 SET41; JP7;
6505/2: 244 055 123 2; J10C2Z;
6505/5: 052|200 335 117 3; ERASE; JS8;
6506/3: 304 000 226|221 035 113 SETB226; J5=;
6507/3: 304 000 266|222 035 114 SETB266; J6=;
6510/3: 304 000 246|225 035 105 4; SETB246; J3=;
6511/3: 304 000 326|015|200 155 116 SETB326; NEV; J7≠Z;
6512/4: 200 360 000 EXIT1;
6513/1: 052|200 335 117|203 275 110 5; ERASE; JS8; J4;
6514/2: 052|200 335 117 6; ERASE; JS8;
6515/0: 304 000 306|221 035 113 SETB306; J5=;
6516/0: 304 000 051|200 266 175 7; SET41; JP7;
6517/0: 304 000 001|170 050|041 8; SET1; =C2; ZERO;
6520/0: 052|312 054 374|042|304 000 017|054 9; ERASE; Y60M2Q; DUP; SETB17; AND;
6521/3: 304 000 006|015|200 155 120 SETB6; NEV; J9≠Z;
6522/4: 244 055 123|200 360 000 J10C2Z; EXIT1;
6523/4: 304 000 051|200 266 175 10; SET41;JP7;
=== Start P380V89; at address 3503/6657
V-store at 06525 = 000 020 000 000 000 000 P380V89; V0=B1/11;
V-store at 06526 = 000 000 000 000 000 000 V1=0;
V-store at 06527 = 066 340 000 000 000 000 V2=B1556/11;
V-store at 06530 = 000 030 000 000 000 000 V3=B3/12;
V-store at 06531 = 066 340 000 000 000 000 V4=B1556/11;
V-store at 06532 = 000 030 000 000 000 000 V5=B3/12;
V-store at 06533 = 166 340 000 000 000 000 V6=B3556/11;
V-store at 06534 = 000 030 000 000 000 000 V7=B3/12;
V-store at 06535 = 120 001 006 001 014 030 V8=B2400040600206030;
V-store at 06536 = 044 270 000 120 000 000 V9=B222700005/27;
V-store at 06537 = 066 341 000 201 154 330 V10=B1556040040266330;
V-store at 06540 = 010 030 021 000 200 040 V11=B0201402100100040;
V-store at 06541 = 076 341 001 001 254 330 V12=B1756040100326330;
V-store at 06542 = 000 030 020 200 120 040 V13=B0001402040050040;
V-store at 06543 = 076 341 001 001 254 330 V14=B1756040100326330;
V-store at 06544 = 000 030 020 200 120 040 V15=B0001402040050040;
[ original source of the next page
V-store at 06545 = 132 001 027 001 254 330 V16=B2640042700326330;
V-store at 06546 = 044 270 000 320 120 040 V17=B1113400064050040;
V-store at 06547 = 000 021 000 201 000 070 V18=B0001040040200070;
V-store at 06550 = 010 000 021 000 340 300 V19=B0200002100160300;
V-store at 06551 = 000 021 000 201 000 130 V20=B0001040040200130;
V-store at 06552 = 010 000 021 000 340 240 V21=B0200002100160240;
V-store at 06553 = 000 021 000 201 000 070 V22=B0001040040200070;
V-store at 06554 = 010 010 021 000 340 300 V23=B0200402100160300;
V-store at 06555 = 000 021 000 201 000 130 V24=B0001040040200130;
V-store at 06556 = 010 010 021 000 340 240 V25=B0200402100160240;
V-store at 06557 = 000 020 000 000 001 000 V26=B0001000000000400;
V-store at 06560 = 001 000 000 000 002 000 V27=B0020000000001000;
V-store at 06561 = 066 340 000 000 001 000 V28=B1556000000000400;
V-store at 06562 = 001 030 000 000 002 000 V29=B0021400000001000;
V-store at 06563 = 067 340 000 000 002 000 V30=B1576000000001000;
V-store at 06564 = 000 030 000 000 001 000 V31=B0001400000000400;
V-store at 06565 = 067 340 000 000 002 000 V32=B1576000000001000;
V-store at 06566 = 000 030 000 000 001 000 V33=B0001400000000400;
V-store at 06567 = 120 001 006 001 015 030 V34=B2400040600206430;
V-store at 06570 = 045 370 000 120 000 000 V35=B1137400024000000;
V-store at 06571 = 000 001 000 120 000 000 V36=B0000040024000000;
V-store at 06572 = 001 000 020 001 377 370 V37=B0020002000377770;
V-store at 06573 = 000 001 006 001 014 030 V38=B0000040600206030;
V-store at 06574 = 044 270 000 120 000 000 V39=B1113400024000000;
V-store at 06575 = 132 001 027 201 014 030 V40=B2640042740206030;
V-store at 06576 = 000 000 000 000 000 000 V41=B0000000000000000;
V-store at 06577 = 000 001 000 120 000 000 V42=B0000040024000000;
V-store at 06600 = 000 000 027 201 377 370 V43=B0000002740377770;
V-store at 06601 = 120 000 000 000 000 000 V44=B2400000000000000;
V-store at 06602 = 000 000 000 000 000 000 V45=0;
V-store at 06603 = 012 000 000 000 000 000 V46=B0240000000000000;
V-store at 06604 = 000 000 000 000 000 000 V47=0;
V-store at 06605 = 000 000 200 000 000 002 V48=B0000020000000002;
V-store at 06606 = 000 000 100 000 000 000 V49=B1/17;
V-store at 06607 = 000 000 100 000 000 000 V50=B1/17;
V-store at 06610 = 000 000 200 000 000 002 V51=B0000020000000002;
V-store at 06611 = 332 007 077 041 265 330 V52=B6640347710332730;
V-store at 06612 = 045 370 000 320 112 040 V53=B1137400064045040;
V-store at 06613 = 000 007 040 040 000 000 V54=B0000344010000000;
V-store at 06614 = 200 000 000 000 000 000 V55=B1/0;
V-store at 06615 = 120 004 000 000 000 000 V56=B2400200000000000;
V-store at 06616 = 257 373 077 375 377 370 V57=B5377547777377770;
V-store at 06617 = 000 000 000 000 000 000 V58=B0000000000000000;
V-store at 06620 = 000 000 000 014 000 000 V59=B3/29;
V-store at 06621 = 000 000 000 000 000 000 V60=0;
V-store at 06622 = 257 370 037 320 277 360 V61=B5377403764137760;
V-store at 06623 = 000 007 000 057 100 010 V62=B0000340013640010;
V-store at 06624 = 120 000 000 000 000 000 V63=B5/3;
V-store at 06625 = 000 003 000 043 100 010 V64=B0000140010640010;
V-store at 06626 = 000 000 000 000 000 000 V65=0;
V-store at 06627 = 000 001 000 000 000 004 V66=B0000040000000004;
V-store at 06630 = 000 002 000 001 100 010 V67=B0000100000240010;
V-store at 06631 = 120 000 000 000 000 000 V68=B5/3;
V-store at 06632 = 000 000 000 014 000 000 V69=B3/29;
V-store at 06633 = 000 000 000 014 000 000 V70=B3/29;
V-store at 06634 = 120 000 000 000 000 000 V71=B5/3;
V-store at 06635 = 000 000 000 000 000 000 V72=0;
V-store at 06636 = 257 372 033 174 376 360 V73=B5377503337177360;
V-store at 06637 = 120 005 044 201 001 010 V74=B2400244440200410;
V-store at 06640 = 000 000 000 000 000 000 V75=0;
[ original source of the next page
V-store at 06641 = 000 005 040 001 001 010 V76=B0000244000200410;
V-store at 06642 = 000 000 000 000 000 000 V77=0;
V-store at 06643 = 000 001 000 000 000 004 V78=B0000040000000004;
V-store at 06644 = 000 000 000 001 001 010 V79=B0000000000200410;
V-store at 06645 = 000 000 000 000 000 000 V80=0;
V-store at 06646 = 000 000 000 000 000 000 V81=0;
V-store at 06647 = 120 000 004 200 000 000 V82=B2400000440000000;
V-store at 06650 = 000 000 000 000 000 000 V83=0;
V-store at 06651 = 120 000 000 000 000 000 V84=B5/3;
V-store at 06652 = 000 000 000 000 000 000 V85=0;
V-store at 06653 = 000 000 000 000 000 000 V86=0;
V-store at 06654 = 000 000 000 000 000 000 V87=0;
V-store at 06655 = 000 000 000 000 000 000 V88=0;
V-store at 06656 = 000 000 000 000 000 000 V89=0;
6657/0: 041|311 014 362 ZERO; =Y50;
6657/4: 310 002 021|304 000 206|015|205 156 010 YA0; SETB206; NEV; J30≠Z;
6661/2: 310 014 344|042|170 051|027|033 Y36; DUP; =RC2; NEG; NOT;
6662/4: 170 350 =C14;
6663/0: 245 056 004 1; J29C2Z;
6663/3: 157 014|157 015 Q0TOQ12; Q0TOQ13;
6664/1: 304 026 110|170 262 SETAYL0; =M11;
6665/0: 304 026 250|170 242 SETAYL96; =M10;
6665/5: 106 052|042|164 311|170 342 M10M2QH; DUP; SHL-28; =M14;
6667/0: 164 051|164 251 SHL+20; SHL-44;
6667/4: 027|033|042|225 155 275 NEG; NOT; DUP; J2=Z;
6670/4: 027|033|042|223 155 325 NEG; NOT; DUP; J13=Z;
6671/4: 027|033|042|224 155 326 NEG; NOT; DUP; J14=Z;
6672/4: 027|033|042|224 155 326 NEG; NOT; DUP; J14=Z;
6673/4: 027|033|042|222 155 340 NEG; NOT; DUP; J19=Z;
6674/4: 052|304 001 271|200 266 175 ERASE; SET441; JP7;
6675/5: 052|310 014 313|220 155 300 2; ERASE; Y11; J3=Z;
6677/0: 304 015 211|202 275 337 SETAV52; J18;
6700/0: 304 015 213|200 336 012 3; SETAV54; JSP381;
6701/0: 310 014 375|042|304 000 337|054|304 000 002 Y61; DUP; SETB337; AND; SETB2;
6702/5: 015|200 155 311 NEV; J12≠Z;
6703/3: 042|164 373|015|167 365|221 055 311 DUP; SHL-3; NEV; SHC-6; J7<Z;
6705/0: 304 000 003|170 231|151 351 4; SET3; =RC9; M14TOQ9;
6706/1: 241 235 313 6; J9C9Z;
6706/4: 106 233|164 051|164 251 M11M9QH; SHL+20; SHL-44;
6707/4: 304 000 004|036|201 115 306 SET4; -; J6≤Z;
6710/5: 041 ZERO;
6711/0: 052 12; ERASE;
6711/1: 304 015 173|200 336 012 7; SETAV38; JSP381;
6712/1: 304 015 175|201 275 350 5; SETAV40; J21;
6713/1: 310 014 346|042|220 155 311 9; Y38; DUP; J12=Z;
6714/2: 304 177 377|011|311 014 346 SETB77777; OR; =Y38;
6715/3: 304 015 171|200 336 012 SETAV36; JSP381;
6716/3: 310 014 331|201 155 312 Y25; J5≠Z;
6717/3: 200 336 016|201 275 312 JSP382; J5;
6720/3: 200 336 100|304 015 177|201 275 350 JSP385; SETAV42; J21;
6722/0: 240 355 324 10; J11C14Z;
6722/3: 304 015 205|200 336 206|200 275 263 SETAV48; JSP388; J1;
6724/0: 304 015 207|200 336 206|200 275 263 11; SETAV50; JSP388; J1;
6725/3: 052|304 015 215|202 275 337 13; ERASE; SETAV56; J18;
6726/4: 052|304 015 221|200 336 012|310 014 313|225 155 331 14; ERASE; SETAV60; JSP381; Y11; J15=Z;
6730/5: 304 015 223|202 275 337 SETAV62; J18;
6731/5: 304 015 227|171 342 15; SETAV66; M14;
6732/4: 304 015 225|200 336 125 SETAV64; JSP386;
6733/4: 104 353|164 051|164 251|304 000 004 16; M11M14H; SHL+20; SHL-44; SET4;
6735/1: 036|205 115 336 -; J17≤Z;
[ original source of the next page
6735/5: 304 015 233|202 275 337 SETAV70; J18;
6736/5: 304 015 231 17; SETAV68;
6737/2: 200 336 012|200 275 322 18; JSP381; J10;
6740/2: 052|304 015 235|200 336 012 19; ERASE; SETAV72; JSP381;
6741/3: 310 014 313|223 155 343 Y11; J20=Z;
6742/3: 304 015 237|202 275 337 SETAV74; J18;
6743/3: 304 015 243|171 342|033|027 20; SETAV78; M14; NOT; NEG;
6744/4: 200 336 016|204 275 346 JSP382; J36;
6745/4: 304 015 241|201 275 347 SETAV76; J37;
6746/4: 304 015 237 36; SETAV74;
6747/1: 200 336 125|200 275 322 37; JSP386; J10;
(14/01/65);
6750/1: 200 336 012|304 015 123|104 353 21; JSP381; SETAV-2; M11M14H;
6751/3: 200 336 135|171 342|033|027|170 222 JSP387; M14; NOT; NEG; =M9;
6753/0: 104 233|164 051|164 251|042 M11M9H; SHL+20; SHL-44; DUP;
6754/1: 304 000 004|036|203 115 356 SET4; -; J22≤Z;
6755/2: 052|304 015 145|203 276 002 ERASE; SETAV16; J28;
6756/3: 042|027|033|220 155 361 22; DUP; NEG; NOT; J23=Z;
6757/3: 161 003|304 015 133|056|203 276 002 SHA+1; SETAV6; +; J28;
6761/0: 052|104 233|164 265|170 222 23; ERASE; M11M9H; SHL-38; =M9;
6762/1: 041|310 234 375 ZERO; Y61M9;
6762/5: 042|304 007 377|054|304 004 235 33; DUP; SETB3777; AND; SETB2235;
6764/1: 015|220 155 374 NEV; J24=Z;
6764/5: 065|042|224 155 366 REV; DUP; J34=Z;
6765/4: 304 002 201|200 266 175 SET641; JP7;
6766/4: 033|065 34; NOT; REV;
6767/0: 304 000 377|054|304 000 361 SETB377; AND; SETB361;
6770/1: 015|220 155 373 NEV; J35=Z;
6770/5: 310 234 376|041|166 041|027 Y62M9; ZERO; SHLD+16; NEG;
6772/0: 166 341|052|205 275 362 SHLD-16; ERASE; J33;
6773/0: 310 234 376|205 275 362 35; Y62M9; J33;
6774/0: 065|052|161 301|042|201 056 000 24; REV; ERASE; SHA-32; DUP; J26≥Z;
6775/2: 033|027|221 155 377 NOT; NEG; J25=Z;
6776/1: 304 015 153|203 276 002 SETAV22; J28;
6777/1: 304 015 147|203 276 002 25; SETAV18; J28;
7000/1: 027|033|200 156 002 26; NEG; NOT; J27≠Z;
7001/0: 304 015 151|203 276 002 SETAV20; J28;
7002/0: 304 015 155 27; SETAV24;
7002/3: 200 336 012|304 015 155 28; JSP381; SETAV24;
7003/3: 114 353|200 336 135|200 275 322 M11M14HN; JSP387; J10;
7004/5: 310 014 346|042|170 056|222 156 010 29; Y38; DUP; =Q2; J31=Z;
7006/2: 171 042|202 156 010 M2; J31≠Z;
7007/1: 171 050|033|027|311 014 340 C2; NOT; NEG; =Y32;
7010/2: 202 360 001 31; EXIT2;
7010/5: 200 360 000 30; EXIT1;
=== Start P381V-1; at address 3594/7012
7012/0: 171 336|065|170 322 P381; Q13; REV; =M13;
7012/5: 300 320 000|011 E0M13; OR;
7013/3: 171 316|300 320 001|011|170 316|170 336 Q12; E1M13; OR; =Q12; =Q13;
7015/1: 200 360 000 EXIT1;
=== Start P382V-1; at address 3598/7016
7016/0: 310 014 316|170 236 P382; Y14; =Q9;
7016/5: 310 014 375|164 321|164 061|304 000 047|171 224|171 222 Y61; SHL-24; SHL+24; SET39; I9; M9;
7021/1: 042|012|036|170 230|036|170 222 DUP; PERM; -; =C9; -; =M9;
7022/3: 145 220|304 023 326|170 202|200 276 025 I9=-1; SETAYE0; =M8; J2;
7024/1: 106 230|221 036 026 1; M8M9QH; J3=;
7025/0: 261 236 024 2; J1C9NZ;
7025/3: 052|202 360 001 ERASE; EXIT2;
7026/1: 052|200 360 000 3; ERASE; EXIT1;
=== Start P383V-1; at address 3607/7027
7027/0: 310 014 335|027|033|220 156 031 P383; Y29; NEG; NOT; J1=Z;
7030/2: 052|200 360 000 ERASE; EXIT1;
7031/0: 164 115|164 265|304 023 353|056 1; SHL+38; SHL-38; SETAYF0; +;
[ original source of the next page
7032/2: 157 141|304 000 006|170 171|100 020|042 Q6TOQ1; SET6; =RC7; M0M1; DUP;
7034/0: 304 000 357|054|304 000 341|015|204 156 037 SETB357; AND; SETB341; NEV; J10≠Z;
7035/5: 304 000 040|015|140 020|143 020|202 276 040 SETB40; NEV; M+I1; DC1; J11;
7037/4: 052|304 000 301 10; ERASE; SETB301;
7040/2: 313 166 051 11; =YK0M7Q;
7040/5: 102 020|313 166 051|265 036 040 2; M0M1Q; =YK0M7Q; J2C1NZ;
7042/1: 245 176 043 4; J3C7Z;
7042/4: 041|313 166 051|201 276 042 ZERO; =YK0M7Q; J4;
7043/5: 151 001|200 327 352 3; M0TOQ1; JSP313;
7044/4: 304 000 006|170 171 SET6; =RC7;
7045/3: 310 166 051|313 165 235|263 176 045 5; YK0M7; =YG33M7Q; J5C7NZ;
7047/0: 200 331 243|310 006 051|164 061|164 253|304 000 006 JSP324; YK0; SHL+24; SHL-43; SET6;
7051/1: 034|050|170 231|157 227 ×D; CONT; =RC9; Q9TOQ7;
7052/1: 261 236 053 9; J6C9NZ;
7052/4: 202 360 001 EXIT2;
7053/1: 304 000 006|042|170 211|170 170 6; SET6; DUP; =RC8; =C7;
7054/3: 312 226 053|313 205 227|263 216 054 7; YK2M9Q; =YG27M8Q; J7C8NZ;
7056/0: 310 014 375|304 002 000|015|311 005 243 Y61; SETB1000; NEV; =YG39;
7057/4: 310 005 244|200 333 334|204 276 061 YG40; JSP345; J8;
7061/1: 200 360 000 EXIT1;
7061/4: 171 170|170 211 8; C7; =RC8;
7062/2: 312 205 221|313 166 053|262 176 062 12; YG21M8Q; =YK2M7Q; J12C7NZ;
7063/5: 201 276 052 J9;
=== Start P384V-1; at address 3637/7065
7065/0: 310 014 321|170 136|171 124|171 122|036 P384; Y17; =Q5; I5; M5; -;
7066/4: 170 130|144 120 =C5; I5=+1;
7067/2: 245 136 071 1; J2C5Z;
7067/5: 312 123 161|200 336 027|202 360 001 YD0M5Q; JSP383; EXIT2;
7071/2: 202 276 067 J1;
7071/5: 200 360 000 2; EXIT1;
=== Start P385V4; at address 3648/7100
7100/0: 171 276|301 016 076|171 056|301 016 077|171 356|301 016 075 P385V4; Q11; =V3; Q2; =V4; Q14; =V2;
7102/3: 171 336|301 016 074|171 316|301 016 073 Q13; =V1; Q12; =V0;
7104/1: 104 353|042|041|166 025 M11M14H; DUP; ZERO; SHLD+10;
7105/1: 065|164 265|036|033|170 151 REV; SHL-38; -; NOT; =RC6;
7106/2: 164 265|304 034 375|056|170 142 1; SHL-38; SETAY61; +; =M6;
7107/4: 041|311 005 244|200 336 065|204 276 114 ZERO; =YG40; JSP384; J2;
7111/2: 300 015 203|300 016 074|011|301 016 074 V46P380; V1; OR; =V1;
7113/0: 300 015 204|300 016 073|011|301 016 073 V47P380; V0; OR; =V0;
7114/4: 041|033|311 005 244|200 336 065|041|170 124 2; ZERO; NOT; =YG40; JSP384; ZERO; =I5;
7116/3: 300 016 076|170 276|300 016 077|170 056|300 016 075|170 356 V3; =Q11; V4; =Q2; V2; =Q14;
7121/0: 300 016 074|170 336|300 016 073|170 316 V1; =Q13; V0; =Q12;
7122/4: 171 124|223 156 124 I5; J3=Z;
7123/3: 304 015 201|200 336 012 SETAV44P380; JSP381;
7124/3: 200 360 000 3; EXIT1;
=== Start P386V-1; at address 3669/7125
7125/0: 200 336 012 P386; JSP381;
7125/3: 033|027|170 222|104 233|041 NOT; NEG; =M9; M11M9H; ZERO;
7126/4: 166 025|042|170 222|065|164 265 SHLD+10; DUP; =M9; REV; SHL-38;
7130/0: 036|304 000 002|056|204 156 133 -; SET2; +; J1≠Z;
7131/2: 310 234 375|304 000 275|015|204 156 133 Y61M9; SETB275; NEV; J1≠Z;
7133/0: 200 336 012|041 JSP381; ZERO;
7133/4: 052|200 360 000 1; ERASE; EXIT1;
=== Start P387V-1; at address 3677/7135
7135/0: 164 051|164 251|042 P387; SHL+20; SHL-44; DUP;
7135/5: 304 000 004|036|204 116 137 SET4; -; J1≤Z;
7137/0: 052|304 000 005 ERASE; SET5;
7137/4: 161 003|056|200 276 012 1; SHA+1; +; JP381;
=== Start P388V36; at address 3718/7206
V-store at 07141 = 000 000 000 000 002 000 P388V36; V0=B1000;
V-store at 07161 = 216 305 116 244 056 232 V16=QAR2/AR1/AR48;
V-store at 07162 = 256 307 116 317 216 306 V17=QAR5/AR4/AR3;
V-store at 07163 = 156 312 216 255 256 322 V18=QAR8/AR7/AR6;
V-store at 07164 = 256 264 156 313 016 325 V19=QAR11/AR10/AR9;
V-store at 07165 = 156 326 216 373 000 000 V20=QAR14/AR13/0;
[ original source of the next page
V-store at 07166 = 057 050 016 333 156 330 V21=QAR17/AR16/AR15;
V-store at 07167 = 056 232 256 320 156 377 V22=QAR20/AR19/AR18;
V-store at 07170 = 116 311 216 242 116 244 V23=QAR23/AR22/AR21;
V-store at 07171 = 216 343 056 364 156 336 V24=QAR26/AR25/AR24;
V-store at 07172 = 216 306 116 244 156 344 V25=QAR29/AR28/AR27;
V-store at 07173 = 256 323 216 351 116 374 V26=QAR31/AR30/AR49;
V-store at 07174 = 156 231 056 362 056 337 V27=QAR34/AR33/AR32;
V-store at 07175 = 216 256 216 352 116 243 V28=QAR37/AR36/AR35;
V-store at 07176 = 216 353 216 356 216 357 V29=QAR40/AR39/AR38;
V-store at 07177 = 116 367 216 355 216 354 V30=QAR43/AR42/AR41;
V-store at 07200 = 000 000 057 050 216 375 V31=Q0/AR45/AR44;
7206/0: 200 336 012|171 336|171 316|033|054 JSP381; Q13; Q12; NOT; AND;
7207/3: 042|042|164 377|011|164 377 DUP; DUP; SHL-1; OR; SHL-1;
7210/4: 304 377 266|167 355|011|054|301 016 160 SET-74; SHC-10; OR; AND; =V15;
7212/2: 171 356|301 016 075 Q14; =V2P385;
7213/1: 041|171 376|301 016 155|171 056|301 016 146|157 011 ZERO; Q15; =V12; Q2; =V5; Q0TOQ9;
7215/2: 042|033|027|301 016 157|170 362 118; DUP; NOT; NEG; =V14; =M15;
7216/4: 300 376 161 V16M15;
7217/1: 042|164 341|301 016 156|300 016 160|042 119; DUP; SHL-16; =V13; V15; DUP;
7220/5: 204 156 224 J120≠Z;
7221/2: 300 016 075|170 356 V2P385; =Q14;
7222/1: 052|052|300 016 155|170 376|300 016 146|170 056|200 360 000 ERASE; ERASE; V12; =Q15; V5; =Q2; EXIT1;
7224/4: 042|164 003|301 016 160|200 056 227|174 000 120; DUP; SHL+1; =V15; J99≥Z; =LINK;
7226/3: 202 360 000 EXIT;
7227/0: 052 99; ERASE;
7227/1: 300 016 156|042|201 156 217 100; V13; DUP; J119≠Z;
7230/2: 052|300 016 157|202 276 215 ERASE; V14; J118;
7231/3: 041|204 276 232 34; ZERO; J50;
7232/1: 300 016 141 48;20; V0;
7232/4: 042|300 016 142|042|200 156 240 50; DUP; V1; DUP; J51≠Z;
7234/0: 052|210 321 030|164 101|310 014 375|304 000 007|054 ERASE; JSP815; SHL+32; Y61; SETB7; AND;
7236/1: 304 000 005 SETB5;
7236/4: 167 373|011|011|042|301 016 142 SHC-3; OR; OR; DUP; =V1;
7240/0: 011 51; OR;
7240/1: 200 326 157|221 156 242 63; JSP6; J52=Z;
7241/1: 304 002 265 74; SETB1265;
7241/4: 200 326 157 60; JSP6;
7242/1: 201 276 227 52; J100;
7242/4: 041|204 276 243 22; ZERO; J53;
7243/2: 041|033 35; ZERO; NOT;
7243/4: 041|200 276 245 53; ZERO; J54;
7244/2: 041|300 016 141 28;1; 21; ZERO; V0;
7245/0: 304 000 001|170 331 54; SET1; =RC13;
7245/5: 312 334 375|043|304 000 265|015|224 156 252 55; Y61M13Q; DUPD; SETB265; NEV; J56=Z;
7247/4: 265 336 251 J59C13NZ;
7250/1: 033|300 016 141|015|054|200 326 157|043 58; NOT; V0; NEV; AND; JSP6; DUPD;
7251/5: 052|052|205 276 245 59; ERASE; ERASE; J55;
7252/4: 052|052|221 156 254 56; ERASE; ERASE; J57=Z;
7253/3: 052|201 276 241 ERASE; J74;
7254/1: 201 156 227 57; J100≠Z;
7254/4: 304 000 301|204 276 241 SETB301; J60;
7255/4: 300 016 141|205 276 256 7; V0; J61;
7256/4: 041 37; ZERO;
7256/5: 042|300 016 144|042|201 156 264 61; DUP; V3; DUP; J62≠Z;
7260/1: 052|210 321 030|164 101|310 014 375|304 000 007|054|304 000 005
ERASE; JSP815; SHL+32; Y61; SETB7; AND; SETB5;
7262/5: 167 373|011|011|042|301 016 144 SHC-3; OR; OR; DUP; =V3;
7264/1: 015|201 276 240 62; NEV; J63;
7264/5: 304 000 001|210 320 041 11; SET1; JSP394;
7265/5: 304 000 002|210 320 041|041|210 320 041 SET2; JSP394; ZERO; JSP394;
7267/3: 036|042|220 156 304 -; DUP; J69=Z;
[ original source of the next page
7270/2: 065|042|221 156 303 REV; DUP; J68=Z;
7271/1: 042|223 116 272 DUP; J64>Z;
7271/5: 027|065|027|065 NEG; REV; NEG; REV;
7272/3: 044|052|042|222 056 302 64; ÷I; ERASE; DUP; J67<Z;
7273/3: 033|027 70; NOT; NEG;
7273/5: 300 016 160|167 005|164 003|167 027|164 003 65; V15; SHC+2; SHL+1; SHC+11; SHL+1;
7275/4: 167 343|301 016 160 SHC-15; =V15;
7276/3: 300 017 212|215 320 133|310 014 346|164 301|300 016 145 66; V0P390; JS2P395; Y38; SHL-32; V4;
V-store at 07145 = 000 000 000 003 275 016 V4=B736416;
7300/5: 215 320 133|210 320 057|201 276 227 JS2P395; JSP395; J100;
7302/2: 052|041|203 276 276 67; ERASE; ZERO; J66;
7303/1: 041|033|203 276 276 68; ZERO; NOT; J66;
7304/0: 054|203 276 273 69; AND; J70; [ DHo original was 69; ZERO; J70; and left 2 floaters one of which was zero
7304/4: 304 000 230|204 276 241 73; SETB230; J60;
7305/4: 210 320 236|201 276 227 2; JSP398; J100;
7306/4: 041|210 320 016|204 276 304 3;29; ZERO; JSP392; J73;
7307/5: 300 016 147
V-store at 07147 = 000 000 000 002 042 002 5; V6; V6=B421002;
7310/2: 200 326 157|201 276 241 75; JSP6; J74;
7311/2: 041|210 320 033|204 276 304 23; ZERO; JSP393; J73;
7312/3: 300 016 150
V-store at 07150 = 000 000 000 002 022 002
7313/0: 202 276 310 8; V7; V7=B411002; J75;
7313/3: 304 000 331|300 016 151
V-store at 07151 = 000 000 000 001 127 233
7314/3: 215 320 133 10; SET217; V8; V8=B253633; JS2P395;
7315/0: 310 014 346|164 301|300 016 152
V-store at 07152 = 000 000 000 003 275 016 Y38; SHL-32; V9; V9=B736416;
7316/2: 215 320 133|204 276 350 77; JS2P395; J80;
7317/2: 300 016 141|210 320 033|201 276 241 4; V0; JSP393; J74;
7320/5: 300 016 141|210 320 033|304 002 265|200 326 157 19; V0; JSP393; SETB1265;JSP6;
7322/5: 304 000 001|203 276 325 6; SET1; J76;
7323/5: 041|210 320 033|201 276 227 31; ZERO; JSP393; J100;
7325/0: 304 000 002 9; SET2;
7325/3: 210 320 016|204 276 304 76; JSP392; J73;
7326/3: 210 320 240|042|170 230|304 000 025|202 276 316 14; JSP399; DUP; =C9; SETB25; J77;
7330/3: 210 320 240|042|170 224 15; JSP399; DUP; =I9;
7331/3: 164 101|304 000 131|011|204 276 241 79; SHL+32; SETB131; OR; J60;
7333/0: 310 014 362|042|205 156 334 16; Y50; DUP; J138≠Z;
7334/1: 052|210 320 240 ERASE; JSP399;
7334/5: 042|311 014 362|304 005 136|202 276 316 138; DUP; =Y50; SETB2536; J77;
7336/3: 041|204 276 337 24; ZERO; J78;
7337/1: 300 016 141 32; V0;
7337/4: 304 000 204|200 326 157|304 000 001|210 320 016 78; SETB204; JSP6; SET1; JSP392;
7341/4: 304 000 224|200 326 157|201 156 227 SETB224; JSP6; J100≠Z;
7343/1: 204 276 304 J73;
7343/4: 171 230|203 276 331 26; C9; J79;
7344/3: 171 224|304 000 025|215 320 133|310 014 346|164 301 27; I9; SETB25; JS2P395; Y38; SHL-32;
7346/4: 304 000 016|215 320 133|304 006 145|213 320 070 SETB16; JS2P395; SETB3145; JS1P395;
7350/4: 210 320 057|201 276 227 80; JSP395; J100;
7351/4: 304 000 207|204 276 241 30; SETB207; J60;
7352/4: 304 000 321|204 276 241 36; SETB321; J60;
7353/4: 304 000 222|204 276 241 40; SETB222; J60;
7354/4: 304 000 262|204 276 241 41; SETB262; J60;
7355/4: 304 004 235|204 276 241 42; SETB2235; J60;
7356/4: 304 000 224|204 276 241 39; SETB224; J60;
7357/4: 304 000 204|200 326 157|304 000 002|210 320 016|204 276 356 38; SETB204; JSP6; SET2; JSP392; J39;
7362/1: 304 000 261|200 326 157|304 000 204|204 276 241 33; SETB261; JSP6; SETB204; J60;
7364/1: 310 014 346|042|164 041|164 301|220 156 227 25; Y38; DUP; SHL+16; SHL-32; J99=Z;
7366/0: 164 301|304 003 316|202 276 316 SHL-32; SETB1716; J77;
7367/2: 304 000 227|200 326 157|304 000 210|200 326 157|171 224 43; SETB227; JSP6; SETB210; JSP6; I9;
7371/4: 164 101|304 000 031|011|200 326 157|204 276 304 SHL+32; SETB31; OR; JSP6; J73;
7373/4: 041|204 276 374 13; ZERO; J116;
7374/2: 041|033 49; ZERO; NOT;
7374/4: 210 320 255|201 276 227 116; JSP804; J100;
7375/4: 171 224|304 000 025|215 320 133|204 276 350 44; I9; SETB25; JS2P395; J80;
[ original source of the next page
7377/3: 310 014 342|170 331 18; Y34; =RC13;
7400/2: 241 336 227 81; J100C13Z;
7400/5: 312 326 311|170 316|171 302|164 347|304 000 003 YN0M13Q; =Q12; M12; SHL-13; SET3;
7402/5: 036|202 157 000 -; J81≠Z;
7403/3: 171 302|304 020 000|054|042|170 244 M12; SETB10000; AND; DUP; =I10;
7405/0: 171 304|304 100 100|015|164 371|011 I12; SETB40100; NEV; SHL-4; OR;
7406/3: 170 250|171 310|304 100 040|015|164 371 =C10; C12; SETB40040; NEV; SHL-4;
7410/1: 170 270|261 277 036|264 257 023 =C11; J91C11NZ; J85C10NZ;
7411/3: 171 310|164 131|167 011|171 310|171 304|015 C12; SHL+44; SHC+4; C12; I12; NEV;
7413/2: 164 131|201 157 016 SHL+44; J82≠Z;
7414/1: 300 016 154
V-store at 07154 = 000 000 000 001 213 024 V11; V11=B305424;
7414/4: 215 320 133|210 320 057|202 277 000 83; JS2P395; JSP395; J81;
7416/1: 304 000 024|215 320 133 82; SETB24; JS2P395;
7417/1: 300 016 153
V-store at 07153 = 000 000 000 003 275 054
7417/4: 213 320 070 90; V10; V10=B736454; JS1P395;
7420/1: 171 310|164 131|167 011|264 277 022 C12; SHL+44; SHC+4; J84C11NZ;
7421/4: 304 000 030|204 277 014 SETB30; J83;
7422/4: 304 000 024|204 277 014 84; SETB24; J83;
7423/4: 171 244|204 157 032 85; I10; J89≠Z;
7424/3: 171 304|210 320 245 88; I12; JSP801;
7425/2: 171 310|164 131|164 307|304 020 002|011|241 277 030 C12; SHL+44; SHL-29; SETB10002; OR; J86C11Z;
7427/3: 304 020 000|056 SETB10000; +;
7430/1: 210 320 241 86; JSP800;
7430/4: 200 326 157 95; JSP6;
7431/1: 304 000 230|200 326 157|202 277 000 87; SETB230; JSP6; J81;
7432/4: 171 310|164 131|167 011|241 257 016 89; C12; SHL+44; SHC+4; J82C10Z;
7434/1: 052|171 304|300 017 212|215 320 133|201 277 017 ERASE; I12; V0P390; JS2P395; J90;
7436/1: 171 310|304 100 100|015|164 371|200 157 041 91; C12; SETB40100; NEV; SHL-4; J92≠Z;
7440/0: 244 257 032 J89C10Z;
7440/3: 204 277 023 J85;
7441/0: 171 310|210 320 245|210 320 241|171 304|171 244 92; C12; JSP801; JSP800; I12; I10;
7443/0: 225 157 044 J93=Z;
7443/3: 164 101|304 004 235|203 277 046 SHL+32; SETB2235; J94;
7444/5: 261 257 047 93; J96C10NZ;
7445/2: 164 131|164 307|304 040 002 SHL+44; SHL-29; SETB20002;
7446/3: 011|204 277 030 94; OR; J95;
7447/1: 210 320 245|204 277 030 96; JSP801; J95;
7450/1: 041|170 163|041 17; 45; ZERO; =RM7; ZERO;
7450/5: 052|304 000 314|210 320 251|223 157 054 101; ERASE; SETB314; JSP803; J133=Z;
7452/3: 042|300 014 225|054|300 014 223|015|205 157 050 DUP; V2P360; AND; V0P360; NEV; J101≠Z;
7454/3: 310 014 344|027|033|201 157 151 133; Y36; NEG; NOT; J130≠Z;
7455/5: 200 326 157|041 102; JSP6; ZERO;
7456/3: 052|304 000 334|210 320 251|221 157 171 103; ERASE; SETB334; JSP803; J131=Z;
7460/1: 042|300 014 225|054|300 006 333|015|221 157 171 DUP; V2P360; AND; V8P308; NEV; J131=Z;
7462/1: 042|304 000 334|054|304 000 010|015|200 157 100 DUP; SETB334; AND; SETB10; NEV; J106≠Z;
7464/1: 312 174 374|042|304 000 377|054 Y60M7Q; DUP; SETB377; AND;
7465/3: 304 000 212|015|205 157 076 SETB212; NEV; J137≠Z;
7466/4: 042|167 357|220 057 074 DUP; SHC-9; J104<Z;
7467/4: 042|164 101|164 257|172 162|164 041|310 174 373 DUP; SHL+32; SHL-41; =+M7; SHL+16; Y59M7;
7471/4: 164 301 SHL-32;
7472/0: 166 341|052|042|012|166 041 SHLD-16; ERASE; DUP; PERM; SHLD+16;
7473/1: 164 301|202 277 075 SHL-32; J134;
7474/0: 166 041|167 341|042|012|164 341 104; SHLD+16; SHC-16; DUP; PERM; SHL-16;
7475/2: 166 341|052|200 326 157|205 277 055 134; SHLD-16; ERASE; JSP6; J102;
7476/5: 065|200 326 157|205 277 055 137; REV; JSP6; J102;
7500/0: 042|304 000 377|054|304 000 366 106; DUP; SETB377; AND; SETB366;
7501/2: 015|221 157 103 NEV; J107=Z;
7502/0: 042|223 157 056 DUP; J103=Z;
7502/4: 205 277 055 J102;
7503/1: 171 142|041|200 334 337|170 142 107; M6; ZERO; JSP362; =M6;
7504/3: 042|164 361|310 014 342|170 311 DUP; SHL-8; Y34; =RC12;
[ original source of the next page
7505/5: 242 317 146 108; J115C12Z;
7506/2: 312 306 311|170 276|171 262|164 347|304 000 002 YN0M12Q; =Q11; M11; SHL-13; SET2;
7510/2: 015|205 157 105 NEV; J108≠Z;
7511/0: 171 262|164 107|164 273|205 037 105 M11; SHL+35; SHL-35; J108≠;
7512/3: 171 270|171 264|015|042|171 270 C11; I11; NEV; DUP; C11;
7513/5: 164 347|304 000 002|036|220 157 116 SHL-13; SET2; -; J71=Z;
7515/2: 041|203 277 116 ZERO; J72;
7516/0: 304 000 100 71; SETB100;
7516/3: 054|015|225 157 105 72; AND; NEV; J108=Z;
7517/2: 304 002 000 SETB1000;
7517/5: 171 264|164 347|027|033 113; I11; SHL-13; NEG; NOT;
7520/5: 042|203 117 141 DUP; J111≤Z;
7521/3: 027|033|224 157 131 NEG; NOT; J110=Z;
7522/2: 225 157 123 J109=Z;
7522/5: 304 002 345|200 266 175 SET0741; JP7;
7523/5: 171 264|042|164 111|167 031|304 023 353|056|200 331 243 109; I11; DUP; SHL+36; SHC+12; SETAYF0; +; JSP324;
7526/1: 164 107|041|033|065|224 057 127 SHL+35; ZERO; NOT; REV; J121<Z;
7527/3: 027 NEG;
7527/4: 210 320 323 121; JSP807;
7530/1: 304 000 230|200 326 157|205 277 105 114; SETB230; JSP6; J108;
7531/4: 171 264|042|304 000 017|054|164 037 110; I11; DUP; SETB17; AND; SHL+15;
7533/1: 065|042|304 000 020|054|164 015 REV; DUP; SETB20; AND; SHL+6;
7534/3: 066|011|065|164 367|041|033|027 CAB; OR; REV; SHL-5; ZERO; NOT; NEG;
7535/5: 054|042|222 157 140 AND; DUP; J132=Z;
7536/4: 164 031|011|304 000 002|011|203 277 142 135; SHL+12; OR; SET2; OR; J112;
7540/2: 052|304 000 002|204 277 136 132; ERASE; SET2; J135;
7541/3: 052|171 264|210 320 245 111; ERASE; I11; JSP801;
7542/3: 043|011|200 326 157|052 112; DUPD; OR; JSP6; ERASE;
7543/3: 221 157 130 J114=Z;
7544/0: 304 002 265|200 326 157|171 270|170 264 SETB1265; JSP6; C11; =I11;
7545/4: 041|205 277 117 ZERO; J113;
7546/2: 065|200 326 157|171 142|304 000 020|200 334 337 115; REV; JSP6; M6; SETB20; JSP362;
7550/2: 170 142|203 277 056 =M6; J103;
(V32=PIR for link,V33=link,
V34=jump round for label,
V35=multiple list first entry);
V-store at 07205 = 102 065 037 007 260 230 V36=B2043243701730230;
7551/1: 300 016 204|200 156 227 130; V35; J99≠Z;
7552/1: 041|033|301 016 204 ZERO; NOT; =V35;
7553/0: 210 320 240|042|301 016 203 JSP399; DUP; =V34;
7554/1: 304 000 025|215 320 133|210 320 057 SETB25; JS2P395; JSP395;
7555/4: 310 014 362|164 101|304 000 131|011|200 326 157 Y50; SHL+32; SETB131; OR; JSP6;
7557/4: 200 326 157 JSP6;
7560/1: 210 321 030|164 101|304 000 005|167 373|011 JSP815; SHL+32; SETB5; SHC-3; OR;
7562/0: 304 000 002|011|042|301 016 201 SETB2; OR; DUP; =V32;
7563/2: 304 002 000|011|200 326 157 SETB1000; OR; JSP6;
7564/3: 304 002 265|200 326 157 SETB1265; JSP6;
7565/3: 304 000 037|164 025|304 000 002|011|042|301 016 202|200 326 157
SETB37; SHL+10; SETB2; OR; DUP; =V33; JSP6;
7570/1: 304 000 230|205 277 055 SETB230; J102;
7571/1: 310 014 344|027|033|042|222 157 201 131; Y36; NEG; NOT; DUP; J136=Z;
7572/4: 304 000 230|200 326 157 SETB230; JSP6;
7573/4: 300 016 202|304 002 000|011|200 326 157 V33; SETB1000; OR; JSP6;
7575/2: 304 002 265|200 326 157 SETB1265; JSP6;
7576/2: 300 016 201|200 326 157 V32; JSP6;
7577/2: 304 000 230|200 326 157 SETB230; JSP6;
7600/2: 300 016 205|200 326 157 V36; JSP6;
7601/2: 065|200 326 157|304 000 230|200 326 157 136; REV; JSP6; SETB230; JSP6;
7603/0: 221 156 227 J100=Z;
7603/3: 300 016 203|203 276 331 V34; J79;
=== Start P389V-1; at address 3973/7605
7605/0: 310 006 051|164 061|164 253|027|033 P389; YK0; SHL+24; SHL-43; NEG; NOT;
[ original source of the next page
7606/3: 310 006 055|011|151 017|210 320 370 YK4; OR; M0TOQ15; JSP809;
7610/0: 066|011|202 157 211 CAB; OR; J1≠Z;
7610/5: 202 360 001 EXIT2;
7611/2: 052|200 360 000 1; ERASE; EXIT1;
=== Start P390V2; at address 3981/7615
V-store at 07612 = 000 000 000 001 344 037 P390V2; V0=B362037;
V-store at 07613 = 000 000 000 003 275 024 V1=B736424;
V-store at 07614 = 000 000 024 001 366 234 V2=B2400373234;
7615/0: 042|026|027|033|027 DUP; ABS; NEG; NOT; NEG;
7615/5: 033|203 117 220 NOT; J1≤Z;
7616/3: 300 017 212|215 320 133|300 017 213|205 277 225 V0; JS2P395; V1; J3;
7620/3: 042|202 157 222 1; DUP; J2≠Z;
7621/1: 052|300 017 214|205 277 225 ERASE; V2; J3;
7622/2: 065|304 000 024 2; REV; SETB24;
7623/0: 215 320 133|042|026|222 037 225 JS2P395; DUP; ABS; J4=;
7624/2: 304 000 064|205 277 225 SETB64; J3;
7625/2: 304 015 054 4; SETB6454;
7625/5: 215 320 133|210 260 057 3; JS2P395; JP395;
=== Start P391V4; at address 3996/7634
7634/0: 041|213 320 016|157 326|304 034 375|172 142 P391V4; ZERO; JS2P392; Q13TOQ6; SETAY61; =+M6;
7635/5: 171 336|311 000 320|041|033|311 005 244 Q13; =V0P807; ZERO; NOT; =YG40;
7637/3: 300 017 227|200 336 027|202 277 313 V0; JSP383; J16;
7641/0: 300 017 227|210 321 041|042|225 157 267 V0; JSP818; DUP; J8=Z;
7642/4: 065|164 071|200 057 257 REV; SHL+28; J4≥Z;
7643/4: 304 100 040|011|301 017 232|300 017 231|225 157 255 SETB40040; OR; =V3; V2; J3=Z;
7645/5: 304 022 002|300 017 232|210 321 032 SETB11002; V3; JSP816;
(corrections to 410102 made 13/01/65);
7647/2: 304 002 265|200 326 157|200 337 205|202 277 254 SETB1265; JSP6; JSP389; J2;
7651/2: 210 321 022 JSP814;
7651/5: 304 000 230|200 326 157 9; SETB230; JSP6;
7652/5: 300 017 230|221 157 340 1; V1; J22=Z;
7653/5: 200 360 000 32; EXIT1;
7654/2: 304 000 001|210 320 323|205 277 251 2; SET1; JSP807; J9;
7655/5: 041|210 321 043|205 277 252 3; ZERO; JSP819; J1;
7657/0: 042|304 100 100|011|301 017 232|300 017 231|222 157 265 4; DUP; SETB40100; OR; =V3; V2; J6=Z;
7661/2: 200 337 205|205 277 266 JSP389; J7;
7662/2: 200 337 215 JSP390;
7662/5: 300 017 227|167 067|164 003|167 311|301 017 227 5; V0; SHC+27; SHL+1; SHC-28; =V0;
7664/5: 205 277 252 J1;
7665/2: 304 000 001|210 321 043|205 277 262 6; SET1; JSP819; J5;
7666/5: 210 321 035|203 277 276 7; JSP817; J11;
7667/5: 052|164 007|202 057 306 8; ERASE; SHL+3; J14≥Z;
7670/5: 300 017 231|222 157 301 V2; J13=Z;
7671/5: 210 321 016|200 337 205|200 277 300 JSP813; JSP389; J12;
7673/2: 164 101|304 004 235|011|200 326 157 SHL+32; SETB2235; OR; JSP6;
7674/5: 210 321 014|304 040 000|011|301 017 232 10; JSP812; SETB20000; OR; =V3;
7676/3: 304 000 230|200 326 157|205 277 262 11; SETB230; JSP6; J5;
7700/0: 041|033|210 320 323|205 277 274 12; ZERO; NOT; JSP807; J10;
7701/2: 210 320 376|041|210 321 014|300 017 227|164 005 13; JSP810; ZERO; JSP812; V0; SHL+2;
7703/2: 164 245|304 000 001|042|210 321 001 SHL-46; SET1; DUP; JSP811;
7704/5: 210 321 014|301 017 232|205 277 262 JSP812; =V3; J5;
7706/2: 300 017 231|222 157 301 14; V2; J13=Z;
7707/2: 210 321 016|200 337 205|205 277 311 JSP813; JSP389; J15;
7710/5: 210 321 022|205 277 274 JSP814; J10;
7711/5: 304 000 001|210 320 323|205 277 274 15; SET1; JSP807; J10;
7713/2: 300 017 227|042|304 003 377|054 16; V0; DUP; SETB1777; AND;
7714/4: 304 023 353|056|200 331 243 SETAYF0; +; JSP324;
7715/5: 164 065|164 261|042|220 157 326 SHL+26; SHL-40; DUP; J19=Z;
7717/1: 042|167 365|203 057 321 DUP; SHC-6; J17≥Z;
7720/1: 041|065|304 022 002|204 277 322 ZERO; REV; SETB11002; J18;
7721/3: 304 000 002|065|304 042 002 17; SET2; REV; SETB21002;
7722/4: 065|210 321 032|304 002 265|200 326 157|042 18; REV; JSP816; SETB1265; JSP6; DUP;
[ original source of the next page
7724/3: 210 320 323|225 157 251 JSP807; J9=Z;
7725/3: 203 277 276 J11;
7726/0: 052|300 017 231|201 157 337 19; ERASE; V2; J21≠Z;
7727/1: 210 321 030|042|304 240 000|011|170 365 JSP815; DUP; SETB120000; OR; =RI15;
7730/5: 210 321 014|304 200 000|011|170 370 JSP812; SETB100000; OR; =C15;
7732/2: 171 376|210 320 311 Q15; JSP806;
7733/1: 042|213 321 016|300 017 227|164 005|164 247 20; DUP; JS1P813; V0; SHL+2; SHL-45;
7735/0: 210 320 323|304 040 000|011|301 017 232|203 277 276 JSP807; SETB20000; OR; =V3; J11;
7737/1: 210 321 014|201 277 333 21; JSP812; J20;
7740/1: 304 000 001|213 320 016|157 326|304 034 375|172 142 22; SET1; JS2P392; Q13TOQ6; SETAY61; =+M6;
7742/2: 171 336|311 000 320 Q13; =V0P807;
7743/1: 041|311 005 244|300 017 227|200 336 027|204 277 375 ZERO; =YG40; V0; JSP383; J34;
7745/2: 200 337 205|204 277 364 JSP389; J26;
7746/2: 300 017 227|164 067|223 057 355 V0; SHL+27; J24<Z;
7747/4: 301 017 233|304 160 000 =V4; SETB70000;
7750/4: 300 017 233|164 101|300 017 232|011|167 341 23; V4; SHL+32; V3; OR; SHC-16;
7752/3: 011|310 014 342|042|033|027 OR; Y34; DUP; NOT; NEG;
7753/4: 311 014 342|170 362|311 366 311|200 360 000 =Y34; =M15; =YN0M15; EXIT1;
7755/3: 042|027|033|300 017 231|011 24; DUP; NEG; NOT; V2; OR;
7756/4: 200 157 363 J25≠Z;
7757/1: 310 014 321|167 341|027|033|170 362 Y17; SHC-16; NEG; NOT; =M15;
7760/4: 310 363 161|304 020 000|011|311 363 161|052 YD0M15; SETB10000; OR; =YD0M15; ERASE;
7762/3: 211 260 005 J30;
7763/0: 210 321 041|065|200 337 215|211 260 005 25; JSP818; REV; JSP390; J30;
7764/4: 300 017 231|215 140 002 26; V2; J29≠Z;
7765/4: 200 332 166|301 017 233|210 320 376|041 JSP332; =V4; JSP810; ZERO;
7767/2: 300 017 227|164 067|200 057 372 V0; SHL+27; J27≥Z;
7770/4: 210 321 041|304 000 100|011|011 JSP818; SETB100; OR; OR;
7772/0: 300 017 233|304 000 001|042|041|210 321 001 27; V4; SET1; DUP; ZERO; JSP811;
7773/5: 300 017 227|164 067|215 040 006 V0; SHL+27; J31≥Z;
7775/1: 211 260 005 J30;
7775/4: 304 016 143|170 143|171 144|170 150|041 34; SETAV2P388; =RM6; I6; =C6; ZERO;
7777/2: 311 005 244|300 017 227|200 336 027|215 260 001 =YG40; V0; JSP383; J28;
10001/2: 215 260 002 J29;
10001/5: 304 010 301|200 266 175 28; SET2241; JP7;
10002/5: 300 017 227|164 067|211 040 011 29; V0; SHL+27; J33≥Z;
10004/1: 210 321 041|210 321 035 JSP818; JSP817;
10005/1: 210 321 041|304 100 100|011|301 017 233 30; JSP818; SETB40100; OR; =V4;
10006/5: 300 017 227|164 105|225 057 253 31; V0; SHL+34; J32<Z;
10010/1: 304 140 000|204 277 350 SETB60000; J23;
10011/1: 210 321 030|304 040 000|011|042|301 017 233 33; JSP815; SETB20000; OR; DUP; =V4;
10013/0: 164 103|304 004 005|011|167 377|200 326 157 SHL+33; SETB2005; OR; SHC-1; JSP6;
10014/5: 213 321 036|215 260 006 JS1P817; J31;
=== Start P392V-1; at address 4110/10016
10016/0: 215 260 025 P392; J3;
10016/3: 304 026 250|170 322|300 016 146|170 376 2; SETAYL96; =M13; V5P388; =Q15;
10020/1: 141 360|104 375 M-I15; M13M15H;
(M-I15 added 05/01/65);
10020/5: 304 026 110|170 322|164 311|056|170 362 SETAYL0; =M13; SHL-28; +; =M15;
10022/3: 104 375|042|164 265|042|170 323 M13M15H; DUP; SHL-38; DUP; =RM13;
10023/5: 065|164 025|164 265|036|033 REV; SHL+10; SHL-38; -; NOT;
10025/0: 170 330|200 360 000 =C13; EXIT1;
10025/5: 213 320 016 3; JS2;
10026/2: 312 334 375|042|304 000 212|015 1; Y61M13Q; DUP; SETB212; NEV;
10027/4: 164 121|211 140 031 SHL+40; J4≠Z;
10030/3: 304 001 000|011 SETB400; OR;
10031/1: 200 326 157|272 320 026|200 360 000 4; JSP6; J1C13NZ; EXIT1;
=== Start P393V-1; at address 4123/10033
10033/0: 300 016 143|042|211 140 040 P393; V2P388; DUP; J1≠Z;
10034/1: 052|210 321 030|164 101|310 014 375 ERASE; JSP815; SHL+32; Y61;
10035/4: 304 000 007|054|304 000 005|167 373 SETB7; AND; SETB5; SHC-3;
10037/1: 011|011|042|301 016 143 OR; OR; DUP; =V2P388;
[ original source of the next page
10040/1: 011|200 266 157 1; OR; JP6;
=== Start P394V-1; at address 4129/10041
10041/0: 213 320 016|041 P394; JS2P392; ZERO;
10041/4: 310 334 375|304 000 341|232 020 051 Y61M13; SETB341; J5=;
10043/1: 304 000 361|235 020 050 SETB361; J4=;
10044/1: 042|304 017 377|054|304 004 235 1; DUP; SETB7777; AND; SETB2235;
10045/3: 015|231 140 047 NEV; J2=Z;
10046/1: 304 007 061|200 266 175 SET1841; JP7;
10047/1: 161 301|065|232 140 050 2; SHA-32; REV; J3=Z;
10050/1: 027 NEG;
10050/2: 200 360 000 3; EXIT1;
10050/5: 052|033|041 4; ERASE; NOT; ZERO;
10051/2: 052|310 334 376|211 260 044 5; ERASE; Y62M13; J1;
=== Start P395V3; at address 4143/10057
10057/0: 171 036|311 005 174 P395V3; Q1; =YG0;
10057/5: 310 000 055|304 000 010|310 000 056|036|304 000 006|034|052|170 030
V2; SET8; V3; -; SET6; ×D; ERASE; =C1;
10062/4: 041|033|304 000 073|166 365|311 000 055 5; ZERO; NOT; SETB73; SHLD-6; =V2;
10064/2: 065|166 020|065|052 REV; SHLDC1; REV; ERASE;
10065/1: 164 351|164 031|304 000 230|011 SHL-12; SHL+12; SETB230; OR;
10066/3: 310 005 174|170 036|041|311 000 056|200 266 157 YG0; =Q1; ZERO; =V3; JP6;
10070/3: 171 036|171 056|311 005 174|311 005 175|157 001|157 002 1; Q1; Q2; =YG0; =YG1; Q0TOQ1; Q0TOQ2;
10072/5: 310 000 055|310 000 056|170 024 V2; V3; =I1;
10074/1: 065 7; REV;
10074/2: 042|142 040|304 000 006|172 050|164 040 8; DUP; NC2; SET6; =+C2; SHLC2;
10076/0: 142 040|164 040|232 020 074 NC2; SHLC2; J8=;
10077/1: 171 050|304 000 066|056|304 000 006 C2; SET54; +; SET6;
10100/4: 044|052|170 044 ÷I; ERASE; =I2;
10101/2: 304 000 006|172 050|142 040|164 040|065 SET6; =+C2; NC2; SHLC2; REV;
10103/0: 171 024|171 044|056|042|304 000 006|044 I1; I2; +; DUP; SET6; ÷I;
10104/4: 311 000 056|052|304 000 006|036 =V3; ERASE; SET6; -;
10106/0: 232 040 124 J10<Z;
10106/3: 171 024|170 030 I1; =C1;
10107/1: 166 015|142 020|143 020|142 020|171 030 11; SHLD+6; NC1; DC1; NC1; C1;
10110/5: 304 000 006|036|211 140 107 SET6; -; J11≠Z;
10112/0: 164 031|304 000 230|011|200 326 157 SHL+12; SETB230; OR; JSP6;
10113/3: 171 024|171 044|056|304 000 014|036 I1; I2; +; SET12; -;
10115/0: 231 040 127 J12<Z;
10115/3: 041|065|166 351|164 031|304 000 230 ZERO; REV; SHLD-12; SHL+12; SETB230;
10117/0: 011|200 326 157 OR; JSP6;
10117/4: 042|215 140 120|214 260 121 DUP; J14≠Z; J15;
10120/5: 041|166 015|065|052 14; ZERO; SHLD+6; REV; ERASE;
10121/4: 311 000 055|310 005 174|310 005 175|170 036|170 056 15; =V2; YG0; YG1; =Q1; =Q2;
10123/5: 200 360 000 EXIT1;
10124/2: 171 044|170 050 10; I2; =C2;
10125/0: 166 015|143 040|017|017|177 040|065|052|214 260 121 *16; SHLD+6; DC2; *J16C2NZS; REV; ERASE; J15;
10127/1: 171 024|171 044|056|304 000 016|036 12; I1; I2; +; SET14; -;
10130/4: 027|170 050 NEG; =C2;
10131/1: 017|017|017|017|017|164 365|143 040|017|017|177 040|214 260 121
*13; SHL-6; DC2; *J13C2NZS; J15;
V-store at 10054 = 050 242 212 050 242 212 2; V1=B1212121212121212;
10133/5: 171 076|171 056|171 036|311 005 176|311 005 175|311 005 174 Q3; Q2; Q1; =YG2; =YG1; =YG0;
10136/2: 157 003|157 002|157 001 Q0TOQ3; Q0TOQ2; Q0TOQ1;
10137/2: 065|042|026|231 020 141 REV; DUP; ABS; J17=;
10140/2: 041|033|212 260 141 ZERO; NOT; J18;
10141/1: 041 17; ZERO;
10141/2: 311 000 053|026|310 000 054|065 18; =V0; ABS; V1; REV;
10142/4: 067|042|232 140 233 FRB; DUP; J41=Z;
10143/3: 142 060|304 000 006|172 070|042|164 060 19; NC3; SET6; =+C3; DUP; SHLC3;
10145/1: 142 060|164 060|233 020 143 NC3; SHLC3; J19=; [HUX J19= ? no ; -- needed by kal3.c
10146/2: 304 000 006|172 070|142 060|164 060|310 000 053 SET6; =+C3; NC3; SHLC3; V0;
10150/2: 235 140 151 J20=Z;
10150/5: 304 000 055|211 260 153 SETB55; J21;
10151/5: 041|166 015|304 000 006|172 070 20; ZERO; SHLD+6; SET6; =+C3;
[ original source of the next page
10153/1: 166 365|052|171 070|304 000 006|036 21; SHLD-6; ERASE; C3; SET6; -;
10154/4: 304 000 006|044|052|304 000 010|036 SET6; ÷I; ERASE; SET8; -;
10156/1: 027|170 064|065 NEG; =I3; REV;
10156/5: 042|142 040|304 000 006|172 050|164 040 22; DUP; NC2; SET6; =+C2; SHLC2;
10160/3: 142 040|164 040|235 020 156|304 000 006|172 050 NC2; SHLC2; J22=; SET6; =+C2;
10162/3: 142 040|166 040|171 050|304 000 006|044 NC2; SHLDC2; C2; SET6; ÷I;
10164/1: 052|304 000 010|036|027|170 044 ERASE; SET8; -; NEG; =I2;
10165/3: 310 000 055|310 000 056|170 024 V2; V3; =I1;
10166/5: 171 024|171 044|056|171 064|056|042|042|170 062 24; I1; I2; +; I3; +; DUP; DUP; =M3;
10170/5: 304 000 006|044|311 000 056|052 SET6; ÷I; =V3; ERASE;
10172/1: 304 000 006|036|235 040 200|171 024|170 030 SET6; -; J26<Z; I1; =C1;
10174/0: 166 015|142 020|143 020|142 020|171 030 25; SHLD+6; NC1; DC1; NC1; C1;
10175/4: 304 000 006|036|210 140 174 SET6; -; J25≠Z;
10176/5: 164 031|304 000 230|011|200 326 157|210 260 210 SHL+12; SETB230; OR; JSP6; J33;
10200/5: 171 044|171 064|056|170 050|066 26; I2; I3; +; =C2; CAB;
10202/1: 052 ERASE;
10202/2: 252 040 204 27; J34C2Z;
10202/5: 017|166 015|143 040|017|017|177 040 *35; SHLD+6; DC2; *J35C2NZS;
10204/2: 311 000 055|052 34; =V2; ERASE;
10205/0: 310 005 174|310 005 175|310 005 176|170 036|170 056|170 076 28; YG0; YG1; YG2; =Q1; =Q2; =Q3;
10207/3: 200 360 000 EXIT1;
10210/0: 304 000 006|171 024|036|171 030|034 33; SET6; I1; -; C1; ×D;
10211/3: 050|170 030|142 020|164 020|142 020 CONT; =C1; NC1; SHLC1; NC1;
10213/0: 166 020|171 062|304 000 006|036|042|170 030 SHLDC1; M3; SET6; -; DUP; =C1;
10214/5: 304 000 006|036|232 040 225 SET6; -; J29<Z;
10216/0: 041|166 111|164 031|304 000 230|011 ZERO; SHLD+36; SHL+12; SETB230; OR;
10217/3: 200 326 157|164 271|171 030|304 000 014|036 JSP6; SHL-36; C1; SET12; -;
10221/2: 232 040 226|166 061|164 031|304 000 230|011 J31<Z; SHLD+24; SHL+12; SETB230; OR;
10223/1: 200 326 157|042|212 140 231|311 000 055|210 260 205 JSP6; DUP; J32≠Z; =V2; J28;
10225/2: 065|154 022|212 260 202 29; REV; C1TOQ2; J27;
10226/2: 171 062 31; M3;
10226/4: 304 000 016|036|304 000 006|034|050 SET14; -; SET6; ×D; CONT;
10230/1: 170 050|166 040|212 260 204 =C2; SHLDC2; J34;
10231/2: 171 062 32; M3;
10231/4: 304 000 022|036|170 050|041|212 260 202 SET18; -; =C2; ZERO; J27;
10233/2: 304 000 052|170 070|215 260 151 41; SET42; =C3; J20;
=== Start P398V0; at address 4254/10236
V-store at 10235 = 000 000 000 002 102 002 P398V0; V0=B441002;
10236/0: 310 000 235|200 326 157|304 002 265|200 266 157 V0; JSP6; SETB1265; JP6;
=== Start P399V-1; at address 4256/10240
10240/0: 210 261 260 P399; JP821;
=== Start P800V-1; at address 4257/10241
10241/0: 042|304 002 000|011|200 326 157|304 002 265 P800; DUP; SETB1000; OR; JSP6; SETB1265;
10242/5: 200 326 157|200 326 157|304 000 301|200 266 157 JSP6; JSP6; SETB301; JP6;
=== Start P801V-1; at address 4261/10245
10245/0: 164 103|304 000 005|011|167 377|200 360 000 P801; SHL+33; SET5; OR; SHC-1; EXIT1;
=== Start P802V-1; at address 4263/10247
10247/0: 304 025 257|200 331 276|200 271 326 P802; SETAYH0; JSP325; JP328;
=== Start P803V-1; at address 4265/10251
10251/0: 312 174 374|042|304 000 337|054|066 P803; Y60M7Q; DUP; SETB337; AND; CAB;
10252/3: 015|200 360 000 NEV; EXIT1;
=== Start P804V0; at address 4269/10255
10255/0: 311 000 254|310 014 321|170 036|171 024|171 022 P804V0; =V0; Y17; =Q1; I1; M1;
10257/0: 036|170 030|144 020|041 -; =C1; I1=+1; ZERO;
10260/0: 052 1; ERASE;
10260/1: 271 020 261 2; J3C1NZ;
10260/4: 200 360 000 EXIT1;
10261/1: 312 023 161|042|301 017 227 3; YD0M1Q; DUP; =V0P391;
10262/2: 164 011|164 245|211 140 260 SHL+4; SHL-46; J2≠Z;
10263/3: 300 016 146|170 376|141 360|304 026 250|170 356 V5P388; =Q15; M-I15; SETAYL96; =Q14;
10265/3: 104 376|164 051|164 251|042 M14M15H; SHL+20; SHL-44; DUP;
10266/4: 304 000 003|036|212 140 271 SET3; -; J8≠Z;
10267/5: 310 000 254|230 140 260 V0; J1=Z;
10270/5: 210 260 272 J7;
10271/2: 304 000 002|054 8; SETB2; AND;
10272/0: 301 017 230|310 014 344|027 7; =V1P391; Y36; NEG;
10273/1: 033 4; NOT;
[ original source of the next page
10273/2: 042|301 017 231|210 140 306 10; DUP; =V2P391; J6≠Z;
10274/3: 310 000 254|211 140 277 V0; J9≠Z;
10275/3: 310 014 335|304 000 002|036|210 140 306 Y29; SET2; -; J6≠Z;
10277/1: 300 017 227|164 065|164 261|212 140 305 9; V0P391; SHL+26; SHL-40; J5≠Z;
10300/5: 210 321 030 JSP815;
10301/2: 304 240 000|011|170 365 SETB120000; OR; =RI15;
10302/2: 300 017 227|164 041|164 265|304 200 000|011|170 370 V0P391; SHL+16; SHL-38; SETB100000; OR; =C15;
10304/3: 171 376|210 320 311 Q15; JSP806;
10305/2: 041|211 260 273 5; ZERO; J4;
10306/0: 171 036|311 000 375|200 337 234 6; Q1; =V0P810; JSP391;
10307/2: 310 000 375|170 036|211 260 260 V0P810; =Q1; J2;
=== Start P806V-1; at address 4297/10311
10311/0: 304 027 056|041|033 P806; SETAYP0; ZERO; NOT;
10311/5: 170 362|310 374 350|042|033|027 1; =M15; Y40M15; DUP; NOT; NEG;
10313/1: 042|304 001 056|036|213 140 315 DUP; SET302; -; J2≠Z;
10314/3: 304 011 045|200 266 175 SET2341; JP7;
10315/3: 311 374 350|170 362|170 342|101 376 2; =Y40M15; =M15; =M14; =M14M15;
10317/0: 200 360 000 EXIT1;
=== Start P807V2; at address 4307/10323
10323/0: 041|065|166 377|311 000 322|311 000 321 P807V2; ZERO; REV; SHLD-1; =V2; =V1;
10324/4: 310 006 051|042|310 006 052|166 041|167 341 YK0; DUP; YK1; SHLD+16; SHC-16;
10326/3: 170 356|171 344|166 341|170 331|167 355|164 361 =Q14; I14; SHLD-16; =RC13; SHC-10; SHL-8;
10330/3: 167 045|200 326 157|171 356|304 001 000|011 SHC+18; JSP6; Q14; SETB400; OR;
10332/2: 200 326 157|164 061|164 253 JSP6; SHL+24; SHL-43;
10333/3: 027|033|312 326 053|304 000 301 1; NEG; NOT; YK2M13Q; SETB301;
10334/5: 036|233 140 336 -; J2=Z;
10335/3: 304 000 361|200 326 157 SETB361; JSP6;
10336/3: 304 000 005 2; SET5;
10337/0: 027|033|312 326 053|042|310 014 375 3; NEG; NOT; YK2M13Q; DUP; Y61;
10340/3: 304 002 000|015|015|235 140 354 SETB1000; NEV; NEV; J8=Z;
10341/5: 200 326 157|212 260 347 9; JSP6; J6;
10342/5: 052|304 000 204|200 326 157|310 000 320|170 356 4; ERASE; SETB204; JSP6; V0; =Q14;
10344/5: 312 354 374|200 326 157|275 340 344 5; Y60M14Q; JSP6; J5C14NZ;
10346/2: 304 000 224|200 326 157 SETB224; JSP6;
10347/2: 042|210 140 337 6; DUP; J3≠Z;
10350/0: 230 020 352 J7=;
10350/3: 304 000 252|200 326 157|213 260 333 SETB252; JSP6; J1;
10352/0: 052|304 002 232|310 000 322|212 140 354 7; ERASE; SETB1232; V2; J10≠Z;
10353/4: 052|304 001 232 ERASE; SETB632;
10354/2: 200 266 157 10; JP6;
10354/5: 310 000 321|235 140 342 8; V1; J4=Z;
10355/5: 215 260 341 J9;
=== Start P808V-1; at address 4335/10357
10357/0: 151 017|310 006 055|304 000 261|015|215 140 361 P808; M0TOQ15; YK4; SETB261; NEV; J1≠Z;
10361/0: 304 000 004|172 362 SET4; =+M15;
10361/5: 210 320 370|215 140 366 1; JSP809; J4≠Z;
10362/5: 041|042|171 362|212 140 365 2; ZERO; DUP; M15; J3≠Z;
10364/0: 052|052|304 000 301|304 004 235 ERASE; ERASE; SETB301; SETB2235;
10365/2: 311 366 054|311 366 053|200 360 000 3; =YK3M15; =YK2M15; EXIT1;
10366/5: 052|041|200 360 000 4; ERASE; ZERO; EXIT1;
=== Start P809V-1; at address 4344/10370
10370/0: 310 366 054|042|161 301|310 366 053 P809; YK3M15; DUP; SHA-32; YK2M15;
10371/3: 167 367|213 040 372 SHC-5; J1≥Z;
10372/2: 027 NEG;
10372/3: 065|164 113|164 267|304 004 235 1; REV; SHL+37; SHL-37; SETB2235;
10373/5: 015|200 360 000 NEV; EXIT1;
=== Start P810V0; at address 4350/10376
10376/0: 210 320 247|310 000 375|170 036|310 023 160|301 017 227|200 360 000
P810V0; JSP802; V0; =Q1; YD-1M1; =V0P391; EXIT1;
=== Start P811V-1; at address 4353/10401
10401/0: 164 003|011|164 005|011|164 031 P811; SHL+1; OR; SHL+2; OR; SHL+12;
10402/2: 310 014 301|011|164 025|011|164 055 Y1; OR; SHL+10; OR; SHL+22;
10403/5: 065|164 121|164 315|011|011 REV; SHL+40; SHL-26; OR; OR;
10405/0: 300 017 227|164 107|164 243|164 031|011 V0P391; SHL+35; SHL-47; SHL+12; OR;
10406/4: 041|033|027|164 125|011 ZERO; NOT; NEG; SHL+42; OR;
10407/4: 310 014 321|167 341|170 376|311 363 161|171 376 Y17; SHC-16; =Q15; =YD0M15; Q15;
10411/4: 033|027|167 041|311 014 321|200 360 000 NOT; NEG; SHC+16; =Y17; EXIT1;
[ original source of the next page
=== Start P812V-1; at address 4364/10414
10414/0: 300 017 227|164 041|164 265|200 360 000 P812; V0P391; SHL+16; SHL-38; EXIT1;
=== Start P813V-1; at address 4366/10416
10416/0: 210 321 014 P813; JSP812;
10416/3: 304 240 000|011|164 101 1; SETB120000; OR; SHL+32;
10417/3: 304 002 002|011|200 326 157|304 002 265 SETB1002; OR; JSP6; SETB1265;
10421/1: 200 266 157 JP6;
=== Start P814V-1; at address 4370/10422
10422/0: 310 006 051|167 061|164 035|167 013|164 013 P814; YK0; SHC+24; SHL+14; SHC+5; SHL+5;
10423/5: 304 000 002|011|200 326 157|304 000 301|200 326 157 SET2; OR; JSP6; SETB301; JSP6;
10426/0: 164 101|304 004 235|011|200 266 157 SHL+32; SETB2235; OR; JP6;
=== Start P815V-1; at address 4376/10430
10430/0: 310 014 345|033|027|042|311 014 345 P815; Y37; NOT; NEG; DUP; =Y37;
10431/3: 200 360 000 EXIT1;
=== Start P816V-1; at address 4378/10432
10432/0: 164 131|164 307|011|300 017 227|164 107 P816; SHL+44; SHL-29; OR; V0P391; SHL+35;
10433/4: 164 243|164 025|011|200 266 157 SHL-47; SHL+10; OR; JP6;
=== Start P817V-1; at address 4381/10435
10435/0: 164 037|304 042 002|011|200 326 157 P817; SHL+15; SETB21002; OR; JSP6;
10436/3: 304 002 265|200 326 157|041|033|210 260 323 1; SETB1265; JSP6; ZERO; NOT; JP807;
=== Start P818V-1; at address 4385/10441
10441/0: 300 017 227|164 075|164 251|200 360 000 P818; V0P391; SHL+30; SHL-44; EXIT1;
=== Start P819V-1; at address 4387/10443
10443/0: 210 320 376|300 017 232|210 321 014|012|051 P819; JSP810; V3P391; JSP812; PERM; REVD;
10444/5: 065|304 000 001|042|210 261 001 REV; SET1; DUP; JP811;
=== Start P820V-1; at address 4391/10447
10447/0: 041|042|043|311 014 331|311 014 313|311 014 312 P820; ZERO; DUP; DUPD; =Y25; =Y11; =Y10;
10451/0: 170 031|041 =RC1; ZERO;
10451/3: 310 014 311|026|164 377|235 141 053 Y9; ABS; SHL-1; J11=Z;
10453/0: 304 000 002|170 022 SET2; =M1;
10453/5: 052 11; ERASE;
10454/0: 312 034 374|042|167 361|215 041 076 12; Y60M1Q; DUP; SHC-8; J16≥Z;
10455/3: 042|304 000 377|054|304 000 366|230 021 064 DUP; SETB377; AND; SETB366; J13=;
10457/2: 304 000 374|230 021 221 SETB374; J41=;
10460/2: 304 000 334|015|231 141 221 SETB334; NEV; J39=Z;
10461/3: 042|300 006 334|054|300 006 333|015|231 141 221 DUP; V9P308; AND; V8P308; NEV; J39=Z;
10463/3: 215 261 053 J11;
10464/0: 052|164 361|042|200 326 215 13; ERASE; SHL-8; DUP; JSP300;
10465/1: 310 342 022|167 025|164 035|171 022|027|033 YB0M14; SHC+10; SHL+14; M1; NEG; NOT;
10467/0: 011|167 321|042|043|211 041 071 OR; SHC-24; DUP; DUPD; J14≥Z;
10470/2: 041|033|311 014 313 ZERO; NOT; =Y11;
10471/1: 164 007|215 041 072 14; SHL+3; J15≥Z;
10472/0: 041|033|311 014 312 ZERO; NOT; =Y10;
10472/5: 171 024|167 373|011|311 342 022|200 326 223 15; I1; SHC-3; OR; =YB0M14; JSP301;
10474/4: 164 011|215 041 053 SHL+4; J11≥Z;
10475/3: 041|033|311 014 331|215 261 053 ZERO; NOT; =Y25; J11;
10476/5: 042|304 000 340|054|304 000 140 16; DUP; SETB340; AND; SETB140;
10500/1: 015|235 141 053 NEV; J11=Z;
10500/5: 042|304 000 100|054|065|042 DUP; SETB100; AND; REV; DUP;
10502/0: 304 000 037|054|304 000 031|015|213 141 120 SETB37; AND; SETB31; NEV; J20≠Z;
10503/5: 304 023 076|170 062|065|213 141 114 SETAYC0; =M3; REV; J19≠Z;
10505/2: 042|167 365|214 041 107 DUP; SHC-6; J17≥Z;
10506/2: 041|033|311 014 313|215 261 053 ZERO; NOT; =Y11; J11;
10507/4: 310 014 331|215 141 053 17; Y25; J11≠Z;
10510/4: 210 321 246 JSP304;
10511/1: 310 014 325|027|033|042|311 014 325 18; Y21; NEG; NOT; DUP; =Y21;
10512/4: 210 141 054 J12≠Z;
10513/1: 041|033|311 014 331|210 261 054 ZERO; NOT; =Y25; J12;
10514/3: 310 014 331|215 141 053 19; Y25; J11≠Z;
10515/3: 310 014 323|042|027|033|311 014 323 Y19; DUP; NEG; NOT; =Y19;
10517/0: 170 042|164 361|105 043|211 261 111 =M2; SHL-8; =M3M2H; J18;
10520/3: 065|215 141 053 20; REV; J11≠Z;
10521/1: 042|304 000 030|054|304 000 020|231 021 152 DUP; SETB30; AND; SETB20; J27=;
10523/0: 304 000 010|235 021 150 SETB10; J42=;
10524/0: 233 141 141 J24=Z;
10524/3: 304 000 007|054|210 141 054 SETB7; AND; J12≠Z;
10525/4: 320 013 123|170 056|171 044|304 053 055|056 Z12; =Q2; I2; SETAZ50; +; [hux - address rel Z50
[C2 - fixed array list
[I2 - simple switch list
[M2 - first word Call Matrix
10527/3: 161 003|170 042|145 040|304 000 012|170 050 SHA+1; =M2; I2=-1; SET10; =C2;
10531/2: 310 034 374|042|304 000 377|054|304 000 212 Y60M1; DUP; SETB377; AND; SETB212;
[ original source of the next page
10533/1: 015|215 141 136 NEV; J22≠Z;
10533/5: 164 321|164 061 SHL-24; SHL+24;
10534/3: 042|106 040|041|233 021 151 21; DUP; M0M2QH; ZERO; J43=;
10535/4: 036|231 141 140 -; J23=Z;
10536/2: 273 041 134 J21C2NZ;
10536/5: 041|033|311 014 313|215 261 053 22; ZERO; NOT; =Y11; J11;
10540/1: 041|033|311 014 331|215 261 053 23; ZERO; NOT; =Y25; J11;
10541/3: 042|167 365|213 041 143 24; DUP; SHC-6; J25≥Z;
10542/3: 042|167 357|213 041 147 DUP; SHC-9; J26≥Z;
10543/3: 042|304 000 007|054|304 000 002|015 25; DUP; SETB7; AND; SETB2; NEV;
10545/0: 215 141 053 J11≠Z;
10545/3: 042|167 355|215 041 053 DUP; SHC-10; J11≥Z;
10546/3: 210 321 222|210 261 054 JSP302; J12;
10547/3: 041|033|311 014 312|215 261 053 26; ZERO; NOT; =Y10; J11;
10550/5: 052|215 261 053 42; ERASE; J11;
10551/3: 052|215 261 150 43; ERASE; J42;
10552/1: 052|042|167 365|235 041 136 27; ERASE; DUP; SHC-6; J22<Z;
10553/2: 042|042|200 327 300|320 333 055|167 377 DUP; DUP; JSP309; Z50M13; SHC-1;
10555/0: 232 041 156 J40<Z;
10555/3: 041|033|311 014 332 ZERO; NOT; =Y26;
10556/2: 164 261|200 326 232|311 005 174|311 005 175 40; SHL-40; JSP303; =YG0; =YG1;
10560/1: 310 005 174|310 014 304|054|310 005 175|310 014 305 YG0; Y4; AND; YG1; Y5;
10562/2: 054|011|214 141 166 AND; OR; J28≠Z;
10563/1: 310 005 174|310 014 306|054|310 005 175|310 014 307 YG0; Y6; AND; YG1; Y7;
10565/2: 054|011|235 141 053 AND; OR; J11=Z;
10566/1: 215 261 136 J22;
10566/4: 157 022|312 054 374|304 000 377|054 28; Q1TOQ2; Y60M2Q; SETB377; AND;
10570/1: 304 000 213|015|215 141 053 SETB213; NEV; J11≠Z;
10571/2: 164 315|304 000 077|054|170 330|145 320 29; SHL-26; SETB77; AND; =C13; I13=-1;
10573/0: 041 ZERO;
10573/1: 052 30; ERASE;
10573/2: 250 321 054 31; J12C13Z;
10573/5: 322 333 052|304 003 377|054|304 002 142|015 Z53M13Q; SETB1777; AND; SETB1142; NEV;
10575/4: 230 141 212 J37=Z;
10576/1: 041|311 005 174|041 32; ZERO; =YG0; ZERO;
10577/0: 052 33; ERASE;
10577/1: 312 054 374|042|304 000 217|054|304 000 213 34; Y60M2Q; DUP; SETB217; AND; SETB213;
10601/0: 015|210 141 177 NEV; J33≠Z;
10601/4: 164 371|304 000 007|054|041|234 021 205 SHL-4; SETB7; AND; ZERO; J35=;
10603/2: 164 377|233 141 207 SHL-1; J36=Z;
10604/1: 310 005 174|211 141 177 YG0; J34≠Z;
10605/1: 212 261 173 J31;
10605/4: 310 005 174|033|027|311 005 174|210 261 177 35; YG0; NOT; NEG; =YG0; J33;
10607/3: 310 005 174|042|231 141 173 36; YG0; DUP; J30=Z;
10610/4: 027|033|311 005 174|211 261 177 NEG; NOT; =YG0; J34;
10612/0: 312 054 374|042|304 000 337|054|304 000 002 37; Y60M2Q; DUP; SETB337; AND; SETB2;
10613/5: 015|231 141 215 NEV; J38=Z;
10614/3: 052|211 261 176 ERASE; J32;
10615/1: 210 321 222|312 054 374|304 000 217|054 38; JSP302; Y60M2Q; SETB217; AND;
10616/5: 304 000 213|015|232 141 173 SETB213; NEV; J31=Z;
10620/0: 304 002 035|200 266 175 SET0541; JP7;
10621/0: 052 41; ERASE;
10621/1: 052|200 360 000 39; ERASE; EXIT1;
=== Start P302V-1; at address 4498/10622
10622/0: 310 014 313|214 141 236 P302; Y11; J5≠Z;
10623/0: 310 014 327|232 141 237 Y23; J7=Z;
10624/0: 304 023 326|170 362|310 014 315|170 356|171 344 SETAYE0; =M15; Y13; =Q14; I14;
10626/0: 171 342|042|170 303|036|170 310|164 321 M14; DUP; =RM12; -; =C12; SHL-24;
10627/4: 164 061 SHL+24;
10630/0: 255 301 231|106 317|234 021 236 3; J4C12Z; M15M12QH; J5=;
10631/2: 210 261 230 J3;
[ original source of the next page
10631/5: 107 317|171 302|170 344|171 356|311 014 315 4; =M15M12QH; M12; =I14; Q14; =Y13;
10633/4: 310 014 327|027|033|042|311 014 327 Y23; NEG; NOT; DUP; =Y23;
10635/1: 215 141 236 J6≠Z;
10635/4: 041|033|311 014 313|041 ZERO; NOT; =Y11; ZERO;
10636/4: 052 5; ERASE;
10636/5: 200 360 000 6; EXIT1;
10637/2: 304 023 326|170 362|310 014 315|170 356|171 344 7; SETAYE0; =M15; Y13; =Q14; I14;
10641/2: 171 342|042|170 303|036|170 310|164 321 M14; DUP; =RM12; -; =C12; SHL-24;
10643/0: 164 061 SHL+24;
10643/2: 244 307 347 8; J8P312C12Z;
10643/5: 106 317|234 021 236|212 261 243 M15M12QH; J5=; J8;
=== Start P304V-1; at address 4518/10646
10646/0: 164 301|164 061|304 023 076|170 362 P304; SHL-32; SHL+24; SETAYC0; =M15;
10647/3: 310 014 331|210 141 257 Y25; J3≠Z;
10650/3: 310 014 314|170 356|171 344|171 342|036|170 310 Y12; =Q14; I14; M14; -; =C12;
10652/3: 151 354|144 300 M14TOQ12; I12=+1;
10653/1: 250 301 255|106 317|230 021 257 1; J2C12Z; M15M12QH; J3=;
10654/3: 211 261 253 J1;
10655/0: 107 317|171 302|170 344|171 356|311 014 314 2; =M15M12QH; M12; =I14; Q14; =Y12;
10656/5: 041 ZERO;
10657/0: 201 266 231 3; J2P301;
=== Start P821V-1; at address 4528/10660
10660/0: 320 013 126|042|167 041|033|027 P821; Z9; DUP; SHC+16; NOT; NEG;
10661/2: 167 341|321 013 126|164 301|200 360 000 SHC-16; =Z9; SHL-32; EXIT1;
=== Start P870V-1; at address 4531/10663
10663/0: 041|170 023 P870; ZERO; =RM1;
10663/3: 312 034 374|042|300 014 225|054 1; Y60M1Q; DUP; V2P360; AND;
10664/5: 300 014 223|015|230 141 271 V0P360; NEV; J2=Z;
10666/0: 042|304 000 377|054|304 000 314|015|230 141 271 DUP; SETB377; AND; SETB314; NEV; J2=Z;
10670/0: 200 326 157|213 261 263 JSP6; J1;
10671/0: 052|041|033|027|311 014 344 2; ERASE; ZERO; NOT; NEG; =Y36;
10672/1: 157 014|157 015|304 015 207|200 276 206 Q0TOQ12; Q0TOQ13; SETAV50P380; JP388;
=== Start P884V-1; at address 4540/10674
10674/0: 304 344 004|200 320 106|210 261 276 P884; SETB162004; JSE70; J1;
10675/3: 200 360 000 EXIT1;
10676/0: 304 011 355|200 266 175 1; SET2541; JP7;
=== Start P889V-1; at address 4543/10677
P889; (flag erecter);
10677/0: 304 000 236|041|033|164 101|011 SETB236; ZERO; NOT; SHL+32; OR;
10700/2: 310 014 311|235 141 302 Y9; J1=Z;
10701/2: 310 014 301|164 041|011|200 266 157 Y1; SHL+16; OR; JP6;
10702/5: 310 014 310|164 041|011|304 000 001|164 101|015|200 326 157 1; Y8; SHL+16; OR; SET1; SHL+32; NEV; JSP6;
10705/2: 310 014 347|170 031 Y39; =RC1;
10706/1: 251 021 310|312 027 056|200 326 157|211 261 306 2; J3C1Z; YP0M1Q; JSP6; J2;
10710/1: 310 014 347|200 326 157|310 014 350|170 031 3; Y39; JSP6; Y40; =RC1;
10712/0: 310 014 350|200 326 157 5; Y40; JSP6;
10713/0: 304 000 236|310 014 310|164 041|011|042|164 101 SETB236; Y8; SHL+16; OR; DUP; SHL+32;
10715/0: 011|200 266 157 OR; JP6;
=== Start P899V-1; at address 4558/10716
10716/0: 041|042|043|043|043 P899; ZERO; DUP; DUPD; DUPD; DUPD;
10716/5: 311 014 300|311 014 301|311 014 302|311 014 303|311 014 304 =Y0; =Y1; =Y2; =Y3; =Y4;
10721/2: 311 014 305|170 022|002 =Y5; =M1; =TR;
10722/2: 320 033 055|170 056|171 044|170 022|320 033 053 1; Z50M1; =Q2; I2; =M1; Z52M1;
10724/2: 164 261|027|033|027|170 050 SHL-40; NEG; NOT; NEG; =C2;
10725/3: 253 041 337|304 000 057|172 050 J2C2Z; SET47; =+C2;
10726/5: 041|320 033 055|043|042|164 375 ZERO; Z50M1; DUPD; DUP; SHL-2;
10730/1: 054|164 135|164 243|166 040|310 014 300 AND; SHL+46; SHL-47; SHLDC2; Y0;
10731/5: 011|311 014 300|310 014 301|011|311 014 301|164 127|164 243|166 040|310 014 302|011
OR; =Y0; Y1; OR;=Y1;SHL+43; SHL-47; SHLDC2; Y2; OR;
10735/2: 311 014 302|310 014 303|011|311 014 303|212 261 322 =Y2; Y3; OR; =Y3; J1;
10737/3: 310 014 300|310 014 302|011|311 014 304 2; Y0; Y2; OR; =Y4;
10741/1: 310 014 301|310 014 303|011|311 014 305 Y1; Y3; OR; =Y5;
10742/5: 041|304 000 001|167 377|320 013 123|170 023 ZERO; SET1; SHC-1; Z12; =RM1;
10744/4: 304 000 140|170 030 3; SET96; =C1;
10745/3: 310 014 304|322 033 055|054|310 014 305|322 033 055 4; Y4; Z50M1Q; AND; Y5; Z50M1Q;
10747/4: 054|011|231 141 351 AND; OR; J5=Z;
[ original source of the next page
10750/3: 042|012|011|065 DUP; PERM; OR; REV;
10751/1: 167 377|273 021 345 5; SHC-1; J4C1NZ;
10752/0: 230 341 355 J6TR;
10752/3: 065|310 014 302|011|311 014 306|041 REV; Y2; OR; =Y6; ZERO;
10754/0: 065|042|002|214 261 344 REV; DUP; =TR; J3;
10755/0: 052|310 014 303|011|311 014 307|310 014 306 6; ERASE; Y3; OR; =Y7; Y6;
10756/5: 042|033|310 014 300|054|042 DUP; NOT; Y0; AND; DUP;
10760/0: 311 014 304|011|033|311 014 302|310 014 307 =Y4; OR; NOT; =Y2; Y7;
10761/5: 042|033|310 014 301|054|042 DUP; NOT; Y1; AND; DUP;
10763/0: 311 014 305|011|033|311 014 303 =Y5; OR; NOT; =Y3;
10764/2: 200 360 000 EXIT1;
=== Start P-1V-1; at address 4597/10765
Finished
(P1000); FINISH;
Reached end of file