Kidsgrove Algol Compiler - Brick 45
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 45.
Hot links to images of individual pages are embedded in the text.
Loaded 10021 bytes for KAB45.txt
Relocated 14
Finished
Reached end of file
=============== Second pass
===========================
3740 W0 = E2016
10600 Y0 = E4480
3740 YA0 = E2016
4140 YB0 = E2144
6540 YC0 = E3424
6600 YY0 = E3456
7600 YZ0 = E3968
0/0: 200 266 111 [ original source of the next page
ST 11104; TL 1000;
START 1600;
V 8;
YA 127; YB 1279; YC 31;
YY 511; YZ 511;
4/0: 200 267 305|200 267 305 RESTART; JP10; JP10;
PROGRAM;
V-store at 03101 = 000 000 005 220 336 010 V1=Q0/B2620/B157010;
V-store at 03100 = 102 065 037 007 260 230 V0=B2043243701730230;
V-store at 03110 = 001 001 002 000 000 214 V8=Q257/512/B214;
3111/0: 304 010 140|170 103 SETAYB0; =RM4;
3111/5: 304 007 340|170 043|146 040 SETAYA0; =RM2; I2=2;
3113/0: 204 327 204|203 266 114 JS1P2; J2;
3114/0: 200 327 201 1; JSP2;
3114/3: 042|301 015 144 2; DUP; =YC4;
3115/1: 304 000 206|221 026 164 SETB206; J3=;
3116/1: 304 000 120|015|164 375|164 125|225 146 134 SETB120; NEV; SHL-2; SHL+42; J4=Z;
3120/0: 300 015 144|304 000 374|015|164 121|225 146 325 YC4; SETB374; NEV; SHL+40; J5=Z;
3122/0: 300 015 144|304 040 216|015|164 121|224 146 362 YC4; SET8334; NEV; SHL+40; J6=Z;
3124/0: 300 015 144|304 001 234|015|164 117|167 007 YC4; SETB634; NEV; SHL+39; SHC+3;
3125/5: 164 003|224 146 362 SHL+1; J6=Z;
3126/4: 300 015 144|300 006 110|015|167 057|164 043|225 146 134 YC4; V8; NEV; SHC+23; SHL+17; J4=Z;
3131/0: 300 015 144|304 000 377|054|304 000 354|015|221 147 012 YC4; SETB377; AND; SETB354; NEV; J32=Z;
3133/2: 300 015 144|200 327 030|200 266 114 YC4; JSP300; J1;
3134/5: 300 015 144|200 327 276|200 266 210|042 4; YC4; JSP3; J7; DUP;
3136/3: 164 261|301 015 140 SHL-40; =YC0;
3137/2: 157 321|171 022|301 015 141 Q13TOQ1; M1; =YC1;
3140/3: 320 033 054|164 061|164 271|033|027|042|301 015 157|301 015 143
Z51M1; SHL+24; SHL-36; NOT; NEG; DUP; =YC15; =YC3;
3143/1: 200 327 030|200 266 114 JSP300; J1;
3144/1: 100 040|167 377|164 375|164 005|167 003 11; M0M2; SHC-1; SHL-2; SHL+2; SHC+1;
3145/5: 042|101 040 DUP; =M0M2;
3146/2: 300 015 147|300 015 150|171 102|200 327 063 YC7; YC8; M4; JSP834;
3150/1: 065|200 327 133|203 266 157 REV; JS1P840; J15;
3151/2: 304 000 326|015|205 146 162 SETB326; NEV; J18≠Z;
3152/3: 200 327 074 JSP837;
3153/0: 304 000 210|200 327 030 SETB210; JSP300;
3154/0: 300 015 153|200 327 050 YC11; JSP830;
3155/0: 304 000 230|200 327 030 SETB230; JSP300;
3156/0: 300 015 145|200 327 030 YC5; JSP300;
3157/0: 204 327 136 JS3P840;
3157/3: 300 015 147|170 102 15; YC7; =M4;
3160/2: 300 015 143|300 015 157|032|001|301 015 157 17; YC3; YC15; MAX; VR; =YC15;
3162/1: 052|200 266 114 ERASE; J1;
3162/5: 300 015 150|170 102|204 266 177 18; YC8; =M4; J8;
3164/1: 300 015 140|164 121|304 000 254|011|200 327 030 3; YC0; SHL+40; SETB254; OR; JSP300;
3166/1: 052|300 015 143 ERASE; YC3;
3166/5: 100 040|164 377|164 003|101 040 M0M2; SHL-1; SHL+1; =M0M2;
3170/1: 164 101|301 015 142 SHL+32; =YC2;
3171/0: 171 102|042|301 015 147|042|164 101|111 040 M4; DUP; =YC7; DUP; SHL+32; =M0M2N;
3172/5: 304 000 265|200 327 067 SETB265; JSP836;
3173/5: 170 162|100 160|042|301 015 146 =M7; M0M7; DUP; =YC6;
3175/1: 164 135|100 040|167 373|164 375 SHL+46; M0M2; SHC-3; SHL-2;
3176/3: 166 005|167 007|101 040|052 SHLD+2; SHC+3; =M0M2; ERASE;
3177/4: 171 102|301 015 150 8; M4; =YC8;
3200/3: 200 327 201|042|301 015 144 9; JSP2; DUP; =YC4;
3201/4: 304 000 226|225 026 274 SETB226; J10=;
3202/4: 304 000 246|221 026 144 SETB246; J11=;
3203/4: 304 000 266|221 026 214 SETB266; J12=;
[ original source of the next page
3204/4: 304 000 326|221 026 144 SETB326; J11=;
3205/4: 103 100|171 102|304 015 140 =M0M4Q; M4; SETAYC0;
3206/5: 015|224 146 211|203 266 200 NEV; J13=Z; J9;
3210/0: 052|304 000 221|200 327 272 7; ERASE; SET145; JSP7;
3211/1: 173 000|052 14; LINK; ERASE;
3211/4: 304 000 365|200 327 272 13; SET245; JSP7;
3212/4: 173 000|052|304 001 131|200 327 272 16; LINK; ERASE; SET345; JSP7;
3214/1: 052 12; ERASE;
3214/2: 100 040|167 377|164 375|164 005 M0M2; SHC-1; SHL-2; SHL+2;
3215/4: 304 000 001|011|167 003|101 040 SET1; OR; SHC+1; =M0M2;
3217/0: 171 102|301 015 151 M4; =YC9;
3217/5: 304 000 306|200 327 067 SETB306; JSP836;
3220/5: 171 102|301 015 152|200 327 157 M4; =YC10; JSP841;
3222/1: 200 327 126 JSP839;
3222/4: 300 015 155|200 327 030 YC13; JSP300;
3223/4: 304 002 265|200 327 030 SETB1265; JSP300;
3224/4: 300 015 147|300 015 150|300 015 151|200 327 063 YC7; YC8; YC9; JSP834;
3226/4: 300 015 151|300 015 152|200 327 065 YC9; YC10; JSP835;
3230/1: 200 327 074 JSP837;
3230/4: 300 015 154|200 327 030 YC12; JSP300;
3231/4: 304 000 207|200 327 030 SETB207; JSP300;
3232/4: 300 015 156|200 327 052 YC14; JSP831;
3233/4: 304 000 261|200 327 030 SETB261; JSP300;
3234/4: 304 000 204|200 327 030 SETB204; JSP300;
3235/4: 300 015 155|200 327 052 YC13; JSP831;
3236/4: 304 000 321|200 327 030 SETB321; JSP300;
3237/4: 304 000 204|200 327 030 SETB204; JSP300;
3240/4: 300 015 152|171 102|200 327 054 YC10; M4; JSP832;
3242/0: 304 000 224|200 327 030 SETB224; JSP300;
3243/0: 304 000 224|200 327 030 SETB224; JSP300;
3244/0: 304 000 302|200 327 030 SETB302; JSP300;
3245/0: 304 004 235|200 327 030 SETB2235; JSP300;
3246/0: 304 000 227|200 327 030 SETB227; JSP300;
3247/0: 304 000 210|200 327 030 SETB210; JSP300;
3250/0: 300 015 153|200 327 050 YC11; JSP830;
3251/0: 304 000 230|200 327 030 SETB230; JSP300;
3252/0: 110 040|170 136 M0M2N; =Q5;
3252/4: 300 015 150|042|170 124|170 163 YC8; DUP; =I5; =RM7;
3254/0: 300 015 151|170 203|300 015 152 YC9; =RM8; YC10;
3255/2: 017|017|017|017|171 202|220 026 260|017|102 200|103 160 *21; M8; J22=; *M0M8Q; =M0M7Q;
3257/4: 177 160 J21C7NZS;
3260/0: 052|171 162|301 015 150|171 202|301 015 151 22; ERASE; M7; =YC8; M8; =YC9;
3261/5: 151 164|151 165 M7TOQ4; M7TOQ5;
3262/3: 300 015 147|170 130 YC7; =C5;
3263/2: 171 136|111 040 Q5; =M0M2N;
3264/0: 100 040|065 M0M2; REV;
3264/3: 200 327 133|202 266 160 JS1P840; J17;
3265/3: 200 327 107 JSP838;
3266/0: 304 000 326|015|200 146 272 SETB326; NEV; J23≠Z;
3267/1: 300 015 145|200 327 030 24; YC5; JSP300;
3270/1: 300 015 147|170 102|204 327 136|202 266 160 YC7; =M4; JS3P840; J17;
3272/0: 300 015 153|200 327 030 23; YC11; JSP300;
3273/0: 110 040|170 136|171 124|170 102|204 266 177 M0M2N; =Q5; I5; =M4; J8;
3274/5: 052 10; ERASE;
3275/0: 100 040|167 377|164 375|164 005 M0M2; SHC-1; SHL-2; SHL+2;
3276/2: 304 000 002|011|167 003|101 040 SET2; OR; SHC+1; =M0M2;
3277/4: 171 102|301 015 151 M4; =YC9;
3300/3: 200 327 157 JSP841;
3301/0: 200 327 074|100 040|065 JSP837; M0M2; REV;
[ original source of the next page
3302/0: 300 015 154|200 327 030 YC12; JSP300;
3303/0: 300 015 147|300 015 150|300 015 151|200 327 063 YC7; YC8; YC9; JSP834;
3305/0: 304 000 207|200 327 030 SETB207; JSP300;
3306/0: 304 000 203|200 327 030 SETB203; JSP300;
3307/0: 304 000 204|200 327 030 SETB204; JSP300;
3310/0: 300 015 151|171 102|200 327 054 YC9; M4; JSP832;
3311/2: 304 000 224|200 327 030 SETB224; JSP300;
3312/2: 304 000 227|200 327 030 SETB227; JSP300;
3313/2: 304 000 210|200 327 030 SETB210; JSP300;
3314/2: 300 015 153|200 327 050 YC11; JSP830;
3315/2: 304 000 230|200 327 030 SETB230; JSP300;
3316/2: 200 327 133|202 266 160 JS1P840; J17;
3317/2: 304 000 210|200 327 030 SETB210; JSP300;
3320/2: 300 015 154|200 327 050 YC12; JSP830;
3321/2: 304 000 230|200 327 030 SETB230; JSP300;
3322/2: 304 000 326|015|221 146 267 SETB326; NEV; J24=Z;
3323/3: 300 015 153|200 327 030 YC11; JSP300;
3324/3: 300 015 150|170 102|204 266 177 YC8; =M4; J8;
3325/5: 300 015 143|171 044|036|301 015 143 5; YC3; I2; -; =YC3;
3327/2: 141 040 M-I2;
3327/4: 203 327 101 JS1P837;
3330/1: 100 040|164 137|205 146 342 M0M2; SHL+47; J25≠Z;
3331/2: 300 015 144|200 327 030 YC4; JSP300;
3332/2: 304 000 230|200 327 030 SETB230; JSP300;
3333/2: 110 040|164 301|170 102 M0M2N; SHL-32; =M4;
3334/2: 100 040|164 133|164 245|042 M0M2; SHL+45; SHL-46; DUP;
3335/3: 224 146 361|027|033|220 146 355 J19=Z; NEG; NOT; J26=Z;
3336/5: 304 000 210|200 327 030 SETB210; JSP300;
3337/5: 300 015 154|200 327 050 YC12; JSP830;
3340/5: 200 327 165 JSP842;
3341/2: 300 015 153|200 327 030|200 266 114 YC11; JSP300; J1;
3342/5: 300 015 144|200 327 030 25; YC4; JSP300;
3343/5: 300 015 143|164 101|301 015 142|200 327 126 YC3; SHL+32; =YC2; JSP839;
3345/4: 304 176 002|200 327 030 SETB77002; JSP300;
3346/4: 304 002 265|200 327 030 SETB1265; JSP300;
3347/4: 300 015 156|200 327 052|300 006 100|200 327 030 YC14; JSP831; V0; JSP300;
3351/4: 300 015 143|027|033|301 015 143 YC3; NEG; NOT; =YC3;
3353/0: 200 327 165|300 015 153|200 327 030|200 266 114 JSP842; YC11; JSP300; J1;
3355/0: 041 26; ZERO;
3355/1: 300 015 143|164 101|011|301 015 142 YC3; SHL+32; OR; =YC2;
3356/4: 200 327 126 JSP839;
3357/1: 200 327 107|200 327 165 JSP838; JSP842;
3360/1: 300 015 153|200 327 030|200 266 114 YC11; JSP300; J1;
3361/4: 200 327 165|200 266 114 19; JSP842; J1;
3362/4: 300 015 141|170 022 6; YC1; =M1;
3363/3: 320 033 054|042|164 061|164 271 Z51M1; DUP; SHL+24; SHL-36;
3364/5: 300 015 157|036|027|164 125|164 255 YC15; -; NEG; SHL+42; SHL-42;
3366/2: 065|164 365|164 015|011|321 033 054 REV; SHL-6; SHL+6; OR; =Z51M1;
3367/5: 300 015 144|200 327 030 YC4; JSP300;
3370/5: 300 015 144|304 001 234|015|164 117|167 007 YC4; SETB634; NEV; SHL+39; SHC+3;
3372/4: 164 003|200 146 114 SHL+1; J1≠Z;
3373/3: 320 013 126|170 176|171 170 Z9; =Q7; C7;
3374/4: 033|027|170 170 NOT; NEG; =C7;
3375/2: 171 176|321 013 126 Q7; =Z9;
3376/1: 204 327 220 JS3P2;
3376/4: 200 327 266 JS3P6;
3377/1: 304 010 004|200 320 106|201 267 011 SETB4004; JSE70; J30;
3400/4: 320 013 071|164 011|201 047 010|300 006 101|170 036|304 004 224|170 024
Z38; SHL4; J27≥Z; V1; =Q1; SETB2224; =I1; [original HUX test TRACE 1 bit rather than TEXT DHo
(Call matrix if with TABLES)
3403/4: 304 000 131|164 011|320 013 125|164 341|164 041|011 SETB131; SHL+4; Z10; SHL-16; SHL+16; OR;
3405/5: 304 000 001|164 035|011|321 013 125 SET1; SHL+14; OR; =Z10; [ask for call matrix - hux
(SETB4131; SHL+4; Z10; SHL-16; SHL+16; OR;
(SET1; SHL+14; OR;) =Z10; ); [original - hux
[ original source of the next page
3407/2: 171 036|200 260 106 Q1; JE70;
3410/1: 300 006 101|200 260 106 27; V1; JE70;
3411/1: 304 001 275|200 267 272 30; SET0445; JP7;
3412/1: 300 015 144|200 327 030 32; YC4; JSP300;
3413/1: 141 040|100 040|164 137|203 147 015 M-I2; M0M2; SHL+47; J31≠Z;
3414/4: 140 040|200 266 114 M+I2; J1;
3415/3: 300 015 143|164 101|301 015 142|200 327 126 31; YC3; SHL+32; =YC2; JSP839;
3417/2: 300 015 155|200 327 030 YC13; JSP300;
3420/2: 304 002 265|200 327 030 SETB1265; JSP300;
3421/2: 304 174 002|200 327 030 SETB76002; JSP300;
3422/2: 304 000 230|200 327 030 SETB230; JSP300;
3423/2: 300 015 143|033|027|301 015 143 YC3; NOT; NEG; =YC3;
3424/4: 140 040|202 266 160 M+I2; J17;
=== Start P300V1; at address 1816/3430
V-store at 03426 = 000 000 000 000 000 000 P300V1; V0=0;
V-store at 03427 = 000 000 000 000 000 000 V1=0;
3430/0: 300 007 026|202 147 032 V0; J1≠Z;
3431/0: 041|033|301 007 026|200 267 260 ZERO; NOT; =V0; J1P6;
3432/2: 300 007 027|205 147 036 1; V1; J3≠Z;
3433/2: 042|304 000 330|054|304 000 010|015 DUP; SETB330; AND; SETB10; NEV;
3434/5: 225 147 035 J2=Z;
3435/2: 200 267 255 JP6;
3435/5: 301 007 027|200 360 000 2; =V1; EXIT1;
3436/5: 042|164 121|164 261|304 000 212|036|204 147 045 3; DUP; SHL+40; SHL-40; SETB212; -; J4≠Z;
3440/5: 164 041|300 007 027|042|164 041|012 SHL+16; V1; DUP; SHL+16; PERM;
3442/2: 164 301|166 341|301 007 027|042|012 SHL-32; SHLD-16; =V1; DUP; PERM;
3443/5: 164 341|166 341|052|200 327 255|200 267 255 SHL-16; SHLD-16; ERASE; JSP6; JP6;
3445/4: 300 007 027|200 327 255|041|301 007 027|200 267 255 4; V1; JSP6; ZERO; =V1; JP6;
=== Start P830V-1; at address 1832/3450
P830;
3450/0: 041|033|164 003|167 015|054 ZERO; NOT; SHL+1; SHC+6; AND;
3451/1: 200 267 030 JP300;
=== Start P831V-1; at address 1834/3452
P831;
3452/0: 041|033|164 003|167 023|054 ZERO; NOT; SHL+1; SHC+9; AND;
3453/1: 200 267 030 JP300;
=== Start P832V-1; at address 1836/3454
P832;
3454/0: 065|170 343 REV; =RM14;
3454/3: 171 342|224 027 056|102 340 1; M14; J2=; M0M14Q;
3455/4: 200 327 030|203 267 054 JSP300; J1;
3456/4: 052|200 360 000 2; ERASE; EXIT1;
=== Start P833V-1; at address 1840/3460
P833;
3460/0: 304 002 265|200 327 030 SETB1265; JSP300;
3461/0: 200 327 054 JSP832;
3461/3: 304 000 230|200 267 030 SETB230; JP300;
=== Start P834V-1; at address 1843/3463
P834;
3463/0: 065|042|066|051 REV; DUP; CAB; REVD;
3463/4: 200 327 054|200 267 060 JSP832; JP833;
=== Start P835V-1; at address 1845/3465
P835;
3465/0: 300 015 156|200 327 030 YC14; JSP300;
3466/0: 200 267 060 JP833;
=== Start P836V-1; at address 1847/3467
P836;
3467/0: 200 327 201|042|012|225 027 072 1; JSP2; DUP; PERM; J2=;
3470/2: 065|103 100 REV; =M0M4Q;
3470/5: 171 102|304 015 140|015 M4; SETAYC0; NEV;
3471/5: 221 146 211|200 267 067 J14P0=Z; J1;
3472/5: 052|052|200 360 000 2; ERASE; ERASE; EXIT1;
=== Start P837V-1; at address 1852/3474
P837;
3474/0: 320 013 126|170 156|142 140|143 140 Z9; =Q6; NC6; DC6;
3475/3: 100 040|170 136|154 145|142 120 M0M2; =Q5; C6TOQ5; NC5;
3476/5: 143 140|142 140|171 156|321 013 126|171 136 DC6; NC6; Q6; =Z9; Q5;
[ original source of the next page
3500/4: 101 040|201 267 103 =M0M2; J2;
3501/3: 100 040|170 136|171 130|033|027 1; M0M2; =Q5; C5; NOT; NEG;
3502/5: 170 150 =C6;
3503/1: 304 000 131|170 122|041|170 124 2; SETB131; =M5; ZERO; =I5;
3504/3: 153 126 IM5TOQ6;
3504/5: 171 136|301 015 153|171 156|301 015 154 Q5; =YC11; Q6; =YC12;
3506/3: 200 360 000 EXIT1;
=== Start P838V-1; at address 1863/3507
P838;
3507/0: 110 040|170 136 M0M2N; =Q5;
3507/4: 171 124|171 122|200 327 065 I5; M5; JSP835;
3510/5: 300 015 155|200 327 030 YC13; JSP300;
3511/5: 304 002 265|200 327 030 SETB1265; JSP300;
3512/5: 171 130|171 124|200 327 054 C5; I5; JSP832;
3514/0: 304 002 265|200 327 030 SETB1265; JSP300;
3515/0: 171 130|170 343|102 340 C5; =RM14; M0M14Q;
3516/0: 200 327 052 JSP831;
3516/3: 171 342|171 124|200 327 054 M14; I5; JSP832;
3517/4: 304 000 301|200 327 030 SETB301; JSP300;
3520/4: 300 015 156|200 327 052 YC14; JSP831;
3521/4: 304 000 230|200 327 030 SETB230; JSP300;
3522/4: 304 000 210|200 327 030 SETB210; JSP300;
3523/4: 300 015 154|200 327 050 YC12; JSP830;
3524/4: 304 000 230|200 267 030 SETB230; JP300;
=== Start P839V-1; at address 1878/3526
P839;
3526/0: 300 015 142|304 002 000|011 YC2; SETB1000; OR;
3527/1: 100 040|164 127|164 245|011 M0M2; SHL+43; SHL-46; OR;
3530/2: 042|301 015 155 DUP; =YC13;
3531/0: 304 000 001|164 101|056|301 015 156 SET1; SHL+32; +; =YC14;
3532/3: 200 360 000 EXIT1;
=== Start P840V-1; at address 1883/3533
P840;
3533/0: 304 000 326|203 027 142|203 267 135 1; SETB326; J4≠; J6;
3534/3: 304 000 326|223 027 142 2; SETB326; J4=;
3535/3: 065|164 137|203 147 153|052 6; REV; SHL+47; J5≠Z; ERASE;
3536/4: 300 015 143|171 044|056|301 015 143 3; YC3; I2; +; =YC3;
3540/1: 140 040|171 042|304 010 140|015 M+I2; M2; SETAYB0; NEV;
3541/3: 224 146 212|200 360 000 J16P0=Z; EXIT1;
3542/3: 065|042|167 377|222 047 153 4; REV; DUP; SHC-1; J7<Z;
3543/4: 304 000 001|011|101 040 SET1; OR; =M0M2;
3544/4: 171 176|171 216|320 013 126|170 176|171 170|033|027 Q7; Q8; Z9; =Q7; C7; NOT; NEG;
3546/5: 042|170 170|170 210|171 176|321 013 126 DUP; =C7; =C8; Q7; =Z9;
3550/3: 152 010|304 000 131|170 202 I0TOQ8; SETB131; =M8;
3551/4: 171 216|301 015 145|170 216|170 176|041 Q8; =YC5; =Q8; =Q7; ZERO;
3553/2: 052 7; ERASE;
3553/3: 304 001 210|200 327 030 5; SETB610; JSP300;
3554/3: 300 015 145|200 327 050 YC5; JSP830;
3555/3: 304 000 230|200 327 030|202 360 001 SETB230; JSP300; EXIT2;
=== Start P841V-1; at address 1903/3557
P841;
3557/0: 200 327 201|042|301 015 144 2; JSP2; DUP; =YC4;
3560/1: 304 000 246|223 027 164 SETB246; J1=;
3561/1: 304 000 326|223 027 164 SETB326; J1=;
3562/1: 103 100|171 102|304 015 140 =M0M4Q; M4; SETAYC0;
3563/2: 015|221 146 211|200 267 157 NEV; J14P0=Z; J2;
3564/3: 200 360 000 1; EXIT1;
=== Start P842V-1; at address 1909/3565
3565/0: 300 015 140|164 121|304 000 274|011 P842; YC0; SHL+40; SETB274; OR;
3566/3: 200 327 030|304 000 230|200 267 030 JSP300; SETB230; JP300;
=== Start P2V8; at address 1921/3601
V-store at 03570 = 017 200 020 177 000 000 P2V8; V0=QAYZ0/AYZ255/0; (BUFFER 1);
V-store at 03571 = 020 200 021 177 000 000 V1=QAYZ256/AYZ511/0; (BUPFER 2);
V-store at 03574 = 242 104 242 304 140 004 V4=B5044224261060004; (F/B/C);
V-store at 03575 = 000 000 000 000 340 004 V5=B160004; (TRANSFER);
[ original source of the next page
V-store at 03576 = 000 000 000 000 110 004 V6=B44004; (CBN);
V-store at 03600 = 000 000 000 000 152 004 V8=B65004; (SKIP TO BLOCK N);
3601/0: 300 007 172 V2; (FETCH NEXT WORD NORMAL ENTRY);
3601/3: 170 376|242 367 213 10; =Q15; J7C15Z;
3602/2: 102 360|171 376|301 007 172|041|301 007 173 M0M15Q; Q15; =V2; ZERO; =V3;
3604/1: 200 360 000 EXIT1; (NORMAL EXIT);
(INITIAL ENTRY FORWARDS READ);
3604/4: 300 007 171|300 007 174|170 376|171 370 1; V1; V4; =Q15; C15;
3606/2: 300 007 170|170 376|170 362|171 376|200 320 106 6; V0; =Q15; =M15; Q15; JSE70;
3610/2: 203 267 215 J13;
3610/5: 300 007 176|200 320 106 V6; JSE70;
3611/5: 203 267 215 J13;
3612/2: 301 007 177|205 267 214 =V7; J8;
3613/2: 300 007 175|200 320 106 7; V5; JSE70;
3614/2: 203 267 215 J13;
3614/5: 042|203 147 201 8; (jsp400;) DUP; J10≠Z; [print buffer
3615/3: 304 037 321|200 327 272 13; SET8145; JSP7; (FAILURE);
(INITIAL ENTRY BACKWARDS READ);
3616/3: 300 007 171|300 007 174|170 376|171 364|202 267 206 2; V1; V4; =Q15; I15; J6;
(CLOSE);
3620/4: 300 007 174|200 320 106 3; V4; JSE70;
3621/4: 203 267 215 J13;
3622/1: 200 360 000 EXIT1;
(INITIAL ENTRY POR FETCH PREVIOUS WORD);
3622/4: 300 007 172|170 376|145 360|140 360|140 360 4; V2; =Q15; I15=-1; M+I15; M+I15;
3624/3: 205 267 225 J9;
(NORMAL ENTRY FOR FETCH PREVIOUS WORD);
3625/0: 300 007 173|170 376 5; V3; =Q15;
3625/5: 102 360|171 376|301 007 173|200 360 000 9; M0M15Q; Q15; =V3; EXIT1;
(WHAT IS CURRANT POSITION);
3627/3: 300 007 176|200 320 106 11; V6; JSE70;
3630/3: 203 267 215 J13;
3631/0: 300 007 177|036|304 000 377|042|300 007 172 V7; -; SETB377; DUP; V2;
3632/5: 054|012|054|164 021|011 AND; PERM; AND; SHL+8; OR;
3633/5: 200 360 000 EXIT1;
(SKIP TO GIVEN BLOCK);
3634/2: 042|164 361|300 007 177|056|300 007 200 12; DUP; SHL-8; V7; +; V8;
3636/0: 170 376|170 364|171 376|200 320 106 =Q15; =I15; Q15; JSE70;
3637/3: 203 267 215 J13;
3640/0: 167 361|164 361|167 021|300 007 175|200 320 106 SHC-8; SHL-8; SHC+8; V5; JSE70;
3642/0: 203 267 215 J13;
3642/3: 170 376|042|171 362|036|027 =Q15; DUP; M15; -; NEG;
3643/4: 172 370|170 362|171 376|301 007 172|200 360 000 =+C15; =M15; Q15; =V2; EXIT1;
=== Start P6V6; at address 1965/3655
V-store at 03646 = 015 200 016 177 242 105 P6V6; V0=QAYY0/AYY255/-23995;
V-store at 03647 = 016 200 017 177 000 000 V1=QAYY256/AYY511/0;
V-store at 03650 = 000 000 000 000 000 000 V2=0;
V-store at 03651 = 000 000 000 000 340 005 V3=B160005;
V-store at 03652 = 000 000 000 000 140 105 V4=B60105;
V-store at 03653 = 000 000 175 004 072 321 V5=B17501035321;
3655/0: 300 007 250 V2;
3655/3: 170 376|103 360|243 367 262 2; =Q15;=M0M15Q; J4C15Z;
3656/4: 171 376|301 007 250|200 360 000 Q15; =V2; EXIT1;
3660/0: 300 007 247|300 007 246 1; V1; V0;
3661/0: 200 320 106|200 267 265|203 267 255 JSE70; J6; J2;
3662/3: 300 007 251|200 320 106|200 267 265|301 007 250 4; V3; JSE70; J6; =V2;
3664/3: 200 360 000 EXIT1;
3665/0: 304 040 065|200 327 272|300 007 250|170 365|300 007 252|170 362|171 376
6; SET8245; JSP7;3; V2; =RI15; V4; =M15; Q15;
3670/0: 200 320 106|200 267 265|200 360 000 JSE70; J6; EXIT1;
[ original source of the next page
=== Start P7V-1; at address 1978/3672
3672/0: 170 365 P7; =RI15;
3672/2: 304 000 200|170 362 SETB200; =M15;
3673/1: 320 013 070|041|033|047|015|011|321 013 070 Z39; ZERO; NOT; STR; NEV; OR; =Z39;
3675/0: 171 376|200 260 106 Q15; JE70;
=== Start P3V-1; at address 1982/3676
P3; (SEARCH LEVEL PARAMETERS POR A LEVEL L );
3676/0: 041|170 323|304 000 377|167 361|065 ZERO; =RM13; SETB377; SHC-8; REV;
3677/3: 320 333 055|170 336|171 324|042|170 322 1; Z50M13; =Q13; I13; DUP; =M13;
3701/1: 203 147 302 J2≠Z;
3701/4: 065|052|200 360 000 REV; ERASE; (NONE EXIST N1=L); EXIT1;
3702/3: 043|320 333 053|015|054|203 147 277 2; DUPD; Z52M13; NEV; AND; J1≠Z;
3704/0: 065|052|202 360 001 REV; ERASE; (N1=L; M13=ALP 0F L); EXIT2;
=== Start P10V-1; at address 1989/3705
P10; [called only on RESTART - reason unclear - hux
3705/0: 320 013 070|220 047 307|304 040 231|200 327 272 Z39; J1<Z; SET8345; JSP7;
3707/0: 304 206 125|164 101|164 301 1; SETB103125; SHL+32; SHL-32;
3710/1: 320 013 125|164 341|164 041|011|321 013 125 Z10; SHL-16; SHL+16; OR; =Z10;
3712/0: 304 336 010|170 362|304 004 224|170 364 SETB157010; =M15; SETB2224; =I15;
3713/4: 171 376|200 260 106 Q15; JE70;
[ diagnostic routine
=== Start P400V-1; at address 1997/3715
P400; (print YZ stores);
3715/0: 171 376 Q15;
3715/2: 304 016 172|164 041 SETB7172; (YZ); SHL+16; (start of print at YZ0);
3716/1: 304 020 177|170 365|304 017 200|170 370|171 376|304 000 106|200 220 000|170 376
SETAYZ255; =RI15; SETAYZ0; =C15;Q15; SET70; OUT; =Q15;
3721/3: 200 360 000 EXIT1;
=== Start P-1V-1; at address 2002/3722
Finished
FINISH;
Reached end of file