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.

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

                                                                       [ P269423.BMP

                                                                       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);
                                                                       [ P269423.BMP
                                                                       [ P269424.BMP
 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
                                                                       [ P269424.BMP
                                                                       [ P269425.BMP
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;
                                                                       [ P269425.BMP
                                                                       [ P269426.BMP
 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;
                                                                       [ P269426.BMP
                                                                       [ P269427.BMP
 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;
                                                                       [ P269427.BMP
                                                                       [ P269428.BMP
 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;
                                                                       [ P269428.BMP
                                                                       [ P269429.BMP
 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