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 8864 bytes for KAB42.txt
Specifying Y0 leaves gap of 487 words
Relocated 487
Finished
Reached end of file


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


   4506  W0 = E2374
  17500  Y0 = E8000
   4506 YA0 = E2374
  14347 YC0 = E6375
  15500 YY0 = E6976
  16500 YZ0 = E7488


    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 273|200 327 111                                             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 244                                             SET4042; JP7;
 3113/3: 304 006 125|201 266 107                                       4;      SETB3125; J2;

=== Start P903V-1; at address 1613/3115
                                                                       P903;
 3115/0: 171 376                                                       	Q15;
                                                                             (print YZ stores);
 3115/2: 304 016 172|164 041                                                 SETB7172; (YZ); SHL+16; (start of print at YZ0);
 3116/1: 304 036 077|170 365|304 035 100|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYZ255; =RI15; SETAYZ0; =C15; Q15; SET70; OUT;
 3121/1: 170 376                                                       	=Q15;
                                                                       (MRWDQ15;)
 3121/3: 200 360 000                                                   	EXIT1;
=== Start P902V-1; at address 1618/3122
                                                                       P902;
 3122/0: 171 376                                                       	Q15;
                                                                             (print YA stores);
 3122/2: 304 016 141|164 041                                                 SETB7141; (YA); SHL+16; (start of print at YA0);
 3123/1: 304 030 346|170 365|304 011 106|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYA4000; =RI15; SETAYA0; =C15; Q15; SET70; OUT;
                                                                             (print YC stores);
 3126/1: 304 016 143|164 041                                                 SETB7143; (YC); SHL+16; (start of print at YC0);
 3127/0: 304 033 077|170 365|304 030 347|170 370|171 376|304 000 106|200 220 000
                                                                             SETAYC600; =RI15; SETAYC0; =C15; Q15; SET70; OUT;
 3132/0: 170 376                                                       	=Q15;
                                                                       (MRWDQ15;)
 3132/2: 200 360 000                                                   	EXIT1;

