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.
Loaded 3824 bytes for 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