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. Not all the pages have yet been converted.

Loaded 13736 bytes for DavidHu/KAB24.txt
Specifying Y0 leaves gap of 480 words
Relocated 480
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 P305V-1; at address 2144/4140
 4140/0: 171 376                                                       P305; Q15; (print Z-stores); [extended to cover call matrix - hux
 4140/2: 304 000 072|164 041|304 011 140|011                                 SETB72; (Z); SHL+16; SET2400; OR;  (start of print at Z0);
 4141/5: 304 053 137|170 365|304 041 377|170 370|171 376|304 000 106|200 220 000
                                                                             SETAZ0; =RI15; SETAZ2400; =C15; Q15; SET70; OUT;
 4144/5: 170 376                                                       	=Q15;
 4145/1: 200 360 000                                                      EXIT1;
=== Start P300V-1; at address 2150/4146
                                                                       P300; (print YZ stores);
 4146/0: 171 376                                                       	Q15;
 4146/2: 304 016 172|164 041                                                 SETB7172; (YZ); SHL+16; (start of print at YZ0);
 4147/1: 304 015 044|170 365|304 014 300|170 370|171 376|304 000 106|200 220 000|170 376
                                                                             SETAYZ100; =RI15; SETAYZ0; =C15;Q15; SET70; OUT; =Q15;
 4152/3: 200 360 000                                                   	EXIT1;

=== Start P301V-1; at address 2155/4153
                                                                       P301; (print YY stores);
 4153/0: 171 376|304 016 171|164 041                                         Q15; SETB7171; (YY); SHL+16; (start of print at YY0);
 4154/1: 304 013 300|164 041|304 012 300|011|164 041|304 000 106|200 220 000|170 376
                                                                             SETAYY256; SHL+16; SETAYY0; OR; SHL+16; SET70; OUT; =Q15;
 4157/2: 200 360 000                                                      EXIT1;


=== Start P-1V-1; at address 2160/4160
Finished
                                                                       FINISH;
Reached end of file