=== Start P2V8; at address 1636/3144
V-store at 03133 = 035 100 036 077 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03134 = 036 100 037 077 000 000                                   V1=QAYZ256/AYZ511/0; (BUFFER 2);
V-store at 03137 = 242 104 243 304 140 004                                   V4=B5044224361060004; (F/B/C);   []]
V-store at 03140 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
V-store at 03141 = 000 000 000 000 110 004                                   V6=B44004; (CBN);                []]
V-store at 03143 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 3144/0: 300 006 135                                                         V2; (FETCH NEXT WORD NORMAL FNTRV);
 3144/3: 170 376|243 366 157                                           10;      =Q15; J7C15Z;
 3145/2: 102 360|171 376                                                     M0M15Q; Q15;
 3146/0: 301 006 135|041|301 006 136                                   14;       =V2; ZERO; =V3;
 3147/1: 200 360 000                                                         EXIT1; (NORMAL EXIT);
                                                                             (INITIAL ENTRY FORWARDS READ);
 3147/4: 300 006 134|300 006 137|170 376|171 370                       1;      V1; V4; =Q15; C15;
 3151/2: 300 006 133|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 3153/2: 204 266 161|200 326 115                                             J13; JSP903; [hux diag
 3154/2: 300 006 141|200 320 106                                             V6; JSE70;
 3155/2: 204 266 161                                                         J13;
 3155/5: 301 006 142|042|200 146 146|204 266 161                             =V7; DUP; J14≠Z; J13;
 3157/3: 300 006 140|200 320 106                                       7;      V5; JSE70;
 3160/3: 204 266 161                                                         J13;
 3161/0: 042|203 146 144                                               8;      DUP; J10≠Z;
 3161/4: 304 037 316|200 266 244                                       13;      SET8142; JP7; (FAILURE);
                                                                             (INITIA1 ENTRY BACKWARDS READ);
 3162/4: 300 006 134|300 006 137|170 376|171 364|202 266 151           2;      V1; V4; =Q15; I15; J6;
                                                                             (CLOSE);
 3164/5: 204 326 147|320 013 125|164 301|164 041|304 152 004|011|200 320 106|204 266 161
                                                                       16;      JS1; Z10; SHL-32; SHL+16; SETB65004; OR; JSE70; J13;
 3170/1: 203 266 157                                                         J7;
 3170/4: 300 006 137|200 320 106                                       3;      V4; JSE70;
 3171/4: 204 266 161                                                         J13;
 3172/1: 200 360 000                                                         EXIT1;
 3172/4: 300 006 134|304 242 204|202 266 151                           15;      V1; SETB121204; J6;
                                                                             (INITIAL EHTRY FOR FETCH PREVIOUS WORD);
 3174/1: 300 006 135|170 376|171 364|027|170 364|140 360|140 360       4;      V2; =Q15; I15;NEG; =I15; M+I15; M+I15; [hux
 3176/3: 205 266 177                                                         J9;
                                                                             (NORMAL ENTRY POR FETCH PREVIOUS WORD);
 3177/0: 300 006 136|170 376                                           5;      V3; =Q15;
 3177/5: 102 360|171 376|301 006 136|200 360 000                       9;      M0M15Q; Q15; =V3; EXIT1;
                                                                             (WHAT IS CURRANT POSITION);
 3201/3: 300 006 141|200 320 106                                       11;      V6; JSE70;
 3202/3: 204 266 161                                                         J13;
 3203/0: 300 006 142|036|304 000 377|042|300 006 135                         V7; -; SETB377; DUP; V2;
                                                                       [ original source of the next page
 3204/5: 054|012|054|164 021|011                                             AND; PERM; AND; SHL+8; OR;
 3205/5: 200 360 000                                                         EXIT1;
                                                                             (SKIP TO GIVEN BLOCK);
 3206/2: 042|164 361|300 006 142|056|300 006 143                       12;      DUP; SHL-8; V7; +; V8;
 3210/0: 170 376|170 364|171 376|200 320 106                                 =Q15; =I15; Q15; JSE70;
 3211/3: 204 266 161                                                         J13;
 3212/0: 167 361|164 361|167 021|300 006 140|200 320 106                     SHC-8; SHL-8; SHC+8; V5; JSE70;
 3214/0: 204 266 161                                                         J13;
 3214/3: 170 376|042|171 362|036|027                                         =Q15; DUP; M15; -; NEG;
 3215/4: 172 370|170 362|171 376|301 006 135|200 360 000                     =+C15; =M15; Q15; =V2; EXIT1;

=== Start P6V6; at address 1687/3227
V-store at 03220 = 033 100 034 077 242 105                             P6V6;      V0=QAYY0/AYY255/B121105;
V-store at 03221 = 034 100 035 077 000 000                                   V1=QAYY256/AYY511/0;
V-store at 03222 = 000 000 000 000 000 000                                   V2=0;
V-store at 03223 = 000 000 000 000 340 005                                   V3=B160005;
V-store at 03224 = 000 000 000 000 140 105                                   V4=B60105;
V-store at 03225 = 000 000 175 004 072 321                                   V5=B17501035321;
 3227/0: 300 006 222                                                         V2;
 3227/3: 170 376|103 360|243 366 234                                   2;      =Q15;=M0M15Q; J4C15Z;
 3230/4: 171 376                                                             Q15;
 3231/0: 301 006 222|200 360 000                                       7;      =V2; EXIT1;
 3232/0: 300 006 221|300 006 220                                       1;      V1; V0;
 3233/0: 200 320 106|200 266 237|200 266 231                                 JSE70; J6; J7;
 3234/3: 300 006 223|200 320 106|200 266 237|301 006 222               4;      V3; JSE70; J6; =V2;
 3236/3: 200 360 000                                                         EXIT1;
 3237/0: 304 040 062|200 266 244                                       6;      SET8242; JP7;(FAILURE);
 3240/0: 300 006 222|170 365|300 006 224|170 362                       3;      V2; =RI15; V4; =M15;
 3241/4: 171 376|200 320 106|200 266 237|200 360 000                         Q15; JSE70; J6; EXIT1;

=== Start P7V-1; at address 1700/3244
 3244/0: 170 365                                                       P7;      =RI15;
 3244/2: 320 013 070|041|033|047                                             Z39; ZERO; NOT; STR;
 3245/2: 015|011|321 013 070                                                 NEV; OR; =Z39;
 3246/1: 304 000 200|170 362                                                 SETB200; =M15;
 3247/0: 171 376|200 260 106                                                 Q15; JE70;
=== Start P3V-1; at address 1704/3250
                                                                       P3;      (SEARCH LEVEL PARAMETERS FOR A LEVEL L);
 3250/0: 041|170 323|304 000 377|167 361|065                                 ZERO; =RM13; SETB377; SHC-8; REV;   []]
 3251/3: 320 333 055|170 336|171 324|042|170 322                       1;      Z50M13; =Q13; I13; DUP; =M13;
 3253/1: 203 146 254                                                         J2≠Z;
 3253/4: 065|052|200 360 000                                                 REV; ERASE; (NONE EXIST N1=L); EXIT1;
 3254/3: 043|320 333 053|015|054|203 146 251                           2;      DUPD; Z52M13; NEV; AND; J1≠Z;
 3256/0: 065|052|202 360 001                                                 REV; ERASE; (N1=L; M13=ALP 0F L); EXIT2;
=== Start P830V-1; at address 1711/3257
                                                                       P830;      (FIND PIR);
 3257/0: 041|065|042|304 240 000                                             ZERO; REV; DUP; SETB120000;
 3260/0: 042|066|054|015|164 101|223 146 271                                 DUP; CAB; AND; NEV; SHL+32; J1=Z;
 3261/3: 310 017 103|170 351                                                 Y3; =RC14;
 3262/2: 265 346 264                                                   2;      J3C14NZ;
 3262/5: 200 326 122|200 326 115|304 004 166|200 266 244                     JSP902; JSP903; SET1142; JP7; (NO PIR); [hux diagnostic
 3264/5: 312 350 347|042|012                                           3;      YC0M14Q; DUP; PERM;
 3265/4: 164 301|222 026 267                                                 SHL-32; J4=;
 3266/3: 065|052|202 266 262                                                 REV; ERASE; J2;
 3267/2: 052|065|052|042                                               4;      ERASE; REV; ERASE; DUP;
 3270/0: 164 101|164 301|065|164 041|164 301                                 SHL+32; SHL-32; REV; SHL+16; SHL-32;
 3271/3: 164 107|164 273|200 360 000                                   1;      SHL+35; SHL-35; EXIT1;
=== Start P850V-1; at address 1723/3273
 3273/0: 200 326 122|204 326 162|200 326 232|304 030 347|304 011 107   P850;   JSP902;   JS2P2; JS1P6; SETAYC0; SETAYA1; [hux diag
 3275/3: 036|311 017 122                                                     -; =Y18;
 3276/1: 200 326 144|042|304 001 377|054|304 001 234                         JSP2; DUP; SETB777; AND; SETB634;
 3300/0: 015|224 146 301                                                     NEV; J1=Z;
 3300/4: 304 000 216|200 266 244                                             SET0142; JP7; (FIRST WORD NOT END PROG);
 3301/4: 200 326 227|200 326 144|042|304 000 377|054                   1;      JSP6; JSP2; DUP; SETB377; AND;
 3303/3: 304 000 236|015|224 146 305                                         SETB236; NEV; J2=Z;
                                                                       [ original source of the next page
 3304/4: 304 000 362|200 266 244                                             SET0242; JP7; (SECOND WORD NOT HD);
 3305/4: 311 017 121                                                   2;      =Y17;
 3306/1: 310 017 121|164 301|203 146 332                               3;      Y17; SHL-32; J30≠Z;
 3307/3: 200 326 144|042|304 001 377|054|304 001 214                         JSP2; DUP; SETB777; AND; SETB614;  []]
 3311/2: 015|220 146 313                                                     NEV; J4=Z;
 3312/0: 304 001 126|200 266 244                                             SET0342; JP7; (LAST WORD NOT BEGIN PROG);
 3313/0: 200 326 227|204 326 170|200 326 240                           4;      JSP6; JS3P2; JS3P6;
 3314/3: 304 344 004|200 320 106|203 266 316|203 266 317                     SETB162004; JSE70; J5; J6;
 3316/3: 304 001 272|200 266 244                                       5;      SET0442; JP7; (FAIL TO INTERCHANGE);
 3317/3: 204 326 162|200 326 232                                       6;      JS2P2; JS1P6;
 3320/3: 200 326 144|042|304 001 377|054|304 001 214                         JSP2; DUP; SETB777; AND; SETB614;
 3322/2: 015|220 146 324                                                     NEV; J7=Z;
 3323/0: 304 002 036|200 266 244                                             SET0542; JP7; (WRONG WORD ON BK D READ);
 3324/0: 200 326 227|200 326 144|042|304 001 377|054                   7;      JSP6; JSP2; DUP; SETB777; AND;
 3325/5: 304 001 234|015|200 146 324                                         SETB634; NEV; J7≠Z;
 3327/0: 200 326 227|200 326 240|204 326 170                                 JSP6; JS3P6; JS3P2;      []]
 3330/3: 304 344 004|200 320 106|203 266 316                                 SETB162004; JSE70; J5;
 3332/0: 200 360 000                                                         EXIT1;
 3332/3: 304 000 001|311 017 100                                       30;      SET1; =Y0;
 3333/3: 310 017 121|164 041|164 301|311 017 101                             Y17; SHL+16; SHL-32; =Y1;
 3335/1: 200 326 144|170 031                                                 JSP2; =RC1;
 3336/0: 240 026 340                                                   32;      J31C1Z;
 3336/3: 200 326 144|313 030 347|200 266 336                                 JSP2; =YC0M1Q; J32;
 3340/0: 200 326 144|170 030                                           31;      JSP2; =C1;
 3340/5: 245 026 342                                                   33;      J34C1Z;
 3341/2: 200 326 144|313 030 347|205 266 340                                 JSP2; =YC0M1Q; J33;
 3342/5: 304 033 100|304 030 350|036|171 022|036                       34;      SETAYY0; SETAYC1; -; M1; -;
 3344/3: 200 046 346                                                         J25≥Z;
 3345/0: 304 004 332|200 266 244                                             SET1242; JP7; (NQT ENOUGH ROOM POR EC);
 3346/0: 171 022|042|311 017 103|170 031                               25;      M1; DUP; =Y3; =RC1;
 3347/2: 244 026 377                                                   35;      J41C1Z;
 3347/5: 310 030 347|042|042                                                 YC0M1; DUP; DUP;
 3350/4: 164 301|311 017 111                                                 SHL-32; =Y9;
 3351/3: 164 041|164 301|311 017 110                                         SHL+16; SHL-32; =Y8;
 3352/4: 164 101|164 301|311 017 107                                         SHL+32; SHL-32; =Y7;
 3353/5: 304 040 000|042|310 017 111|054|015                                 SETB20000; DUP; Y9; AND; NEV;
 3355/2: 202 146 361                                                         J37≠Z;
 3355/5: 310 017 107|310 017 110|164 041|011|310 017 111               36;      Y7; Y8; SHL+16; OR; Y9;
 3357/5: 164 101|011|313 030 347                                             SHL+32; OR; =YC0M1Q;
 3360/5: 202 266 347                                                         J35;
 3361/2: 304 040 000|042|310 017 110|054                               37;      SETB20000; DUP; Y8; AND;
 3362/4: 015|225 146 355                                                     NEV; J36=Z;
 3363/2: 310 017 103|170 051                                                 Y3; =RC2;
 3364/1: 264 046 365                                                   38;      J39C2NZ;
 3364/4: 304 002 202|200 266 244                                             SET0642; JP7; (TIR NOT GIVEN PIR);
 3365/4: 310 050 347|042|164 301|311 017 114                           39;      YC0M2; DUP; SHL-32; =Y12;
 3367/1: 042|164 041|164 301|311 017 113                                     DUP; SHL+16; SHL-32; =Y11;
 3370/3: 164 101|164 301|311 017 112                                         SHL+32; SHL-32; =Y10;
 3371/4: 310 017 114|310 017 110|015|223 146 374                             Y12; Y8; NEV; J40=Z;
 3373/2: 140 040|143 040|201 266 364                                         M+I2; DC2; J38;
 3374/3: 310 017 107|310 017 112|056|311 017 107                       40;      Y7; Y10; +; =Y7;
 3376/1: 310 017 113|311 017 110|202 266 361                                 Y11; =Y8; J37;
 3377/4: 200 326 144|042|304 000 377|054|304 000 236                   41;      JSP2; DUP; SETB377; AND; SETB236;
 3401/3: 015|221 147 003                                                     NEV; J42=Z;
 3402/1: 304 002 346|200 266 244                                             SET0742; JP7; (1ST WORD AFTER EC NOT HD);
 3403/1: 042|164 041|164 301|310 017 101|036                           42;      DUP; SHL+16; SHL-32; Y1; -;
 3404/4: 221 147 006                                                         J43=Z;
 3405/1: 304 003 112|200 266 244                                             SET0842; JP7; (LEV NO OF HD NOT SAME);
 3406/1: 224 047 007                                                   43;      J44<Z;
 3406/4: 304 003 256|200 266 244                                             SET0942; JP7; (HD1 NOT NEGATIVE);
                                                                       [ original source of the next page
 3407/4: 310 017 101|164 121|304 007 372|011|200 326 250               44;      Y1; SHL+40; SET2042; OR; JSP3;
 3411/4: 200 266 244                                                         JP7;
 3412/1: 052|320 333 054|164 061|164 271|311 017 106                         ERASE; Z51M13; SHL+24; SHL-36; =Y6;
 3414/0: 310 017 122|170 123                                           45;      Y18; =RM5;
 3414/5: 041|170 330                                                   46;      ZERO; =C13;
 3415/2: 242 327 020                                                   47;      J49C13Z;
 3415/5: 171 122|310 017 122|036|221 147 027                                 M5; Y18; -; J48=Z;
 3417/2: 302 131 106|205 267 020                                             YA0M5Q; J62;
 3420/2: 200 326 144                                                   49;      JSP2;
 3420/5: 042|304 000 377|054|304 000 366|220 027 035                   62;      DUP; SETB377; AND; SETB366; J50=;
 3422/4: 304 000 236|015|200 147 052                                         SETB236; NEV; J54≠Z;
 3423/5: 311 017 121                                                         =Y17;
 3424/2: 171 122|310 017 122|036|221 147 027                                 M5; Y18; -; J48=Z;
 3425/5: 304 000 001|170 330|202 267 015                                     SET1; =C13; J47;
 3427/1: 310 017 101|164 121|304 010 136|011|200 326 250               48;      Y1; SHL+40; SET2142; OR; JSP3;
 3431/1: 200 266 244                                                         JP7;
 3431/4: 052|310 017 100|033|027|320 333 054                                 ERASE; Y0; NOT; NEG; Z51M13;
 3433/1: 164 365|164 015|011|321 333 054|201 266 306                         SHL-6; SHL+6; OR; =Z51M13; J3;
 3435/0: 052|164 361|311 017 117|264 327 046                           50;      ERASE; SHL-8; =Y15; J53C13NZ;
 3436/3: 041|170 303                                                         ZERO; =RM12;
 3437/0: 200 326 144|042|304 000 377|054                               63;      JSP2; DUP; SETB377; AND;
 3440/2: 304 000 236|015|223 147 042                                         SETB236; NEV; J51=Z;
 3441/3: 303 311 106|200 267 037                                             =YA0M12Q; J63;
 3442/3: 311 017 121|171 302|170 310|145 300|140 300                   51;      =Y17; M12; =C12; I12=-1; M+I12;
 3444/2: 244 307 046                                                   52;      J53C12Z;
 3444/5: 141 120                                                             M-I5;
 3445/1: 302 311 106|301 131 106|202 267 044                                 YA0M12Q; =YA0M5; J52;
 3446/4: 310 017 121|164 041|164 301|310 017 117|036                   53;      Y17; SHL+16; SHL-32; Y15; -;
 3450/3: 225 147 014                                                         J46=Z;
 3451/0: 304 004 022|200 266 244                                             SET1042; JP7; (HD AND TN DO NOT AGREE);
 3452/0: 042|167 361|204 047 065                                       54;      DUP; SHC-8; J55≥Z;
 3453/0: 042|304 000 377|054|304 000 212                                     DUP; SETB377; AND; SETB212;
 3454/2: 015|223 147 057                                                     NEV; J58=Z;
 3455/0: 200 326 227|202 267 015                                       57;      JSP6; J47;
 3456/0: 167 361|164 321|167 341|200 267 055                           67;      SHC-8; SHL-24; SHC-16; J57;
 3457/3: 042|167 357|220 047 056                                       58;      DUP; SHC-9; J67<Z;
 3460/3: 244 327 064                                                         J65C13Z;
 3461/0: 302 131 106                                                         YA0M5Q;
 3461/3: 042|304 000 377|054|304 000 030                               64;      DUP; SETB377; AND; SETB30;
 3462/5: 015|204 147 071                                                     NEV; J59≠Z;
 3463/3: 065|200 326 227|200 267 055                                         REV; JSP6; J57;
 3464/4: 200 326 144|203 267 061                                       65;      JSP2; J64;
 3465/4: 042|304 000 234|054|304 000 020|015|220 147 055               55;      DUP; SETB234; AND; SETB20; NEV; J57=Z;
 3467/4: 042|222 047 102                                                     DUP; J60<Z;
 3470/2: 042|220 107 055                                                     DUP; J57>Z;
 3471/0: 052|202 267 015                                                     ERASE; J47;
 3471/4: 042|164 073|164 257|203 147 101                               59;      DUP; SHL+29; SHL-41; J61≠Z;
 3473/0: 065|041|033|047|015|011                                             REV; ZERO; NOT; STR; NEV; OR;
 3474/0: 164 301|200 326 257|042|310 017 100|032                             SHL-32; JSP830; DUP; Y0; MAX;
 3475/4: 311 017 100|001|052|065|164 101                                     =Y0; VR; ERASE; REV; SHL+32;
 3477/0: 066|056|065|164 123|164 307                                         CAB; +; REV; SHL+41; SHL-29;
 3500/1: 011|304 000 001|164 025|011|042                                     OR; SET1; SHL+10; OR; DUP;
 3501/3: 065|052|200 267 055                                           61;      REV; ERASE; J57;
 3502/2: 042|164 003|220 047 055                                       60;      DUP; SHL+1; J57<Z;
 3503/2: 042|164 301|200 326 257|065|052                                     DUP; SHL-32; JSP830; REV; ERASE;
 3504/4: 042|310 017 100|032|311 017 100|001                                 DUP; Y0; MAX; =Y0; VR;
 3506/1: 052|310 017 106|056|065                                             ERASE; Y6; +; REV;
 3507/1: 164 041|011|167 341|200 267 055                                     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 1865/3511
 3511/0: 304 000 140|170 031                                           P886;      SET96; =RC1;
 3511/5: 320 013 123|304 053 055|056|170 142                                 Z12; SETAZ50; +; =M6;
                                                                       [ original source of the next page
 3513/2: 304 000 140|170 051|146 040                                   1;      SET96; =RC2; I2=+2;
 3514/3: 041|311 017 100                                                     ZERO; =Y0;
 3515/1: 110 046|102 046                                               2;      M6M2N; M6M2Q;
 3515/5: 171 022|170 070|166 060|204 047 123                                 M1; =C3; SHLDC3; J3≥Z;
                                                                       	(M2; SHL+39; JSP3; J4; FAIL - original hux); [level number is D0..7 so SHL+39 is wrong
 3517/2: 171 042|164 121|200 326 250|205 267 135                             M2; SHL+40; JSP3; J7; (SKIP FAIL - maybe spurious entries in Call Matrix ); [hu×;
 3521/0: 052|320 333 055|164 111|164 251                                     ERASE; Z50M13; SHL+36; SHL-44;
 3522/2: 310 017 100|032|311 017 100|052                                     Y0; MAX; =Y0; ERASE;
 3523/4: 052|261 047 115                                               3;      ERASE; J2C2NZ;
 3524/2: 140 020|171 022|164 121|200 326 250|200 267 134                     M+I1; M1; SHL+40; JSP3; J5; (EXIT);
 3526/2: 052|320 333 055|164 111|164 251                                     ERASE; Z50M13; SHL+36; SHL-44;
 3527/4: 310 017 100|032|052                                                 Y0; MAX; ERASE;
 3530/3: 320 333 054|167 321|164 371|164 011                                 Z51M13; SHC-24; SHL-4; SHL+4;
 3532/0: 011|167 061|321 333 054                                             OR;  SHC+24; =Z51M13;
 3533/0: 143 020                                                       6;	DC1;
 3533/2: 262 027 113                                                         J1C1NZ;
 3533/5: 041                                                                 ZERO;
 3534/0: 001|052|200 360 000                                           5;      VR; ERASE; EXIT1;
 3534/5: 304 020 056|200 266 244                                       4;      SET4142; JP7;
 3535/5: 052|052|200 267 133                                           7;	ERASE; erase; J6;	[inserted to skip failure hux

=== Start P-1V-1; at address 1887/3537
Finished
                                                                            FINISH;









































Reached end of file