Kidsgrove Algol Compiler - Brick 22
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 22.
Hot links to images of individual pages are embedded in the text.
Loaded 33866 bytes for KAB22.txt
Relocated 15
Finished
Reached end of file
=============== Second pass
===========================
5221 W0 = E2705
7240 Y0 = E3744
5221 YC0 = E2705
5227 YD0 = E2711
5240 YY0 = E2720
6240 YZ0 = E3232
10624 H0 = E4500
0/0: 200 266 125 [ original source of the next page
ST11104; TL 3600;
START 1600;
H0 = E 4500;
V 20;
YC 5;
YD 8;
YY 511;
YZ 511;
4/0: 205 266 135|205 266 135 RESTART; J 3; J 3;
PROGRAM;
3125/0: 200 327 066 9; JSP260; [ flow chart page no info on V-stores and Z-stores on entry and exit of P260
3125/3: 200 331 051 1; JSP270;
3126/0: 304 010 004|200 320 106|200 266 130|200 266 131 SETB4004; JSE70; J5; J2;
3130/0: 304 041 112|200 326 264 5; SET8522; JSP7;
3131/0: 320 013 071|164 013|222 046 133 2; Z38; SHL+5; J6<Z;
3132/2: 304 005 026|205 266 133 SETB2426; J7;
3133/2: 304 005 020 6; SETB2420;
3133/5: 170 364|304 336 010 7; =I15; SETB157010;
3134/4: 170 362|171 376|200 260 106 =M15; Q15; JE70;
3135/5: 320 013 070|225 046 137|304 013 006|200 326 264 3; Z39; J4<Z; SET2822; JSP7;
3137/5: 304 336 010|170 362|304 006 125 4; SETB157010; =M15; SETB3125;
3141/1: 170 364|171 376|200 260 106 =I15; Q15; JE70;
=== Start P2V8; at address 1644/3154
V-store at 03143 = 014 240 015 237 000 000 P2V8; V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03144 = 015 240 016 237 000 000 V1=QAYZ256/AYZ511/0; (BUFFER 2);
V-store at 03147 = 242 104 243 304 140 004 V4=B5044224361060004; (F/B/C);
V-store at 03150 = 000 000 000 000 340 004 V5=B160004; (TRANSFER);
V-store at 03151 = 000 000 000 000 110 004 V6=B44004; (CBN);
V-store at 03153 = 000 000 000 000 152 004 V8=B65004; (SKIP TO BLOCK N);
3154/0: 300 006 145 V2; (FETCH NEXT WORD NORMAL ENTRY);
3154/3: 170 376|240 366 167 10; =Q15; J7C15Z;
3155/2: 102 360|171 376 M0M15Q; Q15; [ when this is used by P260 the first word read from d-list is end prog I15 is +1 - hux
[ David Ho, if you do the trace you will see that C15 is 0376 - I question this - see page 11 of
[ the documentation - which I interpret as being the number of words given in word 0 of the block
[ so it gives the user a ready made Q-store to read the data without having to know about panacea
[ added words - see also Page 8 for the return from ‘initiate’
[ I think the tape system does allow variable length (binary) blocks to be written, but
[ that is another issue which I agree we can hopefully ignore
3156/0: 301 006 145|041|301 006 146 14; =V2; ZERO; =V3;
3157/1: 200 360 000 EXIT1; (NORMAL EXIT);
(INITIAL ENTRY FORWARDS READ);
3157/4: 300 006 144|300 006 147|170 376|171 370 1; V1; V4; =Q15; C15;
3161/2: 300 006 143|170 376|170 362|171 376|200 320 106 6; V0; =Q15; =M15; Q15; JSE70;
3163/2: 201 266 171 J13;
3163/5: 300 006 151|200 320 106 V6; JSE70;
3164/5: 201 266 171 J13;
3165/2: 301 006 152|042|200 146 156|201 266 171 =V7; DUP; J14≠Z; J13;
3167/0: 300 006 150|200 320 106 7; V5; JSE70;
3170/0: 201 266 171 J13;
[JSP300; [hux diagnostic
3170/3: 042|203 146 154 8; DUP; J10≠Z;
3171/1: 304 037 272|200 326 264 13; SET8122; JSP7; (FAILURE);
(INITIAL ENTRY BACKWARDS READ);
3172/1: 300 006 144|300 006 147|170 376|171 364|202 266 161 2; V1; V4; =Q15; I15; J6;
[ HUX this is inserted to open ch4
22;
3174/2: 300 006 144 V1; [open ch4 BACKWARDS from current
3174/5: 300 006 147 V4;
3175/2: 170 376 =Q15;
3175/4: 171 364 I15; [F/B/C
3176/0: 300 006 143 V0;
3176/3: 170 376 =Q15;
3176/5: 170 362 =M15;
3177/1: 171 376 Q15;
3177/3: 200 320 106 JSE70;
3200/0: 201 266 171 J13; [NOW SKIP TO BLOCK 1 (IN Z10)
3200/3: 052 ERASE; [we dont want the result Hux
3200/4: 320 013 125|164 301|300 006 153|170 376|170 364|171 376|200 320 106|201 266 171
(SET2; )Z10; SHL-32; V8; = Q15; =I15; Q15; JSE70; J13; [get block number from Z10 HUX
3204/0: 200 360 000 EXIT1;
[hux removed to fix NS and 99/60 failure V6; (GET CBN); JSE70; J13; J10;
[ end of addition
(CLOSE);
3204/3: 204 326 157|320 013 125|164 301|164 041|304 152 004|011|200 320 106|201 266 171
16; JS1; Z10; SHL-32; SHL+16; SETB65004; OR; JSE70; J13;
3207/5: 200 266 167 J7;
3210/2: 300 006 147|200 320 106 3; V4; JSE70;
3211/2: 201 266 171 J13;
3211/5: 200 360 000 EXIT1;
3212/2: 300 006 144|304 242 204|202 266 161 15; V1; SETB121204; J6;
(INITIAL ENTRY FOR PETCH PREVIOUS WORD);
3213/5: 300 006 145|170 376|171 364|027|170 364|140 360|140 360 4; V2; =Q15; I15;NEG; =I15; M+I15; M+I15;
3216/1: 203 266 217 J9;
(NORMAL ENTRY FOR FETCH PREVIOUS WORD);
3216/4: 300 006 146|170 376 5; V3; =Q15;
[ original source of the next page
3217/3: 102 360|171 376|301 006 146|200 360 000 9; M0M15Q; Q15; =V3; EXIT1;
(WHAT IS CURRENT POSITION);
3221/1: 300 006 151|200 320 106 11; V6; JSE70;
3222/1: 201 266 171 J13;
3222/4: 300 006 152|036|304 000 377|042|300 006 145 V7; -; SETB377; DUP; V2;
3224/3: 054|012|054|164 021|011 AND; PERM; AND; SHL+8; OR;
3225/3: 200 360 000 EXIT1;
(SKIP TO GIVEN BLOCK);
3226/0: 042|164 361|300 006 152|056|300 006 153 12; DUP; SHL-8; V7; +; V8;
3227/4: 170 376|170 364|171 376|200 320 106 =Q15; =I15; Q15; JSE70;
3231/1: 201 266 171 J13;
3231/4: 167 361|164 361|167 021|300 006 150|200 320 106 SHC-8; SHL-8; SHC+8; V5; JSE70;
3233/4: 201 266 171 J13;
3234/1: 170 376|042|171 362|036|027 =Q15; DUP; M15; -; NEG;
3235/2: 172 370|170 362|171 376|301 006 145|200 360 000 =+C15; =M15; Q15; =V2; EXIT1;
=== Start P6V6; at address 1703/3247
V-store at 03240 = 012 240 013 237 242 105 P6V6; V0=QAYY0/AYY255/B121105;
V-store at 03241 = 013 240 014 237 000 000 V1=QAYY256/AYY511/0;
V-store at 03242 = 000 000 000 000 000 000 V2=0;
V-store at 03243 = 000 000 000 000 340 005 V3=B160005;
V-store at 03244 = 000 000 000 000 140 105 V4=B60105;
V-store at 03245 = 000 000 175 004 072 321 V5=B17501035321;
3247/0: 300 006 242 V2;
3247/3: 170 376|103 360|243 366 254 2; =Q15;=M0M15Q; J4C15Z;
3250/4: 171 376 Q15;
3251/0: 301 006 242|200 360 000 7; =V2; EXIT1;
3252/0: 300 006 241|300 006 240 1; V1; V0;
3253/0: 200 320 106|200 266 257|200 266 251 JSE70; J6; J7;
3254/3: 300 006 243|200 320 106|200 266 257|301 006 242 4; V3; JSE70; J6; =V2;
3256/3: 200 360 000 EXIT1;
3257/0: 304 040 036|200 326 264 6; SET8222; JSP7;
3260/0: 300 006 242|170 365|300 006 244|170 362 3; V2; =RI15; V4; =M15;
3261/4: 171 376|200 320 106|200 266 257|200 360 000 Q15; JSE70; J6; EXIT1;
=== Start P7V-1; at address 1716/3264
3264/0: 170 365 P7; =RI15;
3264/2: 304 000 200|170 362 SETB200; =M15;
3265/1: 320 013 070|041|033|047|015|011|321 013 070 Z39; ZERO; NOT; STR; NEV; OR; =Z39;
3267/0: 171 376|200 260 106 Q15; JE70;
=== Start P3V-1; at address 1720/3270
P3; (SEARCH LEVEL PARAMETERS FOR A LEVEL L);
3270/0: 041|170 323|304 000 377|167 361|065 ZERO; =RM13; SETB377; SHC-8; REV;
3271/3: 320 333 055|170 336|171 324|042|170 322 1; Z50M13; =Q13; I13; DUP; =M13;
3273/1: 203 146 274 J2≠Z;
3273/4: 065|052|200 360 000 REV; ERASE; (NONE EXIST N1=L); EXIT1;
3274/3: 043|320 333 053|015|054|203 146 271 2; DUPD; Z52M13; NEV; AND; J1≠Z;
3276/0: 065|052|202 360 001 REV; ERASE; (N1=L; M13=ALP OF L); EXIT2;
=== Start P210V0; at address 1728/3300
3300/0: 041|301 006 277 P210V0; (STEVES 6-BIT ROUTINE); ZERO; =V0;
3300/4: 042|164 137|221 046 302|200 360 000 DUP; SHL+47; J1<Z; EXIT1; (DELIMETER); (FORTRAN);
3302/1: 262 306 303|052|201 266 322 1; J2C12NZ; ERASE; J8;
3303/2: 042|164 121|164 253 2; DUP; SHL+40; SHL-43;
3304/1: 042|203 146 305|052 DUP; J3≠Z; ERASE;
3305/0: 304 000 006 SET6;
3305/3: 170 331|154 336 3; =RC13; C13TOQ14;
3306/1: 041|166 015|042|225 146 311 4; ZERO; SHLD+6; DUP; J7=Z; (SPACE);
3307/2: 042|304 000 041|036|200 046 313 DUP; SETB41; -; J5≥Z; (A-Z);
3310/4: 304 000 020|036|204 266 313 SETB20; -; J6; (O-9);
3311/5: 052|304 000 236|204 266 313 7; ERASE; SETB236; J6;
3313/0: 304 000 025|036 5; SETB25; -;
3313/4: 167 361|300 006 277|166 021|301 006 277|052 6; SHC-8; V0; SHLD+8; =V0; ERASE;
3315/3: 143 320|261 326 306 DC13; J4C13NZ;
[ original source of the next page
3316/2: 052 ERASE;
3316/3: 171 350|164 007|170 350 C14; SHL+3; =C14;
3317/3: 300 012 234|164 340|142 340|300 006 277|166 340 YD5; SHLC14; NC14; V0; SHLDC14;
3321/3: 052|301 012 234 ERASE; =YD5;
3322/1: 200 326 154|143 140|202 360 001 8; JSP2; DC6; EXIT2; (CODEWORD);
=== Start P211V-1; at address 1748/3324
3324/0: 200 326 154|143 140 P211; JSP2; DC6;
3324/5: 042|164 133|202 046 326|200 266 300 DUP; SHL+45; J15≥Z; (6 BIT); JP210;
3326/2: 042|164 137|225 046 327|200 360 000 15; DUP; SHL+47; J1<Z; EXIT1;
(KALGOL DELIM);
3327/5: 042|164 135|200 046 351 1; DUP; SHL+46; J2≥Z;
3330/5: 042|164 121|164 253|170 351 DUP; SHL+40; SHL-43; =RC14;
3332/0: 261 306 334 J3C12NZ;
3332/3: 052 ERASE;
3332/4: 200 326 154|143 140 JSP2; DC6;
3333/3: 052 ERASE;
3333/4: 202 266 345 J4;
3334/1: 300 012 234|164 121|065|164 361|166 261|052 3; YD5; SHL+40; REV; SHL-8; SHLD-40; ERASE;
3336/0: 301 012 234 =YD5;
3336/3: 200 326 154|143 140 JSP2; DC6;
3337/2: 042|164 135|164 245|304 000 003|015|200 146 361 DUP; SHL+46; SHL-46; SETB3; NEV; J5≠Z;
3341/2: 300 012 234|164 361|166 021|301 012 234 9; YD5; SHL-8; SHLD+8; =YD5;
3343/0: 300 012 235|164 041|065|164 301|166 341|052 YD6; SHL+16; REV; SHL-32; SHLD-16; ERASE;
3344/5: 301 012 235 =YD6;
3345/2: 143 340 4; DC14;
3345/4: 244 346 347 8; J6C14Z;
3346/1: 200 326 154|143 140 JSP2; DC6;
3347/0: 052|202 266 345 ERASE; J4;
3347/4: 200 326 154|143 140 6; JSP2; DC6;
3350/3: 202 360 001 EXIT2;
3351/0: 261 306 352|052|204 266 347 2; J13C12NZ; ERASE; J6;
3352/1: 154 016|042|164 121|164 253 13; C0TOQ14; DUP; SHL+40; SHL-43;
3353/2: 042|204 146 354|052|304 000 005 DUP; J14≠Z; ERASE; SET5;
3354/4: 304 000 010|034|050|170 250|167 240 14; SET8; ×D; CONT; =C10; SHCC10;
3356/1: 300 012 234|164 240|065|142 240|166 240 YD5; SHLC10; REV; NC10; SHLDC10;
3357/5: 052|301 012 234|204 266 347 ERASE; =YD5; J6;
3361/0: 042|164 121|164 253|042|304 000 003|036 5; DUP; SHL+40; SHL-43; DUP; SET3; -;
3362/4: 225 046 363 J10<Z;
3363/1: 052|202 266 341 11; ERASE; J9;
3363/5: 042|221 146 363 10; DUP; J11=Z;
3364/3: 304 000 010|034|050|170 250|300 012 234|164 361|166 021 SET8; ×D; CONT; =C10; YD5; SHL-8; SHLD+8;
3366/5: 301 012 234|304 377 370|172 250|262 246 371 =YD5; SET-8; =+C10; J12C10NZ;
3370/4: 052|202 266 345 ERASE; J4;
3371/2: 300 012 235|164 240|065|304 000 060|170 270|142 240|171 250|172 270
12; YD6; SHLC10; REV; SET48; =C11; NC10; C10; =+C11;
3374/1: 142 260|164 260|166 240|052|301 012 235|202 266 345 NC11; SHLC11; SHLDC10; ERASE; =YD6; J4;
=== Start P212V1; at address 1793/3401
3401/0: 170 256|100 174 P212V1; =Q10; M12M7;
3401/4: 170 276|171 102|170 264|171 276 =Q11; M4; =I11; Q11;
3403/0: 101 174|151 107|154 253|151 233|152 013 =M12M7; M4TOQ7; C10TOQ11; M9TOQ11; I0TOQ11;
3404/4: 171 222|170 250|171 222|171 276|204 330 233|103 114 M9; =C10; M9; Q11; JS2P215; =M12M4Q;
3406/5: 171 310|027|033|224 147 010|052|200 267 031 C12; NEG; NOT; J1=Z; ERASE; J2;
3410/4: 300 007 063|065|067|041|301 006 377|304 000 005|170 370|164 045
1; V4P260; REV; FRB; ZERO; =V0;SET5; =C15; SHL+18;
3413/2: 041|166 015|042|221 147 020 4; ZERO; SHLD+6; DUP; J3=Z;
3414/3: 164 121|300 006 377|166 021|301 006 377|052|143 360|243 367 023|041|166 015
6; SHL+40; V0; SHLD+8; =V0; ERASE; DC15; J5C15Z; ZERO; SHLD+6;
3417/4: 203 267 014 J6;
3420/1: 304 000 236|164 121|300 006 377|166 021|301 006 377|052 3; SETB236; SHL+40; V0; SHLD+8; =V0; ERASE;
3422/3: 052|143 360|262 367 013 ERASE; DC15; J4C15NZ;
3423/3: 052|300 006 377|164 021|300 012 235|164 321|166 061|301 012 235
5; ERASE; V0; SHL+8; YD6; SHL-24;SHLD+24; =YD6;
3426/1: 164 301|300 012 236|164 041|065|166 341 SHL-32; YD7; SHL+16; REV; SHLD-16;
3427/5: 052|301 012 236|200 332 114 ERASE; =YD7;JSP218;
[ original source of the next page
3431/0: 200 360 000 2; EXIT1;
=== Start P213V-1; at address 1818/3432
3432/0: 170 256|154 247 P213; =Q10; C10TOQ7;
3432/4: 200 326 324|204 267 033 2; JSP211; J1;
3433/4: 052|171 150|171 170|036|042|223 152 115 1; ERASE; C6; C7; -; DUP; J3P218=Z;
3435/2: 224 107 032 J2>Z;
3435/5: 304 000 172|200 326 264 SET0122; JSP7;
=== Start P214V-1; at address 1823/3437
3437/0: 042|164 041|164 261 P214; DUP; SHL+16; SHL-40; [ flow chart page no 5 -- process codeword
3437/5: 042|225 147 045 DUP; J1=Z;
3440/3: 151 004 M0TOQ4; (C1=0);
3440/5: 100 114|041|166 021|065 3; M12M4; ZERO; SHLD+8; REV;
3441/5: 052|221 027 046 ERASE; J2=;
3442/3: 100 114|170 256|171 242|042 M12M4; =Q10; M10; DUP;
3443/4: 170 102|205 147 040 =M4; J3≠Z;
3444/3: 052|052 ERASE; ERASE;
3444/5: 304 000 336|200 326 264 SET0222; JSP7;
3445/5: 151 024 1; M1TOQ4;
3446/1: 140 100|140 100|052|042 2; M+I4; M+I4; ERASE; DUP;
3447/1: 170 256|171 250 =Q10; C10;
3447/5: 100 114|170 256|171 250|220 027 054 4; M12M4; =Q10; C10; J5=;
3451/2: 171 244|042|170 102|205 147 047 I10; DUP; =M4; J4≠Z;
3452/4: 052|052|304 001 102|200 326 264 ERASE; ERASE; SET0322; JSP7;
3454/0: 052|100 114|170 256|164 041|171 242 5; ERASE; M12M4; =Q10; SHL+16; M10;
3455/3: 166 341|052|200 326 247 SHLD-16; ERASE; JSP6;
3456/3: 200 360 000 EXIT1;
[ flow chart page no info on H-stores etc
[ flow chart page no Q-stores usage in P260
=== Start P260V6; at address 1846/3466
V-store at 03460 = 010 172 020 031 121 345 P260V6; V1=B0207502006250745; [ flow chart page no 1
V-store at 03462 = 000 000 007 060 007 061 V3=Q0/AV1/AV2; [ flow chart page no info on V-stores and Z-stores
V-store at 03463 = 050 242 212 050 242 212 V4=B1212121212121212;
V-store at 03464 = 101 004 020 101 004 020 V5=B2020202020202020;
V-store at 03465 = 236 236 236 236 236 236 V6=B4751723647517236; [ 236 236 236 236 236 236 spaces
3466/0: 152 011 I0TOQ9;
3466/2: 202 326 174|152 010 JS22P2; I0TOQ8; [js22P2 fix - was js15p2 fix to work around tape position hux
3467/1: 300 006 240|304 002 064|036|200 320 106 V0P6; SETB1064; -; JSE70; [Monitor
3470/5: 202 272 122|300 006 240|304 002 102|036|200 320 106|202 272 122|052
J1P218; V0P6; SETB1102; -; JSE70; J1P218; ERASE; [ Open CH3
3473/4: 304 000 002|170 023|304 000 005|170 043 SET2; =RM1; SET5; =RM2;
3475/2: 304 000 001|170 063|041|042 SET1; =RM3; ZERO; DUP;
3476/3: 170 103|170 123|304 000 001|042|170 143|170 150 =RM4; =RM5; SET+1; DUP; =RM6; =C6;
3500/3: 200 330 201|304 000 002|170 163|041 JS20P215; SET2; =RM7; ZERO;
3502/0: 033|027|042|042|164 041|011 NOT; NEG; DUP; DUP; SHL+16; OR;
3503/1: 205 330 230|301 076 237|164 121|204 330 233 JS1P215; =Y-1M3; SHL+40; JS2P215;
3505/0: 103 114|041|042|204 330 233|103 114 =M12M4Q;ZERO; DUP; JS2P215; =M12M4Q;
3506/3: 204 330 233|103 114|041|042|301 012 042|301 012 043 JS2P215; =M12M4Q; ZERO; DUP; =V0P219; =V1P219;
3510/4: 320 013 071|164 005|042|221 047 115 Z38; SHL+2; DUP; J59<Z; (D2=1);
3512/1: 164 005|225 047 113|154 014|205 267 116 SHL+2; J60<Z; C0TOQ12; J62;
3513/5: 304 000 001|170 310|205 267 116 60; SET1; =C12; J62;
3515/1: 164 005|225 047 113 59; SHL+2; J60<Z;
3516/0: 304 377 377|170 310 SET-1; =C12;
3516/5: 304 000 007|170 251 62; SET7; =RC10;
3517/4: 017|017|300 007 065|017|017|017|303 252 230|177 240 *61; V6; *=YD1M10Q; J61C10NZS;
3521/5: 320 013 124|170 256|244 247 124 Z11; =Q10;J1C10Z;
3523/1: 171 250|172 042|304 000 005|170 030 C10; =+M2; SET5; =C1;
3524/4: 171 310|201 047 126|041|203 332 115 1; C12; J74≥Z; ZERO; JS3P218;
3526/1: 200 326 324|204 267 310 74; JSP211; J2;
3527/1: 042|304 000 030|054|042|225 150 022 DUP; SETB30; AND; DUP; J3=Z; (R I B);
3530/4: 065|042|012|164 125|222 047 163 REV; DUP; PERM; SHL+42; J56<Z; (FORMAL);
3532/0: 304 000 010|222 030 052 SETB10; J4=; (ARRAY);
3533/0: 304 000 020|222 027 172 SETB20; J5=; (PROCEDURE);
3534/0: 052|042|304 000 037|054|304 000 030|223 027 164 ERASE; DUP; SETB37; AND; SETB30; J6=; (SWITCH); [ flow chart page no 2
[ original source of the next page
3536/0: 304 000 031|222 027 140 SETB31; J69=; (LABEL);
[ jsp305; [hux diag
3537/0: 052|052|304 012 076|200 326 264 ERASE; ERASE; SET2622; JSP7;
3540/2: 052|264 307 141 69; ERASE; J81C12NZ; [ flow chart page no 3
3541/0: 052|204 267 124 ERASE; J1;
3541/4: 042|164 041|041 81; DUP; SHL+16; ZERO;
3542/2: 166 021|065|041|166 021|065 SHLD+8; REV; ZERO; SHLD+8; REV;
3543/3: 041|166 017|065|052 ZERO; SHLD+7; REV; ERASE;
3544/2: 200 332 026|065|200 332 026|066|200 332 026 JSP217; REV; JSP217; CAB; JSP217;
3546/1: 164 061|300 012 230|164 361|166 021|301 012 230|164 301 SHL+24; YD1; SHL-8; SHLD+8; =YD1; SHL-32;
3550/3: 300 012 231|164 041|065|166 341|052|301 012 231 YD2; SHL+16; REV; SHLD-16; ERASE; =YD2;
3552/3: 164 061|300 012 231|164 341|166 041|301 012 231 SHL+24; YD2; SHL-16; SHLD+16; =YD2;
3554/3: 065|041|304 000 236|166 361|052|065|166 321 REV; ZERO; SETB236; SHLD-8; ERASE; REV; SHLD-24;
3556/2: 052|304 000 236|166 361|052|065|164 261 ERASE; SETB236; SHLD-8; ERASE; REV; SHL-40;
3560/0: 166 361|052|301 012 232|164 301|304 236 027|200 332 021 SHLD-8; ERASE; =YD3; SHL-32; SETB117027; JSP216;
3562/2: 204 327 010|204 267 124 JS1P212; J1;
3563/2: 052 56; ERASE;
3563/3: 200 332 124|200 270 035 JSP221; J7;
3564/3: 052|171 310|027|033 6; ERASE; C12; NEG; NOT;
3565/2: 205 147 166 J82≠Z;
3565/5: 304 036 042 SETB17042;
3566/2: 200 332 021 JSP216;
3566/5: 042|164 061|164 255|170 050 82; DUP; SHL+24; SHL-42; =C2;
3570/0: 151 031|171 050|172 022|140 020 M1TOQ9; C2; =+M1; M+I1;
3571/2: 200 327 001|204 267 124 JSP212; J1;
3572/2: 052|042|164 117|164 243 5; ERASE; DUP; SHL+39; SHL-47; [ flow chart page no 5
3573/2: 225 147 174 J8=Z;
3573/5: 200 327 032|204 267 124 JSP213; J1;
3574/5: 243 307 206|304 000 033 8; J63C12Z; SETB33; [ flow chart page no 5
3575/5: 164 121|304 000 236 SHL+40; SETB236;
3576/4: 166 361|052|164 301 SHLD-8; ERASE; SHL-32;
3577/3: 200 332 021 JSP216;
3600/0: 300 012 234|301 012 230|300 007 065|301 012 234 YD5; =YD1; V6; =YD5;
3602/0: 300 012 235|041|166 041 YD6; ZERO; SHLD+16;
3603/0: 300 012 231|164 041|065 YD2; SHL+16; REV;
3604/0: 166 341|052|301 012 231 SHLD-16; ERASE; =YD2;
3605/0: 300 007 065|166 341|052 V6; SHLD-16; ERASE;
3606/0: 301 012 235 =YD6;
3606/3: 171 102|170 243|140 240|171 142 63; M4; =RM10; M+I10; M6; [ flow chart page no 5
3607/5: 170 244|171 022|170 250|171 256 =I10; M1; =C10; Q10;
3611/1: 205 330 230|303 076 240|171 162|300 076 240 JS1P215; =Y0M3Q; M7; Y0M3;
3613/0: 170 256|170 242|171 204|170 250|300 012 043|164 121|300 012 042|166 021|170 244|052
=Q10; =M10; I8; =C10; V1P219; SHL+40; V0P219; SHLD+8; =I10; ERASE;
3616/3: 171 256|205 330 230|152 010 Q10; JS1P215; I0TOQ8;
3617/4: 303 076 240|100 134|164 341|164 041 =Y0M3Q; M12M5; SHL-16; SHL+16;
3621/1: 171 102|011|101 134|042 M4; OR; =M12M5; DUP;
3622/1: 164 261|164 121|171 122|164 041 SHL-40; SHL+40; M5; SHL+16;
3623/3: 011|151 105|204 330 233|103 114 OR; M4TOQ5; JS2P215; =M12M4Q;
3624/5: 304 000 001|164 003|170 022|151 106 SET+1; SHL+1; =M1; M4TOQ6;
3626/2: 041|204 330 233|103 114|042|304 000 001|042|301 012 042|301 012 043
ZERO; JS2P215; =M12M4Q; DUP; SET1; DUP; =V0P219; =V1P219;
3631/1: 304 000 007|054|042|222 147 265 SETB7; AND; DUP; J9=Z;
3632/3: 052|151 316|304 377 376|172 342 ERASE; M12TOQ14; SET-2; =+M14;
3633/5: 100 116|200 326 270|204 267 235 M14M4; JSP3; J11; [ flow chart page no 6
3635/1: 200 267 237 J10;
3635/4: 052|052|304 001 246|200 326 264 11; ERASE; ERASE; SET0422; JSP7; [ flow chart page no 6
3637/0: 320 333 053|164 101|164 261 10; Z52M13; SHL+32; SHL-40; [ flow chart page no 6
3640/1: 242 307 263|042|300 007 063|065|067|304 000 005|170 250 J64C12Z; DUP; V4; REV; FRB; SET5; =C10;
3642/3: 164 045 SHL+18;
3642/5: 041|166 015|042|224 147 247 67; ZERO; SHLD+6; DUP; J65=Z;
[ original source of the next page
3644/0: 164 121|300 007 057|166 021|301 007 057|052|143 240|240 247 253|041
68; SHL+40; V0; SHLD+8; =V0; ERASE; DC10; J66C10Z; ZERO;
3646/5: 166 015|200 267 244 SHLD+6; J68;
3647/4: 304 000 236|167 361|300 007 057|166 021|301 007 057|052|052|143 240
65; SETB236; SHC-8; V0; SHLD+8; =V0; ERASE; ERASE; DC10;
3652/3: 265 247 242 J67C10NZ;
3653/0: 052|300 007 057 66; ERASE; V0;
3653/4: 300 012 234|164 121|065|166 261|052|301 012 234 YD5; SHL+40; REV; SHLD-40; ERASE; =YD5;
3655/4: 066|042|051|066|164 135|042|223 047 260|052 CAB; DUP; REVD; CAB; SHL+46; DUP; J70<Z; ERASE;
3657/3: 304 035 033|205 267 262 SETB16433; J71;
3660/3: 164 003|222 047 262|304 024 033|205 267 262 70; SHL+1; J72<Z; SETB12033; J71;
3662/2: 304 015 033 72; SETB6433;
3662/5: 200 332 021 71; JSP216;
3663/2: 012 64; PERM;
3663/3: 052|042|012|164 355 ERASE; DUP; PERM; SHL-10;
3664/2: 164 101|011|204 267 265 SHL+32; OR; J12;
3665/2: 052|041 9; ERASE; ZERO; [ flow chart page no 7
3665/4: 151 107|204 330 233|103 114 12; M4TOQ7; JS2P215; =M12M4Q; [ flow chart page no 7
3666/5: 243 307 303 J73C12Z;
3667/2: 041|166 021|065|041|166 021|065|052 ZERO; SHLD+8; REV; ZERO; SHLD+8; REV; ERASE;
3670/5: 300 007 063 V4P260;
3671/2: 042|012|065|067|012|065|067 DUP; PERM; REV; FRB; PERM; REV; FRB;
3672/3: 200 332 166 JSP261;
3673/0: 300 012 232|164 021|065|166 361 YD3; SHL+8; REV; SHLD-8;
3674/2: 065|301 012 232|164 101|300 012 231|164 341|166 041 REV; =YD3; SHL+32; YD2; SHL-16; SHLD+16;
3676/3: 301 012 231|052 =YD2; ERASE;
3677/1: 200 332 166 JSP261;
3677/4: 164 061|300 012 232|167 361|164 321|166 061 SHL+24; YD3; SHC-8; SHL-24; SHLD+24;
3701/3: 167 021|301 012 232|052 SHC+8; =YD3; ERASE;
3702/3: 200 332 114|204 267 303 JSP218; J80;
3703/3: 052 73; ERASE; [ flow chart page no 7
3703/4: 200 326 324|205 267 305 80; JSP211; J13;
3704/4: 052|304 002 012|200 326 264 ERASE;SET0522; JSP7;
3705/5: 304 000 377|054 13; SETB377; AND; [ flow chart page no 7
3706/3: 304 000 254|015|224 147 124 SETB254; NEV; J1=Z;
3707/4: 304 002 156|200 326 264 SET0622; JSP7;
3710/4: 042|304 001 160|054|042|164 117|042|225 047 337 2; DUP; SETB560; AND;DUP; SHL+39; DUP;J47<Z; [ flow chart page no 8
3712/4: 164 005|042|221 047 320 SHL+2; DUP; J18<Z;
3713/4: 164 003|042|224 047 316 SHL+1; DUP; J19<Z;
3714/4: 164 003|041|301 012 044|222 047 362 SHL+1; ZERO; =V2P219; J16<Z;
3716/1: 202 267 324 J14;
3716/4: 052|052|052|304 002 322|200 326 264 19; ERASE; ERASE; ERASE; SET0722; JSP7;
3720/1: 164 003|042|223 047 322 18; SHL+1; DUP; J20<Z;
3721/1: 164 003|221 047 377 SHL+1; J17<Z;
3722/0: 201 267 344 J15;
3722/3: 164 003|304 000 001|301 012 044|222 047 362 20; SHL+1; SET1; =V2P219; J16<Z;
3724/2: 052|052|300 076 240|170 256 14; ERASE; ERASE; Y0M3; =Q10; [ flow chart page no 10
3725/3: 171 022|170 250|151 112|171 256|205 330 230|303 076 240|100 154
M1; =C10; M4TOQ10; Q10; JS1P215; =Y0M3Q; M12M6;
3730/1: 170 256|151 112|171 256|101 154|171 156|151 106 =Q10; M4TOQ10; Q10; =M12M6; Q6; M4TOQ6;
3732/1: 164 101|164 341|204 330 233|103 114 SHL+32; SHL-16; JS2P215; =M12M4Q;
3733/4: 300 012 042|033|027|301 012 042 V0P219; NOT; NEG; =V0P219;
3735/0: 300 012 043|033|027|301 012 043 V1P219; NOT; NEG; =V1P219;
3736/2: 244 307 124|200 332 056|204 267 124 J1C12Z; JS1P219; J1;
3737/5: 164 011|304 377 377|301 012 044|222 047 362|052|304 000 001|164 121|244 307 345|200 332 062|204 267 345
47; SHL+4; SET-1; =V2P219; J16<Z; ERASE; SET1; SHL+40; J83C12Z; JS3P219; J83; [ flow chart page no 9
3744/1: 052|242 307 345|200 332 061 15; ERASE; J84C12Z; JS2P219; [ flow chart page no 11
3745/2: 100 134 84; M12M5; [ flow chart page no 11
3745/4: 200 326 270|202 267 357 83; JSP3; J21; [ flow chart page no 11
3746/4: 320 333 053|042|164 101|164 261|171 022 Z52M13; DUP; SHL+32; SHL-40; M1;
3750/2: 204 027 360 J22≠;
3750/5: 052|164 041|164 255|151 332|027|172 242 ERASE; SHL+16; SHL-42; M13TOQ10; NEG; =+M10;
[ original source of the next page
3752/3: 320 253 052|167 361|171 022|166 361|052|167 041|321 253 052 Z53M10; SHC-8; M1; SHLD-8; ERASE; SHC+16; =Z53M10;
3755/0: 052|052 ERASE; ERASE;
3755/2: 320 333 054 23; Z51M13;
3755/5: 164 261|172 022|140 020|204 267 124 SHL-40; =+M1; M+I1; J1;
3757/2: 052|052|304 003 066|200 326 264 21; ERASE; ERASE; SET0822; JSP7; [ flow chart page no 11
3760/4: 052|052|052|052|304 003 232|200 326 264 22; ERASE; ERASE; ERASE; ERASE; SET0922; JSP7; [ flow chart page no 11
3762/2: 052|300 076 237|240 307 364|205 332 101 16; ERASE; Y-1M3; J92C12Z; JS9P219; [ flow chart page no 12 or 92
[ P219 undocumented but appears to write ENDPRG to YD1 stores - drags? - hux
3764/0: 170 256|300 012 043|027|033|301 012 043 92; =Q10; V1P219; NEG; NOT; =V1P219; [ flow chart page no 12 or 16
3765/4: 171 242|170 210|100 254|170 276 M10; =C8; M12M10; =Q11;
3767/0: 171 022|171 204|036|220 047 371 M1; I8; -; J85<Z;
3770/2: 171 022|170 204 M1; =I8;
3771/0: 042|304 001 377|054|304 001 234|015|205 147 373 85; DUP; SETB777; AND; SETB634; NEV; J87≠Z; [ flow chart page no 12
3773/0: 171 204|201 267 374 I8; J88;
3773/5: 171 022 87; M1; [ flow chart page no 12
3774/1: 170 270|171 276|101 254 88; =C11; Q11; =M12M10; [ flow chart page no 12
3775/1: 171 250|170 022|141 060|203 330 250 C10; =M1; M-I3; JS6P215;
3776/4: 204 270 016 J24;
3777/1: 241 310 000 17; J93C12Z; [ flow chart page no 13
3777/4: 205 332 105 JS11P219;
4000/1: 052|300 076 237|170 276|171 270|170 202 93; ERASE; Y-1M3; =Q11; C11; =M8;
4001/5: 171 264|041|166 121|301 012 042|164 261|301 012 043 I11; ZERO; SHLD+40; =V0P219; SHL-40; =V1P219;
4004/0: 151 267 M11TOQ7;
4004/2: 141 060|203 330 250|300 076 237|170 276 M-I3; JS6P215; Y-1M3; =Q11;
4006/0: 151 272|171 262|170 210 M11TOQ10; M11; =C8;
4007/0: 100 254|170 276|171 022|171 204|036|224 050 011 M12M10; =Q11; M1; I8; -; J89<Z;
4011/0: 171 022|170 204 M1; =I8;
4011/4: 171 204|170 270 89; I8; =C11; [ flow chart page no 13
4012/2: 171 276|101 254|300 076 237|170 276 Q11; =M12M10; Y-1M3; =Q11;
4013/5: 171 270|170 022|171 264|170 142 C11; =M1; I11; =M6;
4015/1: 141 060|203 330 250|171 202|170 204 M-I3; JS6P215; M8; =I8;
4016/4: 170 376|171 370|204 147 124|171 062|027|033|224 147 124 24; =Q15; C15; J1≠Z; M3; NEG; NOT; J1=Z; [ flow chart page no 13
4021/0: 171 062|223 150 127|304 003 376|200 326 264 M3; J25=Z; SET1022; JSP7;
4022/5: 052 3; ERASE; [ flow chart page no 14
4023/0: 171 310|027|033|200 150 033 C12; NEG; NOT; J51≠Z;
4024/1: 042|164 135|042|223 050 026 DUP; SHL+46; DUP; J48<Z;
4025/2: 052|304 000 035|205 270 030 ERASE; SETB35; J49;
4026/3: 164 003|222 050 030|304 003 070|205 270 030 48; SHL+1; J50<Z; SET824; J49; [ flow chart page no 14
4030/2: 304 000 015 50; SETB15; [ flow chart page no 14 wrongly labelled as 15; on the flowchart
4030/5: 164 121|304 000 236 49; SHL+40; SETB236; [ flow chart page no 14
4031/4: 166 361|052|164 301 SHLD-8; ERASE; SHL-32;
4032/3: 200 332 021 JSP216;
4033/0: 042|164 125 51; DUP; SHL+42; [ flow chart page no 14
4033/3: 225 050 035 J26<Z;
4034/0: 042 DUP;
4034/1: 164 117|223 050 044 SHL+39; J27<Z;
4035/0: 151 031|204 270 043 7; M1TOQ9; J28;
4035/5: 151 031|042|164 117|224 050 043 26; M1TOQ9; DUP; SHL+39; J28<Z; [ flow chart page no 15
4037/1: 140 020 M+I1;
4037/3: 171 310|027|033 86; C12; NEG; NOT;
4040/1: 204 150 043 J28≠Z;
4040/4: 300 012 233|167 021 YD4; SHC+8;
4041/3: 164 021|304 000 031 SHL+8; SETB31;
4042/2: 166 361|052 SHLD-8; ERASE;
4042/5: 167 361|301 012 233 SHC-8; =YD4;
4043/4: 140 020|202 270 051 28; M+I1; J29; [ flow chart page no 15
4044/3: 151 051|140 040 27; M2TOQ9; M+I2; [ flow chart page no 14
4045/1: 171 310|027|033 C12; NEG; NOT;
4045/5: 202 150 051|300 012 233 J29≠Z; YD4;
4046/5: 167 021|164 021 SHC+8; SHL+8;
[ original source of the next page
4047/3: 304 000 032|166 361 SETB32; SHLD-8;
4050/2: 052|167 361 ERASE; SHC-8;
4050/5: 301 012 233 =YD4;
4051/2: 200 327 001|204 267 124 29; JSP212; J1; [ flow chart page no 15
4052/2: 052 4; ERASE; [ flow chart page no 16
4052/3: 171 310|027|033|200 150 064 C12; NEG; NOT; J52≠Z;
4053/4: 042|164 135|042|222 050 057|222 150 056 DUP; SHL+46; DUP; J53<Z; J54=Z;
4055/2: 304 000 035|204 270 061 SETB35; J57;
4056/2: 304 000 236|204 270 061 54; SETB236; J57; [ flow chart page no 16
4057/2: 164 003|221 050 061 53; SHL+1; J55<Z; [ flow chart page no 16
4060/1: 304 000 024|204 270 061 SETB24; J57;
4061/1: 304 000 015 55; SETB15; [ flow chart page no 16
4061/4: 304 000 014|164 121|065|166 361 57; SETB14; SHL+40; REV; SHLD-8; [ flow chart page no 16
4063/0: 052|164 301|200 332 021 ERASE; SHL-32; JSP216;
4064/0: 042 52; DUP; [ flow chart page no 16
4064/1: 164 105|164 253|170 230 SHL+34; SHL-43; =C9;
4065/1: 265 230 066 J30C9NZ;
4065/4: 052|304 004 142|200 326 264 ERASE; SET1122; JSP7;
4066/5: 042|164 117|222 050 102 30; DUP; SHL+39; J32<Z; [ flow chart page no 16
4067/5: 151 031|140 020|042|202 330 143|200 327 001 31; M1TOQ9; M+I1; DUP; JS94; JSP212; [ flow chart page no 16
4071/4: 143 220|242 230 100|052 DC9; J35C9Z; ERASE;
4072/4: 200 326 324|201 270 077 JSP211; J38;
4073/4: 042|164 117|220 050 076 36; DUP; SHL+39; J39<Z;
4074/4: 042|164 105|164 253|225 150 067 DUP; SHL+34; SHL-43; J31=Z;
4076/0: 052|304 004 306|200 326 264 39; ERASE; SET1222; JSP7; [ flow chart page no 17
4077/1: 052|304 005 052|200 326 264 38; ERASE; SET1322; JSP7; [ flow chart page no 17
4100/2: 164 061|164 253|042|170 130 35; SHL+24; SHL-43; DUP; =C5; [ flow chart page no 16
4101/3: 172 022|204 267 124 =+M1; J1;
4102/2: 171 310|027|033|203 150 106 32; C12; NEG; NOT; J58≠Z; [ flow chart page no 18
4103/3: 300 012 233|167 021|164 021 YD4; SHC+8; SHL+8;
4104/4: 304 000 032|166 361|052 SETB32; SHLD-8; ERASE;
4105/4: 167 361|301 012 233 SHC-8; =YD4;
4106/3: 042|164 117|203 050 111 58; DUP; SHL+39; J33≥Z; [ flow chart page no 18
4107/3: 042|164 041|164 261|304 377 377 DUP; SHL+16; SHL-40; SET-1;
4110/5: 056|224 150 112 +; J37=Z;
4111/3: 151 051|140 040|201 270 114 33; M2TOQ9; M+I2; J34; [ flow chart page no 18
4112/4: 171 030|170 222|304 000 001|172 030 37; C1; =M9; SET+1; =+C1; [ flow chart page no 18
4114/1: 042|202 330 143|200 327 001|143 220|241 230 123 34; DUP; JS94; JSP212; DC9; J40C9Z; [ flow chart page no 18
4116/1: 052|200 326 324|202 270 126 ERASE; JSP211; J41;
4117/2: 042|304 001 170|054|304 001 110 DUP; SETB570; AND; SETB510;
4120/4: 015|201 150 125|042|164 105|164 253|222 150 102|201 270 125 NEV; J42≠Z; DUP; SHL+34; SHL-43; J32=Z; J42;
4123/1: 164 061|164 253|042|170 130 40; SHL+24; SHL-43; DUP; =C5;
4124/2: 172 042|204 267 124 =+M2; J1;
4125/1: 052|304 005 216|200 326 264 42; ERASE; SET1422; JSP7; [ flow chart page no 18
4126/2: 052|304 005 362|200 326 264 41; ERASE; SET1522; JSP7; [ flow chart page no 18
4127/3: 300 010 174|170 336|171 102|170 324|171 330|304 021 224|036|042
25; V2P215;=Q13; M4; =I13; C13; SETAH0;-; DUP;
4132/1: 201 150 134 J43≠Z;
4132/4: 052|171 336|321 013 122|203 270 162 ERASE; Q13; =Z13; J45;
4134/1: 042|221 110 156 43; DUP; J44>Z;
4134/5: 027|172 322|171 330|170 343|304 021 224|170 330 NEG; =+M13; C13; =RM14; SETAH0; =C13;
4136/5: 171 336|321 013 122|171 102|170 311 Q13; =Z13; M4; =RC12;
4140/2: 017|017|017|017|100 316|017|017|017|017|313 301 224|177 300 *46; M14M12; *=H0M12Q; J46C12NZS;
4142/5: 203 270 162 J45;
4143/2: 171 310|204 110 155 94; C12; J99≤Z; [ flow chart page no 19
4144/1: 042|304 000 003|054 DUP; SETB3; AND;
4145/0: 304 000 001|220 030 151 SETB1; J95=;
4146/0: 304 000 002|220 030 152 SETB2; J96=;
4147/0: 304 000 003|220 030 153 SETB3; J97=;
4150/0: 304 000 236|203 270 153 SETB236; J98;
[ original source of the next page
4151/0: 304 000 035|203 270 153 95; SETB35; J98; [ flow chart page no 19
4152/0: 304 000 024|203 270 153 96; SETB24; J98; [ flow chart page no 19
4153/0: 304 000 015 97; SETB15; [ flow chart page no 19
4153/3: 304 000 014|167 361|065|166 021|200 332 021|052|052 98; SETB14; SHC-8; REV; SHLD+8; JSP216; ERASE; ERASE; [ flow chart page no 19
4155/4: 200 360 000 99; EXIT1; [ flow chart page no 19
4156/1: 304 021 224|065|036|300 007 063|067|300 007 064|056|301 007 061
44; SET4500; REV; -; V4; FRB; V5; +; =V2;
4160/5: 300 007 062|170 036|171 336|321 013 122 V3; =Q1; Q13; =Z13;
4162/3: 171 042|304 377 373|056|225 150 164|171 042|200 270 165|041|321 013 121
45; (ENTER NEXT BRICK); M2; SET-5; +; J90=Z; M2; J91; 90; ZERO; 91; =Z14;
4165/3: 202 326 210 JS3P2;
4166/0: 300 006 240|164 301|164 041|304 140 003|011|200 320 106|202 272 122
V0P6; SHL-32; SHL+16; SETB60003; OR; JSE70; J1P218; [close CH3
4170/5: 200 360 000 EXIT1; [ exit p260 hux
=== Start P215V6; at address 2177/4201
V-store at 04173 = 000 000 377 377 000 000 P215V6; V1=Q0/-1/0;
V-store at 04174 = 000 000 377 377 000 000 V2=Q0/-1/0;
V-store at 04175 = 000 000 377 377 000 000 V3=Q0/-1/0;
V-store at 04176 = 000 000 377 377 000 000 V4=Q0/-1/0;
V-store at 04177 = 000 000 377 377 000 000 V5=Q0/-1/0;
20; (INITIAL ENTRY RUN 6); [ flow chart page no 1
4201/0: 304 021 224|042|170 302 SETAH0; DUP; =M12; (BASE ADD OF BSK);
4202/0: 300 010 173|170 256|304 016 240|036 V1; =Q10; SETAY0; -;
4203/3: 170 242|171 256|301 010 173 =M10; Q10; =V1;
4204/4: 320 013 124|170 256|304 053 055|172 242 Z11; =Q10; SETAZ50; =+M10;
4206/2: 171 242|042|321 013 120 M10; DUP; =Z15; (ADD OF THE FREE SPACE);
4207/2: 304 021 224|036|300 010 174|170 256|170 242 SETAH0; -; V2; =Q10; =M10;
4211/1: 304 021 224|170 250|171 256|301 010 174 SETAH0; =C10; Q10; =V2;
4212/5: 200 360 000 EXIT1;
21; (INITIAL ENTRY RUN 7);
4213/2: 320 013 122|042|301 010 174|170 256|171 244|143 240|171 250|170 222
Z13; DUP; =V2; =Q10; I10; DC10; C10; =M9;
4216/1: 301 010 200 =V6; (SIZE OF BSK LIST);
4216/4: 320 013 120|170 262 Z15; =M11; (FOR FAL LIST);
4217/3: 145 240|171 256|301 010 177 I10=-1; Q10; =V5;
4220/4: 300 010 175|170 256|304 001 054|170 242 V3; =Q10; SET300; =M10;
4222/2: 171 256|301 010 175 Q10; =V3;
4223/1: 300 010 177|170 256|171 250|304 017 314|042 V5; =Q10; C10; SETAY300; DUP;
4225/0: 300 010 176|170 256|042|170 203|170 250|036|170 242 V4; =Q10; DUP; =RM8; =C10; -; =M10;
4227/1: 145 240|171 256|301 010 176 I10=-1; Q10; =V4;
4230/2: 200 360 000 EXIT1;
4230/5: 300 010 173|200 330 247|301 010 173|171 242|220 150 264 1; V1; JS30; =V1; M10; J12=Z; [ flow chart page no 1
4233/1: 200 360 000 EXIT1;
4233/4: 300 010 174|200 330 247|301 010 174|171 242|221 150 301 2; V2; JS30; =V2; M10; J13=Z; [ flow chart page no 1
4236/0: 200 360 000 EXIT1;
4236/3: 300 010 175|200 330 247|301 010 175|171 242|221 150 315 3; V3; JS30; =V3; M10; J14=Z; [ flow chart page no 1
4240/5: 200 360 000 EXIT1;
4241/2: 300 010 176|200 330 247|301 010 176|171 242|221 150 332 4; V4; JS30; =V4; M10; J15=Z; [ flow chart page no 2
4243/4: 200 360 000 EXIT1;
4244/1: 300 010 177|200 330 247|301 010 177|171 242|221 150 346 5; V5; JS30; =V5; M10; J16=Z; [ flow chart page no 2
4246/3: 200 360 000 EXIT1;
4247/0: 170 256|140 240|171 256|200 360 000 30; =Q10; M+I10; Q10; EXIT1;
4250/3: 300 010 173|203 330 262|301 010 173|200 360 000 6; V1; JS11; =V1; EXIT1; [ flow chart page no 2
4252/3: 300 010 174|203 330 262|301 010 174|200 360 000 7; V2; JS11; =V2; EXIT1; [ flow chart page no 2
4254/3: 300 010 175|203 330 262|301 010 175|200 360 000 8; V3; JS11; =V3; EXIT1; [ flow chart page no 2
4256/3: 300 010 176|203 330 262|301 010 176|200 360 000 9; V4; JS11; =V4; EXIT1; [ flow chart page no 2
4260/3: 300 010 177|203 330 262|301 010 177|200 360 000 10; V5; JS11; =V5; EXIT1; [ flow chart page no 2
4262/3: 170 256|141 240|171 256|200 360 000 11; =Q10; M-I10; Q10; EXIT1; [ flow chart page no 2 ?? lebelled 17 on diagram
4264/0: 300 010 174|170 256|171 242|164 377|042 12; V2; =Q10; M10; SHL-1; DUP;
4265/4: 221 151 046 J18=Z;
4266/1: 042|027|172 242|042|172 250|171 256 DUP; NEG; =+M10; DUP; =+C10; Q10;
4267/4: 301 010 174|042|300 010 173|170 256|172 242 =V2; DUP; V1; =Q10; =+M10;
[ original source of the next page
4271/3: 171 256|301 010 173|171 302|056|170 322 Q10; =V1; M12; +; =M13;
4273/1: 171 102|170 351|145 340|151 317 M4; =RC14; I14=-1; M12TOQ15;
4274/3: 151 334|171 102|042|172 322|042 M13TOQ12; M4; DUP; =+M13; DUP;
4275/5: 172 362|204 110 300 =+M15; J73≤Z;
4276/4: 017|017|100 357|017|017|017|017|103 355|177 340 *19; M15M14; *=M13M14Q; J19C14NZS;
4300/4: 200 360 000 73; EXIT1;
4301/1: 300 010 173|170 256|171 242|164 377|042 13; V1; =Q10; M10; SHL-1; DUP;
4302/5: 221 151 046 J18=Z;
4303/2: 042|027|172 242|171 256|301 010 173|300 010 174 DUP; NEG; =+M10; Q10; =V1; V2;
4305/2: 170 256|042|027|172 250|172 242 =Q10; DUP; NEG; =+C10; =+M10;
4306/4: 151 317|171 250|170 322|151 334 M12TOQ15; C10; =M13; M13TOQ12;
4310/0: 171 102|042|170 351|171 256|301 010 174 M4; DUP; =RC14; Q10; =V2;
4311/4: 204 110 314 J34≤Z;
4312/1: 017|017|017|017|017|100 357|017|017|017|017|103 355|177 340 *32; M15M14; *=M13M14Q; J32C14NZS;
4314/4: 200 360 000 34; EXIT1;
4315/1: 300 010 176|170 256|171 242|164 377|042 14; V4; =Q10; M10; SHL-1; DUP;
4316/5: 221 150 364 J33=Z; (BBR+FAI FULL);
4317/2: 042|172 250|042|027|172 242|171 256 DUP; =+C10; DUP; NEG; =+M10; Q10;
4320/5: 301 010 176|171 250|170 362|300 010 175|170 256 =V4; C10; =M15; V3; =Q10;
4322/5: 172 242|171 256|301 010 175 =+M10; Q10; =V3;
4324/0: 171 102|170 331|145 320|151 216 M4; =RC13; I13=-1; M8TOQ14;
4325/2: 151 370|171 102|042|172 342 M15TOQ8; M4; DUP; =+M14;
4326/3: 042|172 362|204 110 331 DUP; =+M15; J35≤Z;
4327/3: 017|017|017|100 336|017|017|017|017|103 337|177 320 *22; M14M13; *=M15M13Q; J22C13NZS;
4331/4: 200 360 000 35; EXIT1;
4332/1: 300 010 175|170 256|171 242|164 377|042 15; V3; =Q10; M10; SHL-1; DUP;
4333/5: 221 150 364 J33=Z; (BBR AHD FA1 PULL);
4334/2: 042|027|172 242|171 256|301 010 175|300 010 176 DUP; NEG; =+M10; Q10; =V3; V4;
4336/2: 170 256|042|027|172 250|172 242 =Q10; DUP; NEG; =+C10; =+M10;
4337/4: 171 256|301 010 176|151 217|171 250|170 342 Q10; =V4; M8TOQ15; C10; =M14;
4341/3: 151 350|171 102|042|170 331 M14TOQ8; M4; DUP; =RC13;
4342/4: 204 110 345 J23≤Z;
4343/1: 017|017|017|017|017|100 337|017|017|017|017|103 336|177 320 *24; M15M13; *=M14M13Q; J24C13NZS;
4345/4: 200 360 000 23; EXIT1;
4346/1: 300 010 176|170 256|171 242|164 377|042|221 151 016 16; V4; =Q10; M10; SHL-1; DUP; J25=Z;
(FAI FULL AND BSK);
4350/2: 042|027|172 242|171 256|301 010 176 DUP; NEG; =+M10; Q10; =V4;
4351/5: 300 010 177|170 256|042|027|172 250|042|172 242 V5; =Q10; DUP; NEG; =+C10; DUP; =+M10;
4353/5: 171 256|301 010 177|171 250|170 302 Q10; =V5; C10; =M12;
4355/2: 151 237|151 236|027|172 342|151 351 M9TOQ15; M9TOQ14; NEG; =+M14; M14TOQ9;
4356/5: 300 010 200|304 000 012|056|171 230|036 V6; SET10; +; C9; -;
4360/3: 042|170 331|204 110 363 DUP; =RC13; J36≤Z;
4361/3: 017|017|017|100 337|017|017|017|017|103 336|177 320 *26; M15M13; *=M14M13Q; J26C13NZS;
4363/4: 200 360 000 36; EXIT1;
33; (BBR + FAI FULL); [ flow chart page no 1
4364/1: 052 ERASE;
4364/2: 300 010 177|170 256|171 242|304 000 003|044 V5; =Q10; M10; SET3; ÷I;
4366/1: 052|042|221 151 046 ERASE; DUP; J18=Z; (MACHINE FILLED);
4367/0: 042|164 003|042|172 250 DUP; SHL+1; DUP; =+C10;
4370/0: 042|027|172 242|151 236|172 342|171 256|301 010 177 DUP; NEG; =+M10; M9TOQ14; =+M14; Q10; =V5;
4372/1: 300 010 176|170 256|042|172 250|042 V4; =Q10; DUP; =+C10; DUP;
4373/4: 164 003 SHL+1;
4374/0: 172 302|042 =+M12; DUP;
4374/3: 172 242|171 256|301 010 176|300 010 175|170 256 =+M10; Q10; =V4; V3; =Q10;
4376/3: 172 242|171 256|301 010 175 =+M10; Q10; =V3;
4377/4: 151 237|151 351|300 010 200|304 000 012|056 M9TOQ15; M14TOQ9; V6; SET10; +;
4401/3: 171 230|036|170 331|145 320 C9; -; =RC13; I13=-1;
4402/4: 171 330|042|172 362|042 C13; DUP; =+M15; DUP;
4403/4: 172 342|204 111 006 =+M14; J37≤Z;
4404/3: 017|017|017|100 337|017|017|017|017|103 336|177 320 *27; M15M13; *=M14M13Q; J27C13NZS;
[ original source of the next page
4406/4: 300 010 176|170 256|171 250|170 342 37; V4; =Q10; C10; =M14;
4410/1: 151 217|151 350|171 102|042|172 342 M8TOQ15; M14TOQ8; M4; DUP; =+M14;
4411/4: 172 362|171 102|042|170 331 =+M15; M4; DUP; =RC13;
4412/5: 145 320|204 111 015 I13=-1; J38≤Z;
4413/4: 017|017|100 337|017|017|017|017|103 336|177 320 *28; M15M13; *=M14M13Q; J28C13NZS;
4415/4: 200 360 000 38; EXIT1;
4416/1: 300 010 175|170 256|171 242|304 000 003|017|044 25; V3; =Q10; M10; SET3; ÷I; [???
4420/1: 052|042|221 151 046 ERASE; DUP; J18=Z;
4421/0: 042|164 003|027|172 242|171 256|301 010 175 DUP; SHL+1; NEG; =+M10; Q10; =V3;
4422/5: 300 010 176|170 256|027|172 250|042|172 242 V4; =Q10; NEG; =+C10; DUP; =+M10;
4424/4: 171 256|301 010 176|300 010 177|170 256|042 Q10; =V4; V5; =Q10; DUP;
4426/3: 027|172 250|042|172 242|301 010 172 NEG; =+C10; DUP; =+M10; =V0; (V STORES SET UP);
4430/0: 151 217|300 010 176|170 256|171 250|170 342 M8TOQ15; V4; =Q10; C10; =M14;
4431/5: 151 350|171 102|042|170 331 M14TOQ8; M4; DUP; =RC13;
4433/0: 204 111 035 J39≤Z;
4433/3: 017|017|017|100 337|017|017|017|017|103 336|177 320 *29; M15M13; *=M14M13Q; J29C13NZS;
4435/4: 300 010 177|170 256|171 250|170 302 39; V5; =Q10; C10; =M12;
4437/1: 151 237|151 236|300 010 172 M9TOQ15; M9TOQ14; V0;
4440/2: 027|172 342|151 351 NEG; =+M14; M14TOQ9;
4441/1: 300 010 200|304 000 012|056|171 230|036 V6; SET10; +; C9; -;
4442/5: 042|170 331|204 111 045 DUP; =RC13; J40≤Z;
4443/5: 017|100 337|017|017|017|017|103 336|177 320 *31; M15M13; *=M14M13Q; J31C13NZS;
4445/4: 200 360 000 40; EXIT1;
4446/1: 304 006 126|200 326 264 18; SET1622; JSP7;
[ flow chart page no info on H-stores etc
[ flow chart page no Q-stores usage in P270
=== Start P270V0; at address 2345/4451
P270V0; [ flow chart page no info on V-stores and Z-stores -- must relate to V-stores of P260
4451/0: 202 330 213|145 260 JS21P215; I11=-1;
4451/5: 304 000 062|170 270|171 276|301 011 050 SET50; =C11; Q11; =V0;
4453/3: 145 220|304 000 012|170 230 I9=-1; SET10; =C9;
4454/4: 041|042|170 023|170 043 ZERO; DUP; =RM1; =RM2;
4455/4: 203 326 204|200 326 252 JS16P2; JS1P6;
4456/4: 200 271 060 J2;
4457/1: 144 100 I4=+1;
4457/3: 200 326 154 1; JSP2;
4460/0: 042|164 121|224 051 137|042|304 000 030|054 2; DUP; SHL+40; J3<Z; DUP; SETB30; AND;
4461/5: 042|222 151 070 DUP; J4=Z;
4462/3: 065|042|012|164 125|223 051 073 REV; DUP; PERM; SHL+42; J34<Z;
4463/5: 304 000 010|222 031 160 SETB10; J7=;
4464/5: 304 000 020|223 031 071 SETB20; J8=;
4465/5: 052|042|304 000 003|054|221 151 261 ERASE; DUP; SETB3; AND; J9=Z;
4467/2: 200 326 247|203 271 057 10; JSP6; J1;
4470/2: 052|200 327 037|203 271 057 4; ERASE; JSP214; J1;
4471/3: 052|042|164 123|042|222 051 122 8; ERASE; DUP; SHL+41; DUP; J11<Z;
4472/5: 052|202 271 067 ERASE; J10;
4473/3: 052|042|304 000 030|054|304 000 020|220 031 076|202 271 070 34; ERASE; DUP; SETB30; AND; SETB20; J43=; J4; [ flow chart page no
[ flow chart page no formal path in P270
4476/0: 052|042|170 256|151 032|151 024 43; ERASE; DUP; =Q10; M1TOQ10; M1TOQ4;
4477/2: 140 100|140 100|171 250|164 361|164 021 M+I4; M+I4; C10; SHL-8; SHL+8;
4501/0: 100 114|170 276 61; M12M4; =Q11; [ flow chart page no
4501/4: 171 270|223 031 113 C11; J60=; (CODE LOCAL);
4502/3: 171 264|170 102 I11; =M4;
4503/1: 171 102 M4;
4503/3: 200 151 101 J61≠Z; (C≠O);
4504/0: 151 001 M0TOQ1; (ACL:=0);
4504/2: 140 100 64; M+I4; [ flow chart page no
4504/4: 140 100 M+I4; (C:=C+2);
4505/0: 100 114|170 276 63; M12M4; =Q11; [ flow chart page no
4505/4: 171 270|222 031 114 C11; J62=; (CODE-NON LOCAL);
4506/3: 171 264|170 102 I11; =M4; (C:=ANCW);
4507/1: 171 102 M4; [ flow chart page no formal path in P270 continued
4507/3: 200 151 105 J63≠Z; (C≠O);
[ original source of the next page
4510/0: 100 034 M12M1;
4510/2: 170 276 =Q11;
4510/4: 151 261 M11TOQ1; (ACC:=ANC);
4511/0: 151 024 M1TOQ4; (C:=ACC);
4511/2: 171 102 M4;
4511/4: 202 151 104 J64≠Z;
4512/1: 052|052 ERASE; ERASE;
4512/3: 304 012 242|200 326 264 SET2722; JSP7; (CODE DOES NOT EXIST);
4513/3: 052|041|205 271 115 60; ERASE; ZERO; J65; (LOCAL);
4514/2: 052|100 034|170 276 62; ERASE; M12M1; =Q11;
4515/1: 171 270|164 361 C11; SHL-8;
(NON LOCAL FORMALS);
4515/5: 065|041|166 021|065 65; REV; ZERO; SHLD+8; REV;
4516/4: 164 061|065|042|012 SHL+24; REV; DUP; PERM;
4517/3: 166 361|052|066|166 361 SHLD-8; ERASE; CAB; SHLD-8;
4520/3: 052|164 361|065|166 361 ERASE; SHL-8; REV; SHLD-8;
4521/3: 151 241|202 271 070 M10TOQ1; J4;
4522/2: 164 003|222 051 067 11; SHL+1; J10<Z;
4523/1: 042|164 261|042|170 070|151 004 DUP; SHL-40; DUP; =C3;M0TOQ4;
4524/3: 100 114|164 261|220 031 131 16; M12M4; SHL-40; J12=;
4525/4: 100 114|170 256|171 242|042|170 102|203 151 124 M12M4; =Q10; M10; DUP; =M4; J16≠Z;
4527/4: 052|052|304 006 272|200 326 264 ERASE; ERASE; SET1722; JSP7;
4531/0: 151 101|052|042|304 000 003|054|224 151 136 12; M4TOQ1; ERASE; DUP; SETB3; AND; J13=Z;
4532/5: 151 312|304 000 002|172 242|100 032 17; M12TOQ10; SET+2; =+M10; M10M1;
4534/2: 164 101|164 325|065 SHL+32; SHL-22; REV;
4535/1: 167 055|164 041|164 341|167 325 SHC+22; SHL+16; SHL-16; SHC-22;
4536/3: 011 OR;
4536/4: 200 326 247|203 271 057 13; JSP6; J1;
4537/4: 042|304 000 017|054|304 000 014 3; DUP; SETB17; AND; SETB14;
4541/0: 015|221 151 143 NEV; J14=Z;
4541/4: 202 271 067 J10;
4542/1: 304 007 036|200 326 264 58; SET1822; JSP7;
4543/1: 042|164 117|203 051 312 14; DUP; SHL+39; J15≥Z;
4544/1: 042|164 127|203 051 322 DUP; SHL+43; J45≥Z;
4545/1: 141 040|300 056 240|203 330 254 M-I2; Y0M2; JS8P215;
4546/3: 164 301|164 103 SHL-32; SHL+33;
4547/1: 042|164 007|304 000 001|167 361|200 326 270|201 271 142 DUP; SHL+3; SET+1; SHC-8; JSP3; J58;
4551/3: 052|320 333 054|167 351|164 351|166 031 ERASE; Z51M13; SHC-12; SHL-12; SHLD+12;
4553/1: 167 031|321 333 054|052 SHC+12; =Z51M13; ERASE;
4554/1: 065|167 357 REV; SHC-9;
4554/4: 164 343|166 037|167 023|065|052 SHL-15; SHLD+15; SHC+9; REV; ERASE;
4556/0: 200 326 247 JSP6;
4556/3: 171 042|220 151 365 M2; J5=Z;
4557/2: 304 007 202|200 326 264 SET1922; JSP7;
4560/2: 041|170 103|052|042 7; ZERO; =RM4; ERASE; DUP;
4561/1: 164 301|202 330 241 SHL-32; JS4P215;
4562/0: 103 110|042|164 105 =M8M4Q; DUP; SHL+34;
4562/5: 164 253|170 130|143 120|042 SHL-43; =C5; DC5; DUP;
4564/0: 157 116|200 327 037|157 344|042|304 000 170|054 Q4TOQ14; JSP214; Q14TOQ4; DUP; SETB170; AND;
4566/0: 304 000 110|015|205 151 252 SETB110; NEV; J18≠Z;
4567/1: 171 270|224 111 170|052|203 271 057 C11; J19>Z; ERASE; J1;
4570/4: 164 061|164 253|042|042|170 064|304 377 376 19; SHL+24; SHL-43; DUP; DUP; =I3; SET-2;
4572/3: 056|225 151 174 +; J20=Z;
4573/1: 304 377 375|056|220 151 175 SET-3; +; J21=Z;
4574/2: 203 271 057 J1;
4574/5: 052 20; ERASE;
4575/0: 200 326 154|042|304 000 277|054|042 21; JSP2; DUP; SETB277; AND; DUP;
4576/3: 304 000 211|015|224 151 210 SETB211; NEV; J22=Z;
[ original source of the next page
4577/4: 304 000 253|015|220 151 204 SETB253; NEV; J23=Z;
4600/5: 042|304 000 130|054|304 000 110|015 DUP; SETB130; AND; SETB110; NEV;
4602/2: 220 151 205|052 J24=Z; ERASE;
4603/0: 304 007 346|200 326 264 SET2022; JSP7;
4604/0: 200 326 247|200 271 175 23; JSP6; J21;
4605/0: 042|041|166 041|202 330 241 24; DUP; ZERO; SHLD+16; JS4P215;
4606/1: 103 110|052|143 120|157 116|200 327 037 =M8M4Q; ERASE; DC5; Q4TOQ14; JSP214;
4607/5: 157 344|200 271 175 Q14TOQ4; J21;
4610/4: 052|041|101 110 22; ERASE; ZERO; =M8M4;
4611/2: 245 131 212|304 010 112|200 326 264 J25C5Z; SET2122; JSP7;
4612/5: 151 006|171 064 25; M0TOQ6; I3;
4613/3: 027|033|161 003|042 NEG; NOT; SHA+1; DUP;
4614/2: 170 171|170 162 =RC7; =M7;
4615/0: 304 377 377|170 164 SET-1; =I7;
4615/5: 200 326 247|200 326 154|042 26; JSP6; JSP2; DUP;
4617/0: 304 004 277|054|304 004 235 SETB2277; AND; SETB2235;
4620/1: 015|225 151 225 NEV; J27=Z;
4620/5: 042|304 000 377|054 DUP; SETB377; AND;
4621/4: 304 000 271|015|202 151 223|205 271 215 SETB271; NEV; J28≠Z; J26; [ COULD BE J28≠Z - it was 28 not 25 hux
4623/2: 042|304 000 377|054 28; DUP; SETB377; AND;
4624/1: 304 000 251|015|200 151 060|205 271 215 SETB251; NEV; J2≠Z; J26;
4625/5: 042|164 301|303 172 221 27; DUP; SHL-32; =YC0M7Q;
4626/5: 171 170|304 000 002|201 031 233 C7; SET+2; J6≠;
4630/1: 052|300 012 224|300 012 225 ERASE; YC3; YC4;
4631/2: 036|033|027|042 -; NOT; NEG; DUP;
4632/0: 170 144|170 142|205 271 215 =I6; =M6; J26;
4633/1: 052|242 171 234|205 271 215 6; ERASE; J29C7Z; J26;
4634/2: 300 012 222|300 012 223|036|033 29; YC1; YC2; -; NOT;
4635/4: 027|171 142|221 151 240|171 142 NEG; M6; J30=Z; M6;
4637/0: 034|050|170 142|203 271 240 ×D; CONT; =M6; J31;
4640/1: 170 144 30; =I6;
4640/3: 171 144|304 177 377|036|223 111 243 31; I6; SET32767; -; J52>Z;
4642/0: 171 142|304 177 377|036|224 051 244 M6; SET32767; -; J32<Z;
4643/3: 052|304 010 256|200 326 264 52; ERASE; SET2222;JSP7;
4644/4: 200 326 247|151 004 32; JSP6; M0TOQ4;
4645/3: 203 330 256|102 110|170 150|171 156|201 330 244 33; JS9P215; M8M4Q; =C6; Q6; JS5P215;
4647/3: 300 011 050|170 276|103 260|171 276|301 011 050 V0; =Q11; =M0M11Q; Q11; =V0;
4651/3: 100 110|203 151 245|203 271 057 M8M4; J33≠Z; J1;
4652/5: 042|170 256|164 123|223 051 057 18; DUP; =Q10; SHL+41; J1<Z;
4654/1: 200 326 154|042|304 000 377|054|304 000 212 JSP2; DUP; SETB377; AND; SETB212;
4656/0: 015|200 151 060|171 250|065|170 256 NEV; J2≠Z; C10; REV; =Q10;
4657/3: 170 250|171 256|200 326 247|203 271 057 =C10; Q10; JSP6; J1;
4661/1: 042|200 327 037|042|304 000 177 9; DUP; JSP214; DUP; SETB177;
4662/3: 054|304 000 130|015|204 151 302 AND; SETB130; NEV; J35≠Z;
4663/5: 052|243 231 057|200 326 154|042 ERASE; J1C9Z; JSP2; DUP;
4665/1: 304 000 277|054|304 000 265 SETB277; AND; SETB265;
4666/2: 015|200 151 060 NEV; J2≠Z;
4667/0: 200 326 247|200 326 154|042|304 000 077 36; JSP6; JSP2; DUP; SETB77;
4670/4: 054|304 000 031|015 AND; SETB31; NEV;
4671/3: 223 151 272|200 271 060 J37=Z; J2;
4672/3: 200 326 247|200 326 154|042|304 000 277|054 37; JSP6; JSP2; DUP; SETB277; AND;
4674/2: 304 000 253|015|220 151 267 SETB253; NEV; J36=Z;
4675/3: 042|304 000 277|054|304 000 230 DUP; SETB277; AND; SETB230;
4676/5: 015|220 151 300|200 271 060 NEV; J38=Z; J2;
4700/0: 042|041|166 041|202 330 241|103 220 38; DUP; ZERO; SHLD+16; JS4P215; =M0M9Q;
4701/3: 052|200 326 247|203 271 057 ERASE; JSP6; J1;
4702/4: 042|164 123|202 051 304 35; DUP; SHL+41; J39≥Z;
4703/4: 052|203 271 057 ERASE; J1;
[ original source of the next page
4704/2: 041|166 041 39; ZERO; SHLD+16;
4704/5: 065|052|200 326 154 REV; ERASE; JSP2;
4705/4: 042|304 000 377|054|304 000 212 DUP; SETB377; AND; SETB212;
4707/0: 015|223 151 310|065|052 NEV; J40=Z; REV; ERASE;
4710/0: 200 271 060 J2;
4710/3: 170 256|170 250|171 256|200 326 247 40; =Q10; =C10; Q10; JSP6;
4712/0: 203 271 057 J1;
4712/3: 042|164 123|042|220 051 316 15; DUP; SHL+41; DUP; J41<Z;
4713/4: 164 003|042|224 051 341|164 003 SHL+1; DUP; J54<Z; SHL+1;
4715/0: 224 051 335|203 271 322 J44<Z; J45;
4716/0: 164 003|042|222 051 320 41; SHL+1; DUP; J46<Z;
4717/0: 164 003|225 051 342|200 271 330 SHL+1; J47<Z; J50;
4720/2: 164 003|222 051 334 46; SHL+1; J48<Z;
4721/1: 042|164 021|164 337|225 151 341 DUP; SHL+8; SHL-17; J42=Z;
4722/3: 171 024|170 242 45; I1; =M10;
4723/1: 100 254|170 256|171 250|171 242 M12M10; =Q10; C10; M10;
4724/3: 170 024|042|300 056 240|170 256 =I1; DUP; Y0M2; =Q10;
4725/5: 170 250|171 256|203 330 236|303 056 240 =C10; Q10; JS3P215; =Y0M2Q;
4727/3: 204 271 337 J51;
4730/0: 300 056 240|170 256|171 024|170 242 50; Y0M2; =Q10; I1; =M10;
4731/3: 171 256|203 330 236|303 056 240|171 022 Q10; JS3P215; =Y0M2Q; M1;
4733/1: 033|027|170 024|203 271 322 NOT; NEG; =I1; J45;
4734/2: 042|164 021|164 337|225 151 341 48; DUP; SHL+8; SHL-17; J42=Z;
4735/4: 141 040|300 056 240|170 256|171 250|203 330 254 44; M-I2; Y0M2; =Q10; C10; JS8P215;
4737/4: 164 103|065|167 357|164 343|166 037 51; SHL+33; REV; SHC-9; SHL-15; SHLD+15;
4741/1: 167 023|065 SHC+9; REV;
4741/4: 052 54; ERASE;
4741/5: 200 326 247|203 271 057 42; JSP6; J1;
4742/5: 141 040|300 056 240|170 256|171 250|203 330 254 47; M-I2; Y0M2; =Q10; C10; JS8P215;
4744/5: 141 040|203 330 254|300 056 240|170 256|171 242 M-I2; JS8P215; Y0M2; =Q10; M10;
4746/5: 170 024 =I1;
4747/1: 065|042|012|200 326 270|203 271 363 REV; DUP; PERM; JSP3; J57;
4750/4: 052 ERASE;
4750/5: 042|320 333 054|167 351|164 351 DUP; Z51M13; SHC-12; SHL-12;
4752/1: 065|164 111|065|166 031 REV; SHL+36; REV; SHLD+12;
4753/1: 167 031|321 333 054|052 SHC+12; =Z51M13; ERASE;
4754/1: 320 333 053|164 021|164 261|151 004 Z52M13; SHL+8; SHL-40; M0TOQ4;
4755/4: 100 114|164 261|205 031 357 55; M12M4; SHL-40; J56≠;
4756/5: 052|151 101|204 271 337 ERASE; M4TOQ1; J51;
4757/5: 100 114|164 101|164 301|170 102 56; M12M4; SHL+32; SHL-32; =M4;
4761/1: 171 102|204 151 355 M4; J55≠Z;
4762/0: 052|052|052|304 011 022|200 326 264 ERASE; ERASE; ERASE; SET2322; JSP7;
4763/3: 052|052|052|304 011 166|200 326 264 57; ERASE; ERASE; ERASE; SET2422; JSP7;
4765/0: 200 326 260|202 326 210 5; JS3P6; JS3P2;
4766/0: 300 011 050|170 276 V0; =Q11;
4766/5: 041|101 260|171 262 ZERO; =M0M11; M11;
4767/4: 304 053 055|036|027|033 SETAZ50; -; NEG; NOT;
4770/4: 320 013 124|170 256|171 242|320 013 123|170 256 Z11; =Q10; M10; Z12; =Q10;
4772/4: 170 250|170 244|171 256|321 013 123 =C10; =I10; Q10; =Z12;
4774/1: 171 302|171 222|036 M12; M9; -;
4775/0: 041|101 220|042|170 071 ZERO; =M0M9; DUP; =RC3;
4776/0: 320 013 123|170 256|171 244|065 Z12; =Q10; I10; REV;
4777/2: 036|320 013 124|170 256|170 242 -; Z11; =Q10; =M10;
5000/4: 171 256|321 013 124|320 013 123|170 256 Q10; =Z11; Z12; =Q10;
5002/2: 171 244|304 053 055|056|170 022 I10; SETAZ50; +; =M1;
5003/4: 171 302|027|033|170 042 M12; NEG; NOT; =M2;
5004/4: 017|017|100 062|017|017|017|017|103 061|177 060 *53; M2M3; *=M1M3Q; J53C3NZS;
5006/4: 320 013 071|164 031|222 052 015 Z38; SHL+12; J59<Z; [was ≥Z
5010/0: 041|170 323|041 ZERO; =RM13; ZERO;
[ original source of the next page
5010/4: 320 333 055|170 336|171 324|042|170 322 66; Z50M13; =Q13; I13; DUP; =M13;
5012/2: 203 152 013 J49≠Z;
5012/5: 001|201 272 016 VR; J67;
5013/3: 320 333 053|164 261|032|065 49; Z52M13; SHL-40; MAX; REV;
5014/4: 052|204 272 010 ERASE; J66;
5015/2: 320 013 052|164 261 59; Z53; SHL-40;
5016/1: 033|027|321 013 122|041|321 013 120 67; NOT; NEG; =Z13; ZERO; =Z15;
5017/4: 200 360 000 EXIT1;
=== Start P216V-1; at address 2577/5021
5021/0: 300 012 233|167 041|164 041|065|166 341 P216; YD4; SHC+16; SHL+16; REV; SHLD-16;
5022/4: 052|167 341|301 012 233|200 360 000 ERASE; SHC-16; =YD4; EXIT1;
=== Start P217V0; at address 2582/5026
V-store at 05025 = 000 000 000 000 000 000 P217V0; V0=0; [undocumented see P219 for calls - Hux
5026/0: 041|301 012 025|300 007 063|065|067|164 075|304 000 003|170 250
ZERO; =V0; V4P260; REV; FRB; SHL+30; SET3; =C10;
5030/4: 041|166 015|042|223 152 035 2; ZERO; SHLD+6; DUP; J1=Z;
5031/5: 164 121|300 012 025|166 021|301 012 025|052 4; SHL+40; V0; SHLD+8; =V0; ERASE;
5033/4: 143 240|245 252 040|041|166 015|205 272 031 DC10; J3C10Z; ZERO; SHLD+6; J4;
5035/3: 052|304 000 236|164 121|300 012 025|166 021|301 012 025 1; ERASE; SETB236; SHL+40; V0; SHLD+8; =V0;
5037/5: 052|143 240|264 252 030 ERASE; DC10; J2C10NZ;
5040/5: 052|300 012 025|200 360 000 3; ERASE; V0; EXIT1;
=== Start P219V11; at address 2606/5056
V-store at 05045 = 030 014 024 031 033 035 P219V11; V3=B0600602406215435; [030 014 024 031 033 035 MAINPR [output to YD space -
[undocumented diagnostics?
V-store at 05046 = 032 022 236 236 236 236 V4=B0641123647517236; [032 022 236 236 236 236 OG
V-store at 05047 = 015 020 022 024 031 033 V5=B0321002205014433; [015 020 022 024 031 033 BEGINP
V-store at 05050 = 015 020 022 024 031 021 V6=B0321002205014421; [015 020 022 024 031 021 BEGINF
V-store at 05051 = 015 020 022 024 031 015 V7=B0321002205014415; [015 020 022 024 031 015 BEGINB
V-store at 05052 = 020 031 017 236 236 015 V8=B0401441747517015; [020 031 017 236 236 015 END B
V-store at 05053 = 020 031 017 236 236 021 V9=B0401441747517021; [020 031 017 236 236 021 END F
V-store at 05054 = 020 031 017 236 236 033 V10=B0401441747517033; [020 031 017 236 236 033 END P
V-store at 05055 = 020 031 017 033 035 022 V11=B0401441706616422; [020 031 017 033 035 022 ENDPRG
5056/0: 300 012 044|220 152 060|300 012 050|203 272 064 1; V2; J4=Z; V6; J5;
5060/0: 300 012 051|203 272 064 4; V7; J5;
5061/0: 300 012 047|203 272 064 2; V5; J5;
5062/0: 300 012 045|301 012 230|300 012 046|301 012 231|200 272 065 3; V3; =YD1; V4; =YD2; J6;
5064/3: 301 012 230 5; =YD1;
5065/0: 300 012 042|200 332 026|300 012 043|200 332 026|164 061|304 000 236|166 361
6; V0; JSP217; V1; JSP217; SHL+24; SETB236; SHLD-8;
5070/1: 052|065|166 361|300 012 231|164 341|164 041|011|301 012 231 ERASE; REV; SHLD-8; YD2; SHL-16; SHL+16; OR; =YD2;
5072/4: 300 012 232|164 121|164 261|011|301 012 232 YD3; SHL+40; SHL-40; OR; =YD3;
5074/3: 171 310|027|033|225 152 100 C12; NEG; NOT; J7=Z;
5075/4: 304 000 004|170 251 SET4; =RC10;
5076/3: 017|017|017|300 012 111|017|017|017|303 252 233|177 240 *8; V1P218; *=YD4M10Q; J8C10NZS;
5100/5: 200 332 114|200 360 000 7; JSP218; EXIT1;
5101/5: 300 012 044|225 152 104|300 012 044|225 052 106|300 012 053|203 272 064
9; V2; J10=Z; V2; J12<Z; V9; J5; (EWDF); (V2=1);
5104/5: 300 012 052|203 272 064 10; V8; J5; (ENDB); (V2=O);
5105/5: 300 012 054|203 272 064 11; V10; J5; (ENDP);
5106/5: 300 012 055|203 272 064 12; V11; J5; (ENDPRG);
=== Start P218V3; at address 2636/5114
V-store at 05110 = 012 230 012 237 270 321 P218V3; V0=QAYD1/AYD8/B134321;
V-store at 05111 = 236 236 236 236 236 236 V1=B4751723647517236; [ 236 236 236 236 236 236 - DHo put this here
5114/0: 300 012 110|200 320 106|202 272 122 V0; JSE70; J1; [ 134321 Query - recorded as printer o/p on Channel 17 Hux
V-store at 05113 = 236 236 236 236 236 240 V3=B4751723647517240; [ last word with a NL char - hux
5115/3: 052|304 000 010|170 251 3; ERASE; SET8; =RC10;
5116/3: 017|017|017|300 012 111|017|017|017|303 252 230|177 240 *2; V1; *=YD1M10Q; J2C10NZS; [fills YD with 475517236236 475 .. hux
5120/5: 300 012 113|301 012 237 V3; =YD8; [last word hux
5121/5: 200 360 000 EXIT1;
5122/2: 052|304 011 332|200 326 264 1; ERASE; SET2522; JSP7;
=== Start P221V-1; at address 2644/5124
P221; (FORMALS IH DECL.LIST);
5124/0: 260 312 125|200 360 000 J9C12NZ; EXIT1;
5125/0: 042|304 000 030|054|042|220 152 137 9; DUP; SETB30; AND; DUP; J1=Z;
5126/3: 304 000 010|221 032 140 SETB10; J2=;
5127/3: 304 000 020|222 032 141 SETB20; J3=;
5130/3: 052|042|304 000 037|054|304 000 030|224 032 155 ERASE; DUP; SETB37; AND; SETB30; J4=;
[ original source of the next page
5132/3: 304 000 031|225 032 156 SETB31; J5=;
5133/3: 304 000 032|225 032 135 SETB32; J17=;
5134/3: 052|052|304 012 242|200 326 264 ERASE; ERASE; SET2722; JSP7;
5135/5: 052|304 036 037|203 272 157 17; ERASE; SETB17037; J10;
5137/0: 052|304 000 236|203 272 143 1; ERASE; SETB236; J6;
5140/1: 052|304 000 014|203 272 143 2; ERASE; SETB14; J6;
5141/2: 052|167 021|164 021|167 341|304 000 033|203 272 143 3; ERASE; SHC+8; SHL+8; SHC-16; SETB33; J6;
5143/3: 065|042|304 000 003|054 6; REV; DUP; SETB3; AND;
5144/3: 304 000 001|224 032 150 SETB1; J7=;
5145/3: 304 000 002|225 032 151 SETB2; J8=;
5146/3: 304 000 003|220 032 153|052|304 000 236|204 272 153 SETB3;J12=; ERASE; SETB236; J11;
5150/4: 052|304 000 035|204 272 153 7; ERASE; SETB35; J11;
5151/5: 052|304 000 024|204 272 153 8; ERASE; SETB24; J11;
5153/0: 052|304 000 015 12; ERASE; SETB15;
5153/4: 066|164 121|065|166 361|052|164 301|203 272 157 11; CAB; SHL+40; REV; SHLD-8; ERASE; SHL-32; J10;
5155/4: 052|304 036 042|203 272 157 4; ERASE; SETB17042; J10;
5156/5: 052|304 236 027 5; ERASE; SETB117027;
5157/3: 164 101|164 301|065|042|012|164 117|223 052 164 10; SHL+32; SHL-32; REV; DUP; PERM; SHL+39; J13<Z;
5161/3: 300 012 233|167 021|164 013|304 000 031|166 361|052|167 361|301 012 233
YD4; SHC+8; SHL+5; SETB31; SHLD-8; ERASE; SHC-8; =YD4;
5164/3: 200 272 021 13; JP216;
=== Start P261V0; at address 2678/5166
5166/0: 304 000 003|170 251|041|301 012 165|164 075 P261V0; SET3; =RC10; ZERO; =V0; SHL+30;
5167/5: 041|166 015|042|205 152 174|052|304 000 236|164 121|300 012 165|166 021|301 012 165|052
2; ZERO; SHLD+6; DUP; J1≠Z; ERASE; SETB236; SHL+40; V0; SHLD+8; =V0; ERASE;
5173/3: 143 240|265 252 167|201 272 200 DC10; J2C10NZ; J3;
5174/5: 164 121|300 012 165|166 021|301 012 165|052|041|166 015|143 240|265 252 174|052
1; SHL+40; V0; SHLD+8; =V0; ERASE; ZERO; SHLD+6; DC10; J1C10NZ; ERASE;
5200/1: 052|300 012 165|200 360 000 3; ERASE; V0; EXIT1;
=== Start P-1V-1; at address 2690/5202
Finished
Reached end of file