Loaded 87026 bytes for walgolt.k3 Reached end of file =============== Second pass =========================== 7216 W0 = E3726 7366 Y0 = E3830 7224 YA0 = E3732 7266 YB0 = E3766 7326 YC0 = E3798 0/0: 200 260 170 [ good1to12.txt [ -- David H ST 0;TL99999; V 111; W 5; YA 33; YB31; YC31; 4/0: 204 263 244|204 263 245 RESTART; J 113; J 114; PROGRAM; (ENTRY TO TRANSLATOR); V-store at 00010 = 005 010 000 004 000 000 V-store at 00011 = 000 000 011 010 005 304 V0=B 0120 4000 0100 0000; V1=B 0000 0011 0200 2704; V-store at 00012 = 350 354 344 250 254 244 V-store at 00013 = 150 154 144 050 050 044 V2=B 7216 6344 5212 6244; V3=B 3206 6144 1202 4044; V-store at 00014 = 260 000 000 052 056 046 V-store at 00015 = 264 042 040 000 000 000 V4=B 5400 0000 1242 7046; V5=B 5502 1040 0000 0000; V-store at 00016 = 000 000 016 266 016 325 V-store at 00017 = 000 000 016 326 016 365 V6=Q 0 / AYB0 / AYB31; V7=Q 0 / AYC0 / AYC31; V-store at 00020 = 200 012 102 207 207 207 V-store at 00021 = 171 237 172 207 207 207 V8=B 4000 5102 4170 3607; V9=B 3631 7572 4170 3607; V-store at 00022 = 110 207 207 207 207 207 V-store at 00023 = 130 207 207 207 207 207 V10=B 2210 3607 4170 3607; V11=B 2610 3607 4170 3607; V-store at 00024 = 120 207 207 207 207 207 V-store at 00025 = 335 207 207 207 207 207 V12=B 2410 3607 4170 3607; V13=B 6730 3607 4170 3607; V-store at 00026 = 315 207 207 207 207 207 V-store at 00027 = 207 207 207 207 207 207 V14=B 6330 3607 4170 3607; V15=B 4170 3607 4170 3607; V-store at 00030 = 207 207 207 207 207 207 V-store at 00031 = 207 207 207 207 207 207 V16=B 4170 3607 4170 3607; V17=B 4170 3607 4170 3607; V-store at 00032 = 207 207 207 207 207 207 V-store at 00033 = 206 207 207 207 207 207 V18=B 4170 3607 4170 3607; V19=B 4150 3607 4170 3607; V-store at 00034 = 207 211 207 207 207 207 V-store at 00035 = 207 207 207 207 207 207 V20=B 4170 4607 4170 3607; V21=B 4170 3607 4170 3607; V-store at 00036 = 207 207 207 207 207 207 V-store at 00037 = 320 235 207 207 207 207 V22=B 4170 3607 4170 3607; V23=B 6411 6607 4170 3607; V-store at 00040 = 265 207 207 207 207 207 V-store at 00041 = 207 207 207 207 207 207 V24=B 5530 3607 4170 3607; V25=B 4170 3607 4170 3607; V-store at 00042 = 207 301 261 201 207 207 V-store at 00043 = 207 207 207 207 207 207 V26=B 4174 0661 4030 3607; V27=B 4170 3607 4170 3607; V-store at 00044 = 210 207 207 207 207 207 V-store at 00045 = 326 207 207 207 207 207 V28=B 4210 3607 4170 3607; V29=B 6550 3607 4170 3607; V-store at 00046 = 207 302 202 242 207 207 V-store at 00047 = 207 215 207 207 207 207 V30=B 4174 1202 5050 3607; V31=B 4170 6607 4170 3607; V-store at 00050 = 207 207 207 207 207 207 V-store at 00051 = 207 207 207 207 207 207 V32=B 4170 3607 4170 3607; V33=B 4170 3607 4170 3607; V-store at 00052 = 207 207 207 207 207 207 V-store at 00053 = 207 207 207 207 207 207 V34=B 4170 3607 4170 3607; V35=B 4170 3607 4170 3607; V-store at 00054 = 266 207 207 207 207 207 V-store at 00055 = 207 207 207 207 207 207 V36=B 5550 3607 4170 3607; V37=B 4170 3607 4170 3607; V-store at 00056 = 207 207 263 223 207 207 V-store at 00057 = 207 207 207 207 207 207 V38=B 4170 3663 4470 3607; V39=B 4170 3607 4170 3607; V-store at 00060 = 103 101 207 207 207 207 V-store at 00061 = 260 300 360 207 207 207 V40=B 2064 0607 4170 3607; V41=B 5414 0360 4170 3607; V-store at 00062 = 207 207 207 207 207 207 V-store at 00063 = 207 207 207 207 207 207 V42=B 4170 3607 4170 3607; V43=B 4170 3607 4170 3607; V-store at 00064 = 207 207 207 207 207 207 V-store at 00065 = 217 207 207 207 207 207 V44=B 4170 3607 4170 3607; V45=B 4370 3607 4170 3607; V-store at 00066 = 207 271 207 207 207 207 V-store at 00067 = 207 207 207 207 207 207 V46=B 4173 4607 4170 3607; V47=B 4170 3607 4170 3607; V-store at 00070 = 207 234 207 207 207 207 V-store at 00071 = 207 245 207 207 207 207 V48=B 4171 6207 4170 3607; V49=B 4172 2607 4170 3607; V-store at 00072 = 207 207 207 207 207 207 V-store at 00073 = 207 207 207 207 207 207 V50=B 4170 3607 4170 3607; V51=B 4170 3607 4170 3607; V-store at 00074 = 207 207 207 207 207 207 V-store at 00075 = 207 225 207 207 207 207 V52=B 4170 3607 4170 3607; V53=B 4171 2607 4170 3607; V-store at 00076 = 214 207 207 207 207 207 V-store at 00077 = 207 207 216 207 207 207 V54=B 4310 3607 4170 3607; V55=B 4170 3616 4170 3607; V-store at 00100 = 207 207 207 207 207 207 V-store at 00101 = 207 207 207 207 207 207 V56=B 4170 3607 4170 3607; V57=B 4170 3607 4170 3607; V-store at 00102 = 207 321 241 221 207 207 V-store at 00103 = 207 204 207 207 207 207 V58=B 4175 0641 4430 3607; V59=B 4170 2207 4170 3607; V-store at 00104 = 207 207 207 207 207 207 V-store at 00105 = 207 207 207 207 207 207 V60=B 4170 3607 4170 3607; V61=B 4170 3607 4170 3607; V-store at 00106 = 207 262 222 322 207 207 V-store at 00107 = 207 207 207 207 207 207 V62=B 4173 1222 6450 3607; V63=B 4170 3607 4170 3607; V-store at 00110 = 207 230 207 207 207 207 V-store at 00111 = 205 207 207 207 207 207 V64=B 4171 4207 4170 3607; V65=B 4130 3607 4170 3607; V-store at 00112 = 207 207 207 207 207 207 V-store at 00113 = 207 246 207 207 207 207 V66=B 4170 3607 4170 3607; V67=B 4172 3207 4170 3607; V-store at 00114 = 207 306 207 226 207 207 V-store at 00115 = 207 224 207 207 207 207 V68=B 4174 3207 4550 3607; V69=B 4171 2207 4170 3607; V-store at 00116 = 207 303 243 203 207 207 V-store at 00117 = 013 231 207 207 207 207 V70=B 4174 1643 4070 3607; V71=B 0271 4607 4170 3607; V-store at 00120 = 377 360 202 010 040 203 V-store at 00121 = 000 000 000 000 000 000 V72=B 7777 0202 0202 0203; V73=0; V-store at 00122 = 000 000 000 000 000 000 V-store at 00123 = 000 000 000 000 000 000 V74=0; V75=0; V-store at 00124 = 000 000 000 000 000 000 V-store at 00125 = 010 175 350 227 114 364 V76=0; V77=B 0207 6750 4564 6364; V-store at 00126 = 276 351 100 206 311 357 V-store at 00127 = 260 015 062 206 354 354 V78=B 5756 4500 4154 4757; V79=B 5400 6462 4156 6354; V-store at 00130 = 207 113 362 010 040 202 V-store at 00131 = 000 000 000 000 000 000 V80=B 4164 5762 0202 0202; V81=0; V-store at 00132 = 010 174 241 270 371 154 V-store at 00133 = 075 004 020 265 004 063 V82=B0207624156174554; V83=B1720202055202063; V-store at 00134 = 377 360 000 316 236 245 V-store at 00135 = 010 174 041 312 235 071 V84=B7777000063517245; V85=B0207604162516471; V-store at 00136 = 002 150 151 260 012 156 V-store at 00137 = 003 112 164 262 121 307 V86=B 0046 4151 5400 5156; V87=B 0064 5164 5445 0707; V-store at 00140 = 010 161 307 277 135 034 V-store at 00141 = 000 000 000 000 000 000 V88=B 0207 0707 5765 6434; V89=0; V-store at 00142 = 115 004 136 173 134 065 V-store at 00143 = 034 053 102 256 335 320 V90=B2320213636656065; V91=B0702550253556720; V-store at 00144 = 000 000 377 377 023 040 V-store at 00145 = 000 000 000 000 000 000 V92=Q 0/-1/4896; V93=0; V-store at 00146 = 000 000 024 074 074 141 V-store at 00147 = 025 020 001 002 000 000 V94=B 0000 0024 1703 6141; V95=B 0521 0001 0040 0000; V-store at 00150 = 230 242 030 004 230 000 V-store at 00151 = 044 001 000 030 004 000 V96=B 4612 1030 0111 4000; V97=B 1100 0400 0600 2000; V-store at 00152 = 242 044 011 030 001 230 V-store at 00153 = 036 020 037 000 000 000 V98=B 5042 2011 0600 0630; V99=B 0741 0037 0000 0000; V-store at 00154 = 230 025 020 001 000 000 V-store at 00155 = 230 025 036 020 011 000 V100=B 4601 2420 0020 0000; V101=B 4601 2436 0400 4400; V-store at 00156 = 044 011 030 001 230 242 V-store at 00157 = 000 000 170 074 074 141 V102=B 1100 4430 0031 4242; V103=B 0000 0170 1703 6141; V-store at 00160 = 000 000 004 000 000 100 V-store at 00161 = 000 000 000 000 000 000 V104=B 0000 0004 0000 0100; V105= 0; (TEMP STORE USED BY CODE BODY); V-store at 00162 = 033 003 000 001 041 000 V-store at 00163 = 242 014 033 000 000 000 V106=B 0660 1400 0022 0400; V107=B 5040 6033 0000 0000; V-store at 00164 = 020 043 024 037 001 230 V-store at 00165 = 021 024 031 024 036 023 V108=B 0402 1424 0760 0630; V109=B 0421 2031 0501 7023; (ENTRY TO TRANSLATOR CONTINUED); 170/0: 300 000 002|164 321|164 061|301 000 167 E2; SHL-24; SHL+24; =V111; 171/4: 041|301 007 173|041|301 010 056|041|301 010 060 102; ZERO; =V74P31; ZERO; =V4P33; ZERO; =V6P33; 173/4: 041|301 012 107 ZERO; =V7P53; 174/2: 041|301 012 270 ZERO; =V0P55; 175/0: 041|301 004 123|041|301 004 102 ZERO; =V0P5; ZERO; =V0P4; 176/2: 041|301 004 103|041|301 012 105 ZERO; =V1P4; ZERO; =V5P53; 177/4: 304 000 140|170 165|304 000 141|170 162|304 377 377|170 170 SETAV88; =RI7; SETAV89; =M7; SET-1; =C7; 202/1: 304 377 377|301 016 010|171 176|200 336 115|300 000 141 SET-1; =V4P114; Q7; JSP114; (TYPE OUT); V89; 204/3: 300 000 000|304 000 001|054|200 140 311 E0; SET1; AND; J107NEZ; (JUMP IF SIMULATOR REQUIRED); 206/1: 304 000 003|301 014 175|304 000 002|304 000 005|200 220 000|301 014 174 SET3; =V28P113; SET2; SET5; OUT; =V27P113; (OPERATOR TO TYPE 10,30 OR N AND END MESSAGE); 211/1: 164 271|304 004 120|225 020 214 SHL-36; SETB2120; J95=; (IF REF TABLES ON PUNCH); 212/3: 304 004 320|036|200 140 216 SETB2320; -; J109!=Z; (IF NO REF TABLES); 213/4: 304 000 005|042|301 010 056 SET5; DUP; =V4P33; 214/5: 052|304 000 001|301 010 060 95; ERASE; SET1; =V6P33; (SET REF TABLES OUTPUT MARKER); 216/0: 304 000 003|200 220 000|301 000 145|304 000 011|200 220 000|301 000 166 109; SET3; OUT; =V93; SET9; OUT; =V110; 221/0: 300 000 001|164 061|164 321|027|033 E1; SHL24; SHL-24; NEG; NOT; 222/3: 304 016 216|036|170 031 SETAW0; -; =RC1; 223/3: 041|303 036 216|263 020 223|300 007 365|042|301 016 365|301 016 325 103; ZERO; =W0M1Q; J103C1NZ; V64P32; DUP; =YC31; =YB31; 226/2: 300 000 016|170 176|300 014 175|164 101|164 301|301 016 260|300 014 174|164 101 V6; =Q7; V28P113; SHL32; SHL-32; =YA28; V27P113; SHL32; 231/4: 164 301|042|170 170|301 016 257|125 160 SHL-32; DUP; =C7; =YA27; PREQ7; 233/2: 300 000 017|042|301 016 252|170 036|121 160|154 161 V7; DUP; =YA22; =Q1; PARQ7; C7TOQ1; 235/3: 125 020|300 000 016|301 016 253|300 016 267|042|300 016 266|042 PREQ1; V6; =YA23; YB1; DUP; YB0; DUP; 240/1: 012|166 321|301 000 002|301 000 003|301 000 121|301 000 122 PERM; SHLD-24; =E2; =E3; =V73; =V74; (TRANSFER IDENT); 242/4: 304 000 120|170 165|304 000 122|170 162 SETAV72; =RI7; SETAV74; =M7; 244/2: 171 176|200 336 115 119; Q7; JSP114; 245/1: 304 000 377|042|170 042|301 016 230 SETB377; DUP; =M2; =YA4; 246/4: 157 004|157 005|157 006|157 010|304 000 010|170 225 Q0TOQ4; Q0TOQ5; Q0TOQ6; Q0TOQ8; SET8; =RI9; 250/5: 300 000 001|164 061|164 321|027|033 E1; SHL24; SHL-24; NEG; NOT; 252/2: 304 016 370|036|042|170 302|170 371 SETAY2; -; DUP; =M12; =RC15; 253/5: 304 377 375|170 304|304 007 314|170 331|304 000 003 SET-3; =I12; SET1996; =RC13; SET3; 256/0: 170 322|157 016|304 026 306|170 342 =M13; Q0TOQ14; SETAY2000; =M14; 257/3: 304 001 204|301 016 226|304 000 001|042|042|170 036|301 016 237|301 016 251|304 010 000 SETB604; =YA2; SET1; DUP; DUP; =Q1; =YA11; =YA21; SETB4000; 263/1: 301 016 246|203 340 267|304 000 135|170 064|304 000 137|170 062 =YA18; J115NTR; SETAV85; =I3; SETAV87; =M3; 265/5: 300 016 260|170 070|171 076|200 336 115 YA28; =C3; Q3; JSP114; (PRINT MESSAGE IF PARITY FAIL IN TITLE OF ALGOL PROG.); 267/3: 300 016 325|300 007 365|036|201 140 274 115; YB31; V64P32; -; J1!=Z; (JUMP TO FAIL IF ALGOL TITLE TOO LONG); 271/1: 304 000 005|200 323 255 SET5; JSP1; 272/1: 042|304 000 046|015|304 000 267|054|224 140 275 DUP; SETB46; NEV; SETB267; AND; J2=Z; (JUMP IF DELIMITER = BEGIN OR : ); 274/1: 300 006 242|300 006 243|202 332 043 1; V120P29; V121P29; JS13P50; (TYPE FAIL AND PRINT NO BEGIN); 275/4: 041|304 001 256|166 361|164 101|171 302|056|042|200 331 073 2; ZERO; SETB656; SHLD-8; SHL32; M12; +; DUP; JSP44; 300/1: 304 000 170|301 016 230|304 000 146|036 SET120; =YA4; SET102; -; 301/5: 201 140 315 J5!=Z; (JUMP TO OUT IF DELIMITER != : ); 302/2: 154 013|304 011 010|301 016 224 C0TOQ11; SETB4410; =YA0; 303/4: 200 324 060|304 000 001|041|200 331 153|304 000 005|200 323 255|304 000 056|221 020 312 3; JSP3; SET1; ZERO; JSP47; SET5; JSP1; SET46; J4=; (JUMP IF DELIMITER = BEGIN); 307/2: 304 000 146|036|224 140 303|201 260 274 SET102; -; J3=Z; (jump if delimiter = :); J1; 311/0: 052|200 334 255|200 260 216 107; ERASE; JSP113; J109; 312/1: 052|041|304 002 135|166 357 4; ERASE; ZERO; SETB1135; SHLD-9; 313/2: 200 330 165|041|301 016 224|041|301 016 234 JSP36; ZERO; =YA0; ZERO; =YA8; (RETURN TO OUT); (MAIN LOOP); 315/1: 224 240 316|304 001 377|200 260 325 5; J105EN; SETB777; J7; 316/4: 304 000 005|200 323 255|304 000 157|204 020 321|304 000 205|200 260 325 105; SET5; JSP1; SETB157; J6!=; SET133; J7; 321/4: 200 333 377 6; JSP101; 322/1: 042|304 000 037|054 DUP; SETB37; AND; 323/0: 200 333 367 *; JSP100; (TREE); 323/3: 203 260 363|200 260 325 J8; J7; 324/3: 304 000 055 SET45; 325/0: 200 264 124 7; JP5; 325/3: 200 324 206|201 260 315 JSP6; J5; 326/3: 300 016 224|204 261 173 YA0; J18; 327/3: 203 261 313|200 260 325 J39; J7; 330/3: 300 016 224|200 261 171 YA0; J17; 331/3: 304 004 004|300 016 224|200 325 015|201 260 315|204 260 367|200 260 325 SETB2004; YA0; JSP16; J5; J9; J7; 334/3: 052|100 376|042|167 021|200 325 250|201 260 315 ERASE; M14M15; DUP; SHC8; JSP21; J5; 336/3: 200 325 367|201 260 315|171 030|017|200 262 375 JSP25; J5; C1; DUMMY; J67; 340/3: 200 325 223|201 260 315 JSP20; J5; 341/3: 200 324 045|201 260 315 JSP2; J5; 342/3: 304 000 055|200 260 325 SET45; J7; 343/3: 171 030|220 040 325|017|200 325 035|201 260 315 C1; J7=Z; (JUMP IF MARKER L NOT SET); 430/1: 042|041|041|200 332 056 DUP; ZERO; ZERO; JSP52; 431/1: 052|264 340 377|171 116|164 021|164 261|304 000 157|036|203 141 167 16; ERASE; J11C14NZ; Q4; SHL8; SHL-40; SETB157; -; J90*NEZ; (IF FINAL END NOT FOLLOWED BY END MESSAGE); 434/0: 300 016 260|170 151|300 016 256|203 141 115 YA28; =RC6; YA26; J112*NEZ; (IF FAIL SET); 435/5: 300 016 265|223 141 062 YA33; J157=Z; (IF NO CODE PROCEDURES); 436/5: 304 000 075|300 000 000|304 000 040|054|220 140 325|052 SET61; E0; SETB40; AND; J7=Z; ERASE; 441/1: 300 000 162|304 000 005|200 324 330|300 016 265|027|033|200 324 346 V106; SET5; JS1P12; YA33; NEG; NOT; JSP13; 444/0: 304 000 230|200 324 327|041|300 016 265 SETB230; JSP12; ZERO; YA33; 445/4: 065|304 000 041|200 324 327|042|200 324 346|300 000 163|304 000 003|200 324 330 156; REV; SETB41; JSP12; DUP; JSP13; V107; SET3; JS1P12; 451/0: 042|304 001 056|056|200 324 346|304 000 230|200 324 327 DUP; SET302; +; JSP13; SETB230; JSP12; 453/2: 033|027|065|027|033|042|204 141 045 NOT; NEG; REV; NEG; NOT; DUP; J156*NEZ; 454/5: 052|052|300 000 164|304 000 006|200 324 330 ERASE; ERASE; V108; SET6; JS1P12; 456/4: 300 000 165|304 000 006|200 324 330|304 230 276|164 101|304 000 002|200 324 330 V109; SET6; JS1P12; SETB114276; SHL32; SET2; JS1P12; 462/0: 202 324 341 JS7P12; 462/3: 171 322|042|170 071|301 016 370|300 016 237|301 016 367|300 016 236|301 016 366 157; M13; DUP; =RC3; =Y2; YA11; =Y1; YA10; =Y0; 465/5: 300 000 000|304 000 020|054|202 141 076|300 000 122|301 016 365|300 000 121|301 016 364 E0; SETB20; AND; J97!=Z; V74; =Y-1; V73; =Y-2; 471/3: 151 323|145 060|304 000 003|172 070 M13TOQ3; I3=-1; SET3; =+C3; 473/0: 300 000 144|170 156|171 062|172 142 V92; =Q6; M3; =+M6; 474/3: 302 076 366|103 140|263 061 074|203 261 115 96; Y0M3Q; =M0M6Q; J96C3NZ; J112; 476/2: 304 000 121|170 144|304 000 124|170 142|171 156|200 336 115 97; SETAV73; =I6; SETAV76; =M6; Q6; JSP114; 500/5: 304 016 216|042|170 144|170 142|171 150|300 000 000|304 000 010|054|225 141 111 SETAW0; DUP; =I6; =M6; C6; E0; SETB10; AND; J108=Z; (JUMP FOR OUTPUT OF BINARY OBJECT PROGRAM); 504/1: 302 076 366|200 334 077|052|171 070|201 041 104 101; Y0M3Q; JSP125; ERASE; C3; J101>=Z; 506/1: 052|304 000 075|301 016 216|171 156|200 336 115 ERASE; SETB75; =W0; Q6; JSP114; (OUTPUT OBJ. PROG. INSYLL. OCTAL); 510/1: 154 006|171 156|200 336 115|202 261 116 C0TOQ6; Q6;JSP114; J121; 511/5: 302 076 366|301 016 216|171 156|200 336 115|171 070|205 041 111|052|154 006|202 261 116 108; Y0M3Q; =W0; Q6; JSP114; C3; J108>=Z; ERASE; C0TOQ6; J121; 515/3: 300 016 260|170 150 112; YA28; =C6; 516/2: 304 016 217|170 144|304 016 223|170 142 121; SETAW1; =I6; SETAW5; =M6; 520/0: 304 000 003|200 220 000|300 000 145|036|161 321|304 000 074|044|200 334 117 SET3; OUT; V93; -; SHA-24; SET60; /I; JSP127; 523/1: 300 014 115|164 015|065|200 334 117|300 014 115|164 061|300 000 133|011|011|301 016 220 V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W2; 526/5: 304 000 011|200 220 000|300 000 166|036|161 321|304 000 074|044|200 334 117 SET9; OUT; V110; -; SHA-24; SET60; /I; JSP127; 532/0: 300 014 115|164 015|065|200 334 117|300 014 115|164 061|300 000 133|011|011|301 016 221 V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W3; 535/4: 300 000 132|301 016 217|300 000 134|301 016 222|171 024|200 334 117|300 014 115|164 015|304 000 002|301 016 223 V82; =W1; V84; =W4; I1; JSP127; V2P127; SHL+6; SETB02; =W5; 542/2: 300 016 223|011|301 016 223|241 141 145|171 156|200 336 115|154 006 W5; OR; =W5; J91C6Z; Q6; JSP114; C0TOQ6; 545/1: 171 156|200 336 115|304 000 010|042|042|164 041|011|164 041|011 91; Q6; JSP114; SETB10; DUP; DUP; SHL16; OR; SHL16; OR; 547/5: 304 000 010|200 220 000 SET8; OUT; 550/5: 300 010 056|170 150|245 141 155|171 156|200 336 115 V4P33; =C6; J120C6Z; Q6; JSP114; 553/0: 304 000 030|042|042|164 041|011|164 041|011 SETB30; DUP; DUP; SHL16; OR; SHL16; OR; 554/5: 304 000 010|200 220 000 SET8; OUT; 555/5: 300 016 257|304 000 006|200 220 000|300 014 254|225 141 161 120; YA27; SET6; OUT; V75P113; J122=Z; 560/2: 300 016 260|304 000 006|200 220 000 YA28; SET6; OUT; 561/5: 300 016 256|300 000 000|304 000 020|054|011|204 140 171 122; YA26; E0; SETB20; AND; OR; J102!=Z; (IF FAIL SET OR NOT LOAD AND GO); 564/1: 300 000 142|300 000 143|164 061|164 321|300 000 167|011 V90; V91; SHL+24; SHL-24; V111; OR; (CONTROL ROUTINE IDENT); 566/3: 304 000 001|200 220 000 SET1; OUT; (ENTER CONTROL ROUTINE); 567/3: 300 006 216|300 006 217|202 332 043 90; V100P29; V101P29; JS13P50; (if no end message after prog); (OWN); 571/0: 300 016 225|011|200 140 325 17; YA1; OR; J7NEZ; (jump to fail if T or D != 0); 572/1: 301 016 225|200 327 053|201 260 315 =YA1; JSP30; J5; (SWITCH); 573/4: 300 016 225|011|200 140 325 18; YA1; OR; J7!=Z; (jump if T or D != 0 ); 574/5: 052|304 005 010|301 016 224 ERASE; SETB2410; =YA0; 576/0: 304 001 010|301 016 226|200 327 053|201 260 315 SETB410; =YA2; JSP30; J5; (RIGHT ROUND BRACKET ); 600/0: 065|052|200 141 212 20; REV; ERASE; J24!=Z; (jump if PROC = 1 ); 600/5: 171 022|224 141 202|304 000 125 M1; J22=Z; (JUMP IF E = 0); SET85; 602/1: 200 260 325 21; J7; 602/4: 304 000 001|200 330 276|304 000 002|200 330 171|304 000 126|100 376|041|166 021|065 22; SET1; JSP41; SET2; JSP37; SET86; M14M15; ZERO; SHLD8; REV; 606/1: 164 321|301 016 233|304 000 163|036|201 141 202 SHL-24; =YA7; SET115; -; J21!=Z; (JUMP TO FAIL IF TS !=BRACKET); 610/1: 052|141 360|304 000 001|172 370 ERASE; M-I15; SET1; =+C15; 611/3: 201 260 315 23; J5; 612/0: 200 332 326 24; JSP57; 612/3: 154 013 25; C0TOQ11; 612/5: 100 376|042|164 261|304 000 163|222 021 233 26; M14M15; DUP; SHL-40; SET115; J28=; (JUMP IF TS=LEFT BRACKET); 614/4: 042|304 000 201|042 DUP; SETB201; DUP; 615/3: 066|054|015|304 000 127|065|201 141 202|052|171 042|036 CAB; AND; NEV; SET87; REV; J21!=Z; ERASE; M2; -; 617/5: 201 141 230|164 321|170 262|300 276 367|170 076|171 064 J27!=Z; SHL-24; =M11; Y1M11; =Q3; I3; 622/1: 304 000 001|200 331 130|042|170 064|171 076|042 SET1; JSP45; DUP; =I3; Q3; DUP; 624/1: 222 041 226|171 062|202 141 226|065|170 062|171 076 J3263); ERASE; 736/1: 154 013|041|033|301 016 234|041|200 330 143 C0TOQ11; ZERO; NOT; =YA8; ZERO; JSP35; 740/0: 304 000 170|201 021 357 SET120; J41!=; (JUMP IF DELIMITER != SEMI COLON); 741/0: 300 016 224|304 010 005|011|301 016 224|052|304 000 002|041|200 331 153|171 302|301 016 240 YA0; SETB4005; OR; =YA0; ERASE; SET2; ZERO; JSP47; M12; =YA12; 744/5: 300 276 370|301 316 370 Y2M11; =Y2M12; 745/5: 300 276 367|301 316 367|300 276 366 Y1M11; =Y1M12; Y0M11; 747/2: 164 377|164 003|303 316 366|041|304 004 025|166 361 SHL-1; SHL1; =Y0M12Q; ZERO; SETB2025; SHLD-8; 751/3: 200 330 115|300 016 245|304 000 012|166 121|304 000 007|200 330 115 JSP34; YA17; SET10; SHLD40; SET7; JSP34; 754/2: 041|301 016 255 ZERO; =YA25; (PH := 0); 755/0: 041|301 016 224|304 000 005|200 323 255|200 262 154 ZERO; =YA0; SET5; JSP1; J66; (TO CHECK DELIMITER = KDF9); 757/1: 304 000 163|065|200 020 325|052|300 016 224|304 007 377|054 41; SET115; REV; J7!=; ERASE; YA0; SETB3777; AND; 761/4: 304 002 004|011|301 016 224|200 331 140|301 016 216|171 262 SETB1004; OR; =YA0; JSP46; =W0; M11; 764/1: 301 016 217|171 302|301 016 240|300 276 370|301 316 370|300 016 243|303 316 366|304 000 001|301 016 233 =W1; M12; =YA12; Y2M11; =Y2M12; YA15; =Y0M12Q; SET1; =YA7; 770/3: 304 000 001|042|172 270|200 323 255|200 331 140|304 000 134|065 42; SET1; DUP; =+C11; JSP1; JSP46; SET92; REV; 773/1: 200 140 325|052|304 000 077|300 016 235|304 000 003|056|042|171 350 J7!=Z; (FAIL IF X!=0); ERASE; SET63; YA9; SET3; +; DUP; C14; 776/0: 164 025|056|164 041|041|033|050|301 276 367 SHL10; +; SHL16; ZERO; NOT; CONT; =Y1M11; 777/5: 042|027|033|301 016 235|304 374 000|054 DUP; NEG; NOT; =YA9; SETB176000; AND; 1001/3: 200 140 325|052|300 016 243|041|033|050 J7!=Z; (FAIL IF L+3>1023); ERASE; YA15; ZERO; NOT; CONT; 1003/1: 301 276 366|304 000 175|225 022 006|304 000 173|036|223 141 370 =Y0M11; SET125; J43=; SET123; -; J42=Z; (JUMP IF DEL =,); 1005/5: 304 000 135|200 260 325 SET93; J7; 1006/5: 052|304 000 001|200 331 130|304 116 000|164 041|056|164 041|101 376 43; ERASE; SET1; JSP45; SETB47000; SHL16; +; SHL16; =M14M15; 1011/4: 300 016 217|170 262|304 000 002|300 016 216|042|205 142 014 W1; =M11; SET2; W0; DUP; J44!=Z; (JP IF X=0); 1014/1: 041|301 276 366 ZERO; =Y0M11; 1014/5: 171 042|200 331 153|304 004 025|164 061|171 270|056 44; M2; JSP47; SETB2025; SHL24; C11; +; 1017/0: 041|166 041|200 330 115|300 276 370|042|304 000 012 ZERO; SHLD16; JSP34; Y2M11; DUP; SET10; 1021/1: 166 121|304 000 007|200 330 115|300 016 240|170 062|301 076 370|300 276 367 SHLD40; SET7; JSP34; YA12; =M3; =Y2M3; Y1M11; 1024/2: 301 076 367|300 276 366|164 377|164 003|301 076 366|041 =Y1M3; Y0M11; SHL-1; SHL1; =Y0M3; ZERO; 1026/4: 301 016 233|041|301 016 224|304 000 170|041|200 323 255 =YA7; ZERO; =YA0; SET120; ZERO; JSP1; 1031/0: 200 020 325 J7!=; (FAIL IF DELIMITER != SEMI COLON); 1031/3: 304 377 377|301 016 255 SET-1; =YA25; (PH := -1); 1032/3: 041|200 323 255 ZERO; JSP1; 1033/1: 304 000 101|203 022 045 SET65; J46!=; (JUMP IF DEL != VALUE); 1034/1: 052|304 000 001|200 323 255|200 331 140|052|304 000 136 45; ERASE; SET1; JSP1; JSP46; ERASE; SET94; 1036/3: 300 276 366|043|200 040 325|052|041 Y0M11; DUPD; J7>=Z; (FAIL IF F COL =0); ERASE; ZERO; 1040/0: 050|304 001 000|164 061|056|301 276 366|052|304 000 173 CONT; SETB400; SHL24; +; =Y0M11; ERASE; SET123; 1042/2: 221 022 034|304 000 137|065|304 000 170|036|200 140 325 J45=; (JUMP IF DEL = ,); SET95; REV; SET120; -; J7!=Z; 1044/4: 052|041|200 323 255 (FAIL IF DEL= OTHER); ERASE; ZERO; JSP1; 1045/3: 042|304 000 037|054|202 142 050|164 377 46; DUP; SETB37; AND; J47!=Z; (JUMP IF DEL!=SCALAR); SHL-1; 1047/1: 304 011 224|056|203 262 057 SETB4624; +; J49; 1050/2: 304 000 201|201 022 052|164 365|203 262 057 47; SET129; J48!=; (JUMP IF DEL!=STRING); SHL-6; J49; 1052/1: 042|164 373|225 142 054|065|224 142 116 48; DUP; SHL-3; J55=Z; (JUMP IF DEL = SPECIFIER); REV; J56=Z; 1053/5: 304 000 140|200 260 325 SET96; J7; (FAIL IF DEL!=SPECIFIER IN SPEC. PART); 1054/5: 164 011|170 070|300 000 010|300 000 011 55; SHL4; =C3; V0; V1; 1056/3: 166 060|164 301|065|052 SHLDC3; SHL-32; REV; ERASE; 1057/3: 301 016 224|304 000 005|200 323 255|304 000 141|171 030|220 040 325|052 49; =YA0; SET5; JSP1; SET97; C1; J7=Z; SHL-11; SET105; REV; J58=Z; ERASE; 1134/4: 300 316 366|041 Y0M12; ZERO; 1135/2: 033|050|301 316 366|304 000 240 NOT; CONT; =Y0M12; SET160; 1136/4: 164 121 64; SHL40; 1137/0: 304 000 001|200 330 115|200 262 121 60; SET1; JSP34; J57; [ good14.txt [ -- David H 1140/3: 300 000 012 61; V2; 1141/0: 065|164 377|304 000 030|043|054|170 070|065|164 363|054 62; REV; SHL-1; SETB30; DUPD; AND; =C3; REV; SHL-7; AND; 1143/2: 042|042|056|056|172 070|164 060|200 262 137 DUP; DUP; +; +; =+C3; SHLC3; J60; 1145/1: 042|304 000 012|054|204 142 152|042|164 357|300 000 013 63; DUP; SETB12; AND; J65!=Z; DUP; SHL-9; V3; 1147/3: 065|200 142 141|052|042 REV; J62!=Z; ERASE; DUP; 1150/3: 304 001 000|054|164 007|011|300 000 014|200 262 141 SETB400; AND; SHL3; OR; V4; J62; 1152/4: 164 365|300 000 015|200 262 141 65; SHL-6; V5; J62; 1154/0: 041|301 012 105|304 000 041|204 020 321 66; ZERO; =V5P53; SET33; J6!=; (CODE BODY); 1155/4: 052|300 016 265|203 142 173 ERASE; YA33; J151!=Z; (if not first code procedure); 1156/5: 041|301 004 325|304 000 006|301 004 326 ZERO; =V0P12; SET6; =V1P12; 1160/3: 304 000 021|200 324 327|304 000 035|200 324 327 SETB21; JSP12; SETB35; JSP12; 1162/3: 304 000 032|200 324 327|304 000 031|200 324 327 SETB32; JSP12; SETB31; JSP12; 1164/3: 304 000 037|200 324 327|304 000 236|200 324 327 SETB37; JSP12; SETB236; JSP12; 1166/3: 304 000 036|200 324 327|304 000 023|200 324 327 SETB36; JSP12; SETB23; JSP12; 1170/3: 304 000 020|200 324 327|304 000 020|200 324 327 SETB20; JSP12; SETB20; JSP12; 1172/3: 304 000 037|200 324 327 SETB37; JSP12; 1173/3: 157 313|300 016 240|170 262|300 276 367|164 025|164 245 151; Q12TOQ11; YA12; =M11; Y1M11; SHL10; SHL-46; 1175/5: 304 004 171|056|164 021|300 016 265|033|027 SETB2171; +; SHL8; YA33; NOT; NEG; 1177/4: 042|301 016 265|011|164 041 DUP; =YA33; OR; SHL16; 1200/5: 304 000 020|201 322 352|011|304 000 013|201 322 352|164 021|011 SET16; JS89; OR; SET11; JS89; SHL8; OR; 1203/3: 304 000 016|201 322 352|056|041|166 041|200 330 115 SET14; JS89; +; ZERO; SHLD16; JSP34; (compile DOWN instr.); 1205/4: 300 276 366|041|303 276 370|164 061|164 261 Y0M11; ZERO; =Y2M11Q;SHL24; SHL-40; 1207/3: 042|301 000 161|221 142 226 DUP; =V105; J155=Z; (if no parameters); 1210/4: 041|042 ZERO; DUP; 1211/0: 300 276 367|042|170 156|164 275|304 200 000|170 150 124; Y1M11; DUP; =Q6; SHL-34; SETB100000; =C6; 1213/1: 304 042 102|200 022 360 SETB21102; J150!=; [ good15to28.txt [ typist: Graham T (== Page 15 ==) 1214/1: 304 200 001|170 150|300 276 366|164 037|224 042 221|052|300 000 146 SETB100001; =C6; Y0M11; SHL15; J126=Z; ZERO; CONT; =Q6; 1305/4: 261 142 313 J142C6NZ; (if parameter = scalar/label); 1306/1: 200 322 345 JS148; 1306/4: 300 276 366|203 042 255|300 000 150|304 000 005|200 324 330 Y0M11; J136>=Z; V96; SET5; JS1P12; 1311/1: 300 000 151|304 000 005|200 324 330|203 262 255 V97; SET5; JS1P12; J136; 1313/1: 304 000 242|202 022 330 142; SETB242; J146!=; (if LS != =); 1314/1: 171 150|167 377|225 042 302 C6; SHC-1; J140=Z; 1316/2: 300 000 152|304 000 006|200 324 330 V98; SET6; JS1P12; 1317/5: 300 000 153|304 000 003|200 324 330|171 144|200 324 346 143; V99; SET3; JS1P12; I6; JSP13; 1322/1: 042|300 000 154|066|304 000 025|036|225 142 324|052|300 000 155 DUP; V100; CAB; SETB25; -; J144=Z; ERASE; V101; 1324/5: 304 000 005|200 324 330|203 262 256 144; SET5; JS1P12; J128; 1326/2: 304 000 242|200 324 327|200 322 345|203 262 256 145; SETB242; JSP12; JS148; J128; 1330/2: 304 000 025|200 022 340|171 150|167 377|205 042 302 146; SETB25; J147!=; C6; SHC-1; J140>=Z; 1332/3: 300 276 366|164 037|205 042 317|200 322 345 Y0M11; SHL15; J143>=Z; JS148; (== Page 17 ==) 1334/2: 304 000 230|200 324 327|304 000 016|203 322 345|300 000 154 SETB230; JSP12; SET14; JS149; V100; 1336/5: 304 001 000|056|205 262 324 SETB400; +; J144; 1340/0: 171 150|167 377|225 042 302|304 377 377|172 144 147; C6; SHC-1; J140=Z; 1361/0: 304 377 376|170 150|300 276 366|204 042 221 SETB177776; =C6; Y0M11; J126>=Z; 1362/5: 164 263|042|304 000 002|054|042|056|011|304 000 014|054|300 000 157 SHL-39; DUP; SET2; AND; DUP; +; OR; SETB14; AND; V103; 1365/4: 011|171 144|164 101|011|042|167 361|304 000 006|200 330 115 OR; I6; SHL32; OR; DUP; SHC-8; SET6; JSP34; 1370/1: 300 000 160|015|065|033|027|065|205 262 217 V104; NEV; REV; NOT; NEG; REV; J125; 1372/0: 042|164 021|220 042 374|164 003|042|224 042 221 152; DUP; SHL8; J153=Z; (fail if y=0); ERASE; M-I15; 1553/2: 304 000 001|172 370|300 016 226|304 017 277|054|301 016 226|151 041 SET1; =+C15; YA2; SETB7677; AND; =YA2; M2TOQ1; 1556/1: 041|301 016 241|100 376|164 371|171 042|054 ZERO; =YA13; M14M15; SHL-4; M2; AND; 1560/0: 042|042|141 360|304 000 001|172 370|304 000 002|056|300 016 235|056|171 350 DUP; DUP; M-I15; SET1; =+C15; SET2; +; YA9; +; C14; 1563/1: 164 025|056|164 021|056|164 061|304 004 031|166 361 SHL10; +; SHL8; +; SHL24; SETB2031; SHLD-8; (== Page 20 ==) 1565/2: 200 330 115|042|170 264|170 070|304 000 001|170 030 85; JSP34; DUP; =I11; =C3; SET1; =C1; 1567/3: 100 376|301 016 227|141 360|304 000 001|172 370|304 000 003|041|200 331 153 86; M14M15; =YA3; M-I15; SET1; =+C15; SET3; ZERO; JSP47; 1572/4: 143 060|263 063 167|304 000 076|300 016 225|201 143 200 DC3; J86C3NZ; SET62; YA1; J87!=Z; (if D!=0); 1575/0: 033|027|300 016 235|171 264|056|042|301 016 235|304 000 002|056|205 263 201 NOT; NEG; YA9; I11; +; DUP; =YA9; SET2; +; J88; 1600/1: 300 016 237|171 264|056|042|301 016 237 87; YA11; I11; +; DUP; =YA11; 1601/5: 304 014 000|054|200 140 325 88; SETB6000; AND; J7!=Z; (fail if L or Lp overlength); 1603/0: 052|201 260 315 ERASE; J5; (return to OUT); (STRING); 1603/4: 304 000 001|301 016 264|300 016 233|220 140 325 92; SET1; =YA32; YA7; J7=Z; (fail if PROC=0); 1605/4: 300 016 231|304 000 163|015|304 000 367|054|200 140 325 YA5; SETB 163; NEV; SETB 367; AND; J7!=Z; (fail if LD!=(/, )); 1610/0: 171 030|200 140 325|052|171 344|223 143 213 C1; J7!=Z; (fail if m!=0); ERASE; I14; J93=Z; (if i at new word); 1611/5: 041|304 000 006|171 344|036|200 330 115 ZERO; SET6; I14; -; JSP34; 1613/3: 300 016 243|301 004 103|171 024|304 001 303|164 041|011|041|166 061|200 330 165 93; YA15; =V1P4; I1; SETB703; SHL16; OR; ZERO; SHLD24; JSP36; 1616/5: 042|301 004 102|200 324 104 DUP; =V0P4; JSP4; 1620/0: 164 121|304 000 001|200 330 115|300 016 264|224 143 232 94; SHL40; SET1; JSP34; YA32; J99=Z; (if s=0); 1622/2: 200 324 231|304 000 001|301 004 102|041|301 016 233|200 327 174|304 000 235|205 023 227 110; JSP7; SET1; =V0P4; ZERO; =YA7; JSP31; SETB235; J98!=; (IF !=CLOSINGQUOTE); 1626/0: 300 016 264|027|033|301 016 264|200 263 220 YA32; NEG; NOT; =YA32; J94; 1627/5: 304 000 215|200 023 220 98; SETB215; J94!=; (if!= opening quote); 1630/5: 300 016 264|033|027|301 016 264|200 263 220 YA32; NOT; NEG; =YA32; J94; 1632/4: 041|301 004 102|041|301 004 103 99; ZERO; =V0P4; ZERO; =V1P4; 1634/0: 304 000 001|301 016 233|171 344|223 143 237 SET1; =YA7; I14; J100=Z; (if i at new word); 1635/5: 041|304 000 006|171 344|036|200 330 115 ZERO; SET6; I14; -; JSP34; 1637/3: 041|200 323 255|041|301 016 226|304 000 173|036|221 140 315 100; ZERO; JSP1; ZERO; =YA2; SET123; -; J5=Z; (to OUT if del=,); 1642/0: 300 016 230|304 000 175|036|223 141 212 YA4; SET125; -; J25=Z; (right round bracket entry 2); 1643/4: 304 000 200|200 260 325 SET128; J7; (fail if del = other); (RESTART ); 1644/4: 304 000 206|201 263 246 113; SET134; J117; (== Page 21 ==) 1645/4: 304 000 210 114; SET136; 1646/1: 041|033|047|052|304 000 002|170 022|105 020 117; ZERO; NOT; STR; ERASE; SET2; =M1; =M0M1H; (RESET T/L); 1650/0: 041|301 012 105|041|301 004 103 ZERO; =V5P53; ZERO; =V1P4; (clear extra fail information markers); 1651/2: 200 266 262 JP29; === Start P1V2; at address 941 P1V2; (B.C.R); V-store at 01652 = 102 120 000 000 000 000 V-store at 01653 = 100 300 000 000 000 000 V0=F 10.0; V1=F 1.0; 1655/0: 154 001|157 012|041|301 003 254 C0TOQ1; Q0TOQ10; ZERO; =V2; 1656/2: 200 327 174 1; JSP31; 1656/5: 300 016 221|201 143 261 2; W3; J35!=Z; (if char != letter/digit/./@); [ { @ is for subscript 10 } 1657/5: 042|304 000 101|036|222 043 320 36; DUP; SET65; -; J10=Z; (if char = digit/./@); (IDENTIFIER); 1725/0: 304 000 010|170 050|304 000 001|170 030 SET8; =C2; SET1; =C1; 1726/4: 171 256|164 015|056|170 256|200 327 174|300 016 221|204 143 332 12; Q10; SHL6; +; =Q10; JSP31; W3; J41!=Z;(if char!=letter/digit/./@); 1731/2: 042|304 000 077|036|220 043 334 DUP; SET63; -; J40=Z; (if char = digit); 1753/3: 052|171 042|204 143 367|171 256|042|164 005|056|164 003|056 ERASE; M2; J19!=Z; (if MAX=1); Q10; DUP; SHL2; +; SHL1; +; 1756/0: 042|304 000 200|164 101|036|225 103 366 DUP; SETB200; SHL32; -; J18>Z; (if N0>2^39); [ { ^ FOR up } 1757/4: 170 256|171 044|201 143 362 =Q10; I2; J17!=Z; (if Exp!=0); (== Page 23 ==) 1760/5: 241 043 362|304 000 001|172 376 16; J17C2Z; (if Point=0); SET1; =+Q15; 1762/1: 170 264|300 016 232|171 376|301 016 232|170 376|200 327 174 17; =I11; YA6; Q15; =YA6; =Q15; JSP31; 1764/4: 300 016 232|171 376|301 016 232|170 376|204 263 346 YA6; Q15; =YA6; =Q15; J15; 1766/5: 304 000 001|170 042 18; SET1; =M2; 1767/4: 052|304 377 377|172 376|205 263 360 19; ERASE; SET-1; =+Q15; J16; 1771/1: 205 143 375|052|171 044|200 143 374 20; J22!=Z; (IF CHAR!=.); ERASE; I2; J21!=Z; (fail if Exp!=0); 1772/4: 260 043 374|143 040|201 263 362 J21C2NZ; (fail if Point!=0); DC2; J17; 1774/0: 304 000 161 21; SET113; 1774/3: 300 016 232|170 376|200 264 124 37; YA6; =Q15; JP5; 1775/5: 171 264|304 000 077|220 023 374|304 000 122|015|304 000 337 22; I11; SET63; J21=; (if LC=.); SETB122; NEV; SETB337; 2000/2: 054|220 143 374|304 000 013|036|201 144 007 AND; J21=Z; (fail if LC=+/-); SET11; -; J24!=Z; (if char!=@); 2002/1: 171 044|200 143 374|151 002|304 000 001|301 016 227|171 264|220 144 006 I2; J21!=Z; (fail if Exp!=0); M0TOQ2; SET1; =YA3; I11; J23=Z; 2005/1: 171 256|301 016 227 (IF LC = blank); Q10; =YA3; 2006/0: 157 012|144 040|201 263 362 23; Q0TOQ10; I2=1;J17; 2007/1: 171 264|304 000 100|036|203 144 013|304 000 122|221 023 362 24; I11; SET64; -; J25!=Z; (if LC!=@); SET82; J17=; (if char =+); 2011/4: 304 000 162|200 023 374|145 040|201 263 362 SET114; J21!=; (fail if char != -); I2=-1; J17; 2013/3: 171 044|203 144 025|265 044 030|304 000 171|171 042|203 143 374 25; I2; J27!=Z; (if Exp!=0); J29C2NZ; SET121; M2; J37!=Z; (if MAX!=0); 2016/1: 052|304 000 001 ERASE; SET1; 2016/5: 171 256|164 377|201 144 021|052|304 000 003|171 256|036 Q10; SHL-1; J26!=Z; (IF N0!=0/1); ERASE; SET3; Q10; -; 2021/1: 304 000 377|170 042|300 016 232|170 376|301 016 232|304 000 172|222 203 302|052 26; SETB377; =M2; YA6; =Q15; =YA6; SET122; J6V; ERASE; 2024/3: 065|170 264|205 263 256 REV; =I11; J2; 2025/3: 171 044|221 104 027|171 256|027|170 256 27; I2; J28>Z; (if Sign=0); Q10; NEG; =Q10; 2027/1: 171 256|027|172 376|300 016 227|170 256 28; Q10; NEG; =+Q15; YA3; =Q10; 2030/5: 154 002|300 003 252|300 003 253|171 376|042|204 044 033|027|143 040 29; C0TOQ2; V0; V1; Q15; DUP; J30>=Z; (if Dec>=0); NEG; DC2; 2033/4: 042|222 144 040 30; DUP; J33=Z; 2034/2: 042|167 377|201 044 036|012|043|052|004|066 31; DUP; SHC-1; J32>=Z; PERM; DUPD; ERASE; xF; CAB; 2036/1: 164 377|042|222 144 040|066|042|004|012|202 264 034 32; SHL-1; DUP; J33=Z; CAB; DUP; xF; PERM; J31; 2040/2: 052|065|052|261 044 042|300 003 253|065|062 33; ERASE; REV; ERASE; J34C2NZ; V1; REV; %F; 2042/1: 171 256|304 000 057|024|004|170 256|041|201 264 021 34; Q10; SET47; FLOAT; xF; =Q10; ZERO; J26; (== Page 24 ==) === Start P2V-1; at address 1061 P2; (BEGIN); 2045/0: 171 022|225 144 055 M1; J1=Z; 2045/5: 300 016 233|205 144 055 YA7; J1!=Z; 2046/5: 265 024 055 J1C1NZ; 2047/2: 300 016 242|205 144 055 YA14; J1!=Z; 2050/2: 200 330 216 JSP38; 2050/5: 041|301 016 234 ZERO; =YA8; 2051/3: 100 376|164 261|304 000 020|015|304 000 277|054 M14M15; SHL-40; SETB20; NEV; SETB277; AND; 2053/3: 225 144 055 J1=Z; 2054/0: 167 361|304 000 001|200 330 165 SHC-8; SET1; JSP36; 2055/2: 200 360 000 EXIT1; 2055/5: 200 264 124 1; JP5; === Start P3V0; at address 1072 P3V0; (TRACE a routine to update line nos and compile trace ); V-store at 02057 = 374 017 300 374 017 300 V0=B 7700 7700 7700 7700; 2060/0: 300 016 227|304 000 012|166 121|304 000 007|200 330 115 YA3; SET10; SHLD40; SET7; JSP34; 2062/2: 171 156|300 016 227|042|301 016 245|041|301 016 244 1; Q6; YA3; DUP; =YA17; ZERO; =YA16; 2064/3: 300 010 060|220 144 101 V6P33; J5=Z; 2065/3: 300 010 056|170 150|264 144 067|300 016 260|170 150 V4P33; =C6; J4C6NZ; YA28; =C6; 2067/4: 304 006 054|170 144|304 006 055|170 142|201 327 004 4; SETAV2P29; =I6; SETAV3P29; =M6; JS20P29; 2071/5: 300 016 260|300 010 056|220 144 077|052|300 004 057|042 YA28; V4P33; J3=Z; ERASE; V0; DUP; 2074/1: 300 006 054|011|301 006 054 V2P29; OR; =V2P29; 2075/2: 300 006 055|011|301 006 055|300 010 056 V3P29; OR; =V3P29; V4P33; 2077/0: 170 150|171 156|200 336 115|170 156|200 360 000 3; =C6; Q6; JSP114; =Q6; EXIT1; 2101/0: 052|052|200 360 000 5; ERASE; ERASE; EXIT1; === Start P4V1; at address 1092 P4V1; (CONVERT from Whetstone TO Kidsgrove internal code); V-store at 02102 = 000 000 000 000 000 000 V-store at 02103 = 000 000 000 000 000 000 V0=0; V1=0; 2104/0: 300 004 102|220 144 110 V0; J1=Z; (if no conversion required); 2105/0: 300 016 221|200 144 113 W3; J3!=Z; (if char!= letter/digit); (== Page 25 ==) 2106/0: 042|304 000 065|036|203 044 110|304 000 013|056 DUP; SET53; -; J2>=Z; SET11; +; 2110/0: 200 360 000 1; EXIT1; 2110/3: 042|304 000 077|036|200 044 113 2; DUP; SET63; -; J3>=Z; (if char != digit); 2111/5: 304 000 065|036|200 264 110 SET53; -; J1; 2113/0: 304 000 157|200 024 115 3; SET111; J4!=; (if end message inside string or code body); 2114/0: 304 000 205|200 264 124 SET133; JP5; 2115/0: 042|304 000 077|054|170 062|304 000 300|054|164 373 4; DUP; SETB77; AND; =M3; SETB300; AND; SHL-3; 2117/1: 170 070|300 060 020|164 060|164 261|304 000 207|200 024 110 =C3; V8P0M3; SHLC3; SHL-40; SET135; J1!=; (if legal char); 2121/4: 200 264 124 JP5; === Start P5V0; at address 1108 P5V0; (SCAN); V-store at 02123 = 000 000 000 000 000 000 V0=0; (used as end comment marker); 2124/0: 200 326 262|052 JSP29; ERASE; (print error message); 2124/4: 300 003 254|224 144 126|173 000|052|200 263 303 V2P1; J1=Z; LINK; ERASE; J8P1; ( to BCR if fail in comment); 2126/4: 201 324 232 1; JS1P7; (clear SJNS); 2127/1: 300 016 264|202 143 222 YA32; J110P0!=Z; (to STRING if fail within string); 2130/1: 200 324 231|041|301 004 102 JSP7; ZERO; =V0P4; 2131/2: 300 004 123|042|225 101 001 V0; DUP; J12P0>Z; (to END if fail in end comment); 2132/3: 052|204 326 367 ERASE; JS4P29; 2133/1: 041|301 016 261|300 016 230 3; ZERO; =YA29; (to clear identifier store); YA4; 2134/2: 304 000 157|202 024 136 4; SETB157; J5!=; (if delimiter != end message); 2135/2: 304 000 205|200 264 124 SET133; JP5; 2136/2: 304 000 127|202 024 142 5; SETB127; J7!=; (if delimiter != `); [ underlined [ used as open quote 2137/2: 300 016 264|033|027|301 016 264 YA32; NOT; NEG; =YA32; (S:= S+1); 2140/4: 052|304 000 004|200 323 255|202 264 134 6; ERASE; SET4; JSP1; J4; 2142/2: 304 000 117|201 024 146 7; SETB117; J8!=; (if delimiter != '); [ underlined ] used as close quote 2143/2: 300 016 264|224 144 140|300 016 264|027|033|301 016 264|204 264 140 YA32; J6=Z; YA32; NEG; NOT; =YA32; J6; (S:=S-1 unless S=0); 2146/1: 300 016 264|204 144 140 8; YA32; J6!=Z; (if s != 0); 2147/1: 304 000 170|225 024 151 SETB170; J9=; (if delimiter = semi colon); (== Page 26 ==) 2150/1: 304 000 271|054|304 000 050|204 024 140 SETB271; AND; SETB50; J6!=; (if delimiter = other); 2151/5: 052|304 000 170|301 016 231 9; ERASE; SETB170; =YA5; (LD := semi colon); 2153/0: 304 000 001|042|170 022|301 016 234 SET1; DUP; =M1; =YA8; (E := V := 1); 2154/3: 041|301 016 241|041|301 016 242 ZERO; =YA13; ZERO; =YA14; (ARITH := F := 0); 2155/5: 041|301 016 233|041|301 016 224 ZERO; =YA7; ZERO; =YA0; (PROC := D := 0); 2157/1: 041|301 016 262|041|303 316 370 ZERO; =YA30; ZERO; =Y2M12Q; (SV := item[NL] :=0); 2160/3: 041|301 016 225 ZERO; =YA1; (T := 0); 2161/1: 304 001 204|301 016 226|304 000 377|170 042 SETB604; =YA2; SETB377; =M2; (ABG(TYPE) := 1); 2163/0: 300 016 230|304 000 056|224 020 321 YA4; SETB56; J6P0=; (OUT2 if delimiter = begin); 2164/3: 304 000 150|036|201 144 167|304 377 377|301 016 234 SETB150; -; J12!=Z; SET-1; =YA8; (V := -1); 2166/4: 202 260 371 J10P0; (END ENTRY 2); 2167/1: 300 016 255|042|222 044 172 12; YA25; DUP; J10=Z; (if T=other); 2366/1: 052|300 016 233|205 144 370 ERASE; YA7; J4!=Z; (if PROC!=0); 2367/2: 304 000 061|171 022|200 144 363 SET49; M1; J2!=Z; (if E=1); 2370/4: 052 ERASE; 2370/5: 264 024 377|205 264 372 4; J8C1NZ; (if m=1); J6; 2371/5: 304 000 003|200 330 255 5; SET3; JSP40; 2372/5: 200 332 271|304 000 001|200 330 165|041|301 016 233|200 360 000 6; JSP55; SET1; JSP36; ZERO; =YA7; EXIT1; 2375/3: 052|245 024 371 7; ERASE; J5C1Z; (if m=0); 2376/1: 200 330 216|304 000 001|200 330 255 JSP38; SET1; JSP40; 2377/4: 300 016 226|042|304 000 062|065|167 371|220 044 363 8; YA2; DUP; SET50; REV; SHC-4; J2=Z; SET129; JP5; 2423/0: 263 025 024|304 000 011|200 264 124 3; J4C1NZ; SET9; JP5; 2424/3: 052|052|052 4; ERASE; ERASE; ERASE; 2425/0: 304 377 377|200 330 255|304 011 010 SET-1; JSP40; SETB4410; 2426/3: 301 016 224|200 330 216|154 013|304 000 001|041|200 331 153|041 =YA0; JSP38; C0TOQ11; SET1; ZERO; JSP47; ZERO; 2431/1: 301 016 224|200 264 060 =YA0; JP3; === Start P17V1; at address 1309 P17V1; ( := ); V-store at 02433 = 121 000 001 037 000 000 V0=B 2420 0001 0760 0000; V-store at 02434 = 130 123 000 000 224 000 V1=B 2605 1400 0011 2000; (first word in main loop); 2435/0: 171 022|220 145 041 M1; J1=Z; (if E=0); 2435/5: 300 016 224|042|222 145 054 YA0; DUP; J3=Z; (if T=0); 2437/0: 304 004 010|042|066|015|054|223 145 041 SETB2010; DUP; CAB; NEV; AND; J2=Z; (if bF(T)=1); 2440/4: 042|056 DUP; +; 2441/0: 200 264 124 1; JP5; 2441/3: 052|171 350|304 000 001|056|042|170 350 2; ERASE; C14; SET1; +; DUP; =C14; 2443/1: 042|164 123|220 045 041 DUP; SHL41; J163); 2444/1: 151 001|200 331 063|304 000 001|042|304 000 016|164 121|304 000 004|200 331 130 M0TOQ1; JSP43; SET1; DUP; SET14; SHL40; SET4; JSP45; 2447/3: 164 021|056|065|200 330 165|042|170 270|041|200 331 153 SHL8; +; REV; JSP36; DUP; =C11; ZERO; JSP47; 2451/5: 164 105|300 005 033|056|304 000 006|200 330 115|200 360 000 SHL34; V0; +; SET6; JSP34; EXIT1; 2454/2: 300 016 242|221 145 077 3; YA14; J4=Z; (if F=0); 2455/2: 200 330 276|300 016 231|304 000 013|036|203 145 061 JSP41; YA5; SET11; -; J6!=Z; (if LD!=for); 2457/3: 300 276 367|304 000 010|167 361|011|301 276 367 Y1M11; SETB10; SHC-8; OR; =Y1M11; 2461/3: 052|304 000 001|200 331 130|100 376|042|164 261|304 000 013 6; ERASE; SET1; JSP45; M14M15; DUP; SHL-40; SET11; [ good32.txt [ -- Brian W 2464/0: 065|200 025 041 REV; J1!=; (if TS!=for); 2464/4: 052|042|304 000 002|200 331 130|164 021|056|101 376 ERASE; DUP; SET2; JSP45; SHL8; +; =M14M15; 2466/5: 164 361|304 377 376|200 333 357|041|200 332 250|300 005 034 SHL-8; SET-2; JSP63; ZERO; JSP54; V1; 2471/2: 304 000 005|200 330 115|304 000 001|042|042|027 SET5; JSP34; SET1; DUP; DUP; NEG; 2473/2: 200 331 130|304 000 224|164 061|056|164 041|065|200 330 165 JSP45; SET148; SHL24; +; SHL16; REV; JSP36; 2475/5: 151 001|301 016 241|200 360 000 M0TOQ1; =YA13; EXIT1; 2477/1: 304 000 067|300 016 233|200 145 041 4; SET55; YA7; J1!=Z; (if PROC!=0); 2500/4: 301 016 262|200 330 216|200 330 276|042|100 376|164 261|015|304 000 277 =YA30; JSP38; JSP41; DUP; M14M15; SHL-40; NEV; SETB277; 2503/4: 054|200 145 105 AND; J5!=Z; (if TS!=ST/STA); 2504/2: 052|304 000 120 ERASE; SET80; 2505/0: 164 121|304 000 002|056|304 000 001|200 330 165|200 360 000 5; SHL40; SET2; +; SET1; JSP36; EXIT1; === Start P18V-1; at address 1352 P18; (COMMA 9/4/63); 2510/0: 300 016 233|225 145 112 YA7; J2=Z; (if PROC=0); 2511/0: 200 332 326|041|301 016 226 JSP57; ZERO; =YA2; 2512/1: 052|200 360 000 1; ERASE; EXIT1; 2512/5: 300 016 242|223 145 123 2; YA14; J3=Z; (if F=0); 2513/5: 200 333 322|304 000 001|042|304 130 224 JSP62; SET1; DUP; SETB54224; 2515/3: 164 101|042|304 000 002|200 330 115|164 021|304 377 377 SHL32; DUP; SET2; JSP34; SHL8; SET-1; 2517/5: 200 331 130|164 041|056|065|200 330 165|301 016 241|304 001 304|301 016 226|200 360 000 JSP45; SHL16; +; REV; JSP36; =YA13; SETB704; =YA2; EXIT1; 2523/3: 300 016 224|042|304 000 010|054|224 145 147|052|052|304 000 001|042|200 330 276 3; YA0; DUP; SET8; AND; J7=Z; ERASE; ERASE; SET1; DUP; JSP41; 2526/5: 200 330 171|100 376|042|164 261|304 000 114|201 025 133 JSP37; M14M15; DUP; SHL-40; SET76; J4!=; (if TS!=[); 2531/1: 052|304 001 000|164 061|056|101 376|200 360 000 ERASE; SETB400; SHL24; +; =M14M15; EXIT1; 2533/1: 304 000 016|036|304 000 117|065|223 145 135 4; SET14; -; SET79; REV; J6=Z; (if TS=switch begin); 2535/0: 200 264 124 5; JP5; 2535/3: 052|042|164 321|164 021|304 000 037|056|164 061|304 006 033 6; ERASE; DUP; SHL-24; SHL8; SET31; +; SHL24; SETB3033; 2540/0: 166 361|200 330 115|164 021|304 377 375|200 331 130|065|041 SHLD-8; JSP34; SHL8; SET-3; JSP45; REV; ZERO; 2542/3: 200 332 250|304 016 000|164 021|304 377 373|200 331 130|056|164 041 JSP54; SETB7000; SHL8; SET-5; JSP45; +; SHL16; 2545/2: 304 377 376|200 331 130|056|164 021|101 376|200 360 000 SET-2; JSP45; +; SHL8; =M14M15; EXIT1; 2547/4: 041|203 025 151 7; ZERO; J8!=; (if T!=0); [ good33.txt [ -- Brian W 2550/2: 052|200 333 034|200 360 000 ERASE; JSP59; EXIT1; 2551/3: 304 010 004|042|066|015|054|203 145 156 8; SETB4004; DUP; CAB; NEV; AND; J9!=Z; (if aG(T)!=1); 2553/1: 154 013|052|304 000 120|171 022|220 145 135 C0TOQ11; ERASE; SET80; M1; J5=Z; (if E=0); 2555/0: 052|041|041|200 331 153|200 360 000 ERASE; ZERO; ZERO; JSP47; EXIT1; 2556/3: 100 376|042|164 261|042|304 000 031|015|304 000 373|054 9; M14M15; DUP; SHL-40; DUP; SETB31; NEV; SETB373; AND; 2560/5: 201 145 166 J10!=Z; (if TS!= MSF/MOSF); 2561/2: 052|143 020|304 000 121|260 025 135 ERASE; DC1; SET81; J5C1NZ; (if m!=1); 2562/5: 052|300 016 227|101 376|304 000 020 ERASE; YA3; =M14M15; SET16; 2564/2: 056|304 000 001|200 330 165|052|200 360 000 +; SET1; JSP36; ERASE; EXIT1; 2566/1: 065|052|304 000 033|201 025 173 10; REV; ERASE; SET27; J12!=; (if TS != UJ); 2567/3: 164 005|300 016 225|220 145 135 SHL2; YA1; J5=Z; (if D=0); 2570/5: 304 001 035 SETB435; 2571/2: 041|166 121|200 330 165|052|052|200 360 000 11; ZERO; SHLD40; JSP36; ERASE; ERASE; EXIT1; 2573/1: 304 000 216|015|304 000 237|054|203 145 177 12; SETB216; NEV; SETB237; AND; J13!=Z; (if TS=other); 2575/0: 304 000 154 SET108; 2575/3: 300 016 225|200 145 135 YA1; J5!=Z; (if D=1); 2576/3: 304 001 031|202 265 171 SETB431; J11; 2577/3: 200 333 034|200 360 000 13; JSP59; EXIT1; === Start P19V-1; at address 1409 P19; (IF); (first word in main loop); 2601/0: 304 000 155|015|304 000 355|054|223 145 216 SETB155; NEV; SETB355; AND; J4=Z; ((if LD=)/]); 2602/5: 304 000 001|200 330 255 SET1; JSP40; 2603/5: 171 022|220 145 217 M1; J5=Z; (if E=0); 2604/4: 300 016 224|042|201 145 215 YA0; DUP; J3!=Z; (if T!=0); 2605/5: 052|200 330 216 ERASE; JSP38; 2606/3: 200 332 271 1; JSP55; 2607/0: 167 361|300 016 241|164 041|300 016 226|056|164 041|171 022|056|304 000 002 2; SHC-8; YA13; SHL16; YA2; +; SHL16; M1; +; SET2; 2612/1: 200 330 165|041|301 016 241|151 001|304 001 204|301 016 226|200 360 000 JSP36; ZERO; =YA13; M0TOQ1; SETB604; =YA2; EXIT1; 2615/1: 167 353|223 045 206 3; SHC-11; J1=Z; (if n <= 63); 2743/4: 200 264 124 1; JP5; 2744/1: 052|100 376|041|033|164 041|300 016 235|056|164 041 2; ERASE; M14M15; ZERO; NOT; SHL16; YA9; +; SHL16; 2746/2: 300 016 240|056|101 376|164 021|042|304 000 004|042|301 016 235 YA12; +; =M14M15; SHL8; DUP; SET4; DUP; =YA9; 2751/0: 200 331 130|065|041|200 332 250|164 361|300 005 340|304 000 011|200 330 115 JSP45; REV; ZERO; JSP54; SHL-8; V0; SET9; JSP34; 2754/1: 304 377 374|200 331 130|164 041|304 000 156|167 361|056 SET-4; JSP45; SHL16; SET110; SHC-8; +; 2756/3: 300 016 254|164 011|011|304 000 001|200 330 165|041|301 016 254 YA24; SHL4; OR; SET1; JSP36; ZERO; =YA24; 2761/1: 151 041|041|301 016 241|041|301 016 242|304 001 204|301 016 226 M2TOQ1; ZERO; =YA13; ZERO; =YA14; SETB604; =YA2; 2763/5: 171 302|301 016 240|041|200 330 143|041|303 316 370|200 360 000 M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; EXIT1; === Start P25V-1; at address 1527 P25; (FOR); 2767/0: 042|056|242 025 370 DUP; +; J2C1Z; (if m=0); 2767/5: 200 264 124 1; JP5; 2770/2: 300 016 242|205 145 367 2; YA14; J1!=Z; (if F!=0); 2771/2: 041|033|200 330 255|200 330 216|041|304 003 033 ZERO; NOT; JSP40; JSP38; ZERO; SETB1433; 2773/2: 166 361|200 330 115|167 357|171 344|164 033|171 024|056|164 061|056 SHLD-8; JSP34; SHC-9; I14; SHL13; I1; +; SHL24; +; 2776/1: 304 000 001|042|301 016 242|200 330 165|304 001 304|301 016 226|200 360 000 SET1; DUP; =YA14; JSP36; SETB704; =YA2; EXIT1; === Start P26V0; at address 1539 P26V0; (semi colon); V-store at 03002 = 005 033 000 000 002 134 V0=B 0121 5400 0000 1134; 3003/0: 052|300 016 224|042|220 146 041 ERASE; YA0; DUP; J10=Z; (if T=0); 3004/2: 304 016 017|054|304 010 004|221 026 037 SETB7017; AND; SETB4004; J9=; (if aG(T)=1); 3006/0: 304 004 004|224 026 032 SETB2004; J7=; (if bG(T)=1); 3007/0: 304 004 010|036|304 000 036|065|222 146 011 SETB2010; -; SET30; REV; J2=Z; (if bF(type[I])=1); 3010/5: 200 264 124 1; JP5; 3011/2: 052|304 000 001|042|200 330 276|200 330 171|100 376|042|164 261 2; ERASE; SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40; 3014/0: 304 000 016|205 026 010 SET14; J1!=; (if TS!=switch begin); 3015/0: 052|304 000 004|200 331 130|164 041|300 006 002|056 ERASE; SET4; JSP45; SHL16; V0; +; 3017/1: 041|166 021|200 330 115|141 360|304 000 001|172 370|143 340|151 041 ZERO; SHLD8; JSP34; M-I15; SET1; =+C15; DC14; M2TOQ1; [ good37.txt [ -- Brian W 3022/0: 304 001 204|301 016 226|164 021|042|304 377 376|200 331 130 SETB604; =YA2; SHL8; DUP; SET-2; JSP45; 3024/3: 065|041|200 332 250|167 041|164 041 REV; ZERO; JSP54; SHC16; SHL16; 3026/0: 042|200 146 030 3; DUP; J6!=Z; (if x!=0); 3026/4: 052 ERASE; 3026/5: 041|301 016 224 4; ZERO; =YA0; 3027/3: 200 360 000 5; EXIT1; 3030/0: 041|033|200 331 130|065|041|200 332 250|300 016 247|200 266 026 6; ZERO; NOT; JSP45; REV; ZERO; JSP54; YA19; J3; 3032/4: 052|304 000 015|265 026 010 7; ERASE; SET13; J1C1NZ; (if m!=0); 3033/5: 304 000 177|300 016 231|036|205 146 010 SET127; YA5; -; J1!=Z; (if LD!=] ); 3035/3: 200 330 171 JSP37; 3036/0: 041|301 016 225|205 266 026 8; ZERO; =YA1; J4; 3037/1: 052|154 013|041|041|200 331 153|200 266 036 9; ERASE; C0TOQ11; ZERO; ZERO; JSP47; J8; 3041/0: 052|200 330 227 10; ERASE; JSP39; 3041/4: 304 000 001|200 330 171|200 333 021|304 000 116|202 026 045 13; SET1; JSP37; JSP58; SET78; J11!=; (if TS != proc begin); 3044/1: 041|200 332 056|200 360 000 ZERO; JSP52; EXIT1; 3045/2: 304 000 356|223 026 050 11; SETB356; J12=; (fail if TS = for begin (BL)); 3046/2: 065|052|304 000 016|015|304 000 037|054|223 146 027 REV; ERASE; SETB16; NEV; SETB37; AND; J5=Z; (if TS = other); 3050/3: 304 000 041|200 264 124 12; SET33; JP5; === Start P29V135; at address 1714 P29V135; (ERR); V-store at 03052 = 010 041 346 206 233 000 V0=B 0202 0746 4151 5400; V-store at 03053 = 000 000 002 262 233 245 V1=B 0000 0002 5451 5645; V-store at 03054 = 000 000 000 000 000 000 V2=0; V-store at 03055 = 000 000 000 000 000 000 V3=0; V-store at 03056 = 214 146 243 220 146 254 V4=B 4306 3243 4406 3254; V-store at 03057 = 224 146 241 234 146 263 V5=B 4506 3241 4706 3263; V-store at 03060 = 240 146 260 000 000 000 V6=B 5006 3260 0000 0000; V-store at 03061 = 322 233 356 002 231 045 V7=B 6451 5756 0051 4445; V-store at 03062 = 273 112 146 246 134 200 V8=B 5664 5146 5145 6200; V-store at 03063 = 000 000 000 004 146 246 V9=B 0000 0000 0106 3246; [ good38.txt [ -- Brian W V-store at 03064 = 322 134 200 000 000 000 V10=B 6445 6200 0000 0000; V-store at 03065 = 000 000 000 250 146 254 V11=B 0000 0000 5206 3254; V-store at 03066 = 000 143 325 000 000 000 V12=B 0006 1725 0000 0000; V-store at 03067 = 220 000 000 000 146 107 V13=B 4400 0000 0006 3107; V-store at 03070 = 010 146 247 014 146 244 V14=B 0206 3247 0306 3244; V-store at 03071 = 273 100 007 034 161 307 V15=B 5664 0007 0707 0707; V-store at 03072 = 034 013 366 227 053 045 V16=B 0700 5766 4562 5445; V-store at 03073 = 272 175 050 377 377 377 V17=B 5647 6450 7777 7777; V-store at 03074 = 020 146 263 000 000 000 V18=B 0406 3263 0000 0000; V-store at 03075 = 000 000 000 003 051 154 V19=B 0000 0000 0062 4554; V-store at 03076 = 261 250 232 025 252 332 V20=B 5432 4232 0532 5332; V-store at 03077 = 002 312 156 224 017 377 V21=B 0054 5156 4500 7777; V-store at 03100 = 000 000 000 030 146 257 V22=B 0000 0000 0606 3257; V-store at 03101 = 034 161 307 034 161 307 V23=B 0707 0707 0707 0707; V-store at 03102 = 225 253 232 320 161 307 V24=B 4532 5632 6407 0707; V-store at 03103 = 260 161 307 034 161 307 V25=B 5407 0707 0707 0707; V-store at 03104 = 344 161 307 034 161 307 V26=B 7107 0707 0707 0707; V-store at 03105 = 264 146 242 000 000 000 V27=B 5506 3242 0000 0000; V-store at 03106 = 215 252 007 034 161 307 V28=B 4332 5007 0707 0707; V-store at 03107 = 152 106 265 153 046 245 V29=B 3244 3265 3262 3245; V-store at 03110 = 000 000 000 302 374 351 V30=B 0000 0000 6057 6351; V-store at 03111 = 205 254 232 344 161 307 V31=B 4132 6232 7107 0707; V-store at 03112 = 000 000 000 034 146 251 V32=B 0000 0000 0706 3251; V-store at 03113 = 152 026 256 034 161 307 V33=B 3241 3256 0707 0707; V-store at 03114 = 270 161 307 034 161 307 V34=B 5607 0707 0707 0707; V-store at 03115 = 224 161 307 034 161 307 V35=B 4507 0707 0707 0707; V-store at 03116 = 000 000 000 270 146 266 V36=B 0000 0000 5606 3266; V-store at 03117 = 260 161 307 034 161 307 V37=B 5407 0707 0707 0707; V-store at 03120 = 235 251 132 310 161 307 V38=B 4732 4532 6207 0707; [ good39.txt [ -- Brian W V-store at 03121 = 271 251 307 034 161 307 V39=B 5632 4707 0707 0707; V-store at 03122 = 224 161 307 034 161 307 V40=B 4507 0707 0707 0707; V-store at 03123 = 010 171 045 262 233 151 V41=B 0207 4445 5451 5551; V-store at 03124 = 000 144 107 000 000 000 V42=B 0006 2107 0000 0000; V-store at 03125 = 000 000 000 000 146 222 V43=B 0000 0000 0006 3222; V-store at 03126 = 010 177 377 376 231 045 V44=B 0207 7777 7751 4445; V-store at 03127 = 000 167 107 000 000 000 V45=B 0007 3507 0000 0000; V-store at 03130 = 031 201 354 246 351 100 V46=B 0630 0754 5156 4500; V-store at 03131 = 000 145 007 000 146 221 V47=B 0006 2407 0006 3221; V-store at 03132 = 031 255 032 311 255 132 V48=B 0632 6432 6232 6532; V-store at 03133 = 224 161 307 034 161 307 V49=B 4507 0707 0707 0707; V-store at 03134 = 031 251 232 205 253 032 V50=B 0632 4632 4132 5432; V-store at 03135 = 315 251 107 034 161 307 V51=B 6332 4507 0707 0707; V-store at 03136 = 040 146 262 051 250 132 V52=B 1006 3262 1232 4132; V-store at 03137 = 000 000 000 000 000 000 V53=0; V-store at 03140 = 000 000 000 000 000 000 V54=0; V-store at 03141 = 000 143 307 000 000 000 V55=B 0006 1707 0000 0000; V-store at 03142 = 060 146 245 064 146 245 V56=B 1406 3245 1506 3245; V-store at 03143 = 010 170 357 273 075 041 V57=B 0207 4357 5663 6441; V-store at 03144 = 000 000 000 070 146 264 V58=B 0000 0000 1606 3264; V-store at 03145 = 000 000 000 003 321 307 V59=B 0000 0000 0075 0707; V-store at 03146 = 034 012 156 206 070 345 V60=B 0700 5156 4143 4345; V-store at 03147 = 000 167 207 000 146 007 V61=B 0007 3607 0006 3007; V-store at 03150 = 317 072 142 262 121 307 V62=B 6363 5142 5445 0707; V-store at 03151 = 000 146 224 000 000 000 V63=B 0006 3224 0000 0000; V-store at 03152 = 000 167 007 000 000 000 V64=B 0007 3407 0000 0000; V-store at 03153 = 000 000 000 000 147 307 V65=B 0000 0000 0006 3707; V-store at 03154 = 300 146 265 000 146 107 V66=B 6006 3265 0006 3107; V-store at 03155 = 104 146 245 000 144 207 V67=B 2106 3245 0006 2207; [ good40.txt V-store at 03156 = 304 146 251 310 146 263 V68=B 6106 3251 6206 3263; V-store at 03157 = 031 253 332 310 161 307 V69=B 0632 5732 6207 0707; V-store at 03160 = 031 253 300 153 106 257 V70=B 0632 5700 3264 3257; V-store at 03161 = 031 253 307 034 161 307 V71=B 0632 5707 0707 0707; V-store at 03162 = 031 255 032 225 254 007 V72=B 0632 6432 4532 6007; V-store at 03163 = 036 106 246 151 237 377 V73=B 0744 3246 3231 7777; V-store at 03164 = 031 255 332 270 161 307 V74=B 0632 6732 5607 0707; V-store at 03165 = 031 251 207 034 161 307 V75=B 0632 4607 0707 0707; V-store at 03166 = 031 251 132 205 253 007 V76=B 0632 4532 4132 5407; V-store at 03167 = 000 145 207 000 000 000 V77=B 0006 2607 0000 0000; V-store at 03170 = 036 306 247 152 366 254 V78=B 0754 3247 3257 3254; V-store at 03171 = 000 144 307 000 000 000 V79=B 0006 2307 0000 0000; V-store at 03172 = 031 253 232 220 161 307 V80=B 0632 5632 4407 0707; V-store at 03173 = 031 253 032 315 251 107 V81=B 0632 5432 6332 4507; V-store at 03174 = 031 252 032 225 253 207 V82=B 0632 5032 4532 5607; V-store at 03175 = 110 146 251 000 000 000 V83=B 2206 3251 0000 0000; V-store at 03176 = 000 000 000 115 251 132 V84=B 0000 0000 2332 4532; V-store at 03177 = 031 254 132 330 161 307 V85=B 0632 6132 6607 0707; V-store at 03200 = 031 253 132 300 161 307 V86=B 0632 5532 6007 0707; V-store at 03201 = 037 206 251 153 117 377 V87=B 0770 3251 3264 7777; V-store at 03202 = 031 254 207 034 161 307 V88=B 0632 6207 0707 0707; V-store at 03203 = 031 253 232 220 161 307 V89=B 0632 5632 4407 0707; V-store at 03204 = 031 253 332 320 161 307 V90=B 0632 5732 6407 0707; V-store at 03205 = 000 000 000 000 147 207 V91=B 0000 0000 0006 3607; V-store at 03206 = 010 177 377 262 233 245 V92=B 0207 7777 5451 5645; V-store at 03207 = 000 163 307 000 000 000 V93=B 0007 1707 0000 0000; V-store at 03210 = 034 013 257 320 015 163 V94=B 0700 5657 6400 6563; V-store at 03211 = 000 146 223 000 000 000 V95=B 0006 3223 0000 0000; V-store at 03212 = 226 100 244 226 073 041 V96=B 4544 0244 4543 5441; [ good41.txt [ -- Roderick McL V-store at 03213 = 010 171 156 220 010 357 V97=B 0207 4556 4400 4357; V-store at 03214 = 266 331 156 320 161 307 V98=B 5555 4556 6407 0707; V-store at 03215 = 120 146 257 000 000 000 V99=B 2406 3257 0000 0000; V-store at 03216 = 010 173 257 364 010 146 V100=B 0207 5657 7500 4146; V-store at 03217 = 322 134 200 303 053 347 V101=B 6445 6200 6062 5747; V-store at 03220 = 262 233 245 000 000 000 V102=B 5451 5645 0000 0000; V-store at 03221 = 031 253 332 265 253 132 V103=B 0632 5732 5532 5532; V-store at 03222 = 031 250 132 211 251 132 V104=B 0632 4132 4232 4532; V-store at 03223 = 031 254 232 311 250 132 V105=B 0632 6232 6232 4132; V-store at 03224 = 312 131 000 276 340 007 V106=B 6245 4400 5756 0007; V-store at 03225 = 031 255 332 245 255 032 V107=B 0632 6732 5132 6432; V-store at 03226 = 153 046 257 152 066 245 V108=B 3262 3257 3243 3245; V-store at 03227 = 000 144 007 000 000 000 V109=B 0006 2007 0000 0000; V-store at 03230 = 031 252 132 211 254 232 V110=B 0632 5132 4232 6232; V-store at 03231 = 000 145 107 000 000 000 V111=B 0006 2507 0000 0000; V-store at 03232 = 032 366 257 152 306 245 V112=B 0657 3257 3254 3245; V-store at 03233 = 031 251 132 235 252 132 V113=B 0632 4532 4732 5132; V-store at 03234 = 031 250 132 261 255 132 V114=B 0632 4132 5432 6532; V-store at 03235 = 124 146 241 000 000 000 V115=B 2506 3241 0000 0000; V-store at 03236 = 031 253 232 321 252 132 V116=B 0632 5632 6432 5132; V-store at 03237 = 031 253 232 321 251 132 V117=B 0632 5632 6432 4532; V-store at 03240 = 031 255 032 311 252 132 V118=B 0632 6432 6232 5132; V-store at 03241 = 031 252 032 245 253 032 V119=B 0632 5032 5132 5432; V-store at 03242 = 010 173 257 000 146 242 V120=B 0207 5657 0006 3242; V-store at 03243 = 152 126 247 152 226 256 V121=B 3245 3247 3251 3256; V-store at 03244 = 000 000 000 000 000 000 V122=0; V-store at 03245 = 000 000 000 000 000 000 V123=0; V-store at 03246 = 010 175 156 256 353 367 V124=B 0207 6556 5356 5767; V-store at 03247 = 000 145 307 000 000 000 V125=B 0006 2707 0000 0000; [ good42.txt [ -- Roderick McL V-store at 03250 = 010 172 344 231 220 064 V126=B 0207 5344 4631 0064; V-store at 03251 = 000 147 107 000 000 000 V127=B 0006 3507 0000 0000; V-store at 03252 = 276 360 063 266 033 054 V128=B 5757 0063 5541 5454; V-store at 03253 = 270 010 350 207 041 307 V129=B 5600 4350 4162 0707; V-store at 03254 = 314 146 267 000 000 000 V130=B 6306 3267 0000 0000; V-store at 03255 = 130 146 256 000 000 000 V131=B 2606 3256 0000 0000; V-store at 03256 = 001 004 020 000 000 000 V132=B 0020 2020 0000 0000; V-store at 03257 = 000 000 000 000 000 000 V133=0; V-store at 03260 = 010 170 245 216 035 163 V134=B 0207 4245 4341 6563; V-store at 03261 = 224 013 346 003 377 377 V135=B 4500 5746 0077 7777; (ERR CONT,D); (print error message); 3262/0: 300 016 230|304 000 377|036|201 146 264 YA4; SETB377; -; J6!=Z; (to print NO begin); 3263/4: 201 260 274 J1P0; 3264/1: 171 156|301 006 244|203 324 201 6; Q6; =V122; JS2P5; 3265/3: 300 016 260|170 150|171 156|200 336 115 YA28; =C6; Q6; JSP114; (output fail); 3267/1: 042|200 326 322|164 075|300 006 053|011|301 006 054|201 327 025 DUP; JS10; SHL30; V1; OR; =V2; JS25; (output fail no line etc); 3271/5: 171 076|301 006 257|300 016 230|170 142|304 006 056|170 062|104 143 Q3; =V133; YA4; =M6; SETAV4; =M3; M3M6H; (del table look up); 3274/4: 304 006 055|170 142|300 006 123|301 006 054|042|164 255|204 146 310 SETAV3; =M6; V41; =V2; DUP; SHL-42; J9!=Z; (for rest of del); 3277/3: 164 335|300 006 064|011|301 006 055 SHL-18; V10; OR; =V3; 3301/0: 171 156|200 336 115|300 016 261|223 146 323 1; Q6; JSP114; YA29; J11=Z; (if no ident to output); 3302/5: 300 006 126|301 006 054|300 006 062|301 006 055|171 156|200 336 115|300 016 261|201 327 004|171 156|200 336 115 V44; =V2; V8; =V3; Q6; JSP114; YA29; JS20; Q6; JSP114; 3307/3: 041|301 016 261|203 266 323 ZERO; =YA29; J11; 3310/4: 041|166 015|065|164 321|300 006 064|011|304 000 006|011|301 006 055 9; ZERO; SHLD6; REV; SHL-24; V10; OR; SET6; OR; =V3; 3313/3: 171 156|200 336 115|300 006 101|301 006 055|042|170 062|300 066 156|301 006 054|167 365 Q6; JSP114; V23; =V3; DUP; =M3; V68M3; =V2; SHC-6; 3317/1: 200 046 301|304 377 335|172 062|300 066 102|301 006 055|200 266 301 J1>=Z; SET-35; =+M3; V24M3; =V3; J1; 3322/0: 200 334 117|300 014 115|200 360 000 10; JSP127; V2P127; EXIT1; [ good43.txt [ -- Roderick McL 3323/3: 300 012 105|221 146 337|300 006 260|301 006 054|300 006 261|301 006 055|171 156|200 336 115 11; V5P53; J19=Z; V134; =V2; V135; =V3; Q6; JSP114; 3327/2: 300 012 105|170 262|300 276 370|201 327 004|171 156|200 336 115|304 006 137|170 144 V5P53; =M11; Y2M11; JS20; Q6; JSP114; SETAV53P29; =I6; 3332/5: 304 006 140|170 142|304 000 002|304 361 300|171 156|301 012 003|200 332 025 SETAV54P29; =M6; SET2; SETB170700; Q6; =V0P50; JS12P50; 3336/0: 041|301 012 105|204 266 347 ZERO; =V5P53; J5; 3337/1: 300 004 103|224 146 347|300 006 260|301 006 054|300 006 261|301 006 055|171 156|200 336 115|300 004 103|164 377|200 326 322 19; V1P4; J5=Z; V134; =V2; V135; =V3; Q6; JSP114; V1P4; SHL-1; JS10; 3344/2: 300 006 220|011|301 006 054|171 144|170 142|171 156|200 336 115|041|301 004 103 V102; OR; =V2; I6; =M6; Q6; JSP114; ZERO; =V1P4; 3347/4: 300 006 257|170 076|304 000 205|200 026 352|201 272 036 5; V133; =Q3; SET133; J26!=; J5P50; (if end message inside prog); 3352/0: 304 000 006|221 026 367 26; SET6; J27=; (if object prog > 8K); 3353/0: 304 000 204|221 026 367 SET132; J27=; (if parity fail); 3354/0: 304 000 075|221 026 367|304 000 206|221 026 367 SET 61; J27=; SET134; J27=; (even restart); 3356/0: 304 000 210|221 026 367 SET136; J27=; (odd restart); 3357/0: 300 000 000|304 017 300|054|221 146 365 E0; SETB7700; AND; J3=Z; (if no extra fail information); 3360/4: 300 000 000|042|301 006 054|304 360 000|054|304 012 100 E0; DUP; =V2; SETB170000; AND; SETB5100; 3363/0: 011|301 000 000|200 333 377|300 006 054|301 000 000 OR; =E0; JSP101; V2; =E0; 3365/1: 041|301 016 233|300 006 244|170 156|200 360 000 3; ZERO; =YA7; V122; =Q6; EXIT1; 3367/1: 201 272 034 27; J3P50; 3367/4: 041|301 016 245|041|301 016 261 4; ZERO; =YA17; ZERO; =YA29; 3371/0: 171 350|300 012 270|036|170 350|041|301 012 270 C14; V0P55; -; =C14; ZERO; =V0P55; 3373/0: 300 016 256|304 000 024|036|201 052 034 YA26; SET20; -; J3P50>=Z; (end prog if more than 20 fails); 3374/4: 304 000 001|301 016 254 SET1; =YA24; (R:=1); 3375/4: 100 376|167 371|164 271|304 000 016|205 027 001 13; M14M15; SHC-4; SHL-36; SETB16; J15!=; (if TS != switch begin); 3377/4: 143 340 DC14; (N:=N-1); 3400/0: 052|141 360|304 000 001|172 370 14; ERASE; M-I15; SET1; =+C15; (SP := SP -1); 3401/2: 204 266 375 J13; 3401/5: 304 017 037|054|304 000 016|200 027 000 15; SETB7437; AND; SETB16; J14!=; (if TS != BEGIN etc); 3403/3: 052|200 360 000 ERASE; EXIT1; 3404/1: 171 076|301 006 245|304 000 011|170 070|041|301 006 054|041|301 006 055|041 20; Q3; =V123; SET9; =C3; ZERO; =V2; ZERO; =V3; ZERO; 3407/2: 300 006 055|300 006 054|166 031|301 006 054|011|301 006 055|041|166 015|143 060|042 21; V3; V2; SHLD12; =V2; OR; =V3; ZERO; SHLD6; DC3; DUP; 3412/5: 200 147 017|052|304 001 307|262 067 007|052|052 J22!=Z; ERASE; SETB707; J21C3NZ; ERASE; ERASE; [ good44.txt [ -- Brian W 3414/5: 300 016 260|170 150|300 006 245|170 076|200 360 000 YA28; =C6; V123; =Q3; EXIT1; 3417/0: 042|304 000 033|036|203 047 021|304 001 340|056|202 267 007 22; DUP; SET27; -; J23>=Z; SETB740; +; J21; 3421/3: 042|304 000 065|036|200 047 024|304 001 206|056|202 267 007 23; DUP; SET53; -; J24>=Z; SETB606; +; J21; 3424/0: 304 001 233|056|202 267 007 24; SETB633; +; J21; 25; (output fail no line no etc); 3425/1: 304 006 054|170 144|304 006 055|170 142|300 016 243|164 377|200 326 322|164 061|300 016 245 SETAV2; =I6; SETAV3; =M6; YA15; SHL-1; JS10; SHL24; YA17; 3431/0: 222 147 050|300 006 075|011|301 006 055|171 156|200 336 115|300 006 077|301 006 054|300 016 244|164 377|200 326 322 J8=Z; V19; OR; =V3; Q6; JSP114; V21; =V2; YA16; SHL-1; JS10; 3435/5: 164 075|300 006 110|011|301 006 055|171 156|200 336 115|300 006 061|301 006 054|300 006 062|301 006 055|171 156|200 336 115|300 016 245 SHL+30; V30; OR; =V3; Q6; JSP114; V7; =V2; V8; =V3; Q6;JSP114; YA17; 3443/3: 300 010 056|171 150|036|225 147 046|201 327 004|171 156|200 336 115|200 360 000 V4P33; C6; -; J7=Z; JS20; Q6; JSP114; EXIT1; 3446/5: 171 156|065|204 324 067|200 360 000 7; Q6; REV; JS4P3; EXIT1; 3450/2: 301 006 055|171 156|200 336 115|200 360 000 8; =V3; Q6; JSP114; EXIT1; === Start P30V-1; at address 1835 P30; (DEC); 3453/0: 262 027 054 J1C1NZ; (if m!=0); 3453/3: 171 022|202 147 055 M1; J3NEZ; (if E=1); 3454/2: 304 000 012 1; SET10; 3454/5: 200 264 124 2; JP5; 3455/2: 300 016 234|042|201 147 057 3; YA8; DUP; J4!=Z; (if V!=0); 3456/3: 041|200 331 073 ZERO; JSP44; 3457/1: 304 000 042|065|225 047 054|052|200 360 000 4; SET34; REV; J2=Z; (if A2!=letter); 3606/5: 052|200 327 366|052 4; ERASE; JSP32; ERASE; (UPDATE BUFFER); 3607/4: 171 116|164 301|304 000 377|054|041|222 027 177 Q4; SHL-32; SETB377; AND; ZERO; J17=; (IF A2=BLANK[A2]); 3611/4: 042|304 000 065|036|225 047 206 DUP; SET53; -; J4=Z; (if buffer>dict[a]); 3643/1: 264 247 241|205 267 253 J10C10NZ; (if a!=x); J14; 3644/1: 200 327 366|052 20; JSP32; ERASE; 12; (to clear rest of u/lined chars at a fail); 3644/5: 052|052|171 116|164 021|164 261 ERASE; ERASE; Q4; SHL8; SHL-40; 3646/1: 042|042|304 000 200|015|304 000 260|054 DUP; DUP; SETB200; NEV; SETB260; AND; 3647/5: 221 147 244|042|304 000 340|015|304 000 360 J20=Z; DUP; SETB340; NEV; SETB360; 3651/4: 054|221 147 244|052|304 000 176|200 267 200 AND; J20=Z; ERASE; SET126; J2; 3653/3: 141 240 13; M-I10; 3653/5: 144 240|302 247 061|300 247 061|065 14; I10=1; V0M10Q; V0M10; REV; 3655/2: 042|164 261|012|051|036|205 147 244 15; DUP; SHL-40; PERM; REVD; -; J12!=Z; (fail if cell[b]!=char); 3656/5: 166 021|042|164 261|222 147 261 SHLD8; DUP; SHL-40; J16=Z; (if cell[b]=blank); 3660/1: 200 327 366|012|202 267 255 JSP32; PERM; J15; 3661/2: 052|052|300 247 061|304 007 377|054|300 016 221|170 256|202 267 230 16; ERASE; ERASE; V0M10; SETB3777; AND; W3; =Q10; J7; === Start P32V64; at address 2038 P32V64; (UPDATE BUFFER) V-store at 03665 = 174 174 000 000 201 201 V-store at 03666 = 000 000 000 000 000 000 V0=B3707600000100601; V1=0; V-store at 03667 = 174 174 000 000 201 201 V-store at 03670 = 174 174 000 000 201 201 V2=B3707600000100601; V3=B3707600000100601; V-store at 03671 = 174 174 000 000 201 201 V-store at 03672 = 000 000 000 000 000 000 V4=B3707600000100601; V5=0; V-store at 03673 = 174 174 000 000 201 201 V-store at 03674 = 174 174 000 000 201 201 V6=B3707600000100601; V7=B3707600000100601; V-store at 03675 = 000 000 000 000 000 000 V-store at 03676 = 000 000 000 000 000 000 V8=0; V9=0; V-store at 03677 = 000 000 000 000 000 000 V-store at 03700 = 000 000 000 000 000 000 V10=0; V11=0; V-store at 03701 = 000 000 000 000 000 000 V-store at 03702 = 000 000 000 000 000 000 V12=0; V13=0; [ good48.txt [ -- Roderick McL V-store at 03703 = 000 000 000 000 000 000 V-store at 03704 = 262 146 000 000 201 201 V14=0; V15=B 5446 3000 0010 0601; V-store at 03705 = 065 322 000 000 201 201 V-store at 03706 = 066 114 000 000 201 127 V16=B 1535 1000 0010 0601; V17=B 1544 6000 0010 0527; V-store at 03707 = 067 177 000 000 201 117 V-store at 03710 = 070 226 000 000 201 266 V18=B 1567 7400 0010 0517; V19=B 1611 3000 0010 0666; V-store at 03711 = 071 126 000 000 201 166 V-store at 03712 = 072 326 000 000 201 201 V20=B 1625 3000 0010 0566; V21=B 1655 3000 0010 0601; V-store at 03713 = 073 222 000 000 201 201 V-store at 03714 = 074 362 000 000 201 201 V22=B 1671 1000 0010 0601; V23=B 1717 1000 0010 0601; V-store at 03715 = 075 163 000 000 201 201 V-store at 03716 = 076 175 000 000 305 201 V24=B 1727 1400 0010 0601; V25=B 1747 6400 0014 2601; V-store at 03717 = 174 174 000 000 201 201 V-store at 03720 = 100 174 000 000 201 201 V26=B 3707 6000 0010 0601; V27=B 2007 6000 0010 0601; V-store at 03721 = 170 170 000 000 201 201 V-store at 03722 = 122 366 000 000 201 201 V28=B 3607 4000 0010 0601; V29=B 2457 3000 0010 0601; V-store at 03723 = 162 257 000 000 201 201 V-store at 03724 = 077 173 000 000 201 201 V30=B 3452 7400 0010 0601; V31=B 1767 5400 0010 0601; V-store at 03725 = 000 000 000 000 000 000 V-store at 03726 = 001 033 000 000 304 357 V32=0; V33=B 0021 5400 0014 2357; V-store at 03727 = 002 034 000 000 303 356 V-store at 03730 = 003 035 000 000 201 355 V34=B 0041 6000 0014 1756; V35=B 0061 6400 0010 0755; V-store at 03731 = 004 036 000 000 302 354 V-store at 03732 = 005 037 000 000 301 353 V36=B 0101 7000 0014 1354; V37=B 0121 7400 0014 0753; V-store at 03733 = 006 040 000 000 300 352 V-store at 03734 = 007 041 000 000 217 351 V38=B 0142 0000 0014 0352; V39=B 0162 0400 0010 7751; V-store at 03735 = 010 042 000 000 201 350 V-store at 03736 = 011 043 000 000 216 347 V40=B 0202 1000 0010 0750; V41=B 0222 1400 0010 7347; V-store at 03737 = 012 044 000 000 201 346 V-store at 03740 = 013 045 000 000 215 345 V42=B 0242 2000 0010 0746; V43=B 0262 2400 0010 6745; V-store at 03741 = 014 046 000 000 214 344 V-store at 03742 = 015 047 000 000 213 343 V44=B 0302 3000 0010 6344; V45=B 0322 3400 0010 5743; V-store at 03743 = 016 050 000 000 212 342 V-store at 03744 = 017 051 000 000 211 341 V46=B 0342 4000 0010 5342; V47=B 0362 4400 0010 4741; V-store at 03745 = 020 052 000 000 201 340 V-store at 03746 = 021 053 000 000 201 317 V48=B 0402 5000 0010 0740; V49=B 0422 5400 0010 0717; V-store at 03747 = 022 054 000 000 210 316 V-store at 03750 = 023 055 000 000 207 315 V50=B 0442 6000 0010 4316; V51=B 0462 6400 0010 3715; V-store at 03751 = 024 056 000 000 206 314 V-store at 03752 = 025 057 000 000 201 313 V52=B 0502 7000 0010 3314; V53=B 0522 7400 0010 0713; V-store at 03753 = 026 060 000 000 201 312 V-store at 03754 = 027 061 000 000 201 311 V54=B 0543 0000 0010 0712; V55=B 0563 0400 0010 0711; V-store at 03755 = 030 062 000 000 205 310 V-store at 03756 = 031 063 000 000 204 307 V56=B 0603 1000 0010 2710; V57=B 0623 1400 0010 2307; V-store at 03757 = 032 064 000 000 201 306 V-store at 03760 = 000 000 000 000 000 000 V58=B 0643 2000 0010 0706; V59=0; V-store at 03761 = 000 000 000 000 000 000 V-store at 03762 = 174 174 000 000 201 201 V60=0; V61=B 3707 6000 0010 0601; V-store at 03763 = 000 000 000 000 000 000 V-store at 03764 = 000 000 000 000 000 000 V62=0; V63=0; V-store at 03765 = 367 337 175 367 337 175 V64=B 7575 7575 7575 7575; 3766/0: 171 144|167 351|204 047 367|200 330 061 I6; SHC-12; J11>=Z; JSP33; 3767/4: 041|300 016 250|203 150 030 11; ZERO; YA20; J10!=Z; 3770/5: 052 1; ERASE; [ good49.txt [ -- Roderick McL 3771/0: 262 150 011|265 210 007|300 016 252|042|164 341 2; J4C6NZ; J3C8NZ; YA22; DUP; SHL-16; 3773/0: 170 142|300 016 253 =M6; YA23; 3773/5: 301 016 252|301 016 253 =YA22; =YA23; 3774/5: 300 016 257|170 170|121 160|203 347 377|304 000 204|200 264 124 YA27; =C7; PARQ7; J19NTR; SET132; JP5; 3777/3: 300 016 253|170 176|100 160|300 007 365|015|304 000 010|170 170 19; YA23; =Q7; M0M7; V64; NEV; SET8; =C7; 4002/1: 041|166 015|225 150 006|143 160|261 170 002|300 016 252|170 176|300 007 365|101 160 17; ZERO; SHLD6; J20=Z; DC7; J17C7NZ; YA22; =Q7; V64; =M0M7; 4005/4: 300 016 257|170 170|125 160 YA27; =C7; PREQ7; 4006/5: 052|304 000 040|170 211 20; ERASE; SET32; =RC8; 4007/5: 102 206|170 176|304 000 010|170 150 3; M6M8Q; =Q7; SET8; =C6; 4011/2: 143 140|171 176|042|164 015|170 176|164 255|304 000 007|200 030 015|152 011|205 267 370 4; DC6; Q7; DUP; SHL6; =Q7; SHL-42; SET7; J5!=; I0TOQ9; J1; 4015/0: 304 000 006|202 030 017|304 000 010|170 224|205 267 370 5; SET6; J6!=; SET8; =I9; J1; 4017/2: 304 000 032|201 030 022|301 016 251|304 000 040|170 230|200 267 371 6; SET26; J7!=; =YA21; SET32; =C9; J2; 4022/1: 042|225 150 023|304 000 004|205 030 034 7; DUP; J8=Z; SET4; J12!=; 4023/5: 052|240 227 371|304 000 203|171 136|304 351 341|015|164 101|223 150 027 8; ERASE; J2C9Z; SET131; Q5; SETB164741; NEV; SHL32; J9=Z; 4026/5: 052|304 000 202 18; ERASE; SET130; 4027/3: 304 000 040|301 016 251 9; SET32; =YA21; 4030/3: 154 011|171 136|171 116|166 021|042|170 116|164 261|012 10; C0TOQ9; Q5; Q4; SHLD8; DUP; =Q4; SHL-40; PERM; 4032/5: 011|170 136|171 144|164 003|170 144|200 360 000 OR; =Q5; I6; SHL1; =I6; EXIT1; 4034/5: 304 000 075|202 030 037|301 016 250|304 000 157|203 270 027 12; SET61; J13!=; =YA20; SETB157; J9; 4037/2: 304 000 002|222 030 041|304 000 003|202 030 044 13; SET2; J14=; SET3; J15!=; 4041/2: 300 016 251|225 147 370 14; YA21; J1=Z; 4042/2: 041|301 016 251|304 000 001|172 144|205 270 023 ZERO; =YA21; SET1; =+I6; J8; 4044/2: 170 222|171 224|172 230|300 227 265|164 220|164 261|304 000 174|225 030 026 15; =M9; I9; =+C9; V0M9; SHLC9; SHL-40; SET124; J18=; 4047/3: 042|203 150 027|171 224|027|172 230|205 267 370 DUP; J9!=Z; I9; NEG; =+C9; J1; === Start P33V6; at address 2097 P33V6; (store); V-store at 04052 = 000 000 000 000 000 000 V-store at 04053 = 000 000 000 000 000 000 V0=0; V1=0; V-store at 04054 = 034 044 020 101 004 020 V2=B 0702 2020 2020 2020; V-store at 04055 = 000 000 000 000 000 000 V-store at 04056 = 000 000 000 000 000 000 V3=0; V4=0; [ good50.txt [ -- Brian W V-store at 04057 = 000 000 000 000 000 000 V5=0; V-store at 04060 = 000 000 000 000 000 000 V6=0; 4061/0: 171 050|301 010 057|171 076|301 010 055 C2; =V5; Q3; =V3; 4062/4: 300 016 256|200 150 107 YA26; J1!=Z; (no store output if FAIL set); 4063/4: 300 004 102|201 150 066 V0P4; J3!=Z; (if not a string or code body compile DUMMY); 4064/4: 041|304 001 074|166 361|200 330 115 ZERO; SETB474; SHLD-8; JSP34; 4066/1: 300 010 060|220 150 107|304 010 052|170 064|304 010 053|170 062 3; V6; J1=Z; SETAV0; =I3; SETAV1; =M3; 4070/5: 300 016 243|164 377|200 334 117|300 014 115|164 075|164 351 YA15; SHL-1; JSP127; V2P127; SHL30; SHL-12; 4073/2: 300 016 244|164 377|200 334 117|300 014 115|164 075|164 305|011 YA16; SHL-1; JSP127; V2P127; SHL30; SHL-30; OR; 4076/0: 300 010 054|011|300 016 260|300 010 056|223 150 101 V2; OR; YA28; V4; J2=Z; (if output to punch); 4100/1: 052|164 015|164 365 ERASE; SHL6; SHL-6; (remove CN char); 4101/0: 300 010 056 V4; 4101/3: 170 070|301 010 052|171 024|304 000 006|034|050|171 344|056 2; =C3; =V0; I1; SET6; xD; CONT; I14; +; 4104/0: 200 334 117|300 014 115|300 014 113|011|301 010 053 JSP127; V2P127; V0P127; OR; =V1; 4106/1: 171 076|200 336 115 Q3; JSP114; 4107/0: 300 010 055|170 076|300 010 057|170 050 1; V3; =Q3; V5; =C2; 4110/4: 304 000 002|042|300 016 243|056|301 016 243 SET2; DUP; YA15; +; =YA15; 4112/3: 300 016 244|056|301 016 244|200 360 000 YA16; +; =YA16; EXIT1; === Start P34V-1; at address 2125 P34; (COMPILE); 4115/0: 170 050|300 336 366|171 156|301 016 220|171 344|304 000 006|036|164 007|170 150|164 140 =C2; Y0M13; Q6; =W2; I14; SET6; -; SHL3; =C6; SHLC6; 4120/4: 304 000 006|170 150 1; SET6; =C6; (no of sylls in N1 to compile); 4121/3: 167 021|170 076 2; SHC8; =Q3; (last word of object prog); 4122/1: 167 021|042|304 000 377|054|171 076|056|143 040|143 140|171 344|033|027 SHC8; DUP; SETB377; AND; Q3; +; DC2; DC6; I14; NOT; NEG; 4125/1: 304 000 006|204 030 133 SET6; J4!=; (if space left in current word); 4126/1: 052|304 000 001|172 024|171 024|164 347|222 150 131|304 000 006|200 264 124 ERASE; SET1; =+I1; I1; SHL-13; J6=Z; SET6; JP5; (IF OBJ PROG >8K); 4131/2: 303 336 366 6; =Y0M13Q; (store full object prog word); [ good51.txt [ -- Roderick McL 4131/5: 262 330 133 J3C13NZ; (if room between object prog and stack); 4132/2: 304 377 377|200 330 143 SET-1; JSP35; 4133/2: 041|042 3; ZERO; DUP; 4133/4: 170 344|263 050 140 4; =I14; J5C2NZ; (if more sylls to compile); 4134/3: 304 000 006|171 344|036|164 007|170 050|164 040|301 336 366 SET6; I14; -; SHL3; =C2; SHLC2; =Y0M13; 4137/0: 052|300 016 220|170 156|200 360 000 ERASE; W2; =Q6; EXIT1; 4140/3: 263 150 121 5; J2C6NZ; (if more sylls in N1); 4141/0: 065|052|204 270 120 REV; ERASE; J1; === Start P35V0; at address 2147 P35V0; (MOVE STACK); V-store at 04142 = 000 000 000 000 000 000 V0=0; 4143/0: 171 156|301 010 142|042|222 050 162|223 110 146|171 304|172 370|171 370|220 110 161 Q6; =V0; DUP; J7Z; I12; =+C15; C15; J6>Z; 4146/3: 304 000 040 1; SET32; (no of words the stack is moved); 4147/0: 042|172 370|027|042|172 330|171 330 DUP; =+C15; NEG; DUP; =+C13; C13; 4150/3: 203 050 153|203 324 201|304 000 006|300 006 250|300 006 252|202 332 047 2; J3>=Z; JS2P5; SET6; V126P29; V128P29; JS15P50; (KDF9 too small); 4153/3: 171 342|056|170 142|171 362|042|170 150 3; M14; +; =M6; M15; DUP; =C6; 4155/1: 220 150 160|100 376|101 366|171 362|027|033|042|170 362|201 270 155 4; J5=Z; M14M15; =M6M15; M15; NEG; NOT; DUP; =M15; J4; 4160/0: 171 150|170 362|151 156 5; C6; =M15; M6TOQ14; 4161/0: 300 010 142|170 156|200 360 000 6; V0; =Q6; EXIT1; 4162/2: 052|304 000 040 7; ERASE; SET32; (no of words the stack is moved); 4163/0: 042|042|170 330|027|172 370|171 370|203 270 150 DUP; DUP; =C13; NEG; =+C15; C15; J2; === Start P36V-1; at address 2165 P36; (STACK); 4165/0: 170 050 =C2; 4165/2: 265 370 166 1; J2C15NZ; (if room to add another word to stack); 4165/5: 304 000 001|200 330 143 SET1; JSP35; 4166/5: 113 376|143 040|262 050 165 2; =M14M15QN; DC2; J1C2NZ; (if more words to stack); 4170/0: 200 360 000 EXIT1; === Start P37V-1; at address 2169 P37; (UNSTACK 18/2/63); 4171/0: 170 044 =I2; [ good52.txt [ -- Roderick McL 4171/2: 171 362|220 150 175|100 376|042|170 076|304 000 017 1; M15; J2=Z; M14M15; DUP; =Q3; SETB17; 4173/3: 054|042|171 044|036|203 050 175|052 AND; DUP; I2; -; J3>=Z; ERASE; 4175/0: 200 360 000 2; EXIT1; 4175/3: 304 000 015|200 030 203 3; SET13; J7!=; 4176/3: 052|155 003|171 076 4; ERASE; CM0TOQ3; Q3; 4177/2: 042|200 332 250|300 016 247|042|202 150 177|052 5; DUP; JSP54; YA19; DUP; J5!=Z; ERASE; 4201/2: 141 360|304 000 001|172 370|202 270 171 6; M-I15; SET1; =+C15; J1; 4203/0: 171 076|065|304 000 014|225 030 211|304 000 010|205 030 206|171 044|201 030 214 7; Q3; REV; SET12; J10=; SET8; J9!=; I2; J11!=; 4206/2: 200 264 124 8; JP5; 4206/5: 052|042|164 261|304 000 151|015|304 000 373|054|223 150 176|202 270 214 9; ERASE; DUP; SHL-40; SETB151; NEV; SETB373; AND; J4=Z; J12; 4211/5: 241 050 214|052|164 021|304 000 065|171 050|222 050 206 10; J11C2Z; ERASE; SHL8; SET53; C2; J8Z; J3=Z; EXIT1; 4220/1: 052|304 000 015|200 330 171|171 022|225 150 223|300 016 231|304 000 170|036|225 150 224 1; ERASE; SET13; JSP37; M1; J2=Z; YA5; SET120; -; J3=Z; 4223/5: 304 000 007|200 264 124 2; SET7; JP5; 4224/5: 041|033|301 016 234|200 360 000 3; ZERO; NOT; =YA8; EXIT1; === Start P39V-1; at address 2199 P39; (END STATE 6/2/63); 4227/0: 304 000 065|300 016 231|304 000 177|036|300 016 262|011|224 150 242|052 SET53; YA5; SET127; -; YA30; OR; J6=Z; ERASE; 4232/0: 041|301 016 262|200 330 216|304 000 001|042|200 330 255|171 022|201 150 240 ZERO; =YA30; JSP38; SET1; DUP; JSP40; M1; J3!=Z; 4235/1: 200 330 276|151 041|041|301 016 241 JSP41; M2TOQ1; ZERO; =YA13; 4236/4: 304 001 204|301 016 226 1; SETB604; =YA2; 4237/4: 200 360 000 2; EXIT1; 4240/1: 262 030 241|052|200 360 000 3; J4C1NZ; ERASE; EXIT1; 4241/2: 304 000 004|171 030|221 110 243 4; SET4; C1; J5>Z; 4242/4: 200 264 124 6; JP5; 4243/1: 301 016 226|200 330 276|041|304 001 124|166 361|200 330 115|304 000 157 5; =YA2; JSP41; ZERO; SETB524; SHLD-8; JSP34; SET111; 4246/1: 300 276 367|042|205 050 250 Y1M11; DUP; J7>=Z; [ good53-64.txt [ -- Graham T [== Page 53 4247/2: 164 037|204 050 242|052|204 270 236 SHL15; J6>=Z; ERASE; J1; 4250/5: 304 001 000|164 061|011|301 276 367|052 7; SETB400; SHL24; OR; =Y1M11; ERASE; 4252/3: 154 013|300 276 366|200 331 223|301 276 366|204 270 236 C0TOQ11; Y0M11; JSP48; =Y0M11; J1; === Start P40V-1; at address 2221 P40; (EXP 22/1/63); 4255/0: 171 022|222 150 266|042|170 050|304 000 014|200 330 171|100 376 M1; J4=Z; DUP; =C2; SET12; JSP37; M14M15; 4257/4: 167 021|304 000 020|015|304 000 277|054|224 150 264 SHC8; SETB20; NEV; SETB277; AND; J2=Z; 4261/5: 027|033|205 110 265|300 016 233|205 150 265 NEG; NOT; J3<=Z; YA7; J3!=Z; 4263/4: 304 000 011|200 264 124 1; SET9; JP5; 4264/4: 042|202 110 266|151 001|052 2; DUP; J4<=Z; M0TOQ1; ERASE; 4265/5: 200 360 000 3; EXIT1; 4266/2: 205 050 265|304 000 043|200 264 124 4; J3>=Z; SET35; JP5; === Start P41V5; at address 2238 P41V5; (TAKE 26/3/63); V-store at 04270 = 006 106 010 014 116 016 V-store at 04271 = 000 151 111 155 115 000 V0=B 0144 3010 0304 7016; V1=B 0006 4511 3324 6400; V-store at 04272 = 141 103 000 145 105 000 V-store at 04273 = 000 051 011 055 015 000 V2=B 3024 1400 3124 2400; V3=B 0002 4411 1320 6400; V-store at 04274 = 045 003 000 045 005 000 V-store at 04275 = 000 000 000 000 000 000 V4=B 1120 1400 1120 2400; V5=0; 4276/0: 171 156|301 010 275|042|170 050|154 052|264 030 312|300 016 231|304 000 175 Q6; =V5; DUP; =C2; C2TOQ10; J4C1NZ; YA5; SET125; 4301/1: 203 030 306|052|042|220 150 306|052 J3!=; ERASE; DUP; J2=Z; ERASE; 4302/4: 300 010 275|170 156|200 360 000 1; V5; =Q6; EXIT1; 4304/0: 164 301|304 012 000|054|224 150 340 30; SHL-32; SETB5000; AND; J27=Z; 4305/3: 304 000 157 28; SET111; 4306/0: 200 264 124 2; JP5; 4306/3: 304 000 177|036|304 000 014|065|200 150 306|200 330 171|052|300 016 226|041|200 332 311|204 270 302 3; SET127; -; SET12; REV; J2!=Z; JSP37; ERASE; YA2; ZERO; JSP56; J1; 4312/4: 304 000 005|304 000 175|300 016 231|036|220 150 306 4; SET5; SET125; YA5; -; J2=Z; 4314/5: 304 000 177|300 016 231|036|220 150 306|052|171 030|200 050 334|304 000 001|065 SET127; YA5; -; J2=Z; ERASE; C1; J7>=Z; SET1; REV; 4320/1: 304 000 201|300 016 226|304 000 010|054|200 150 306|052 SET129; YA2; SETB10; AND; J2!=Z; ERASE; 4322/3: 220 150 306|041|300 016 232|042|164 007|042|304 000 030 J2=Z; ZERO; YA6; DUP; SHL3; DUP; SET24; 4324/5: 065|203 050 326|300 016 241|200 150 306 REV; J5>=Z; YA13; J2!=Z; 4326/3: 036|170 150|164 377|203 150 331|052|304 000 006|056|041|065|300 016 227 5; -; =C6; SHL-1; J6!=Z; ERASE; SET6;+; ZERO; REV; YA3; 4331/3: 300 010 270|164 140|166 121|066|200 330 115|052|204 270 302 6; V0; SHLC6; SHLD40; CAB; JSP34; ERASE; J1; [ -- Graham T [== Page 54 4334/0: 200 331 140|042|224 150 340|043|052|204 150 340|042 7; JSP46; DUP; J27=Z; DUPD; ERASE; J27!=Z; DUP; 4336/1: 300 016 230|304 000 114|036|220 150 304|164 013|223 050 305 YA4; SET76; -; J30=Z; SHL5; J28=Z; 4346/4: 166 061|304 000 074|056|164 041|304 000 004|202 270 353 24; SHLD24; SET60; +; SHL16; SET4; J9; 4351/0: 304 000 011|300 016 246|164 361|011 29; SET9; YA18; SHL-8; OR; 4352/3: 166 121|304 000 003 8; SHLD40; SET3; 4353/2: 304 000 001|200 331 130|170 144|200 330 115|300 016 226|171 150|042|164 355|171 250|011 9; SET1; JSP45; =I6; JSP34; YA2; C6; DUP; SHL-10; C10; OR; 4357/0: 205 150 360|200 333 054|065|052|202 270 362 J10!=Z; JSP60; REV; ERASE; J11; 4360/5: 065|300 016 246|056|065|200 331 050 10; REV; YA18; +; REV; JSP42; 4362/2: 170 150|171 142|204 150 366|171 144|170 142|304 001 377 11; =C6; M6; J12!=Z; I6; =M6; SETB777; 4364/4: 171 250|056|164 041|300 016 243|056|203 270 370 C10; +; SHL16; YA15; +; J13; 4366/4: 300 276 366|154 013|243 250 370|200 331 223 12; Y0M11; C0TOQ11; J13C10Z; JSP48; 4370/3: 171 156|301 276 367|304 004 004|042|300 016 224|015|054|200 150 374|304 000 001|011 13; Q6; =Y1M11; SETB2004; DUP; YA0; NEV; AND; J14!=Z; SET1; OR; 4374/0: 301 276 366|204 270 302 14; =Y0M11; J1; 4375/0: 304 000 066|304 004 004|042|300 016 224|015|054|220 150 306|052 15; SET54; SETB2004; DUP; YA0; NEV; AND; J2=Z; ERASE; 4377/4: 300 016 226|012|065|221 151 004|042|164 257|304 000 100|036 YA2; PERM; REV; J16=Z; DUP; SHL-41; SETB100; -; 4402/1: 304 010 001|065|224 151 003|027|033 SETB4001; REV; J25=Z; NEG; NOT; 4403/4: 164 101|011 25; SHL32; OR; 4404/1: 042|200 332 311|171 150|304 000 170 16; DUP; JSP56; C6; SETB170; 4405/4: 054|300 276 366|042|304 001 000|164 041|011|301 276 366|164 251|036|170 070 AND; Y0M11; DUP; SETB400; SHL16; OR; =Y0M11; SHL-44; -; =C3; 4410/5: 171 150|244 251 033|042|164 115|304 000 027|065|220 050 306|052|167 377 C6; J22C10Z; DUP; SHL38; SET23; REV; J2=Z; C6; SHL37; J26>=Z; SETB45; J18; 4443/5: 300 010 273|300 010 274 26; V3; V4; 4444/5: 166 060|065|052|164 261|304 000 003|201 031 023|201 271 032 SHLDC3; REV; ERASE; SHL-40; SET3; J18!=; J21; [ DH put blank line in here to conform to normal Usercode layout [ suspect that this is the reason for the annotation === Start P42V-1; at address 2344 P42; (COMPARE); (== note pencil annotation, possibly moving some instructions to this line? ==) 4450/0: 043|011|042|012|225 031 052|012|221 031 054 DUPD; OR; DUP; PERM; J2=;PERM; J5=; [ but annotation here may be more significant 4451/5: 304 000 157|200 264 124 1; SET111; JP5; 4452/5: 012|052|052 2; PERM; ERASE; ERASE; 4453/2: 065 3; REV; 4453/3: 052|200 360 000 4; ERASE; EXIT1; 4454/1: 066|222 151 053|065|042|164 357|205 151 051 5; CAB; J3=Z;REV; DUP; SHL-9; J1!=Z; 4456/0: 065|042|304 001 377|054|066|036|205 151 051|042|164 355 REV; DUP; SETB777; AND; CAB; -; J1!=Z;DUP; SHL-10; 4460/2: 042|223 151 053 DUP; J4=Z; 4461/0: 027|033|225 151 051|033|027|200 360 000 NEG; NOT; J1=Z;NOT; NEG; EXIT1; === Start P43V-1; at address 2355 P43; (GENERATE); 4463/0: 100 376|164 261|304 000 033|036|017|221 151 071 M14M15; SHL-40; SET27; -; DUMMY; J1=Z; 4465/0: 304 015 033|167 361|304 000 001|043|200 331 130|164 041|056|065|200 330 165 SETB6433; SHC-8; SET1; DUPD; JSP45; SHL16; +; REV; JSP36; 4470/1: 304 000 003|200 330 115 SET3; JSP34; 4471/1: 200 360 000 1; EXIT1; === Start P44V0; at address 2363 P44V0; (BLOCK BEGIN 11/3/63); V-store at 04472 = 220 033 000 000 121 000 V0=B4401540000050400; 4473/0: 202 151 112|100 376|042|164 261 J7!=Z; M14M15; DUP; SHL-40; 4474/2: 304 000 256|201 031 077 SETB256; J3#; (if TS != begin (bl)); 4475/2: 052 ERASE; 4475/3: 052 1; ERASE; 4475/4: 304 000 001|301 016 234|200 360 000 2; SET1; =YA8; EXIT1; [ -- Graham T [== Page 56 4477/1: 141 360|304 000 001|172 370|304 000 056|036|223 151 102|304 000 064 3; M-I15; SET1; =+C15; SET46; -; J5=Z; SET52; 4502/0: 200 264 124 4; JP5; 4502/3: 042|164 021|224 051 105|100 376|042|164 261|304 000 116|036|220 151 125|052 5; DUP; SHL8; J6=Z; SET6; +; REV; NEG; NOT; REV; J3; 4536/2: 164 033|056|200 360 000 4; SHL13; +; EXIT1; === Start P46V-1; at address 2400 P46; (ENTRY 26/1/63); 4540/0: 300 016 240|170 262|171 316|300 016 227|203 271 143 YA12; =M11; Q12; YA3; J4; 4542/1: 141 300|300 316 370|225 031 150 1; M-I12; Y2M12; J3=; 4543/3: 171 302|171 262|036|201 151 142 4; M12; M11; -; J1!=Z; 4544/5: 041|200 330 143|065|170 316|151 313 2; ZERO; JSP35; REV; =Q12; M12TOQ11; 4546/2: 041|301 316 366|041|301 316 367 ZERO; =Y0M12; ZERO; =Y1M12; 4547/4: 303 316 370|041|200 360 000 =Y2M12Q; ZERO; EXIT1; 4550/5: 052|151 313|170 316|300 276 367|200 360 000 3; ERASE; M12TOQ11; =Q12; Y1M11; EXIT1; === Start P47V-1; at address 2411 P47; (DECL 7/3/63); 4553/0: 205 151 155|304 000 017|171 030|027|033|204 151 161|052|200 331 140 J1!=Z; SET15; C1; NEG; NOT; J2!=Z; ERASE; JSP46; [ -- Graham T [== Page 57 4555/5: 171 262|301 012 105|171 156|301 016 216|042|170 156|042|221 151 221|221 111 162|304 000 044 1; M11; =V5P53; Q6; =W0; DUP; =Q6; DUP; J13=Z; J3>Z; SET36; 4561/4: 200 264 124 2; JP5; 4562/1: 300 276 366|042|167 377|304 000 023|065 3; Y0M11; DUP; SHC-1; SET19; REV; 4563/5: 224 051 161|052|200 331 223|152 143 J2=Z; SET161; J6; 4736/4: 171 370|304 011 010|201 031 341|052|304 000 301|205 271 311 18; C15; SETB4410; J19!=; ERASE; SET193; J9; 4741/1: 042|304 002 011|054|203 151 343|042|164 357|204 151 347 19; DUP; SETB1011; AND; J20!=Z; DUP; SHL-9; J21!=Z; 4743/3: 304 000 170|054|027|170 070|300 011 236|300 011 237 20; SETB170; AND; NEG; =C3; V2; V3; 4745/4: 166 060|052|164 121|164 321|171 362|203 271 301 SHLDC3; ERASE; SHL40; SHL-24; M15; J7; 4747/4: 042|164 125|167 005|065|164 353|042|042|056|056|056|164 007 21; DUP; SHL42; SHC2; REV; SHL-11; DUP; DUP; +; +; +; SHL3; 4752/1: 170 070|300 011 240|164 060|164 261|205 271 300 =C3; V4; SHLC3; SHL-40; J6; 4754/1: 171 370|012|052|043|164 013|224 051 357|167 353|205 051 360 22; C15; PERM; ERASE; DUPD; SHL5; J31=Z; 4756/4: 304 000 050|201 271 270 30; SET40; J3; 4757/4: 304 012 000|054|204 151 356 31; SETB5000; AND; J30!=Z; 4760/5: 052|042|304 004 200|054|224 151 356|042|304 002 001|054|204 151 364|042|164 357|203 151 371 32; ERASE; DUP; SETB2200; AND;J30=Z; DUP; SETB1001; AND; J23!=Z; DUP; SHL-9; J25!=Z; 4764/4: 171 062|171 262|036|202 152 001|042|164 117|202 052 001|171 356|304 000 001|011|301 276 366 23; M3; M11; -; J29!=Z; DUP; SHL39; J29>=Z; Q14; SET1; OR; =Y0M11; 4770/3: 300 011 243|204 271 275 24; V7; J5; 4771/3: 171 356|221 051 375|304 005 010|203 031 370|052|304 000 003|164 041|171 362|203 271 301 25; Q14; J26=Z; ERASE; SET37; J6; 4777/2: 300 011 244|204 271 275 27; V8; J5; 5000/2: 304 000 046|201 271 270 28; SET38; J3; 5001/2: 304 000 032|201 271 270 29; SET26; J3; === Start P50V0; at address 2564 P50V0; (print message); V-store at 05003 = 000 000 000 000 000 000 V0=0; 5004/0: 171 156|301 012 003|201 332 037|300 006 206|301 006 054|201 327 025 Q6; =V0; JS10; V92P29; =V2P29; JS25P29; 5006/5: 304 000 001|223 032 020|304 000 006|223 032 020 SET1; J2=; SET6; J2=; 5010/5: 201 332 037|304 006 054|170 144|304 006 055|170 142 1; JS10; SETAV2P29; =I6; SETAV3P29; =M6; 5013/0: 300 006 126|301 006 054|300 006 062|301 006 055|171 156|200 336 115|043|304 000 003|036 V44P29; =V2P29; V8P29; =V3P29; Q6; JSP114; DUPD; SET3; -; 5016/4: 225 152 045|201 327 004|171 156|200 336 115 J14=Z; JS20P29; Q6; JSP114; 5020/3: 201 332 037|304 006 137|170 144|304 006 140|170 142|171 156|200 336 115 2; JS10; SETAV53P29; =I6; SETAV54P29; =M6; Q6; JSP114; 5023/3: 304 000 002|204 032 031|300 006 244 SET2; J9!=; V122P29; [ -- Graham T [== Page 60 5025/0: 301 006 137|300 276 366|164 101|164 277 12; =V53P29; Y0M11; SHL32; SHL-33; 5026/4: 200 334 117|300 014 115|300 006 220|011|301 006 140|171 156|200 336 115 JSP127; V2P127; V102P29; OR; =V54P29; Q6; JSP114; 5031/4: 300 012 003|170 156|304 000 005|036|201 052 034|200 360 000 9; V0; =Q6; SET5; -; J3>=Z; EXIT1; 5034/1: 200 324 231 3; JSP7; 5034/4: 200 327 366|304 000 157|201 032 034 4; JSP32; SETB157; J3!=; 5036/1: 200 324 231|203 261 115 5; JSP7; J112P0; 5037/1: 300 016 260|170 150|304 000 003|205 032 042 10; YA28; =C6; SET3; J11!=; 5041/0: 300 010 056|225 152 042|300 010 056|170 150 V4P33; J11=Z; V4P33; =C6; 5042/5: 200 360 000 11; EXIT1; 5043/2: 301 006 140|301 006 137|304 000 006|203 324 201|203 272 020 13; =V54P29; =V53P29; SET6; JS2P5; J2; 5045/5: 171 156|065|204 324 067|203 272 020 14; Q6; REV; JS4P3; J2; 5047/2: 301 006 140|301 006 137|200 272 004 15; =V54P29; =V53P29; JP50; === Start P51V-1; at address 2601 5051/0: 042|164 347|164 007|065|304 037 377|054 P51; DUP; SHL-13; SHL3; REV; SETB17777; AND; 5052/4: 152 326|170 142|302 156 371|300 156 371|065|066|170 150|200 360 000 I13TOQ6; =M6; Y3M6Q; Y3M6; REV; CAB; =C6; EXIT1; === Start P52V-1; at address 2606 P52; (end block); 5056/0: 201 152 057|041|304 001 160 J1!=Z; ZERO; SETB560; 5057/1: 166 361|200 330 115 1; SHLD-8; JSP34; 5060/0: 041|200 332 110 2; ZERO; JSP53; 5060/4: 043|052|167 367|164 243|301 016 254 5; DUPD; ERASE; SHC-5; SHL-47; =YA24; (restore R); 5062/1: 141 360|304 000 001|172 370|171 350|164 025|300 016 235|056 M-I15; SET1; =+C15; C14; SHL10; YA9; +; 5064/4: 100 376|042|170 076|161 301|301 016 234 M14M15; DUP; =Q3; SHA-32; =YA8; 5066/2: 171 064|301 016 235|171 062|301 016 240|141 360|304 000 001|172 370 I3; =YA9; M3; =YA12; M-I15; SET1; =+C15; 5071/1: 143 340|012|204 152 076|052 DC14; PERM; J3!=Z; ERASE; 5072/2: 100 376|304 000 015|200 330 171|264 352 075 M14M15; SET13; JSP37; J4C14NZ; 5074/1: 041|304 001 375|166 361|200 330 115 ZERO; SETB775; SHLD-8; JSP34; 5075/4: 304 000 003|200 333 357 4; SET3; JSP63; 5076/4: 041|200 332 250|200 360 000 3; ZERO; JSP54; EXIT1; [ -- Graham T [== Page 61 === Start P53V7; at address 2632 P53V7; (COLLAPSE); V-store at 05100 = 377 377 000 000 377 377 V0=B7777740000177777; V-store at 05101 = 000 000 000 000 000 000 V-store at 05102 = 000 000 000 000 000 000 V-store at 05103 = 000 000 000 000 000 000 V-store at 05104 = 000 000 000 000 000 000 V-store at 05105 = 000 000 000 000 000 000 V-store at 05106 = 000 000 000 000 000 000 V-store at 05107 = 000 000 000 000 000 000 V1=0; V2=0; V3=0; V4=0; V5=0; V6=0; V7=0; 5110/0: 300 012 107|202 152 242|300 016 254|202 152 242 V7; J18!=Z; YA24; J18!=Z; 5112/0: 300 016 240|171 302|036|221 152 243 YA12; M12; -; J19=Z; (if NL=NLP); 5113/3: 171 156|301 012 101|141 360|304 000 001|172 370|102 376 Q6; =V1; M-I15; SET1; =+C15; M14M15Q; 5115/5: 170 076|170 070|300 016 240|170 142|152 306 =Q3; =C3; YA12; =M6; I12TOQ6; 5117/4: 153 153|300 276 370|223 152 126|300 276 367|164 017|203 052 126|300 276 366|167 377 IM6TOQ11; Y2M11; J1=Z; Y1M11; SHL7; J1>=Z; Y0M11; SHC-1; 5123/1: 223 052 126|300 016 256|203 152 126|304 000 102|171 262|301 012 105|200 264 124 J1=Z; 5137/2: 052|241 072 147|300 016 240|170 262 ERASE; J5C3Z; YA12; =M11; 5140/5: 141 260|300 276 370|203 032 145|171 076|301 012 104|041|300 006 146 3; M-I11; Y2M11; J4!=; Q3; =V4; ZERO; V60P29; 5143/4: 300 006 150|202 332 047|300 012 104|170 076 V62P29; JS15P50; V4; =Q3; 5145/3: 171 062|171 262|036|205 152 140|151 033 4; M3; M11; -; J3!=Z; M1TOQ11; 5147/1: 300 276 366|164 321|171 042|054|203 152 162 5; Y0M11; SHL-24; M2; AND; J6!=Z; 5151/0: 300 276 367|164 277|304 104 204|036|223 152 162|300 016 256|203 152 162|171 156|301 012 003 Y1M11; SHL-33; SETB42204; -; J6=Z; YA26; J6!=Z; Q6; =V0P50; 5154/5: 300 006 210|301 006 137 V94P29; =V53P29; 5155/5: 300 006 212|301 006 140|300 006 224|301 006 244 V96P29; =V54P29; V106P29; =V122P29; 5157/5: 171 076|301 012 104|304 000 002|205 332 010|300 012 104|170 076 Q3; =V4; SET2; JS1P50; V4; =Q3; 5162/3: 052|203 272 126 6; ERASE; J1; 5163/1: 304 000 001|301 012 107 7; SET1; =V7; (COLL := 1); 5164/1: 052|171 350|027|033|203 152 166|200 333 141|203 272 126 ERASE; C14; NEG; NOT; J8!=Z; JSP61; J1; 5166/3: 300 276 367|300 276 366|066|300 016 240|170 262 8; Y1M11; Y0M11; CAB; YA12; =M11; 5170/3: 141 260|300 276 370|224 032 201|171 062|171 262|036|203 152 170 9; M-I11; Y2M11; J11=; M3; M11; -; J9!=Z; 5173/1: 151 033|065|304 377 376|054|171 142|171 262|036|202 152 177 M1TOQ11; REV; SETB177776; AND; M6; M11; -; J10!=Z; [ -- Graham T [== Page 62 5175/4: 140 140|301 276 366|052|052|203 272 126 M+I6; =Y0M11; ERASE; ERASE; J1; 5177/2: 301 156 366|301 156 370|301 156 367|140 140|203 272 126 10; =Y0M6; =Y2M6; =Y1M6; M+I6; J1; 5201/4: 052|164 341|171 042|054|170 270|171 156|301 012 102|171 076|301 012 103 11; ERASE; SHL-16; M2; AND; =C11; Q6; =V2; Q3; =V3; 5204/4: 300 276 366|200 331 223|304 001 000|164 041|011|042 Y0M11; JSP48; SETB400; SHL16; OR; DUP; 5206/5: 301 276 366|065|170 076|300 276 367|042|170 156|223 052 226|052 =Y0M11; REV; =Q3; Y1M11; DUP; =Q6; J13=Z; JP5; 5303/4: 304 024 100|056|164 105|304 000 003|200 330 115 2; SETB12100; +; SHL34; SET3; JSP34; 5305/4: 200 330 165|300 016 230|304 000 114|220 032 310|151 001 JSP36; YA4; SET76; J3=; M0TOQ1; 5310/0: 052 3; ERASE; 5310/1: 200 360 000 4; EXIT1; === Start P56V-1; at address 2761 P56; (compare type cols); 5311/0: 203 152 312|300 276 367|042|170 156 J1!=Z; Y1M11; DUP; =Q6; 5312/3: 047|042|221 152 317|012|164 301|200 331 050 1; STR; DUP; J3=Z; PERM; SHL-32; JSP42; 5314/2: 164 101|171 156|050|164 301|170 150|171 156|301 276 367|200 360 000 2; SHL32; Q6; CONT; SHL-32; =C6; Q6; =Y1M11; EXIT1; 5317/1: 052|164 301|200 333 054|202 272 314 3; ERASE; SHL-32; JSP60; J2; === Start P57V4; at address 2774 P57V4; (ACT. OP.); V-store at 05321 = 000 327 000 000 201 223 V-store at 05322 = 000 337 000 333 000 000 V0=B 0015 3400 0010 0623; V1=B 0015 7400 6660 0000; V-store at 05323 = 305 315 311 205 215 211 V-store at 05324 = 207 207 213 217 217 217 V2=B 6134 6711 4130 6611; V3=B 4170 3613 4370 7617; V-store at 05325 = 000 000 000 000 000 000 V4=0; 5326/0: 171 156|301 012 325|171 022|200 152 344|100 376|164 261|304 000 036|015 Q6; =V4; M1; J5!=Z; M14M15; SHL-40; SETB36; NEV; 5331/0: 304 000 037|054|201 152 333|304 001 244|301 016 226 SETB37; AND; J1!=Z; SETB644; =YA2; 5333/1: 304 000 001|042|200 330 276|042|056|042|200 330 171|100 376 1; SET1; DUP; JSP41; DUP; +; DUP; JSP37; M14M15; 5335/4: 164 261|304 000 317|036|202 152 354|170 022 SHL-40; SET207; -; J7!=Z; =M1; 5337/3: 041|304 001 134|166 361 2; ZERO; SETB534; SHLD-8; 5340/3: 200 330 115|143 340|300 012 270|027|033|301 012 270 3; JSP34; DC14; V0P55; NEG; NOT; =V0P55; 5342/4: 300 012 325|170 156|200 360 000 4; V4; =Q6; EXIT1; 5344/0: 300 016 231|304 000 177|205 032 351|052|304 060 134|164 101|304 000 002 5; YA5; SET127; J6!=; ERASE; SETB30134; SHL32; SET2; 5347/0: 304 000 005|262 032 354 SET5; J7C1NZ; 5350/0: 052 ERASE; (FAIL 5 IF M!=Z); [ -- Graham T [== Page 64 5350/1: 141 360|304 000 001|172 370|203 272 340 M-I15; SET1; =+C15; J3; 5351/5: 304 000 163|015|304 000 367|054|304 000 034|065|225 152 354 6; SETB163; NEV; SETB367; AND; SET28; REV; J8=Z; 5354/2: 200 264 124 7; JP5; 5354/5: 033|027|242 032 354|052|171 030|220 053 012|200 331 140|042|223 052 365 8; NOT; NEG; J7C1Z; ERASE; C1; J19=Z; SET161; 5371/2: 170 150|171 156|164 341|204 272 363 14; =C6; Q6; SHL-16; J11; 5372/5: 171 150|304 011 010|201 033 000|052|154 006|171 156|042|170 144|164 335 15; C6; SETB4410; J16!=; ERASE; C0TOQ6; Q6; DUP; =I6; SHL-18; 5375/5: 170 142|304 000 301|170 150|171 156|164 021|200 272 364 =M6; SET193; =C6; Q6; SHL8; J12; 5400/1: 042|304 002 011|054|203 153 002|042|164 357|204 153 005 16; DUP; SETB1011; AND; J17!=Z; DUP; SHL-9; J18!=Z; 5402/3: 304 000 170|054|027|170 070|300 012 321|300 012 322|166 060|052|200 272 363 17; SETB170; AND; NEG; =C3; V0; V1; SHLDC3; ERASE; J10; 5405/4: 042|164 125|167 005|065|164 353|042|042|056|056 18; DUP; SHL42; SHC2; REV; SHL-11; DUP; DUP; +; +; 5407/4: 056|164 007|027|170 070|300 012 323|164 060|202 272 371 +; SHL3; NEG; =C3; V2; SHLC3; J14; 5412/0: 300 016 227|304 000 006|200 330 115|300 016 232|304 000 003|036|164 007|170 070|300 012 324 19; YA3; SET6; JSP34; YA6; SET3; -; SHL3; =C3; V3; 5415/5: 164 060|164 041|171 024|027|033|171 344|164 033|056|056|204 272 363 SHLC3; SHL16; I1; NEG; NOT; I14; SHL13; +; +; J11; === Start P58V-1; at address 2833 P58; (FS END); 5421/0: 171 362|221 152 034 M15; J3P50=Z; (end prog if SP = 0); 5421/5: 100 376|042|164 261|304 000 156|221 033 024|200 360 000 1; M14M15; DUP; SHL-40; SET110; J2=; EXIT1; 5424/1: 052|042|167 367|164 243|301 016 254 2; ERASE; DUP; SHC-5; SHL-47; =YA24; (restore R); 5425/4: 042|304 000 001|200 331 130|065|304 377 375|200 333 357 DUP; SET1; JSP45; REV; SET-3; JSP63; 5430/0: 041|200 332 250|042|041|304 001 164|042|200 332 056 ZERO; JSP54; DUP; ZERO; SETB564; DUP; JSP52; 5432/1: 304 000 001|200 330 171|205 273 021 SET1; JSP37; J1; === Start P59V-1; at address 2844 5434/0: 304 000 001|042|200 330 276|200 330 171|100 376|042|164 261|304 000 114 P59; SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40; SET76; 5437/0: 036|042|224 153 041|027|033|220 153 045|304 000 070 -; DUP; J2=Z; NEG; NOT; J4=Z; SET56; [ good65.txt [ -- Graham T (== Page 65 ==) [ THE NEXT 5 PAGES INCLUDE A LOT OF PENCILLED ANNOTATION, NOT RECORDED HERE 5441/1: 200 264 124 1; JP5; 5441/4: 052|065|304 000 146|221 033 041|052 2; ERASE; REV; SET102; J1=; ERASE; 5443/1: 304 001 000|164 061|056|101 376|200 360 000 3; SETB400; SHL24; +; =M14M15; EXIT1; 5445/0: 167 367|042|012|220 053 051|304 000 173|221 033 041|052|041|033 4; SHC-5; DUP; PERM; J6Z; NEG; NOT; SETB300; SHL8; +; J1; [ good70.txt [ -- Graham T (== Page 70 ==) 5762/5: 042|304 000 300|164 021|036|042|204 053 365|052|164 041|200 360 000 2; DUP; SETB300; SHL8; -; DUP; J3>=Z; ERASE; SHL16; EXIT1; 5765/4: 065|052|033|027|205 273 362 3; REV; ERASE; NOT; NEG; J2; === Start P100V-1; at address 3063 P100; (TREE S.R.); 5767/0: 173 000|056|174 000|200 360 000 LINK; +; =LINK; EXIT1; === Start P101V5; at address 3071 P101V5; (EXTRA INFORMATION ROUTINE); V-store at 05772 = 010 161 307 035 004 020 V1=B0207070707202020; V-store at 05773 = 000 000 000 000 000 000 V2=0; V-store at 05774 = 034 161 307 034 160 207 V3=B0707070707070207; V-store at 05775 = 034 161 307 034 161 307 V4=B0707070707070707; V-store at 05776 = 000 000 000 000 000 005 V5=5; 5777/0: 171 076|301 013 371|300 000 000|304 000 100|054|201 154 003 Q3; =V0; E0; SETB100; AND; J3!=Z; 6001/3: 041 ZERO; 6001/4: 052 1; ERASE; 6001/5: 300 013 371|170 076|200 360 000 2; V0; =Q3; EXIT1; 6003/1: 042|200 334 117|300 014 115 3; DUP; JSP127; V2P127; 6004/2: 300 013 372|011|301 013 373|154 003|304 013 373|042|170 064 V1; OR; =V2; C0TOQ3; SETAV2; DUP; =I3; 6006/5: 170 062|171 076|200 336 115|300 000 000|304 016 000|054|164 357 =M3; Q3; JSP114; E0; SETB7000; AND; SHL-9; 6011/3: 042|224 154 001|171 064|304 000 003|036|170 071 DUP; J1=Z; I3; SET3; -; =RC3; 6013/3: 300 010 056|042|202 154 015|052|300 016 260 V4P33; DUP; J4!=Z; ERASE; YA28; 6015/2: 302 076 371|200 334 077|225 154 065|304 000 005|301 013 376 4; Y3M3Q; JSP125; J12=Z; SET5; =V5; 6017/5: 171 070|202 054 015 10; C3; J4>=Z; 6020/4: 170 070|027 11; =C3; NEG; 6021/1: 033|042|224 154 001|304 055 063|202 334 062|171 070|100 376 NOT; DUP; J1=Z; SETB26463; JS9; C3; M14M15; 6023/4: 200 334 077|052|052|027|033|042|224 154 001|171 070|171 302|304 000 003|056|170 062 JSP125; ERASE; ERASE; NEG; NOT; DUP; J1=Z; C3; M12; SET3; +; =M3; 6027/1: 300 076 370|200 334 077|052|300 013 375|301 014 072|300 076 367|200 334 077 5; Y2M3; JSP125; ERASE; V4; =V1P125; Y1M3; JSP125; 6032/2: 052|300 076 366|200 334 077|052|300 013 374|301 014 072 ERASE; Y0M3; JSP125; ERASE; V3; =V1P125; 6034/4: 300 016 240|171 062|036|223 154 037|304 000 003|172 062|201 274 027 YA12; M3; -; J6=Z; SET3; =+M3; J5; [ good71.txt [ -- Brian W 6037/3: 052|027|033|042|224 154 001|171 362|042|170 070|170 062|300 016 260 6; ERASE; NEG; NOT; DUP; J1=Z; M15; DUP; =C3; =M3; YA28; 6042/2: 242 074 045|100 076|200 334 077|052|143 060|171 070|170 062|202 274 042 7; J8C3Z; M14M3; JSP125; ERASE; DC3; C3; =M3; J7; 6045/2: 170 070|027|033|042|224 154 001|304 054 366|202 334 062|171 070 8; =C3; NEG; NOT; DUP; J1=Z; SETB26366; JS9; C3; 6050/0: 300 016 224|164 041|300 016 226|056|164 041|300 016 235|056 YA0; SHL16; YA2; +; SHL16; YA9; +; 6052/3: 200 334 077|052|300 016 240|164 041|300 016 236|056|164 041|300 016 237 JSP125; ERASE; YA12; SHL16; YA10; +; SHL16; YA11; 6055/3: 056|200 334 077|052|300 016 227|200 334 077 +; JSP125; ERASE; YA3; JSP125; 6057/2: 052|171 036|200 334 077|052|171 356|200 334 077|052|170 070 ERASE; Q1; JSP125; ERASE; Q14; JSP125; ERASE; =C3; 6061/5: 204 274 001 J1; 6062/2: 164 075|301 013 373|304 013 373|042|170 064|170 062|171 076|200 336 115|200 360 000 9; SHL+30; =V2; SETAV2; DUP; =I3; =M3;Q3; JSP114; EXIT1; 6065/5: 300 013 376|027|033|042|301 013 376|205 154 017|170 070|204 274 001 12; V5; NEG; NOT; DUP; =V5; J10!=Z; =C3; J1; === Start P125V5; at address 3135 P125V5; (syllabic octal routine); V-store at 06071 = 101 004 036 101 004 036 V-store at 06072 = 034 161 307 034 160 207 V0=B2020203620202036; V1=B0707070707070207; V-store at 06073 = 000 000 000 000 000 000 V-store at 06074 = 000 000 000 000 000 000 V-store at 06075 = 000 000 000 000 000 000 V-store at 06076 = 000 000 000 000 000 000 V2=0; V3=0; V4=0; V5=0; 6077/0: 171 376|301 014 076|304 000 003|170 371|043 Q15; =V5; SET3; =RC15; DUPD; 6100/5: 041|166 005|164 007|166 007|164 007|166 007|164 025|166 005 1; ZERO; SHLD2; SHL3; SHLD3; SHL3; SHLD3; SHL10; SHLD2; 6103/2: 164 007|166 007|164 007|166 007|164 015|300 014 071|011 SHL3; SHLD3; SHL3; SHLD3; SHL6; V0; OR; 6105/4: 303 374 073|265 374 100|052|170 370|304 014 072 =V2M15Q; J1C15NZ; ERASE; =C15; SETAV1; 6107/4: 170 364|304 014 075|170 362|171 376|200 336 115|300 014 076|170 376|200 360 000 =I15; SETAV4; =M15; Q15; JSP114; V5; =Q15; EXIT1; === Start P127V3; at address 3151 P127V3; (binary to integer routine); V-store at 06113 = 101 004 020 101 004 020 V0=B 2020 2020 2020 2020; 6117/0: 171 376|301 014 116|041|301 014 114|041|301 014 115 Q15; =V3; ZERO; =V1; ZERO; =V2; 6121/1: 042|205 054 122|304 003 347|200 264 124 DUP; J3>=Z; SET999; JP5; 6122/5: 041|065|304 000 010|170 370 3; ZERO; REV; SET8; =C15; 6124/0: 304 000 012|044|066|056|167 365|065|042|143 360|225 154 130|260 374 124 1; SET10; DIVI; CAB; +; SHC-6; REV; DUP; DC15; J2=Z; J1C15NZ; 6127/0: 065|300 014 113|056|301 014 115|205 274 122 REV; V0; +; =V2; J3; 6130/5: 052|300 014 113|056|171 370|042|056|042|042|056|056|027|170 370|164 360 2; ERASE; V0; +; C15; DUP; +; DUP; DUP; +; +; NEG; =C15; SHLC15; 6133/5: 300 014 115|205 154 135 V2; J4!=Z; 6134/5: 301 014 115|200 274 137 =V2; J5; 6135/5: 300 014 113|056|301 014 114 4; V0; +; =V1; [ good72.txt [ -- Graham T (== Page 72 ==) 6137/0: 300 014 116|170 376|200 360 000 5; V3; =Q15; EXIT1; === Start P113V75; at address 3245 V-store at 06147 = 017 017 017 017 017 017 P113V75; V6=B360741703607417; V-store at 06176 = 034 054 351 267 133 041 V29=B0702635155655441; V-store at 06177 = 322 120 200 277 135 034 V30=B6445020057656434; V-store at 06200 = 034 052 156 303 135 034 V31=B0702515660656434; V-store at 06221 = 000 000 014 201 014 220 V48=Q0/AV32/AV47; V-store at 06223 = 000 044 052 054 062 066 V50=B2205213031066; V-store at 06224 = 001 047 053 055 061 065 V51=B0022345313230465; V-store at 06225 = 000 000 260 230 015 100 V52=B0000026046006500; V-store at 06227 = 312 315 043 364 000 000 V54=B6254644375000000; V-store at 06236 = 010 171 241 246 300 021 V61=B0207464151540021; 6255/0: 304 377 377|301 014 254|202 335 234 100; SET-1; =V75; JS12; 6256/3: 173 000|301 014 142|300 014 176|301 014 201 LINK; =V1; V29; =V32; 6260/2: 304 140 000|205 335 212 SETB60000; JS4; 6261/2: 301 014 142|300 014 177|301 014 202 =V1; V30; =V33; 6262/5: 300 014 221|170 376|131 360|203 335 373|205 274 262 154; V48; =Q15; TWEQ15; JS150; J154; 6265/0: 300 014 203|200 335 342|301 014 175 V34; JS69; =V28; 6266/3: 300 000 002|164 015|304 000 003|166 365|052 173; E2; SHL+6; SETB03; SHLD-6; ERASE; 6270/2: 301 014 201|300 000 003|301 014 202|300 000 007|301 014 204 =V32; E3; =V33; E7; =V35; 6272/5: 041|301 014 203|304 000 002|301 014 205|304 014 201 ZERO; =V34; SETB02; =V36; SETAV32; 6275/0: 170 365|304 014 205|170 362|300 014 175|170 370 =RI15; SETAV36; =M15; V28; =C15; 6277/0: 130 360|203 335 373|203 274 266 PWQ15; JS150; J173; 6300/2: 300 014 200|301 014 201 V31; =V32; 6301/2: 300 014 221|170 376|131 360 153; V48; =Q15; TWEQ15; 6302/3: 203 335 373|202 274 301|300 014 202|164 007|164 247|304 000 005|200 220 000 JS150; J153; V33; SHL+3; SHL-45; SET5; OUT; 6305/4: 301 014 174 =V27; 6306/1: 041|301 014 234 70; ZERO; =V59; 6306/5: 041|301 014 222|201 335 313 ZERO; =V49; JS92; 6310/0: 041 42; ZERO; [ good73.txt [ -- Graham T (== Page 73 ==) 6310/1: 052 43; ERASE; 6310/2: 202 335 265|201 274 310|202 274 312|201 274 310 158; JS35; J43; J44; J43; 6312/2: 304 000 004|054|164 053|041 44; SETB4; AND; SHL+21; ZERO; 6313/3: 041 46; ZERO; 6313/4: 052 45; ERASE; 6313/5: 202 335 265|202 274 316|203 274 323|011 157; JS35; J47; J49; OR; 6315/3: 164 007|205 274 313 SHL+3; J157; 6316/2: 012|164 373|304 037 377|054 47; PERM; SHL-3; SETB17777; AND; 6317/3: 011|065|304 000 017|204 034 326 OR; REV; SETB17; J50!=; 6320/5: 052 ERASE; 6321/0: 202 335 265|204 274 326|203 274 323|164 033|011 48; JS35; J50; J49; SHL+13; OR; 6323/0: 200 274 321 J48; 6323/3: 042|164 127|164 247 49; DUP; SHL+43; SHL-45; 6324/2: 065|167 377|224 054 325 REV; SHC-1; J51=Z; 6436/2: 304 015 000|011 SETB6400; OR; 6437/0: 300 014 241|204 055 040 96; V64; J97>=Z; 6440/0: 304 000 066|011 SETB66; OR; 6440/4: 164 075|042|300 014 152|066|301 014 152 97; SHL+30; DUP; V9; CAB; =V9; [ good76.txt [ -- Graham T (== Page 76 ==) 6442/2: 015|164 031 NEV; SHL+12; 6442/5: 041|300 014 150 ZERO; V7; 6443/3: 166 361|041|203 035 043 98; SHLD-8; ZERO; J98!=; 6444/3: 052|301 014 150 ERASE; =V7; 6445/1: 300 014 222|221 155 051 V49; J133=Z; 6446/1: 300 014 146|167 373|225 055 051 V5; SHC-3; J120=Z; 6505/4: 052|300 014 153|304 000 020|011 ERASE; V10;SETB20; OR; 6507/0: 164 031|304 000 002|011|164 061|107 360 127; SHL+12; SETB2; OR; SHL+24; =M0M15QH; 6510/4: 171 362|167 377|203 055 112 M15; SHC-1; J128>=Z; 6511/5: 041|033|107 360 ZERO; NOT; =M0M15QH; 6512/3: 171 362|164 377|170 363|141 360|304 014 201 128; M15; SHL-1; =RM15; M-I15; SETAV32; 6514/2: 170 364|300 014 175|170 370|130 360|203 335 373 =I15; V28; =C15; PWQ15; JS150; 6516/2: 205 275 051|204 274 346 J120; J73; 6517/2: 304 004 120|011|200 275 107 129; SETB2120; OR; J127; 6520/3: 042|042|301 014 143 76; DUP; DUP; =V2; 6521/2: 164 061|200 055 124 SHL+24; J79>=Z; 6522/1: 141 340|201 335 320|304 160 264|203 275 124 M-I14; JS78; SETB70264; J80; 6524/0: 304 160 260 79; SETB70260; 6524/3: 164 075|065|042|164 107|164 375 80; SHL+30; REV; DUP; SHL+35; SHL-2; 6525/5: 304 000 005|200 335 225|066|011|301 014 201 SET5; JS22; CAB; OR; =V32; 6527/4: 042|164 101|164 247|304 003 320|011 DUP; SHL+32; SHL-45; SETB1720; OR; 6531/1: 164 015|065|042|164 063|164 247 SHL+6; REV; DUP; SHL+25; SHL-45; 6532/3: 042 DUP; 6532/4: 200 155 135 J81!=Z; 6533/1: 052|052|304 000 034|011|164 075 ERASE; ERASE; SETB34; OR; SHL+30; 6534/3: 201 275 144 J82; 6535/0: 164 007|170 370|300 014 223|164 360|164 261 81; SHL+3; =C15; V50; SHLC15; SHL-40; 6536/5: 066|164 015|011|065|164 073 CAB; SHL+6; OR; REV; SHL+29; [ good78.txt [ -- Graham T (== Page 78 ==) 6540/0: 164 247|164 007|170 370|300 014 224|164 360 SHL-45; SHL+3; =C15; V51; SHLC15; 6541/5: 164 261|065|164 015|011|164 015|304 000 075 SHL-40; REV; SHL+6; OR; SHL+6; SETB75; 6543/4: 011|164 031 OR; SHL+12; 6544/1: 301 014 202 82; =V33; 6544/4: 300 014 221|170 376|171 364|033|027|170 362 152; V48; =Q15; I15; NOT; NEG; =M15; 6546/3: 300 014 202|164 031|164 255|304 000 034|015|201 155 152 V33; SHL +12; SHL -42; SET B34; NEV; J174!=Z; 6550/5: 131 360 TWEQ15; 6551/1: 203 335 373|204 275 144 JS150; J152; 6552/1: 300 014 175 174; V28; 6552/4: 170 370|304 000 002|300 014 202|164 365|164 015|011|301 014 202 =C15; SETB2; V33; SHL-6; SHL+6; OR; =V33; 6555/2: 300 014 201|164 031|164 351|301 014 201|130 360|203 335 373|204 275 144|300 014 202 V32; SHL+12; SHL-12; =V32; PWQ15; JS150; J152; V33; 6560/5: 164 335|164 111|041|166 015|065 SHL-18; SHL+36; ZERO; SHLD+6; REV; 6562/1: 164 255|042|167 377|204 055 163 SHL-42; DUP; SHC-1; J83>=Z; 6563/3: 065 REV; 6563/4: 301 014 146|042 83; =V5; DUP; 6564/2: 202 155 341 J84!=Z; 6564/5: 052 ERASE; 6565/0: 300 014 146|304 000 066|205 035 167 85; V5; SETB66; J87!=; 6566/3: 052|203 255 166|041|200 220 000 86; ERASE; J86NEN; ZERO; OUT; 6567/5: 304 000 054|204 035 175 87; SETB54; J90!=; 6570/5: 300 014 234|170 351|203 275 174 V59; =RC14; J89; 6572/1: 302 354 242|042|223 155 174|141 340|201 335 320 88; V65M14Q; DUP; J89=Z;M-I14; JS78; 6574/1: 140 340 M+I14; 6574/3: 052|261 355 172 89; ERASE; J88C14NZ; 6575/1: 201 274 306 J70; 6575/4: 304 000 044|220 035 200 90; SETB44; J134=; 6576/4: 304 000 052|220 035 200 SETB52; J134=; 6577/4: 052|041 ERASE; ZERO; 6600/0: 301 014 222|041|301 014 141|201 274 353 134; =V49; ZERO; =V0; J91; [ good79.txt [ -- Brian W 6601/4: 300 014 141|304 000 003|221 035 205 141; V0; SET3; J2=; 6603/1: 042|033|027|301 014 141 DUP; NOT; NEG; =V0; 6604/1: 304 014 143|205 275 206 SETAV2; J3; 6605/1: 052|300 014 142|041|166 107|065 2; ERASE; V1; ZERO; SHLD+35; REV; 6606/3: 164 273 SHL-35; 6606/5: 170 362|164 007|170 370 3; =M15; SHL+3; =C15; 6607/5: 100 360|164 360|164 261 M0M15; SHLC15; SHL-40; 6610/5: 304 040 000|205 335 212|301 014 142|200 360 000 SETB20000; JS4; =V1; EXIT1; 6612/5: 300 014 142|056|042|041|166 107|066|304 000 006 4; V1; +; DUP; ZERO; SHLD+35; CAB; SET6; 6614/5: 065|205 055 216 REV; J5>=Z; 6615/3: 056|166 033|027|033|203 275 220 +; SHLD+13; NEG; NOT;J6; 6616/5: 043|036|220 055 221 5; DUPD; -; J7=Z; SET-1; =V3; 7143/2: 304 000 010|170 330|304 377 377|102 340|041 1; SET8; =C13; SET-1; M0M14Q; ZERO; 7145/1: 243 336 170|166 015|143 320 2; J5C13Z; SHLD+6; DC13; 7146/2: 304 000 002|225 036 152|041|222 036 151|042|304 000 007|036|202 116 167 SETB02; J4=; ZERO; J3=; DUP; SETB07; -; J12<=Z; 7151/2: 164 125|066|166 015|012|201 276 145 3; SHL+42; CAB; SHLD+6; PERM; J2; 7152/5: 304 377 377|301 016 010|171 370|304 000 005|036|202 156 167 4; SET-1; =V4; C15; SET5; -; J12!=Z; 7155/2: 052 ERASE; 7155/3: 065|103 320|304 000 007|171 330|036|170 330|304 000 077 17; REV; =M0M13Q; SET7; C13; -; =C13; SETB77; 7157/5: 241 336 162|164 015|304 000 077|011|143 320|205 276 157 18; J19C13Z; SHL+6; SETB77; OR; DC13; J18; 7162/1: 164 365|011|141 340|101 340|171 350|033|027|170 350 19; SHL-6; OR; M-I14; =M0M14; C14; NOT; NEG; =C14; 7164/2: 171 376|171 356|171 336|204 336 206|170 336|170 356|170 376|200 276 137 Q15; Q14; Q13; JS8; =Q13; =Q14; =Q15; J11; 7167/2: 052|304 000 077|202 276 151 12; ERASE; SETB77; J3; 7170/3: 066|103 320|052|052|242 356 172|202 276 143 5; CAB; =M0M13Q; ERASE; ERASE; J6C14Z; J1; 7172/2: 171 370|300 016 010|200 156 175|042|304 000 005|036|225 156 213 6; C15; V4; J13!=Z; DUP; SET5; -; J14=Z; [ good84.txt [ -- David H 7175/0: 224 116 206 13; J8>Z; 7175/3: 154 375|141 320|304 016 012|170 324|171 336|304 000 010|200 220 000|304 377 377|301 016 010 10; C15TOQ13; M-I13; SETAV6; =I13; Q13; SET8; OUT; SET-1; =V4; 7201/2: 300 016 007|224 156 203|100 320|101 360|041|301 016 007 V3; J7=Z; M0M13; =M0M15; ZERO; =V3; 7203/4: 300 016 004|170 376|300 016 005|170 356|300 016 006|170 336|200 360 000 7; V0; =Q15; V1; =Q14; V2; =Q13; EXIT1; 7206/4: 304 377 302|103 320|304 000 030|301 016 012|203 276 175 8; SET-62; =M0M13Q; SETB30; =V6; J10; 7211/0: 052 9; ERASE; 7211/1: 102 340|103 320|261 356 211|304 000 010|301 016 012|203 276 175 15; M0M14Q; =M0M13Q; J15C14NZ; SETB10; =V6; J10; 7213/5: 052|171 322|301 016 011|204 276 203 14; ERASE; M13; =V5; J7; === Start P-1V-1; at address 3726 7215/2: 017|017|017|017 *139; FINISH; Reached end of file