Kidsgrove Algol Compiler - Brick 02
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 02.
Hot links to images of individual pages are embedded in the text.
Loaded 12611 bytes for KAB02.txt
Warning: YG0 is out of range, only 0 YG-stores specified
Warning: YG0 is out of range, only 0 YG-stores specified
Relocated 31
Finished
Reached end of file
=============== Second pass
===========================
4034 W0 = E2076
6240 Y0 = E3232
4034 YB0 = E2076
4074 YF0 = E2108
4140 YX0 = E2144
4240 YY0 = E2208
5240 YZ0 = E2720
0/0: 200 266 163 [ original source of the next page
[ There have been [ comments inserted
[ Also some code -- to remove this, remove all lines including ≠addition
[ Also there are diagnostic calls JSP30×;, which should be removed to get the original
ST 11104; TL 1000; START1600;
V 50;
YB 31; YF 35; YX 63; YY 511; YZ 511;
4/0: 205 266 225|205 266 225 RESTART; J6; J6;
PROGRAM;
V-store at 03100 = 010 140 010 177 242 003 V0=QAYX0/AYX31/B121003;
V-store at 03101 = 010 200 010 237 242 021 V1=QAYX32/AYX63/B121021;
V-store at 03102 = 010 240 011 237 000 000 V2=QAYY0/AYY255/0;
V-store at 03103 = 011 240 012 237 000 000 V3=QAYY256/AYY511/0;
V-store at 03104 = 000 010 000 004 000 022 V4=Q8/4/18;
V-store at 03105 = 377 024 051 052 063 236 V5=B7761 2051 1243 1636;
V-store at 03106 = 010 101 000 001 010 034 V6=QAYF5/1/AYB0;
3163/0: 300 000 001|164 061|164 321|304 000 063|036 E1; SHL+24; SHL-24; SET51; -;
3164/5: 042|170 136|170 323|041|301 120 053 DUP; =Q5; =RM13; ZERO; =E43M5; [ Looks like M5 is used for accessing Z-stores
3166/2: 300 006 101|300 006 100|200 320 106 V1; V0; JSE70; (OPEN CH,3);
3167/5: 205 266 225 J6;
3170/2: 052|300 006 100|300 006 101|200 320 106 ERASE; V0; V1; JSE70; (MONITOR);
3172/0: 205 266 225 J6;
3172/3: 304 010 004|200 320 106 SETB4004; JSE70; (INTERCHANGE);
3173/3: 201 266 221 J3;
3174/0: 300 006 103|300 006 102|204 327 223 V3; V2; JS1P7; (STORE WITH LAG); [ opens channel 5 with YY0 buffer V1 contains the open return
3175/3: 300 007 143|170 316|202 327 326|100 320 V1P7; =Q12; JS7P9; M0M13;
3177/1: 164 301|042|172 322|170 330|143 320 SHL-32; DUP; =+M13; =C13; DC13; [computes the D-List size from the offset in the last entry
3200/4: 142 320 NC13; (Q13 = D LIST SIZE/1/AENDPROG);
3201/0: 171 322|042|027|033|161 003 M13; DUP; NEG; NOT; SHA+1;
3202/1: 170 043|304 014 240|042|161 003|170 036 =RM2; SETAY0; DUP; SHA+1; =Q1;
3203/5: 036|170 050|145 040 -; =C2; I2=-1; (OPERATOR STACK);
3204/4: 102 320|103 300|264 306 207 1; M0M13Q; =M0M12Q; J2C12NZ; [here we copy the d-list 634 first to YY space
[this results in a backward write of the D-list to YY1 up hux
3205/5: 304 340 005|200 320 106 SETB160005; JSE70; [write D-List when buffer is full
3206/5: 201 266 221 J3;
3207/2: 170 316 =Q12;
3207/4: 264 326 204 2; J1C13NZ; (OUTPUT D LIST);
3210/1: 304 340 105|170 310|171 316|167 041|200 320 106 SETB160105; =C12; Q12; SHC+16; JSE70;
3212/1: 201 266 221 J3;
3212/4: 301 007 143|304 110 005|200 320 106 =V1P7; SETB44005; JSE70; (CBN);
3214/1: 201 266 221 J3;
3214/4: 033|027|164 101|321 013 125 NOT; NEG; SHL+32; =Z10;
3215/5: 202 327 035 JS1P2; (INITIATE FETCH NEXT WORD);
3216/2: 154 006 C0TOQ6;
3216/4: 200 327 030 10; JSP2; (NEXT CODEWORD); [ this will read from Channel 4 Hux
[at this point the D-List is in Z-stores and in reverse on Ch5
3217/1: 304 000 240|201 026 232 SETB240; J11≠;
3220/1: 052|143 140|204 266 216 ERASE; DC6; J10;
3221/1: 304 002 133 3; SET603;
3221/4: 304 001 054|036|200 327 305 4; SET300; -; JSP9;
3222/5: 304 004 220|300 120 013|201 046 230 8; SETB2220; E11M5; J7≥Z;
3224/2: 052|304 004 001|164 017|200 260 106 ERASE; SETB2001; SHL+7; JE70; [ this is a sneaky way of setting N1 = Q0/2/B200 i.e. FAIL 00/02
3225/5: 304 006 125|300 120 013|047|052|041|033|050|301 120 013 6; SETB3125; E11M5; STR; ERASE; ZERO; NOT; CONT; =E11M5; [ DHu thinks this go to B95 having changed E11M5
3230/1: 170 364|304 336 010|170 362|171 376|200 260 106 7; =I15; SETB157010; =M15; Q15; JE70;
3232/1: 171 024|202 146 235 11; I1; J12≠Z;
3233/0: 042|304 001 214|015|164 117 DUP; SETB614; NEV; SHL+39;
3234/1: 203 146 276 J13≠Z; (FIRST BS NOT BEGINPROG);
3234/4: 144 020 I1=+1;
3235/0: 154 006 C0TOQ6;
3235/2: 042|304 000 100|015|164 117|223 146 300 12; DUP; SETB100; NEV; SHL+39; J14=Z;
3237/0: 042|164 121|205 046 316 DUP; SHL+40; J15≥Z; (DEC/SPEC);
3240/0: 042|304 000 017|054|304 000 014|036 DUP; SETB17; AND; SET12; -;
3241/3: 170 370|263 366 354 =C15; J16C15NZ; (NOT BEGIN OR END);
3242/2: 042|167 367|047|002 DUP; SHC-5; STR; =TR;
3243/1: 167 377|202 046 245 SHC-1; J27≥Z;
[ original source of the next page
3244/0: 042|164 021|164 277|223 146 257 DUP; SHL+8; SHL-33; J17=Z; (BN/BNN ZERO);
3245/2: 225 346 267 27; J18TR; (ENDS);
3245/5: 243 046 277 J19C2Z; (OPERATOR STACK MEETS BRACKET STACK);
3246/2: 171 124|042|170 130|170 362|100 365|164 341 I5; DUP; =C5; =M15; M5M15; SHL-16;
3250/1: 170 124|041|171 142|166 363|052|171 062 =I5; ZERO; M6; SHLD-7; ERASE; M3;
3251/5: 166 361|052|171 102|166 361|052 SHLD-8; ERASE; M4; SHLD-8; ERASE;
3253/1: 107 040|042|171 042|167 377|164 243|027 =M0M2QH; DUP; M2; SHC-1; SHL-47; NEG;
3254/5: 172 050|041|166 021|170 102|041 20; =+C2; ZERO; SHLD+8; =M4; ZERO;
3256/1: 166 021|170 062|164 257|170 142 SHLD+8; =M3; SHL-41; =M6;
3257/3: 041|002 17; ZERO; =TR;
3257/5: 042|200 327 147 21; DUP; JSP7; (OUTPUT CODEWORD);
3260/3: 304 001 234|015|164 117|204 146 216 SETB634; NEV; SHL+39; J10≠Z;
3262/0: 204 327 172 JS4P7;
3262/3: 304 140 004|200 320 106 SETB60004; JSE70; (CLOSE INPUT TAPE);
3263/3: 201 266 221 J3;
3264/0: 304 010 004|200 320 106 SETB4004; JSE70;
3265/0: 201 266 221 J3;
3265/3: 304 260 141|167 003|200 320 106 SETB130141; SHC+1; JSE70; (CLOSE CH,3);
3266/5: 017|017|017 DUMMY; DUMMY; DUMMY;
3267/2: 205 266 222 J8;
3267/5: 171 130|170 362|100 365|042|304 000 314|015|164 121|223 146 273
18; C5; =M15; M5M15; DUP; SETB314; NEV; SHL+40; J43=Z;
3272/3: 164 301|170 362|100 365 SHL-32; =M15; M5M15;
3273/3: 164 301|170 130|171 042|304 000 001|054|141 040|104 040|065|205 266 254
43; SHL-32; =C5; M2; SET1; AND; M-I2; M0M2H; REV; J20;
3276/3: 304 002 142|204 266 221 13; SET610; J4;
3277/3: 304 377 367|204 266 221 19; SET-9; J4;
3300/3: 001|200 327 333 14; VR; JSP13; (LOAD IDENTIFIER);
3301/1: 304 010 034|170 363|154 137|171 376|200 327 106 SETAYB0; =RM15; C5TOQ15; Q15; JSP5;
3303/1: 205 266 312 J23; (NOT DECLARED/OUTSIDE SCOPE);
3303/4: 224 206 305 J5V;
3304/1: 304 377 351|171 036|224 046 221 SET-23; Q1; J4<Z;
3305/3: 052 ERASE;
3305/4: 015|042|164 127|164 245|170 370 5; NEV; DUP; SHL+43; SHL-46; =C15;
3307/0: 265 366 360 J24C15NZ;
3307/3: 167 041|041|166 021|171 102|203 026 311 26; SHC+16; ZERO; SHLD+8; M4; J25≠;
3311/1: 052|041 ERASE; ZERO;
3311/3: 166 361|052|167 341|205 266 257 25; SHLD-8; ERASE; SHC-16; J21;
3312/5: 052|300 006 105|301 010 100|300 006 106|200 327 340 23; ERASE; V5; =YF4; V6; JSP17;
3315/0: 052|304 376 300|200 327 305 ERASE; SET-320; JSP9;
3316/1: 041|204 266 305 ZERO; J5;
(DECLERATIONS AND FORMALS);
3316/5: 042|164 125|164 247|170 210|241 206 332 15; DUP; SHL+42; SHL-45; =C8; J22C8Z;
3320/3: 143 200|242 206 346 DC8; J28C8Z; (ARRAY);
3321/2: 143 200|244 206 337 DC8; J29C8Z; (PROCEDURE);
3322/1: 143 200|243 206 350 DC8; J30C8Z; (SWITCH,LABEL);
3323/0: 143 200|261 207 015 DC8; J9C8NZ; (INVALID);
3323/5: 042 DUP; (FORMAL);
3324/0: 140 200|100 205|140 200|042|167 377|201 046 345 31; M+I8; M5M8; M+I8; DUP; SHC-1; J34≥Z;
3326/0: 167 375|047|164 253|065|164 377 SHC-2; STR; SHL-43; REV; SHL-1;
3327/2: 054|027|172 202|043|100 205 AND; NEG; =+M8; DUPD; M5M8;
3330/3: 015|054|200 146 324 NEV; AND; J31≠Z; (SERCH D÷F IN DLIST);
3331/2: 065|052|100 205|011 REV; ERASE; M5M8; OR;
3332/1: 200 327 147 22; JSP7; (OUTPUT UPDATED CODEWORD);
3332/4: 200 327 030|244 206 336 JSP2; J33C8Z; (<TYPE>, FORMAL);
3333/4: 140 200|143 200|244 206 336 M+I8; DC8; J33C8Z; (PROCEDURE);
3334/5: 143 200|265 206 257 DC8; J21C8NZ; (SWITCH);
3335/4: 304 000 253|204 026 353 SETB253; J42≠; (BOUND PAIR BRACKET);
3336/4: 200 327 147|204 266 216 33; JSP7; J10;
3337/4: 204 327 172 29; JS4P7;
3340/1: 300 006 103|300 006 102|204 327 222 V3; V2; JS8P7; (START NEW BLOCK FOR PROCEDURE);
3341/4: 304 000 001|170 210|041|033|164 321|167 341 SET1; =C8; ZERO; NOT; SHL-24; SHC-16;
[ original source of the next page
3343/3: 065|171 130|170 202|145 200|200 266 324 32; REV; C5; =M8; I8=-1; J31;
3345/1: 164 301|170 202|200 266 324 34; SHL-32; =M8; J31;
3346/2: 304 203 340|167 023|304 000 002|170 210|203 266 343 28; SETB101740; SHC+9; SET2; =C8; J32;
3350/3: 042|167 377|224 046 336 30; DUP; SHC-1; J33<Z; (LABEL);
3351/3: 304 201 377|167 023|304 000 003|170 210|203 266 343 SETB100777; SHC+9; SET3; =C8; J32; (SWITCH);
3353/4: 304 377 375|170 370 42; SET-3; =C15;
3354/3: 304 000 003|172 370|265 366 257 16; SET3; =+C15; J21C15NZ; (OPERATOR, NOT BPL);
3355/5: 042|164 123|164 245|205 146 257 DUP; SHL+41; SHL-46; J21≠Z; (NOT *( OR *) );
3357/1: 171 036|047|033|050|170 036 Q1; STR; NOT; CONT; =Q1;
3360/2: 205 266 257 J21;
(NON-TYPE IDENTIFIERS)
3360/5: 143 360|240 367 013 24; DC15; J35C15Z; (ARRAY);
3361/4: 143 360|245 366 373 DC15; J36C15Z; (PROCEDURE);
3362/3: 143 360|261 367 015 DC15; J9C15NZ; (NOT SWITCH LABEL OR STRING);
3363/2: 042|100 345|015|164 115|224 047 004 DUP; M5M14; NEV; SHL+38; J40<Z;
3364/5: 042|304 000 007|054|027|033 DUP; SET7; AND; NEG; NOT;
3366/0: 203 146 307 J26≠Z; (SWITCH OR STRING);
3366/3: 167 041|041|166 057|171 102|164 021 SHC+16; ZERO; SHLD+23; M4; SHL+8;
3370/0: 171 062|011|164 017|171 142|011 M3; OR; SHL+7; M6; OR;
3371/2: 203 026 372 J37≠; (NOT LOCAL TO BLOCK);
3371/5: 164 363|164 017 SHL-7; SHL+7;
3372/3: 166 323|052|167 341|203 266 307 37; SHLD-23; ERASE; SHC-16; J26;
3373/5: 304 376 377|042|100 345|054|101 345 36; SETB177377; DUP; M5M14; AND; =M5M14;
3375/2: 054|167 355|047|225 047 000 AND; SHC-10; STR; J38<Z; (LH MARKER);
3376/3: 164 341|167 365|171 102|166 361|052 SHL-16; SHC-6; M4; SHLD-8; ERASE;
3400/0: 167 361|205 266 257 SHC-8; J21;
3400/5: 042|170 204|164 017|041|166 007 38; DUP; =I8; SHL+7; ZERO; SHLD+3;
3402/1: 170 210|164 261|171 042|170 223|140 220 =C8; SHL-40; M2; =RM9; M+I9;
3403/5: 171 102|262 207 007 M4; J39C8NZ; (FUNCTION LOCATION);
3404/4: 304 377 352|204 266 221 40; SET-22; J4;
3405/4: 065|027|033|224 147 004 41; REV; NEG; NOT; J40=Z;
3406/4: 106 220|164 261 M0M9QH; SHL-40;
3407/2: 042|012|204 027 005 39; DUP; PERM; J41≠; (CHECK USE WITHIN SCOPE);
3410/1: 065|052|164 021|170 202|171 216 REV; ERASE; SHL+8; =M8; Q8;
3411/3: 167 041|304 002 000|011|203 266 307 SHC+16; SETB1000; OR; J26;
3413/0: 100 345|042|304 301 377|054|012 35; M5M14; DUP; SETB140777; AND; PERM;
3414/2: 015|015|203 266 307 NEV; NEV; J26;
3415/1: 304 377 361|204 266 221 9; SET-15; J4;
=== Start P2V8; at address 1816/3430
V-store at 03417 = 012 240 013 237 000 000 P2V8; V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03420 = 013 240 014 237 000 000 V1=QAYZ256/AYZ511/0; (BUFFER 2);
V-store at 03423 = 242 104 243 304 140 004 V4=B5044224361060004; (F/B/C);
V-store at 03424 = 000 000 000 000 340 004 V5=B160004; (TRANSFER);
V-store at 03425 = 000 000 000 000 110 004 V6=B44004; (CBN);
V-store at 03427 = 000 000 000 000 152 004 V8=B65004; (SKIP TO BLOCK N);
3430/0: 300 007 021 V2; (FETCH NEXT WORD NORMAL ENTRY);
3430/3: 170 376 10; =Q15;
3430/5: 244 367 044 17; J7C15Z;
3431/2: 102 360|042|222 147 034 M0M15Q; DUP; J18=Z;
3432/2: 171 376 Q15;
3432/4: 301 007 021|041|301 007 022 14; =V2; ZERO; =V3;
3433/5: 200 360 000 EXIT1; (NORMAL EXIT);
3434/2: 052|143 140|205 267 030 18; ERASE; DC6; J17;
(INITIAL ENTRY FORWARDS READ);
3435/2: 300 007 020|300 007 023|170 376|171 370 1; V1; V4; =Q15; C15;
3437/0: 300 007 017|170 376|170 362|171 376|200 320 106 6; V0; =Q15; =M15; Q15; JSE70;
3441/0: 205 267 046 J13;
3441/3: 300 007 025|200 320 106 V6; JSE70;
3442/3: 205 267 046 J13;
3443/0: 301 007 026|042|204 147 032|205 267 046 =V7; DUP; J14≠Z; J13;
[ original source of the next page
3444/4: 300 007 024|200 320 106 7; V5; JSE70;
3445/4: 205 267 046 J13;
3446/1: 042|203 147 030 8; DUP; J10≠Z;
3446/5: 201 266 221 13; J3P0; (FAILURE);
(INITIAL ENTRY BACKWARDS READ);
3447/2: 300 007 020|300 007 023|170 376|171 364|200 267 037 2; V1; V4; =Q15; I15; J6;
(CLOSE);
3451/3: 202 327 035|320 013 125|164 301|164 041|304 152 004 16; JS1; Z10; SHL-32; SHL+16; SETB65004;
3453/4: 011|200 320 106 OR; JSE70;
3454/2: 205 267 046 J13;
3454/5: 204 267 044 J7;
3455/2: 300 007 023|200 320 106 3; V4; JSE70;
3456/2: 205 267 046 J13;
3456/5: 200 360 000 EXIT1;
3457/2: 300 007 020|304 242 204|200 267 037 15; V1; SETB121204; J6;
(INITIAL ENTRY FOR FETCH PREVIOUS WORD);
3460/5: 300 007 021|170 376|171 364|027|170 364|140 360|140 360 4; V2; =Q15; I15;NEG; =I15; M+I15; M+I15;
3463/1: 203 267 064 J9;
(NORMAL ENTRY POR FETCH PREV1OUS WORD);
3463/4: 300 007 022|170 376 5; V3; =Q15;
3464/3: 102 360|171 376|301 007 022|200 360 000 9; M0M15Q; Q15; =V3; EXIT1;
(WHAT IS CURRANT POSITION);
3466/1: 300 007 025|200 320 106 11; V6; JSE70;
3467/1: 205 267 046 J13;
3467/4: 300 007 026|036|304 000 377|042|300 007 021 V7; -; SETB377; DUP; V2;
3471/3: 054|012|054|164 021|011 AND; PERM; AND; SHL+8; OR;
3472/3: 200 360 000 EXIT1;
(SKIP TO GIVEN BLOCK);
3473/0: 042|164 361|300 007 026|056|300 007 027 12; DUP; SHL-8; V7; +; V8;
3474/4: 170 376|170 364|171 376|200 320 106 =Q15; =I15; Q15; JSE70;
3476/1: 205 267 046 J13;
3476/4: 167 361|164 361|167 021|300 007 024|200 320 106 SHC-8; SHL-8; SHC+8; V5; JSE70;
3500/4: 205 267 046 J13;
3501/1: 170 376|042|171 362|036|027 =Q15; DUP; M15; -; NEG;
3502/2: 172 370|170 362|171 376|301 007 021|200 360 000 =+C15; =M15; Q15; =V2; EXIT1;
=== Start P5V0; at address 1862/3506
P5V0; (COMPARE IDENTIFIER WITH DECLARATION LIST);
3506/0: 042|301 007 105|170 376|171 370|170 343 DUP; =V0; =Q15; C15; =RM14;
3507/4: 145 340|001|204 267 112 I14=-1; VR; J1;
3510/4: 167 375|047|164 253|065|164 377 2; SHC-2; STR; SHL-43; REV; SHL-1;
3512/0: 054|027|172 342 AND; NEG; =+M14; (STEP TO END OF IDENTIFIER);
3512/4: 140 340|300 007 105|170 376 1; M+I14; V0; =Q15;
3513/5: 171 342|171 122|056|171 362|015 M14; M5; +; M15; NEV;
3515/1: 220 147 125 J5=Z; (SOUGHT ADDRESS FOUND IN D LIST);
3515/4: 102 345|042|167 377|223 047 122 M5M14Q; DUP; SHC-1; J3<Z; (IDENTIFIER);
3517/0: 042|164 301|042|170 342|221 147 125 DUP; SHL-32; DUP; =M14; J6=Z;
3520/3: 164 125|047|052|161 003|052 SHL+42; STR; ERASE; SHA+1; ERASE;
3521/4: 204 267 112 J1; (END DIGIT TO VR);
3522/1: 102 345 4; M5M14Q;
3522/3: 102 360|204 027 110 3; M0M15Q; J2≠; (MISMATCH);
3523/2: 167 375|221 047 122 SHC-2; J4<Z; (END OF IDENTIFIER NOT REACHED);
3524/1: 100 345|202 360 001 M5M14; EXIT2; (CODEWORD IN N1);
3525/0: 041 5; ZERO;
3525/1: 001|200 360 000 6; VR; EXIT1; (N1≠O IMPLIES IDENTIFIER NOT IN D LIST);
=== Start P6V-1; at address 1878/3526
3526/0: 242 047 141 P6; J3C2Z; [ there do not seem to be any calls of this routine
3526/3: 171 024|164 101|171 030|166 361|052 I1; SHL+32; C1; SHLD-8; ERASE;
3530/0: 105 020|170 024|154 001|171 022|033 =M0M1H; =I1; C0TOQ1; M1; NOT;
3531/3: 027|042|170 022|164 137|161 243 NEG; DUP; =M1; SHL+47; SHA-47;
3532/5: 172 050|202 360 001 2; =+C2; EXIT2;
3533/4: 171 024|222 147 141 1; I1; J3=Z;
[ original source of the next page
3534/3: 171 022|042|027|033|170 022 M1; DUP; NEG; NOT; =M1;
3535/4: 304 000 001|054|104 020|171 030|170 362 SET1; AND; M0M1H; C1; =M15;
3537/2: 041|166 021|170 030|164 301|170 024 ZERO; SHLD+8; =C1; SHL-32; =I1;
3540/5: 205 267 132 J2;
3541/2: 200 360 000 3; EXIT1;
=== Start P7V4; at address 1895/3547
V-store at 03542 = 000 000 000 000 000 000 P7V4; V0=0; [ OUTPUT CODEWORD
3547/0: 300 007 142|202 047 170 V0; J3≥Z; [ zero if channel closed
3550/0: 300 007 144|171 356|301 007 144|170 356 V2; Q14; =V2; =Q14; [ Q14 preserved in V2
3551/4: 042|221 147 166 DUP; J10=Z;
3552/2: 171 344|225 047 162 I14; J9<Z;
3553/1: 171 350|171 344|034|050|172 342 17; C14; I14; ×D; CONT; =+M14;
3554/3: 142 340|300 007 143|170 376 NC14; V1; =Q15;
3555/4: 260 367 160 12; J11C15NZ;
3556/1: 304 340 005|200 320 106 SETB160005; JSE70;
3557/1: 201 266 221 J3P0;
3557/4: 170 376 =Q15;
3560/0: 102 340|103 360|264 347 155 11; M0M14Q; =M0M15Q; J12C14NZ;
3561/1: 171 376|301 007 143|304 007 145|170 343 Q15; =V1; SETAV3; =RM14;
3562/5: 103 340 9; =M0M14Q;
3563/1: 171 356|300 007 144|170 356|301 007 144 16; Q14; V2; =Q14; =V2; [ Q14 restored from V2
3564/5: 041|033|301 007 142|200 360 000 13; ZERO; NOT; =V0; EXIT1;
3566/1: 141 340|100 340|140 340|205 147 162 10; M-I14; M0M14; M+I14; J9≠Z;
3567/4: 052|201 267 163 ERASE; J16;
3570/2: 300 007 142|042|202 107 202 3; V0; DUP; J19≤Z;
3571/3: 170 362|101 360|205 267 164 =M15; =M0M15; J13;
3572/4: 203 327 210 4; JS20; [ entered after discovering *END
3573/1: 041|301 007 142|304 140 005|170 370|171 376 ZERO; =V0; SETB60005; =C15; Q15;
3575/0: 167 041|200 320 106 SHC+16; JSE70;
3575/5: 201 266 221 J3P0;
3576/2: 200 360 000 EXIT1;
3576/5: 300 007 144|170 376|171 370|171 364|034 5; V2; =Q15; C15; I15; ×D;
3600/3: 050|172 362|171 364|027|170 364 CONT; =+M15; I15; NEG; =I15;
3601/5: 262 367 205 J14C15NZ;
3602/2: 304 002 141|204 266 221 19; SET609; J4P0;
3603/2: 300 007 144|042|170 376 2; V2; DUP; =Q15;
3604/2: 052|242 367 202 15; ERASE; J19C15Z;
3605/0: 141 360 M-I15;
3605/2: 304 000 001|172 370|100 360|042|222 147 204 14; SET1; =+C15; M0M15; DUP; J15=Z;
3607/1: 171 362|301 007 142|200 360 000 M15; =V0; EXIT1;
3610/3: 300 007 142|202 047 202 20; V0; J19≥Z;
3611/3: 300 007 144|171 356|301 007 144|170 356 V2; Q14; =V2; =Q14;
3613/1: 041|201 267 153 ZERO; J17;
3613/5: 203 327 210 6; JS20;
3614/2: 171 122|171 042|056|041|033 M5; M2; +; ZERO; NOT;
3615/3: 170 365|042|170 362|301 007 142|041 21; =RI15; DUP; =M15; =V0; ZERO;
3617/0: 103 360|171 376|301 007 144|200 360 000 =M0M15Q; Q15; =V2; EXIT1;
3620/4: 203 327 210 7; JS20;
3621/1: 304 007 145|304 000 001|203 267 215 SETAV3; SET1; J21;
3622/4: 304 242 005|201 267 224 8; SETB121005; J18; [ start new block for procedure
3623/4: 304 242 105 1; SETB121105; [ store with lag
3624/1: 300 007 142|202 147 202 18; V0; J19≠Z;
3625/1: 166 341|052|167 041 SHLD-16; ERASE; SHC+16;
3626/0: 304 007 145|042|301 007 142|170 363 SETAV3; DUP; =V0; =RM15;
3627/3: 041|103 360|171 376|301 007 144|200 320 106 ZERO; =M0M15Q; Q15; =V2; JSE70;
3631/2: 201 266 221 J3P0;
3631/5: 301 007 143|200 360 000 =V1; EXIT1;
=== Start P9V41; at address 1989/3705
V-store at 03633 = 050 242 212 050 242 212 P9V41; V0=B1212121212121212;
V-store at 03634 = 000 002 000 002 010 075 V1=Q2/2/AYF1;
Warning: YG0 is out of range, only 0 YG-stores specified
V-store at 03635 = 010 074 010 140 270 321 V2=QAYF0/AYG0/B134321;
[ original source of the next page
V-store at 03636 = 377 021 046 056 061 236 V3=B7761044613430636; [377 021 046 056 061 236 Fail
V-store at 03637 = 377 027 056 063 052 236 V4=B7761345614625236; [377 027 056 063 052 236 Line
3705/0: 041|033|047|015|300 120 013 ZERO; NOT; STR; NEV; E11M5;
3706/1: 011|301 120 013 OR; =E11M5;
3706/5: 300 007 236|301 010 074|300 007 237|301 010 076 V3; =YF0; V4; =YF2;
3710/5: 300 007 234 5; V1;
3711/2: 170 376|042|026|300 007 233|300 000 003 6; =Q15; DUP; ABS; V0; E3;
3713/0: 300 000 002|166 255|052 E2; SHLD-42; ERASE;
3714/0: 304 003 317|054|164 045|013|056 SETB1717; AND; SHL+18; TOB; +;
3715/2: 300 007 233|065|067|164 043|171 364 1; V0; REV; FRB; SHL+17; I15;
3716/5: 164 005|162 015|205 207 316 2; SHL+2; SHAD+6; J2NV;
3720/0: 304 000 236|011|103 360|052|244 367 322 SETB236; OR; =M0M15Q; ERASE; J3C15Z;
3721/4: 171 150|027|202 267 315 C6; NEG; J1;
3722/4: 300 007 235|170 376|225 047 324 3; V2; =Q15; J4<Z;
3724/0: 304 010 076|170 364 SETAYF2; =I15;
3724/5: 171 376|200 320 106 4; Q15; JSE70;
3725/4: 017|017|041 DUMMY; DUMMY; ZERO;
3726/1: 052 ERASE;
Warning: YG0 is out of range, only 0 YG-stores specified
3726/2: 304 010 140|304 010 074|036|170 371|243 367 332 7; SETAYG0; SETAYF0; -; =RC15; J8C15Z;
3730/2: 041|033 ZERO; NOT;
3730/4: 017|017|042|303 370 074 *9; DUP; =YF0M15Q;
3731/4: 017|017|177 360 * J9C15NZS;
3732/2: 052 ERASE;
3732/3: 200 360 000 8; EXIT1;
=== Start P13V-1; at address 2011/3733
3733/0: 304 010 034|170 343 P13; SETAYB0; =RM14;
3733/5: 200 327 030 1; JSP2;
3734/2: 042|103 340|167 375|225 047 333 DUP; =M0M14Q; SHC-2; J1<Z;
3735/4: 200 360 000 EXIT1;
=== Start P17V0; at address 2016/3740
P17V0; (PACKED IDENTIFIER TO ABS BUFFER);
(DATA; N1=BUFFER FFS/-1/IDEN.SA);
(RESULTS; N1=NEW BFFS/*-1/AFFSAFTER IDEN);
(USES; 3 NS-1 SJNS- Q15);
3740/0: 170 376|171 356|301 007 337|171 370|170 343 =Q15; Q14; =V0; C15; =RM14;
3741/5: 102 360|304 377 370|170 370 1; M0M15Q; SET-8; =C15;
3743/0: 042|167 375|224 047 347 DUP; SHC-2; J2<Z; (FULL WORD NOT LAST);
3744/0: 304 000 001|170 350|042|304 000 370|054 SET1; =C14; DUP; SETB370; AND;
3745/4: 042|223 147 347 DUP; J3=Z; (LAST WORD FULL);
3746/2: 304 377 320|056|042|170 370 SET-48; +; DUP; =C15;
3747/3: 052 3; ERASE;
3747/4: 033|164 360|142 360|164 360|033 2; NOT; SHLC15; NC15; SHLC15; NOT;
3751/0: 103 340|265 347 341 =M0M14Q; J1C14NZ;
3751/5: 171 342|170 370|300 007 337|170 356 M14; =C15; V0; =Q14;
3753/2: 171 376|200 360 000 Q15; EXIT1;
=== Start P300V-1; at address 2029/3755
P300;
3755/0: 171 376 Q15;
(print YZ stores);
3755/2: 304 016 172|164 041 SETB7172; (YZ); SHL+16; (start of print at YZ0);
3756/1: 304 015 240|170 365|304 014 240|170 370|171 376|304 000 106|200 220 000
SET3488; =RI15; SET3232; =C15; Q15; SET70; OUT;
3761/1: 170 376 =Q15;
3761/3: 200 360 000 EXIT1;
=== Start P301V-1; at address 2034/3762
P301;
3762/0: 171 376 Q15;
(print YY stores);
3762/2: 304 016 171|164 041 SETB7171; (YY); SHL+16; (start of print at YY0);
3763/1: 304 010 322|170 365|304 010 240|170 370|171 376|304 000 106|200 220 000
SETAYY50; =RI15; SETAYY0; =C15; Q15; SET70; OUT;
3766/1: 170 376 =Q15;
3766/3: 200 360 000 EXIT1;
=== Start P305V-1; at address 2039/3767
P305;
(print Z-stores);
3767/0: 171 376 Q15;
3767/2: 304 000 072|164 041|304 000 261|011 SETB72; (Z); SHL+16; SET177; OR; (start of print at Z100);
3770/5: 304 053 055|170 365|304 052 373|170 370|171 376|304 000 106|200 220 000
SETAZ50; =RI15; SETAZ100; =C15; Q15; SET70; OUT;
3773/5: 170 376 =Q15;
3774/1: 200 360 000 EXIT1;
=== Start P-1V-1; at address 2045/3775
Finished
Reached end of file