Kidsgrove Algol Compiler - Brick 24
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 24.
Hot links to images of individual pages are embedded in the text.
Loaded 13706 bytes for KAB24.txt
Specifying Y0 leaves gap of 498 words
Relocated 498
Finished
Reached end of file
=============== Second pass
===========================
5120 W0 = E2640
7300 Y0 = E3776
5133 YS0 = E2651
5300 YY0 = E2752
6300 YZ0 = E3264
0/0: 200 266 125 [ original source of the next page
ST11104; TL1000;
START 1600;
Y0=E3776;
V20;W10;
YS100;YY511;YZ511;
4/0: 201 266 203|201 266 205 RESTART; J340P0; J333P0;
PROGRAMME;
3125/0: 320 013 125|164 103|047|301 006 112|052 Z10; SHL+33; STR; =V10; ERASE; [V10 is O/P call matrix - hux
3126/4: 320 013 123|164 101|161 301|304 000 276|056|047|300 006 112|054|301 006 112
Z12; SHL+32; SHA-32; SET190; +; STR; V10; AND; =V10; [address of Call matrix or zero
3131/5: 052 ERASE;
3132/0: 320 013 125|164 101|047|301 006 113|052 Z10; SHL+32; STR; =V11; ERASE; [V11 is O/P Level Parameters hux
3133/4: 300 006 112|300 006 113|011|222 146 175 V10; V11; OR; J350=Z; [ do neither - i.e. Exit
3135/2: 304 014 300|200 326 377|200 330 050 SETAYZ0; JS30P10; JS2P2; [initialise P10 and P2 hux
3136/5: 300 006 113|225 146 173 V11; J351=Z; [no Level parameters hux
3137/5: 041|170 151|145 140|200 266 144 ZERO; =RC6; I6=-1; J204;
3141/1: 322 153 051|041|301 006 102|205 326 254 203; Z54M6Q; ZERO; =V2; (+ set bit count); JS1; (+ get next word and process it);
3142/5: 052 ERASE; [z51 hux
3143/0: 201 330 053 JS3P2; [empty buffers
3143/3: 200 360 000 EXIT1;
204;
202; (+ this appears to build a 'title' from word 3 );
3144/0: 320 153 047|041|301 006 102|300 006 105|170 056|205 326 254|052|201 330 053
Z56M6; ZERO; =V2; V5; =Q2; JS1; ERASE; JS3P2; [z53 ? hux
V-store at 03105 = 000 004 000 001 377 373 V5=Q4/1/-5; [ fields are LN, -, P, ?
3147/1: 205 330 062 JS6P2; [ o/p spaces to tab
(+ C2 is the count of the number of fields in the word - incl. blank fields)
(+ the following does the first three words of the LP )
(+this increments down the field list - sp no seperate V-store to set up Q2 );
3147/4: 304 000 014|170 051|201 326 141|205 330 062 SET12; =RC2; JS203; JS6P2;
(* now extract the AND from)
3151/3: 304 000 007|170 050|201 326 141|205 330 062 SET7; =C2; JS203; JS6P2;
3153/2: 304 000 007|170 050|201 326 141 SET7; =C2; JS203;
3154/4: 300 006 101|170 170|244 166 162 V1; =C7; J201C7Z;
(+ process the parameter fields);
3156/0: 300 006 104|170 056|205 330 062|205 330 062|205 330 062|205 330 062|205 330 062
200; V4; =Q2; JS6P2; JS6P2; JS6P2; JS6P2; JS6P2;
3161/2: 201 326 141 JS203; (+ fetch word and process it);
3161/5: 143 160|260 166 156
V-store at 03104 = 000 006 000 001 000 032 DC7; J200C7NZ; V4=Q6/1/26;
3162/4: 205 330 062|205 330 062|205 330 062|205 330 062|205 330 062 201; (+ end of parameters); JS6P2; JS6P2; JS6P2; JS6P2; JS6P2;
(+process the the last word);
(+ the five fields are LN÷RAFW/-/parms+2/ code );
3165/1: 304 000 005|170 051|304 000 040|170 042|201 326 141 SET5; =RC2; SET32; =M2; JS203;
3167/2: 201 330 053|201 330 053 JS3P2; JS3P2;
3170/2: 300 006 100|200 146 144 V0; J202≠Z;
3171/2: 200 327 021|300 006 112|205 146 173|205 327 036|202 266 175 380; JS31P10; V10; J352≠Z; JS32P10; J350;
3173/5: 200 327 057|200 327 021|205 327 036 351; 352; JSP25; (+ call matrix); JS31P10; JS32P10;
350;
3175/2: 320 013 125|164 351|164 031 Z10; SHL-12; SHL+12; [select succesor brick
3176/3: 320 013 125|065|321 013 125|164 111|164 331|042|221 146 202|300 006 114|011|200 260 106
Z10; REV; =Z10; SHL+36; SHL-20; DUP; J370=Z; V12; OR;JE70;
370;
3202/1: 304 334 010|200 260 106 SETB156010; JE70;
V-store at 03114 = 000 000 000 000 336 010 V12=Q0/0/B157010;
3203/1: 201 326 207|200 327 021|205 327 036|202 266 175 340; JS360; JS31P10; JS32P10; J350; [exit to next brick
3205/1: 201 326 207|304 014 300|200 330 050|202 266 171 333; JS360; (+ empty nest); SETAYZ0; JS2P2; J380;
3207/1: 222 246 210|052|201 266 207 360; J361EN; ERASE; J360;
3210/2: 200 360 000 361; EXIT1;
[ code to process a field - labels 10,20 etc. called via r1;
[mom3 fetches the text naming the field
3210/5: 100 060|200 330 017 10; M0M3; JSP3;
3211/4: 041|304 000 006|200 330 037 ZERO; SET6; JSP2;
3212/5: 142 060|167 060|304 000 060|172 070|142 060|161 060|200 330 107
NC3; SHCC3; SET48; =+C3; NC3; SHAC3; JSP1;
3215/3: 304 000 034|304 000 006|200 330 037|242 046 261|205 330 062|205 266 254
11; SETB34; SET6; JSP2; J2C2Z; JS6P2; J1; (+ output a ; );
3220/3: 100 060|200 330 017|041|304 000 006|200 330 037 20; M0M3; JSP3; ZERO; SET6; JSP2;
3222/3: 200 330 107|203 266 215 JSP1; J11;
3223/3: 225 146 224|110 060|201 266 225 30; J31=Z; M0M3N; J32;
3224/5: 100 060 31; M0M3;
3225/1: 200 330 017|203 266 215 32; JSP3; J11;
3226/1: 042|224 146 233 40; DUP; J41=Z;
3226/5: 300 007 334|200 330 017 42; V74P5; JSP3;
3227/5: 300 006 102|027|033|200 330 107|304 000 042 V2; NEG; NOT; JSP1; SETB42;
3231/4: 304 000 014|200 330 037|200 327 374|203 266 215 SET12; JSP2; JSP4; J11;
3233/4: 052|205 266 254 41; ERASE; J1;
3234/2: 052|205 266 254 50; ERASE; J1;
[ original source of the next page
3235/0: 100 060|170 076 60; M0M3; =Q3;
3235/4: 102 060|164 101|164 301|221 026 240|264 066 235 62; M0M3Q; SHL+32; SHL-32; J61=; J62C3NZ;
3237/4: 205 266 226 J42;
3240/1: 141 060|052|100 060|164 341|200 330 025|203 266 215 61; M-I3; ERASE; M0M3; SHL-16; JSP6; J11;
3242/2: 042|301 006 100|205 266 210 70; DUP; =V0; J10;
3243/3: 042|301 006 101|203 266 220 80; DUP; =V1; J20;
3244/4: 100 060|205 026 226|052|205 266 254 90; M0M3; J42≠; ERASE; J1;
3246/1: 100 060|200 330 017|200 327 374|203 266 215 100; M0M3; JSP3; JSP4; J11;
3250/0: 200 146 251|205 266 254 110; J111≠Z; J1;
3251/0: 100 060|200 330 017|203 266 215 111; M0M3; JSP3; J11;
3252/2: 304 000 002|222 026 234|304 000 003|220 026 250|205 266 226 120; SET2; J50=; SET3; J110=; J42;
[ steps through the field definitions (bits/code/name), and executes the code
3254/5: 242 046 261|302 047 151|170 076 1; J2C2Z; V10P9M2Q; =Q3;
3256/1: 171 070|300 006 102|056|301 006 102 C3; V2; +; =V2; [adds up the bits processed
3257/4: 041|166 060 ZERO; SHLDC3; [moves the bits into position into N1
3260/1: 171 064|174 000|202 360 000 I3; =LINK; EXIT;
3261/2: 200 360 000 2; EXIT1;
=== Start P10V20; at address 1735/3307
P10V20;
3307/0: 301 006 262 =V0; [ output -/low address/high address
3307/3: 171 376|301 006 263|171 356|301 006 264|171 336 Q15; =V1; Q14; =V2; Q13;
3311/3: 301 006 265|171 316|301 006 267 =V3; Q12; =V5;
3312/5: 300 006 262|164 341|170 376 V0; SHL-16; =Q15;
3314/0: 171 362|171 364|036|033|027 M15; I15; -; NOT; NEG;
3315/1: 170 350|171 364|170 342|144 340 =C14; I15; =M14; I14=+1;
3316/3: 171 350|164 007|170 330 C14; SHL+3; =C13;
3317/3: 300 010 036|301 006 266 V2P2; =V4;
3320/3: 300 006 262|164 041|164 301|304 000 004|056 V0; SHL+16; SHL-32; SET4; +;
3322/2: 200 330 050 JS2P2;
3322/5: 102 340|304 000 010|170 310 5; M0M14Q; SET8; =C12;
3324/0: 041|166 015|201 326 343 4; ZERO; SHLD+6; JS2;
3325/0: 143 300|143 320|242 326 327|260 306 324|052|205 266 322 DC12; DC13; J3C13Z; J4C12NZ; ERASE; J5;
3327/2: 052|300 010 035|027|304 000 060|044 3; ERASE; V1P2; NEG; SET48; ÷I;
3330/5: 041|033|065|200 330 037|027|300 010 036|056|170 362 ZERO; NOT; REV; JSP2; NEG; V2P2; +; =M15;
3333/0: 300 010 036|170 364|304 270 321|170 370 V2P2; =I15; SETB134321; =C15;
3334/4: 171 376|167 041 Q15; SHC+16;
3335/2: 200 320 106|200 330 074 JSE70; JSP104;
3336/2: 301 006 270|300 006 266 =V6; V4;
3337/2: 300 006 263|170 376|300 006 264|170 356|300 006 265|170 336 V1; =Q15; V2; =Q14; V3; =Q13;
3341/5: 300 006 267|170 316|202 360 001 V5; =Q12; EXIT2;
3343/1: 042|200 146 345|052|304 000 236|200 266 373 2; DUP; J12≠Z; ERASE; SETB236; J20;
3345/0: 304 000 002|203 026 346|203 266 374 12; SET2; J10≠; J17;
3346/3: 304 000 020|036|042|203 046 350|052|200 360 000 10; SETB20; -; DUP; J7≥Z; ERASE; EXIT1;
3350/3: 304 000 012|036|042|200 046 353 7; SETB12; -; DUP; J8≥Z;
3351/5: 304 000 012|056|200 266 373 SETB12; +; J20;
3353/0: 304 000 002|201 026 355|052|304 000 230|200 266 373 8; SET2; J9≠; ERASE; SETB230; J20;
3355/1: 304 000 003|202 026 357|052|304 000 301|200 266 373 9; SET3; J18≠; ERASE; SETB301; J20;
3357/2: 304 000 004|203 026 361|052|304 000 321|200 266 373 18; SET4; J13≠; ERASE; SETB321; J20;
3361/3: 304 000 005|204 026 363|052|304 000 013|200 266 373 13; SET5; J11≠; ERASE; SETB13; J20;
3363/4: 304 000 007|036|042|204 046 365|052|200 360 000 11; SET7; -; DUP; J14≥Z; ERASE; EXIT1;
3365/4: 304 000 031|036|042|201 046 370|304 000 045|056|200 266 373 14; SETB31; -; DUP; J15≥Z; SETB45; +; J20;
3370/1: 304 000 077|202 026 372|052|304 000 377|200 266 373 15; SETB77; J16≠; ERASE; SETB377; J20;
3372/2: 052|200 360 000 16; ERASE; EXIT1;
3373/0: 304 000 010|200 330 037|200 360 000 20; SET8; JSP2; EXIT1;
3374/3: 052|304 000 240|200 326 373 17; ERASE; SETB240; JS20;
3375/4: 304 000 001|170 330|200 360 000 SET1; =C13; EXIT1;
3377/0: 164 101|164 301|301 006 300 30; SHL+32; SHL-32; =V14; [ initiate - hux
3400/1: 300 006 271|300 006 272|200 320 106|200 330 074|301 006 270 V7; V8; JSE70; (CH3); JS1P104; =V6;
V-store at 03271 = 013 000 013 037 000 000 V7=QAYY64/AYY95/0;
V-store at 03272 = 012 300 012 337 242 003 V8=QAYY0/AYY31/B121003;
3402/4: 300 006 275|300 006 274|200 320 106|200 330 074 V11; V10; JSE70; (CH17); JS2P104;
V-store at 03274 = 012 300 012 337 242 021 V10=QAYY0/AYY31/B121021;
V-store at 03275 = 013 000 013 037 000 000 V11=QAYY64/AYY95/0;
[ original source of the next page
3404/4: 041|033|301 006 303
V-store at 03303 = 000 000 000 000 000 000 ZERO; NOT; =V17; V17=0;
3405/3: 304 000 003 SET3;
3406/0: 304 000 100|011 41; SETB100; OR;
3406/4: 200 320 106|200 330 074 JSE70; JS3P104;
3407/4: 164 023|047|002 SHL+9; STR; =TR;
3410/2: 164 257|220 347 006|301 006 276 SHL-41; J41TR; =V12;
3411/4: 304 000 303|200 320 106|200 330 074 SETB303; JSE70; JS4P104;
3413/1: 304 000 005|224 027 015|304 000 001|220 027 017|200 330 074 SET5; J42=; SET1; J43=; JS5P104;
3415/4: 052|041|301 006 277|200 267 020 42; ERASE; ZERO; =V13; J44;
3417/0: 052|041|033|301 006 277 43; ERASE; ZERO; NOT; =V13;
3420/0: 300 006 300|200 360 000 44; V14; EXIT1;
3421/0: 171 376|301 006 301 31; Q15; =V15; [ write gap hux
3421/5: 300 006 277|223 147 033 V13; J50=Z;
3422/5: 300 006 276|170 370|221 347 024 V12; =C15; J100TR;
3424/1: 121 360|200 347 030 100; PARQ15; J101NTR;
3425/0: 300 006 306|304 000 060|200 330 037
V-store at 03306 = 003 010 162 247 116 100 V20; SET48; JSP2; V20=B0060416251647100; (C PARITY );
3426/3: 201 330 053|221 347 024|201 267 024 JS3P2; J100TR; J100;
3430/0: 017 101; DUMMY;
3430/1: 300 006 302|170 376|304 377 303|101 360|300 006 276|170 370|131 360|203 267 035
V16; =Q15; SET-61; =M0M15; V12; =C15; POBQ15; J51;
3433/3: 300 006 276|170 370|304 000 170|170 362|130 374 50; V12; =C15; SET120; =M15; PGAPQ15;
3435/3: 300 006 301|170 376|200 360 000 51; V15; =Q15; EXIT1;
3436/5: 300 006 303|220 147 043|041|301 006 303 32; V17; J60=Z; ZERO; =V17; [ close - hux
3440/3: 300 006 270|164 041|304 140 003|011|200 320 106|200 330 074 V6; SHL+16; SETB060003; OR; JSE70; JS6P104;
3443/0: 200 360 000 60; EXIT1;
V-store at 03302 = 000 000 006 305 006 305 V16=Q0/AV19/AV19;
=== Start P25V10; at address 1839/3457
P25V10;
3457/0: 304 000 141|170 250|146 240|320 013 123|170 242 SET97; =C10; I10=+2; Z12; =M10;
3461/0: 304 053 055|172 242 SETAZ50; =+M10;
3461/5: 304 000 141|171 250|036|042|304 000 012|044|222 147 066 234; SET97; C10; -; DUP; SET10; ÷I; J213=Z;
3464/1: 205 147 072 J205≠Z;
3464/4: 041|304 000 006|200 330 037|205 267 072 236; ZERO; SET6; JSP2; J205;
3466/2: 304 000 005|044|065|052|225 147 070|201 330 053|205 267 072 213; SET5; ÷I; REV; ERASE; J215=Z; JS3P2; J205;
3470/5: 201 330 053|201 330 053|200 327 021|205 267 112 215; JS3P2; JS3P2; JS31P10; J208;
3472/5: 042|203 147 074|052|143 240|205 267 061 205; DUP; J251≠Z; ERASE; DC10; J234;
3474/3: 200 330 107 251; JSP1;
3475/0: 110 240|102 240|304 000 141|170 270 M0M10N; M0M10Q; SET97; =C11;
3476/3: 304 000 141|171 270|036|042|301 007 044|304 000 012 206; SET97; C11; -; DUP; =V0; SET10;
3500/4: 044|065|052|204 147 104 ÷I; REV; ERASE; J233≠Z;
3501/4: 041|304 000 014|200 330 037 ZERO; SET12; JSP2;
3502/5: 300 007 044|204 147 104|143 260|203 267 076 V0; J233≠Z; DC11; J206;
3504/4: 047|222 147 106|304 000 021|205 267 106 233; STR; J231=Z; SETB21; J232;
3506/2: 304 000 037 231; SETB37;
3506/5: 304 000 006|200 330 037 232; SET6; JSP2;
3507/5: 166 003|143 260|263 267 076 SHLD+1; DC11; J206C11NZ;
3511/0: 052|052|201 330 053 ERASE; ERASE; JS3P2;
3511/5: 265 247 061|200 267 136 J234C10NZ; J207;
3512/5: 041|304 000 030|200 330 037 208; ZERO; SET24; JSP2;
3514/0: 304 000 011|170 270 SET9; =C11;
3514/5: 304 000 011|171 270|036 209; SET9; C11; -;
3515/5: 042|224 147 122|200 330 107|242 267 123 DUP; J241=Z; JSP1; J210C11Z;
3517/3: 041|304 000 060|200 330 037|041|304 000 022 242; ZERO; SET48; JSP2; ZERO; SET18;
3521/2: 200 330 037|143 260|205 267 114 JSP2; DC11; J209;
3522/4: 052|203 267 117 241; ERASE; J242;
3523/2: 201 330 053|304 000 011|170 270 210; JS3P2; SET9; =C11;
3524/4: 041|304 000 030|200 330 037 ZERO; SET24; JSP2;
3525/5: 304 000 011|171 270|036|300 007 055|304 000 052|066|201 147 131|052|304 000 044
212; SET9; C11; -; V9; SET42; CAB; J243≠Z; ERASE; SET36;
3531/1: 200 330 037|243 267 134|300 007 056|304 000 036 243; JSP2; J211C11Z; V10; SET30;
3533/1: 200 330 037|143 260|205 267 125 JSP2; DC11; J212;
3534/3: 201 330 053|201 330 053|205 267 072 211; JS3P2; JS3P2; J205;
[ original source of the next page
3536/0: 200 360 000 207; EXIT1;
V-store at 03454 = 000 000 012 120 012 120 V8=Q0/AW0/AW0;
V-store at 03455 = 341 004 122 115 105 126 V9=B7020212223242526;(CX0123456);
V-store at 03456 = 343 216 027 141 220 000 V10=B7070702730310000;(CXXX789 );
=== Start P9V50; at address 1938/3622
P9V50; [ field bit-size/codeaddress to process/fieldname
V-store at 03544 = 000 010 146 220 007 244 V5=Q8/AR20P0/AV18P5;
V-store at 03545 = 000 040 106 234 000 000 V6=Q32/AR50P0/0;
V-store at 03546 = 000 003 106 252 007 335 V7=Q3/AR120P0/AV75P5;
V-store at 03547 = 000 005 006 235 007 252 V8=Q5/AR60P0/AV24P5;
V-store at 03551 = 000 020 246 210 007 222 V10=Q16/AR10P0/AV0P5;
V-store at 03552 = 000 020 106 242 007 223 V11=Q16/AR70P0/AV1P5;
V-store at 03553 = 000 004 146 220 007 225 V12=Q4/AR20P0/AV3P5;
V-store at 03554 = 000 004 146 220 007 226 V13=Q4/AR20P0/AV4P5;
V-store at 03555 = 000 001 046 226 000 000 V14=Q1/AR40P0/0;
V-store at 03556 = 000 001 146 223 007 227 V15=Q1/AR30P0/AV5P5;
V-store at 03557 = 000 001 006 250 007 231 V16=Q1/AR110P0/AV7P5;
V-store at 03560 = 000 001 006 250 007 232 V17=Q1/AR110P0/AV8P5;
V-store at 03561 = 000 001 006 250 007 233 V18=Q1/AR110P0/AV9P5;
V-store at 03562 = 000 001 006 250 007 234 V19=Q1/AR110P0/AV10P5;
V-store at 03563 = 000 001 006 250 007 235 V20=Q1/AR110P0/AV11P5;
V-store at 03564 = 000 001 006 250 007 236 V21=Q1/AR110P0/AV12P5;
V-store at 03565 = 000 010 146 220 007 237 V22=Q8/AR20P0/AV13P5;
V-store at 03566 = 000 002 046 226 000 000 V23=Q2/AR40P0/0;
V-store at 03567 = 000 012 146 220 007 240 V24=Q10/AR20P0/AV14P5;
V-store at 03570 = 000 004 146 220 007 241 V25=Q4/AR20P0/AV15P5;
V-store at 03571 = 000 014 146 220 007 242 V26=Q12/AR20P0/AV16P5;
V-store at 03572 = 000 006 046 226 000 000 V27=Q6/AR40P0/0;
V-store at 03573 = 000 006 246 210 007 243 V28=Q6/AR10P0/AV17P5;
V-store at 03574 = 000 010 106 234 000 000 V29=Q8/AR50P0/0;
V-store at 03575 = 000 010 146 220 007 245 V30=Q8/AR20P0/AV19P5;
V-store at 03576 = 000 006 146 243 007 246 V31=Q6/AR80P0/AV20P5;
V-store at 03577 = 000 012 146 220 007 247 V32=Q10/AR20P0/AV21P5; (+ 31); (+ I think these are wrong for the last word);
V-store at 03600 = 000 010 146 220 007 250 V33=Q8/AR20P0/AV22P5; (+32);
V-store at 03601 = 000 003 106 234 000 000 V34=Q3/AR50P0/0;
V-store at 03602 = 000 005 106 234 000 000 V35=Q5/AR50P0/0; (+Q8/AR20/CGPARAMS+2);
V-store at 03603 = 000 020 046 246 007 253 V36=Q16/AR100P0/AV25P5; (+ down to here )
V-store at 03604 = 000 026 106 234 000 000 V37=Q22/AR50P0/0;
V-store at 03605 = 000 001 006 250 007 254 V38=Q1/AR110P0/AV26P5;
V-store at 03606 = 000 001 146 223 007 255 V39=Q1/AR30P0/AV27P5;
V-store at 03607 = 000 003 206 244 007 257 V40=Q3/AR90P0/AV29P5;
V-store at 03610 = 000 005 006 235 007 260 V41=Q5/AR60P0/AV30P5;
V-store at 03611 = 000 010 146 220 007 261 V42=Q8/AR20P0/AV31P5;
V-store at 03612 = 000 010 146 220 007 262 V43=Q8/AR20P0/AV32P5;
V-store at 03613 = 000 020 046 226 000 000 V44=Q16/AR40P0/0;
V-store at 03614 = 000 010 146 220 007 263 V45=Q8/AR20P0/AV33P5;
V-store at 03615 = 000 010 206 244 007 264 V46=Q8/AR90P0/AV34P5;
=== Start P5V100; at address 2039/3767
P5V100; [ field names
V-store at 03622 = 217 216 070 342 034 044 V0=B4370707070416044;(CCXXXAPD);
V-store at 03623 = 217 216 070 342 033 244 V1=B4370707070415644;(CCXXXAND);
V-store at 03625 = 213 216 070 343 213 263 V3=B4270707070705663;(CBXXXXNS);
V-store at 03626 = 213 216 070 343 214 163 V4=B4270707070706163;(CBXXXXQS);
V-store at 03627 = 213 216 070 343 216 046 V5=B4270707070707046;(CAXXXXXF);
V-store at 03630 = 207 216 070 343 216 062 V6=B4170707070707062;(CAXXXXXR);
V-store at 03631 = 207 216 070 343 216 043 V7=B4170707070707043;(CAXXXXXC);
V-store at 03632 = 207 216 070 343 216 066 V8=B4170707070707066;(CAXXXXXV);
V-store at 03633 = 213 216 070 343 212 141 V9=B4270707070705141;(CBXXXXIA);
[ original source of the next page
V-store at 03634 = 213 216 070 343 212 160 V10=B4270707070705160;(CBXXXXXIP);
V-store at 03635 = 213 216 070 343 212 041 V11=B4270707070705041;(CBXXXXXHA);
V-store at 03636 = 213 216 070 343 214 360 V12=B4270707070706360;(CBXXXXXSP);
V-store at 03637 = 217 216 070 342 051 043 V13=B4370707070424443;(CCXXXXBDC);
V-store at 03640 = 223 216 070 207 030 246 V14=B4470707041614246;(CDXXXAQBF);
V-store at 03641 = 217 216 070 342 354 163 V15=B4370707070566163;(CCXXXXNQS);
V-store at 03642 = 217 216 070 342 154 362 V16=B4370707070466362;(CCXXXXFSR);
V-store at 03643 = 227 216 060 262 033 253 V17=B4570706054415653;(CEXXPLANK);
V-store at 03644 = 213 216 070 343 213 056 V18=B4270707070705456;(CBXXXXXLN);
V-store at 03645 = 223 216 070 226 310 144 V19=B4470707045544144;(CDXXXELAD);
V-store at 03646 = 227 216 060 207 053 163 V20=B4570706041625563;(CEXXPARMS);
V-store at 03647 = 223 216 070 332 154 362 V21=B4470707066466362;(CDXXXVFSR);
V-store at 03650 = 217 216 070 342 030 166 V22=B4370707070414166;(CCXXXXAAV);
V-store at 03651 = 000 000 000 000 000 002 V23=2;
V-store at 03652 = 000 015 000 001 007 265 V24=Q13/1/AV35;
V-store at 03653 = 234 000 000 216 371 045 V25=B4700000043574445;(CG CODE);
V-store at 03654 = 213 216 070 343 212 141 V26=B4270707070705141;(CBXXXXXIA);
V-store at 03655 = 207 216 070 343 216 056 V27=B4170707070707056;(CAXXXXXXN);
V-store at 03656 = 207 216 070 343 216 066 V28=B4170707070707066;(CAXXXXXXV);
V-store at 03657 = 000 000 000 000 000 003 V29=3;
V-store at 03660 = 000 015 000 001 007 265 V30=Q13/1/AV35;
V-store at 03661 = 213 216 070 343 213 056 V31=B4270707070705456;(CBXXXXXLN);
V-store at 03662 = 223 216 070 312 031 267 V32=B4470707062414667;(CDXXXRAFW);
V-store at 03663 = 237 010 162 267 067 122 V33=B4760416255633522;(CGPARMS+2);
V-store at 03664 = 000 000 000 000 000 233 V34=B233;
V-store at 03665 = 007 305 007 305 000 002 V35=QAV51/AV51/2;
V-store at 03666 = 007 306 007 306 000 001 V36=QAV52/AV52/1;
V-store at 03667 = 007 307 007 307 000 003 V37=QAV53/AV53/3;
V-store at 03670 = 007 310 007 311 000 011 V38=QAV54/AV55/B11;
V-store at 03671 = 007 312 007 313 000 012 V39=QAV56/AV57/B12;
V-store at 03672 = 007 314 007 315 000 013 V40=QAV58/AV59/B13;
V-store at 03673 = 007 316 007 317 000 020 V41=QAV60/AV61/B20;
V-store at 03674 = 007 320 007 321 000 021 V42=QAV62/AV63/B21;
V-store at 03675 = 007 322 007 324 000 022 V43=QAV64/AV66/B22;
V-store at 03676 = 007 325 007 330 000 023 V44=QAV67/AV70/B23;
V-store at 03677 = 007 331 007 331 000 030 V45=QAV71/AV71/B30;
V-store at 03700 = 007 332 007 332 000 031 V46=QAV72/AV72/B31;
V-store at 03701 = 007 333 007 333 000 032 V47=QAV73/AV73/B32;
V-store at 03705 = 236 233 264 226 171 162 V51=B4751566445474562;(CGINTEGER);
V-store at 03706 = 223 216 070 312 130 154 V52=B4470707062454154;(CDXXXREAL);
V-store at 03707 = 236 053 357 262 130 156 V53=B4742575754454156;(CGBOOLEAN);
V-store at 03710 = 237 051 141 260 010 162 V54=B4762454154004162;(CGREAL AR);
V-store at 03711 = 217 216 070 343 050 171 V55=B4370707070624171;(CCXXXXRAY);
V-store at 03712 = 236 233 264 226 171 162 V56=B4751566445474562;(CGINTEGER);
V-store at 03713 = 233 200 041 313 050 171 V57=B4670004162624171;(CFX ARRAY);
V-store at 03714 = 236 053 357 262 130 156 V58=B4742575754454156;(CGBOOLEAN);
V-store at 03715 = 233 200 041 313 050 171 V59=B4670004162624171;(CFX ARRAY);
V-store at 03716 = 237 014 257 216 131 065 V60=B4760625743454465;(CGPROCEDU);
V-store at 03717 = 213 216 070 343 214 245 V61=B4270707070706245;(CBXXXXXRE);
V-store at 03720 = 237 051 141 260 014 062 V62=B4762454154006062;(CGREAL PR);
V-store at 03721 = 236 370 345 223 134 245 V63=B4757434544656245;(CGOCEDURE);
V-store at 03722 = 236 233 264 226 171 162 V64=B4751566445474562;(CGINTEGER);
V-store at 03723 = 234 014 062 276 071 144 V65=B4700606257434544;(CG PROCED);
V-store at 03724 = 217 216 070 343 134 245 V66=B4370707070656245;(CCXXXXURE);
V-store at 03725 = 236 053 357 262 130 156 V67=B4742575754454156;(CGBOOLEAN);
V-store at 03727 = 234 014 062 276 071 144 V69=B4700606257434544;(CG PROCED);
V-store at 03730 = 217 216 070 343 134 245 V70=B4370707070656245;(CCXXXXURE);
[ original source of the next page
V-store at 03731 = 233 214 367 247 110 350 V71=B4670636751644350;(CFXSWITCH);
V-store at 03732 = 227 216 054 206 051 154 V72=B4570705441424554;(CEXXLABEL);
V-store at 03733 = 233 214 364 312 233 247 V73=B4670636462515647;(CFXSTRING);
V-store at 03734 = 233 211 162 312 374 200 V74=B4670456262576200;(CPXERROR );
V-store at 03735 = 207 216 070 343 216 046 V75=B4170707070707046;(CAXXXXXXP);
=== Start P4V4; at address 2044/3774
P4V4;
3774/0: 171 116|301 007 370|041 Q4; =V1; ZERO;
3775/0: 042|301 007 372|301 007 373 DUP; =V3; =V4;
3776/1: 041|166 061|042|200 150 000|052|205 270 013 ZERO; SHLD+24; DUP; J1≠Z; ERASE; J2;
4000/0: 300 007 367|065|067|300 007 373|220 150 004|300 007 371|011|304 000 060|200 330 037|203 270 015
1; V0; REV; FRB; V4; J6=Z; V2; OR; SET48; JSP2; J5;
4004/0: 041|033|301 007 373|304 000 010|170 110|042 6; ZERO; NOT; =V4; SET8; =C4; DUP;
4005/5: 164 365|143 100|042|224 150 007|265 110 005 3; SHL-6; DC4; DUP; J4=Z; J3C4NZ;
4007/4: 052|300 007 371|011|304 000 010|171 110|036|304 000 006|034|050|200 330 037|300 007 372|203 150 015
4; ERASE; V2; OR; SET8; C4; -; SET6; ×D; CONT; JSP2; V3; J5≠Z;
4013/5: 164 321|041|033|301 007 372|200 270 000 2; SHL-24; ZERO; NOT; =V3; J1;
4015/3: 300 007 370|170 116|200 360 000 5; V1; =Q4; EXIT1;
V-store at 03767 = 040 202 010 040 202 010 V0=B1010101010101010;
V-store at 03770 = 000 000 000 000 000 000 V1=0;
V-store at 03771 = 101 004 020 101 004 020 V2=B2020202020202020;(COOOOOOOO);
V-store at 03772 = 000 000 000 000 000 000 V3=0;
=== Start P3V-1; at address 2063/4017
P3;
4017/0: 042|164 255|304 000 040|036|042|203 050 021|052|200 270 025 DUP; SHL-42; SETB40; -; DUP; J1≥Z; ERASE; JP6;
4021/3: 304 000 006|034|050|200 330 037|200 360 000 1; SET6; ×D; CONT; JSP2; EXIT1;
=== Start P6V0; at address 2069/4025
P6V0;
4025/0: 171 116|301 010 024|170 116 Q4; =V0; =Q4;
4026/1: 171 102|171 104|036|033|027|170 110 M4; I4; -; NOT; NEG; =C4;
4027/4: 171 104|170 102|144 100 I4; =M4; I4=+1;
4030/4: 102 100|200 330 017|264 110 030|300 010 024|170 116|200 360 000
1; M0M4Q; JSP3; J1C4NZ; V0; =Q4; EXIT1;
=== Start P2V2; at address 2079/4037
P2V2;
4037/0: 042|301 010 034 1; DUP; =V0;
4037/4: 304 000 060|065|036|170 370|164 360 SET48; REV; -; =C15; SHLC15;
4041/1: 300 010 035|304 000 060|044|027|170 371 4; V1; SET48; ÷I; NEG; =RC15;
4042/5: 170 362|300 010 036|172 362 =M15; V2; =+M15;
4044/0: 041|065|166 360 ZERO; REV; SHLDC15;
4044/4: 100 360|011|101 360|111 360 M0M15; OR; =M0M15; =M0M15N;
4045/5: 300 010 034|300 010 035|056|301 010 035 V0; V1; +; =V1;
4047/3: 200 360 000 EXIT1;
4050/0: 042|301 010 036|170 362 2; DUP; =V2; =M15;
4051/0: 041|042|101 360|111 360 ZERO; DUP; =M0M15; =M0M15N;
4052/0: 041|301 010 035|200 360 000 ZERO; =V1; EXIT1;
4053/1: 041|033|201 330 041 3; ZERO; NOT; JS4;
4054/0: 110 360|201 150 055 M0M15N; J5≠Z;
4054/5: 141 360 M-I15;
4055/1: 304 360 002|111 360 5; SETB170002; =M0M15N;
4056/0: 140 360|300 010 036|170 364|304 340 303|170 370 M+I15; V2; =I15; SETB160303; =C15;
4060/0: 171 376|167 041|200 326 307|200 330 074 Q15; SHC+16; JSP10; JSP104;
4061/4: 164 101|164 301|200 270 050 SHL+32; SHL-32; J2;
4062/5: 300 010 035|304 000 110|044|065|052 6; (TAB); V1; SET72; ÷I; REV; ERASE; [ printer fault 72 is a guess
4064/2: 304 000 110|065|036 SET72; REV; -;
4065/1: 304 000 060|036|042|222 110 070 SET48; -; DUP; J7>Z;
4066/3: 304 000 060|056 SET48; +;
4067/1: 301 010 034|041|201 270 041 8; =V0; ZERO; J4;
4070/2: 201 330 067|304 000 060|201 270 067 7; JS8; SET48; J8;
=== Start P104V1; at address 2108/4074
P104V1;
1;2;3;4;5;6;7;8;9;10;11;12;
13;14;15;16;17;18;19;20;
4074/0: 173 000|301 010 072 LINK; =V0;
4074/5: 320 013 070|033|164 003|164 377|033|321 013 070 Z39; NOT; SHL+1; SHL-1; NOT; =Z39;
4076/5: 300 010 073|200 260 106 V1; JE70;
[ original source of the next page
V-store at 04073 = 000 000 006 125 336 010 V1=Q0/B3125/B157010;
=== Start P1V6; at address 2119/4107
P1V6;
V-store at 04100 = 200 000 000 000 000 000 V0=B1/0;
V-store at 04101 = 171 025 020 135 065 324 V1=B3621242027232724;(C-1407374);
V-store at 04102 = 141 204 325 125 064 230 V2=B3030232525232230;(C88355328);
V-store at 04103 = 000 000 000 000 000 000 V3=0;
V-store at 04104 = 000 000 005 365 341 000 V4=100000000;
V-store at 04105 = 050 242 212 050 242 212 V5=B1212121212121212;
V-store at 04106 = 101 004 020 101 004 020 V6=B2020202020202020;(COOOOOOOO);
4107/0: 300 010 100|204 030 113 V0; J1≠;
4110/0: 300 010 101|304 000 060|200 330 037 V1; SET48; JSP2;
4111/3: 300 010 102|304 000 060|200 330 037|052|200 360 000 V2; SET48; JSP2; ERASE; EXIT1;
4113/4: 042|200 050 116|027|304 000 036|304 000 006 1; DUP; J2≥Z; NEG; SETB36; SET6;
4115/3: 200 330 037 JSP2;
4116/0: 001|300 010 104|032|204 210 120 2; VR; V4; MAX; J3NV;
4117/2: 065|044|301 010 103|204 270 121 REV; ÷I; =V3; J4;
4120/4: 041|033|301 010 103|052 3; ZERO; NOT; =V3; ERASE;
4121/4: 300 010 105|065|067|042|205 150 123 4; V5; REV; FRB; DUP; J6≠Z;
4123/1: 052|304 000 020 ERASE; SETB20;
4123/5: 042|154 016|001 6; DUP; C0TOQ14; VR;
4124/3: 161 015|143 340|203 210 124 7; SHA+6; DC14; J7NV;
4125/4: 052|300 010 106|011 ERASE; V6; OR;
4126/3: 304 000 011|171 350|056|304 000 006|034 SET9; C14; +; SET6; ×D;
4130/1: 050|200 330 037 CONT; JSP2;
4130/5: 300 010 103|225 050 134 V3; J8<Z;
4131/5: 300 010 103|300 010 105|065|067|300 010 106 V3; V5; REV; FRB; V6;
4133/4: 011|304 000 060|200 330 037 OR; SET48; JSP2;
4134/5: 200 360 000 8; EXIT1;
=== Start P-1V-1; at address 2142/4136
Finished
FINISH;
Reached end of file