Kidsgrove Algol Compiler - Brick 42

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 42.
Hot links to images of individual pages are embedded in the text. Not all the pages have yet been converted.

Loaded 9034 bytes for DavidHu/KAB42.txt
Relocated 1
Finished
Reached end of file


=============== Second pass
===========================


   3546  W0 = E1894
  16540  Y0 = E7520
   3546 YA0 = E1894
  13407 YC0 = E5895
  14540 YY0 = E6496
  15540 YZ0 = E7008


    0/0: 200 266 100                                                   [ original source of the next page

                                                                       ST11104; TL600; START1600;
                                                                       [Y0=E8000; [hux
                                                                       V; [W; [hux
                                                                       YA4000 ; YC600  ;
                                                                       YY511  ; YZ511  ;
    4/0: 203 266 111|203 266 111                                       RESTART; J1   ; J1   ;
                                                                       PROGRAM;

                                                                       	[ JSP902;	[hux diag
 3100/0: 200 326 301|200 327 117                                             JSP850;  JSP886;

 3101/0: 320 013 071|164 003|222 046 103                                     Z38; SHL1; J3<Z;[ test TRACE bit rather than TEXT
 3102/2: 304 005 220|201 266 107                                             SETB2620; J2;
 3103/2: 304 004 224|320 013 125|164 341|164 041                       3;      SETB2224; Z10; SHL-16; SHL+16;
 3105/0: 304 005 220|304 000 001|164 035|011|011|321 013 125                 SETB2620; SET1; SHL+14; OR; OR; =Z10;	[fix to ask for Call Matrix and not the LP hux
                                                                             [SETB102620; SHL+32; SHL-32; OR; =Z10;
 3107/1: 170 024|154 001|304 336 010|170 022                           2;      =I1; C0TOQ1; SETB157010; =M1;
 3110/4: 171 036|200 260 106                                                  Q1; JE70;
 3111/3: 320 013 070|223 046 113                                       1;      Z39; J4<Z;
 3112/3: 304 017 312|200 266 251                                             SET4042; JP7;
 3113/3: 304 006 125|201 266 107                                       4;      SETB3125; J2;

=== Start P904V-1; at address 1613/3115
                                                                       P904;
 3115/0: 171 376                                                       	Q15;
                                                                             (print Y stores);
 3115/2: 304 000 071|164 041                                                 SETB71; (Y); SHL+16; (start of print at Y0);
 3116/1: 304 036 137|170 365|304 035 140|170 370|171 376|304 000 106|200 220 000
                                                                             SETAY255; =RI15; SETAY0; =C15; Q15; SET70; OUT;
 3121/1: 170 376                                                       	=Q15;
                                                                       (MRWDQ15;)
 3121/3: 200 360 000                                                   	EXIT1;

=== Start P903V-1; at address 1618/3122
                                                                       P903;
 3122/0: 171 376                                                       	Q15;
                                                                             (print YZ stores);
 3122/2: 304 016 172|164 041                                                 SETB7172; (YZ); SHL+16; (start of print at YZ0);
 3123/1: 304 034 137|170 365|304 033 140|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYZ255; =RI15; SETAYZ0; =C15; Q15; SET70; OUT;
 3126/1: 170 376                                                       	=Q15;
                                                                       (MRWDQ15;)
 3126/3: 200 360 000                                                   	EXIT1;
=== Start P902V-1; at address 1623/3127
                                                                       P902;
 3127/0: 171 376                                                       	Q15;
                                                                             (print YA stores);
 3127/2: 304 016 141|164 041                                                 SETB7141; (YA); SHL+16; (start of print at YA0);
 3130/1: 304 027 006|170 365|304 007 146|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYA4000; =RI15; SETAYA0; =C15; Q15; SET70; OUT;
                                                                             (print YC stores);
 3133/1: 304 016 143|164 041                                                 SETB7143; (YC); SHL+16; (start of print at YC0);
 3134/0: 304 031 137|170 365|304 027 007|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYC600; =RI15; SETAYC0; =C15; Q15; SET70; OUT;
 3137/0: 170 376                                                       	=Q15;
                                                                       (MRWDQ15;)
 3137/2: 200 360 000                                                   	EXIT1;

=== Start P2V8; at address 1641/3151
V-store at 03140 = 033 140 034 137 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03141 = 034 140 035 137 000 000                                   V1=QAYZ256/AYZ511/0; (BUFFER 2);
V-store at 03144 = 242 104 243 304 140 004                                   V4=B5044224361060004; (F/B/C);   []]
V-store at 03145 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
V-store at 03146 = 000 000 000 000 110 004                                   V6=B44004; (CBN);                []]
V-store at 03150 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 3151/0: 300 006 142                                                         V2; (FETCH NEXT WORD NORMAL FNTRV);
 3151/3: 170 376|243 366 164                                           10;      =Q15; J7C15Z;
 3152/2: 102 360|171 376                                                     M0M15Q; Q15;
 3153/0: 301 006 142|041|301 006 143                                   14;       =V2; ZERO; =V3;
 3154/1: 200 360 000                                                         EXIT1; (NORMAL EXIT);
                                                                             (INITIAL ENTRY FORWARDS READ);
 3154/4: 300 006 141|300 006 144|170 376|171 370                       1;      V1; V4; =Q15; C15;
 3156/2: 300 006 140|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 3160/2: 204 266 166|200 326 122                                             J13; JSP903; [hux diag
 3161/2: 300 006 146|200 320 106                                             V6; JSE70;
 3162/2: 204 266 166                                                         J13;
 3162/5: 301 006 147|042|200 146 153|204 266 166                             =V7; DUP; J14≠Z; J13;
 3164/3: 300 006 145|200 320 106                                       7;      V5; JSE70;
 3165/3: 204 266 166                                                         J13;
 3166/0: 042|203 146 151                                               8;      DUP; J10≠Z;
 3166/4: 304 037 316|200 266 251                                       13;      SET8142; JP7; (FAILURE);
                                                                             (INITIA1 ENTRY BACKWARDS READ);
 3167/4: 300 006 141|300 006 144|170 376|171 364|202 266 156           2;      V1; V4; =Q15; I15; J6;
                                                                             (CLOSE);
 3171/5: 204 326 154|320 013 125|164 301|164 041|304 152 004|011|200 320 106|204 266 166
                                                                       16;      JS1; Z10; SHL-32; SHL+16; SETB65004; OR; JSE70; J13;
 3175/1: 203 266 164                                                         J7;
 3175/4: 300 006 144|200 320 106                                       3;      V4; JSE70;
 3176/4: 204 266 166                                                         J13;
 3177/1: 200 360 000                                                         EXIT1;
 3177/4: 300 006 141|304 242 204|202 266 156                           15;      V1; SETB121204; J6;
                                                                             (INITIAL EHTRY FOR FETCH PREVIOUS WORD);
 3201/1: 300 006 142|170 376|171 364|027|170 364|140 360|140 360       4;      V2; =Q15; I15;NEG; =I15; M+I15; M+I15; [hux
 3203/3: 205 266 204                                                         J9;
                                                                             (NORMAL ENTRY POR FETCH PREVIOUS WORD);
 3204/0: 300 006 143|170 376                                           5;      V3; =Q15;
 3204/5: 102 360|171 376|301 006 143|200 360 000                       9;      M0M15Q; Q15; =V3; EXIT1;
                                                                             (WHAT IS CURRANT POSITION);
 3206/3: 300 006 146|200 320 106                                       11;      V6; JSE70;
 3207/3: 204 266 166                                                         J13;
 3210/0: 300 006 147|036|304 000 377|042|300 006 142                         V7; -; SETB377; DUP; V2;
                                                                       [ original source of the next page
 3211/5: 054|012|054|164 021|011                                             AND; PERM; AND; SHL+8; OR;
 3212/5: 200 360 000                                                         EXIT1;
                                                                             (SKIP TO GIVEN BLOCK);
 3213/2: 042|164 361|300 006 147|056|300 006 150                       12;      DUP; SHL-8; V7; +; V8;
 3215/0: 170 376|170 364|171 376|200 320 106                                 =Q15; =I15; Q15; JSE70;
 3216/3: 204 266 166                                                         J13;
 3217/0: 167 361|164 361|167 021|300 006 145|200 320 106                     SHC-8; SHL-8; SHC+8; V5; JSE70;
 3221/0: 204 266 166                                                         J13;
 3221/3: 170 376|042|171 362|036|027                                         =Q15; DUP; M15; -; NEG;
 3222/4: 172 370|170 362|171 376|301 006 142|200 360 000                     =+C15; =M15; Q15; =V2; EXIT1;

=== Start P6V6; at address 1692/3234
V-store at 03225 = 031 140 032 137 242 105                             P6V6;      V0=QAYY0/AYY255/B121105;
V-store at 03226 = 032 140 033 137 000 000                                   V1=QAYY256/AYY511/0;
V-store at 03227 = 000 000 000 000 000 000                                   V2=0;
V-store at 03230 = 000 000 000 000 340 005                                   V3=B160005;
V-store at 03231 = 000 000 000 000 140 105                                   V4=B60105;
V-store at 03232 = 000 000 175 004 072 321                                   V5=B17501035321;
 3234/0: 300 006 227                                                         V2;
 3234/3: 170 376|103 360|243 366 241                                   2;      =Q15;=M0M15Q; J4C15Z;
 3235/4: 171 376                                                             Q15;
 3236/0: 301 006 227|200 360 000                                       7;      =V2; EXIT1;
 3237/0: 300 006 226|300 006 225                                       1;      V1; V0;
 3240/0: 200 320 106|200 266 244|200 266 236                                 JSE70; J6; J7;
 3241/3: 300 006 230|200 320 106|200 266 244|301 006 227               4;      V3; JSE70; J6; =V2;
 3243/3: 200 360 000                                                         EXIT1;
 3244/0: 304 040 062|200 266 251                                       6;      SET8242; JP7;(FAILURE);
 3245/0: 300 006 227|170 365|300 006 231|170 362                       3;      V2; =RI15; V4; =M15;
 3246/4: 171 376|200 320 106|200 266 244|200 360 000                         Q15; JSE70; J6; EXIT1;

=== Start P7V-1; at address 1705/3251
 3251/0: 170 365                                                       P7;      =RI15;
 3251/2: 320 013 070|041|033|047                                             Z39; ZERO; NOT; STR;
 3252/2: 015|011|321 013 070                                                 NEV; OR; =Z39;
 3253/1: 304 000 200|170 362                                                 SETB200; =M15;
 3254/0: 171 376|200 260 106                                                 Q15; JE70;
=== Start P3V-1; at address 1709/3255
                                                                       P3;      (SEARCH LEVEL PARAMETERS FOR A LEVEL L);
 3255/0: 041|170 323|304 000 377|167 361|065                                 ZERO; =RM13; SETB377; SHC-8; REV;   []]
 3256/3: 320 333 055|170 336|171 324|042|170 322                       1;      Z50M13; =Q13; I13; DUP; =M13;
 3260/1: 203 146 261                                                         J2≠Z;
 3260/4: 065|052|200 360 000                                                 REV; ERASE; (NONE EXIST N1=L); EXIT1;
 3261/3: 043|320 333 053|015|054|203 146 256                           2;      DUPD; Z52M13; NEV; AND; J1≠Z;
 3263/0: 065|052|202 360 001                                                 REV; ERASE; (N1=L; M13=ALP 0F L); EXIT2;
=== Start P830V-1; at address 1716/3264
                                                                       P830;      (FIND PIR);
 3264/0: 041|065|042|304 240 000                                             ZERO; REV; DUP; SETB120000;
 3265/0: 042|066|054|015|164 101|220 146 277                                 DUP; CAB; AND; NEV; SHL+32; J1=Z;
 3266/3: 310 015 143|170 351                                                 Y3; =RC14;
 3267/2: 262 346 272                                                   2;      J3C14NZ;
 3267/5: 200 326 127|200 326 122|200 326 115|304 004 166|200 266 251         JSP902; JSP903; JSP904; SET1142; JP7; (NO PIR); [hux diagnostic

 3272/2: 312 347 007|042|012                                           3;      YC0M14Q; DUP; PERM;
 3273/1: 164 301|225 026 274                                                 SHL-32; J4=;
 3274/0: 065|052|202 266 267                                                 REV; ERASE; J2;
 3274/5: 052|065|052|042                                               4;      ERASE; REV; ERASE; DUP;
 3275/3: 164 101|164 301|065|164 041|164 301                                 SHL+32; SHL-32; REV; SHL+16; SHL-32;
 3277/0: 164 107|164 273|200 360 000                                   1;      SHL+35; SHL-35; EXIT1;
=== Start P850V-1; at address 1729/3301
 3301/0: 200 326 127|204 326 167|200 326 237|304 027 007|304 007 147   P850;   JSP902;   JS2P2; JS1P6; SETAYC0; SETAYA1; [hux diag
 3303/3: 036|311 015 162                                                     -; =Y18;
 3304/1: 200 326 151|042|304 001 377|054|304 001 234                         JSP2; DUP; SETB777; AND; SETB634;
 3306/0: 015|224 146 307                                                     NEV; J1=Z;
 3306/4: 304 000 216|200 266 251                                             SET0142; JP7; (FIRST WORD NOT END PROG);
 3307/4: 200 326 234|200 326 151|042|304 000 377|054                   1;      JSP6; JSP2; DUP; SETB377; AND;
 3311/3: 304 000 236|015|224 146 313                                         SETB236; NEV; J2=Z;
                                                                       [ original source of the next page
 3312/4: 304 000 362|200 266 251                                             SET0242; JP7; (SECOND WORD NOT HD);
 3313/4: 311 015 161                                                   2;      =Y17;
 3314/1: 310 015 161|164 301|203 146 340                               3;      Y17; SHL-32; J30≠Z;
 3315/3: 200 326 151|042|304 001 377|054|304 001 214                         JSP2; DUP; SETB777; AND; SETB614;  []]
 3317/2: 015|220 146 321                                                     NEV; J4=Z;
 3320/0: 304 001 126|200 266 251                                             SET0342; JP7; (LAST WORD NOT BEGIN PROG);
 3321/0: 200 326 234|204 326 175|200 326 245                           4;      JSP6; JS3P2; JS3P6;
 3322/3: 304 344 004|200 320 106|203 266 324|203 266 325                     SETB162004; JSE70; J5; J6;
 3324/3: 304 001 272|200 266 251                                       5;      SET0442; JP7; (FAIL TO INTERCHANGE);
 3325/3: 204 326 167|200 326 237                                       6;      JS2P2; JS1P6;
 3326/3: 200 326 151|042|304 001 377|054|304 001 214                         JSP2; DUP; SETB777; AND; SETB614;
 3330/2: 015|220 146 332                                                     NEV; J7=Z;
 3331/0: 304 002 036|200 266 251                                             SET0542; JP7; (WRONG WORD ON BK D READ);
 3332/0: 200 326 234|200 326 151|042|304 001 377|054                   7;      JSP6; JSP2; DUP; SETB777; AND;
 3333/5: 304 001 234|015|200 146 332                                         SETB634; NEV; J7≠Z;
 3335/0: 200 326 234|200 326 245|204 326 175                                 JSP6; JS3P6; JS3P2;      []]
 3336/3: 304 344 004|200 320 106|203 266 324                                 SETB162004; JSE70; J5;
 3340/0: 200 360 000                                                         EXIT1;
 3340/3: 304 000 001|311 015 140                                       30;      SET1; =Y0;
 3341/3: 310 015 161|164 041|164 301|311 015 141                             Y17; SHL+16; SHL-32; =Y1;
 3343/1: 200 326 151|170 031                                                 JSP2; =RC1;
 3344/0: 240 026 346                                                   32;      J31C1Z;
 3344/3: 200 326 151|313 027 007|200 266 344                                 JSP2; =YC0M1Q; J32;
 3346/0: 200 326 151|170 030                                           31;      JSP2; =C1;
 3346/5: 245 026 350                                                   33;      J34C1Z;
 3347/2: 200 326 151|313 027 007|205 266 346                                 JSP2; =YC0M1Q; J33;
 3350/5: 304 031 140|304 027 010|036|171 022|036                       34;      SETAYY0; SETAYC1; -; M1; -;
 3352/3: 200 046 354                                                         J25≥Z;
 3353/0: 304 004 332|200 266 251                                             SET1242; JP7; (NQT ENOUGH ROOM POR EC);
 3354/0: 171 022|042|311 015 143|170 031                               25;      M1; DUP; =Y3; =RC1;
 3355/2: 244 027 005                                                   35;      J41C1Z;
 3355/5: 310 027 007|042|042                                                 YC0M1; DUP; DUP;
 3356/4: 164 301|311 015 151                                                 SHL-32; =Y9;
 3357/3: 164 041|164 301|311 015 150                                         SHL+16; SHL-32; =Y8;
 3360/4: 164 101|164 301|311 015 147                                         SHL+32; SHL-32; =Y7;
 3361/5: 304 040 000|042|310 015 151|054|015                                 SETB20000; DUP; Y9; AND; NEV;
 3363/2: 202 146 367                                                         J37≠Z;
 3363/5: 310 015 147|310 015 150|164 041|011|310 015 151               36;      Y7; Y8; SHL+16; OR; Y9;
 3365/5: 164 101|011|313 027 007                                             SHL+32; OR; =YC0M1Q;
 3366/5: 202 266 355                                                         J35;
 3367/2: 304 040 000|042|310 015 150|054                               37;      SETB20000; DUP; Y8; AND;
 3370/4: 015|225 146 363                                                     NEV; J36=Z;
 3371/2: 310 015 143|170 051                                                 Y3; =RC2;
 3372/1: 264 046 373                                                   38;      J39C2NZ;
 3372/4: 304 002 202|200 266 251                                             SET0642; JP7; (TIR NOT GIVEN PIR);
 3373/4: 310 047 007|042|164 301|311 015 154                           39;      YC0M2; DUP; SHL-32; =Y12;
 3375/1: 042|164 041|164 301|311 015 153                                     DUP; SHL+16; SHL-32; =Y11;
 3376/3: 164 101|164 301|311 015 152                                         SHL+32; SHL-32; =Y10;
 3377/4: 310 015 154|310 015 150|015|223 147 002                             Y12; Y8; NEV; J40=Z;
 3401/2: 140 040|143 040|201 266 372                                         M+I2; DC2; J38;
 3402/3: 310 015 147|310 015 152|056|311 015 147                       40;      Y7; Y10; +; =Y7;
 3404/1: 310 015 153|311 015 150|202 266 367                                 Y11; =Y8; J37;
 3405/4: 200 326 151|042|304 000 377|054|304 000 236                   41;      JSP2; DUP; SETB377; AND; SETB236;
 3407/3: 015|221 147 011                                                     NEV; J42=Z;
 3410/1: 304 002 346|200 266 251                                             SET0742; JP7; (1ST WORD AFTER EC NOT HD);
 3411/1: 042|164 041|164 301|310 015 141|036                           42;      DUP; SHL+16; SHL-32; Y1; -;
 3412/4: 221 147 014                                                         J43=Z;
 3413/1: 304 003 112|200 266 251                                             SET0842; JP7; (LEV NO OF HD NOT SAME);
 3414/1: 224 047 015                                                   43;      J44<Z;
 3414/4: 304 003 256|200 266 251                                             SET0942; JP7; (HD1 NOT NEGATIVE);
                                                                       [ original source of the next page
 3415/4: 310 015 141|164 121|304 007 372|011|200 326 255               44;      Y1; SHL+40; SET2042; OR; JSP3;
 3417/4: 200 266 251                                                         JP7;
 3420/1: 052|320 333 054|164 061|164 271|311 015 146                         ERASE; Z51M13; SHL+24; SHL-36; =Y6;
 3422/0: 310 015 162|170 123                                           45;      Y18; =RM5;
 3422/5: 041|170 330                                                   46;      ZERO; =C13;
 3423/2: 242 327 026                                                   47;      J49C13Z;
 3423/5: 171 122|310 015 162|036|221 147 035                                 M5; Y18; -; J48=Z;
 3425/2: 302 127 146|205 267 026                                             YA0M5Q; J62;
 3426/2: 200 326 151                                                   49;      JSP2;
 3426/5: 042|304 000 377|054|304 000 366|220 027 043                   62;      DUP; SETB377; AND; SETB366; J50=;
 3430/4: 304 000 236|015|200 147 060                                         SETB236; NEV; J54≠Z;
 3431/5: 311 015 161                                                         =Y17;
 3432/2: 171 122|310 015 162|036|221 147 035                                 M5; Y18; -; J48=Z;
 3433/5: 304 000 001|170 330|202 267 023                                     SET1; =C13; J47;
 3435/1: 310 015 141|164 121|304 010 136|011|200 326 255               48;      Y1; SHL+40; SET2142; OR; JSP3;
 3437/1: 200 266 251                                                         JP7;
 3437/4: 052|310 015 140|033|027|320 333 054                                 ERASE; Y0; NOT; NEG; Z51M13;
 3441/1: 164 365|164 015|011|321 333 054|201 266 314                         SHL-6; SHL+6; OR; =Z51M13; J3;
 3443/0: 052|164 361|311 015 157|264 327 054                           50;      ERASE; SHL-8; =Y15; J53C13NZ;
 3444/3: 041|170 303                                                         ZERO; =RM12;
 3445/0: 200 326 151|042|304 000 377|054                               63;      JSP2; DUP; SETB377; AND;
 3446/2: 304 000 236|015|223 147 050                                         SETB236; NEV; J51=Z;
 3447/3: 303 307 146|200 267 045                                             =YA0M12Q; J63;
 3450/3: 311 015 161|171 302|170 310|145 300|140 300                   51;      =Y17; M12; =C12; I12=-1; M+I12;
 3452/2: 244 307 054                                                   52;      J53C12Z;
 3452/5: 141 120                                                             M-I5;
 3453/1: 302 307 146|301 127 146|202 267 052                                 YA0M12Q; =YA0M5; J52;
 3454/4: 310 015 161|164 041|164 301|310 015 157|036                   53;      Y17; SHL+16; SHL-32; Y15; -;
 3456/3: 225 147 022                                                         J46=Z;
 3457/0: 304 004 022|200 266 251                                             SET1042; JP7; (HD AND TN DO NOT AGREE);
 3460/0: 042|167 361|204 047 073                                       54;      DUP; SHC-8; J55≥Z;
 3461/0: 042|304 000 377|054|304 000 212                                     DUP; SETB377; AND; SETB212;
 3462/2: 015|223 147 065                                                     NEV; J58=Z;
 3463/0: 200 326 234|202 267 023                                       57;      JSP6; J47;
 3464/0: 167 361|164 321|167 341|200 267 063                           67;      SHC-8; SHL-24; SHC-16; J57;
 3465/3: 042|167 357|220 047 064                                       58;      DUP; SHC-9; J67<Z;
 3466/3: 244 327 072                                                         J65C13Z;
 3467/0: 302 127 146                                                         YA0M5Q;
 3467/3: 042|304 000 377|054|304 000 030                               64;      DUP; SETB377; AND; SETB30;
 3470/5: 015|204 147 077                                                     NEV; J59≠Z;
 3471/3: 065|200 326 234|200 267 063                                         REV; JSP6; J57;
 3472/4: 200 326 151|203 267 067                                       65;      JSP2; J64;
 3473/4: 042|304 000 234|054|304 000 020|015|220 147 063               55;      DUP; SETB234; AND; SETB20; NEV; J57=Z;
 3475/4: 042|222 047 110                                                     DUP; J60<Z;
 3476/2: 042|220 107 063                                                     DUP; J57>Z;
 3477/0: 052|202 267 023                                                     ERASE; J47;
 3477/4: 042|164 073|164 257|203 147 107                               59;      DUP; SHL+29; SHL-41; J61≠Z;
 3501/0: 065|041|033|047|015|011                                             REV; ZERO; NOT; STR; NEV; OR;
 3502/0: 164 301|200 326 264|042|310 015 140|032                             SHL-32; JSP830; DUP; Y0; MAX;
 3503/4: 311 015 140|001|052|065|164 101                                     =Y0; VR; ERASE; REV; SHL+32;
 3505/0: 066|056|065|164 123|164 307                                         CAB; +; REV; SHL+41; SHL-29;
 3506/1: 011|304 000 001|164 025|011|042                                     OR; SET1; SHL+10; OR; DUP;
 3507/3: 065|052|200 267 063                                           61;      REV; ERASE; J57;
 3510/2: 042|164 003|220 047 063                                       60;      DUP; SHL+1; J57<Z;
 3511/2: 042|164 301|200 326 264|065|052                                     DUP; SHL-32; JSP830; REV; ERASE;
 3512/4: 042|310 015 140|032|311 015 140|001                                 DUP; Y0; MAX; =Y0; VR;
 3514/1: 052|310 015 146|056|065                                             ERASE; Y6; +; REV;
 3515/1: 164 041|011|167 341|200 267 063                                     SHL+16; OR; SHC-16; J57;



                                                                       [ This would never have worked - the level number was incorrectly shifted SHL+39.
                                                                       [ for each level number it looks at the call matrix to see if there is an entry
                                                                       [ which says that the level calls another - if so it gets that level's parameters
                                                                       [ to see if it uses Q-stores and …
                                                                       [ I think this is uneccessary - if each proc saves the Q-stores that it is going to use
                                                                       [ there is no need to bother with the Q-stores that a called proc is going to use. since it
                                                                       [ will be doing the same (save Q on entry)- hux 26/6/2017

=== Start P886V-1; at address 1871/3517
 3517/0: 304 000 140|170 031                                           P886;      SET96; =RC1;
 3517/5: 320 013 123|304 053 055|056|170 142                                 Z12; SETAZ50; +; =M6;
                                                                       [ original source of the next page
 3521/2: 304 000 140|170 051|146 040                                   1;      SET96; =RC2; I2=+2;
 3522/3: 041|311 015 140                                                     ZERO; =Y0;
 3523/1: 110 046|102 046                                               2;      M6M2N; M6M2Q;
 3523/5: 171 022|170 070|166 060|204 047 131                                 M1; =C3; SHLDC3; J3≥Z;
                                                                       	(M2; SHL+39; JSP3; J4; FAIL - original hux); [level number is D0..7 so SHL+39 is wrong
 3525/2: 171 042|164 121|200 326 255|205 267 143                             M2; SHL+40; JSP3; J7; (SKIP FAIL - maybe spurious entries in Call Matrix ); [hu×;
 3527/0: 052|320 333 055|164 111|164 251                                     ERASE; Z50M13; SHL+36; SHL-44;
 3530/2: 310 015 140|032|311 015 140|052                                     Y0; MAX; =Y0; ERASE;
 3531/4: 052|261 047 123                                               3;      ERASE; J2C2NZ;
 3532/2: 140 020|171 022|164 121|200 326 255|200 267 142                     M+I1; M1; SHL+40; JSP3; J5; (EXIT);
 3534/2: 052|320 333 055|164 111|164 251                                     ERASE; Z50M13; SHL+36; SHL-44;
 3535/4: 310 015 140|032|052                                                 Y0; MAX; ERASE;
 3536/3: 320 333 054|167 321|164 371|164 011                                 Z51M13; SHC-24; SHL-4; SHL+4;
 3540/0: 011|167 061|321 333 054                                             OR;  SHC+24; =Z51M13;
 3541/0: 143 020                                                       6;	DC1;
 3541/2: 262 027 121                                                         J1C1NZ;
 3541/5: 041                                                                 ZERO;
 3542/0: 001|052|200 360 000                                           5;      VR; ERASE; EXIT1;
 3542/5: 304 020 056|200 266 251                                       4;      SET4142; JP7;
 3543/5: 052|052|200 267 141                                           7;	ERASE; erase; J6;	[inserted to skip failure hux

=== Start P-1V-1; at address 1893/3545
Finished
                                                                            FINISH;









































Reached end of file