Kidsgrove Algol Compiler - Brick 46

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

Loaded 3803 bytes for DavidHu/KAB46.txt
Relocated 7
Finished
Reached end of file


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


   3340  W0 = E1760
   5440  Y0 = E2848
   3340 YA0 = E1760
   3440 YY0 = E1824
   4440 YZ0 = E2336


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

                                                                       ST11104; TL600; START1600;
                                                                       [Y0=E;
                                                                       V; [W;
                                                                       YA063;
                                                                       YY511; YZ511;
    4/0: 200 266 103|200 266 103                                       RESTART; J1; J1;
                                                                       PROGRAM;

 3100/0: 200 326 177                                                         JSP880;
 3100/3: 304 005 021                                                         SETB2421;
 3101/0: 170 025|304 336 010|170 022|171 036|200 260 106               2;      =RI1; SETB157010; =M1; Q1; JE70;
 3103/0: 320 013 070|220 046 105                                       1;      Z39; J3<Z;
 3104/0: 304 017 316|200 266 164                                             SET4046; JP7;
 3105/0: 304 006 125|200 266 101                                       3;      SETB3125; J2;

=== Start P2V8; at address 1615/3117
V-store at 03106 = 011 040 012 037 000 000                             P2V8;      V0=QAYZ0/AYZ255/0; (BUPFER 1);
V-store at 03107 = 012 040 013 037 000 000                                   V1=QAYZ256/AYZ511/0; (BUFPER 2);
V-store at 03112 = 242 104 243 304 140 004                                   V4=B5044224361060004; (F/B/C);
V-store at 03113 = 000 000 000 000 340 004                                   V5=B160004; (TRANSFER);
V-store at 03114 = 000 000 000 000 110 004                                   V6=B44004; (CBN);
V-store at 03116 = 000 000 000 000 152 004                                   V8=B65004; (SKIP TO BLOCK N);
 3117/0: 300 006 110                                                         V2; (FETCH NEXT WORD NORMAL ENTRY);
 3117/3: 170 376|240 366 132                                           10;      =Q15; J7C15Z;
 3120/2: 102 360|171 376                                                     M0M15Q; Q15;
 3121/0: 301 006 110|041|301 006 111                                   14;       =V2; ZERO; =V3;
 3122/1: 200 360 000                                                         EXIT1; (NDRMAL EXIT);
                                                                             (INITIAL ENTRY FORWARDS READ);
 3122/4: 300 006 107|300 006 112|170 376|171 370                       1;      V1; V4; =Q15; C15;
 3124/2: 300 006 106|170 376|170 362|171 376|200 320 106               6;      V0; =Q15; =M15; Q15; JSE70;
 3126/2: 201 266 134                                                         J13;
 3126/5: 300 006 114|200 320 106                                             V6; JSE70;
 3127/5: 201 266 134                                                         J13;
 3130/2: 301 006 115|042|200 146 121|201 266 134                             =V7; DUP; J14≠Z; J13;
 3132/0: 300 006 113|200 320 106                                       7;      V5; JSE70;
 3133/0: 201 266 134                                                         J13;
 3133/3: 042|203 146 117                                               8;      DUP; J10≠Z;
 3134/1: 304 037 322|200 266 164                                       13;     SET8146; JP7; (FAILURE);
 3135/1: 300 006 112|200 320 106                                       3;      V4; JSE70;
 3136/1: 201 266 134                                                         J13;
 3136/4: 200 360 000                                                         EXIT1;
=== Start P6V6; at address 1639/3147
V-store at 03140 = 007 040 010 037 242 105                             P6V6;      V0=QAYY0/AYY255/B121105;
V-store at 03141 = 010 040 011 037 000 000                                   V1=QAYY256/AYY511/0;
V-store at 03142 = 000 000 000 000 000 000                                   V2=0;
V-store at 03143 = 000 000 000 000 340 005                                   V3=B160005;
V-store at 03144 = 000 000 000 000 140 105                                   V4=B60105;
V-store at 03145 = 000 000 175 004 072 321                                   V5=B17501035321;
 3147/0: 300 006 142                                                         V2;
 3147/3: 170 376|103 360|243 366 154                                   2;      =Q15;=M0M15Q; J4C15Z;
 3150/4: 171 376                                                             Q15;
 3151/0: 301 006 142|200 360 000                                       7;      =V2; EXIT1;
 3152/0: 300 006 141|300 006 140                                       1;      V1; V0;
 3153/0: 200 320 106|200 266 157|200 266 151                                 JSE70; J6; J7;
 3154/3: 300 006 143|200 320 106|200 266 157|301 006 142               4;      V3; JSE70; J6; =V2;
 3156/3: 200 360 000                                                         EXIT1;
 3157/0: 304 040 066|200 266 164                                       6;      SET8246; JP7; (FAILURE);
 3160/0: 300 006 142|170 365|300 006 144|170 362                       3;      V2; =RI15; V4; =M15;
 3161/4: 171 376|200 320 106|200 266 157|200 360 000                         Q15; JSE70; J6; EXIT1;

=== Start P7V-1; at address 1652/3164
 3164/0: 170 365                                                       P7;      =RI15;
 3164/2: 320 013 070|041|033|047                                             Z39; ZERO; NOT; STR;
                                                                       [ original source of the next page
 3165/2: 015|011|321 013 070                                                 NEV; OR; =Z39;
 3166/1: 304 000 200|170 362                                                 SETB200; =M15;
 3167/0: 171 376|200 260 106                                                 Q15; JE70;
=== Start P3V-1; at address 1656/3170
                                                                       P3;      (SEARCH LEVEL PARAMETERS POR A LEVEL L);
 3170/0: 041|170 323|304 000 377|167 361|065                                 ZERO; =RM13; SETB377; SHC-8; REV;
 3171/3: 320 333 055|170 336|171 324|042|170 322                       1;      Z50M13; =Q13; I13; DUP; =M13; [typo Z0M13 HUX
 3173/1: 203 146 174                                                         J2≠Z;
 3173/4: 065|052|200 360 000                                                 REV; ERASE; (NONE EXIST N1=L); EXIT1;
 3174/3: 043|320 333 053|015|054|203 146 171                           2;      DUPD; Z52M13; NEV; AND; J1≠Z;
 3176/0: 065|052|202 360 001                                                 REV; ERASE; (N1=L1 M13=ALP OF L); EXIT2;
=== Start P880V-1; at address 1663/3177
 3177/0: 200 326 201|200 326 220|200 326 256|200 360 000               P880;      JSP881;  JSP882;  JSP883; EXIT1;
=== Start P881V-1; at address 1665/3201
 3201/0: 204 326 122|200 326 152|200 326 117|200 326 147               P881;      JS1P2; JS1P6; JSP2; JSP6;
 3203/0: 200 326 117|042|304 000 374|054|304 000 120                   1;      JSP2; DUP; SETB374; AND; SETB120;
 3204/5: 015|205 146 213|200 326 170|204 266 216                             NEV; J3≠Z; JSP3 ; J4;
 3206/3: 320 333 055|167 377|205 046 213                                     Z50M13; SHC-1; J3≥Z;
 3207/5: 200 326 147                                                         JSP6;

 3210/2: 200 326 117|042|200 326 147                                   2;      JSP2; DUP; JSP6;
 3211/3: 304 000 377|054|304 000 334|015|202 146 210                         SETB377; AND; SETB334; NEV; J2≠Z;
 3213/2: 200 266 203                                                         J1;
 3213/5: 304 001 337|054|304 001 234|015|200 146 203                   3;      SETB737; AND; SETB634; NEV; J1≠Z;
 3215/4: 201 326 135|200 360 000                                             JS3P2; EXIT1;
 3216/4: 304 004 026|200 266 164                                       4;      SET1046; JP7;
=== Start P882V-1; at address 1680/3220
 3220/0: 041|170 031|157 022|204 326 122                               P882;      ZERO; =RC1; Q1TOQ2; JS1P2;
 3221/2: 200 326 117|042|304 001 337|054|304 001 214                   1;      JSP2; DUP; SETB737; AND; SETB614;
 3223/1: 015|220 146 252                                                     NEV; J9=Z;
 3223/5: 042|304 000 374|054|304 000 120|015                                 DUP; SETB374; AND; SETB120; NEV;
 3225/2: 201 146 233                                                         J3≠Z;
 3225/5: 200 326 170|200 266 251|320 333 055|167 377|204 046 237             JSP3; J8;Z50M13; SHC-1; J4≥Z;
 3230/1: 052                                                                 ERASE;
 3230/2: 200 326 117|304 000 377|054|304 000 334|015                   2;      JSP2; SETB377; AND; SETB334; NEV;
 3232/1: 202 146 230                                                         J2≠Z;
 3232/4: 202 266 221                                                         J1;
 3233/1: 042|304 000 377|054|304 000 334|015                           3;      DUP; SETB377; AND; SETB334; NEV;
 3234/4: 223 146 241                                                         J6=Z;
 3235/1: 042|304 001 337|054|304 001 234|015                                 DUP; SETB737; AND; SETB634; NEV;
 3236/4: 223 146 241                                                         J6=Z;
 3237/1: 203 266 240                                                         J5;
 3237/4: 171 036|303 046 340                                           4;      Q1; =YA0M2Q;
 3240/3: 303 033 040|202 266 221                                       5;      =Y0M1Q; J1;
 3241/3: 303 033 040|141 040|300 046 340|042|170 076                   6;      =Y0M1Q; M-I2; YA0M2; DUP; =Q3;
 3243/2: 170 116                                                             =Q4;
 3243/4: 302 073 040|200 326 147|171 062|171 022|036                   7;      Y0M3Q; JSP6; M3; M1; -;
 3245/3: 204 146 243                                                         J7≠Z;
 3246/0: 171 116|170 036                                                     Q4; =Q1;
 3246/4: 171 042|202 146 221                                                 M2; J1≠Z;
 3247/3: 201 326 135|200 326 160|200 360 000                                 JS3P2; JS3P6; EXIT1;
 3251/0: 304 004 172|200 266 164                                       8;      SET1146; JP7;
 3252/0: 052|200 326 117|204 266 237                                   9;      ERASE; JSP2; J4;
=== Start P883V1; at address 1710/3256
 3256/0: 041|170 031|157 022|157 023|157 024                           P883V1;      ZERO; =RC1; Q1TOQ2; Q1TOQ3; Q1TOQ4;
 3257/3: 200 326 327                                                         JSP884;
 3260/0: 204 326 122|200 326 152                                             JS1P2; JS1P6;
 3261/0: 200 326 117|042|304 001 377|054|304 001 214                   1;      JSP2; DUP; SETB777; AND; SETB614;
 3262/5: 015|203 146 264                                                     NEV; J2≠Z;
 3263/3: 200 326 147|200 266 261                                             JSP6; J1;
 3264/3: 042|304 000 374|054|304 000 120|015                           2;      DUP; SETB374; AND; SETB120; NEV;
 3266/0: 222 146 304                                                         J3=Z;
 3266/3: 042|304 000 206|015|222 146 304                                     DUP; SETB206; NEV; J3=Z;
V-store at 03254 = 000 000 106 000 200 201                                   V0=B10600100201;
 3267/5: 042|167 357|164 341|300 006 254|015                                 DUP; SHC-9; SHL-16; V0; NEV;
                                                                       [ original source of the next page
 3271/2: 222 146 304                                                         J3=Z;
 3271/5: 042|167 357|164 341|300 006 255|015|221 146 306                     DUP; SHC-9; SHL-16; V1; NEV;J5=Z;
V-store at 03255 = 000 000 116 000 200 201                                   V1=B11600100201; [[[
 3273/5: 042|304 000 377|054|304 000 374|015|221 146 306                     DUP; SETB377; AND; SETB374; NEV;J5=Z;
 3275/5: 042|304 000 377|054|304 000 334|015|221 146 306                     DUP; SETB377; AND; SETB334; NEV;J5=Z;
 3277/5: 042|304 001 377|054|304 001 234|015                                 DUP; SETB777; AND; SETB634; NEV;
 3301/2: 201 146 305                                                         J4≠Z;
 3301/5: 200 326 147|200 326 160|201 326 135|200 326 327|200 360 000         JSP6; JS3P6; JS3P2; JSP884; EXIT1;
 3304/2: 171 056|303 066 340                                           3;      Q2; =YA0M3Q;
 3305/1: 303 053 040|200 266 261                                       4;      =Y0M2Q; J1;
 3306/1: 303 053 040|141 060|300 066 340|170 116|157 105               5;      =Y0M2Q; M-I3; YA0M3; =Q4; Q4TOQ5;
 3310/1: 171 042|171 102|036|170 144                                         M2; M4; -; =I6;
 3311/2: 304 000 236|170 142|300 113 040|304 000 206                         SETB236; =M6; Y0M4; SETB206;
 3313/1: 015|200 146 315                                                     NEV; J6≠Z;
 3313/5: 171 022|170 150|202 266 316                                         M1; =C6; J7;

 3315/0: 300 113 040|164 261|027|170 150                               6;Y0M4; SHL-40; NEG; =C6;
 3316/2: 171 156|200 326 147|302 133 040|200 326 147|171 122|171 042|036
                                                                       7;      Q6; JSP6;8;Y0M5Q; JSP6; M5; M2; -;
 3321/0: 221 046 317                                                         J8<Z;
 3321/3: 171 156|200 326 147|157 102                                         Q6; JSP6; Q4TOQ2;
 3322/4: 300 113 040|304 000 206|015|200 146 261                             Y0M4; SETB206; NEV; J1≠Z;
 3324/2: 171 022|164 021|304 000 366|011                                     M1; SHL+8; SETB366; OR;
 3325/4: 140 020|201 266 305                                                 M+I1; J4;
=== Start P884V-1; at address 1751/3327
 3327/0: 304 010 004|200 320 106|200 266 103|200 360 000               P884; SETB4004; JSE70; J1P0; EXIT1;
=== Start P-1V-1; at address 1753/3331
Finished
                                                                       (P1OOO);FINISH;

Reached end of file