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