Whetstone Algol Translator
This assembler listing has hot links for all references to P-routines.
You can click on the routine number in code such as JSP32;
or V0P100; and jump to the routine.
When you have seen enough of it, you can use the back button to carry on where you left off.
The page headings are hot links to photographs of the original listing.
Loaded 89896 bytes for walgolt.k3
Relocated 10
Finished
Reached end of file
=============== Second pass
===========================
7230 W0 = E3736
7400 Y0 = E3840
7236 YA0 = E3742
7300 YB0 = E3776
7340 YC0 = E3808
0/0: 200 260 170 [ Needs something special for 1 to 12
[ -- 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;
[== Page 1
(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 300 016 337
V-store at 00017 = 000 000 016 340 016 377 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;
[== Page 2
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;
[== Page 3
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; J107≠Z; (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 230|036|170 031 SETAW0; -; =RC1;
[== Page 4
223/3: 041|303 036 230|263 020 223|300 007 365|042|301 016 377|301 016 337
103; ZERO; =W0M1Q; J103C1NZ; V64P32; DUP; =YC31; =YB31;
226/2: 300 000 016|170 176|300 014 175|164 101|164 301|301 016 272|300 014 174|164 101
V6; =Q7; V28P113; SHL32; SHL-32; =YA28; V27P113; SHL32;
231/4: 164 301|042|170 170|301 016 271|125 160 SHL-32; DUP; =C7; =YA27; PREQ7;
233/2: 300 000 017|042|301 016 264|170 036|121 160|154 161 V7; DUP; =YA22; =Q1; PARQ7; C7TOQ1;
235/3: 125 020|300 000 016|301 016 265|300 016 301|042|300 016 300|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 242 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 017 002|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 320|170 342 =M13; Q0TOQ14; SETAY2000; =M14;
257/3: 304 001 204|301 016 240|304 000 001|042|042|170 036|301 016 251|301 016 263|304 010 000
SETB604; =YA2; SET1; DUP; DUP; =Q1; =YA11; =YA21; SETB4000;
263/1: 301 016 260|203 340 267|304 000 135|170 064|304 000 137|170 062
=YA18; J115NTR; SETAV85; =I3; SETAV87; =M3;
265/5: 300 016 272|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 337|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 242|304 000 146|036 SET120; =YA4; SET102; -;
301/5: 201 140 315 J5≠Z; (JUMP TO OUT IF DELIMITER ≠ : );
[== Page 5
302/2: 154 013|304 011 010|301 016 236 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 236|041|301 016 246 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 236|204 261 173 YA0; J18;
327/3: 203 261 313|200 260 325 J39; J7;
330/3: 300 016 236|200 261 171 YA0; J17;
331/3: 304 004 004|300 016 236|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;
[== Page 6
343/3: 171 030|220 040 325|017|200 325 035|201 260 315 C1; J7<Z; DUMMY; JSP17; J5;
345/3: 200 324 250|201 260 315 JSP9; J5;
346/3: 200 324 356|201 260 315 JSP14; J5;
347/3: 200 325 276|201 260 315 JSP22; J5;
350/3: 200 325 341|201 260 315 JSP24; J5;
351/3: 200 324 277|201 260 315 JSP10; J5;
352/3: 304 000 177|204 263 203 SET127; J92;
353/3: 200 326 003|201 260 315 JSP26; J5;
354/3: 260 020 325|300 016 243|200 325 201|201 260 315 J7C1NZ; YA5; JSP19; J5;
356/3: 200 325 110|201 260 315 JSP18; J5;
357/3: 200 325 305|201 260 315 JSP23; J5;
360/3: 300 016 245|200 261 200 YA7; J20;
361/3: 200 324 305|201 260 315 JSP11; J5;
362/3: 304 000 001|203 263 116 SET1; J81;
(SCALAR);
363/3: 304 000 033|300 016 236|200 140 325 8; SET27; YA0; J7≠Z; (jump to fail if t≠0);
365/0: 052|164 377|304 011 224|056|301 016 236 ERASE; SHL-1; SETB4624; +; =YA0;
366/4: 200 327 053|201 260 315 JSP30; J5; (return to OUT);
(END);
367/4: 300 016 236|200 140 325 9; YA0; J7≠Z; (FAIL IF T ≠ 0);
370/4: 052|200 330 227 ERASE; JSP39; (END STATE);
371/2: 304 000 001|200 330 171|200 333 021|304 000 316|203 021 020 10; SET1; JSP37; JSP58; SET206; J14≠; (IF TS ≠ PROC BEGIN(BL));
373/5: 304 000 001|200 332 110 SET1; JSP53;
374/5: 141 360|304 000 001|172 370|100 376|301 016 252 M-I15; SET1; =+C15; M14M15; =YA12; (RESTORE NL);
376/5: 052|041|050|101 376 ERASE; ZERO; CONT; =M14M15; (REMOVE BL FROM TS);
377/4: 041|304 000 001|301 004 123 11; ZERO; SET1; =V0P5; (set end comment marker);
400/5: 304 000 001|301 016 274 SET1; =YA30; (SV := 1);
401/5: 304 000 004|200 323 255|304 000 157|220 021 011|042|304 000 150|015|304 000 356
12; SET4; JSP1; SETB157; J106=; DUP; SETB150; NEV; SETB356;
405/1: 054|220 141 012 AND; J13=Z; (jump if delimiter = end,else or semi colon);
[== Page 7
405/5: 065|205 141 001 REV; J12≠Z; (jump if not first time round loop);
406/3: 304 000 001|300 006 213|300 006 214|202 332 047|205 261 001 SET1; V97P29; V98P29; JS15P50; (PRINT END COMMENT); J12;
411/0: 304 000 205|200 264 124 106; SET133; JP5;
412/0: 041|301 004 123 13; ZERO; =V0P5; (CLEAR END COMMENT MARKER);
412/4: 065|052|154 001|304 000 151|204 020 321 REV; ERASE; C0TOQ1; SETB151; J6≠; (OUT2 IF DELIMITER ≠ ELSE);
414/2: 300 016 266|224 140 321|100 376|167 021|304 017 377|054|304 001 155|036|224 140 321
YA24; J6=Z; M14M15; SHC8; SETB7777; AND; SETB555; -; J6=Z;
417/5: 052|201 260 315 (OUT2 IF TS=THENS); ERASE; J5; (OUT);
420/3: 304 000 256|036|201 141 023 14; SET174; -; J15≠Z; (JUMP IF TS≠BEGIN BL);
421/4: 042|041|041|200 332 056|201 261 027 DUP; ZERO; ZERO; JSP52; J19;
423/1: 047|052|042|164 261|304 000 056 15; STR; ERASE; DUP; SHL-40; SET46;
424/3: 036|304 000 022|065|200 140 325 -; SET18; REV; J7≠Z; (JUMP IF TS = OTHER);
425/5: 141 360|304 000 001|172 370 M-I15; SET1; =+C15;
427/0: 052 ERASE;
427/1: 042|164 021|201 041 031 19; DUP; SHL8; J16≥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≠Z;
(IF FINAL END NOT FOLLOWED BY END MESSAGE);
434/0: 300 016 272|170 151|300 016 270|203 141 115 YA28; =RC6; YA26; J112≠Z; (IF FAIL SET);
435/5: 300 016 277|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 277|027|033|200 324 346
V106; SET5; JS1P12; YA33; NEG; NOT; JSP13;
444/0: 304 000 230|200 324 327|041|300 016 277 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≠Z;
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;
[== Page 8
462/3: 171 322|042|170 071|301 017 002|300 016 251|301 017 001|300 016 250|301 017 000
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 377|300 000 121|301 016 376
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 077 000|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 230|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 077 000|200 334 077|052|171 070|201 041 104 101; Y0M3Q; JSP125; ERASE; C3; J101≥Z;
506/1: 052|304 000 075|301 016 230|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 077 000|301 016 230|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 272|170 150 112; YA28; =C6;
516/2: 304 016 231|170 144|304 016 235|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 232
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 233
V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W3;
535/4: 300 000 132|301 016 231|300 000 134|301 016 234|171 024|200 334 117|300 014 115|164 015|304 000 002|301 016 235
V82; =W1; V84; =W4; I1; JSP127; V2P127; SHL+6; SETB02; =W5;
542/2: 300 016 235|011|301 016 235|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 271|304 000 006|200 220 000|300 014 254|225 141 161 120; YA27; SET6; OUT; V75P113; J122=Z;
560/2: 300 016 272|304 000 006|200 220 000 YA28; SET6; OUT;
561/5: 300 016 270|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);
[== Page 9
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 237|011|200 140 325 17; YA1; OR; J7≠Z; (jump to fail if T or D ≠ 0);
572/1: 301 016 237|200 327 053|201 260 315 =YA1; JSP30; J5;
(SWITCH);
573/4: 300 016 237|011|200 140 325 18; YA1; OR; J7≠Z; (jump if T or D ≠ 0 );
574/5: 052|304 005 010|301 016 236 ERASE; SETB2410; =YA0;
576/0: 304 001 010|301 016 240|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 245|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 277 001|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 J32<Z; M3; J32≠Z; (JUMP IF USED ENTRY); REV; =M3; Q3;
[== Page 10
626/2: 301 277 001|052|164 101|171 042|166 361|052 32; =Y1M11; ERASE; SHL32; M2; SHLD-8; ERASE;
630/1: 304 000 004|200 330 115|141 360|304 000 001|042|172 370|172 270|205 261 212
27; SET4; JSP34; M-I15; SET1; DUP; =+C15; =+C11; J26;
633/2: 167 361|036|164 341|301 016 245|141 360|304 000 001|172 370|100 376
28; SHC-8; -; SHL-16; =YA7; M-I15; SET1; =+C15; M14M15;
636/1: 170 076|151 061|171 064|301 016 240|171 070|301 016 253|141 360|304 000 001|172 370
=Q3; M3TOQ1; I3; =YA2; C3; =YA13; M-I15; SET1; =+C15;
641/4: 100 376|301 016 241|141 360|304 000 001|172 370|304 000 015|200 330 171|304 000 001
M14M15; =YA3; M-I15; SET1; =+C15; SET13; JSP37; SET1;
645/1: 200 331 130|200 331 140|171 262|301 012 105|171 156|301 016 230|042|170 156
JSP45; JSP46; M11; =V5P53; Q6; =W0; DUP; =Q6;
650/2: 202 141 303|042|170 142|300 016 255 J35≠Z; (jump if x ≠ 0); DUP; =M6; YA15;
651/5: 170 063|171 270|170 064|171 076 =RM3; C11; =I3; Q3;
653/1: 304 004 004|042|300 016 236|054|015|205 141 255|304 000 001|011
29; SETB2004; DUP; YA0; AND; NEV; J30≠Z; SET1; OR;
655/5: 304 001 000|164 041|011|301 277 000|304 002 004|171 022|201 141 262
30; SETB400; SHL16; OR; =Y0M11; SETB1004; M1; J31≠Z; (if E=1);
660/4: 171 156|221 041 262 Q6; J31<Z; (IF DECLARED ENTRY);
661/3: 300 016 240|011 YA2; OR;
662/1: 304 000 130|171 156|164 301|304 014 013|054|200 140 325 31; SET88; Q6; SHL-32; SETB6013; AND; J7≠Z; (if abFH or J = 1);
664/3: 052|164 101|171 156|011|042|170 156|222 041 305 ERASE; SHL32; Q6; OR; DUP; =Q6; J36<Z; (if declared entry);
666/3: 157 143|170 144 Q6TOQ3; =I6;
667/1: 304 000 023 33; SET19;
667/4: 170 070|171 270|164 021|170 062|171 076|164 021|304 000 004|200 330 115|171 156
34; =C3; C11; SHL8; =M3; Q3; SHL8; SET4; JSP34; Q6;
673/0: 301 277 001|171 022|041|301 012 105|300 016 230|170 156|221 140 315|041|304 001 124
=Y1M11; M1; ZERO; =V5P53; W0; =Q6; J5=Z; ZERO; SETB524;
676/3: 166 361|200 330 115|041|200 323 255|042 SHLD-8; JSP34; ZERO; JSP1; DUP;
700/1: 304 000 150|015|304 000 356|054|304 000 131|065|200 140 325 SETB150; NEV; SETB356; AND; SET89; REV; J7≠Z;
(jump to fail if delimiter ≠ end,else or semi colon);
702/4: 052|204 260 321 ERASE; J6;
703/2: 300 277 000|042|170 076|200 331 223|201 261 253 35; Y0M11; DUP; =Q3; JSP48; J29;
705/2: 052|171 022|201 141 310|304 000 132|171 156|164 017|200 040 325|052
36; ERASE; M1; J37≠Z; (jump if E=1); SET90; Q6; SHL7; J7≥Z; ERASE;
710/1: 171 076|221 041 312|171 142|170 064|201 261 267 37; Q3; J38<Z; (jump if f col =1); M6; =I3; J33;
712/1: 152 143|304 000 063|204 261 267 38; I6TOQ3; SET51; J34;
(PROCEDURE);
713/3: 304 000 001|301 016 267 39; SET1; =YA25; (PH := 1);
714/3: 200 327 053|052|304 000 133|300 016 237|200 140 325 JSP30; ERASE; SET91; YA1; J7≠Z; (fail if D ≠ 0);
[== Page 11
716/4: 300 016 236|304 010 004|043 YA0; SETB4004; DUPD;
717/5: 015|054|222 141 321|200 140 325|042 NEV; AND; J40=Z; J7≠Z; DUP;
721/2: 052|052|200 331 063|304 000 001|200 323 255|304 000 001 40; ERASE; ERASE; JSP43; SET1; JSP1; SET1;
723/4: 200 331 130|304 116 000|164 041|056|164 041 JSP45; SETB47000; SHL16; +; SHL16;
725/3: 300 016 266|164 011|011|041|301 016 266 YA24; SHL4; OR; ZERO; =YA24; (R := 0);
727/1: 304 001 000|164 021|300 016 247|056|164 041|300 016 252 SETB400; SHL8; YA9; +; SHL16; YA12;
731/3: 056|304 000 002|200 330 165|202 324 062 +; SET2; JSP36; JS1P3;
733/1: 041|301 016 247|171 350|033|027|042 ZERO; =YA9; C14; NOT; NEG; DUP;
734/4: 170 350|042|167 363|220 040 325|052 =C14; DUP; SHC-7; J7<Z; (FAIL IF N>63); ERASE;
736/1: 154 013|041|033|301 016 246|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 236|304 010 005|011|301 016 236|052|304 000 002|041|200 331 153|171 302|301 016 252
YA0; SETB4005; OR; =YA0; ERASE; SET2; ZERO; JSP47; M12; =YA12;
744/5: 300 277 002|301 317 002 Y2M11; =Y2M12;
745/5: 300 277 001|301 317 001|300 277 000 Y1M11; =Y1M12; Y0M11;
747/2: 164 377|164 003|303 317 000|041|304 004 025|166 361 SHL-1; SHL1; =Y0M12Q; ZERO; SETB2025; SHLD-8;
751/3: 200 330 115|300 016 257|304 000 012|166 121|304 000 007|200 330 115
JSP34; YA17; SET10; SHLD40; SET7; JSP34;
754/2: 041|301 016 267 ZERO; =YA25; (PH := 0);
755/0: 041|301 016 236|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 236|304 007 377|054 41; SET115; REV; J7≠; ERASE; YA0; SETB3777; AND;
761/4: 304 002 004|011|301 016 236|200 331 140|301 016 230|171 262 SETB1004; OR; =YA0; JSP46; =W0; M11;
764/1: 301 016 231|171 302|301 016 252|300 277 002|301 317 002|300 016 255|303 317 000|304 000 001|301 016 245
=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 247|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 277 001 SHL10; +; SHL16; ZERO; NOT; CONT; =Y1M11;
777/5: 042|027|033|301 016 247|304 374 000|054 DUP; NEG; NOT; =YA9; SETB176000; AND;
1001/3: 200 140 325|052|300 016 255|041|033|050 J7≠Z; (FAIL IF L+3>1023); ERASE; YA15; ZERO; NOT; CONT;
1003/1: 301 277 000|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;
[== Page 12
1011/4: 300 016 231|170 262|304 000 002|300 016 230|042|205 142 014 W1; =M11; SET2; W0; DUP; J44≠Z; (JP IF X=0);
1014/1: 041|301 277 000 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 277 002|042|304 000 012 ZERO; SHLD16; JSP34; Y2M11; DUP; SET10;
1021/1: 166 121|304 000 007|200 330 115|300 016 252|170 062|301 077 002|300 277 001
SHLD40; SET7; JSP34; YA12; =M3; =Y2M3; Y1M11;
1024/2: 301 077 001|300 277 000|164 377|164 003|301 077 000|041 =Y1M3; Y0M11; SHL-1; SHL1; =Y0M3; ZERO;
1026/4: 301 016 245|041|301 016 236|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 267 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 277 000|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 277 000|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 236|304 000 005|200 323 255|304 000 141|171 030|220 040 325|052
49; =YA0; SET5; JSP1; SET97; C1; J7<Z; (FAIL IF M=-1); ERASE;
1062/3: 264 022 074|304 000 142|304 010 004|042|300 016 236|015|054 J52C1NZ; (JUMP IF M=1); SET98; SETB4004; DUP; YA0; NEV; AND;
1065/0: 200 140 325|052|300 016 236|304 010 000|033|054|065|304 000 004
J7≠Z; ERASE; YA0; SETB4000; NOT; AND; REV; SET4;
1067/4: 220 022 073|304 000 143|065|304 000 002|036|200 140 325 J50=; (JUMP IF DEL=PROCEDURE); SET99; REV; SET2; -; J7≠Z;
1072/0: 052|304 004 000|011|042 (FAIL IF DEL≠ARRAY); ERASE; SETB2000; OR; DUP;
1073/0: 052|301 016 236 50; ERASE; =YA0;
[== Page 13
[ -- David H
1073/4: 304 000 001|200 323 255 51; SET1; JSP1;
1074/4: 200 331 140|042|304 000 136|065|220 140 325 52; JSP46; DUP; SET94; REV; J7=Z; (fail if non-formal specified);
1076/3: 052|042|041|050|164 301|304 000 144|065|200 140 325 ERASE; DUP; ZERO; CONT; SHL-32; SET100; REV; J7≠Z;
1100/4: 052|300 016 236|042|012|164 101|011 (fail if type col =0); ERASE; YA0; DUP; PERM; SHL32; OR;
1102/1: 301 277 001|304 004 010|043|015|054|304 000 001|065|225 142 106
=Y1M11; SETB2010; DUPD; NEV; AND; SET1; REV; J53=Z;
1104/5: 052|171 042|042|066|164 353 ERASE; M2; DUP; CAB; SHL-11;
1106/0: 225 142 106|052|041 J53=Z; ERASE; ZERO;
1106/5: 164 041|300 277 000|011|301 277 000|052|304 000 170 53; SHL16; Y0M11; OR; =Y0M11; ERASE; SET120;
1111/0: 224 022 113|304 000 173|036|224 142 073|304 000 145|200 260 325
J54=; SET123; -; J51=Z; SET101; J7;
(procedure cont'd);
1113/4: 052|041|301 016 236|052|041|304 000 005|200 323 255|243 022 045|065|052
54; ERASE; ZERO; = YA0; ERASE; ZERO; SET5; JSP1; J46C1Z; REV; ERASE;
(to test if del=specifier);
1116/4: 171 302|301 016 230|300 016 252|170 302 56; M12; =W0; YA12; =M12;
1120/2: 041|301 016 267 ZERO; = YA25; (PH := 0);
1121/0: 140 300|171 302|042|301 012 105|300 016 230|036|220 142 154 57; M+I12; M12; DUP; =V5P53; W0; -; J66=Z; (jump if I=NLP);
1123/3: 300 317 001|041|050 Y1M12; ZERO; CONT;
1124/2: 164 301|042|304 000 147|065|224 142 130|052 SHL-32; DUP; SET103; REV; J58=Z; ERASE;
1126/1: 300 317 000|221 042 145 Y0M12; J63<Z; (if f col = 1);
1127/1: 042|164 357|200 142 132|304 000 151 DUP; SHL-9; J59≠Z; SET105;
1130/4: 300 016 230|170 302|200 264 124 58; W0; = M12; JP5;
1132/0: 042|167 371|203 042 140|164 353|304 000 151|065|224 142 130|052
59; DUP; SHC-4; J61≥Z; SHL-11; SET105; REV; J58=Z; ERASE;
1134/4: 300 317 000|041 Y0M12; ZERO;
1135/2: 033|050|301 317 000|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;
[== Page 14
[ -- 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 277|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 252|170 262|300 277 001|164 025|164 245 151; Q12TOQ11; YA12; =M11; Y1M11; SHL10; SHL-46;
1175/5: 304 004 171|056|164 021|300 016 277|033|027 SETB2171; +; SHL8; YA33; NOT; NEG;
1177/4: 042|301 016 277|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 277 000|041|303 277 002|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 277 001|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≠;
[ typist: Graham T
[== Page 15
1214/1: 304 200 001|170 150|300 277 000|164 037|224 042 221|052|300 000 146
SETB100001; =C6; Y0M11; SHL15; J126<Z; ERASE; V94;
1217/0: 171 144|164 101|011 I6; SHL32; OR;
1217/5: 167 361|304 000 006|200 330 115|033|027|042 125; SHC-8; SET6; JSP34; NOT; NEG; DUP;
1221/4: 052|043|027|033|170 144|170 142 126; ERASE; DUPD; NEG; NOT; =I6; =M6;
1223/0: 171 156|303 277 001|065|033|027 Q6; =Y1M11Q; REV; NOT; NEG;
1224/2: 042|012|300 000 161|036|220 042 211 DUP; PERM; V105; -; J124<Z; (if f<X);
1225/5: 052|052 ERASE; ERASE;
1226/1: 304 000 001|301 004 102 155; SET1; =V0P4;
1227/1: 304 000 033|200 324 327|300 016 277|304 001 055|056|200 324 346
SETB33; JSP12; YA33; SET301; +; JSP13;
1231/5: 304 000 041|042|200 324 327 SETB41; DUP; JSP12;
1233/0: 052|200 327 174|042|200 324 327|042|304 000 011|036|200 102 233
127; ERASE; JSP31; DUP; JSP12; DUP; SET9; -; J127≤Z;
1235/4: 304 000 230|200 022 357|041|065 SETB230; J111≠; ZERO; REV;
1237/0: 200 327 174 129; JSP31;
1237/3: 304 000 204|204 022 242|066|033|027 158; SETB204; J132≠; CAB; NOT; NEG;
1241/0: 012 154; PERM;
1241/1: 065|052|042 130; REV; ERASE; DUP;
1241/4: 200 324 327|200 262 237 131; JSP12; J129;
1242/4: 304 000 224|202 022 245|066|042|220 142 241 132; SETB224; J133≠; CAB; DUP; J154=Z;
1244/3: 027|033|200 262 241 NEG; NOT; J154;
1245/2: 066|042|200 142 241|012 133; CAB; DUP; J154≠Z; PERM;
1246/2: 304 000 236|224 022 241 SETB236; J131=; (if symbol = space);
1247/2: 304 000 256|224 022 241 SETB256; J131=; (if symbol = tab);
1250/2: 304 000 240|205 022 252 SETB240; J135≠; (if symbol ≠ newline);
1251/2: 065|052|304 000 230|065|204 262 241 134; REV; ERASE; SETB230; REV; J131;
1252/5: 304 000 360|200 022 262 135; SETB360; J138≠; (if symbol ≠ EXIT);
1253/5: 052|300 000 147|304 000 004|200 324 330 ERASE; V95; SET4; JS1P12;
1255/3: 304 000 230|200 022 261 136; SETB230; J137≠; (to fail if LS ≠ semi colon);
1256/3: 200 327 174|304 000 230|221 022 241 128; JSP31; SETB230; J130=; (if symbol = semi colon);
1260/0: 304 000 240|222 022 251 SETB240; J134=; (if symbol = newline);
[== Page 16
1261/0: 304 000 212|200 264 124 137; SET138; JP5;
1262/0: 304 000 300|202 022 271 138; SETB300; J139≠; (if symbol ≠ ALGOL);
1263/0: 052|304 000 230|036|200 142 261 ERASE; SETB230; -; J137≠Z;
1264/2: 052|041|301 004 102 ERASE; ZERO; =V0P4;
1265/1: 300 016 252|170 302|100 376|042|204 332 060 YA12; =M12; M14M15; DUP; JS5P52;
1267/0: 041|200 323 255|304 000 170|036|200 142 261 ZERO; JSP1; SETB170; -; J137≠Z;
1270/5: 201 260 315 J5; (out);
1271/2: 304 000 215|225 022 276|304 000 230|221 022 241|200 327 174|304 000 215|223 022 276
139; SETB215; J160=; SETB230; J130=; JSP31; SETB215; J159=;
1274/5: 043|052|200 324 327|066|052|203 262 237 DUPD; ERASE; JSP12; CAB; ERASE; J158;
1276/3: 052|065 159; ERASE; REV;
1276/5: 052|041|301 004 102 160; ERASE; ZERO; =V0P4;
1277/4: 304 000 001|200 323 255|304 000 001|301 004 102 SET1; JSP1; SET1; =V0P4;
1301/4: 304 000 117|036|225 142 303 SETB117; -; J141=Z;
1302/5: 304 000 215|200 264 124 140; SET141; JP5;
1303/5: 200 331 140|042|205 042 302|041|050|170 156 141; JSP46; DUP; J140≥Z; ZERO; CONT; =Q6;
1305/4: 261 142 313 J142C6NZ; (if parameter = scalar/label);
1306/1: 200 322 345 JS148;
1306/4: 300 277 000|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;
1315/2: 300 277 000|202 042 326 Y0M11; J145≥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 277 000|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; SET-1; =+I6;
1342/0: 304 000 230|200 022 261|300 277 000|225 042 317|200 322 345|203 262 256
SETB230; J137≠; Y0M11; J143<Z; JS148; J128;
1345/0: 304 000 015 148; SET13;
1345/3: 304 000 044|200 324 327|171 142|042|056|056|200 324 346 149; SETB44; JSP12; M6; DUP; +; +; JSP13;
1347/5: 304 030 002|164 101|304 000 002|200 324 330|200 360 000 SETB14002; SHL32; SET2; JS1P12; EXIT1;
1352/1: 304 377 377|200 323 255|304 000 262|036|200 142 357 89; SET-1; JSP1; SETB262; -; J111≠Z;
1354/2: 300 016 241|042|220 042 357 YA3; DUP; J111<Z;
1355/3: 042|012|036|220 042 357 DUP; PERM; -; J111<Z;
1356/3: 200 360 000 EXIT1;
1357/0: 304 000 211|200 264 124 111; SET137; JP5;
1360/0: 167 355|042|200 042 372 150; SHC-10; DUP; J152≥Z;
1361/0: 304 377 376|170 150|300 277 000|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; SHL1; DUP; J126<Z;
1374/0: 304 000 216|200 264 124 153; SET142; JP5;
(LEFT SQUARE BRACKET );
1375/0: 304 000 001|036|200 140 325|304 000 005|300 016 243 67; SET1; -; J7≠Z; (FAIL IF M≠1); SET5; YA5;
1377/1: 304 000 175|015|304 000 375|054 SETB175; NEV; SETB375; AND;
1400/3: 220 140 325|052|300 016 236|201 143 022|200 330 216|042 J7=Z; ERASE; YA0; J70≠Z; (JUMP IF T≠0); JSP38; DUP;
1402/5: 052|200 332 271|304 004 000|301 016 260|041|200 330 276 68; ERASE; JSP55; SETB2000; =YA18; ZERO; JSP41;
1405/1: 300 277 001|304 004 000|164 101|011|301 277 001|304 010 000 Y1M11; SETB2000; SHL32; OR; =Y1M11; SETB4000;
1407/4: 301 016 260|164 021|304 000 001|056|164 041|171 262|056|164 031|300 016 245
=YA18; SHL8; SET1; +; SHL16; M11; +; SHL12; YA7;
1412/5: 056|164 011|300 016 253|164 041|300 016 240|056|164 041 +; SHL4; YA13; SHL16; YA2; +; SHL16;
[== Page 18
1415/1: 171 022|056|041|301 016 245 M1; +; ZERO; =YA7;
1416/2: 304 000 002|200 330 165|151 001|304 001 304|301 016 240|304 000 001|301 016 253|201 260 315
69; SET2; JSP36; M0TOQ1; SETB704; =YA2; SET1; =YA13; J5;
(return to OUT);
1422/1: 100 376|042|164 261|304 000 031|205 023 027|052 70; M14M15; DUP; SHL-40; SET25; J71≠; (jump if TS≠MSF); ERASE;
1424/1: 300 016 241|101 376|304 000 020|056 YA3; =M14M15; SET16; +;
1425/4: 065|033|027|164 107|033|027|164 013|065|202 263 016 REV; NOT; NEG; SHL35; NOT; NEG; SHL5; REV; J69;
1427/5: 304 000 035|036|205 143 002|300 016 241|101 376|164 371 71; SET29; -; J68≠Z; (jump if TS=other); YA3; =M14M15; SHL-4;
1432/1: 033|027|065|052 NOT; NEG; REV; ERASE;
(OWN ARRAY);
1432/5: 154 013|171 316|301 016 230|144 300|144 260 C0TOQ11; Q12; =W0; I12=+1; I11=+1;
1434/4: 304 000 001|170 302 72; SET1; =M12;
1435/3: 171 316|300 016 230|170 316|304 000 005|200 323 255|065|170 316
73; Q12; W0; =Q12; SET5; JSP1; REV; =Q12;
1440/1: 260 023 046|304 000 337|304 000 122|043|300 016 243 J74C1NZ; SETB337; SETB122; DUPD; YA5;
1442/2: 015|054|304 000 105|065|221 143 115 NEV; AND; SET69; REV; J104=Z; (fail if LD=+/-);
1443/5: 033|027|051|054|066|015|201 143 115 NOT; NEG; REVD; AND; CAB; NEV; J104≠Z; (fail if del≠+/-);
1445/2: 052|203 263 035 ERASE; J73;
1446/0: 304 000 107|171 030|164 377|221 143 115|033|027|300 016 244 74; SET71; C1; SHL-1; J104=Z; (fail if m=1); NOT; NEG; YA6;
1450/3: 042|012|201 103 115|052|042 DUP; PERM; J104≤Z; (fail if constant ≠ integer);ERASE; DUP;
1451/4: 164 377|200 143 055 SHL-1; J75≠Z; (jump if TIC0 or TIC1);
1452/3: 052|300 016 241|304 000 014|166 121|304 000 007|205 263 057 ERASE; YA3; SET12;SHLD40; SET7; J77;
1455/0: 164 037|170 050|304 116 016|164 101|242 043 057|164 021 75; SHL15; =C2; SETB47016; SHL32; J76C2Z; SHL8;
1457/2: 304 000 001 76; SET1;
1457/5: 200 330 115|304 000 146|203 023 070 77; JSP34; SET102; J79≠; (if del ≠ :);
1461/2: 300 016 241|027|300 016 243|304 000 162|036|202 143 065 YA3; NEG; YA5; SET114; -; J78≠Z; (if LD ≠ -);
1463/4: 027|041|304 001 062|166 361|200 330 115 NEG; ZERO; SETB462; SHLD-8; JSP34;
1465/2: 172 302|052|304 377 377|172 304|171 304|223 143 035 78; =+M12; ERASE; SET-1; =+I12; I12; J73=Z; (if y=0 );
1467/3: 304 000 111|201 263 115 SET73; J104; (fail);
1470/3: 304 000 173|043|015|054|304 000 112|065|201 143 115 79; SETB173; DUPD; NEV; AND; SET74; REV; J104≠Z; (if del =other);
[== Page 19
1472/4: 052|300 016 241|300 016 243|304 000 162|036|204 143 076 ERASE; YA3; YA5; SET114; -; J80≠Z; (if LD≠-);
1475/0: 027|041|304 001 062|166 361|200 330 115 NEG; ZERO; SETB462; SHLD-8; JSP34;
1476/4: 172 302|304 000 001|172 270|304 000 113|171 302|033|164 341|171 304
80; =+M12; SET1; =+C11; SET75; M12; NOT; SHL-16; I12; [ badly printed label
1501/3: 304 000 001|036|011|221 143 115|052|171 264|171 302|034 SET1; -; OR; J104=Z; (if y=1 or d<1); ERASE; I11; M12; ×D;
1503/5: 050|170 264|144 300|304 000 177|036|204 143 034 CONT; =I11; I12=+1; SET127; -; J72≠Z; (if del ≠ ]);
1505/5: 171 042|054|042|171 264|034|050|171 270|056|300 016 250|056|301 016 250|042
M2; AND; DUP; I11; ×D; CONT; C11; +; YA10; +; =YA10; DUP;
1511/0: 042|027|033|300 016 251|056|164 021|056|164 061 DUP; NEG; NOT; YA11; +; SHL8; +; SHL24;
1513/0: 304 004 035|166 361|300 016 230|170 316|202 263 165 SETB2035; SHLD-8; W0; =Q12; J85;
1515/1: 300 016 230|170 316|200 264 124 104; (replace Q12 and jump to fail); W0; =Q12; JP5;
(RIGHT SQUARE BRACKET);
1516/3: 042|200 330 276|200 330 171|052|100 376|042 81; DUP; JSP41; JSP37; ERASE; M14M15; DUP;
1520/2: 164 261|304 000 114|201 023 147 SHL-40; SET76; J84≠; (if TS ≠ [ );
1521/4: 052|042|164 341|042|301 012 105 ERASE; DUP; SHL-16; DUP; =V5P53;
1523/0: 170 262|164 021|041|166 021|170 270|164 067 =M11; SHL8; ZERO; SHLD8; =C11; SHL27;
1524/5: 167 003|301 016 245|141 360|304 000 001|172 370|100 376|170 076|151 061
SHC1; =YA7; M-I15; SET1; =+C15; M14M15; =Q3; M3TOQ1;
1527/5: 171 064|301 016 240|171 070|301 016 253|141 360|304 000 001|172 370|300 277 000
I3; =YA2; C3; =YA13; M-I15; SET1; =+C15; Y0M11;
1533/1: 200 331 223|301 277 000|304 004 010|042|300 277 001 JSP48; =Y0M11; SETB2010; DUP; Y1M11;
1535/2: 164 301|015|054|204 143 140 SHL-32; NEV; AND; J82≠Z; (if bF(type col) = 1);
1536/3: 171 270|027|033|224 143 140|304 000 152|200 260 325 C11; NEG; NOT; J82=Z; (if X=1); SET106; J7;
1540/4: 171 022|201 143 144|041|304 001 064|166 361|200 330 115 82; M1; J83≠Z; (if E=1); ZERO; SETB464; SHLD-8; JSP34;
1543/0: 041|301 012 105|201 260 315 123; ZERO; =V5P53; J5; (return to OUT);
1544/1: 304 060 064|164 101|304 000 014|056|304 000 001|200 330 165|200 263 143
83; SETB30064; SHL32; SET12; +; SET1; JSP36; J123; (OUT);
1547/1: 304 000 115|065|200 020 325 84; SET77; REV; J7≠; (FAIL IF TS=other);
1550/2: 052|042|164 367|170 270|167 367|304 000 116|065 ERASE; DUP; SHL-5; =C11; SHC-5; SET78; REV;
1552/2: 200 040 325|052|141 360 J7≥Z; (fail if y=0); ERASE; M-I15;
1553/2: 304 000 001|172 370|300 016 240|304 017 277|054|301 016 240|151 041
SET1; =+C15; YA2; SETB7677; AND; =YA2; M2TOQ1;
1556/1: 041|301 016 253|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 247|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 241|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 237|201 143 200 DC3; J86C3NZ; SET62; YA1; J87≠Z; (if D≠0);
1575/0: 033|027|300 016 247|171 264|056|042|301 016 247|304 000 002|056|205 263 201
NOT; NEG; YA9; I11; +; DUP; =YA9; SET2; +; J88;
1600/1: 300 016 251|171 264|056|042|301 016 251 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 276|300 016 245|220 140 325 92; SET1; =YA32; YA7; J7=Z; (fail if PROC=0);
1605/4: 300 016 243|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 255|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 276|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 245|200 327 174|304 000 235|205 023 227
110; JSP7; SET1; =V0P4; ZERO; =YA7; JSP31; SETB235; J98≠; (IF ≠CLOSINGQUOTE);
1626/0: 300 016 276|027|033|301 016 276|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 276|033|027|301 016 276|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 245|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 240|304 000 173|036|221 140 315 100; ZERO; JSP1; ZERO; =YA2; SET123; -; J5=Z; (to OUT if del=,);
1642/0: 300 016 242|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/1655
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 233|201 143 261 2; W3; J35≠Z; (if char ≠ letter/digit/./10); [ 10 is for subscript 10
1657/5: 042|304 000 101|036|222 043 320 36; DUP; SET65; -; J10<Z; (if char = letter/digit/./10);
1661/1: 042|164 361|203 143 270 35; DUP; SHL-8; J4≠Z; (if comment/true/false);
1662/1: 300 016 242|301 016 243|042|301 016 242|065|042|033|027|164 375
YA4; =YA5; DUP; =YA4; REV; DUP; NOT; NEG; SHL-2;
1664/5: 200 143 267|171 030|036|304 000 164|065|202 143 302 J3≠Z; (if p=4 or 5); C1; -; SET116; REV; J6≠Z; (fail if m≠p);
1667/0: 052|171 256|301 016 241|200 360 000 3; ERASE; Q10; =YA3; EXIT1;
1670/3: 164 357|042|201 143 311|052 4; SHL-9; DUP; J9≠Z; (if true/false); ERASE;
1671/4: 041|300 004 123|201 143 261|052 ZERO; V0P5; J35≠Z; ERASE;
1673/0: 300 016 242|042|301 016 243|041|301 016 242|304 000 001|301 003 254
YA4; DUP; =YA5; ZERO; =YA4; SET1; =V2;
1675/5: 171 030|066|170 030|201 143 301 C1; CAB; =C1; J5≠Z; (if m ≠ 0);
1677/1: 304 000 056|225 023 302 SET46; J7=; (if delimiter = begin);
1700/1: 304 000 170|225 023 302 SET120; J7=; (if LD = semi colon);
1701/1: 052|304 000 165|200 324 124 5; ERASE; SET117; JSP5;
1702/2: 200 264 124 6; JP5;
1702/5: 052 7; ERASE;
1703/0: 304 000 001|301 003 254|200 327 174|041|301 003 254 8; SET1; =V2; JSP31; ZERO; =V2;
1705/1: 304 000 157|222 023 317 SETB157; J38=; (fail if end message in comment);
1706/1: 304 000 170|036|200 143 303 SET120; -; J8≠Z; (if char ≠ semi colon);
1707/2: 300 016 243|301 016 242|171 030|200 263 255 YA5; =YA4; C1; JP1;
[== Page 22
1711/1: 065|304 000 004|201 023 313|065|052|202 263 256 9; REV; SET4; J39≠; REV; ERASE; J1;
1713/1: 065|304 000 002|036|042|170 256|027|033 39; REV; SET2; -; DUP; =Q10; NEG; NOT;
1714/5: 301 016 244|304 000 166|262 023 302|052|143 020|202 263 256 =YA6; SET118; J6C1NZ; (fail if m≠0); ERASE; DC1; J1;
1717/2: 304 000 205|200 264 124 38; SET133; JP5;
1720/2: 065|304 000 004|202 023 322|065|052|202 263 256 10; REV; SET4; J11≠; (if p≠4); REV; ERASE; J1;
1722/2: 304 000 167|262 023 302|052|065|042 11; SET119; J6C1NZ; (fail if m≠0); ERASE; REV; DUP;
1723/5: 304 000 065|036|205 043 343 SET53; -; J14≥Z; (if char = digit/./10);
(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 233|204 143 332
12; Q10; SHL6; +; =Q10; JSP31; W3; J41≠Z;(if char≠letter/digit/./10);
1731/2: 042|304 000 077|036|220 043 334 DUP; SET63; -; J40<Z; (if char = letter/digit);
1732/4: 171 256|301 016 273|205 263 256 41; Q10; =YA29; J2;
1734/0: 143 040|264 043 326|300 010 060|222 143 340 40; DC2; J12C2NZ; (if l≠0); V6P33; J13=Z; (if no output);
1735/5: 171 256|304 000 003|300 006 072|300 006 073|202 332 047 Q10; SET3; V16P29; V17P29; JS15P50;(print identifier overlength);
1740/1: 052 ERASE;
1740/2: 052|200 327 174|300 016 233|204 143 332 13; ERASE; JSP31; W3; J41≠Z; (if char≠letter/digit/./10);
1742/0: 042|304 000 077|036|222 043 340 DUP; SET63; -; J13<Z; (if char = letter/digit);
1743/2: 204 263 332 J41;
(NUMBER);
1743/5: 001|171 264|065|143 020 14; VR; I11; REV; DC1;
1744/5: 157 002|171 376|301 016 244|152 013|157 017 Q0TOQ2; Q15; =YA6; I0TOQ11; Q0TOQ15;
1746/4: 300 016 233|201 144 007|042|304 000 065|036|042 15; W3; J24≠Z; (if char≠letter/digit/./10); DUP; SET53; -; DUP;
1750/4: 304 000 167|065|223 043 374|052 SET119; REV; J37<Z; (fail if char = letter); ERASE;
1752/0: 042|304 000 012|036|042|201 043 371 DUP; SET10; -; DUP; J20≥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 244|171 376|301 016 244|170 376|200 327 174 17; =I11; YA6; Q15; =YA6; =Q15; JSP31;
1764/4: 300 016 244|171 376|301 016 244|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 244|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≠10);
2002/1: 171 044|200 143 374|151 002|304 000 001|301 016 241|171 264|220 144 006
I2; J21≠Z; (fail if Exp≠0); M0TOQ2; SET1; =YA3; I11; J23=Z;
2005/1: 171 256|301 016 241 (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≠10); 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 244|170 376|301 016 244|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 241|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; ×F; CAB;
2036/1: 164 377|042|222 144 040|066|042|004|012|202 264 034 32; SHL-1; DUP; J33=Z; CAB; DUP; ×F; 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; ×F; =Q10; ZERO; J26;
[== Page 24
=== Start P2V-1; at address 1061/2045
P2; (BEGIN);
2045/0: 171 022|225 144 055 M1; J1=Z;
2045/5: 300 016 245|205 144 055 YA7; J1≠Z;
2046/5: 265 024 055 J1C1NZ;
2047/2: 300 016 254|205 144 055 YA14; J1≠Z;
2050/2: 200 330 216 JSP38;
2050/5: 041|301 016 246 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/2060
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 241|304 000 012|166 121|304 000 007|200 330 115 YA3; SET10; SHLD40; SET7; JSP34;
2062/2: 171 156|300 016 241|042|301 016 257|041|301 016 256 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 272|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 272|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/2104
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 233|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/2124
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 276|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 273|300 016 242 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 276|033|027|301 016 276 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 276|224 144 140|300 016 276|027|033|301 016 276|204 264 140
YA32; J6=Z; YA32; NEG; NOT; =YA32; J6; (S:=S-1 unless S=0);
2146/1: 300 016 276|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 243 9; ERASE; SETB170; =YA5; (LD := semi colon);
2153/0: 304 000 001|042|170 022|301 016 246 SET1; DUP; =M1; =YA8; (E := V := 1);
2154/3: 041|301 016 253|041|301 016 254 ZERO; =YA13; ZERO; =YA14; (ARITH := F := 0);
2155/5: 041|301 016 245|041|301 016 236 ZERO; =YA7; ZERO; =YA0; (PROC := D := 0);
2157/1: 041|301 016 274|041|303 317 002 ZERO; =YA30; ZERO; =Y2M12Q; (SV := item[NL] :=0);
2160/3: 041|301 016 237 ZERO; =YA1; (T := 0);
2161/1: 304 001 204|301 016 240|304 000 377|170 042 SETB604; =YA2; SETB377; =M2; (ABG(TYPE) := 1);
2163/0: 300 016 242|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 246 SETB150; -; J12≠Z; SET-1; =YA8; (V := -1);
2166/4: 202 260 371 J10P0; (END ENTRY 2);
2167/1: 300 016 267|042|222 044 172 12; YA25; DUP; J10<Z; (IF PH = -1);
2170/2: 205 144 171 J13≠Z;
2170/5: 204 326 041 JS13P26; (semi colon entry 2);
2171/2: 201 260 315 J5P0; (out);
2171/5: 304 377 377 13; SET-1; (PH := -1);
2172/2: 301 016 267 10; =YA25; (restore PH);
2172/5: 304 000 005|200 323 255 SET5; JSP1;
2173/5: 262 024 200 J11C1NZ; (if m ≠ 0);
2174/2: 304 000 101|224 024 140 SETB101; J6=; (if delimiter = value);
2175/2: 042|164 127|224 144 140 DUP; SHL43; J6=Z; (if delimiter = scalar);
2176/2: 304 000 201|224 024 140 SETB201; J6=; (if delimiter = string);
2177/2: 042|164 373|224 144 140 DUP; SHL-3; J6=Z; (if delimiter = specifier);
2200/2: 041|301 016 267 11; ZERO; =YA25; (PH := 0);
2201/0: 204 260 321 J6P0; (OUT2);
2; (print FAIL and set FAIL marker);
2201/3: 304 006 052|042|170 145|170 142|171 156|200 336 115 SETAV0P29; DUP; =RI6; =M6; Q6; JSP114;
2203/4: 300 016 270|033|027|301 016 270|200 360 000 YA26; NOT; NEG; =YA26; EXIT1;
[== Page 27
=== Start P6V-1; at address 1158/2206
P6; (ARRAY);
2206/0: 052|200 327 053|304 000 015|200 330 171|300 016 236|042|200 144 216
ERASE; JSP30; SET13; JSP37; YA0; DUP; J2≠Z; (IF T≠0);
2210/5: 052|304 005 304|301 016 236|300 016 237|220 144 214 ERASE; SETB2704; =YA0; YA1; J1=Z; (if D=0);
2213/0: 304 000 103|200 264 124 SET67; JP5;
2214/0: 041|304 001 031|166 361|200 330 165|200 360 000 1; ZERO; SETB431; SHLD-8; JSP36; EXIT1;
2216/0: 042|304 010 004|011|222 024 220 2; DUP; SETB4004; OR; J3=; (if Ag(T)=1);
2217/2: 304 000 104|200 264 124 SET68; JP5;
2220/2: 304 004 000|036|301 016 236|300 016 237|220 144 214 3; SETB2000; -; =YA0; YA1; J1=Z; (if D=0);
2222/3: 041|304 003 127|166 361 ZERO; SETB1527; SHLD-8;
2223/3: 200 330 115|041|304 002 035|166 361|042|027|200 331 130|164 041
JSP34; ZERO; SETB1035; SHLD-8; DUP; NEG; JSP45; SHL16;
2226/1: 304 015 033|167 361|056|065|200 330 165|200 360 000 SETB6433; SHC-8; +; REV; JSP36; EXIT1;
=== Start P7V-1; at address 1177/2231
P7; (clear nest and or SJNS);
2231/0: 221 244 232|052|200 264 231 J1EN; ERASE; JP7;
2232/1: 173 000 1; LINK;
2232/3: 220 304 234|173 000|052|203 264 232 2; J3EJ; LINK; ERASE; J2;
2234/0: 174 000|200 360 000 3; =LINK; EXIT1;
=== Start P8V-1; at address 1181/2235
P8; (used by RELATION, LOGICAL, and ARITH OP);
2235/0: 304 000 053|300 016 253|200 140 325 SET43; YA13; J7P0≠Z; (to fail if ARITH ≠ 0);
2236/3: 052 ERASE;
2236/4: 041|065|300 016 240|042|167 371 1; ZERO; REV; YA2; DUP; SHC-4;
2240/0: 222 044 245 J3<Z; (to fail if col F of TE set);
2240/3: 200 331 050 JSP42; (COMPARE TE );
2241/0: 300 016 242|304 000 362|036|202 144 243 YA4; SET242; -; J2≠Z; (if delimiter ≠ ÷);
2242/4: 304 000 020|011 SETB20; OR;
2243/2: 301 016 240|304 000 003|200 330 255 2; =YA2; SET3; JSP40; (EXP 3);
2244/5: 200 360 000 EXIT1;
2245/2: 304 000 101|200 264 124 3; SET65; JP5; (fail 65);
=== Start P9V0; at address 1192/2250
P9V0; (ARITH OP 19/2/63);
[== Page 28
V-store at 02247 = 000 002 256 252 144 000 V0=B 0000 1256 5246 2000;
2250/0: 304 001 304|204 324 236|240 024 262 SETB704; JS1P8;J6C1Z; (if m=0);
2251/3: 200 332 271 JSP55;
2252/0: 304 000 001|200 330 276 2; SET1; JSP41;
2253/0: 300 016 240|304 001 357|054|301 016 240|042|164 373|027|170 070
3; YA2; SETB757; AND; =YA2; DUP; SHL-3; NEG; =C3;
2255/4: 300 004 247|164 060|304 000 017|054|042|200 330 171|065|164 121|056
V0; SHLC3; SETB17; AND; DUP; JSP37; REV; SHL40; +;
2260/3: 304 000 001|200 330 165 4; SET1; JSP36;
2261/3: 200 360 000 5; EXIT1;
2262/0: 300 016 243|304 000 177|203 024 264 6; YA5; SET127; J7≠; (fail if LD≠ ]);
2263/3: 151 001|052|200 264 252 M0TOQ1; ERASE; J2;
2264/3: 304 000 175|201 024 266 7; SET125; J8≠; (if LD≠right round bracket);
2265/3: 052|200 264 253 ERASE; J3;
2266/1: 304 000 022|015|304 000 037|054|200 144 271 8; SETB22; NEV; SETB37; AND; J10≠Z; (if LD=other);
2270/0: 304 000 051 SET41;
2270/3: 200 264 124 9; JP5;
2271/0: 200 332 271|304 000 162|200 024 274 10; JSP55; SET114; J1≠; (if del≠ -);
2272/3: 052|304 012 062|167 361|203 264 260 ERASE; SETB5062; SHC-8; J4;
2274/0: 304 000 122|036|223 144 261 1; SET82; -; J5=Z; (if del= +);
2275/1: 304 000 052|200 264 124 SET42; JP5;
=== Start P10V-1; at address 1215/2277
P10; (RELATION);
2277/0: 164 121|304 000 010|056 SHL40; SET8; +;
2300/0: 304 001 304|200 324 235 SETB704; JSP8;
2301/0: 200 332 271|304 000 001|200 330 276|042|200 330 171|304 000 001|200 330 165
JSP55; SET1; JSP41; DUP; JSP37; SET1; JSP36;
2304/1: 151 001|200 360 000 M0TOQ1; EXIT1;
=== Start P11V-1; at address 1221/2305
P11; (LOGICAL);
2305/0: 304 001 204|200 324 235 SETB604; JSP8;
2306/0: 200 332 271 JSP55;
2306/3: 304 000 376|223 024 315 SET254; J2=; (if del=not);
2307/3: 304 000 001|200 330 276|042|164 367|200 330 171 SET1; JSP41; DUP; SHL-5; JSP37;
[== Page 29
2311/3: 042|164 367|065|164 121|056|304 000 001|200 330 165|304 001 204
1; DUP; SHL-5; REV; SHL40; +; SET1; JSP36; SETB604;
2314/1: 301 016 240|151 001|200 360 000 =YA2; M0TOQ1; EXIT1;
2315/3: 262 024 323 2; J3C1NZ; (fail if m≠0);
2316/0: 300 016 243|304 000 376|222 024 323 YA5; SET254; J3=; (fail if LD=not);
2317/3: 042|304 000 022|015|304 000 033 DUP; SETB22; NEV; SETB33;
2320/5: 054|222 144 323 AND; J3=Z; (fail if LD=arith/rel op.);
2321/3: 304 000 175|015|304 000 375|054|203 144 311 SETB175; NEV; SETB375; AND; J1≠Z; (if LD≠closing bracket);
2323/2: 304 000 054|200 264 124 3; SET44; JP5;
=== Start P12V1; at address 1239/2327
P12V1; (add to code);
V-store at 02325 = 000 000 000 000 000 000
V-store at 02326 = 000 000 000 000 000 006 V0=0; V1=6;
2327/0: 154 003|042|201 264 331 C0TOQ3; DUP; J3;
2330/0: 170 070 1; =C3;
2330/2: 143 060|041|166 021 2; DC3; ZERO; SHLD8;
2331/1: 300 004 325|011|300 004 326|027|033|042 3; V0; OR; V1; NEG; NOT; DUP;
2332/5: 225 144 335 J5=Z;
2333/2: 301 004 326|164 021|301 004 325 =V1; SHL8; =V0;
2334/4: 262 064 330 4; J2C3NZ;
2335/1: 052|200 360 000 8; ERASE; EXIT1;
2335/5: 301 004 325|304 000 006|301 004 326 5; =V0; SET6; =V1;
2337/2: 300 016 272|065|200 334 077 6; YA28; REV; JSP125;
2340/3: 052|052|204 264 334 ERASE; ERASE; J4;
2341/2: 300 004 326|304 000 006|221 024 335 7; V1; SET6; J8=;
2342/5: 027|033|164 007|170 070 NEG; NOT; SHL3; =C3;
2343/5: 300 004 325|042|164 060|154 003|202 264 337 V0; DUP; SHLC3; C0TOQ3; J6;
=== Start P13V-1; at address 1254/2346
P13; (convert binary to characters and add to code);
2346/0: 304 000 004|170 070 SET4; =C3;
2346/5: 041|065 ZERO; REV;
2347/1: 304 000 012|044 1; SET10; ÷I;
[== Page 30
[ -- Brian W
2347/5: 066|011|167 361 CAB; OR; SHC-8;
2350/3: 065|143 060|042|221 144 353 REV; DC3; DUP; J2=Z;
2351/4: 261 064 347 J1C3NZ;
2352/1: 304 000 217|200 264 124 SET143; JP5;
2353/1: 052|304 000 004|171 070|036 2; ERASE; SET4; C3; -;
2354/2: 200 324 330 JS1P12;
2354/5: 200 360 000 EXIT1;
=== Start P14V-1; at address 1262/2356
P14; (left round bracket);
2356/0: 164 061|300 016 245|056|164 041|171 030|223 044 362 SHL24; YA7; +; SHL16; C1; J1<Z; (if m=2);
2360/1: 300 016 243|304 000 175|015|304 000 375|054|203 144 363 YA5; SETB175; NEV; SETB375; AND; J3≠Z; (if LD≠closing bracket);
2362/3: 304 000 057 1; SET47;
2363/0: 200 264 124 2; JP5;
2363/3: 300 016 236|042|223 144 375 3; YA0; DUP; J7=Z; (if T=0);
2364/4: 167 353|304 000 060|065|200 044 363 SHC-11; SET48; REV; J2≥Z; (if T=other);
2366/1: 052|300 016 245|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 245|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 240|042|304 000 062|065|167 371|220 044 363 8; YA2; DUP; SET50; REV; SHC-4; J2<Z; (if F(TYPE)=1);
2401/5: 052|200 332 271|041|304 003 033|166 361|200 330 115|300 016 253
ERASE; JSP55; ZERO; SETB1433; SHLD-8; JSP34; YA13;
2404/3: 164 041|056|164 041|171 022|056|300 016 241|304 015 033|167 361
SHL16; +; SHL16; M1; +; YA3; SETB6433; SHC-8;
2407/1: 304 377 376|200 331 130|164 041|056|304 000 004|200 330 165|151 041
SET-2; JSP45; SHL16; +; SET4; JSP36; M2TOQ1;
2412/0: 304 000 001|301 016 245|041|301 016 253|041|301 016 240|200 360 000
SET1; =YA7; ZERO; =YA13; ZERO; =YA2; EXIT1;
=== Start P16V-1; at address 1293/2415
P16; (COLON);
(first word of this routine in main loop);
[== Page 31
[ -- Roderick McL
2415/0: 042|222 145 020 DUP; J2=Z; (if T=0);
2415/4: 043|052|015|054|225 145 017 DUPD; ERASE; NEV; AND; J1=Z; (if BG(T)=1);
2416/5: 304 000 063|200 264 124 SET51; JP5;
2417/5: 200 273 034 1; JP59;
2420/2: 171 022|223 145 024 2; M1; J4=Z; (if E =0, to fail 35 in exp);
2421/1: 171 030|200 045 023|304 000 201|200 264 124 C1; J3≥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 236|200 330 216|154 013|304 000 001|041|200 331 153|041
=YA0; JSP38; C0TOQ11; SET1; ZERO; JSP47; ZERO;
2431/1: 301 016 236|200 264 060 =YA0; JP3;
=== Start P17V1; at address 1309/2435
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 236|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; J1<Z; (if N>63);
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 254|221 145 077 3; YA14; J4=Z; (if F=0);
2455/2: 200 330 276|300 016 243|304 000 013|036|203 145 061 JSP41; YA5; SET11; -; J6≠Z; (if LD≠for);
2457/3: 300 277 001|304 000 010|167 361|011|301 277 001 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;
[== Page 32
[ -- 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 253|200 360 000 M0TOQ1; =YA13; EXIT1;
2477/1: 304 000 067|300 016 245|200 145 041 4; SET55; YA7; J1≠Z; (if PROC≠0);
2500/4: 301 016 274|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/2510
P18; (COMMA 9/4/63);
2510/0: 300 016 245|225 145 112 YA7; J2=Z; (if PROC=0);
2511/0: 200 332 326|041|301 016 240 JSP57; ZERO; =YA2;
2512/1: 052|200 360 000 1; ERASE; EXIT1;
2512/5: 300 016 254|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 253|304 001 304|301 016 240|200 360 000
JSP45; SHL16; +; REV; JSP36; =YA13; SETB704; =YA2; EXIT1;
2523/3: 300 016 236|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);
[== Page 33
[ -- 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 241|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 237|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 237|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/2601
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 236|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 253|164 041|300 016 240|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 253|151 001|304 001 204|301 016 240|200 360 000
JSP36; ZERO; =YA13; M0TOQ1; SETB604; =YA2; EXIT1;
2615/1: 167 353|223 045 206 3; SHC-11; J1<Z; (if b(T)=1);
[== Page 34
[ -- Brian W
2616/0: 304 000 072 SET58;
2616/3: 200 264 124 4; JP5;
2617/0: 300 016 243|304 000 022|015|304 000 023|054|200 145 207 5; YA5; SETB22; NEV; SETB23; AND; J2≠Z; (if LD=arith/log op);
2621/2: 042|056|200 264 124 DUP; +; JP5;
=== Start P20V-1; at address 1427/2623
P20; (THEN);
2623/0: 171 022|205 145 236 M1; J2≠Z; (if E=1);
2623/5: 100 376|164 261|042|304 000 051|015|304 000 257|054 M14M15; SHL-40; DUP; SETB51; NEV; SETB257; AND;
2626/0: 223 145 230 J5=Z; (if TS= if/else);
2626/3: 304 000 036|015|304 000 037|054|202 145 232 SETB36; NEV; SETB37; AND; J1≠Z; (if TS=other);
2630/2: 042 DUP;
2630/3: 052|304 000 040|300 016 240|011|301 016 240 5; ERASE; SETB40; YA2; OR; =YA2;
2632/2: 304 000 001|042|200 330 276|304 000 002|200 330 171|100 376|164 261|304 000 071|036
1; SET1; DUP; JSP41; SET2; JSP37; M14M15; SHL-40; SET57; -;
2635/5: 222 145 237 J3=Z; (if TS=if);
2636/2: 304 000 073 SET59;
2636/5: 200 264 124 2; JP5;
2637/2: 141 360|172 370|100 376|170 076|171 070|301 016 253|171 064|301 016 240|151 061
3; M-I15; =+C15; M14M15; =Q3; C3; =YA13; I3; =YA2; M3TOQ1;
2642/4: 167 361|304 000 001|200 331 130|164 041|056|171 022 SHC-8; SET1; JSP45; SHL16; +; M1;
2644/5: 224 145 245 J4=Z; (if E=0);
2645/2: 033|027 NOT; NEG;
2645/4: 101 376|041|304 003 027|166 361|200 330 115|200 360 000 4; =M14M15; ZERO; SETB1427; SHLD-8; JSP34; EXIT1;
=== Start P21V-1; at address 1448/2650
P21; (ELSE);
(first word in main loop);
2650/0: 304 017 377|054|304 001 155|036|220 145 275 SETB7777; AND; SETB555; -; J4=Z; (if TS=thens);
2651/5: 164 261|304 000 036|015|304 000 037|054|204 145 255 SHL-40; SETB36; NEV; SETB37; AND; J1≠Z; (if TS=other);
2654/0: 304 000 040|300 016 240|011|301 016 240 SETB40; YA2; OR; =YA2;
2655/4: 304 000 001|042|200 330 276|033|027|200 330 171|100 376|042|164 261
1; SET1; DUP; JSP41; NOT; NEG; JSP37; M14M15; DUP; SHL-40;
2660/3: 304 000 155|036|224 145 262 SET109; -; J2=Z; (if TS=thens/thene);
2661/4: 304 000 074|200 264 124 SET60; JP5;
[== Page 35
[ -- Brian W
2662/4: 042|304 000 003|200 331 130|066|041|200 332 250|041|304 003 033
2; DUP; SET3; JSP45; CAB; ZERO; JSP54; ZERO; SETB1433;
2665/2: 166 361|200 330 115|304 000 017|054|042|223 145 271 SHLD-8; JSP34; SETB17; AND; DUP; J3=Z; (if TS=thenE);
2667/3: 151 041|304 001 204|301 016 240|041|301 016 253 M2TOQ1; SETB604; =YA2; ZERO; =YA13;
2671/3: 027|304 002 151|167 361|056|304 377 376|200 331 130 3; NEG; SETB1151; SHC-8; +; SET-2; JSP45;
2673/4: 164 041|056|101 376|200 360 000 SHL16; +; =M14M15; EXIT1;
2675/0: 200 330 227|204 265 262 4; JSP39; J2;
=== Start P22V-1; at address 1470/2676
P22; (GO TO);
2676/0: 240 025 277 J1C1Z; (if m=0);
2676/3: 200 264 124 JP5;
2677/0: 301 016 274|041|033|200 330 255|200 330 216|304 002 024 1; =YA30; ZERO; NOT; JSP40; JSP38; SETB1024;
2701/2: 167 361|304 000 001|200 330 165|151 001|304 001 010|301 016 240|200 360 000
SHC-8; SET1; JSP36; M0TOQ1; SETB410; =YA2; EXIT1;
=== Start P23V-1; at address 1477/2705
P23; (FOR ELEMENT);
2705/0: 304 000 122|300 016 254|200 145 307 SET82; YA14; J2≠Z; (if F=1);
2706/3: 200 264 124 1; JP5;
2707/0: 052|304 000 001|200 330 276|304 000 002|200 330 171|100 376|170 076|304 000 123
2; ERASE; SET1; JSP41; SET2; JSP37; M14M15; =Q3; SET83;
2712/2: 171 070|304 224 000|036|203 145 306 C3; SETB112000; -; J1≠Z; (if TS≠FORS1);
2713/5: 052|171 062|225 145 322 ERASE; M3; J6=Z; (if a≠-1);
2714/5: 042|304 000 174|036 DUP; SET124; -;
2715/4: 304 000 124|065|203 145 306 3; SET84; REV; J1≠Z; (if del≠until and a=-1);
2716/5: 052|052|304 000 364|167 361 ERASE; ERASE; SET244; SHC-8;
2720/0: 101 376|304 000 001 4; =M14M15; SET1;
2720/5: 304 130 364|164 101|065|200 330 115|200 360 000 5; SETB54364; SHL32; REV; JSP34; EXIT1;
2722/5: 304 000 174|224 025 315 6; SET124; J3=; (if del=until and a≠-1);
2723/5: 304 000 374|223 025 327 SET252; J7=; (if del=while);
2724/5: 052|304 000 020|170 062|171 076|101 376|304 000 002|205 265 320
ERASE; SETB20; =M3; Q3; =M14M15; SET2; J5;
2727/3: 304 001 204|301 016 240|041|301 016 253|304 000 050|171 064|042
7; SETB604; =YA2; ZERO; =YA13; SET40; I3; DUP;
2732/1: 304 037 377|054|170 062|164 355|304 000 070|054 SETB17777; AND; =M3; SHL-10; SETB70; AND;
2734/1: 036|170 070|042|164 060|300 077 003|011|301 077 003|167 361|200 265 320
-; =C3; DUP; SHLC3; Y3M3; OR; =Y3M3; SHC-8; J4;
=== Start P24V0; at address 1505/2741
P24V0; (DO);
[== Page 36
[ -- Brian W
V-store at 02740 = 130 133 000 000 125 000 V0=B 2605 5400 0005 2400;
2741/0: 200 333 322|171 350|033|027|042|170 350|042|167 363 JSP62; C14; NOT; NEG; DUP; =C14; DUP; SHC-7;
2743/1: 201 045 344 J2≥Z; (if n ≤ 63);
2743/4: 200 264 124 1; JP5;
2744/1: 052|100 376|041|033|164 041|300 016 247|056|164 041 2; ERASE; M14M15; ZERO; NOT; SHL16; YA9; +; SHL16;
2746/2: 300 016 252|056|101 376|164 021|042|304 000 004|042|301 016 247
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 266|164 011|011|304 000 001|200 330 165|041|301 016 266
YA24; SHL4; OR; SET1; JSP36; ZERO; =YA24;
2761/1: 151 041|041|301 016 253|041|301 016 254|304 001 204|301 016 240
M2TOQ1; ZERO; =YA13; ZERO; =YA14; SETB604; =YA2;
2763/5: 171 302|301 016 252|041|200 330 143|041|303 317 002|200 360 000
M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; EXIT1;
=== Start P25V-1; at address 1527/2767
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 254|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 254|200 330 165|304 001 304|301 016 240|200 360 000
SET1; DUP; =YA14; JSP36; SETB704; =YA2; EXIT1;
=== Start P26V0; at address 1539/3003
P26V0; (semi colon);
V-store at 03002 = 005 033 000 000 002 134 V0=B 0121 5400 0000 1134;
3003/0: 052|300 016 236|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;
[== Page 37
[ -- Brian W
3022/0: 304 001 204|301 016 240|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 236 4; ZERO; =YA0;
3027/3: 200 360 000 5; EXIT1;
3030/0: 041|033|200 331 130|065|041|200 332 250|300 016 261|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 243|036|205 146 010 SET127; YA5; -; J1≠Z; (if LD≠] );
3035/3: 200 330 171 JSP37;
3036/0: 041|301 016 237|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/3262
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;
[== Page 38
[ -- 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;
[== Page 39
[ -- 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;
[== Page 40
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;
[== Page 41
[ -- 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;
[== Page 42
[ -- 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 242|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 272|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 242|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 273|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 273|201 327 004|171 156|200 336 115
V44; =V2; V8; =V3; Q6; JSP114; YA29; JS20; Q6; JSP114;
3307/3: 041|301 016 273|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;
[== Page 43
[ -- 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 277 002|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 245|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 257|041|301 016 273 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 270|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 266 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;
[== Page 44
[ -- Brian W
3414/5: 300 016 272|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 255|164 377|200 326 322|164 061|300 016 257
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 256|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 257
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/3453
P30; (DEC);
3453/0: 262 027 054 J1C1NZ; (if m≠0);
3453/3: 171 022|202 147 055 M1; J3≠Z; (if E=1);
3454/2: 304 000 012 1; SET10;
3454/5: 200 264 124 2; JP5;
3455/2: 300 016 246|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; ERASE; EXIT1;
=== Start P31V74; at address 1916/3574
P31V74; (READ);
V-store at 03461 = 357 342 354 000 000 000
V-store at 03462 = 000 000 000 000 000 336 V0=B7376135400000000; V1=222;
V-store at 03463 = 357 316 316 357 307 000
V-store at 03464 = 000 000 000 000 000 002 V2=B7374731673743400;V3=2;
V-store at 03465 = 356 353 351 347 342 000
V-store at 03466 = 000 000 000 000 000 056 V4=B7356575171761000; V5=46;
V-store at 03467 = 356 341 341 344 353 357
V-store at 03470 = 342 000 000 000 000 040 V6=B7356074171165757; V7=B7040000000000040;
V-store at 03471 = 355 341 343 343 353 342
V-store at 03472 = 314 000 000 000 001 000 V8=B7336074370765742; V9=B6300000000000400;
V-store at 03473 = 354 341 000 000 000 000
V-store at 03474 = 000 000 000 000 000 025 V10=B7316040000000000; V11=21;
V-store at 03475 = 353 344 315 353 000 000
V-store at 03476 = 000 000 000 000 000 151 V12=B7276231572600000; V13=105;
[== Page 45
[ -- Roderick McL
V-store at 03477 = 353 342 354 000 000 000
V-store at 03500 = 000 000 000 000 000 150 V14=B 7276 1354 0000 0000; V15=104;
V-store at 03501 = 353 317 312 000 000 000
V-store at 03502 = 000 000 000 000 000 176 V16=B 7274 7712 0000 0000; V17=126;
V-store at 03503 = 352 357 344 315 353 000
V-store at 03504 = 000 000 000 000 004 006 V18=B 7256 7744 6336 5400; V19=1030;
V-store at 03505 = 352 341 316 000 000 000
V-store at 03506 = 000 000 000 000 000 013 V20=B 7256 0716 0000 0000; V21=11;
V-store at 03507 = 351 341 314 341 000 000
V-store at 03510 = 000 000 000 000 000 024 V22=B 7236 0714 7020 0000; V23=20;
V-store at 03511 = 351 341 203 314 341 000
V-store at 03512 = 000 000 000 000 000 024 V24=B 7236 0603 6316 0400; V25=20;
V-store at 03513 = 347 352 000 000 000 000
V-store at 03514 = 000 000 000 000 000 071 V26=B 7176 5000 0000 0000; V27=57;
V-store at 03515 = 347 343 340 000 000 000
V-store at 03516 = 000 000 000 000 000 236 V28=B 7176 1740 0000 0000; V29=158;
V-store at 03517 = 347 342 314 353 351 353
V-store at 03520 = 316 000 000 000 000 200 V30=B 7176 1314 7276 4753; V31=B 6340 0000 0000 0200;
V-store at 03521 = 344 357 356 353 344 000
V-store at 03522 = 000 000 000 000 000 001 V32=B 7116 7756 7276 2000; V33=1;
V-store at 03523 = 344 347 356 316 357 316
V-store at 03524 = 307 000 000 000 001 000 V34=B 7116 3756 6356 7716; V35=B 6160 0000 0000 0400;
V-store at 03525 = 342 341 314 000 000 000
V-store at 03526 = 000 000 000 000 000 376 V36=B 7056 0714 0000 0000; V37=254;
V-store at 03527 = 341 316 000 000 000 000
V-store at 03530 = 000 000 000 000 000 276 V38=B 7034 7000 0000 0000; V39=190;
V-store at 03531 = 341 311 342 000 000 000
V-store at 03532 = 000 000 000 000 000 045 V40=B 7034 4742 0000 0000; V41=37;
V-store at 03533 = 340 316 341 355 353 354
V-store at 03534 = 313 316 353 000 000 004 V42=B 7014 7341 7336 5754; V43=B 6274 7353 0000 0004;
V-store at 03535 = 316 353 357 344 000 000
V-store at 03536 = 000 000 000 000 000 140 v44=B 6356 5757 7100 0000; V45=96;
V-store at 03537 = 315 353 351 343 353 342
V-store at 03540 = 314 000 000 000 000 007 V46=B 6336 5751 7076 5742; V47=B 6300 0000 0000 0007;
V-store at 03541 = 315 314 353 340 000 000
V-store at 03542 = 000 000 000 000 000 034 V48=B 6334 6353 7000 0000; V49=28;
V-store at 03543 = 315 314 316 347 342 351
V-store at 03544 = 000 000 000 000 000 201 V50=B 6334 6316 7176 1351; V51=129;
V-store at 03545 = 315 311 347 314 355 350
V-store at 03546 = 000 000 000 000 000 003 V52=B 6334 4747 6316 6750; V53=3;
V-store at 03547 = 314 350 353 342 000 000
V-store at 03550 = 000 000 000 000 000 155 V54=B 6316 4353 7040 0000; V55=109;
V-store at 03551 = 314 316 313 353 000 000
V-store at 03552 = 000 000 000 000 002 005 V56=B 6314 7313 7260 0000; V57=517;
V-store at 03553 = 313 342 314 347 344 000
V-store at 03554 = 000 000 000 000 000 174 V58=B 6276 1314 7176 2000; V59=124;
V-store at 03555 = 312 357 344 313 353 000
V-store at 03556 = 000 000 000 000 000 101 V60=B 6256 7744 6276 5400; V61=65;
V-store at 03557 = 311 350 347 344 353 000
V-store at 03560 = 000 000 000 000 000 374 V62=B 6236 4347 7116 5400; V63=252;
V-store at 03561 = 304 214 217 211 214 000
V-store at 03562 = 000 000 000 000 000 141 V64=B 6110 6217 4230 6000; V65=97;
V-store at 03563 = 303 341 341 344 353 357
V-store at 03564 = 342 000 000 000 000 040 V66=B 6076 0741 7116 5757; V67=B 7040 0000 0000 0040;
V-store at 03565 = 301 205 216 206 000 000
V-store at 03566 = 000 000 000 000 000 241 V68=B 6030 2616 4140 0000; V69=161;
V-store at 03567 = 215 302 300 305 000 000
V-store at 03570 = 000 000 000 000 000 041 V70=B 4334 1300 6120 0000; V71=33;
[== Page 46
[ -- Brian W
V-store at 03571 = 214 347 356 316 357 316
V-store at 03572 = 307 000 000 000 001 000 V72=B4316375663567716; V73=B6160000000000400;
V-store at 03573 = 000 000 000 000 000 000 V74=0;
(READ CONTD);
3574/0: 300 007 173|170 156|041|301 016 233 V74;=Q6; ZERO; =W3;
3575/3: 200 327 366|042|204 147 201 1; JSP32; DUP; J3≠Z; (if char ≠ blank);
3576/4: 052|203 267 175 ERASE; J1;
3577/2: 052 17; ERASE;
3577/3: 304 000 174 11; SET124;
3600/0: 065|052 2; REV; ERASE;
3600/2: 171 156|301 007 173|200 264 124 18; Q6; =V74; JP5;
3601/4: 304 000 175|203 027 223 3; SET125; J6≠; (if char≠closing round bracket);
3602/4: 300 016 245|221 147 221 YA7; J5=Z; (if PROC=0);
3603/4: 171 116|164 301|304 000 377|054|041|222 027 177 Q4; SHL-32; SETB377; AND; ZERO; J17=; (if A2=blank);
3605/4: 304 000 065|036|201 047 221 SET53; -; J5≥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 A2=LETTER[A2]);
3613/0: 304 000 146|036|203 147 222 SET102; -; J21≠Z; (IF CHAR≠:[-]);
3614/1: 200 327 366|052 JSP32; ERASE; ([-]);
3614/5: 171 116|164 301|304 000 377|054|041|222 027 177 Q4; SHL-32; SETB377; AND; ZERO; J17=;
3616/5: 304 000 163|036|203 147 222 SET115; -; J21≠Z;
3620/0: 200 327 366|052|304 000 173 JSP32; ERASE; SET123;
3621/1: 171 156|301 007 173|200 264 104 5; Q6; =V74; JP4;
3622/3: 304 000 175|202 267 200 21; SET125; J18;
3623/3: 304 000 146|205 027 231 6; SET102; J8≠; (if char ≠ :);
3624/3: 171 116|164 301|304 000 377|054|304 000 326|036|201 147 221 Q4; SHL-32; SETB377; AND; SET214; -; J5≠Z; (if A2 ≠ =);
3627/0: 052|200 327 366|052|304 000 020 ERASE; JSP32; ERASE; SET16;
3630/2: 304 000 001|301 016 233|201 267 221 7; SET1; =W3; J5;
[== Page 47
[ -- Brian W
3631/5: 042|304 000 200|015|304 000 260|054|225 147 235 8; DUP; SETB200; NEV; SETB260; AND; J9=Z; (if underlined char);
3633/5: 042|304 000 340|015|304 000 360|054|201 147 221 DUP; SETB340; NEV; SETB360; AND; J5≠Z; (if char = other);
(DICT);
3635/5: 304 000 202|204 027 237|033|027|202 267 200 9; SET130; J19≠; NOT; NEG; J18;
3637/4: 171 256|301 016 233|304 000 044|170 251|146 240 19; Q10; =W3; SET36; =RC10; I10=2;
3641/4: 171 116|302 247 061|036|203 047 253 10; Q4; V0M10Q; -; J13≥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 233|170 256|202 267 230
16; ERASE; ERASE; V0M10; SETB3777; AND; W3; =Q10; J7;
=== Start P32V64; at address 2038/3766
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;
[== Page 48
[ -- 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 262|203 150 030 11; ZERO; YA20; J10≠Z;
3770/5: 052 1; ERASE;
[== Page 49
[ -- Roderick McL
3771/0: 262 150 011|265 210 007|300 016 264|042|164 341 2; J4C6NZ; J3C8NZ; YA22; DUP; SHL-16;
3773/0: 170 142|300 016 265 =M6; YA23;
3773/5: 301 016 264|301 016 265 =YA22; =YA23;
3774/5: 300 016 271|170 170|121 160|203 347 377|304 000 204|200 264 124
YA27; =C7; PARQ7; J19NTR; SET132; JP5;
3777/3: 300 016 265|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 264|170 176|300 007 365|101 160
17; ZERO; SHLD6; J20=Z; DC7; J17C7NZ; YA22; =Q7; V64; =M0M7;
4005/4: 300 016 271|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 263|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 263 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 262|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 263|225 147 370 14; YA21; J1=Z;
4042/2: 041|301 016 263|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/4061
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;
[== Page 50
[ -- 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 270|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 255|164 377|200 334 117|300 014 115|164 075|164 351 YA15; SHL-1; JSP127; V2P127; SHL30; SHL-12;
4073/2: 300 016 256|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 272|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; ×D; 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 255|056|301 016 255 SET2; DUP; YA15; +; =YA15;
4112/3: 300 016 256|056|301 016 256|200 360 000 YA16; +; =YA16; EXIT1;
=== Start P34V-1; at address 2125/4115
P34; (COMPILE);
4115/0: 170 050|300 337 000|171 156|301 016 232|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 337 000 6; =Y0M13Q; (store full object prog word);
[== Page 51
[ -- 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 337 000 SET6; I14; -; SHL3; =C2; SHLC2; =Y0M13;
4137/0: 052|300 016 232|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/4143
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; J7<Z; J1>Z; 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/4165
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/4171
P37; (UNSTACK 18/2/63);
4171/0: 170 044 =I2;
[== Page 52
[ -- 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 261|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; J8<Z;
4214/1: 052 11; ERASE;
4214/2: 304 000 001|200 330 115|202 270 201 12; SET1; JSP34; J6;
=== Start P38V-1; at address 2190/4216
P38; (BEGIN STATE 26/1/63);
4216/0: 300 016 246|042|221 110 220|225 150 224|200 360 000 YA8; DUP; J1>Z; J3=Z; EXIT1;
4220/1: 052|304 000 015|200 330 171|171 022|225 150 223|300 016 243|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 246|200 360 000 3; ZERO; NOT; =YA8; EXIT1;
=== Start P39V-1; at address 2199/4227
P39; (END STATE 6/2/63);
4227/0: 304 000 065|300 016 243|304 000 177|036|300 016 274|011|224 150 242|052
SET53; YA5; SET127; -; YA30; OR; J6=Z; ERASE;
4232/0: 041|301 016 274|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 253 JSP41; M2TOQ1; ZERO; =YA13;
4236/4: 304 001 204|301 016 240 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 240|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 277 001|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 277 001|052 7; SETB400; SHL24; OR; =Y1M11; ERASE;
4252/3: 154 013|300 277 000|200 331 223|301 277 000|204 270 236 C0TOQ11; Y0M11; JSP48; =Y0M11; J1;
=== Start P40V-1; at address 2221/4255
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 245|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/4276
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 243|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 240|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 243|036|220 150 306 4; SET5; SET125; YA5; -; J2=Z;
4314/5: 304 000 177|300 016 243|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 240|304 000 010|054|200 150 306|052 SET129; YA2; SETB10; AND; J2≠Z; ERASE;
4322/3: 220 150 306|041|300 016 244|042|164 007|042|304 000 030 J2=Z; ZERO; YA6; DUP; SHL3; DUP; SET24;
4324/5: 065|203 050 326|300 016 253|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 241
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 242|304 000 114|036|220 150 304|164 013|223 050 305 YA4; SET76; -; J30=Z; SHL5; J28<Z;
4340/4: 042|170 156|042|220 050 375|164 341|164 101|065|220 150 351|304 000 110
27; DUP; =Q6; DUP; J15<Z; SHL-16; SHL32; REV; J29=Z; SET72;
4343/4: 300 016 240|304 000 374|054|224 150 346|300 016 240|167 371|203 050 352
YA2; SETB374; AND; J24=Z; YA2; SHC-4; J8≥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 260|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 240|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 260|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 255|056|203 270 370 C10; +; SHL16; YA15; +; J13;
4366/4: 300 277 000|154 013|243 250 370|200 331 223 12; Y0M11; C0TOQ11; J13C10Z; JSP48;
4370/3: 171 156|301 277 001|304 004 004|042|300 016 236|015|054|200 150 374|304 000 001|011
13; Q6; =Y1M11; SETB2004; DUP; YA0; NEV; AND; J14≠Z; SET1; OR;
4374/0: 301 277 000|204 270 302 14; =Y0M11; J1;
4375/0: 304 000 066|304 004 004|042|300 016 236|015|054|220 150 306|052
15; SET54; SETB2004; DUP; YA0; NEV; AND; J2=Z; ERASE;
4377/4: 300 016 240|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 277 000|042|304 001 000|164 041|011|301 277 000|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; ERASE; SHC-1;
4413/5: 224 051 025|300 010 271|300 010 272 J20<Z; V1; V2;
4415/2: 166 060|065|052|164 261|304 000 103|201 031 023|167 361|154 006
SHLDC3; REV; ERASE; SHL-40; SET67; J18≠; SHC-8; C0TOQ6;
4420/0: 171 156|042|164 061|065|164 355|056|056|304 000 004 Q6; DUP; SHL24; REV; SHL-10; +; +; SET4;
4422/1: 200 330 115|204 270 302 17; JSP34; J1;
4423/1: 170 150|171 156|164 021 18; =C6; Q6; SHL8;
4424/1: 304 000 003|200 330 115|204 270 302 19; SET3; JSP34; J1;
4425/4: 304 000 031|171 150|304 001 000|054|171 022|011|220 150 306|052|304 123 163
20; SET25; C6; SETB400; AND; M1; OR; J2=Z; ERASE;SETB51563;
[ -- Graham T
[== Page 55
4430/5: 300 277 000|221 051 023|164 361 Y0M11; J18<Z; SHL-8;
4432/1: 170 144|171 156|164 061|201 271 024 21; =I6; Q6; SHL24; J19;
4433/4: 304 002 001|054|224 151 040|304 000 032|171 262|300 016 252|036|200 150 306|052
22; SETB1001; AND; J23=Z; SET26; M11; YA12; -; J2≠Z; ERASE;
4437/0: 300 277 000|304 000 001|011|301 277 000 Y0M11; SET1; OR; =Y0M11;
4440/4: 300 277 000|205 051 043|171 150|164 113|205 051 043|304 000 045|201 271 023
23; Y0M11; J26≥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/4450
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/4463
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/4473
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 246|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; M14M15; DUP; SHL-40; SET78; -; J9=Z; ERASE;
4505/4: 041|033|050|300 016 266|164 011|011 6; ZERO; NOT; CONT; YA24; SHL4; OR;
4507/1: 041|301 016 266 ZERO; =YA24; (R := 0);
4507/5: 304 377 377|164 041|300 016 247|056|164 041|300 016 252|056 SET-1; SHL16; YA9; +; SHL16; YA12; +;
4512/2: 304 015 033|167 361|304 000 002|200 331 130|164 041|056|304 000 003|200 330 165
7; SETB6433; SHC-8; SET2; JSP45; SHL16; +; SET3; JSP36;
4515/4: 171 350|033|027|042|170 350|042|167 363|220 051 102|052|041 C14; NOT; NEG; DUP; =C14; DUP; SHC-7; J4<Z; ERASE; ZERO;
4520/1: 301 016 247|041|300 011 072|304 000 007|200 330 115 =YA9; ZERO; V0; SET7; JSP34;
4522/2: 171 302|301 016 252|041|200 330 143|041|303 317 002|204 271 075
8; M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; J2;
4525/0: 300 016 252|101 376|041|033|050|304 000 001|200 330 165|052|202 271 122
9; YA12; =M14M15; ZERO; NOT; CONT; SET1; JSP36; ERASE; J8;
=== Start P45V-1; at address 2392/4530
P45; (i + contents of N1);
4530/0: 171 344|056|171 024 I14; +; I1;
4530/5: 065|042|304 000 006|036|042|224 051 133|012|052 1; REV; DUP; SET6; -; DUP; J2<Z; PERM; ERASE;
4532/5: 033|027|205 271 130 NOT; NEG; J1;
4533/4: 052 2; ERASE;
4533/5: 042|202 051 136|304 000 006|056|065|027|033|065|205 271 133 3; DUP; J4≥Z; SET6; +; REV; NEG; NOT; REV; J3;
4536/2: 164 033|056|200 360 000 4; SHL13; +; EXIT1;
=== Start P46V-1; at address 2400/4540
P46; (ENTRY 26/1/63);
4540/0: 300 016 252|170 262|171 316|300 016 241|203 271 143 YA12; =M11; Q12; YA3; J4;
4542/1: 141 300|300 317 002|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 317 000|041|301 317 001 ZERO; =Y0M12; ZERO; =Y1M12;
4547/4: 303 317 002|041|200 360 000 =Y2M12Q; ZERO; EXIT1;
4550/5: 052|151 313|170 316|300 277 001|200 360 000 3; ERASE; M12TOQ11; =Q12; Y1M11; EXIT1;
=== Start P47V-1; at address 2411/4553
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 230|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 277 000|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; ERASE; JSP48; I6TOQ3;
4565/2: 041|300 016 236|171 150|200 331 050|170 150|164 341 4; ZERO; YA0; C6; JSP42; =C6; SHL-16;
4567/3: 164 041|300 016 255|056|042|301 277 000|065|300 016 237|204 151 212|300 016 247|065
SHL16; YA15; +; DUP; =Y0M11; REV; YA1; J11≠Z; YA9; REV;
4573/0: 304 000 003|225 031 210 SET3; J10=;
4574/0: 225 151 204|052|041|200 331 130|170 142|041 J9=Z; ERASE; ZERO; JSP45; =M6; ZERO;
4575/5: 171 350|164 025|056 5; C14; SHL10; +;
4576/4: 170 144|171 156|041|033|050|042|301 277 001 6; =I6; Q6; ZERO; NOT; CONT; DUP; =Y1M11;
4600/3: 171 064|300 016 230|170 156|204 151 203 I3; W0; =Q6; J8≠Z;
4602/1: 052|052 7; ERASE; ERASE;
4602/3: 041|301 012 105|200 360 000 14; ZERO; =V5P53; EXIT1;
4603/4: 041|200 331 246|203 271 202 8; ZERO; JSP49; J14;
4604/5: 042|033|027|301 016 247|304 000 003|056|042|304 374 000 9; DUP; NOT; NEG; =YA9; SET3; +; DUP; SETB176000;
4607/1: 054|225 151 175|304 000 077|200 264 124 AND; J5=Z;SET63; JP5;
4610/5: 052|171 070|304 000 002|056|056|205 271 175 10; ERASE; C3; SET2; +; +; J5;
4612/4: 300 016 251|065|304 000 003|036|205 151 215|171 070|056|027|033|204 271 176
11; YA11; REV; SET3; -; J12≠Z; C3; +; NEG; NOT; J6;
4615/5: 042|033|027|042|301 016 251|304 374 000 12; DUP; NOT; NEG; DUP; =YA11; SETB176000;
4617/3: 054|224 151 176|304 000 076|200 264 124 AND; J6=Z; SET62; JP5;
4621/1: 170 064|171 270|164 041|202 271 165 13; =I3; C11; SHL16; J4;
=== Start P48V-1; at address 2451/4623
P48; (DIM);
4623/0: 171 270|033|027|304 377 000|054|200 151 227 C11; NOT; NEG; SETB177400; AND; J2≠Z; (== Last opcode manually annotated ==)
4624/5: 167 061|042|164 261|171 270|203 031 227 SHC24; DUP; SHL-40; C11; J3≠;
4626/3: 052|167 321 1; ERASE; SHC-24;
4627/0: 200 360 000 2; EXIT1;
4627/3: 033|027|304 377 000|054|200 151 232|304 000 037|200 264 124 3; NOT; NEG; SETB177400; AND; J4≠Z; SET31; JP5;
4632/0: 164 021|171 270|166 361|203 271 226 4; SHL8; C11; SHLD-8; J1;
=== Start P49V9; at address 2470/4646
P49V9; (UNCHAIN 29/1/63 );
[ -- Graham T
[== Page 58
V-store at 04634 = 151 141 155 000 145 000
V-store at 04635 = 111 103 115 000 105 000 V0=B 3226 0555 0006 2400; V1=B2224 1515 0004 2400;
V-store at 04636 = 000 327 000 000 201 223
V-store at 04637 = 000 337 000 333 000 000 V2=B 0015 3400 0010 0623; V3=B0015 7400 6660 0000;
V-store at 04640 = 211 215 205 311 315 305
V-store at 04641 = 000 000 000 377 377 377 V4=B 4230 6605 6234 6705; V5=B0000 0000 7777 7777;
V-store at 04642 = 000 000 377 377 377 377
V-store at 04643 = 011 000 015 000 005 000 V6=B 0000 0377 7777 7777; V7=B0220 0015 0000 2400;
V-store at 04644 = 051 000 055 000 045 000
V-store at 04645 = 000 000 000 000 000 000 V8=B 1220 0055 0002 2400; V9=0;
4646/0: 170 062|171 156|301 016 233|171 076|301 011 245|171 376|301 016 230|171 356|301 016 231|047|052|170 376|170 356
=M3; Q6; =W3; Q3; =V9; Q15; =W0; Q14; =W1; STR; ERASE; =Q15; =Q14;
4652/4: 171 064|042|204 151 257|052|300 016 231|170 356|300 016 230|170 376
1; I3; DUP; J2≠Z; ERASE; W1; =Q14; W0; =Q15;
4655/3: 300 011 245|170 076|300 016 233|170 156|200 360 000 V9; =Q3; W3; =Q6; EXIT1;
4657/4: 164 041|304 377 377|200 333 357|164 341|200 332 051|166 140 2; SHL16; SET-1; JSP63; SHL-16; JSP51; SHLDC6;
4662/1: 065|052|042|164 021|164 301|170 064|042|224 051 334|042|164 251
REV; ERASE; DUP; SHL8; SHL-32; =I3; DUP; J17<Z; DUP; SHL-44;
4664/5: 042|221 151 354 DUP; J22=Z;
4665/3: 164 377|222 151 324|171 370|042|164 353|202 151 272|304 000 021
SHL-1; J14=Z; C15; DUP; SHL-11; J4≠Z; SET17;
4670/1: 300 016 230|170 376|300 016 231|170 356|200 264 124 3; W0; =Q15; W1; =Q14; JP5;
4672/2: 042|167 377|221 051 316|065|052|300 011 234 4; DUP; SHC-1; J10<Z; REV; ERASE; V0;
4674/1: 171 356|224 051 275|052|300 011 235 Q14; J5<Z; ERASE; V1;
4675/4: 065|164 125|167 007|164 007|170 070|164 060|164 261|304 000 103|225 031 311
5; REV; SHL42; SHC3; SHL3; =C3; SHLC3; SHL-40; SET67; J9=;
4700/5: 164 041|171 364 6; SHL16; I15;
4701/3: 164 101|164 301|056|041|300 011 241|304 000 030 7; SHL32; SHL-32; +; ZERO; V5; SET24;
4703/3: 171 150|036|170 150|166 140|033|065|033|300 157 003|141 140|054|065
8; C6; -; =C6; SHLDC6; NOT; REV; NOT; Y3M6; M-I6; AND; REV;
4706/2: 300 157 003|054|066|041|065|166 140|066|011 Y3M6; AND; CAB; ZERO; REV; SHLDC6; CAB; OR;
4710/1: 303 157 003|011|301 157 003|204 271 252 =Y3M6Q; OR; =Y3M6; J1;
4711/5: 164 061|171 364|164 101|167 015|056|171 362|164 101|164 321|056
9; SHL24; I15; SHL32; SHC6; +; M15; SHL32; SHL-24; +;
4714/3: 041|300 011 242|304 000 020|203 271 303 ZERO; V6; SET16; J8;
4716/1: 167 357|224 051 320|164 061|164 261|304 000 124|202 032 000 10; SHC-9; J11<Z; SHL24; SHL-40; SET84; J28≠;
4720/4: 052|171 356|222 051 323|304 000 123 11; ERASE; Q14; J13<Z; SET83;
4722/1: 164 041|171 362|203 271 301 12; SHL16; M15; J7;
4723/2: 304 000 163|205 271 300 13; SET115; J6;
4724/2: 171 370|042|164 355|304 000 047|065|201 151 270|052|167 357 14; C15; DUP; SHL-10; SET39; REV; J3≠Z; ERASE; SHC-9;
4726/5: 220 051 331|164 101|164 261|304 000 124|202 032 000 J15<Z; SHL32; SHL-40; SET84; J28≠;
[ -- Graham T
[== Page 59
4731/0: 052|171 356|224 051 333|304 000 023|164 041|171 362|203 271 301
15; ERASE; Q14; J16<Z; SET19; SHL16; M15; J7;
4733/4: 304 000 063|205 271 300 16; SET51; J6;
4734/4: 052|171 356|204 051 336|304 000 241|205 271 300 17; ERASE; Q14; J18≥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; SHC-11; J32≥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 277 000
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; SETB2410; J24≠; ERASE; SET3; SHL16; M15; J7;
4775/1: 042|164 113|202 051 377|052|304 000 045|205 271 300 26; DUP; SHL37; J27≥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/5004
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 277 000|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 272|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
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 157 003|300 157 003|065|066|170 150|200 360 000
I13TOQ6; =M6; Y3M6Q; Y3M6; REV; CAB; =C6; EXIT1;
=== Start P52V-1; at address 2606/5056
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 266 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 247|056 M-I15; SET1; =+C15; C14; SHL10; YA9; +;
5064/4: 100 376|042|170 076|161 301|301 016 246 M14M15; DUP; =Q3; SHA-32; =YA8;
5066/2: 171 064|301 016 247|171 062|301 016 252|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/5110
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 266|202 152 242 V7; J18≠Z; YA24; J18≠Z;
5112/0: 300 016 252|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 252|170 142|152 306 =Q3; =C3; YA12; =M6; I12TOQ6;
5117/4: 153 153|300 277 002|223 152 126|300 277 001|164 017|203 052 126|300 277 000|167 377
IM6TOQ11; Y2M11; J1=Z; Y1M11; SHL7; J1≥Z; Y0M11; SHC-1;
5123/1: 223 052 126|300 016 270|203 152 126|304 000 102|171 262|301 012 105|200 264 124
J1<Z; YA26; J1≠Z; SET66; M11; =V5; JP5;
5126/3: 140 260|171 262|171 302|036|203 152 133|151 154 1; M+I11; M11; M12; -; J2≠Z; M6TOQ12;
5130/3: 041|301 012 107 ZERO; =V7; (COLL := 0);
5131/1: 151 041|300 012 101|170 156|041|301 012 105|200 360 000 M2TOQ1; V1; =Q6; ZERO; =V5; EXIT1;
5133/3: 151 261|300 277 002|223 152 126 2; M11TOQ1; Y2M11; J1=Z; (if name cols = 0);
5134/5: 300 277 002|300 277 001|042|171 262|301 012 105|201 052 163 Y2M11; Y1M11; DUP; M11; =V5; J7≥Z;
5137/2: 052|241 072 147|300 016 252|170 262 ERASE; J5C3Z; YA12; =M11;
5140/5: 141 260|300 277 002|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 277 000|164 321|171 042|054|203 152 162 5; Y0M11; SHL-24; M2; AND; J6≠Z;
5151/0: 300 277 001|164 277|304 104 204|036|223 152 162|300 016 270|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 277 001|300 277 000|066|300 016 252|170 262 8; Y1M11; Y0M11; CAB; YA12; =M11;
5170/3: 141 260|300 277 002|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 277 000|052|052|203 272 126 M+I6; =Y0M11; ERASE; ERASE; J1;
5177/2: 301 157 000|301 157 002|301 157 001|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 277 000|200 331 223|304 001 000|164 041|011|042 Y0M11; JSP48; SETB400; SHL16; OR; DUP;
5206/5: 301 277 000|065|170 076|300 277 001|042|170 156|223 052 226|052
=Y0M11; REV; =Q3; Y1M11; DUP; =Q6; J13<Z; ERASE;
5211/3: 041|304 001 377|042|171 150|054|065|171 070|054|200 331 050 ZERO; SETB777; DUP; C6; AND; REV; C3; AND; JSP42;
5214/0: 041|171 150|164 357|171 070|164 357|200 331 050|164 023|011|170 150
ZERO; C6; SHL-9; C3; SHL-9; JSP42; SHL9; OR; =C6;
5216/5: 171 076|171 156|043|300 012 100 Q3; Q6; DUPD; V0;
5220/1: 042|033|066|054|164 341|066 DUP; NOT; CAB; AND; SHL-16; CAB;
5221/2: 164 041|041|200 332 250|042|066|054|012 SHL16; ZERO; JSP54; DUP; CAB; AND; PERM;
5223/0: 033|054|011|301 277 001 NOT; AND; OR; =Y1M11;
5224/0: 300 012 102|170 156|300 012 103|170 076|151 033|203 272 126 12; V2; =Q6; V3; =Q3; M1TOQ11; J1;
5226/3: 171 150|042|304 016 000 13; C6; DUP; SETB7000;
5227/3: 054|203 152 236|171 070|164 355|042|204 152 232|052|304 002 000|200 272 235
AND; J17≠Z; C3; SHL-10; DUP; J14≠Z; ERASE; SETB1000; J16;
5232/4: 164 377|203 152 234|304 000 157|200 264 124 14; SHL-1; J15≠Z; SET111; JP5;
5234/3: 304 010 001 15; SETB4001;
5235/0: 011|042|170 150|171 156|301 277 001 16; OR; DUP; =C6; Q6; =Y1M11;
5236/3: 042|171 070|065|200 331 050|052|171 156|300 012 103|164 101|164 301|200 331 246|200 272 224
17; DUP; C3; REV; JSP42; ERASE; Q6; V3; SHL32; SHL-32; JSP49; J12;
5242/2: 300 016 252|170 302 18; YA12; =M12; (NLP := NL);
5243/1: 041|301 012 105|041|301 012 107|052|200 360 000 19; ZERO; =V5; ZERO; =V7; ERASE; EXIT1;
=== Start P54V1; at address 2728/5250
P54V1; (prog[ ]:=y 15/2/63);
V-store at 05246 = 000 000 000 000 377 377
V-store at 05247 = 000 000 000 000 000 000 V0=B 0000 0000 0017 7777; V1=0;
5250/0: 171 156|301 012 247|224 152 252|171 344|164 033|171 024|056|065
Q6; =V1; J1=Z; I14; SHL13; I1; +; REV;
5252/4: 164 041|167 007|042|164 007|170 070|164 273|170 143 1; SHL16; SHC3; DUP; SHL3; =C3; SHL-35; =RM6;
5254/5: 302 157 003|300 157 003|065|043|166 060|164 301|164 041|301 016 261
Y3M6Q; Y3M6; REV; DUPD; SHLDC3; SHL-32; SHL16; =YA19;
5257/4: 052|041|300 012 246|304 000 040|171 070|036|170 070|166 060|033|066
ERASE; ZERO; V0; SET32; C3; -; =C3; SHLDC3; NOT; CAB;
5262/3: 054|012|033|054|066|041|065|166 060|012 AND; PERM; NOT; AND; CAB; ZERO; REV; SHLDC3; PERM;
5264/1: 011|301 157 003|011|141 140|301 157 003|300 012 247|170 156|200 360 000
OR; =Y3M6; OR; M-I6; =Y3M6; V1; =Q6; EXIT1;
=== Start P55V0; at address 2745/5271
P55V0; (IMP SR 4/2/63);
[ -- Graham T
[== Page 63
V-store at 05270 = 000 000 000 000 000 000 V0=0;
5271/0: 300 016 245|221 152 310|300 016 243|304 000 163|223 032 274|304 000 173|200 032 310
YA7; J4=Z; YA5; SET115; J1=; SET123; J3≠;
5274/3: 052|304 000 317|164 007|171 344|056|164 033|171 024|056|164 061
1; ERASE; SETB317; SHL3; I14; +; SHL13; I1; +; SHL24;
5277/1: 304 000 001|042|171 350|056|042|170 350|300 012 270|033|027|301 012 270
SET1; DUP; C14; +; DUP; =C14; V0; NOT; NEG; =V0;
5302/1: 042|164 123|204 052 303|200 264 124 DUP; SHL41; J2≥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 242|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/5311
P56; (compare type cols);
5311/0: 203 152 312|300 277 001|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 277 001|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/5326
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 240 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 243|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; JSP46; DUP; J13<Z;
5357/5: 202 152 362|304 001 377|164 041|300 016 255|056|301 277 000 J9≠Z; SETB777; SHL16; YA15; +; =Y0M11;
5362/2: 171 042|151 266 9; M2; M11TOQ6;
5363/0: 170 144|171 156 10; =I6; Q6;
5363/4: 164 061 11; SHL24;
5364/0: 304 000 001|200 330 165|204 272 342 12; SET1; JSP36; J4;
5365/3: 041|050|170 156|300 277 000|304 001 000|164 041|011|042|301 277 000
13; ZERO; CONT; =Q6; Y0M11; SETB400; SHL16; OR; DUP; =Y0M11;
5370/2: 205 052 372|304 000 241 J15≥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 241|304 000 006|200 330 115|300 016 244|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/5421
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 266 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
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;
[ -- 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; J6<Z; SET123; J1=; ERASE; ZERO; NOT;
5447/4: 050|167 013|101 376|200 360 000 5; CONT; SHC5; =M14M15; EXIT1;
5451/0: 304 000 173|065|201 033 041|052|033|027|041|204 273 047 6; SET123; REV; J1≠; ERASE; NOT; NEG; ZERO; J5;
=== Start P60V-1; at address 2860/5454
P60; (COMPARE USED ENTRIES );
5454/0: 042|041|051|304 001 377|054|200 331 050 DUP; ZERO; REVD; SETB777; AND; JSP42;
5455/4: 011|200 360 000 OR; EXIT1;
=== Start P61V49; at address 2913/5541
P61V49; (LIBRARY);
V-store at 05457 = 000 000 000 266 070 150
V-store at 05460 = 000 007 350 272 067 354 V0=B 0000 0000 5543 4150; V1=B 0000 3750 5643 3754;
V-store at 05461 = 000 000 000 001 267 055
V-store at 05462 = 000 000 000 266 273 056 V2=B 0000 0000 0033 3455; V3=B 0000 0000 5553 5456;
V-store at 05463 = 000 000 000 002 330 350
V-store at 05464 = 000 000 000 001 332 155 V4=B 0000 0000 0055 4350; V5=B 0000 0000 0035 5155;
V-store at 05465 = 000 000 000 000 011 250
V-store at 05466 = 000 000 000 001 374 252 V6=B 0000 0000 0000 4650; V7=B 0000 0000 0037 6252;
V-store at 05467 = 000 006 354 166 346 350
V-store at 05470 = 000 000 000 246 247 350 V8=B 0000 3354 3556 3350; V9=B 0000 0000 5152 3750;
V-store at 05471 = 000 000 000 261 366 336
V-store at 05472 = 000 010 051 262 166 356 V10=B 0000 0000 5437 3336; V11=B 0000 4051 5447 3356;
V-store at 05473 = 000 000 061 262 073 237
V-store at 05474 = 306 310 356 176 347 362 V12=B 0000 0061 5443 5637; V13=B 6154 4356 3756 3762;
V-store at 05475 = 166 232 263 271 374 256
V-store at 05476 = 000 000 035 232 233 137 V14=B 3551 5263 5637 6256; V15=B 0000 0035 4651 5537;
V-store at 05477 = 261 366 336 162 232 146
V-store at 05500 = 306 310 356 175 312 151 V16=B 5437 3336 3451 5146; V17=B 6154 4356 3734 5151;
V-store at 05501 = 025 010 002 001 250 000
V-store at 05502 = 000 000 000 000 000 000 V18=B 0520 4002 0032 4000; V19=0;
V-store at 05503 = 000 000 002 001 004 264
V-store at 05504 = 000 000 002 001 004 244 V20=B 2002 0226 4; V21=B 2002 0224 4;
V-store at 05505 = 000 000 004 002 004 254
V-store at 05506 = 000 000 000 271 373 156 V22=B 4004 0225 4; V23=B 0000 0000 5637 5556;
V-store at 05507 = 000 000 000 000 000 000
V-store at 05510 = 034 013 257 320 011 045 V24=0; V25=B 0700 5657 6400 4445;
V-store at 05511 = 216 310 162 226 100 000
V-store at 05512 = 327 071 144 002 373 200 V26=B 4354 4162 4544 0000; V27=B 6563 4544 0057 5600;
V-store at 05513 = 000 012 157 272 253 356
V-store at 05514 = 000 000 000 202 072 036 V28=B 0000 5157 5652 5756; V29=B 0000 0000 4043 5036;
V-store at 05515 = 261 366 336 162 072 033
V-store at 05516 = 261 366 336 156 313 033 V30=B 5437 3336 3443 5033; V31=B 5437 3336 3354 5433;
V-store at 05517 = 306 310 356 175 273 054
V-store at 05520 = 306 310 356 175 310 350 V32=B 6154 4356 3733 5454; V33=B 6154 4356 3734 4350;
V-store at 05521 = 000 000 000 002 026 352
V-store at 05522 = 000 000 000 002 346 334 V34=B 0000 0000 0041 3352; V35=B 0000 0000 0056 3334;
V-store at 05523 = 216 213 237 261 330 233
V-store at 05524 = 000 013 037 306 072 036 V36=B 4350 5637 5435 4233; V37=B 0000 5437 6143 5036;
[ -- Graham T
[== Page 66
V-store at 05525 = 171 273 233 266 130 352
V-store at 05526 = 000 000 000 266 130 352 V38=B 3633 5633 5545 4352; V39=B 0000 0000 5545 4352;
V-store at 05527 = 000 007 142 156 310 350
V-store at 05530 = 001 330 233 262 233 356 V40=B 0000 3542 3354 4350; V41=B 0035 4233 5451 5756;
V-store at 05531 = 216 207 033 266 067 155
V-store at 05532 = 246 373 234 156 330 335 V42=B 4350 3433 5543 3555; V43=B 5157 5634 3355 4335;
V-store at 05533 = 000 000 000 001 313 235
V-store at 05534 = 000 000 000 001 373 261 V44=B 0000 0000 0034 5635; V45=B 0000 0000 0037 5661;
V-store at 05535 = 254 150 264 043 000 000
V-store at 05536 = 000 000 010 004 004 254 V46=B 5306 4264 1060 0000; V47=B 1001 0022 54;
V-store at 05537 = 002 207 361 232 072 037
V-store at 05540 = 000 000 055 251 267 137 V48=B0050 3761 4643 5037; V49=B 0000 0055 5233 3537;
5541/0: 171 076|301 013 107|042|300 013 057|220 033 144 Q3; =V24; DUP; V0; J1=; (if x=sign);
5543/0: 300 013 060|201 033 171 V1; J4≠; (if x≠entier);
5544/0: 164 115|164 261 1; SHL38; SHL-40;
5544/4: 304 003 324 2; SETB1724;
5545/1: 041|065|300 277 001|164 301|200 331 050|300 277 001|170 076 3; ZERO; REV; Y1M11; SHL-32; JSP42; Y1M11; =Q3;
5547/4: 304 200 000|011|170 070|300 277 000|171 344|164 033|171 024|056
SETB100000; OR; =C3; Y0M11; I14; SHL13; I1; +;
5552/2: 171 076|164 341|164 041|011|042|301 277 001|041|200 331 246 Q3; SHL-16; SHL16; OR; DUP; =Y1M11; ZERO; JSP49;
5554/5: 300 016 241|066|301 016 241|200 324 060|301 016 241|300 013 102|065|300 013 101|056
YA3; CAB; =YA3; JSP3; =YA3; V19; REV; V18; +;
5560/2: 042|164 061|164 261|170 270|300 277 000|200 331 223|052 DUP; SHL24; SHL-40; =C11; Y0M11; JSP48; ERASE;
5562/4: 304 000 012|200 330 115 SET10; JSP34;
5563/4: 200 330 061|304 377 376|042|300 016 255|056|301 016 255|300 016 256|056|301 016 256
JSP33; SET-2; DUP; YA15; +; =YA15; YA16; +; =YA16;
5567/1: 041|301 013 102|300 013 107|170 076|200 360 000 23; ZERO; =V19; V24; =Q3; EXIT1;
5571/1: 300 013 061|205 033 173 4; V2; J8≠; (if x≠abs);
5572/1: 164 115 5; SHL38;
5572/3: 164 261 6; SHL-40;
5572/5: 304 003 304|201 273 145 7; SETB1704; J3;
5573/5: 300 013 062|204 033 175 8; V3; J10≠; (if x≠sqrt);
5574/5: 164 117|203 273 172 9; SHL39; J6;
5575/4: 300 013 063|221 033 172 10; V4; J5=; (if x=sin);
5576/4: 300 013 064|221 033 172 V5; J5=; (if x=cos);
5577/4: 300 013 065|221 033 172 V6; J5=; (if x=ln);
5600/4: 300 013 067|221 033 172 V8; J5=; (if x=arctan);
[ -- Graham T
[== Page 67
5601/4: 300 013 066|203 033 203 V7; J11≠; (if x≠exp);
5602/4: 164 121|203 273 172 SHL40; J6;
5603/3: 052|300 013 071|204 033 205 11; ERASE; V10; J12≠; (if x≠read);
5604/4: 304 004 157|205 273 172 SETB2157; J7;
5605/4: 300 013 072|204 033 207 12; V11; J13≠; (if x≠format);
5606/4: 304 014 356|204 273 144 SETB6356; J2;
5607/4: 300 013 077|201 033 212 13; V16; J14≠; (if x≠read boolean);
5610/4: 304 004 231 SETB2231;
5611/1: 304 003 244|201 273 145 43; SETB1644; J3;
5612/1: 300 013 106|201 033 214 14; V23; J24≠; (if x≠test);
5613/1: 304 004 004|204 273 144 SETB2004; J2;
5614/1: 300 013 070|204 033 216 24; V9; J16≠; (if x≠open);
5615/1: 304 004 372 SETB2372;
5615/4: 304 002 004|201 273 145 15; SETB1004; J3;
5616/4: 300 013 076|204 033 220 16; V15; J17≠; (if x≠close);
5617/4: 304 004 257|204 273 215 SETB2257; J15;
5620/4: 300 013 074|200 033 224 17; V13; J18≠; (if x≠write text);
5621/4: 304 000 256 SETB256;
5622/1: 167 361|301 013 102|300 013 103|204 273 215 28; SHC-8; =V19; V20; J15;
5624/0: 300 013 100|202 033 227 18; V17; J19≠; (if x≠write boolean);
5625/0: 304 000 001|167 361|301 013 102|300 013 104|204 273 215 SET1; SHC-8; =V19; V21; J15;
5627/2: 300 013 073|204 033 232 19; V12; J21≠; (if x≠write);
5630/2: 304 250 013 SETB124013;
5630/5: 164 101|301 013 102|300 013 105|204 273 215 20; SHL32; =V19; V22; J15;
5632/4: 300 013 075|200 033 243 21; V14; J25≠; (if x≠copy text);
5633/4: 304 264 053|205 273 230 SETB132053; J20;
5634/4: 171 156|301 012 003|203 324 201 22; Q6; =V0P50; JS2P5; (print FAIL);
5636/0: 300 013 110|301 006 137|300 013 111|301 006 140 V25; =V53P29; V26; =V54P29;
5640/0: 300 013 112|301 006 244|304 000 002|205 332 010 V27; =V122P29; SET2; JS1P50;
[== Page 68
[ -- Roderick McL
5642/0: 301 016 270|201 273 167 =YA26; J23;
5643/0: 300 013 113|205 033 246 25; V28; J26≠; (if x≠output);
5644/0: 300 013 103|041|304 014 022|166 361|065|301 013 102|036|204 273 215
V20; ZERO; SETB6022; SHLD-8; REV; =V19; -; J15;
5646/5: 300 013 114|205 033 250 26; V29; J27≠; (if x≠find);
5647/5: 304 000 017|201 273 222 SETB17; J28;
5650/5: 300 013 115|205 033 254 27; V30; J30≠; (if x≠read binary);
5651/5: 304 264 026 SETB132026;
5652/2: 164 101|301 013 102|300 013 105|304 000 104|036|204 273 215 29; SHL32; =V19; V22; SET68; -; J15;
5654/5: 300 013 116|205 033 256 30; V31; J31≠; (if x≠read array);
5655/5: 304 264 034|202 273 252 SETB132034; J29;
5656/5: 300 013 120|205 033 260 31; V33; J32≠; (if x≠write binary);
5657/5: 304 264 036|202 273 252 SETB132036; J29;
5660/5: 300 013 117|205 033 263 32; V32; J33≠; (if x≠write array);
5661/5: 300 013 135|301 013 102|300 013 136|204 273 215 V46; =V19; V47; J15;
5663/5: 300 013 121|205 033 315 33; V34; J47≠; (if x≠gap);
5664/5: 304 000 047 SETB47;
5665/2: 167 361|301 013 102|300 013 103|304 000 010|036|204 273 215 34; SHC-8; =V19; V20; SETB10; -; J15;
5667/5: 300 013 122|205 033 271 35; V35; J36≠; (if x≠tab);
5670/5: 304 000 007|202 273 265 SETB07; J34;
5671/5: 300 013 126|205 033 273 36; V39; J37≠; (if x≠skip);
5672/5: 304 000 066|202 273 265 SETB66; J34;
5673/5: 300 013 130|205 033 275 37; V41; J38≠; (if x≠char out);
5674/5: 304 000 071|202 273 265 SETB71; J34;
5675/5: 300 013 132|205 033 277 38; V43; J39≠; (if x≠out basic symbol);
5676/5: 304 000 073|202 273 265 SETB73; J34;
5677/5: 300 013 123|205 033 301 39; V36; J40≠; (if x≠interchange);
5700/5: 304 004 054|204 273 215 SETB2054; J15;
5701/5: 300 013 124|205 033 303 40; V37; J41≠; (if x≠rewind);
5702/5: 304 004 057|204 273 215 SETB2057; J15;
[== Page 69
[ -- Roderick McL
5703/5: 300 013 125|205 033 305 41; V38; J42≠; (if x≠data skip);
5704/5: 304 004 065|204 273 215 SETB2065; J15;
5705/5: 300 013 133|205 033 307 42; V44; J44≠; (if x≠btc);
5706/5: 304 004 102|201 273 211 SETB2102; J43;
5707/5: 300 013 134|205 033 311 44; V45; J45≠; (if x≠etw);
5710/5: 304 004 104|201 273 211 SETB2104; J43;
5711/5: 300 013 127|205 033 313 45; V40; J46≠; (if x≠char in);
5712/5: 304 004 067|204 273 144 SETB2067; J2;
5713/5: 300 013 131|204 033 234 46; V42; J22≠; (if x≠in basic symbol);
5714/5: 304 004 070|204 273 144 SETB2070; J2;
5715/5: 300 013 137|205 033 317 47; V48; J48≠; (if x≠newline);
5716/5: 304 000 140|202 273 265 SETB140; J34;
5717/5: 300 013 140|205 033 267 48; V49; J35≠; (if x≠space);
5720/5: 304 000 137|202 273 265 SETB137; J34;
=== Start P62V-1; at address 3026/5722
5722/0: 100 376|164 261|304 000 035|054|304 000 034|015|201 153 326|300 016 240|304 000 040|011|301 016 240
P62; M14M15; SHL-40; SETB35; AND; SETB34; NEV; J1≠Z; YA2; SETB40; OR; =YA2;
5726/1: 304 000 001|200 330 276|304 000 002|200 330 171|100 376|042|164 261|304 000 114|224 033 342|304 000 224
1; SET1; JSP41; SET2; JSP37; M14M15; DUP; SHL-40; SET76; J5=; SET148;
5732/3: 222 033 346|304 000 364|015|304 000 367|054|304 000 153|065|220 153 336
J6=; SETB364; NEV; SETB367; AND; SET107; REV; J3=Z;
5735/3: 200 264 124 2; JP5;
5736/0: 052|052 3; ERASE; ERASE;
5736/2: 052|141 360|304 000 001|172 370|304 000 156|100 376 4; ERASE; M-I15; SET1; =+C15; SET110; M14M15;
5740/3: 164 261|304 000 013|036|203 153 335|052|200 360 000 SHL-40; SET11; -; J2≠Z; ERASE; EXIT1;
5742/4: 052|304 001 000|164 061|056|101 376|304 000 025|223 033 335|052|173 000|052|200 360 000
5; ERASE; SETB400; SHL24; +; =M14M15; SET21; J2=; ERASE; LINK; ERASE; EXIT1;
5746/2: 052|042|167 367|304 000 160|065|223 053 335|052 6; ERASE; DUP; SHC-5; SET112; REV; J2<Z; ERASE;
5750/2: 304 000 050|065|164 341|042|304 037 377 SET40; REV; SHL-16; DUP; SETB17777;
5752/0: 054|170 062|164 355|304 000 070|054|036|170 070|300 077 003|304 000 174|164 060|036|301 077 003|202 273 336
AND; =M3; SHL-10; SETB70; AND; -; =C3; Y3M3; SET124; SHLC3; -; =Y3M3; J4;
=== Start P63V-1; at address 3055/5757
5757/0: 164 033|065|164 041|164 301|056 P63; SHL13; REV; SHL16; SHL-32; +;
5760/2: 042|225 113 362|027|033|304 000 300|164 021|056|202 273 360 1; DUP; J2>Z; NEG; NOT; SETB300; SHL8; +; J1;
[ -- 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/5767
P100; (TREE S.R.);
5767/0: 173 000|056|174 000|200 360 000 LINK; +; =LINK; EXIT1;
=== Start P101V5; at address 3071/5777
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 272 V4P33; DUP; J4≠Z; ERASE; YA28;
6015/2: 302 077 003|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 077 002|200 334 077|052|300 013 375|301 014 072|300 077 001|200 334 077
5; Y2M3; JSP125; ERASE; V4; =V1P125; Y1M3; JSP125;
6032/2: 052|300 077 000|200 334 077|052|300 013 374|301 014 072 ERASE; Y0M3; JSP125; ERASE; V3; =V1P125;
6034/4: 300 016 252|171 062|036|223 154 037|304 000 003|172 062|201 274 027
YA12; M3; -; J6=Z; SET3; =+M3; J5;
[== Page 71
[ -- Brian W
6037/3: 052|027|033|042|224 154 001|171 362|042|170 070|170 062|300 016 272
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 236|164 041|300 016 240|056|164 041|300 016 247|056 YA0; SHL16; YA2; +; SHL16; YA9; +;
6052/3: 200 334 077|052|300 016 252|164 041|300 016 250|056|164 041|300 016 251
JSP125; ERASE; YA12; SHL16; YA10; +; SHL16; YA11;
6055/3: 056|200 334 077|052|300 016 241|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/6077
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/6117
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;
[ -- Graham T
[== Page 72
6137/0: 300 014 116|170 376|200 360 000 5; V3; =Q15; EXIT1;
=== Start P113V75; at address 3245/6255
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;
[ -- 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;
6325/2: 164 011 SHL+4;
6325/4: 164 041|011|200 274 321 51; SHL+16; OR; J48;
6326/4: 304 000 035|036|201 154 310 50; SETB35; -; J43≠Z;
6327/5: 300 014 234|170 343 V59; =RM14;
6330/4: 303 354 242|171 342|301 014 234|202 274 310 =V65M14Q; M14; =V59; J158;
6332/3: 052|304 000 003|301 014 141|203 274 335 52; ERASE; SET3; =V0; J60;
6334/1: 017|017|017|017|017|202 334 357 *58; JS59;
6335/3: 304 014 335|170 362|100 360|301 014 231 60; SETAR58; =M15; M0M15; =V56;
6337/1: 300 014 234|170 351 V59; =RC14;
6340/0: 201 274 346 J57;
6340/3: 041|300 354 242|042|164 101|164 301 99; ZERO; V65M14; DUP; SHL+32; SHL-32;
6342/0: 300 014 231|201 335 262|164 021|201 335 262|164 041 V56; JS56; SHL+8; JS56; SHL+16;
6344/1: 201 335 262|052|052|065|164 061 JS56; ERASE; ERASE; REV; SHL+24;
6345/3: 011 OR;
6345/4: 303 354 242 =V65M14Q;
[== Page 74
[ -- Brian W
6346/1: 263 354 340 57; J99C14NZ;
6346/4: 300 014 234|170 351|204 274 352 73; V59; =RC14; J72;
6350/0: 302 354 242|042|164 101|164 301|300 014 142 71; V65M14Q; DUP; SHL+32; SHL-32; V1;
6351/5: 015|223 155 120 NEV; J76=Z;
6352/3: 052 ERASE;
6352/4: 260 354 350 72; J71C14NZ;
6353/1: 300 014 222|300 014 141|304 000 003|036|011 91; V49; V0; SET3; -; OR;
6355/0: 201 154 361 J74≠Z;
6355/3: 300 014 142|174 000|201 335 250|202 360 000 V1; =LINK; JS13; EXIT;
6357/2: 202 335 234|173 000|301 014 142 59; JS12; LINK; =V1;
6360/4: 204 274 346 J73;
6361/1: 300 014 142|301 014 235|204 335 201 74; 140; V1; =V60; JS141;
6362/4: 042|042|301 014 150|041|301 014 230 DUP; DUP; =V7; ZERO; =V55;
6364/1: 164 365|042|221 154 375 SHL-6; DUP; J15=Z;
6365/1: 201 335 222 JS8;
6365/4: 042|203 155 004 DUP; J17≠Z;
6366/2: 052|042|164 361|304 000 177|015 ERASE; DUP; SHL-8; SETB177; NEV;
6367/4: 202 154 375 J159≠Z;
6370/1: 041|033|301 014 230|304 277 377|205 335 212 ZERO; NOT; =V55; SETB137777; JS4;
6372/0: 164 107|164 273|301 014 145|304 061 000|056 SHL+35; SHL-35; =V4; SETB30400; +;
6373/5: 164 021|204 335 017 SHL+8; JS18;
6374/4: 065|052 REV; ERASE;
6375/0: 041 14; ZERO;
6375/1: 052 15; ERASE;
6375/2: 300 014 147|065 159; V6; REV;
6376/0: 166 361|041|200 034 376 16; SHLD-8; ZERO; J16≠;
6377/0: 052|304 015 002|170 362|042|101 360 ERASE; SETAR10; =M15; DUP; =M0M15;
6400/3: 101 360|201 335 250 =M0M15; JS13;
6401/2: 017|017|017|017|017 *10; DUMMY;
[ -- Graham T
[== Page 75
6402/1: 017|017|017|017|017|202 335 234|304 000 056|200 275 035 *11; JS12; SETB56; J21;
6404/3: 201 335 222 17; JS8;
6405/0: 200 154 375 J14≠Z;
6405/3: 041|033|301 014 230 ZERO; NOT; =V55;
6406/2: 042|164 351|304 010 011|221 034 375 DUP; SHL-12; SETB4011; J15=;
6407/5: 304 010 017|221 035 025 SETB4017; J19=;
6410/5: 304 010 057|221 035 025 SETB4057; J19=;
6411/5: 304 017 217|054|304 010 015|015|204 155 015 SETB7617; AND; SETB4015; NEV; J162≠Z;
6413/4: 304 240 000|205 335 212 SETB120000; JS4;
6414/4: 174 000|304 140 000|015 =LINK; SETB60000; NEV;
6415/4: 204 335 017|065|164 301|301 014 145|202 274 375 162; JS18; REV; SHL-32; =V4; J159;
6417/4: 041|065|166 351|167 363|166 377 18; ZERO; REV; SHLD-12; SHC-7; SHLD-1;
6421/0: 167 011|166 373 SHC+4; SHLD-3;
6421/4: 304 015 033|164 101|065|166 007|167 371 SETAR9; SHL+32; REV; SHLD+3; SHC-4;
6423/2: 166 003|167 017|166 031|065|052|200 360 000 SHLD+1; SHC+7; SHLD+12; REV; ERASE; EXIT1;
6425/1: 041|066 19; ZERO; CAB;
6425/3: 166 351|164 363|166 377|052|164 273 SHLD-12; SHL-7; SHLD-1; ERASE; SHL-35;
6427/0: 065|167 365|224 055 030 REV; SHC-6; J20<Z;
6430/0: 304 140 000|011 SETB60000; OR;
6430/4: 173 000|301 014 142 20; LINK; = V1;
6431/3: 205 335 212|301 014 145|203 275 033 JS4; =V4; J93;
6433/0: 202 335 234 *9; JS12;
6433/3: 300 014 145 93; V4;
6434/0: 301 014 142|304 000 052 =V1; SETB52;
6435/0: 164 031|300 014 240|200 055 037 21; SHL+12; V63; J96≥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;
[ -- 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;
6447/3: 300 014 230|205 155 051 V55; J120≠Z;
6450/3: 042|205 155 051 DUP; J120≠Z;
6451/1: 052|204 274 346 133; ERASE; J73;
6451/5: 052|304 014 201|161 003|170 363|300 014 235|042 120; ERASE; SETAV32; SHA+1; =RM15; V60; DUP;
6453/5: 164 107|164 375|304 000 005|200 335 225 SHL+35; SHL-2; SET5; JS22;
6455/3: 164 031|065|164 101|164 247|304 003 320 SHL+12; REV; SHL+32; SHL-45; SETB1720;
6457/1: 011|011|042|107 360|164 061 OR; OR; DUP; =M0M15QH; SHL+24;
6460/2: 107 360|041|107 360|300 014 150|042 =M0M15QH; ZERO; =M0M15QH; V7; DUP;
6461/5: 164 245|205 335 230 SHL-46; JS24;
6462/4: 042|220 155 066 DUP; J121=Z;
6463/2: 027|033|205 335 230 NEG; NOT; JS24;
6464/1: 042|223 155 066 DUP; J122=Z;
6464/5: 205 335 230 JS24;
6465/2: 052|205 275 066 ERASE; J123;
6466/0: 107 360|041 121; =M0M15QH; ZERO;
6466/3: 107 360 122; =M0M15QH;
6466/5: 052|300 014 152|107 360 123; ERASE; V9; =M0M15QH;
6467/5: 300 014 153|304 000 004|043|036|225 055 071 V10; SET4; DUPD; -; J124<Z;
6471/4: 065 REV;
6471/5: 052|170 351 124; ERASE; =RC14;
6472/2: 260 355 074 J138C14NZ;
6472/5: 041|200 275 107 130; ZERO; J127;
6473/3: 041|107 360 125; ZERO; =M0M15QH;
[ -- Graham T
[== Page 77
6474/0: 302 354 154|042|304 000 010|200 335 225 138; V11M14Q; DUP; SET8; JS22;
6475/4: 042|107 360|164 061|107 360|164 061 DUP; =M0M15QH; SHL+24; =M0M15QH; SHL+24;
6477/1: 304 000 010|200 335 225|042|107 360|164 061 SET8; JS22; DUP; =M0M15QH; SHL+24;
6501/0: 107 360|263 355 073 =M0M15QH; J125C14NZ;
6501/5: 171 342|304 000 004|036|205 155 072 126; M14; SET4; -; J130≠Z;
6503/2: 041|107 360 ZERO; =M0M15QH;
6503/5: 300 014 153|304 000 012|036|042|202 055 117 137; V10; SET10; -; DUP; J129≥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;
[ -- 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;
[ -- 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;
6617/4: 036|166 033|033|027 -; SHLD+13; NOT; NEG;
6620/3: 166 347|041 6; SHLD-13; ZERO;
6621/0: 052|166 273|052 7; ERASE; SHLD-35; ERASE;
6621/4: 200 360 000 EXIT1;
6622/1: 204 335 201|066|164 021|011|042 8; JS141; CAB; SHL+8; OR; DUP;
6623/3: 301 014 150|065|027|033|200 360 000 =V7; REV; NEG; NOT; EXIT1;
6625/0: 170 370|041 22; =C15; ZERO;
6625/3: 017|017|017|164 007|304 000 002|011|166 007|143 360 *23; SHL+3; SETB2; OR; SHLD+3; DC15;
6627/4: 177 360 J23C15NZS;
6630/0: 065|052|200 360 000 REV; ERASE; EXIT1;
6630/5: 065|042|164 021|065|164 377|304 000 003 24; REV; DUP; SHL+8; REV; SHL-1; SET3;
6632/3: 200 335 225|164 075|107 360|065 JS22; SHL+30; =M0M15QH; REV;
6633/5: 200 360 000 EXIT1;
6634/2: 224 255 241 12; J63EN;
6634/5: 301 014 154|171 376|301 014 144|304 000 017|170 371 =V11; Q15; =V3; SET15; =RC15;
6637/0: 223 255 240 61; J62EN;
6637/3: 303 374 155|260 375 237 =V12M15Q; J61C15NZ;
[== Page 80
[ -- Brian W
6640/3: 171 362|033|027|204 275 242 62; M15; NOT; NEG; J64;
6641/4: 171 376|301 014 144|041 63; Q15; =V3; ZERO;
6642/4: 301 014 153|171 356|301 014 237|041 64; =V10; Q14; =V62; ZERO;
6644/1: 221 215 245|202 275 245 J75V; J94;
6645/1: 033 75; NOT;
6645/2: 301 014 241 94; =V64; (OVERFLOW);
6645/5: 041 ZERO;
6646/0: 220 355 247|201 275 247 J95TR; J108;
6647/0: 033 95; NOT;
6647/1: 301 014 240 108; =V63; (TEST REGISTER);
6647/4: 200 360 000 EXIT1;
6650/1: 300 014 153|042|223 155 254 13; V10; DUP; J67=Z;
6651/2: 027|033|042|170 370|170 362 NEG; NOT; DUP; =C15; =M15;
6652/3: 145 360|205 275 253 I15=-1; J66;
6653/2: 302 374 154 65; V11M15Q;
6653/5: 262 375 253 66; J65C15NZ;
6654/2: 041 ZERO;
6654/3: 052|300 014 237|170 356|300 014 144|170 376 67; ERASE; V62; =Q14; V3; =Q15;
6656/2: 300 014 240|002 V63; =TR; (restore test register);
6657/0: 001|300 014 241|161 141|052 VR; V64; SHA+48; ERASE; (restore overflow);
6660/1: 300 014 153|224 155 261 V10; J68=Z;
6661/1: 300 014 154 V11;
6661/4: 200 360 000 68; EXIT1;
6662/1: 164 261|202 335 327|051|012|164 021 56; SHL-40; JS53; REVD; PERM; SHL+8;
6663/4: 011|012|065|300 014 231|200 360 000 OR; PERM; REV; V56; EXIT1;
6665/1: 052 41; ERASE;
6665/2: 300 014 232|300 014 233 35; V57; V58;
6666/2: 170 350|264 355 276 =C14; J37C14NZ;
6667/1: 300 014 231 V56;
[== Page 81
[ -- Roderick McL
6667/4: 170 376|262 375 274 =Q15; J36C15NZ;
6670/3: 300 014 221|170 376|300 014 174|170 370|125 360|203 335 373|203 275 270
155; V48; =Q15; V27; =C15; PREQ15; JS150; J155;
6673/3: 304 000 020|170 371 SET16; =RC15;
6674/2: 052|302 374 201|171 376|301 014 231|304 000 010 36; ERASE; V32M15Q; Q15; =V56; SET8;
6676/2: 170 350 =C14;
6676/4: 041|166 015 37; ZERO; SHLD+6;
6677/1: 143 340|171 350|301 014 233 DC14; C14; =V58;
6700/2: 065|301 014 232|304 000 017|220 035 316 REV; =V57; SETB17; J38=;
6702/0: 042|304 000 020|036|221 055 265 DUP; SETB20; -; J41<Z;
6703/2: 042|304 000 032|036|220 055 317 DUP; SETB32; -; J40<Z;
6704/4: 042|304 000 040|036|220 055 316 DUP; SETB40; -; J38<Z;
6706/0: 042|304 000 041|036|221 055 265 DUP; SETB41; -; J41<Z;
6707/2: 042|304 000 073|036|223 055 316 DUP; SETB73; -; J39<Z;
6710/4: 304 000 075|201 035 265 SETB75; J41≠;
6711/4: 201 335 313|173 000|052|203 274 332 JS92; LINK; ERASE; J52;
6713/1: 300 014 174|170 371|140 360|120 361 92; V27; =RC15; M+I15; MANUALQ15;
6714/4: 041|301 014 233|041|301 014 231 ZERO; =V58; ZERO; =V56;
6716/0: 200 360 000 38; EXIT1;
6716/3: 202 360 001 39; EXIT2;
6717/0: 304 000 020|036|200 360 001 40; SETB20; -; EXIT3;
6720/1: 042|164 101|164 301|065|042 78; DUP; SHL+32; SHL-32; REV; DUP;
6721/2: 201 335 325|164 021|201 335 325|164 041|201 335 325 JS77; SHL+8; JS77; SHL+16; JS77;
6723/3: 012|052|052|041 PERM; ERASE; ERASE; ZERO;
6724/1: 301 354 242|200 360 000 =V65M14; EXIT1;
6725/1: 164 261|066|065|202 335 327|052 77; SHL-40; CAB; REV; JS53; ERASE;
6726/3: 065|042|200 360 000 REV; DUP; EXIT1;
6727/2: 065|042|042|164 347|304 000 005 53; REV; DUP; DUP; SHL-13; SET5;
6730/4: 036|205 155 332 -; J54≠Z;
6731/2: 164 107|164 273|033|027|203 275 333 SHL+35; SHL-35; NOT; NEG; J55;
[== Page 82
[ -- Roderick McL
6732/5: 304 040 000|056 54; SETB20000; +;
6733/3: 012|042|164 347|164 007|170 370 55; PERM; DUP; SHL-13; SHL+3; =C15;
6734/5: 164 107|164 273|170 362|100 360 SHL+35; SHL-35; =M15; M0M15;
6736/1: 167 360|041|166 021|012|065 SHCC15; ZERO; SHLD+8; PERM; REV;
6737/2: 166 361|052|142 360|167 360 SHLD-8; ERASE; NC15; SHCC15;
6740/3: 101 360|200 360 000 =M0M15; EXIT1;
6741/2: 052|200 275 165 84; ERASE; J85;
6742/0: 164 255|304 000 020|036|042|304 000 005|200 220 000 69; SHL-42; SETB20; -; DUP; SET5; OUT;
6744/1: 065|164 125|011|200 360 000 REV; SHL+42; OR; EXIT1;
6745/2: 041|170 343|300 014 154|304 000 005|221 035 361 ZERO; =RM14; V11; SET5; J161=;
6747/2: 304 000 006|036|203 155 354 SET6; -; J163≠Z;
6750/3: 300 014 155|164 061|300 354 174|164 061|220 035 356 V12; SHL+24; V27M14; SHL+24; J160=;
6752/4: 140 340|300 354 174|164 061|220 035 356 M+I14; V27M14; SHL+24; J160=;
6754/2: 052 172; ERASE;
6754/3: 201 335 250 163; JS13;
6755/0: 200 220 000|200 360 000 OUT; EXIT1;
6756/0: 052|300 354 174|164 005|164 375|301 354 174 160; ERASE; V27M14; SHL+2; SHL-2; =V27M14;
6757/5: 201 335 250|052 JS13; ERASE;
6760/3: 052|200 360 000 ERASE; EXIT1;
6761/1: 052|300 014 155|300 354 174|164 007|164 313 161; ERASE; V12; V27M14; SHL+3; SHL-27;
6763/0: 223 035 365 J164=;
6763/3: 140 340|300 354 174|164 007|164 313|202 035 354 M+I14; V27M14; SHL+3; SHL-27; J172≠;
6765/3: 052|300 354 174|164 003|223 055 354 164; ERASE; V27M14; SHL+1; J163<Z;
6767/0: 300 354 174|041|033|027|167 375 V27M14; ZERO; NOT; NEG; SHC-2;
6770/2: 011|042|301 354 174|164 061|164 321 OR; DUP; =V27M14; SHL+24; SHL-24;
6771/5: 301 014 155|201 335 250 =V12; JS13;
6772/5: 052|200 360 000 ERASE; EXIT1;
6773/3: 121 360|205 356 002 150; PARQ15; J151NTR;
6774/2: 120 361|171 370|304 000 020|011|167 365 MANUALQ15; C15; SETB20; OR; SHC-6;
[== Page 83
[ -- Roderick McL + Brian W
6776/0: 300 014 225|166 031|301 014 226|052 V52; SHLD+12; =V53; ERASE;
6777/3: 304 014 226|170 364|304 014 227|170 362|154 017 SETAV53; =I15; SETAV54; =M15; C0TOQ15;
7001/3: 131 360|203 335 373|200 360 000 TWEQ15; JS150; EXIT1;
7002/5: 202 360 001 151; EXIT2;
=== Start P114V72; at address 3661/7115
P114V72; (OUT 8);
(1 param-q str in normal output format);
7115/0: 171 376|301 016 004|171 356|301 016 005|171 336|301 016 006 Q15; =V0; Q14; =V1; Q13; =V2;
7117/3: 170 376|157 376|141 340|171 342|033|027|042|042 =Q15; Q15TOQ14; M-I14; M14; NOT; NEG; DUP; DUP;
7121/3: 170 351|170 331|171 364|170 342|304 016 054|042|170 322 =RC14; =RC13; I15; =M14; SETAV40; DUP; =M13;
7123/5: 102 340|103 320|265 336 123 20; M0M14Q; =M0M13Q; J20C13NZ;
7125/0: 170 343|170 350|041|301 016 012|300 016 010|200 156 137 =RM14; =C14; ZERO; =V6; V4; J11≠Z;
7127/2: 171 370|304 000 005|036|201 156 132|300 016 011|170 323|202 276 143
C15; SET5; -; J16≠Z; V5; =RM13; J1;
7132/1: 171 376|171 356|171 336|304 000 005|170 370|300 016 011|170 323|204 336 206
16; Q15; Q14; Q13; SET5; =C15; V5; =RM13; JS8;
7135/2: 041|301 016 012|170 336|170 356|170 376 ZERO; =V6; =Q13; =Q14; =Q15;
7137/0: 041|301 016 010|304 016 013|170 323|171 370|304 000 003|220 036 211
11; ZERO; =V4; SETAV7; =RM13; C15; SET3; J9=;
7141/5: 202 056 143|304 377 377|301 016 007 J1≥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;
[== Page 84
[ -- 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/7216
Finished
7215/2: 017|017|017|017 *139; FINISH;
Reached end of file