Kidsgrove Algol Compiler - Brick 95
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 95.
Hot links to images of individual pages are embedded in the text.
Not all the pages have yet been converted.
Loaded 11314 bytes for KAB95.txt
Relocated 3
Finished
Reached end of file
=============== Second pass
===========================
4071 W0 = E2105
4240 Y0 = E2208
4071 YD0 = E2105
4201 YE0 = E2177
0/0: 200 266 126 [ original source of the next page
ST 11104; TL 1000;
START 1600;
V21;
YD 71;
YE 30;
4/0: 200 266 204|201 266 165 RESTART; J9; J1;
PROGRAM;
V-store at 03100 = 010 155 010 200 240 003 V0=QAYD52/AYD71/B120003;
V-store at 03101 = 010 155 010 200 240 021 V1=QAYD52/AYD71/B120021;
V-store at 03103 = 037 007 355 277 055 034 V3=B0760375557626434;
V-store at 03105 = 377 377 006 102 006 104 V5=Q-1/AV2/AV4;
V-store at 03106 = 000 000 000 000 140 003 V6=Q0/0/B60003;
V-store at 03110 = 000 000 020 101 004 020 V8=B2020202020;
V-store at 03111 = 000 000 000 000 000 000 V9=0;
V-store at 03112 = 036 150 151 263 134 245 V10=B0746415154656245;
V-store at 03113 = 000 014 241 270 371 154 V11=B0000624156174554;
V-store at 03116 = 000 000 006 111 006 115 V14=Q0/AV9/AV13;
V-store at 03120 = 216 373 160 246 311 144 V16=B4357556051544544;
V-store at 03121 = 000 014 241 270 371 154 V17=B0000624156174554;
V-store at 03124 = 000 000 006 117 006 123 V20=Q0/AV15/AV19;
3126/0: 304 000 200|170 176 SETB200; =Q7; [DHo line inserted to set M7 for R15 -- is this a bug or a typo?
3126/5: 320 013 074|224 046 131 Z35; J16<Z;
3127/5: 200 327 307 JSP11;
3130/2: 041|042|301 006 111|301 006 117 ZERO; DUP; =V9; =V15;
3131/4: 320 013 070|204 046 162 16; Z39; J17≥Z;
3132/4: 320 013 074|221 046 173 Z35; J15<Z;
3133/4: 300 006 116|304 000 010|200 220 000 V14; SET8; OUT;
3135/1: 300 000 000|167 371|201 046 165 19; E0; SHC-4; J1≥Z;
3136/3: 200 327 143|200 330 016 JSP4; JSP13;
3137/3: 200 327 237 13; JSP10;
3140/0: 300 006 100|200 320 106|200 266 203|052 V0; JSE70; J5; ERASE;
3141/4: 300 006 101|200 320 106|200 266 203 V1; JSE70; J5;
3143/1: 200 327 161|200 330 023 JSP5; JSP14;
3144/1: 200 326 226|204 266 145|200 266 156 2; JSP33; J7; J8;
3145/4: 300 006 223|170 043|300 006 224|300 006 223|036|033|027|170 050
7; V10P33; =RM2; V11P33; V10P33;-; NOT; NEG; =C2;
3150/2: 017|017|017|017|102 040|042|200 146 153|052 *3; M0M2Q; DUP; J4≠Z; ERASE;
3152/1: 177 040|201 266 144 J3C2NZS; J2; [WHY NO *
3153/0: 301 006 275|171 042|170 070|143 060|200 327 221 4; =V0P1; M2; =C3; DC3; JSP9;
3155/0: 260 046 151 J3C2NZ;
3155/3: 201 266 144 J2;
3156/0: 200 326 330|300 006 107|170 136|300 006 106|170 156 8; JSP12; V7; =Q5; V6; =Q6;
3160/1: 171 122|170 144|171 156|200 320 106|200 266 203 M5; =I6; Q6; JSE70; J5; (CLOSE CH 3);
3162/1: 201 266 165 J1;
3162/4: 320 013 074|222 046 176 17; Z35; J20<Z;
3163/4: 300 006 124|304 000 010|200 220 000 V20; SET8; OUT;
3165/1: 200 327 237|200 330 036|304 336 010|170 162 1; JSP10; JSP34; SETB157010; =M7;
3167/0: 320 013 074|222 046 174 Z35; J21<Z;
3170/0: 320 013 070|047|052|321 013 070 Z39; STR; ERASE; =Z39;
3171/2: 320 013 071|164 031|222 046 175 Z38; SHL+12; J6<Z;
3172/4: 304 004 021 SETB2021;
3173/1: 170 164|171 176|200 260 106 15; =I7; Q7; JE70;
3174/2: 304 006 022|201 266 173 21; SETB3022; J15;
3175/2: 304 004 120|201 266 173 6; SETB2120; J15;
3176/2: 320 013 070|304 000 003|167 375|011|321 013 070|201 266 165 20; Z39; SET3; SHC-2; OR; =Z39; J1;
3200/5: 320 013 070|164 005|164 375|321 013 070|201 266 135 18; Z39; SHL+2; SHL-2; =Z39; J19;
3203/0: 304 001 047|200 327 351 5; SET0295; JSP7;
3204/0: 304 000 001|042|170 050|170 170|304 010 241|170 264 9; SET1; DUP; =C2; =C7; SETAY1; =I11; (RESTART ROUTINE);
[ original source of the next page
[ original source of the next page
3206/1: 220 306 207|173 000 10; J11EJ; LINK;
3207/0: 200 246 210|203 266 137 11; J12NEN; J13;
3210/0: 052|201 266 206 12; ERASE; J10;
=== Start P33V12; at address 1686/3226
V-store at 03212 = 037 075 041 313 100 034 P33V12; V1=B0763644162640034;
V-store at 03214 = 377 377 006 211 006 213 V3=Q-1/AV0/AV2;
V-store at 03216 = 036 133 244 000 000 034 V5=B0745564400000034;
V-store at 03220 = 377 377 006 215 006 217 V7=Q-1/AV4/AV6;
V-store at 03221 = 000 000 020 101 004 020 V8=B2020202020;
V-store at 03222 = 050 242 212 050 242 212 V9=B1212121212121212;
14; (FIRST ADDRESS);
3226/0: 041|301 006 211|304 006 226|301 006 225 ZERO; =V0; SETAR14; =V12;
3227/4: 300 006 214|304 000 010|200 220 000 V3; SET8;OUT;
3231/1: 300 006 213|164 255|304 000 056|015|220 146 262 V2; SHL-42; SETB56; NEV; J1=Z; (NO P.M.);
3233/1: 300 006 213|164 351|304 000 077|054|304 000 033 V2; SHL-12; SETB77; AND; SETB33;
3235/1: 015|202 146 237 NEV; J2≠Z; (DECIMAL);
3235/5: 300 006 213|203 326 262|202 266 240 V2; JS3; J4;
3237/2: 300 006 213|205 326 264 2; V2; JS5; (OCTAL);
3240/2: 301 006 223 4; =V10;
13; (SECOND ADDRESS);
3240/5: 041|301 006 215|304 246 240|301 006 225 ZERO; =V4; SETAR13; =V12;
3242/3: 300 006 220|304 000 010|200 220 000 V7; SET8; OUT;
3244/0: 300 006 217|164 255|304 000 045|015|221 146 254 V6; SHL-42; SETB45; NEV; J6=Z;
3246/0: 300 006 217|164 351|304 000 077|054|304 000 033|015 V6; SHL-12; SETB77; AND; SETB33; NEV;
3250/1: 201 146 252 J7≠Z; (DECIMAL);
3250/4: 300 006 217|203 326 262|201 266 253 V6; JS3; J8;
3252/1: 300 006 217|205 326 264 7; V6; JS5; (OCTAL);
3253/1: 301 006 224|201 266 255 8; =V11; J9;
3254/1: 304 053 137|301 006 224 6; SETAZ0; =V11;
3255/1: 300 006 224|304 053 137|032|001|052|301 006 224 9; V11; SETAZ0; MAX; VR; ERASE; =V11;
3257/1: 300 006 223|300 006 224|032|001|301 006 224 V10; V11; MAX; VR; =V11;
3261/0: 301 006 223 =V10;
3261/3: 200 360 000 EXIT1;
3262/0: 202 360 001 1; EXIT2;
3; (DECIMAL);
3262/3: 164 335|300 006 221|036 SHL-18; V8; -;
3263/3: 300 006 222|065|013|200 360 000 V9; REV; TOB; EXIT1;
5; (OCTAL);
3264/5: 164 335|041|065 SHL-18; ZERO; REV;
3265/3: 304 000 005|170 111 SET5; =RC4;
3266/2: 017|017|017|017|166 373|167 373|017|017|143 100|177 100 *12; SHLD-3; SHC-3; *DC4; J2C4NZS;
3270/4: 164 335|300 006 221|015|221 146 274 SHL-18; V8; NEV; J15=Z;
3272/1: 052 ERASE;
3272/2: 173 000|052|300 006 225|174 000|202 360 000 LINK; ERASE; V12; =LINK; EXIT;
3274/1: 164 277|200 360 000 15; SHL-33; EXIT1;
=== Start P1V4; at address 1730/3302
V-store at 03276 = 013 013 013 013 013 001 P1V4; V1=B0260541302605401; [013 013 013 013 013 001 .....1
V-store at 03277 = 013 001 013 013 001 001 V2=B0260041302600401; [this 600040 is a guess 013 001 013 013 001 001 .1..11
V-store at 03300 = 001 013 013 001 013 001 V3=B0020541300205401; [001 013 013 001 013 001 1..1.1
V-store at 03301 = 001 001 013 001 001 001 V4=B0020041300200401; [001 001 013 001 001 001 11.111
3302/0: 304 006 276|170 322 SETAV1; =M13;
3302/5: 304 000 020|170 351 SET16; =RC14;
3303/4: 304 010 073|161 003|170 342|300 006 275 SETAYD2; SHA+1; =M14; V0;
3305/2: 041|166 007|170 362 1; ZERO; SHLD+3; =M15;
3306/1: 104 375|107 340|262 346 305 M13M15H; =M0M14QH; J1C14NZ;
(CONVERT INTO BINARY ROUTINE);
3307/2: 052|200 360 000 ERASE; EXIT1;
=== Start P12V15; at address 1752/3330
V-store at 03310 = 016 023 014 031 031 020 P12V15; V0=B0341141406214420;
V-store at 03311 = 027 000 236 236 236 236 V1=B0560023647517236; (LOSPSPSP); [027 000 236 236 236 236 L0
V-store at 03312 = 236 015 061 064 050 060 V2=B4740646115024060; (BLOCK); [236 015 061 064 050 060 Block
V-store at 03313 = 236 016 055 052 050 060 V3=B4740705512424060; (CHECK); [236 016 055 052 050 060 Check
[ original source of the next page
[ original source of the next page
V-store at 03314 = 042 064 067 051 070 271 V4=B1043206712234271; (WORDS); [042 064 067 051 070 271 Words:
V-store at 03315 = 050 242 201 004 020 101 V5=B1212120101010101;
V-store at 03316 = 000 000 010 240 011 237 V6=Q0/AY0/AY255;
V-store at 03317 = 033 046 067 056 071 076 V7=B0662306713434476; [033 046 067 056 071 076 Parity
V-store at 03321 = 216 210 156 272 133 034 V9=B4350415656455434;
V-store at 03323 = 377 377 006 320 006 322 V11=Q-1/AV8/AV10;
V-store at 03325 = 037 051 160 226 035 000 V13=B0762456045416400;
V-store at 03327 = 000 000 006 324 006 326 V15=Q0/AV12/AV14;
3330/0: 041|301 006 320 1; ZERO; =V8;
3330/4: 300 006 323|304 000 010|200 220 000 V11; SET8; OUT;
3332/1: 300 006 322|164 255|304 000 020|036 V10; SHL-42; SETB20; -;
3333/4: 304 000 004|220 026 342 SET4; J3=;
3334/4: 304 000 005|223 026 344 SET5; J5=;
3335/4: 304 000 036|015|223 146 341 SETB36; NEV; J10=Z;
3336/5: 041|301 006 324 ZERO; =V12;
3337/3: 300 006 327|304 000 010|200 220 000|200 266 347 V15; SET8; OUT; J4;
3341/3: 200 360 000 10; EXIT1;
3342/0: 200 326 347 3; JS4; (TO PRINT CHANNEL 4);
3342/3: 201 326 357 JS6; (TO TAPE EDIT);
3343/0: 304 000 004|204 327 044|200 266 330 SET4; JS33; (REPOSITION TAPE); J1;
3344/3: 200 326 347 5; JS4;
3345/0: 201 326 357 JS6;
3345/3: 304 000 005|204 327 044|200 266 330 SET5; JS33; J1;
3347/0: 304 000 023|170 131 4; SET19; =RC5; (TO PRINT CHANNEL NO.);
3347/5: 017|300 007 160|017|017|017|303 130 071|177 120 *2; V0P5; *=YD0M5Q; J2C5NZS;
3351/5: 300 006 310|301 010 075|300 006 311|301 010 076 V0; =YD4; V1; =YD5;
3353/5: 042|157 006|170 150 DUP; Q0TOQ6; =C6;
3354/4: 171 156|300 010 076|011|301 010 076 Q6; YD5; OR; =YD5;
3356/1: 200 327 213|200 360 000 JSP8; EXIT1;
(FIND THE UNIT NUMBER AND POSITION);
3357/1: 164 005|170 022 6; SHL+2; =M1; (M1=4*CHN);
3357/5: 300 020 022|164 245|027|033|221 147 044 E18M1; SHL-46; NEG; NOT; J20=Z;
3361/3: 300 020 022|164 023|047|203 146 365 E18M1; SHL+9; STR; J26≠Z; (CHANNEL SHARED);
3363/0: 164 257|170 051|204 327 004 SHL-41; =RC2; JS30; (MOVE TAPE TO LBL+ AFTER BTL.);
3364/1: 304 000 001|170 243|202 267 010 SET1; =RM10; J25; (TAPE EDIT);
3365/3: 164 257|164 005|170 022 26; SHL-41; SHL+2; =M1; (TO FIND SHARED CHANNEL);
3366/3: 300 020 023|164 301 E19M1; SHL-32; (HIGHEST BLOCK WRITTEN);
3367/2: 170 030 =C1;
3367/4: 300 020 022|164 023|047|204 146 372 E18M1; SHL+9; STR; J27≠Z;
3371/1: 164 257|170 051|140 040|201 266 376 SHL-41; =RC2; M+I2; J28;
3372/4: 164 257|164 005|170 022 27; SHL-41; SHL+2; =M1;
3373/4: 300 020 022|164 023|047|204 146 372 E18M1; SHL+9; STR; J27≠Z;
3375/1: 164 257|170 051|140 040 SHL-41; =RC2; M+I2;
3376/1: 154 023|142 060|143 060|142 060 28; C1TOQ3; NC3; DC3; NC3; (BLOCK;=BL0CK+1);
3377/3: 136 050|121 040|041|002 MRWDQ2; PARQ2; ZERO; =TR; (MOVE TAPE TO BTL);
3400/3: 120 050|203 347 000 34; MBTQ2; J34NTR;
3401/2: 134 040|121 040|041|002 29; MFSKQ2; PARQ2; ZERO; =TR;
3402/2: 143 060|262 067 001|171 030|170 243|140 240 DC3; J29C3NZ; C1; =RM10; M+I10;
3404/1: 202 267 010 J25;
3404/4: 136 050|121 040|041|002 30; MRWDQ2; PARQ2; ZERO; =TR;
3405/4: 120 050|204 347 005 35; MBTQ2; J35NTR;
3406/3: 140 040|134 040|121 040|041|002 M+I2; MFSKQ2; PARQ2; ZERO; =TR;
3407/5: 200 360 000 EXIT1; (FOR NONE SHARING CHANNEL);
3410/2: 300 006 316|170 276 25; (TAPE EDIT); V6; =Q11;
3411/1: 154 053 C2TOQ11;
3411/3: 124 260 19; MFRQ11;
3411/5: 300 007 160|042|301 010 071|042 V0P5; DUP; =YD0; DUP;
3413/1: 301 010 073|042|301 010 076|042 =YD2; DUP; =YD5; DUP;
3414/3: 301 010 101|042|301 010 102|301 010 104|200 327 063 =YD8; DUP; =YD9; =YD11; JS21;
3416/4: 300 006 312|301 010 074|300 006 314|301 010 077 V2; =YD3; V4; =YD6;
[ original source of the next page
[ original source of the next page
3420/4: 300 010 240|170 376|171 242|171 362 Y0; =Q15; M10; M15;
3422/1: 015|140 240|201 147 044 NEV; M+I10; J20≠Z;
3423/1: 171 362|201 327 056|301 010 075 M15; JS15; =YD4;
3424/3: 171 364|042|170 371|304 000 002|036 I15; DUP; =RC15; SET2; -;
3426/0: 201 327 056|301 010 100 JS15; =YD7;
3427/0: 300 010 240 Y0; (SUM CHECK FORMED AND CHECKED);
3427/3: 017|017|017|302 370 241|017|017|017|056|177 360 *7; Y1M15Q; *+; J7C15NZS;
3431/3: 200 147 033|300 006 313|301 010 102 J8≠Z; V3; =YD9;
3433/0: 121 260|205 347 034|300 006 317|301 010 104 8; PARQ11; J9NTR; V7; =YD11;
3434/5: 171 362|304 000 002|036|170 171 9; M15; SET2; -; =RC7;
3436/1: 200 327 213 JSP8;
3436/4: 017|017|302 170 241|042|201 147 041 *12; Y1M7Q; DUP; J11≠Z;
3440/1: 052|177 160|203 267 011 ERASE; J12C7NZS; J19; [ WHY NO *
3441/1: 301 006 275|171 162|170 070|143 060 11; =V0P1; M7; =C3; DC3;
3442/4: 200 327 221|260 167 037|203 267 011 JSP9; J12C7NZ; J19;
3444/1: 200 360 000 20; EXIT1;
3444/4: 164 005|170 022 33; SHL+2; =M1;
3445/2: 300 020 022|300 020 025|170 116|154 004|151 004 31; E18M1; E21M1; =Q4; C0TOQ4; M0TOQ4;
3447/2: 171 116|301 020 025|164 023|047|224 147 052 Q4; =E21M1; SHL+9; STR; J32=Z;
3451/1: 164 257|164 005|170 022|202 267 045 SHL-41; SHL+2; =M1; J31;
3452/4: 164 257|170 051|136 050|140 040|121 040 32; SHL-41; =RC2; MRWDQ2; M+I2; PARQ2;
3454/2: 041|002|134 040|121 040|041 ZERO; =TR; MFSKQ2; PARQ2; ZERO;
3455/3: 002|200 360 000 =TR; EXIT1;
3456/1: 300 006 315|065|067|041 15; V5; REV; FRB; ZERO;
3457/1: 166 015|164 005|166 015|164 005|166 015 SHLD+6; SHL+2; SHLD+6; SHL+2; SHLD+6;
3460/5: 300 007 160|164 061|011|167 021 V0P5; SHL+24; OR; SHC+8;
3462/1: 065|052|200 360 000 REV; ERASE; EXIT1;
3463/0: 041|033|042|301 010 105|042 21; ZERO; NOT; DUP; =YD12; DUP;
3464/1: 301 010 106|042|301 010 110|042|301 010 111 =YD13; DUP; =YD15; DUP; =YD16;
3466/0: 042|301 010 112|301 010 113|200 360 000 DUP; =YD17; =YD18; EXIT1;
=== Start P2V0; at address 1849/3471
P2V0; (CONVERT INTO OCTAL ROUTINE);
3471/0: 304 000 020|170 331 SET16; =RC13; (TOTAL SYLLABLE COUNT);
3471/5: 304 000 006|170 351 SET6; =RC14; (SYLLABLE COUNT);
3472/4: 300 006 275|304 010 104|170 343 V0P1; SETAYD11; =RM14;
3474/0: 041 5; ZERO;
3474/1: 164 013|166 007|143 340|143 320|240 347 077 1; SHL+5; SHLD+3; DC14; DC13; J2C14Z;
3476/0: 261 327 074|204 267 100 J1C13NZ; J3;
3477/0: 103 360|304 000 006|170 351|260 327 074 2; =M0M15Q; SET6; =RC14; J5C13NZ;
3500/4: 164 041|304 000 236|042|164 021|011|011 3; SHL+16; SETB236; DUP; SHL+8; OR; OR;
3502/2: 101 360|052 =M0M15; ERASE;
3502/5: 200 360 000 EXIT1;
=== Start P3V-1; at address 1860/3504
P3; (SYLLABIC OCTAL CONVERSION);
3504/0: 304 010 201|170 303|304 000 006|170 331 SETAYE0; =RM12; SET6; =RC13;
3505/4: 300 006 275 V0P1;
3506/1: 041 2; ZERO;
3506/2: 164 015|166 005|164 013|166 007 1; SHL+6; SHLD+2; SHL+5; SHLD+3;
3507/4: 164 013|166 007|304 000 236|167 361|065|166 021 SHL+5; SHLD+3; SETB236; SHC-8; REV; SHLD+8;
3511/4: 065|052 REV; ERASE;
3512/0: 103 300|143 320|261 327 106 =M0M12Q; DC13; J2C13NZ;
3513/1: 052 ERASE;
3513/2: 300 010 201|300 010 202|164 341|065|166 041|301 010 110 YE0; YE1; SHL-16; REV; SHLD+16; =YD15;
3515/4: 300 010 203|011|301 010 111 YE2; OR; =YD16;
3516/5: 300 010 204|300 010 326|164 041|065|166 041|301 010 112 YE3; Y54; SHL+16; REV; SHLD+16; =YD17;
3521/1: 300 010 206|011|301 010 113 YE5; OR; =YD18;
3522/2: 200 360 000 EXIT1;
=== Start P4V15; at address 1891/3543
P4V15; (Q STORE PRESERVATOR);
3543/0: 171 036|301 007 124|171 056|301 007 125 Q1; =V1; Q2; =V2;
3544/4: 171 076|301 007 126|171 116|301 007 127 Q3; =V3; Q4; =V4;
3546/2: 171 136|301 007 130|301 007 131 Q5; =V5; 06; =V6;
[ original source of the next page
[ original source of the next page
3547/4: 171 176|301 007 132|171 216|301 007 133 Q7; =V7; Q8; =V8;
3551/2: 171 236|301 007 134|171 256|301 007 135 Q9; =V9; Q10; =V10;
3553/0: 171 276|301 007 136|171 316|301 007 137 Q11; =V11; Q12; =V12;
3554/4: 171 336|301 007 140|171 356|301 007 141 Q13; =V13; Q14; =V14;
3556/2: 171 376|301 007 142 Q15; =V15;
3557/1: 200 360 000 EXIT1;
=== Start P5V0; at address 1905/3561
V-store at 03560 = 236 236 236 236 236 236 P5V0; V0=B4751723647517236; [236 236 236 236 236 236
3561/0: 304 000 017|170 151 SET15; =RC6;
3561/5: 302 147 124|301 006 275|200 326 302|200 327 071|200 327 104 1; V1P4M6Q; =V0P1; JSP1; JSP2; JSP3;
3564/2: 171 142|200 327 174|164 021|304 000 034|011 M6; JSP6; SHL+8; SETB34; OR;
3566/1: 167 361|301 010 071 SHC-8; =YD0;
3567/0: 041|301 010 114|200 327 213|265 147 161|200 360 000 ZERO; =YD19; JSP8; J1C6NZ; EXIT1;
=== Start P6V1; at address 1916/3574
V-store at 03572 = 050 242 212 050 242 212 P6V1; V0=B1212121212121212;
3574/0: 300 007 172|065|067 V0; REV; FRB;
3574/5: 164 045|041|301 007 173|304 000 005|170 031 SHL+18; ZERO; =V1; SET5; =RC1;
3576/4: 041|166 015|042|222 147 205 1; ZERO; SHLD+6; DUP; J2=Z;
3577/5: 167 361|300 007 173|166 021|301 007 173|052 3; SHC-8; V1; SHLD+8; =V1; ERASE;
3601/4: 143 020|300 007 173|243 027 204 DC1; V1; J4C1Z;
3603/0: 164 005|166 015|143 020 5; SHL+2; SHLD+6; DC1;
3604/0: 260 027 203 J5C1NZ;
3604/3: 065|052|200 360 000 4; REV; ERASE; EXIT1;
3605/2: 052|304 000 236|167 361|300 007 173|166 013 2; ERASE; SETB236; SHC-8; V1; SHLD+5;
3607/1: 301 007 173|052|143 020|264 027 176|041|203 267 204 =V1; ERASE; DC1; J1C1NZ; ZERO; J4;
(CONVERTS CONTENTS OF N1 INTO DECIMAL);
=== Start P8V0; at address 1931/3613
P8V0; (OUTPUT TO MONITOR);
V-store at 03612 = 010 071 010 114 270 321 V0=QAYD0/AYD19/B134321;
3613/0: 300 007 160|042|301 010 072|042|301 010 103 V0P5; DUP; =YD1; DUP; =YD10;
3614/5: 301 010 107 =YD14;
3615/2: 300 007 212|200 320 106|205 267 217|301 006 107 V0; JSE70; J1; =V7P0;
3617/2: 200 360 000 EXIT1;
3617/5: 304 000 303|200 327 351 1; SET0195; JSP7;
=== Start P9V-1; at address 1937/3621
P9; (E ADDRESS MANIPULATION);
3621/0: 171 070|200 327 174|304 000 020|167 361|065 C3; JSP6; SETB20; SHC-8; REV;
3622/5: 164 021|164 361|011|301 010 071 SHL+8; SHL-8; OR; =YD0;
3624/1: 200 326 302|200 327 071|200 327 104|200 327 213|200 360 000 JSP1; JSP2; JSP3; JSP8; EXIT1;
=== Start P10V7; at address 1951/3637
V-store at 03630 = 017 377 377 377 377 377 P10V7; V1=B0377777777777777;
V-store at 03631 = 007 233 007 233 000 300 V2=QAV4/AV4/B300;
3637/0: 041|033|170 023|041 ZERO; NOT; =RM1; ZERO;
3637/5: 052|140 020|157 003|171 022 3; ERASE; M+I1; Q0TOQ3; M1;
3641/0: 304 000 100|011|200 320 106|200 267 271 9; SETB100; OR; JSE70; J1;
3642/4: 042|225 147 237 DUP; J3=Z;
3643/2: 262 067 244 J10C3NZ;
3643/5: 042|170 076 DUP; =Q3;
3644/2: 164 023|047|002|164 257|220 347 241 10; SHL+9; STR; =TR; SHL-41; J9TR;
3645/5: 170 050|171 070|200 047 253 =C2; C3; J2≥Z;
3647/0: 171 022|167 377|047|065|052 M1; SHC-1; STR; REV; ERASE;
3650/1: 300 007 231|054 V2; AND;
3650/5: 304 140 000 SETB60000;
3651/2: 011|171 022|011|200 320 106 OR; M1; OR; JSE70; (CLOSE);
3652/3: 200 267 271 J1;
3653/0: 171 022|042|033|027|161 005 2; M1; DUP; NOT; NEG; SHA+2;
3654/1: 170 030|300 000 010|167 020|304 000 017|054 =C1; E8; SHCC1; SETB17; AND;
3656/0: 304 000 001|220 027 262 SET1; J5=;
3657/0: 304 000 005|221 027 266 SET5; J6=;
3660/0: 052|304 000 007|036|042|225 047 237 4; ERASE; SET7; -; DUP; J3<Z;
3661/3: 200 360 000 EXIT1;
3662/0: 171 076|164 017|222 047 275 5; Q3; SHL+7; J13<Z;
3663/1: 304 007 230|042|170 044|170 042 SETAV1; DUP; =I2; =M2;
[ original source of the next page
[ original source of the next page
3664/3: 130 040|121 040|223 347 264|200 267 260 8; LPQ2; PARQ2; J8TR; J4; [LPQ2; IS VALID
3666/1: 171 076|164 017|222 047 275 6; Q3; SHL+7; J13<Z;
3667/2: 304 000 170|170 042|130 054|200 267 260 SET120; =M2; PGAPQ2; J4;
3671/0: 171 022|200 327 336 1; M1; JS5P98;
3671/5: 224 247 274|041|304 000 007|171 022|036|225 107 237|052|200 360 000
12; J11EN; ZERO; SET7; M1; -; J3>Z; ERASE; EXIT1;
3674/4: 052|205 267 271 11; ERASE; J12;
3675/2: 304 007 227|170 044|304 007 230|170 042 13; SETAV0; =I2; SETAV1; =M2;
3677/0: 171 050|301 007 227|154 002 C2; =V0; C0TOQ2;
3700/1: 171 056|304 000 010|200 220 000 Q2; SET8; OUT;
3701/3: 200 267 260 J4;
=== Start P11V4; at address 1991/3707
V-store at 03702 = 004 242 212 004 142 201 P11V4; V0=B0112121201061201;
V-store at 03703 = 076 004 020 265 004 063 V1=B1740202055202063;
3707/0: 300 007 303|300 007 302|304 000 003|200 220 000|161 321 V1; V0; SET3; OUT; SHA-24;
3711/2: 320 013 075|164 321|036|067|011 Z34; SHL-24; -; FRB; OR;
3712/4: 042|301 006 114|301 006 122 DUP; =V12P0; =V18P0;
3713/5: 300 007 303|300 007 302|304 000 011|200 220 000|161 321 V1; V0; SET9; OUT; SHA-24;
3716/1: 320 013 075|164 061|164 321|036|067|011 Z34; SHL+24; SHL-24; -; FRB; OR;
3717/5: 042|301 006 115|301 006 123 DUP; =V13P0; =V19P0;
3721/0: 041|042|301 006 111|301 006 117 ZERO; DUP; =V9P0; =V15P0;
3722/2: 200 360 000 EXIT1;
=== Start P98V10; at address 2014/3736
P98V10; (FAILURE);
V-store at 03726 = 232 032 154 327 051 100 V3=B4641515465624500;
V-store at 03727 = 101 000 075 000 000 000 V4=B20200075/23;
V-store at 03730 = 000 000 007 325 007 327 V5=Q0/AV2/AV4;
V-store at 03731 = 000 000 007 332 007 334 V6=Q0/AV7/AV9;
V-store at 03735 = 000 004 020 101 004 020 V10=B202020202020;
3736/0: 200 327 337|204 267 346 5; JS6; J16;
3737/0: 171 376|301 007 323|171 356|301 007 324 6; Q15; =V0; Q14; =V1;
3740/4: 041|166 133 ZERO; SHLD+45;
3741/1: 164 007|166 357|052|300 007 327 SHL+3; SHLD-9; ERASE; V4;
3742/3: 042|066|011|301 007 327|041 DUP; CAB; OR; =V4; ZERO;
3743/4: 301 007 325|300 007 330|304 000 010|200 220 000|301 007 327 =V2; V5; SET8; OUT; =V4;
3746/1: 200 360 000 EXIT1;
3746/4: 300 007 323|170 376|300 007 324|170 356|200 360 000 16; V0; =Q15; V1; =Q14; EXIT1;
=== Start P7V-1; at address 2025/3751
3751/0: 170 365|304 000 200|170 362 P7; =RI15; SETB200; =M15;
3752/1: 171 376|200 260 106 Q15; JE70;
=== Start P13V34; at address 2062/4016
P13V34; (TO PRESERVE E18-49);
V-store at 03753 = 000 040 000 001 000 022 V0=Q32/1/AE18;
V-store at 03754 = 000 040 000 001 007 355 V1=Q32/1/AV2;
4016/0: 300 007 353|170 036|300 007 354|170 056 V0; =Q1; V1; =Q2;
4017/4: 017|017|102 020|017|017|017|017|103 040|177 020 *1; M0M1Q; *=M0M2Q; J1C1NZS;
4021/4: 200 360 000 EXIT1;
=== Start P14V-1; at address 2067/4023
P14; (TO PRINT E18-49);
4023/0: 300 007 354|170 176 V1P13; =Q7;
4023/5: 304 000 021|170 043 SET17; =RM2;
4024/4: 102 160|140 040|042|201 150 027|052|264 170 024|202 270 035 2; M0M7Q; M+I2; DUP; J1≠Z; ERASE; J2C7NZ; J3;
4027/1: 301 006 275|171 042|200 327 174|304 000 020|167 361|065|164 021|164 361|011
1; =V0P1; M2; JSP6; SETB20; SHC-8; REV; SHL+8; SHL-8; OR;
4032/2: 301 010 071 =YD0;
4032/5: 200 326 302|200 327 071|200 327 104|200 327 213|264 170 024 JSP1; JSP2; JSP3; JSP8; J2C7NZ;
4035/2: 200 360 000 3; EXIT1;
=== Start P34V-1; at address 2078/4036
4036/0: 304 000 004|203 330 057|320 013 074|222 050 042 P34; SET4; JS1; Z35; J7<Z; (POST);
4040/0: 320 013 077|164 061|164 255|036|220 150 047 Z32; SHL+24; SHL-42; -; J2=Z;
4041/5: 203 270 045 J8;
7; (POST); (N1 DEV NO CH4);
4042/2: 320 013 103|202 150 044 Z28; J11≠Z;
4043/2: 320 013 100|205 270 044 Z31; J12;
[ original source of the next page
[ original source of the next page
4044/2: 320 013 103 11; Z28;
4044/5: 036|220 150 047 12; -; J2=Z;
4045/3: 304 344 004|200 320 106|201 270 063 8; SETB162004; JSE70; J4;
4047/0: 304 000 006|203 330 057|320 013 074|222 050 053 2; SET6; JS1; Z35; J9<Z; (POST);
4051/0: 320 013 077|164 111|164 255|036|220 150 056 Z32; SHL+36; SHL-42; -; J5=Z;
4052/5: 203 270 054 J10;
9; (POST); (CH6 DEV IN N1);
4053/2: 320 013 101|036|220 150 056 Z30; -; J5=Z;
4054/3: 304 344 006|200 320 106|201 270 064 10; SETB162006; JSE70; J6;
4056/0: 200 360 000 5; EXIT1;
4056/3: 304 047 013|200 327 351 3; SET9995; JSP7;
4057/3: 304 000 100|011|200 320 106|203 270 056 1; SETB100; OR; JSE70; J3;
4061/1: 164 023|047|002|164 257|223 350 057 SHL+9; STR; =TR; SHL-41; J1TR;
4062/4: 200 360 000 EXIT1;
4063/1: 304 046 247|200 327 351 4; SET9895; JSP7;
4064/1: 304 046 103|200 327 351 6; SET9795; JSP7;
=== Start P-1V-1; at address 2102/4066
Finished
FINISH;
Reached end of file