Kidsgrove Algol Compiler - Brick 99

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

Loaded 1046 bytes for DavidHu/KAB99.txt
Relocated 20
Finished
Reached end of file


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


   3200  W0 = E1664
   3200  Y0 = E1664


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

                                                                       ST 11104; TL 1000; START 1600;
                                                                       V1; PROGRAM;
V-store at 03100 = 000 010 000 004 000 000                                   V0=Q8/4/0;
V-store at 03101 = 006 200 006 200 240 107                                   V1=QAY0/AY0/B120107;
 3102/0: 200 326 133                                                         JSP10;
 3102/3: 300 006 101|200 320 106|201 266 116                                 V1; JSE70; J3;
 3104/0: 170 344|304 143 007|170 342                                         =I14; SETB61407; =M14;
 3105/1: 171 356|200 320 106|202 266 117                                     Q14; JSE70; J4;
 3106/3: 300 006 100|170 376                                           5;      V0; =Q15;
 3107/2: 302 360 022|164 023|047|002|225 346 114                       1;      E18M15Q; SHL+9; STR; =TR; J2TR;
 3111/0: 164 257|304 000 037|225 026 114                                     SHL-41; SET31; J2=;
 3112/2: 041|225 026 114                                                     ZERO; J2=;
 3113/0: 042|164 373|304 000 006|056|200 220 000                             DUP; SHL-3; SET6; +; OUT;
 3114/4: 041                                                                 ZERO;
 3114/5: 052|262 366 107                                               2;      ERASE; J1C15NZ;
 3115/3: 041|200 220 000                                                     ZERO; OUT;
 3116/1: 052|304 000 307|200 326 121                                   3;      ERASE; SET199; JSP7;
 3117/2: 304 001 053|200 326 121                                       4;      SET299; JSP7;
=== Start P7V-1; at address 1617/3121
 3121/0: 170 365|304 000 200|170 362                                   P7;      =RI15; SETB200; =M15;
 3122/1: 171 376|200 320 106                                                 Q15; JSE70;
=== Start P10V7; at address 1627/3133
V-store at 03124 = 017 377 377 377 377 377                             P10V7;      V1=B0377777777777777;
V-store at 03125 = 006 127 006 127 000 300                                   V2=QAV4/AV4/B300;
 3133/0: 041|033|170 023|041                                                 ZERO; NOT; =RM1; ZERO;
 3133/5: 052|140 020|157 003|171 022                                   3;      ERASE; M+I1; Q0TOQ3; M1;
 3135/0: 304 000 100|011|200 320 106|202 266 152                       9;      SETB100; OR; JSE70; J1;
 3136/4: 042|225 146 133|262 066 140                                         DUP; J3=Z; J10C3NZ;
 3137/5: 042|170 076                                                         DUP; =Q3;
 3140/2: 164 023|047|002|164 257|220 346 135                           10;      SHL+9; STR; =TR; SHL-41; J9TR;
 3141/5: 170 050|171 070|200 046 147                                         =C2; C3; J2≥Z;
 3143/0: 171 022|167 377|047|065|052                                         M1; SHC-1; STR; REV; ERASE;
 3144/1: 300 006 125|054                                                     V2; AND;
 3144/5: 304 140 000|011|171 022|011|200 320 106                             SETB60000; OR; M1; OR; JSE70;
 3146/3: 202 266 152                                                         J1;
 3147/0: 171 022|042|033|027|161 005                                   2;      M1; DUP; NOT; NEG; SHA+2;
 3150/1: 170 030                                                             =C1;
 3150/3: 304 000 007|036|042|225 046 133                               4;      SET7; -; DUP; J3<Z;
 3151/5: 200 360 000                                                         EXIT1;
 3152/2: 304 001 217|200 326 121                                       1;      SET399; JSP7;
=== Start P-1V-1; at address 1644/3154
Finished
                                                                             FINISH;




















Reached end of file