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.

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

                                                                       [ P269431.BMP

                                                                       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