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 13749 bytes for KAB24.txt
Specifying Y0 leaves gap of 496 words
Relocated 496
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|202 326 377|205 330 051 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: 200 330 055 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|200 330 055
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: 204 330 064 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|204 330 064 SET12; =RC2; JS203; JS6P2;
(* now extract the AND from)
3151/3: 304 000 007|170 050|201 326 141|204 330 064 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|204 330 064|204 330 064|204 330 064|204 330 064|204 330 064
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: 204 330 064|204 330 064|204 330 064|204 330 064|204 330 064 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: 200 330 055|200 330 055 JS3P2; JS3P2;
3170/2: 300 006 100|200 146 144 V0; J202≠Z;
3171/2: 202 327 021|300 006 112|205 146 173|201 327 037|202 266 175 380; JS31P10; V10; J352≠Z; JS32P10; J350;
3173/5: 200 327 057|202 327 021|201 327 037 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|202 327 021|201 327 037|202 266 175 340; JS360; JS31P10; JS32P10; J350; [exit to next brick
3205/1: 201 326 207|304 014 300|205 330 051|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 020 10; M0M3; JSP3;
3211/4: 041|304 000 006|200 330 040 ZERO; SET6; JSP2;
3212/5: 142 060|167 060|304 000 060|172 070|142 060|161 060|200 330 111
NC3; SHCC3; SET48; =+C3; NC3; SHAC3; JSP1;
3215/3: 304 000 034|304 000 006|200 330 040|242 046 261|204 330 064|205 266 254
11; SETB34; SET6; JSP2; J2C2Z; JS6P2; J1; (+ output a ; );
3220/3: 100 060|200 330 020|041|304 000 006|200 330 040 20; M0M3; JSP3; ZERO; SET6; JSP2;
3222/3: 200 330 111|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 020|203 266 215 32; JSP3; J11;
3226/1: 042|224 146 233 40; DUP; J41=Z;
3226/5: 300 007 335|200 330 020 42; V74P5; JSP3;
3227/5: 300 006 102|027|033|200 330 111|304 000 042 V2; NEG; NOT; JSP1; SETB42;
3231/4: 304 000 014|200 330 040|200 327 375|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 026|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 020|200 327 375|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 020|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 152|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 037|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: 205 330 051 JS2P2;
3322/5: 102 340|304 000 010|170 310 5; M0M14Q; SET8; =C12;
3324/0: 041|166 015|203 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 036|027|304 000 060|017|017|044 3; ERASE; V1P2; NEG; SET48; ÷I;
3331/1: 041|033|065|200 330 040|027|300 010 037|056|170 362 ZERO; NOT; REV; JSP2; NEG; V2P2; +; =M15;
3333/2: 300 010 037|170 364|304 270 321|170 370 V2P2; =I15; SETB134321; =C15;
3335/0: 171 376|167 041 Q15; SHC+16;
3335/4: 200 320 106|200 330 076 JSE70; JSP104;
3336/4: 301 006 270|300 006 266 =V6; V4;
3337/4: 300 006 263|170 376|300 006 264|170 356|300 006 265|170 336 V1; =Q15; V2; =Q14; V3; =Q13;
3342/1: 300 006 267|170 316|202 360 001 V5; =Q12; EXIT2;
3343/3: 042|202 146 345|052|304 000 236|202 266 373 2; DUP; J12≠Z; ERASE; SETB236; J20;
3345/2: 304 000 002|205 026 346|205 266 374 12; SET2; J10≠; J17;
3346/5: 304 000 020|036|042|205 046 350|052|200 360 000 10; SETB20; -; DUP; J7≥Z; ERASE; EXIT1;
3350/5: 304 000 012|036|042|202 046 353 7; SETB12; -; DUP; J8≥Z;
3352/1: 304 000 012|056|202 266 373 SETB12; +; J20;
3353/2: 304 000 002|203 026 355|052|304 000 230|202 266 373 8; SET2; J9≠; ERASE; SETB230; J20;
3355/3: 304 000 003|204 026 357|052|304 000 301|202 266 373 9; SET3; J18≠; ERASE; SETB301; J20;
3357/4: 304 000 004|205 026 361|052|304 000 321|202 266 373 18; SET4; J13≠; ERASE; SETB321; J20;
3361/5: 304 000 005|200 026 364|052|304 000 013|202 266 373 13; SET5; J11≠; ERASE; SETB13; J20;
3364/0: 304 000 007|036|042|200 046 366|052|200 360 000 11; SET7; -; DUP; J14≥Z; ERASE; EXIT1;
3366/0: 304 000 031|036|042|203 046 370|304 000 045|056|202 266 373 14; SETB31; -; DUP; J15≥Z; SETB45; +; J20;
3370/3: 304 000 077|204 026 372|052|304 000 377|202 266 373 15; SETB77; J16≠; ERASE; SETB377; J20;
3372/4: 052|200 360 000 16; ERASE; EXIT1;
3373/2: 304 000 010|200 330 040|200 360 000 20; SET8; JSP2; EXIT1;
3374/5: 052|304 000 240|202 326 373 17; ERASE; SETB240; JS20;
3376/0: 304 000 001|170 330|200 360 000 SET1; =C13; EXIT1;
3377/2: 164 101|164 301|301 006 300 30; SHL+32; SHL-32; =V14; [ initiate - hux
3400/3: 300 006 271|300 006 272|200 320 106|200 330 076|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;
3403/0: 300 006 275|300 006 274|200 320 106|200 330 076 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
3405/0: 041|033|301 006 303
V-store at 03303 = 000 000 000 000 000 000 ZERO; NOT; =V17; V17=0;
3405/5: 304 000 003 SET3;
3406/2: 304 000 100|011 41; SETB100; OR;
3407/0: 200 320 106|200 330 076 JSE70; JS3P104;
3410/0: 164 023|047|002 SHL+9; STR; =TR;
3410/4: 164 257|222 347 006|301 006 276 SHL-41; J41TR; =V12;
3412/0: 304 000 303|200 320 106|200 330 076 SETB303; JSE70; JS4P104;
3413/3: 304 000 005|220 027 016|304 000 001|222 027 017|200 330 076 SET5; J42=; SET1; J43=; JS5P104;
3416/0: 052|041|301 006 277|202 267 020 42; ERASE; ZERO; =V13; J44;
3417/2: 052|041|033|301 006 277 43; ERASE; ZERO; NOT; =V13;
3420/2: 300 006 300|200 360 000 44; V14; EXIT1;
3421/2: 171 376|301 006 301 31; Q15; =V15; [ write gap hux
3422/1: 300 006 277|225 147 033 V13; J50=Z;
3423/1: 300 006 276|170 370|223 347 024 V12; =C15; J100TR;
3424/3: 121 360|202 347 030 100; PARQ15; J101NTR;
3425/2: 300 006 306|304 000 060|200 330 040
V-store at 03306 = 003 010 162 247 116 100 V20; SET48; JSP2; V20=B0060416251647100; (C PARITY );
3426/5: 200 330 055|223 347 024|203 267 024 JS3P2; J100TR; J100;
3430/2: 017 101; DUMMY;
3430/3: 300 006 302|170 376|304 377 303|101 360|300 006 276|170 370|131 360|205 267 035
V16; =Q15; SET-61; =M0M15; V12; =C15; POBQ15; J51;
3433/5: 300 006 276|170 370|304 000 170|170 362|130 374 50; V12; =C15; SET120; =M15; PGAPQ15;
3435/5: 300 006 301|170 376|200 360 000 51; V15; =Q15; EXIT1;
3437/1: 300 006 303|222 147 043|041|301 006 303 32; V17; J60=Z; ZERO; =V17; [ close - hux
3440/5: 300 006 270|164 041|304 140 003|011|200 320 106|200 330 076 V6; SHL+16; SETB060003; OR; JSE70; JS6P104;
3443/2: 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|017|017|017|044|225 147 066
234; SET97; C10; -; DUP; SET10; ÷I; J213=Z;
3464/4: 200 147 074 J205≠Z;
3465/1: 041|304 000 006|200 330 040|200 267 074 236; ZERO; SET6; JSP2; J205;
3466/5: 304 000 005|017|017|017|017|044|065|052|220 147 072|200 330 055|200 267 074
213; SET5; ÷I; REV; ERASE; J215=Z; JS3P2; J205;
3472/0: 200 330 055|200 330 055|202 327 021|201 267 114 215; JS3P2; JS3P2; JS31P10; J208;
3474/0: 042|204 147 075|052|143 240|205 267 061 205; DUP; J251≠Z; ERASE; DC10; J234;
3475/4: 200 330 111 251; JSP1;
3476/1: 110 240|102 240|304 000 141|170 270 M0M10N; M0M10Q; SET97; =C11;
3477/4: 304 000 141|171 270|036|042|301 007 044|304 000 012 206; SET97; C11; -; DUP; =V0; SET10;
3501/5: 017|044|065|052|200 147 106 ÷I; REV; ERASE; J233≠Z;
3503/0: 041|304 000 014|200 330 040 ZERO; SET12; JSP2;
3504/1: 300 007 044|200 147 106|143 260|204 267 077 V0; J233≠Z; DC11; J206;
3506/0: 047|224 147 107|304 000 021|201 267 110 233; STR; J231=Z; SETB21; J232;
3507/4: 304 000 037 231; SETB37;
3510/1: 304 000 006|200 330 040 232; SET6; JSP2;
3511/1: 166 003|143 260|264 267 077 SHLD+1; DC11; J206C11NZ;
3512/2: 052|052|200 330 055 ERASE; ERASE; JS3P2;
3513/1: 265 247 061|202 267 137 J234C10NZ; J207;
3514/1: 041|304 000 030|200 330 040 208; ZERO; SET24; JSP2;
3515/2: 304 000 011|170 270 SET9; =C11;
3516/1: 304 000 011|171 270|036 209; SET9; C11; -;
3517/1: 042|220 147 124|200 330 111|244 267 124 DUP; J241=Z; JSP1; J210C11Z;
3520/5: 041|304 000 060|200 330 040|041|304 000 022 242; ZERO; SET48; JSP2; ZERO; SET18;
3522/4: 200 330 040|143 260|201 267 116 JSP2; DC11; J209;
3524/0: 052|205 267 120 241; ERASE; J242;
3524/4: 200 330 055|304 000 011|170 270 210; JS3P2; SET9; =C11;
3526/0: 041|304 000 030|200 330 040 ZERO; SET24; JSP2;
3527/1: 304 000 011|171 270|036|300 007 055|304 000 052|066|203 147 132|052|304 000 044
212; SET9; C11; -; V9; SET42; CAB; J243≠Z; ERASE; SET36;
3532/3: 200 330 040|245 267 135|300 007 056|304 000 036 243; JSP2; J211C11Z; V10; SET30;
3534/3: 200 330 040|143 260|201 267 127 JSP2; DC11; J212;
3535/5: 200 330 055|200 330 055|200 267 074 211; JS3P2; JS3P2; J205;
[ original source of the next page
3537/2: 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 1939/3623
P9V50; [ field bit-size/codeaddress to process/fieldname
V-store at 03545 = 000 010 146 220 007 245 V5=Q8/AR20P0/AV18P5;
V-store at 03546 = 000 040 106 234 000 000 V6=Q32/AR50P0/0;
V-store at 03547 = 000 003 106 252 007 336 V7=Q3/AR120P0/AV75P5;
V-store at 03550 = 000 005 006 235 007 253 V8=Q5/AR60P0/AV24P5;
V-store at 03552 = 000 020 246 210 007 223 V10=Q16/AR10P0/AV0P5;
V-store at 03553 = 000 020 106 242 007 224 V11=Q16/AR70P0/AV1P5;
V-store at 03554 = 000 004 146 220 007 226 V12=Q4/AR20P0/AV3P5;
V-store at 03555 = 000 004 146 220 007 227 V13=Q4/AR20P0/AV4P5;
V-store at 03556 = 000 001 046 226 000 000 V14=Q1/AR40P0/0;
V-store at 03557 = 000 001 146 223 007 230 V15=Q1/AR30P0/AV5P5;
V-store at 03560 = 000 001 006 250 007 232 V16=Q1/AR110P0/AV7P5;
V-store at 03561 = 000 001 006 250 007 233 V17=Q1/AR110P0/AV8P5;
V-store at 03562 = 000 001 006 250 007 234 V18=Q1/AR110P0/AV9P5;
V-store at 03563 = 000 001 006 250 007 235 V19=Q1/AR110P0/AV10P5;
V-store at 03564 = 000 001 006 250 007 236 V20=Q1/AR110P0/AV11P5;
V-store at 03565 = 000 001 006 250 007 237 V21=Q1/AR110P0/AV12P5;
V-store at 03566 = 000 010 146 220 007 240 V22=Q8/AR20P0/AV13P5;
V-store at 03567 = 000 002 046 226 000 000 V23=Q2/AR40P0/0;
V-store at 03570 = 000 012 146 220 007 241 V24=Q10/AR20P0/AV14P5;
V-store at 03571 = 000 004 146 220 007 242 V25=Q4/AR20P0/AV15P5;
V-store at 03572 = 000 014 146 220 007 243 V26=Q12/AR20P0/AV16P5;
V-store at 03573 = 000 006 046 226 000 000 V27=Q6/AR40P0/0;
V-store at 03574 = 000 006 246 210 007 244 V28=Q6/AR10P0/AV17P5;
V-store at 03575 = 000 010 106 234 000 000 V29=Q8/AR50P0/0;
V-store at 03576 = 000 010 146 220 007 246 V30=Q8/AR20P0/AV19P5;
V-store at 03577 = 000 006 146 243 007 247 V31=Q6/AR80P0/AV20P5;
V-store at 03600 = 000 012 146 220 007 250 V32=Q10/AR20P0/AV21P5; (+ 31); (+ I think these are wrong for the last word);
V-store at 03601 = 000 010 146 220 007 251 V33=Q8/AR20P0/AV22P5; (+32);
V-store at 03602 = 000 003 106 234 000 000 V34=Q3/AR50P0/0;
V-store at 03603 = 000 005 106 234 000 000 V35=Q5/AR50P0/0; (+Q8/AR20/CGPARAMS+2);
V-store at 03604 = 000 020 046 246 007 254 V36=Q16/AR100P0/AV25P5; (+ down to here )
V-store at 03605 = 000 026 106 234 000 000 V37=Q22/AR50P0/0;
V-store at 03606 = 000 001 006 250 007 255 V38=Q1/AR110P0/AV26P5;
V-store at 03607 = 000 001 146 223 007 256 V39=Q1/AR30P0/AV27P5;
V-store at 03610 = 000 003 206 244 007 260 V40=Q3/AR90P0/AV29P5;
V-store at 03611 = 000 005 006 235 007 261 V41=Q5/AR60P0/AV30P5;
V-store at 03612 = 000 010 146 220 007 262 V42=Q8/AR20P0/AV31P5;
V-store at 03613 = 000 010 146 220 007 263 V43=Q8/AR20P0/AV32P5;
V-store at 03614 = 000 020 046 226 000 000 V44=Q16/AR40P0/0;
V-store at 03615 = 000 010 146 220 007 264 V45=Q8/AR20P0/AV33P5;
V-store at 03616 = 000 010 206 244 007 265 V46=Q8/AR90P0/AV34P5;
=== Start P5V100; at address 2040/3770
P5V100; [ field names
V-store at 03623 = 217 216 070 342 034 044 V0=B4370707070416044;(CCXXXAPD);
V-store at 03624 = 217 216 070 342 033 244 V1=B4370707070415644;(CCXXXAND);
V-store at 03626 = 213 216 070 343 213 263 V3=B4270707070705663;(CBXXXXNS);
V-store at 03627 = 213 216 070 343 214 163 V4=B4270707070706163;(CBXXXXQS);
V-store at 03630 = 213 216 070 343 216 046 V5=B4270707070707046;(CAXXXXXF);
V-store at 03631 = 207 216 070 343 216 062 V6=B4170707070707062;(CAXXXXXR);
V-store at 03632 = 207 216 070 343 216 043 V7=B4170707070707043;(CAXXXXXC);
V-store at 03633 = 207 216 070 343 216 066 V8=B4170707070707066;(CAXXXXXV);
V-store at 03634 = 213 216 070 343 212 141 V9=B4270707070705141;(CBXXXXIA);
[ original source of the next page
V-store at 03635 = 213 216 070 343 212 160 V10=B4270707070705160;(CBXXXXXIP);
V-store at 03636 = 213 216 070 343 212 041 V11=B4270707070705041;(CBXXXXXHA);
V-store at 03637 = 213 216 070 343 214 360 V12=B4270707070706360;(CBXXXXXSP);
V-store at 03640 = 217 216 070 342 051 043 V13=B4370707070424443;(CCXXXXBDC);
V-store at 03641 = 223 216 070 207 030 246 V14=B4470707041614246;(CDXXXAQBF);
V-store at 03642 = 217 216 070 342 354 163 V15=B4370707070566163;(CCXXXXNQS);
V-store at 03643 = 217 216 070 342 154 362 V16=B4370707070466362;(CCXXXXFSR);
V-store at 03644 = 227 216 060 262 033 253 V17=B4570706054415653;(CEXXPLANK);
V-store at 03645 = 213 216 070 343 213 056 V18=B4270707070705456;(CBXXXXXLN);
V-store at 03646 = 223 216 070 226 310 144 V19=B4470707045544144;(CDXXXELAD);
V-store at 03647 = 227 216 060 207 053 163 V20=B4570706041625563;(CEXXPARMS);
V-store at 03650 = 223 216 070 332 154 362 V21=B4470707066466362;(CDXXXVFSR);
V-store at 03651 = 217 216 070 342 030 166 V22=B4370707070414166;(CCXXXXAAV);
V-store at 03652 = 000 000 000 000 000 002 V23=2;
V-store at 03653 = 000 015 000 001 007 266 V24=Q13/1/AV35;
V-store at 03654 = 234 000 000 216 371 045 V25=B4700000043574445;(CG CODE);
V-store at 03655 = 213 216 070 343 212 141 V26=B4270707070705141;(CBXXXXXIA);
V-store at 03656 = 207 216 070 343 216 056 V27=B4170707070707056;(CAXXXXXXN);
V-store at 03657 = 207 216 070 343 216 066 V28=B4170707070707066;(CAXXXXXXV);
V-store at 03660 = 000 000 000 000 000 003 V29=3;
V-store at 03661 = 000 015 000 001 007 266 V30=Q13/1/AV35;
V-store at 03662 = 213 216 070 343 213 056 V31=B4270707070705456;(CBXXXXXLN);
V-store at 03663 = 223 216 070 312 031 267 V32=B4470707062414667;(CDXXXRAFW);
V-store at 03664 = 237 010 162 267 067 122 V33=B4760416255633522;(CGPARMS+2);
V-store at 03665 = 000 000 000 000 000 233 V34=B233;
V-store at 03666 = 007 306 007 306 000 002 V35=QAV51/AV51/2;
V-store at 03667 = 007 307 007 307 000 001 V36=QAV52/AV52/1;
V-store at 03670 = 007 310 007 310 000 003 V37=QAV53/AV53/3;
V-store at 03671 = 007 311 007 312 000 011 V38=QAV54/AV55/B11;
V-store at 03672 = 007 313 007 314 000 012 V39=QAV56/AV57/B12;
V-store at 03673 = 007 315 007 316 000 013 V40=QAV58/AV59/B13;
V-store at 03674 = 007 317 007 320 000 020 V41=QAV60/AV61/B20;
V-store at 03675 = 007 321 007 322 000 021 V42=QAV62/AV63/B21;
V-store at 03676 = 007 323 007 325 000 022 V43=QAV64/AV66/B22;
V-store at 03677 = 007 326 007 331 000 023 V44=QAV67/AV70/B23;
V-store at 03700 = 007 332 007 332 000 030 V45=QAV71/AV71/B30;
V-store at 03701 = 007 333 007 333 000 031 V46=QAV72/AV72/B31;
V-store at 03702 = 007 334 007 334 000 032 V47=QAV73/AV73/B32;
V-store at 03706 = 236 233 264 226 171 162 V51=B4751566445474562;(CGINTEGER);
V-store at 03707 = 223 216 070 312 130 154 V52=B4470707062454154;(CDXXXREAL);
V-store at 03710 = 236 053 357 262 130 156 V53=B4742575754454156;(CGBOOLEAN);
V-store at 03711 = 237 051 141 260 010 162 V54=B4762454154004162;(CGREAL AR);
V-store at 03712 = 217 216 070 343 050 171 V55=B4370707070624171;(CCXXXXRAY);
V-store at 03713 = 236 233 264 226 171 162 V56=B4751566445474562;(CGINTEGER);
V-store at 03714 = 233 200 041 313 050 171 V57=B4670004162624171;(CFX ARRAY);
V-store at 03715 = 236 053 357 262 130 156 V58=B4742575754454156;(CGBOOLEAN);
V-store at 03716 = 233 200 041 313 050 171 V59=B4670004162624171;(CFX ARRAY);
V-store at 03717 = 237 014 257 216 131 065 V60=B4760625743454465;(CGPROCEDU);
V-store at 03720 = 213 216 070 343 214 245 V61=B4270707070706245;(CBXXXXXRE);
V-store at 03721 = 237 051 141 260 014 062 V62=B4762454154006062;(CGREAL PR);
V-store at 03722 = 236 370 345 223 134 245 V63=B4757434544656245;(CGOCEDURE);
V-store at 03723 = 236 233 264 226 171 162 V64=B4751566445474562;(CGINTEGER);
V-store at 03724 = 234 014 062 276 071 144 V65=B4700606257434544;(CG PROCED);
V-store at 03725 = 217 216 070 343 134 245 V66=B4370707070656245;(CCXXXXURE);
V-store at 03726 = 236 053 357 262 130 156 V67=B4742575754454156;(CGBOOLEAN);
V-store at 03730 = 234 014 062 276 071 144 V69=B4700606257434544;(CG PROCED);
V-store at 03731 = 217 216 070 343 134 245 V70=B4370707070656245;(CCXXXXURE);
[ original source of the next page
V-store at 03732 = 233 214 367 247 110 350 V71=B4670636751644350;(CFXSWITCH);
V-store at 03733 = 227 216 054 206 051 154 V72=B4570705441424554;(CEXXLABEL);
V-store at 03734 = 233 214 364 312 233 247 V73=B4670636462515647;(CFXSTRING);
V-store at 03735 = 233 211 162 312 374 200 V74=B4670456262576200;(CPXERROR );
V-store at 03736 = 207 216 070 343 216 046 V75=B4170707070707046;(CAXXXXXXP);
=== Start P4V4; at address 2045/3775
P4V4;
3775/0: 171 116|301 007 371|041 Q4; =V1; ZERO;
3776/0: 042|301 007 373|301 007 374 DUP; =V3; =V4;
3777/1: 041|166 061|042|200 150 001|052|205 270 014 ZERO; SHLD+24; DUP; J1≠Z; ERASE; J2;
4001/0: 300 007 370|065|067|300 007 374|220 150 005|300 007 372|011|304 000 060|200 330 040|203 270 016
1; V0; REV; FRB; V4; J6=Z; V2; OR; SET48; JSP2; J5;
4005/0: 041|033|301 007 374|304 000 010|170 110|042 6; ZERO; NOT; =V4; SET8; =C4; DUP;
4006/5: 164 365|143 100|042|224 150 010|265 110 006 3; SHL-6; DC4; DUP; J4=Z; J3C4NZ;
4010/4: 052|300 007 372|011|304 000 010|171 110|036|304 000 006|034|050|200 330 040|300 007 373|203 150 016
4; ERASE; V2; OR; SET8; C4; -; SET6; ×D; CONT; JSP2; V3; J5≠Z;
4014/5: 164 321|041|033|301 007 373|200 270 001 2; SHL-24; ZERO; NOT; =V3; J1;
4016/3: 300 007 371|170 116|200 360 000 5; V1; =Q4; EXIT1;
V-store at 03770 = 040 202 010 040 202 010 V0=B1010101010101010;
V-store at 03771 = 000 000 000 000 000 000 V1=0;
V-store at 03772 = 101 004 020 101 004 020 V2=B2020202020202020;(COOOOOOOO);
V-store at 03773 = 000 000 000 000 000 000 V3=0;
=== Start P3V-1; at address 2064/4020
P3;
4020/0: 042|164 255|304 000 040|036|042|203 050 022|052|200 270 026 DUP; SHL-42; SETB40; -; DUP; J1≥Z; ERASE; JP6;
4022/3: 304 000 006|034|050|200 330 040|200 360 000 1; SET6; ×D; CONT; JSP2; EXIT1;
=== Start P6V0; at address 2070/4026
P6V0;
4026/0: 171 116|301 010 025|170 116 Q4; =V0; =Q4;
4027/1: 171 102|171 104|036|033|027|170 110 M4; I4; -; NOT; NEG; =C4;
4030/4: 171 104|170 102|144 100 I4; =M4; I4=+1;
4031/4: 102 100|200 330 020|264 110 031|300 010 025|170 116|200 360 000
1; M0M4Q; JSP3; J1C4NZ; V0; =Q4; EXIT1;
=== Start P2V2; at address 2080/4040
P2V2;
4040/0: 042|301 010 035 1; DUP; =V0;
4040/4: 304 000 060|065|036|170 370|164 360 SET48; REV; -; =C15; SHLC15;
4042/1: 300 010 036|304 000 060|017|017|017|017|017|044|027|170 371 4; V1; SET48; ÷I; NEG; =RC15;
4044/4: 170 362|300 010 037|172 362 =M15; V2; =+M15;
4045/5: 041|065|166 360 ZERO; REV; SHLDC15;
4046/3: 100 360|011|101 360|111 360 M0M15; OR; =M0M15; =M0M15N;
4047/4: 300 010 035|300 010 036|056|301 010 036 V0; V1; +; =V1;
4051/2: 200 360 000 EXIT1;
4051/5: 042|301 010 037|170 362 2; DUP; =V2; =M15;
4052/5: 041|042|101 360|111 360 ZERO; DUP; =M0M15; =M0M15N;
4053/5: 041|301 010 036|200 360 000 ZERO; =V1; EXIT1;
4055/0: 041|033|201 330 042 3; ZERO; NOT; JS4;
4055/5: 110 360|200 150 057 M0M15N; J5≠Z;
4056/4: 141 360 M-I15;
4057/0: 304 360 002|111 360 5; SETB170002; =M0M15N;
4057/5: 140 360|300 010 037|170 364|304 340 303|170 370 M+I15; V2; =I15; SETB160303; =C15;
4061/5: 171 376|167 041|200 326 307|200 330 076 Q15; SHC+16; JSP10; JSP104;
4063/3: 164 101|164 301|205 270 051 SHL+32; SHL-32; J2;
4064/4: 300 010 036|304 000 110|017|017|044|065|052 6; (TAB); V1; SET72; ÷I; REV; ERASE; [ 78, printer fault 72 is a guess
4066/3: 304 000 110|065|036 SET72; REV; -;
4067/2: 304 000 060|036|042|223 110 072 SET48; -; DUP; J7>Z;
4070/4: 304 000 060|056 SET48; +;
4071/2: 301 010 035|041|201 270 042 8; =V0; ZERO; J4;
4072/3: 202 330 071|304 000 060|202 270 071 7; JS8; SET48; J8;
=== Start P104V1; at address 2110/4076
P104V1;
1;2;3;4;5;6;7;8;9;10;11;12;
13;14;15;16;17;18;19;20;
4076/0: 173 000|301 010 074 LINK; =V0;
4076/5: 320 013 070|033|164 003|164 377|033|321 013 070 Z39; NOT; SHL+1; SHL-1; NOT; =Z39;
4100/5: 300 010 075|200 260 106 V1; JE70;
[ original source of the next page
V-store at 04075 = 000 000 006 125 336 010 V1=Q0/B3125/B157010;
=== Start P1V6; at address 2121/4111
P1V6;
V-store at 04102 = 200 000 000 000 000 000 V0=B1/0;
V-store at 04103 = 171 025 020 135 065 324 V1=B3621242027232724;(C-1407374);
V-store at 04104 = 141 204 325 125 064 230 V2=B3030232525232230;(C88355328);
V-store at 04105 = 000 000 000 000 000 000 V3=0;
V-store at 04106 = 000 000 005 365 341 000 V4=100000000;
V-store at 04107 = 050 242 212 050 242 212 V5=B1212121212121212;
V-store at 04110 = 101 004 020 101 004 020 V6=B2020202020202020;(COOOOOOOO);
4111/0: 300 010 102|204 030 115 V0; J1≠;
4112/0: 300 010 103|304 000 060|200 330 040 V1; SET48; JSP2;
4113/3: 300 010 104|304 000 060|200 330 040|052|200 360 000 V2; SET48; JSP2; ERASE; EXIT1;
4115/4: 042|200 050 120|027|304 000 036|304 000 006 1; DUP; J2≥Z; NEG; SETB36; SET6;
4117/3: 200 330 040 JSP2;
4120/0: 001|300 010 106|032|201 210 123 2; VR; V4; MAX; J3NV;
4121/2: 065|017|017|017|044|301 010 105|201 270 124 REV; ÷I; =V3; J4;
4123/1: 041|033|301 010 105|052 3; ZERO; NOT; =V3; ERASE;
4124/1: 300 010 107|065|067|042|202 150 126 4; V5; REV; FRB; DUP; J6≠Z;
4125/4: 052|304 000 020 ERASE; SETB20;
4126/2: 042|154 016|001 6; DUP; C0TOQ14; VR;
4127/0: 161 015|143 340|200 210 127 7; SHA+6; DC14; J7NV;
4130/1: 052|300 010 110|011 ERASE; V6; OR;
4131/0: 304 000 011|171 350|056|304 000 006|034 SET9; C14; +; SET6; ×D;
4132/4: 050|200 330 040 CONT; JSP2;
4133/2: 300 010 105|222 050 137 V3; J8<Z;
4134/2: 300 010 105|300 010 107|065|067|300 010 110 V3; V5; REV; FRB; V6;
4136/1: 011|304 000 060|200 330 040 OR; SET48; JSP2;
4137/2: 200 360 000 8; EXIT1;
=== Start P-1V-1; at address 2144/4140
Finished
FINISH;
Reached end of file