Usercode Paper Tape Compiler
This assembler listing has hot links for all JS instructions -- under development.
You can click on the instruction in code such as JS123
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.
Also the lines which give the page numbers are hot links to the photographs of the
original listing.
Loaded 84981 bytes for usercode2.txt
Relocated 24
Finished
Reached end of file
=============== Second pass
===========================
5526 W0 = E2902
7500 Y0 = E3904
5526 YA0 = E2902
6253 YB0 = E3243
7466 YC0 = E3894
7470 YD0 = E3896
0/0: 200 261 260
[Page number 1
ST 7008; [ was ST 7008; added in 2048 to 9056 then 16384 also tried ST 30720;
TL 999;
V423;
YA340;
YB650;
YC1;
YD 7;
4/0: 204 263 000|204 263 000 RESTART;J979;J979;
PROGRAM;
V-store at 00010 = 367 337 175 367 337 175
V-store at 00011 = 000 000 000 000 000 000 V0=B7575757575757575; V1=B0;
V-store at 00012 = 071 012 073 054 055 013
V-store at 00013 = 000 003 000 001 000 014 V2=B1620507313026413; V3=Q3/1/12;
V-store at 00014 = 000 000 026 000 003 136
V-store at 00015 = 000 000 030 000 327 221 V4=B2600001536; V5=B3000153621;
V-store at 00016 = 000 000 054 000 006 117
V-store at 00017 = 000 000 003 001 107 336 V6=B5400003117; V7=B300243736;
V-store at 00020 = 000 120 002 201 351 034
V-store at 00021 = 000 002 000 001 000 022 V8=B5000240364434; V9=Q2/1/18;
V-store at 00022 = 000 000 066 000 003 015
V-store at 00023 = 000 000 050 001 246 137 V10=B6600001415; V11=B5000323137;
V-store at 00024 = 000 000 000 000 000 000
V-store at 00025 = 000 003 000 001 000 026 V12=0; V13=Q3/1/22;
V-store at 00026 = 000 154 000 000 006 234
V-store at 00027 = 000 156 000 001 106 234 V14=B6600000003234; V15=B6700000243234;
V-store at 00030 = 000 155 000 001 206 234
V-store at 00031 = 000 003 000 001 000 032 V16=B6640000303234; V17=Q3/1/26;
V-store at 00032 = 000 000 042 000 010 033
V-store at 00033 = 000 000 043 002 006 317 V18=B4200004033; V19=B4300403317;
V-store at 00034 = 000 000 017 201 206 044
V-store at 00035 = 000 000 024 145 107 223 V20=B1740303044; V21=B2431243623;
V-store at 00036 = 000 003 000 001 000 037
V-store at 00037 = 000 000 045 000 005 043 V22=Q3/1/31; V23=B4500002443;
V-store at 00040 = 000 000 024 135 243 037
V-store at 00041 = 000 000 067 000 007 115 V24=B2427321437; V25=B6700003515;
V-store at 00042 = 000 005 127 150 307 317
V-store at 00043 = 000 173 000 001 106 126 V26=B252732143717; V27=B7540000243126;
V-store at 00044 = 000 130 000 000 006 334
V-store at 00045 = 000 131 000 001 264 034 V28=B5400000003334; V29=B5440000332034;
V-store at 00046 = 000 134 002 001 227 334
V-store at 00047 = 000 011 000 001 001 057 V30=B5600200313734; V31=Q9/1/303;
V-store at 00050 = 000 000 000 000 000 000
V-store at 00051 = 272 360 063 302 030 345 V32=0; V33=B5657006360414345; (no space);
[Page number 2
V-store at 00052 = 000 000 000 000 000 000
V-store at 00053 = 000 002 000 001 000 054 V34=0; V35=Q2/1/44;
V-store at 00054 = 000 152 000 001 366 234
V-store at 00055 = 000 153 000 141 366 234 V36=B6500000373234; V37=B6540030373234;
V-store at 00056 = 000 017 000 001 000 057
V-store at 00057 = 000 127 000 065 324 034 V38=Q15/1/47; V39=B5340015352034;
V-store at 00060 = 000 126 000 000 327 134
V-store at 00061 = 000 136 000 065 345 234 V40=B5300000153534; V41=B5700015362634;
V-store at 00062 = 000 120 010 000 327 334
V-store at 00063 = 000 122 000 001 007 334 V42=B5001000153734; V43=B5100000203734;
V-store at 00064 = 000 125 000 105 324 034
V-store at 00065 = 000 124 000 001 027 134 V44=B5240021352034; V45=B5200000213534;
V-store at 00066 = 000 134 000 105 345 234
V-store at 00067 = 000 130 014 110 306 334 v46=B5600021362634; V47=B5401422143334;
V-store at 00070 = 000 120 004 001 163 134
V-store at 00071 = 000 131 010 136 044 034 V48=B5000400271534; V49=B5441027422034;
V-store at 00072 = 000 130 010 001 170 234
V-store at 00073 = 000 136 010 166 043 334 V50=B5401000274234; V51=B5701035421734;
V-store at 00074 = 000 131 000 002 044 034
V-store at 00075 = 000 130 000 000 010 234 V52=B5440000422034; V53=B5400000004234;
V-store at 00076 = 000 003 031 200 305 334
V-store at 00077 = 000 000 042 121 264 034 V54=B143140142734; V55=B4224332034;
V-store at 00100 = 000 002 000 001 000 101
V-store at 00101 = 000 000 032 000 003 043 V56=Q2/1/65; V57=B3200001443;
V-store at 00102 = 000 000 072 000 310 321
V-store at 00103 = 000 000 000 001 366 234 V58=B7200144321; V59=B373234;
V-store at 00104 = 000 010 000 001 000 105
V-store at 00105 = 000 100 000 000 000 000 V60=Q8/1/69; V61=B4000000000000;
V-store at 00106 = 000 102 000 000 000 034
V-store at 00107 = 000 104 000 000 000 023 V62=B4100000000034; V63=B4200000000023;
V-store at 00110 = 000 106 000 000 007 023
V-store at 00111 = 000 110 000 000 000 031 V64=B4300000003423; V65=B4400000000031;
V-store at 00112 = 000 112 000 000 007 031
V-store at 00113 = 000 114 000 000 004 331 V66=B4500000003431; V67=B4600000002331;
V-store at 00114 = 000 116 000 001 304 331
V-store at 00115 = 000 006 000 001 000 116 V68=B4700000342331; V69=Q6/1/78;
V-store at 00116 = 000 000 027 000 004 022
V-store at 00117 = 000 000 010 001 004 217 V70=B2700002022; V71=B1000202217;
V-store at 00120 = 000 000 031 001 004 221
V-store at 00121 = 000 000 071 101 043 321 V72=B3100202221; V73=B7120221721;
V-store at 00122 = 000 000 015 000 004 041
V-store at 00123 = 000 000 033 000 006 237 V74=B1500002041; V75=B3300003237;
V-store at 00124 = 000 012 000 001 000 125
V-store at 00125 = 000 121 000 000 307 134 V76=Q10/1/85; V77=B5040000143534;
V-store at 00126 = 000 130 014 110 306 334
V-store at 00127 = 000 125 010 164 344 034 V78=B5401422143334; V79=B5241035162034;
V-store at 00130 = 000 124 010 001 323 234
V-store at 00131 = 000 125 000 001 324 034 V80=B5201000351634; V81=B5240000352034;
V-store at 00132 = 000 124 000 000 007 134
V-store at 00133 = 000 131 000 002 044 034 V82=B5200000003534; V83=B5440000422034;
V-store at 00134 = 000 130 000 000 010 234
V-store at 00135 = 000 131 010 210 344 034 V84=B5400000004234; V85=B5441042162034;
V-store at 00136 = 000 130 010 002 043 234
V-store at 00137 = 000 157 000 001 366 234 V86=B5401000421634; V87=B6740000373234;
[Page number 3
V-store at 00140 = 000 000 012 001 007 130
V-store at 00141 = 000 006 000 001 000 142 V88=B1200203530; V89=Q6/1/98;
V-store at 00142 = 003 120 000 000 004 041
V-store at 00143 = 002 220 000 001 010 117 V90=B65000000002041; V91=B51000000204117;
V-store at 00144 = 000 340 000 152 006 117
V-store at 00145 = 001 000 032 201 223 321 V92=B16000032403117; V93=B20003240311721;
V-store at 00146 = 000 300 032 201 223 323
V-store at 00147 = 001 026 240 144 364 321 V94=B14003240311723; V95=B21324031172321;
V-store at 00150 = 000 000 000 001 106 126
V-store at 00151 = 000 005 000 001 000 152 V96=B243126; V97=Q5/1/106;
V-store at 00152 = 000 124 004 001 166 234
V-store at 00153 = 000 125 000 001 324 034 V98=B5200400273234; V99=B5240000352034;
V-store at 00154 = 000 124 000 000 007 134
V-store at 00155 = 000 131 000 002 044 034 V100=B5200000003534; V101=B5440000422034;
V-store at 00156 = 000 130 000 000 010 234
V-store at 00157 = 000 004 000 001 000 160 V102=B5400000004234; V103=Q4/1/112;
V-store at 00160 = 002 340 036 000 000 000
V-store at 00161 = 002 360 053 000 000 017 V104=B56003600000000; V105=B57005300000017;
V-store at 00162 = 003 300 075 000 000 021
V-store at 00163 = 001 060 022 000 003 321 V106=B74007500000021; V107=B23002200001721;
V-store at 00164 = 000 006 000 001 000 165
V-store at 00165 = 000 000 060 000 000 000 V108=Q6/1/117; V109=B6000000000;
V-store at 00166 = 000 000 062 000 000 021
V-store at 00167 = 000 000 061 000 000 017 V110=B6200000021; V111=B6100000017;
V-store at 00170 = 000 000 063 000 003 321
V-store at 00171 = 000 000 044 000 000 024 V112=B6300001721; V113=B4400000024;
V-store at 00172 = 000 000 064 000 000 035
V-store at 00173 = 000 012 000 001 000 174 V114=B6400000035; V115=Q10/1/124;
V-store at 00174 = 000 172 016 000 013 034
V-store at 00175 = 000 172 010 000 013 016 V116=B7501600005434; V117=B7501000005416;
V-store at 00176 = 000 172 004 000 013 024
V-store at 00177 = 000 172 002 000 013 030 v118=B7500400005424; V119=B7500200005430;
V-store at 00200 = 000 170 011 000 007 116
V-store at 00201 = 000 170 005 000 007 124 V120=B7401100003516; V121=B7400500003524;
V-store at 00202 = 000 170 003 000 007 130
V-store at 00203 = 000 170 016 000 000 034 V122=B7400300003530; V123=B7401600000034;
V-store at 00204 = 000 170 010 000 000 016
V-store at 00205 = 000 170 004 000 000 024 V124=B7401000000016; V125=B7400400000024;
V-store at 00206 = 000 000 000 000 000 000
V-store at 00207 = 000 012 000 001 000 210 V126=0; V127=Q10/1/136;
V-store at 00210 = 000 161 000 001 063 016
V-store at 00211 = 000 162 000 114 303 316 V128=B7040000231416; V129=B7100023141716;
V-store at 00212 = 000 164 000 001 065 316
V-store at 00213 = 000 166 000 115 163 316 V130=B7200000232716; V131=B7300023271716;
V-store at 00214 = 000 167 000 001 063 216
V-store at 00215 = 000 161 001 000 004 314 V132=B7340000231616; V133=B7040100002314;
V-store at 00216 = 000 162 001 001 063 017
V-store at 00217 = 000 164 001 000 004 327 V134=B7100100231417; V135=B7200100002327;
V-store at 00220 = 000 166 001 001 065 317
V-store at 00221 = 000 167 001 000 004 316 V136=B7300100232717; V137=B7340100002316;
V-store at 00222 = 000 004 000 001 000 223
V-store at 00223 = 000 000 037 001 104 231 V138=Q4/1/147; V139=B3700242231;
V-store at 00224 = 000 000 077 121 046 121
V-store at 00225 = 000 000 070 174 306 117 V140=B7724223121; V141=B7037143117;
V-store at 00226 = 000 000 047 000 007 335
V-store at 00227 = 000 002 000 001 000 230 V142=B4700003735; V143=Q2/1/152;
V-store at 00230 = 000 124 002 001 166 234
V-store at 00231 = 000 120 000 000 007 334 V144=B5200200273234; V145=B5000000003734;
[Page number 4
V-store at 00232 = 000 000 000 000 000 000
V-store at 00233 = 000 000 000 000 000 000 V146=0; V147=0;
V-store at 00234 = 000 000 000 000 000 000 V148=0;
V-store at 00235 = 000 000 000 000 000 000 V149=0;
V-store at 00236 = 000 000 000 300 000 337
V-store at 00237 = 000 000 000 340 000 377 V150=Q0/192/223; V151=Q0/224/255; (input buffers);
V-store at 00240 = 003 014 257 237 050 155
V-store at 00241 = 000 000 036 174 307 137 V152=B60625747624155; V153=B3637143537; (start inernal);
V-store at 00242 = 010 171 241 246 315 162 V154=B0207464151546562; (FAILUR);
V-store at 00243 = 224 014 245 302 374 264 V155=B4500624560576264; (REPORT);
V-store at 00244 = 000 000 000 000 000 000
V-store at 00245 = 000 000 000 000 000 000 V156=0; V157=0; (program number);
V-store at 00246 = 000 000 000 000 000 000 V158=0; (kind of failure);
V-store at 00247 = 000 000 063 322 034 264 V159=B6364416264; (START external);
V-store at 00250 = 000 000 000 000 000 000
V-store at 00251 = 000 000 000 000 000 000
V-store at 00252 = 000 000 000 000 000 000
V-store at 00253 = 000 000 000 000 000 000
V-store at 00254 = 000 000 000 000 000 000
V-store at 00255 = 000 000 000 000 000 000 V160=0; V161=0; V162=0; V163=0; V164=0; V165=0;
V-store at 00256 = 000 000 000 000 000 000
V-store at 00257 = 000 000 000 000 000 000
V-store at 00260 = 000 000 000 000 000 000
V-store at 00261 = 000 000 000 000 000 000
V-store at 00262 = 000 000 000 000 000 000
V-store at 00263 = 000 000 000 000 000 000 V166=0; V167=0; V168=0; V169=0; V170=0; V171=0;
V-store at 00264 = 000 000 000 000 000 000
V-store at 00265 = 000 000 000 000 000 000
V-store at 00266 = 000 000 000 000 000 000 V172=0; V173=0; V174=0;
V-store at 00267 = 200 320 004 200 320 004 V175=B4015000440150004; (JSE4 JSE4);
V-store at 00270 = 200 260 000 000 000 000 V176=B4013000000000000; (JE8...);
V-store at 00271 = 000 000 000 034 054 002 V177=B07026002; (standard opening);
V-store at 00272 = 001 324 036 174 307 137 V178=B35203637143537; (Restart internal)
V-store at 00273 = 002 330 143 242 233 245 V179=B55414350515645; (MACHINE);
V-store at 00274 = 000 000 000 000 000 000
V-store at 00275 = 000 000 041 001 007 132 V180=0; V181=B4100203532;
V-store at 00276 = 000 011 251 272 234 302 V182=B0000465156516302;
V-store at 00277 = 000 000 000 000 000 000 V183=0; (failure peripheral device);
V-store at 00400 = 317 113 362 224 013 064 V248=B6364576245005464; (store lt);
V-store at 00401 = 322 233 145 002 315 037 V249=B6451554500546437; (time lt);
V-store at 00402 = 330 014 360 226 073 237 V250=B6600636045435637; (V SPECN.);
V-store at 00403 = 013 220 063 302 130 356 V251=B0271006360454356;
V-store at 00404 = 334 014 360 226 073 237 V252=B6700636045435637; (W SPECN.);
V-store at 00405 = 002 353 300 300 375 037 V253=B56570060176437; (NO P/T.);
V-store at 00406 = 000 000 064 247 113 045 V254=B6451645445; (TITLE);
[Page number 5
V-store at 00407 = 346 020 063 302 130 356 V255=B7141006360454356; (YA SPECN);
V-store at 00410 = 003 051 163 322 034 264 V256=B62456364416264; (RESTART);
V-store at 00411 = 003 232 100 327 071 144 V257=B71510065634544; (YI USED);
V-store at 00412 = 003 233 300 327 071 144 V258=B71570065634544; (YO USED);
V-store at 00413 = 000 014 041 312 235 071 V259=B604162516471; (PARITY);
V-store at 00414 = 226 320 046 277 133 244 V260=B4555004657655644;
V-store at 00415 = 000 000 000 000 000 000 V261=0;
(M8 value initial);
V-store at 00416 = 000 000 000 000 000 000 V262=0; (current P number);
V-store at 00417 = 000 000 000 000 000 000 V263=0; (ALGOL compiler only);
V-store at 00420 = 000 000 000 000 000 000 V264=0; (marker for fetch and store instructiohs);
V-store at 00421 = 000 000 000 300 000 000 V265=B60000000;
V-store at 00422 = 377 377 377 377 376 014 V266=-500; (address 1st entry S÷R test);
V-store at 00423 = 000 000 000 000 000 000 V267=0; (address of last syllable);
V-store at 00424 = 000 000 000 000 000 000 V268=0; (address of last syllable of routine p402);
V-store at 00425 = 000 020 000 001 001 026 V269=Q16/1/278;
V-store at 00426 = 220 020 000 000 000 064 V270=B4401000000000064; (=);
V-store at 00427 = 200 020 000 000 000 074 V271=B4001000000000074; (≠);
V-store at 00430 = 200 100 000 003 234 245 V272=B4004000000716245; (×LZ);
V-store at 00431 = 220 100 000 000 014 345 V273=B4404000000006345; (>);
V-store at 00432 = 200 040 000 003 234 345 V274=B4002000000716345; (≥);
V-store at 00433 = 220 040 000 000 014 245 V275=B4402000000006245; (<);
V-store at 00434 = 220 140 000 000 015 045 V276=B4406000000006445; (=Z);
V-store at 00435 = 200 140 000 000 017 045 V277=B4006000000007445; (≠Z);
V-store at 00436 = 220 200 000 000 000 041 V278=B4410000000000041; (V);
V-store at 00437 = 200 200 000 000 006 141 V279=B4010000000003141; (NV);
V-store at 00440 = 220 240 000 000 004 031 V280=B4412000000002031; (EN);
[Page number 6
V-store at 00441 = 200 240 000 001 224 031 V281=B4012000000312031; (NEN);
V-store at 00442 = 220 300 000 000 004 025 V282=B4414000000002025; (EJ);
V-store at 00443 = 200 300 000 001 224 025 V283=B4014000000312025; (NEJ);
V-store at 00444 = 220 340 000 000 007 335 V284=B4416000000003735; (TR);
V-store at 00445 = 200 340 000 001 227 335 V285=B4016000000313735; (NTR);
V-store at 00446 = 000 000 000 200 260 000
V-store at 00447 = 000 177 000 001 231 136 V286=B40130000; V287=B0007740000314536; (NZS);
V-store at 00450 = 000 000 000 000 000 000 V288=0; (set marker);
V-store at 00451 = 000 000 000 304 000 000
V-store at 00452 = 002 353 364 002 233 200 V289=B61000000; (set instruction); V290=b56576400515600;
V-store at 00453 = 000 000 000 000 000 000 V291=0;
V-store at 00454 = 000 000 000 000 000 000 V292=0; (P.number);
V-store at 00455 = 000 000 000 000 000 000 V293=0; (last label);
V-store at 00456 = 000 000 000 000 000 000 V294=0; (instruction counter);
(V295 to V303 is input record buffer);
V-store at 00470 = 000 000 000 000 041 375 V304=B020775;
V-store at 00471 = 000 000 020 101 004 020 V305=B2020202020;
V-store at 00472 = 004 020 112 050 242 212 V306=B0101011212121212;
V-store at 00473 = 146 146 146 146 146 146 V307=B3146314631463146;
V-store at 00474 = 063 063 063 063 063 063 V308=B1463146314631463;
V-store at 00475 = 002 136 051 320 010 162 V309=B45705164004162;
V-store at 00476 = 000 000 000 200 220 000 V310=B40110000;
V-store at 00477 = 000 003 000 001 001 100 V311=Q3/1/320;
V-store at 00500 = 202 360 000 002 065 037 V312=B4057000000432437;
V-store at 00501 = 222 360 000 215 107 317 V313=B4457000043243717;
V-store at 00502 = 000 000 052 164 307 220 V314=B5235143620;
V-store at 00503 = 000 000 043 121 363 035 V315=B4324371435;
[Page number 7
V-store at 00504 = 000 000 000 202 360 000 V316=B40570000;
V-store at 00505 = 000 000 043 121 363 033 V317=B4324371433;
V-store at 00506 = 000 000 043 121 363 027 V318=B4324371427;
V-store at 00507 = 000 000 000 002 065 037 V319=B432437;
V-store at 00510 = 004 020 110 040 202 010 V320=B0101011010101010;
V-store at 00511 = 002 375 164 002 056 136 V321=B57656400427136;
V-store at 00512 = 000 015 160 222 035 045 V322=B656044416445;
V-store at 00513 = 000 000 000 001 326 222 V323=B353222;
V-store at 00514 = 000 007 132 111 323 030 V324=B353222351430;
V-store at 00515 = 165 244 235 061 206 020 V325=B3532223514303020;
V-store at 00516 = 000 000 000 000 000 000 V326=0; (last label number);
V-store at 00517 = 003 200 046 326 353 271 V327=B70004665565671; (XFUNNY);
V-store at 00520 = 031 231 231 231 231 232 V328=B0631463146314632;
V-store at 00564 = 212 235 000 262 234 364 V364=B4251640054516364;
V-store at 00565 = 262 230 200 262 234 364 V365=B5451420054516364;
V-store at 00566 = 010 174 317 310 013 051 V366=B207631762005451;
V-store at 00567 = 317 100 063 242 231 264 V367=B6364006350514664;
V-store at 00570 = 226 100 044 277 173 200 V368=B4544004457675600;
V-store at 00571 = 226 100 065 300 000 000 V369=B4544006560000000;
V-store at 00572 = 000 000 043 121 360 000 V370=B4324370000;
V-store at 00574 = 000 000 001 122 001 135 V372=Q0/338/349;
V-store at 00575 = 000 024 000 001 001 176 V373=Q20/1/382;
V-store at 00576 = 000 124 000 001 103 034 V374=B5200000241434; (PIAQQ);
V-store at 00577 = 000 125 000 001 103 134 V375=B5240000241534; (PIBQQ);
V-store at 00600 = 000 124 010 001 103 234 V376=B5201000241634; (PICQQ);
V-store at 00601 = 000 125 010 001 103 334 V377=B5241000241734; (PIDQQ);
[Page number 8
V-store at 00602 = 000 126 000 001 104 034 V378=B5300000242034; (PIEQQ);
V-store at 00603 = 000 127 000 001 104 134 V379=B5340000242134; (PIFQQ);
V-store at 00604 = 000 126 010 001 104 234 V380=B5301000242234; (PIGQQ);
V-store at 00605 = 000 127 010 001 104 334 V381=B5341000242334; (PIHQQ);
V-store at 00606 = 000 130 000 001 243 034 V382=B5400000321434; (POAQQ);
V-store at 00607 = 000 131 000 001 243 134 V383=B5440000321534; (POBQQ);
V-store at 00610 = 000 130 010 001 243 234 V384=B5401000321634; (POCQQ);
V-store at 00611 = 000 131 010 001 243 334 V385=B5441000321734; (PODQQ);
V-store at 00612 = 000 130 014 001 244 034 V386=B5401400322034; (POEQQ);
V-store at 00613 = 000 130 004 001 244 134 V387=B5400400322134; (POFQQ);
V-store at 00614 = 000 134 000 001 203 034 V388=B5600000301434; (PMAQQ);
V-store at 00615 = 000 120 010 001 203 134 V389=B5001000301534; (PMBQQ);
V-store at 00616 = 000 120 004 001 203 234 V390=B5000400301634; (PMCQQ);
V-store at 00617 = 000 136 010 001 203 334 V391=B5701000301734; (PMDQQ);
V-store at 00620 = 000 136 000 001 204 034 V392=B5700000302034; (PMEQQ);
V-store at 00621 = 000 122 000 001 204 134 V393=B5100000302134; (PMFQQ);
V-store at 00622 = 312 131 245 312 133 243 V394=B6245464562455643;
V-store at 00623 = 224 015 041 212 311 163 V395=B4500644142544563;
V-store at 00625 = 344 013 346 230 015 064 V397=B 7100 5746 4600 6464; (Y off st);
V-store at 00626 = 000 000 000 141 366 335 V398=B30373335;
V-store at 00627 = 000 000 000 267 114 062 V399=B55646062;
V-store at 00631 = 000 010 000 001 001 232 V401=Q8/1/410;
V-store at 00632 = 000 122 004 001 204 234 V402=B5100400302234; (PMGQQ);
V-store at 00633 = 000 130 002 001 204 334 V403=B5400200302334; (PMHQQ);
V-store at 00634 = 000 134 004 001 205 234 V404=B5600400302634; (PMKQQ);
V-store at 00635 = 000 136 004 001 205 334 V405=B5700400302734; (PMLQQ);
V-store at 00636 = 000 132 000 001 244 234 V406=B5500000322234; (POGQQ);
V-store at 00637 = 000 133 000 001 244 334 V407=B5540000322334; (POHQQ);
[Page number 9
V-store at 00640 = 000 133 010 001 245 234 V408=B5541000322634; (POKQQ);
V-store at 00641 = 000 132 010 001 245 334 V409=B5501000322734; (POLQQ);
V-store at 00654 = 000 000 000 000 000 000 V420=0; (EM MARKER)
V-store at 00655 = 000 000 000 000 000 000 V421=0; (REF. MARKER);
V-store at 00656 = 000 000 007 012 035 000 V422=B702416400; (AT);
V-store at 00657 = 377 377 377 000 000 000 V423=B77777777/23;
(start);
660/0: 200 332 273 JS1P2;
660/3: 304 033 137|304 013 126|036|170 031 SETAZ0; SETAYA0; -; =RC1;
662/0: 041|303 033 126|017|017|177 020 *760; ZERO; =YA0M1Q; *J760C1NZS;
663/2: 304 000 010|301 000 251|157 001|300 000 251|170 022|171 036|301 013 126|200 323 010
453; SET8; =V161; Q0TOQ1; V161; =M1; Q1; =YA0; JS44;
666/5: 041 ZERO;
667/0: 052|203 323 043 844; ERASE; JS26;
667/4: 042|202 322 143|200 141 267 DUP; JS860; J844≠Z;
670/5: 304 000 060|225 021 272|304 000 064|200 022 321 SETB60; J517=; SETB64; J487≠;
672/5: 052 517; ERASE;
673/0: 304 000 014|170 030|300 000 271|041|041 SET12; =C1; V177; ZERO; ZERO;
674/4: 052 959; ERASE;
674/5: 203 323 043|042|202 322 143|204 141 274 846; JS26; DUP; JS860; J959≠Z;
676/3: 042|304 000 017|036|220 042 326 DUP; SETB17; -; J480<Z;
677/5: 042|304 000 072|036|220 102 326 DUP; SETB72; -; J480>Z;
701/1: 304 000 040|220 022 326 SETB40; J480=;
702/1: 012|166 015|012|011|065|143 020|265 021 274 PERM; SHLD6; PERM; OR; REV; DC1; J846C1NZ;
704/0: 301 017 070|301 017 071|304 000 006|170 031|041|170 131 =YD0; =YD1; SET6; =RC1; ZERO; =RC5;
706/2: 203 323 043|304 000 075|225 021 310 849; JS26; SETB75; J848=;
707/5: 203 322 135|202 261 306 JS839; J849;
710/5: 041|203 322 135|265 121 310 848; ZERO; JS839; J848C5NZ;
712/0: 300 017 077|164 365|164 015|056|301 017 077 YD7; SHL-6; SHL6; +; =YD7;
[Page number 10
713/5: 300 000 270|301 017 100|041|301 017 101|300 017 070|042|301 000 244|301 017 102
495; V176; =Y0; ZERO; =Y1; YD0; DUP; =V156; =Y2;
717/1: 300 017 071|042|301 000 245|301 017 103 YD1; DUP; =V157; =Y3;
(set up skeleton B-block);
720/5: 304 031 153|304 017 077|036|170 210|304 376 014|170 202|145 200
SETAZ500; SETAY-1; -; =C8; SET-500; =M8; I8=-1;
723/3: 200 322 044 JS493; (skip CRLF symbols);
724/0: 200 323 140 JS12; (next group-no existing group);
724/3: 200 262 320|201 261 330 J485; (no store limit); J492; (no integer);
725/3: 042|164 343|200 142 320 DUP; SHL-15; J485≠Z; (absurd store limit);
726/3: 301 017 101 =Y1; (insert into B-block);
727/0: 304 000 073|036|200 142 320 SET59; -; J485≠Z; (terminator not a semi-colon);
730/1: 304 007 237|200 022 320 492; SETB3637; J484≠; (test for ST);
731/1: 052|200 322 044|200 323 140 ERASE; JS493; JS12; (next group-existing character);
732/2: 200 262 322|200 262 322 J483; (NO TIME); J483; (no specified time limit);
733/2: 161 061|300 017 101|056|301 017 101|304 000 073|036|200 142 322
SHA+24; Y1; +; =Y1; (insert into B-block); SET59; -; J483≠Z;
736/0: 304 007 327|036|200 142 322 SETB3727; -; J483≠Z; (test for TL);
737/1: 200 322 044|304 000 030|201 021 346|200 323 140|204 261 342|204 261 343|204 261 342
JS493; SET24; J496≠; JS12; J512; J513; J512;
742/4: 300 001 227|203 262 337 512; V399; J491;
743/4: 300 001 226|036|204 141 342 513; V398; -; J512≠Z;
744/5: 041|033|301 001 254|200 322 044 ZERO; NOT; =V420; JS493;
746/1: 304 000 036|202 021 356 496; SET30; J489≠;
747/1: 200 323 140|200 262 325|204 261 354 JS12; J481; J488; (no start);
750/4: 042|164 347|200 142 325 DUP; SHL-13; J481≠Z; (absurd start value);
751/4: 042|301 001 173|304 000 010|056|301 000 251 DUP; =V371; SET8; +; =V161;
753/3: 304 000 073|036|200 142 325 SET59; -; J481≠Z;
754/4: 300 000 241|036|200 142 325 488; V153; -; J481≠Z; (check START);
755/5: 200 322 044 JS493; (skip CRLF);
756/2: 304 000 044|200 021 363 489; SET36; J451≠; (test Y);
757/2: 052|157 001|205 323 043|042|223 141 365 ERASE; Q0TOQ1; JS25; DUP; J479=Z;
761/0: 304 000 044|304 000 001|301 000 274|204 262 046 SET36; SET1; =V180; J455;
[Page number 11
763/0: 304 000 023|205 021 376|052 451; SET19; J456≠; (test H); ERASE;
764/1: 304 000 030|170 030|205 323 043 SET24; =C1; JS25;
765/3: 164 015|205 323 043|056|164 015|205 323 043|056 479; SHL+6; JS25; +; SHL+6; JS25; +;
767/3: 304 015 020|036|200 142 327 SETB6420; -; J478≠Z; (test 0=E);
770/4: 205 323 037 JS3; (integer read first not read);
771/1: 042|164 367|164 013|065|222 021 373 DUP; SHL-5; SHL+5; REV; J477=;
772/4: 304 000 040|056 SET32; +; (failure of not module 32 is not in);
773/2: 042|164 343|200 142 327 477; DUP; SHL-15; J478≠Z; (test size);
774/2: 164 020|301 000 250|304 000 073|200 022 327|052 SHLC1; =V160; SET59; J478≠; ERASE;
776/2: 200 322 044 JS493;
776/5: 304 000 041|204 022 046 456; SET33; J455≠; (test V);
777/5: 052|205 323 043|304 000 073|224 022 042 ERASE; JS25; SET59; J465=; (null V);
1001/3: 203 323 033|033|027 JS6; NOT; NEG; (v+1);
1002/2: 042|164 347|200 142 324 460; DUP; SHL-13; J482≠Z; (test size);
1003/2: 042|170 024|041|170 030|300 000 251|056|170 022|171 036|301 013 126
DUP; =I1; ZERO; =C1; V161; +; =M1; Q1; =YA0;
(initialise first word of P0 test);
1006/1: 304 000 073|036|201 150 137|200 322 044 SET59; -; J282≠Z; JS493;
1007/5: 171 022|300 017 100|164 321|065|041|065|205 322 313|164 061 454; M1; Y0; SHL-24; REV; ZERO; REV; JS446; SHL+24;
1012/2: 301 017 100|300 000 274|202 142 024|205 323 043|065 =Y0; V180; J470≠Z; JS25; REV;
1014/3: 304 000 042|202 022 024 SETB42; J470≠; (TEST W);
1015/3: 052|304 000 073|222 022 043 ERASE; SET59; J461=;
1016/4: 203 323 033 JS6;
1017/1: 042|164 347|200 142 317 459; DUP; SHL-13; J486≠Z;
1020/1: 033|027|164 061|300 000 251|056|301 000 251|304 000 073|200 022 317
NOT; NEG; SHL+24; V161; +; =V161; SET59; J486≠; (FAIL);
1023/0: 052|200 322 044 ERASE; JS493;
1023/4: 205 323 043|065 JS25; REV;
1024/2: 304 000 244|170 122 470; SET164; =M5;
1025/1: 041|301 000 274 ZERO; =V180;
1025/5: 304 000 044|205 022 051 445; SETB44; J462≠; (test Y);
[Page number 12
1026/5: 052|042|304 000 014|036|220 042 330 ERASE; DUP; SETB14; -; J473<Z;
1030/2: 042|304 000 046|036|200 042 330 DUP; SETB46; -; J473≥Z;
1031/4: 170 022|205 323 043|304 000 073|225 022 040 =M1; JS25; SET59; J444=;
1033/3: 203 323 033|033|027|042 JS6; NOT; NEG; DUP;
1034/3: 164 343|200 142 330 SHL-15; J473≠Z;
1035/2: 164 061|105 025|304 000 073|203 022 336 SHL+24; =M5M1H; SET59; J472≠; (test terminator);
1037/0: 052|200 322 044|205 323 043|065|205 262 025 ERASE; JS493; JS25; REV; J445;
1040/5: 052|200 322 044|205 323 043|065|205 262 025 444; ERASE; JS493; JS25; REV; J445;
1042/4: 041|202 262 002 465; (Blank start); ZERO; J460;
1043/2: 041|201 262 017 461; (blank W); ZERO; J459;
1044/0: 304 000 073 493; (skip CRLF); SET59;
1044/3: 205 323 043|065|223 022 044|201 323 017|200 360 000 463; JS25; REV; J463=; JS46; EXIT1;
1046/4: 041|042|170 030|170 024 455; (no V specification); ZERO; DUP; =C1; =I1;
1047/4: 300 000 251|170 022|171 036|301 013 126|205 262 007 V161; =M1; Q1; =YA0; J454;
1051/5: 304 001 364|170 171|145 160|304 017 067|304 017 066|036|170 151
462; SET500; =RC7; I7=-1; SETAYD-1; SETAYC0; -; =RC6;
1054/3: 041|313 173 137 ZERO; =Z0M7Q;
1055/1: 304 000 035|205 022 122 SET29; J843≠;
1056/1: 164 015|056|200 323 140|200 262 331|204 262 060|200 262 331 (R); SHL+6; +; JS12; J467; J458; J467;
1060/4: 300 000 272|200 022 126 458; V178; J469≠; (not restart);
1061/4: 052|304 000 060|170 051|304 000 004|170 063|304 000 006|170 070|041|301 014 253
ERASE; SET48; =RC2; SET4; =RM3; SET6; =C3; ZERO; =YB0;
1065/0: 200 262 154 J511;
1065/3: 300 001 254|301 017 105|041|301 001 254 468; V420; =Y5; ZERO; =V420;
1067/1: 171 062|304 000 004|036|224 142 073 M3; SET4; -; J464=Z;
1070/4: 171 062|304 000 005|036|200 142 331 M3; SET5; -; J467≠Z;
1072/1: 171 070|304 000 006|036|200 142 331 C3; SET6; -; J467≠Z; (too many syllables);
1073/4: 041|170 111 464; ZERO; =RC4; (overall instruction count);
[Page number 13
1074/1: 304 000 006|170 071 SET6; =RC3; (storage moifier);
1075/0: 157 041|152 001|171 036|301 013 127 Q2TOQ1; I0TOQ1; Q1; =YA1; (initialise V-store pointer);
1076/3: 300 013 126|170 036|171 024|042|304 000 010|056|170 062|205 324 045
YA0; =Q1; I1; DUP; SET8; +; =M3; JS641;
(leave space for v×bits);
1101/2: 041|170 023|304 000 256|170 122|104 025 ZERO; =RM1; SET174; =M5; M5M1H;
1103/0: 203 142 335 J471≠Z; (YI);
1103/3: 304 000 261|170 122|104 025|203 142 336 SET177; =M5; M5M1H; J472≠Z; (YO);
1105/1: 304 000 252|170 122|304 000 031|170 022|145 020|300 000 250|164 061|200 142 112
SET170; =M5; SET25; =M1; I1=-1; V160; SHL+24; J449≠Z;
1110/3: 001|304 177 377|164 061|205 262 112 VR; SETB77777; SHL+24; J448;
449; (Y not blank);
1112/0: 300 000 250|164 061 V160; SHL+24;
1112/5: 104 025|036|042|107 025|171 022|033|027|205 142 112 448; M5M1H; -; DUP; =M5M1QH; M1; NOT; NEG; J448≠Z;
1115/0: 304 000 251|170 122|041|170 022|104 025|036|105 025 SET169; =M5; ZERO; =M1; M5M1H; -; =M5M1H;
1117/1: 171 210|171 062|036|170 210 C8; M3; -; =C8;
1120/2: 171 210|205 102 121|001|200 262 154 927; C8; J926≤Z; VR; J511;
1121/5: 204 332 004|202 262 120 926; JS874; J927;
1122/5: 304 000 033|036|200 142 332|200 323 140|200 262 332|200 262 126|200 262 332
843; SET27; -; J466≠Z; JS12; J466; J469; J466;
469; (test for PROGRAM etc);
1126/0: 300 001 113|223 022 131 V323; J457=;
1127/0: 300 001 114|223 022 131 V324; J457=;
1130/0: 300 001 115|223 022 131 V325; J457=;
1131/0: 200 262 332 J466; (failure);
1131/3: 304 000 001|301 000 274 457; SET1; =V180;
1132/3: 300 000 267|301 017 104|304 000 056|170 051|052|201 323 017|204 262 073
V175; =Y4; SET46; =RC2; ERASE; JS46; J464;
1135/3: 262 122 140 839; J842C5NZ;
1136/0: 244 022 142 J845C1Z;
1136/3: 303 037 072|304 000 007|170 130|200 360 000 =YD2M1Q; SET7; =C5; EXIT1;
1140/2: 300 037 071|164 015|056|301 037 071|143 120|200 360 000 842; YD1M1; SHL6; +; =YD1M1; DC5; EXIT1;
1142/4: 052|200 360 000 845; ERASE; EXIT1;
[Page number 14
1143/2: 041|225 022 152 860; ZERO; J861=;
1144/0: 304 000 002|225 022 152 SET2; J861=;
1145/0: 304 000 004|225 022 152 SET4; J861=;
1146/0: 304 000 006|225 022 152 SET6; J861=;
1147/0: 304 000 007|225 022 152 SET7; J861=;
1150/0: 304 000 076|225 022 152 SETB76; J861=;
1151/0: 304 000 077|225 022 152 SETB77; J861=;
1152/0: 052|041|200 360 000 ERASE; ZERO; EXIT1;
1152/5: 052|304 377 377|200 360 000 861; ERASE; SET-1; EXIT1;
1154/0: 201 323 017 511; JS46; (clear input record buffer);
1154/3: 205 323 043 JS25; (fetch first character of next instruction);
1155/0: 042|304 000 011|036|205 104 225 DUP; SET9; -; J138≤Z; (labels);
1156/2: 042|304 000 013|036|204 102 214 DUP; SET11; -; J508≤Z; (failure if = or.);
1157/4: 042|304 000 045|036|220 102 204 DUP; SET37; -; J507>Z; (letters);
1161/0: 167 377|042|220 102 164 201; SHC-1; DUP; J510>Z; (EVEN);
1162/0: 164 003|164 377|304 140 000|056|017|017|017|017|200 322 165 SHL1; SHL-1; SETB60000; + ;*510; JS509;
1164/3: 017|017|017|173 000|056|304 000 003|036|174 000|202 360 000 *509; LINK; +; SET3; -; =LINK; EXIT;
1167/0: 200 264 260|203 264 262|205 264 274|204 264 316|204 264 325|203 264 376|200 266 044|200 266 045
J112; J113; J114; J115; J272; J117; J118; J273;
1173/0: 205 266 047|202 266 103|203 266 147|202 266 162|205 266 207|205 266 270|205 266 277|204 266 306
J120; J274; J122; J123; J124; J125; J126; J127;
1177/0: 201 267 077|203 267 116|200 267 161|201 267 367|205 270 015|205 270 016|201 271 173|200 271 176
J128; J129; J130; J131; J132; J133; J134; J135;
1203/0: 200 271 177|205 271 201 J136; J137;
1204/0: 304 000 054|224 031 204 507; SET44; J142=; (+);
1205/0: 304 000 055|221 031 212 SET45; J143=; (-); (here provide for left square bracket if required - see notes);
1206/0: 304 000 064|220 031 213 SET52; J140=; (=);
1207/0: 304 000 065|221 031 275 SET53; J144=; (×);
1210/0: 304 000 066|221 031 333 SET54; J145=; (/);
1211/0: 304 000 067|225 031 335 SET55; J141=; (comment);
1212/0: 304 000 075|223 031 347 SET61; J139=; (×);
[Page number 15
1213/0: 304 000 073|204 022 214 SET59; J508≠; (ISS);
1214/0: 052|200 262 154 ERASE; J511;
502;
1214/4: 304 000 073 508; SET59;
1215/1: 205 323 043|201 022 215 506; JS25; J506≠;
503;
501;
1216/1: 221 242 253 500; J54EN;
1216/4: 052|201 262 216 ERASE; J500;
1217/2: 065|304 000 073|065 504; REV; SET59; REV;
1220/1: 201 022 215|201 262 216 505; J506≠; J503;
(syllable by syllable storage);
1221/1: 300 077 100|167 021|015|143 060|301 077 100|261 062 226 55; Y0M3; SHC8; NEV; DC3; =Y0M3; J57C3NZ;
1223/3: 140 060|304 000 006|170 070|143 200|244 212 004|041|301 077 100
M+I3; SET6; =C3; DC8; J874C8Z; ZERO; =Y0M3;
1226/1: 200 360 000 57; EXIT1;
1226/4: 202 332 027 50; JS696; (store one-syllable instruction);
1227/1: 201 322 221 JS55;
1227/4: 204 262 235 J59;
1230/1: 202 332 027 51; JS696; (store two-syllable instruction);
1230/4: 041|065|166 361|200 262 234 ZERO; REV; SHLD-8; J58;
1231/5: 202 332 027 52; JS696; (store three-syllable instruction);
1232/2: 041|065|166 341|201 322 221 ZERO; REV; SHLD-16; JS55;
1233/3: 041|166 021 ZERO; SHLD8;
1234/0: 201 322 221 58; JS55;
1234/3: 041|166 021|201 322 221 ZERO; SHLD8; JS55;
1235/3: 052 ERASE;
59; (step on instruction counters);
[Page number 16
1235/4: 143 100|140 100|200 262 154 DC4; M+I4; J511; (treat next instruction);
1236/5: 300 000 051|203 262 337 269; (no space left); V33; J491; (catastrophic space failure);
(Fetch Simple Instruction);
1237/5: 170 036|205 323 137 22; =Q1; JS13; (fetch next group);
1240/4: 201 262 242 J23;
1241/1: 201 262 243 J21;
1241/4: 200 360 001 EXIT3; (N1 integer, N2 teriminator, N3 group);
1242/1: 173 000|052|204 262 214 23; LINK; ERASE; J508; (report failure - too many characters);
1243/1: 042|164 321|203 142 246 21; DUP; SHL-24; J983≠Z;
1244/1: 042|102 020|015|042|164 061|220 142 247 976; DUP; M0M1Q; NEV; DUP; SHL24; J20=Z;
1245/5: 052|261 022 244 ERASE; J976C1NZ;
1246/3: 200 360 000 983; EXIT1; (unrecognised group in N1);
1247/0: 065|052|164 321|202 360 001 20; REV; ERASE; SHL-24; EXIT2; (machine code instruction in N1);
(end of Fetch Simple Instruction);
53; (check o<q<15, q in N1);
1250/1: 042|221 042 252 DUP; J56<Z;
1250/5: 042|304 000 017|036|204 102 252 DUP; SET15; -; J60≤Z;
1252/1: 200 360 000 56; EXIT1; (failure);
1252/4: 202 360 001 60; EXIT2; (q in range);
1253/1: 304 000 001|301 000 233 54; SET1; =V147;
1254/1: 001|171 250|164 003|042|164 003|056|170 030 VR; C10; SHL1; DUP; SHL1; +; =C1;
1256/0: 100 260|167 020|101 260|300 000 277|202 142 265 M0M11; SHCC1; =M0M11; V183; J267≠Z;
1260/0: 304 000 001|304 000 005|200 220 000|042|301 000 277|170 030 SET1; SET5; OUT; DUP; =V183; =C1;
1262/3: 304 000 242|170 024|304 000 245|170 022|131 020 SET162; =I1; SET165; =M1; PWEQ1;
1264/3: 120 022|223 342 264 994; BUSYQ1; J994TR;
1265/2: 300 000 277|170 030|304 001 067|170 022|304 001 054|170 024 267; V183; =C1; SET311; =M1; SET300; =I1;
1267/5: 041|301 000 050|041|301 001 053 ZERO; =V32; ZERO; =V291;
[Page number 17
1271/1: 300 001 072|042|300 001 016|042|304 040 000|036|221 042 276 V306; DUP; V262; DUP; SET8192; -; J953<Z;
1273/4: 304 040 000|036|067|300 001 071|056|304 041 354|203 262 277 SET8192; -; FRB; V305; +; SETB20754; J954;
1276/1: 067|300 001 071|056|304 041 360 953; FRB; V305; +; SETB20760;
1277/3: 164 075 954; SHL30;
1277/5: 056|301 001 054 +; =V292; (P. number);
1300/3: 042|300 001 116|067|300 001 071|056|304 014 200|164 075|056 DUP; V326; FRB; V305; +; SETB6200; SHL30; +;
1303/0: 301 001 055|171 102|067|300 001 071|056|164 015 =V293; (L. number);M4; FRB; V305; +; SHL6;
1305/0: 304 000 035|164 111|056|304 000 002|056|301 001 056 SETB35; SHL36; +; SETB02; +; =V294;
1307/1: 131 020 PWEQ1;
1307/3: 041|042|301 001 050|301 001 053 992; ZERO; DUP; =V288; =V291;
1310/5: 300 001 254|222 142 312|200 360 000 V420; J268=Z; EXIT1;
1312/2: 220 302 154|173 000|052|202 262 312 268; J511EJ; LINK; ERASE; J268;
446; (Construct a Jump);
(parameters word, 0, instruction);
1313/5: 166 347|164 041|065|041|166 003 SHLD-13; SHL+16; REV; ZERO; SHLD+1;
1315/1: 164 047|065|164 271|056|056|056|200 360 000 SHL+19; REV; SHL-36; +; +; +; EXIT1;
1317/0: 300 001 004|203 262 337 486; V252; J491; (W SPECN.);
1320/0: 300 001 000|203 262 337 484;485; V248; J491; (STORE LT);
1321/0: 300 001 005|203 262 337 487; V253; J491; (NO P/M);
1322/0: 300 001 001|203 262 337 483; V249; J491; (TIME LT);
1323/0: 300 001 013|203 262 337 490; V259; J491; (PARITY);
1324/0: 300 001 002|203 262 337 482; V250; J491; (V SPEC.);
1325/0: 300 000 247|203 262 337 481; V159; J491; (START);
1326/0: 300 001 006|203 262 337 480; V254; J491; (TITLE);
1327/0: 300 001 003|203 262 337 478; V251; J491; (Y SPECN.);
1330/0: 300 001 007|203 262 337 473; V255; J491; (YA SPECN);
1331/0: 300 001 010|203 262 337 467; V256; J491; (RESTART);
1332/0: 300 000 240|203 262 337 466; V152; J491; (PROGRAM);
1333/0: 304 000 001|301 001 254|201 322 253|300 001 014|203 262 337 494; SET1; =V420; JS54; V260; J491;
[Page number 18
1335/3: 300 001 011|203 262 337 471; V257; J491; (YI USED);
1336/3: 300 001 012|203 262 337 472; V258; J491; (Y0 USED);
1337/3: 301 000 246 491; (failure routine); =V158;
1340/0: 041|033|301 000 233 ZERO; NOT; =V147;
1340/5: 220 242 342|052|205 262 340 476; J475EN; ERASE; J476;
1342/0: 300 000 277|203 142 347 475; V183; J474≠Z;
1343/0: 304 000 001|304 000 005|200 220 000|042|301 000 277 SET1; SET5; OUT; DUP; =V183;
1345/1: 170 030|304 000 242|170 024|304 000 245|170 022 =C1; SET162; =I1; SET165; =M1;
1347/1: 130 020 PWQ1;
1347/3: 300 000 277|170 030|304 000 245|170 024|300 000 245|304 001 302
474; V183; =C1; SET165; =I1; V157; SETB702;
1352/1: 301 000 245|304 000 246|170 022|130 020|301 000 245 =V157; SET166; =M1; PWQ1; =V157;
1354/2: 304 000 360|170 022|130 034 SET240; =M1; PGAPQ1;
1355/3: 200 332 246 868; JSP2;
1356/0: 041|301 000 250|304 000 015|170 031 ZERO; =V160; SET13; =RC1;
1357/3: 041|042|301 001 116|301 001 016 ZERO; DUP; =V326; =V262;
1360/5: 041|301 001 173 ZERO; =V371;
1361/3: 157 004 Q0TOQ4;
1361/5: 041|301 000 233 ZERO; =V147;
1362/3: 041|042|301 001 254|301 001 255 ZERO; DUP; =V420; =V421;
1363/5: 017|041|303 020 252|017|017|177 020 *121; ZERO; =V162M1Q; *J121C1NZS;
1365/2: 041|301 001 015|001|041|301 000 244|041|301 000 245 ZERO; =V261; VR; ZERO; =V156; ZERO; =V157;
1367/3: 041|301 000 050 ZERO; =V32;
1370/1: 041|301 001 020|041|301 000 274 ZERO; =V264; ZERO; =V180;
1371/3: 304 376 014|301 001 022 SET-500; =V266;
1372/3: 304 000 004|170 031 SET4; =RC1;
1373/2: 017|017|017|017|041|303 021 053|017|017|177 020 *879; ZERO; =V291M1Q; *J879C1NZS;
1375/2: 041|301 000 232 ZERO; =V146;
[Page number 19
1376/0: 221 242 377|052|200 262 376 880; J881EN; ERASE; J880;
1377/1: 225 303 005|173 000|052|201 262 377 881; J963EJ; LINK; ERASE; J881;
979; (even or odd restart);
1400/4: 300 000 277|042|201 143 004 V183; DUP; J972≠Z;
1401/5: 052|304 000 001|304 000 005|200 220 000 ERASE; SET1; SET5; OUT;
1403/3: 042|301 000 277 DUP; =V183;
1404/1: 170 030|300 001 224|170 310|203 262 355 972; =C1; V396; =C12; J868;
1405/5: 114 000|304 000 074|164 061|056|115 000|200 260 000 963; M0M0HN; SET60; SHL+24; +; =M0M0HN; JE0;
(Initialise - for Fetch Next Character);
1410/0: 304 000 002|304 000 005|200 220 000 44; SET2; SET5; OUT;
1411/3: 042|301 001 224 DUP; =V396;
1412/1: 300 000 236|170 316|300 000 237|170 336 V150; =Q12; V151; =Q13;
1413/5: 170 310|154 315|300 000 010|101 320 =C12; C12TOQ13; 65; V0; =M0M13;
1415/2: 125 320 PREQ13;
1415/4: 041|042|301 000 011|170 363|157 376 ZERO; DUP; =V1; =RM15; Q15TOQ14;
46; (clear input record buffer);
1417/1: 300 000 047|170 276|157 272 V31; =Q11; Q11TOQ10;
1420/2: 171 364|221 043 022 I15; J690<Z;
1421/1: 304 000 007|204 263 022 SETB07; J691;
1422/1: 304 000 006 690; SETB06;
1422/4: 167 365|300 000 010|166 015|103 260|052 691; SHC-6; V0; SHLD6; =M0M11Q; ERASE;
1424/2: 017|017|017|017|300 000 010|103 260|017|177 260 *45; V0; =M0M11Q; *J45C11NZS;
1426/2: 157 253|304 000 007|170 250|200 360 000 Q10TOQ11; SET7; =C10; EXIT1;
(Integer Convert);
8; (signed. first not yet read);
1430/0: 205 323 043 JS25;
[Page number 20
9; (signed, first already read);
1430/3: 304 000 054|224 023 037 SET44; J4=;
1431/3: 304 000 055|220 023 040 SET45; J5=;
1432/3: 041|042|066|204 263 040 ZERO; DUP; CAB; J10;
6; (unsigned, first already read);
1433/3: 042|041|065|304 000 011|036|220 103 043 DUP; ZERO; REV; SET9; -; J7>Z;
1435/1: 065|201 263 040 REV; J2;
1435/5: 065|042|161 005|056|161 003|056|201 263 040 1; REV; DUP; SHA2; +; SHA1; +; J2;
1437/4: 052 4; ERASE;
3; (unsigned, first not yet read);
1437/5: 041 ZERO;
1440/0: 041 5; ZERO;
2; (from next group);
1440/1: 205 323 043 JS25;
1440/4: 042|304 000 012|036|225 043 035 10; DUP; SET10; -; J1<Z;
1442/0: 012|065|220 143 043 PERM; REV; J7=Z;
1442/5: 027 NEG;
1443/0: 200 360 000 7; EXIT1; (end of Integer Convert);
(Fetch Next Character);
1443/3: 140 360 26; (special entry); M+I15;
1443/5: 261 363 062 25; (normal entry); J30C15NZ;
1444/2: 140 340|260 343 061 M+I14; J29C14NZ;
1445/1: 171 316|157 334|170 336|300 000 011|220 143 051 Q12; Q13TOQ12; =Q13; V1; J27=Z;
1447/1: 041|301 000 011|300 000 010|101 300|125 300 ZERO; =V1; V0; =M0M12; PREQ12;
1451/0: 121 300|220 342 323 27; PARQ12; J490TR;
1451/5: 300 000 010|033|042|164 011|042|066|056|100 300|015|042|033|066|054
V0; NOT; DUP; SHL4; DUP; CAB; +; M0M12; NEV; DUP; NOT; CAB; AND;
1454/4: 042|164 367|066|056|054|001|203 143 057 DUP; SHL-5; CAB; +; AND; VR; J28≠Z; (test for EM character);
1456/2: 300 000 010|101 320|125 320 V0; =M0M13; PREQ13;
[Page number 21
1457/3: 171 304|170 343|304 000 040|170 350 28; I12; =RM14; SET32; =C14;
1461/0: 304 000 010|170 370|143 340 29; SET8; =C15; DC14;
1462/1: 100 340|041|166 015|065|101 340|143 360 30; M0M14; ZERO; SHLD6; REV; =M0M14; DC15;
1463/5: 042|241 263 133 42; DUP; J978C11Z; (failure - input record buffer full);
1464/3: 042|301 012 320|167 365|100 260|166 015 104; DUP; =V2P11; SHC-6; M0M11; SHLD6;
1466/1: 101 260|052|143 240|260 243 071 =M0M11; ERASE; DC10; J43C10NZ;
1467/3: 304 000 010|170 250|140 260|143 260 SET8; =C10; M+I11; DC11;
1471/0: 171 362|201 143 126 43; M15; J41≠Z;
1471/5: 042|167 365|161 251|222 143 114 DUP; SHC-6; SHA-44; J37=Z;
1473/1: 304 000 040|036|042|205 043 115 SET32; -; DUP; J39≥Z;
1474/3: 304 000 021|056|042|225 043 106 SET17; +; DUP; J34<Z;
1475/5: 171 364|224 043 105 I15; J33<Z;
1476/4: 042|223 143 104|304 000 012|036|042|225 103 101 DUP; J32=Z; SET10; -; DUP; J31>Z;
1500/4: 304 000 011|056|200 360 000 SET9; +; EXIT1;
1501/5: 161 007|170 230|300 000 012|167 220|304 000 377|054|200 360 000
31; SHA3; =C9; V2; SHCC9; SETB377; AND; EXIT1;
1504/3: 052|304 000 053|200 360 000 32; ERASE; SET43; EXIT1;
1505/4: 304 000 056|056|200 360 000 33; SET46; +; EXIT1;
1506/5: 304 377 367|220 023 115 34; SET-9; J38=;
1507/5: 304 377 370|220 023 114 SET-8; J36=;
1510/5: 304 377 365|222 023 114 SET-11; J37=;
1511/5: 304 377 363|204 023 136 SET-13; J102≠;
1512/5: 052|304 000 073|200 360 000 116; ERASE; SET59; EXIT1;
1514/0: 144 360 36; I15=1;
1514/2: 052|205 263 043 37; ERASE; J25;
1515/0: 145 360|202 263 114 38; I15=-1; J37;
1515/5: 042|224 143 136 39; DUP; J363=Z;
1516/3: 304 000 032|036|042|220 103 121 SET26; -; DUP; J40>Z;
1517/5: 304 000 045|056|200 360 000 SET37; +; EXIT1;
[Page number 22
1521/0: 304 000 003|204 023 136 40; SET3; J363≠;
1522/0: 304 000 045|056 119; SET37; +;
1522/4: 173 000|304 101 306|200 022 333|174 000 35; LINK; SETAR849; J494≠; =LINK;
1524/2: 042|301 000 011|154 017|154 016|200 360 000 DUP; =V1; C0TOQ15; C0TOQ14; EXIT1;
1526/1: 141 360|304 000 006|222 023 132 41; M-I15; SET6; J442=;
1527/3: 304 000 075|224 023 122 SET61; J35=;
1530/3: 304 000 007|205 023 131 SET7; J443≠;
1531/3: 144 360 I15=1;
1531/5: 200 360 000 443; EXIT1;
1532/2: 145 360|200 360 000 442; I15=-1; EXIT1;
1533/1: 141 260|304 000 001|170 270|300 000 010|101 260|203 263 064 978; M-I11; SET1; =C11; V0; =M0M11; J104;
1535/4: 300 000 273|203 262 337 101; V179; J491;
1536/4: 221 242 253|052|204 263 136 363;102; J54EN; ERASE; J102;(There are invalid characters for notifications);
(to e programmer);
(Next Group);
13; (normal entry);
1537/5: 041 ZERO;
12; (existing group in N1);
1540/0: 205 323 043 JS25; (fetch next character);
1540/3: 042|304 000 012|036|223 043 146 14; DUP; SET10; -; J11<Z;
1541/5: 304 000 054|225 023 147 SET44; J16=;
1542/5: 304 000 055|221 023 150 SET45; J17=;
15; (special entry);
1543/5: 304 000 073|222 023 151 SET59; J18=;
1544/5: 065|161 015|056|200 203 140 REV; SHA6; +; J12NV;
1546/0: 200 360 000 EXIT1; (failure - more then eight in group);
1546/3: 041|065|201 323 040 11; ZERO; REV; JS2; (integer convert);
1547/2: 200 360 001 EXIT3; (N1 integer, N2 terminator, N3 group);
[Page number 23
1547/5: 052|041 16; ERASE; ZERO;
1550/1: 041|201 323 040 17; ZERO; JS2; (integer convert);
1550/5: 200 360 001 EXIT3; (see above);
1551/2: 052|202 360 001 18; ERASE; EXIT2; (N1 group, ending was semicolon);
(end of Next Group); (insert marker in Y and R correction table);
61; (instruction to have address amended);
1552/0: 304 000 001|201 263 153 SET1; J63;
62; (instruction already comlete);
1553/0: 041 ZERO;
1553/1: 300 054 253|164 003|056|143 040|301 054 253|263 043 161 63; YB0M2; SHL+1; +; DC2; =YB0M2; J64C2NZ;
1555/3: 140 040|304 000 060|170 050|171 042|304 017 065|304 014 253 M+I2; SET48; =C2; M2; SETAYC-1; SETAYB0;
1560/0: 036|036|220 143 162 -; -; J903=Z; (testor too many bits);
1560/5: 041|301 054 253 ZERO; =YB0M2;
1561/3: 200 360 000 64; EXIT1;
1562/0: 300 001 164|203 262 337 903; V364; J491;
1563/0: 202 332 027|041|065|166 341|201 322 221 571; JS696; ZERO; REV; SHLD-16; JS55;
1564/4: 041|166 021|201 322 221|041|166 021|201 322 221 ZERO; SHLD8; JS55; ZERO; SHLD8; JS55;
1566/4: 052|143 100|140 100|200 360 000 ERASE; DC4; M+I4; EXIT1;
1570/0: 300 001 021|056|300 001 020|164 041|056|041|301 001 020 185; V265; +; V264; SHL16; +; ZERO; =V264;
1572/2: 065|164 103|041|166 007|164 047|065 REV; SHL+33; ZERO; SHLD3; SHL19; REV;
1573/5: 164 271|056|056|200 360 000 SHL-36; +; +; (inst,y:r); EXIT1;
(entered with integer, terminator, base address, Y÷R marker);
1575/0: 066|056|202 263 176 049; CAB; +; (Y,W,H,Z); J178;
1575/5: 066|065|036 146; CAB; REV; -; (Z);
1576/2: 065 178; REV; (terminater, address);
1576/3: 304 000 073|223 023 201 SET59; J158=;
1577/3: 304 000 030|224 023 202 SET24; J436=; (M);
[Page number 24
1600/3: 041|042|066|200 360 000 ZERO; DUP; CAB; EXIT1;
1601/3: 052|041|042|042|200 360 000 158; ERASE; ZERO; DUP; DUP; EXIT1;
1602/4: 052|205 323 037 436; ERASE; JS3; (q, terminator, address);
1603/2: 201 322 250|200 263 213|065 JS53; J215; REV;
1604/3: 304 000 073|220 023 207 SET59; J235=;
1605/3: 304 000 034|220 023 210 SET28; J196=;
1606/3: 202 262 217 J504;
1607/0: 052|041|042|200 360 000 235; ERASE; ZERO; DUP; EXIT1;
1610/0: 052|205 323 043|304 000 073|036|204 142 214 196; ERASE; JS25; SET59; -; J502≠Z;
1611/5: 304 000 001|041|200 360 000 SET1; ZERO; EXIT1;
(This routine has an exit);
(N1; 0 if terminator; or M after address integer, else the);
( actual terminator which could be P,U.L,/,);
(N2: Q marker 1 or 0);
(N3: value of the modifier);
(N4; address
N5; Y÷R marker);
1613/0: 052|304 000 073|221 022 216|204 262 214 215; ERASE; SET59; J500=; J502;
236; (dwa S÷R); (first character in N1);
1614/4: 304 000 044|221 023 223 SET36; J234=; (Y);
1615/4: 304 000 042|224 023 276 SET34; J216=; (W);
1616/4: 304 000 023|220 023 304 SET19; J190=; (H);
1617/4: 304 000 020|220 023 307 SET16; J189=; (E);
1620/4: 304 000 045|223 023 310 SET37; J188=; (Z);
1621/4: 304 000 073|221 022 216|204 262 214 SET59; J503=; J508; (FAILURE);
1623/1: 052|200 323 237 234; ERASE; JS366;
1623/5: 200 323 175 219; JS049;
1624/2: 042|203 143 235 220; DUP; J193≠Z;
1625/0: 052|164 043|065|164 031|056 ERASE; SHL+17; REV; SHL+12; +; (Qq, address, Y÷R marker);
[Page number 25
1626/1: 300 001 050|201 143 232|300 001 053|200 143 236 V288; J194≠Z; V291; J48≠Z; (test for SET AND Vv=);
1630/1: 200 323 170 JS185; (instruction, Y÷R);
1630/4: 200 323 163|201 323 153|202 360 001 JS571; JS63; EXIT2;
1632/1: 201 142 216 194; J503≠Z; (test for Qq);
1632/4: 304 177 377|054 SETB77777; AND;
1633/2: 300 001 051|056|200 323 163|201 323 153|202 360 001 (SET); V289; +; JS571; JS63; EXIT2;
1635/3: 200 360 000 193; EXIT1; (terminater, Q, q, address, Y÷R);
1636/0: 201 142 216|200 360 001 48; J500≠Z; EXIT3; (address, Y÷R);
1637/0: 205 323 043|042|304 000 011|036|204 103 262 366; JS25; DUP; SET9; -; J180≤Z;
1640/5: 304 000 054|224 023 262 SET44; J180=;
1641/5: 304 000 055|224 023 262 SET45; J180=;
1642/5: 042|304 000 014|036|224 042 214 DUP; SET12; -; J508<Z;
1644/1: 042|304 000 045|036|221 103 261 DUP; SET37; -; J181>Z;
1645/3: 170 022|304 000 244|170 122|104 025|161 321 =M1; SET164; =M5; M5M1H; SHA-24; (bare addess);
1647/2: 300 000 250|164 061|204 143 251 V160; SHL24; J399≠Z;
1650/4: 304 000 001|205 263 251 SET1; J401;
1651/4: 041 399; ZERO;
1651/5: 065 401; REV;
1652/0: 205 323 043|042|304 000 011|036|200 103 266 195; JS25; DUP; SET9; -; J187≤Z; (at 195 is address, Y÷R);
1653/5: 304 000 054|220 023 266 SET44; J187=;
1654/5: 304 000 055|220 023 266 SET45; J187=;
1655/5: 200 323 140|204 262 214|200 263 270|052|304 000 073|036|221 142 216|202 262 217
JS12; J502; J859; ERASE; SET59; -; J501=Z; J504;
1661/1: 304 000 073|204 022 214|201 262 216 181; SET59; J508≠; J503;
1662/4: 300 000 250|164 061|164 321|042|200 143 267 180; V160; SHL+24; SHL-24; DUP; J182≠Z;
1664/3: 052|304 177 377|304 000 001|065|066 ERASE; SETB77777;SET1; (Y÷R, address, bit); rev; cab;
1666/0: 203 323 030|200 360 000 187; JS9; EXIT1; (integer, terminator, bare address, Y÷R);
1667/0: 041|065|066|200 263 266 182; ZERO; REV; CAB; J187;
[Page number 26
1670/0: 012|052|052|300 000 275|042|066|015|164 061|201 142 216 859; PERM; ERASE; ERASE; V181; DUP; CAB; NEV; SHL24; J503≠Z;
1672/2: 164 321|173 000|052|173 000|052|204 262 226 SHL-24; LINK; ERASE; LINK; ERASE; J50;
1674/1: 065|052|065|052|065|052|304 000 073|221 022 216|202 262 217 179; REV; ERASE; REV; ERASE; REV; ERASE; SET59; J501=; J504;
1676/4: 052|300 000 251|164 321 216; (W); ERASE; V161; SHL-24;
1677/4: 300 000 250|164 061|222 143 302 V160; SHL+24; J217=Z;
1701/0: 041|065|200 323 252|205 263 223 ZERO; REV; JS195; J219;
1702/2: 304 000 001|065|200 323 252|205 263 223 217; SET1;; REV; JS195; J219;
1704/0: 052|300 000 250|164 321|042|224 142 214 190; (H); ERASE; V160; SHL-24; DUP; J508=Z;
1705/4: 041|065|200 323 252|205 263 223 ZERO; REV; JS195; J219;
1707/0: 052|041|042|200 323 252|205 263 223 189; (E); ERASE; ZERO; DUP; JS195; J219;
1710/3: 052|300 017 101 188; (Z); ERASE; Y1;
1711/1: 164 061|164 321|042|224 143 314 192; SHL+24; SHL-24; DUP; J191=Z;
1712/3: 027|033|041|065|200 323 252|205 323 175|202 263 224 NEG; NOT; ZERO; REV; JS195; JS146; J220;
1714/4: 052|300 000 001|201 263 311 191; ERASE; E1; J192;
400; (Reference address calculater);
1715/5: 200 323 140 JS12;
1716/2: 204 262 214 J508;
1716/5: 201 262 216 J503;
(inst, terminator, group);
1717/2: 066|304 000 035|223 023 337 CAB; SETB35; J394=; (R);
1720/3: 304 007 120|222 023 335 SETB3520; J238=; (RE);
1721/3: 304 007 233|220 023 370 SETB3633; J439=; (SP);
1722/3: 304 007 227|225 023 373 SETB3627; J440=; (SL);
1723/3: 304 000 033|221 024 002 SETB33; J441=; (P);
[Page number 27
1724/3: 304 000 027|221 024 004 SETB27; J379=; (L);
1725/3: 304 000 036|223 023 336 SETB36; J237=; (S);
1726/3: 304 007 235|223 023 336 SETB3635; J237=; (SP);
1727/3: 304 000 020|222 023 335 SETB20; J238=; (E);
1730/3: 041|223 023 337 ZERO; J394=;
1731/1: 304 007 220 SETB3620;
1731/4: 225 023 333|052|304 000 073|221 022 216|204 262 214 J419=; (SE); ERASE; SET59; J503=; J508;
1733/5: 052|304 000 001|012|041|200 360 000 419; ERASE; SET1; PERM; ZERO; EXIT1;
1735/2: 052|041|012|041|200 360 000 238; (JE); ERASE; ZERO; PERM; ZERO; EXIT1;
1736/3: 304 000 001|204 263 337 237; (JS); SET1; J240;
1737/3: 041 394; (J); ZERO;
1737/4: 065|052|012 240; REV; ERASE; PERM; (ref, term, S mark);
1740/1: 065|304 000 073|222 023 364 551; REV; SET59; J245=;
1741/2: 304 000 027|221 023 345 SETB27; J413=;
1742/2: 304 000 033|221 023 345 SETB33; J413=;
1743/2: 065|042|224 142 214|304 000 001|200 360 000 REV; DUP; J502=Z; SET1; EXIT1;
1745/1: 200 323 140|202 262 217|201 262 216 413; JS12; J504; J501;
1746/4: 042|164 347|204 146 142 DUP; SHL-13; J425≠Z; (test number);
1747/4: 066|304 000 033|203 023 351 CAB; SET27; (P); J242≠;
1750/5: 052|204 263 354 ERASE; J243;
1751/3: 304 000 027|201 023 366 242; SET23; J244≠;
1752/3: 052|304 040 000|056|042|304 040 000|036|201 324 075 ERASE; SET8192; +; DUP; SET8192; -; JS397; (insert L-number
into library list);
243; (P, term, ref, S mark);
1754/4: 300 001 016|221 023 364 V262; J389=; (current level);
1755/4: 205 324 037|203 263 361 JS223; (search far level); J390; (no level);
1756/4: 066|203 324 014|202 263 360|202 263 361 CAB; JS391; (search for reference); J582; J392; (no reference);
582; (add, P, term, S mark);
[Page number 28
1760/2: 065|052|041|200 360 000 REV; ERASE; ZERO; EXIT1;
1761/2: 012 392; (no reference); PERM;
1761/3: 300 001 053|202 144 011|203 324 032|304 000 010|041|200 360 000
390; V291; J596≠Z; JS393; SETB10; ZERO; EXIT1;
1764/1: 052 389; ERASE; (term, ref, S mark);
1764/2: 065|042|221 142 216|304 000 001|200 360 000 245; REV; DUP; J500=Z; SET1; EXIT1;
1766/1: 052|052|304 000 073|221 022 216|202 262 217 244; (not P or L); ERASE; ERASE; SET59; J501=; J504;
(on exit this routine has in N1 0 OR 1 Y÷R entry);
(N2 address or a representation);
(N3 terminator N4 S mark);
1770/0: 052|205 324 037|203 263 377 439; (JSP); ERASE; JS223; J384;
1771/1: 052|304 000 001 382; ERASE; (terminater); SET1; (S mark);
1771/5: 065 377; REV; (term, S mark);
1772/0: 310 033 137|164 101|164 301|041 Z0M1; SHL+32; SHL-32; (address of Pp); ZERO;
1773/2: 200 360 000 EXIT1;
1773/5: 052|304 040 000|056|205 324 037|201 263 376 440; (JSL); ERASE; SET8192; +; JS223; J383;
1775/4: 201 263 371 J382;
1776/1: 042|304 040 000|036|201 324 075 383; DUP; SET8192; -; JS397; (insert into L-list);
1777/3: 041|012|203 324 032 384; (P. number terminate); ZERO; PERM; JS393;
2000/2: 304 000 001 (costruct a funny); SET1;
2000/5: 065|304 000 020|041|200 360 000 376; REV; SETB20; ZERO; EXIT1;
2002/1: 052|205 324 037|205 264 007 441; (JP); ERASE; JS223;J381;
2003/2: 052|041|205 263 371 378; ERASE; ZERO; J377;
2004/1: 052|304 040 000|056|205 324 037|203 264 006 379; (JL); ERASE; SET8192; +; JS223; J380;
2006/0: 202 264 003 J378;
2006/3: 042|304 040 000|036|201 324 075 380; DUP; SET8192; -; JS397;
2007/5: 041|012|203 324 032|041|205 264 000 381; ZERO; PERM; JS393; ZERO; J376;
2011/2: 170 036|051|065|051|012 596; =Q1; REVd; REV; REVD; PERM;
2012/2: 171 036|201 331 160|012 Q1; JS344; PERM;
2013/2: 304 000 010|041|200 360 000 SET8; ZERO;EXIT1;
[Page number 29
391; (extract reference from S÷R description specified in M1);
2014/3: 310 033 136|170 122|171 122|222 144 017 Z1M1; =M5; M5; J437=Z;
2016/1: 171 022|172 122|204 264 017 M1; =+M5; J398;
2017/2: 151 205 437; M8TOQ5;
2017/4: 171 022|065|145 020|140 020|140 020 398; M1; REV; I1=-1;M+I1; M+I1;
2021/1: 171 022|171 122|036|223 144 031 757; M1; M5; -; J395=Z;
2022/3: 312 033 137|042|304 000 377|054|066|065|224 024 027|065 Z0M1Q; DUP; SETB377; AND; CAB; REV; J396=; REV;
2024/5: 164 321|042|304 000 377|054|066|065|224 024 027|065 SHL-24; DUP; SETB377; AND; CAB; REV; J396=; REV;
2027/0: 052|201 264 021 ERASE; J757;
2027/4: 052|164 061|164 301|065|170 022|200 360 000 396; ERASE; SHL+24; SHL-32; REV; =M1; EXIT1;
2031/3: 065|170 022|202 360 001 395; REV; =M1; EXIT2;
393; (construct and store a funny);
2032/3: 164 041|066|164 101|164 301|056|164 041|171 070|027|033|164 033
SHL16; CAB; SHL32; SHL-32; +; SHL16; C3; NEG; NOT; SHL13;
2035/1: 171 062|056|056|313 173 137|242 164 037 M3; +; +; =Z0M7Q; J450C7Z;
2036/5: 200 360 000 EXIT1;
2037/2: 201 271 353 450; (funny space exhausted); J565; (shift S÷R);
2037/5: 300 001 022|170 022 223; V266; =M1; (current bare for funnies);
2040/4: 310 033 137|164 301|222 024 045 225; Z0M1; SHL-32; J224=;
2042/0: 310 033 136|164 101|164 301|042|224 144 044 Z1M1; SHL+32; SHL-32; DUP; J226=Z;
2043/5: 172 022|204 264 040 =+M1; J225;
2044/4: 052|200 360 000 226; ERASE; EXIT1; (not present);
2045/2: 202 360 001 224; EXIT2; (present);
641; (no of V-stores in N1); (leave space for bits);
2045/5: 161 005 SHA2; (bits);
2046/1: 042|171 050|036|042|205 104 062 DUP ; C2; -; DUP; J645≤Z;
2047/3: 065|052|300 054 253|164 040|301 054 253|140 040 REV; ERASE; YB0M2; SHLC2; =YB0M2; M+I2;
[Page number 30
2051/3: 304 000 060|044|065 SET48; ÷I; (bits, words); REV;
2052/2: 042|222 144 060|170 031|151 041 DUP; J642=Z; =RC1; M2TOQ1;
2053/4: 017|017|041|303 034 253|017|017|177 020 *644; ZERO; =YB0M1Q; *J644C1NZS;
2055/2: 151 022|171 042|304 017 065|304 014 253 M1TOQ2; M2; SETAYC-1; SETAYB0;
2057/0: 036|036|200 043 162|203 264 060 -; -; J903≥Z; J643;
2060/2: 052 642; ERASE;
2060/3: 041|301 054 253|304 000 060|065 643; (bits); ZERO; =YB0M2; SET48; REV;
2061/5: 036|170 050|200 360 000 -; =C2; EXIT1;
645; (enough bits in current word);
2062/5: 052|042|027|172 050|170 030|300 054 253 ERASE; DUP; NEG; =+C2; =C1; YB0M2;
2064/3: 164 020|301 054 253|264 044 067 SHLC1; =YB0M2; J646C2NZ;
2065/5: 304 000 060|170 050|140 040|041|301 054 253 SET48; =C2; M+I2; ZERO; =YB0M2;
2067/4: 200 360 000 646; EXIT1;
369; (is the last funny=current address);
2070/1: 141 160|310 173 137|140 160|164 101|164 301 M-I7; Z0M7; M+I7; SHL+32; SHL-32;
2072/0: 171 070|027|033|164 033|171 062|056|036|224 144 074 C3; NEG; NOT; SHL+13; M3; +; -; J368=Z;
2074/1: 202 360 001 EXIT2; (NO);
2074/4: 200 360 000 368; EXIT1; (YES);
2075/1: 052|200 360 000 397; ERASE; EXIT1;
409; (fetch next bit);
2075/5: 300 254 253|167 240|304 000 001|054|263 244 101 YB0M10; SHCC10; SET1; AND; J410C10NZ;
2077/5: 304 377 321|170 250|140 240|200 360 000 SET-47; =C10; M+I10; EXIT1;
2101/3: 304 000 001|172 250|200 360 000 410; SET1; =+C10; EXIT1;
411; (Change last bit to 0);
2102/5: 171 250|304 000 057|056|223 144 110 C10; SET47; +; J412=Z;
2104/2: 143 240|300 254 253|167 240|164 377|164 003|142 240 DC10; YB0M10; SHCC10; SHL-1; SHL+1; NC10;
2106/3: 167 240|301 254 253|143 240|142 240|200 360 000 SHCC10;=YB0M10;DC10; NC10; EXIT1;
[Page number 31
2110/3: 141 240|300 254 253|164 377|164 003|301 254 253|140 240|200 360 000
412; M-I10; YB0M10; SHL-1; SHL+1; =YB0M10; M+I10; EXIT1;
2113/2: 300 001 023|300 001 024|036|223 144 124 402; (fetch next syllable); V267; V268; -; J421=Z;
2115/0: 300 277 100|164 260|304 000 377|054|171 276|301 001 121|262 264 122
Y0M11; SHLC11; SETB377; AND; Q11; =V329; J403C11NZ;
2117/5: 304 377 330|170 270|140 260|171 276|301 001 023|202 360 001 SET-40; =C11; M+I11; Q11; =V267; EXIT2;
2122/2: 304 000 010|172 270|171 276|301 001 023|202 360 001 403; SET8; =+C11; Q11; =V267; EXIT2;
2124/3: 200 360 000 421; EXIT1;
404; (fetch rest of a 3 syllable instruction);
2125/0: 300 001 121|170 236|164 021|202 324 113|201 264 144|056|164 021|202 324 113
V329; =Q9; SHL+8; JS402; J634; +; SHL+8; JS402;
2130/1: 201 264 144|056|200 360 000 J634; +; EXIT1;
405; (fetch rest of a 2 syllable instruction);
2131/2: 052|202 324 113|201 264 144|052|200 360 000 ERASE; JS402; J634; ERASE; EXIT1;
406; (store top syllable of N1);
2133/1: 300 237 100|167 220|164 361|166 021|142 220|167 220|142 220 Y0M9; SHCC9; SHL-8; SHLD+8; NC9; SHCC9; NC9;
2135/4: 301 237 100|262 224 140 =Y0M9; J407C9NZ;
2136/4: 304 377 330|170 230|140 220|200 360 000 SET-40; =C9; M+I9; EXIT1;
2140/2: 304 000 010|172 230|200 360 000 407; SET8; =+C9; EXIT1;
408; (store three syllables from N1);
2141/4: 164 061|201 324 133|201 324 133|201 324 133|052|200 360 000 SHL+24; JS406; JS406; JS406; ERASE; EXIT1;
2144/1: 300 001 112|203 262 337 634; V322; J491;
603; (reference from P0 desciption);
(N1=reference number);
2145/1: 042|304 014 253|304 013 127|036|042 DUP; SETAYB0; SETAYA1; -; DUP;
2146/4: 164 003|056|036|202 104 150|200 360 000 SHL1; +; -; J604≤Z; EXIT1;
604;
2150/2: 042|304 000 003|044 DUP; SET3; ÷I; (rem, +(3), reference);
[Page number 32
2151/1: 161 011|170 130|170 122|300 133 130|167 120|164 101|164 301|042
SHA+4; =C5; =M5; YA2M5; SHCC5; SHL+32; SHL-32; DUP;
2153/5: 221 144 155|065|052 J606=Z; REV; ERASE;
2154/4: 202 360 001 EXIT2; (label,);
2155/1: 052|200 360 000 606; ERASE; EXIT1; (reference);
687; (failure S÷R. N1 = letter string, N2 = P
N3 = LABEL);
2155/5: 304 000 001|301 001 255 SET1; =V421;
2156/5: 300 001 257|171 230|042|225 104 161 V423; C9; DUP; J688>Z;
2160/2: 304 000 050|056|164 373|201 264 162 SET40; +; SHL-3; J689;
2161/5: 052|041 688; ERASE; ZERO;
2162/1: 166 133|300 001 110|171 222|300 001 173|056 689; SHLD45; V320; M9; V371; +;
2164/0: 067|300 001 071|011|164 045|300 001 256 FRB; V305; OR; SHL18; V422;
2165/4: 166 045|301 001 057|052|052 SHLD18; =V295; ERASE; ERASE;
2166/5: 171 036|300 000 277|204 144 174|304 000 001|304 000 005 Q1; V183; J692≠Z; SET1; SET5;
2171/1: 200 220 000|042|301 000 277|170 030|304 000 242 OUT; DUP; =V183; =C1; SET162;
2173/1: 170 024|304 000 245|170 022|130 020 =I1; SET165; =M1; PWQ1;
2174/4: 300 000 277|170 030|304 001 057|170 024|304 001 060|170 022|130 020
692; V183;=C1;SET303; =I1; SET304; =M1; PWQ1;
2177/3: 170 036 =Q1;
2177/5: 304 000 001|301 000 233 SET1; =V147;
2200/5: 171 036|065|051|066 Q1; REV; REVD; CAB;
2201/4: 301 001 061|065|300 001 072|042|066|067|300 001 071|056 =V297; REV; V306; DUP; CAB; FRB; V305; +;
2204/0: 304 000 062|164 075|056|301 001 060|065|042|304 040 000|036|223 044 211
SETB62; SHL30; +; =V296; REV; DUP; SET8192; -; J955<Z;
2207/0: 304 040 000|036|067|300 001 071|056|304 000 054 SET8192; -; FRB; V305; +; SETB54;
2211/0: 205 264 212 J956;
2211/3: 067|300 001 071|056|304 000 060 955; FRB; V305; +; SETB60;
2212/5: 164 075|056|301 001 057 956; SHL30; +; =V295;
[Page number 33
2213/5: 204 264 214 J749;
2214/2: 171 036 748; Q1;
2214/4: 300 000 277|201 144 222 749; V183; J684≠Z;
2215/4: 304 000 001|304 000 005|200 220 000|042|301 000 277|170 030 SET1; SET5; OUT; DUP; =V183; =C1;
2220/1: 304 000 245|170 022|304 000 242|170 024|130 020 SET165; =M1; SET162; =I1; PWQ1;
2222/1: 300 000 277|170 030 684; V183; =C1;
2223/0: 304 001 057|170 024|304 001 061|170 022|130 020|170 036|200 360 000
SET303; =I1; SET305; =M1; PWQ1; =Q1; EXIT1;
138; (labels);
2225/5: 203 323 033 JS6; (label, terminater);
2226/2: 065|304 000 073|204 022 214|052 REV; SET59; J502≠; ERASE;
2227/4: 304 000 006|171 070|036|164 033|171 062|056 SET6; C3; -; SHL+13; M3; +;
2231/3: 300 001 173|056 V371; +;
2232/1: 065 REV; (label, address);
2232/2: 300 001 016|205 144 242 V262; J543≠Z;
2233/2: 042|304 014 252|304 013 131|036|304 000 003|034|050|036|221 102 216
DUP; SETAYB-1; SETAYA3; -; SET3; ×D; CONT; -; J500>Z;
2236/1: 201 324 145|204 264 237|201 262 216 JS603; J544; J500;
2237/4: 301 001 116|151 004 544; =V326; M0TOQ4;
2240/3: 142 120|167 120 NC5; SHCC5;
2241/1: 300 133 130|056|301 133 130|200 262 154 YA2M5; +; =YA2M5; J511;
2242/5: 042|164 361|201 142 216 543; DUP; SHL-8; J500≠Z;
2243/5: 300 001 016|205 324 037|204 263 135 V262; JS223; J101;
2245/2: 052|203 324 014|201 262 216 ERASE; JS391; J500;
2246/3: 042|301 001 116|151 004 DUP; =V326; M0TOQ4;
2247/3: 065|164 021|056 545; REV; SHL+8; +;
2250/1: 300 000 232|200 144 254|304 000 001|301 000 232 V146; J546≠Z; SET1; =V146;
2252/1: 164 061|313 213 137|240 204 257|200 262 154 SHL24; =Z0M8Q; J882C8Z; J511;
[Page number 34
2254/0: 141 200|310 213 137|056|311 213 137|140 200 546; M-I8; Z0M8; +; =Z0M8; M+I8;
2255/5: 041|301 000 232|200 262 154 ZERO; =V146; J511;
2257/0: 204 332 004|200 262 154 882; JS874; J511;
112; (instruction beginning with A);
2260/0: 300 000 013|205 322 237 V3; JS22;
2261/0: 201 262 216 J503; (report failure - invalid form);
2261/3: 204 262 226 J50; (store ABS ABSF AND);
2262/0: 202 262 217 J504; (report failure - digits in instruction);
(end of A);
113; (instructions beginning with B);
2262/3: 205 323 137 JS13;
2263/0: 204 262 214 J508; (report failure _ too many characters);
2263/3: 204 264 271 J100;
2264/0: 201 322 250 JS53; (check q);
2264/3: 202 262 217 J504; (report failure - q out of range);
2265/0: 012|304 000 073|036|204 142 214 PERM; SET59; -; J502≠Z; (report failure - no semicolon);
2266/2: 300 000 020|042|066|015|164 061|201 142 216 V8; DUP; CAB; NEV; SHL 24; J500≠Z; (report failure - invalid
form);
2270/1: 164 321|065|164 011|015|201 262 230 SHL-24; REV; SHL4; NEV; J51; (store BUSYQQ);
2271/4: 042|300 000 017|042|066|015|164 061|201 142 216 100; DUP; V7; DUP; CAB; NEV; SHL24; J503≠Z; (report failure -
invalid form);
2273/4: 065|052|164 321|204 262 226 REV; ERASE; SHL-24; J50; (store BITS);
(end of B);
114; (instructions beginning with C);
2274/5: 300 000 021|205 322 237 V9; JS22;
2275/5: 201 262 216 J503;
2276/2: 204 262 226 J50; (store CAB CONT);
2276/5: 201 322 250 JS53; (check q);
2277/2: 202 262 217 J504;
[Page number 35
2277/5: 065|304 000 073|201 024 306 REV; SET59; J106≠;
2301/0: 052|161 011|065|042|225 144 304 ERASE; SHA4; REV; DUP; J858=Z;
2302/2: 300 000 227|170 036|201 322 243 V143; =Q1; JS21;
2303/4: 201 262 216 J500;
2304/1: 056|201 262 230 +; J51; (store CLOQq CTQq CRAQq CRBQq);
2304/5: 052|304 171 010|056|201 262 230 858; (null group Cq ); ERASE; SETB74410; +; J51;
2306/1: 304 000 037|036|204 142 214 106; SET31; -; J502≠Z;
2307/2: 161 011|065|200 323 140 SHA4; REV; JS12;
2310/2: 204 262 214 J502;
2310/5: 201 262 216 J500;
2311/2: 012|304 000 073|036|202 142 217 PERM; SET59; -; J504≠Z;
2312/4: 065|201 322 250 REV; JS53;
2313/2: 201 262 216 J501;
2313/5: 065|300 000 025|170 036|201 322 243 REV; V13; =Q1; JS21;
2315/2: 201 262 216 J501;
2315/5: 056|056|201 262 230 +; +; J51; (store CqTOQQ VIqTOQq CMqTOQq);
(end of C);
115; (instruction beginning with D);
2316/4: 300 000 031|205 322 237 V17; JS22;
2317/4: 201 322 216 JS503; (report failure - invalid form);
2320/1: 204 262 226 J50; (store DUMMY DUP DUPD);
2320/4: 201 322 250 JS53; (check q);
2321/1: 202 262 217 J504; (report failure - q out of range);
2321/4: 161 011|012|304 000 073|036|204 142 214 SHA4; PERM; SET59; -; J502≠Z; (report failure - no semicolon);
2323/2: 304 000 016|036|201 142 216 SET14; -; J503≠Z; (report failure - invalid form);
2324/3: 304 143 000|056|201 262 230 SETB61400; +; J51; (store DCq);
(end of D);
[Page number 36
272; (instructions beginning with E);
2325/4: 205 323 137 JS13;
2326/1: 204 262 214 J508;
2326/4: 205 264 337 J161;
2327/1: 066|300 001 107|204 024 342|052 CAB; V319; J162≠; ERASE;
2330/3: 065 (n, terminater); REV;
2330/4: 304 000 073|200 024 350|052 SET 59; J163≠; ERASE;
2331/5: 041 552; ZERO;
2332/0: 065 168; REV;
(n, address);
2332/1: 041|065|166 377 169; ZERO; REV; SHLD-1;
2332/5: 012|164 305 PERM; SHL-30;
2333/2: 300 001 104|015 V316; NEV;
2334/0: 012|056|042|164 347|201 142 216 PERM; +; DUP; SHL-13; J500≠Z;
2335/2: 041|166 111|164 017|166 271|052 ZERO; SHLD+36; SHL+7; SHLD-36; ERASE;
2336/4: 056 +;
2336/5: 200 323 153|205 262 231 166; JS62; J52; (store EXIT instructions);
2337/5: 300 001 077|170 036|201 322 243|201 262 216 161; V311; =Q1; JS21; J503;
2341/4: 244 022 226 J50C1Z; (store ERASE);
2342/1: 205 264 336 J166;
2342/4: 042|205 144 372 162; DUP; J164≠Z;
2343/2: 041|051 ZERO; REVD;
2343/4: 041|301 001 020 ZERO; =V264;
2344/2: 205 323 223|202 264 346|200 262 154|201 262 216 JS219; J165; J511; J500;
2346/2: 304 000 073|036|220 030 113|205 270 157 165; SET59; -; J300=; J299;
2350/0: 200 323 140|204 262 214|201 262 216 163; JS12; J502; J500;
2351/3: 066|304 003 035|205 024 357 557; CAB; SETB1435; J167≠;
2352/4: 052 ERASE;
[Page number 37
563; (r, terminator, n);
2352/5: 201 323 340 JS551; (Y÷R, address, terminator, n);
2353/2: 066|304 000 073|036|202 142 217 CAB; SET 59; -; J504≠Z;
(Y÷R, address, n);
2354/4: 201 324 070|202 264 375 JS369; J589;
2355/4: 220 144 332 588; J168=Z;
2356/1: 065|300 001 016 REV; V262; (p, n, r);
2356/5: 203 324 032 558; JS393; (store a funny);
2357/2: 205 322 231 JS52;
2357/5: 066|304 000 073|036|202 142 217 167; CAB; SET59; -; J504≠Z;
2361/1: 065|042|164 347|201 142 216 REV; DUP; SHL-13; J501≠Z;
2362/2: 065|304 003 033|201 024 366|052 REV; SETB1433; J553≠; ERASE;
2363/4: 042|204 144 370|052 DUP; J554≠Z; ERASE;
2364/3: 300 013 126 YA0;
2365/0: 164 101|164 301 556; SHL+32; SHL-32; (address, n);
2365/4: 200 264 332 J168;
2366/1: 304 003 027|036|201 142 216|042|201 324 075 553; SETB1427; -; J500≠Z; DUP; JS397;
2370/0: 304 040 000|056 SET8192; +;
2370/4: 205 324 037|203 264 374|052|310 033 137|200 264 365 554; JS223; J555; ERASE; Z0M1; J556;
2372/5: 300 001 172|036 164; V370; -;
2373/3: 041|065|051|203 264 351 ZERO; REV; REVD; J557;
555; (p, n);
2374/3: 041|012|205 264 356 ZERO; PERM; J558;
2375/2: 065|052|041|065|204 264 355 589; REV ; ERASE; ZERO; REV; J588;
117; (instructions beginning with P);
2376/3: 300 000 036|205 322 237 V22; JS22;
2377/3: 200 265 001 J147;
2400/0: 204 262 226 J50; (store FIX FLOAT FRB);
2400/3: 202 262 217 J504;
[Page number 38
2401/0: 300 000 035|221 025 005 147; V21; J148=;
2402/0: 300 000 042|164 045|167 075|201 022 216 V26; SHL18; SHC30; J503≠;
2403/4: 052|300 000 042|164 305|204 262 226 ERASE; V26; SHL-30; J50; (store FLOATD);
2405/1: 052 148; ERASE; (begin routine for FINISH);
2405/2: 300 000 274|220 142 332 V180; J466=Z;
2406/2: 300 001 016|221 145 010 V262; J805=Z;
2407/2: 041|042|201 326 352 ZERO; DUP; JS807; (update last S÷R);
(INITIALISE UPDATE, THIS SHOULD BE PRECEDED BY THE)
(MECHANISM FOR DEALING WITH THE LIBRARY FROM)
(MAGNETIC TAPE);
2410/1: 171 070|304 000 006|036|225 145 012 805; C3; SET6; -; J806=Z;
2411/4: 041|201 322 221|201 265 010 ZERO; JS55; J805;
2412/5: 200 333 044|157 065 806; JSP24; Q3TOQ5;
2413/4: 171 062|300 000 250|164 061|164 321|042|203 145 016|052 M3; V160; SHL+24; SHL-24; DUP; J924≠Z; ERASE;
2416/0: 304 177 377 SETB77777;
2416/3: 300 000 251|164 321|036|056|300 001 173|056 924; V161; SHL-24; -; +; V371; +;
2420/2: 042|164 367|164 013|065|223 025 022 DUP; SHL-5; SHL+5; REV; J602=;
2421/5: 304 000 040|056 SET32; +;
2422/3: 170 062 602; =M3; (Y0 ADRESS MODULO 32);
2422/5: 300 000 250|164 061|042|220 145 036 V160; SHL+24; DUP; J608=Z;
2424/2: 052|300 000 251 ERASE; V161;
2425/0: 164 321|171 122|164 101|164 301 SHL-24; M5; SHL32; SHL-32;
2426/2: 300 001 173|056|036|042|200 045 036 V371; +; -; DUP; J608≥Z;
2427/5: 300 001 003|301 001 057|300 001 111|301 001 060|027|300 001 072|065|067
V251; =V295; V321; =V296; NEG; V306; REV; FRB;
2432/5: 304 000 001|301 000 233 SET1; =V147;
2433/5: 300 001 071|056|301 001 061|202 324 214 V305; +; =V297; JS748; (Y0 SPECIFICATION WRONG);
2435/3: 201 265 036 J973;
[Page number 39
2436/0: 052 608; ERASE;
2436/1: 300 054 253|164 040|301 054 253 973; YB0M2; SHLC2; =YB0M2;
2437/3: 300 000 251|164 061|164 321|164 041 V161; SHL+24; SHL-24; SHL+16;
2441/0: 171 122|304 000 001|036|056 M5; SET1; -; +;
2442/1: 300 001 173|056|301 017 107 V371; +; =Y7; (SET UP FILLER WORD);
(UPDATE RESTART);
2443/2: 304 377 330|170 271|304 000 004|170 262 SET-40; =RC11; SET4; =M11;
2445/0: 304 377 321|170 251|304 377 330|170 131|304 000 005|170 122 SET-47; =RC10; SET-40; =RC5; SET5; =M5;
2447/3: 171 136|301 001 024 Q5; =V268;
2450/2: 200 325 247 JS800; (INSTRUCTION UPDATE);
2450/5: 300 001 022|170 362 V266; =M15; (INITIALISE NEXT S÷R);
(P0 V-STORES);
2451/4: 300 013 127|170 136|300 013 126|164 041|041|166 041|042|066 YA1; =Q5; YA0; SHL+16; ZERO; SHLD+16; DUP; CAB;
2454/1: 164 301|065|036 SHL-32; (ADDRESS, V, V); REV; -;
2454/5: 300 001 173|036 V371; -;
(ADDRESS 1ST V-STORE, NUMBER OF V-STORES);
2455/3: 171 130|171 124|200 325 117 C5; I5; JS706;
(P0 UPDATING PROPER);
2456/4: 300 013 126|170 136|304 377 330|170 271|151 133|300 001 173|027|172 262
YA0; =Q5; SET-40; =RC11; M5TOQ11; V371; NEG; =+M11;
(INITIALISE);
2461/4: 171 362|171 202|036|221 145 077 M15; M8; -; J745=Z; (CHECK ON S÷R);
2463/0: 310 373 137|170 136|171 122|171 124|036|304 377 330|170 131 744; Z0M15; =Q5; M5; I5; -; SET-40; =RC5;
2465/3: 170 122|300 001 173|027|172 122|171 136|301 001 024|200 325 247
=M5; V371; NEG; =+M5; Q5; =V268; JS800; (INSTRUCTIONS UPDATE);
(VVPP UPDATE);
2470/1: 310 373 136|170 136|310 373 137|164 041|041|166 041 Z1M15; =Q5; Z0M15; SHL+16; ZERO; SHLD+16;
2472/2: 042|172 262 DUP; =+M11; (JUMP V WORDS FOR INST FETCH);
2472/5: 042|066|164 301|065|036 DUP; CAB; SHL-32; REV; -;
[Page number 40
2473/5: 300 001 173|036|171 130|171 124|200 325 117 V371; -;C5; I5; JS706;
2475/4: 202 325 104|201 265 077|200 265 063 JS746; (NEXT S÷R); J745; J744;
2477/1: 304 377 330|170 131 745; (NO MORE S÷RS); SET-40; =RC5;
2500/0: 300 017 107|164 101|164 301|300 001 173|036|033|027 Y7; SHL+32; SHL-32; V371; -; NOT; NEG;
2502/1: 170 122|171 136|301 001 024 =M5; Q5; =V268;
2503/2: 200 325 247 JS800; (INSTRUCTION UPDATE);
2503/5: 200 265 373 (END OF UPDATE); J611; (PUNCH);
746; (NEXT S÷R);
2504/2: 310 373 136|164 101|164 301|042|220 145 107 Z1M15; SHL+32; SHL-32; DUP; J747=Z;
2506/1: 172 362|202 360 001 =+M15; EXIT2;
2507/0: 052|200 360 000 747; ERASE; EXIT1;
723; (OBTAINED REQUIRED ADDRESS IF BIT IN Y÷R=0);
(N1=INSTRUCTION);
2507/4: 171 222|171 230|027|304 000 010|044|052|203 325 237 M9; C9; NEG; SET8; ÷I; ERASE; JS733;
2511/5: 205 265 112|200 265 116 J724; J725;
2512/5: 065|042|304 000 077|054|042 724; (FUNNY, INSTRUCTION); REV; DUP; SETB77; AND; DUP;
2514/0: 066|015|012|200 325 164|203 265 116 CAB; NEV; PERM; JS727; J726;
2515/3: 200 360 000 EXIT1;
2516/0: 202 360 001 725; (NO FUNNY); EXIT2;
2516/3: 200 360 001 726; (XFUNNY); EXIT3;
(EXIT1 ADDRESS, INSTRUCTION (LESS CODE));
(EXIT2 (NO FUNNY) INSTRUCTION IN N1);
(EXIT3 XFUNNY EMPTY NEST);
706; (V-STORE UPDATING);
(N1=WORD CONATINING FIRST BIT);
(N2=NUMBER 2 FIRST BIT);
[Page number 41
(N3=ADDRESS FIRST V-STORE);
(N4=NUMBER OF V-STORES);
2517/0: 170 243|027|033|027|170 250 =RM10; NEG; NOT; NEG; =C10; (BIT ADDRESS);
2520/1: 170 343|170 350|204 265 121 =RM14; =C14; (V-WORD ADDRESS); J707;
2521/2: 052 708; ERASE;
2521/3: 052 709; ERASE;
2521/4: 245 345 153 707; J780C14Z; (END OF ROUTINE);
2522/1: 157 351 Q14TOQ9;
2522/3: 302 357 100|205 324 075|164 003|205 324 075|056|164 003 Y0M14Q; JS409; SHL+1; JS409; +; SHL+1;
2524/5: 205 324 075|056|164 003|205 324 075|056 JS409; +; SHL+1; JS409; +; (4-BITS, V-STORE);
2526/3: 042|222 145 121 DUP; J708=Z;
(BITS, V-STORE);
2527/1: 164 131|042|223 045 141 SHL+44; DUP; J710<Z; (3 PART V-STORE);
2530/1: 164 003|042|224 045 133 SHL+1; DUP; J711<Z;
2531/1: 164 003|223 045 137 SHL+1; J712<Z;
(WHOLE PART);
2532/0: 041|200 325 156|202 325 154|204 265 121 ZERO; JS704; JS802; J707;
2533/4: 065|167 321|304 000 002|200 325 156|167 061 711; (U); REV; SHC-24; SET 2; JS704; SHC+24;
2535/3: 065|164 003|223 045 137 REV; SHL+1; J712<Z;
2536/3: 202 325 154|204 265 121 JS802; J707;
2537/3: 304 000 001|200 325 156|202 325 154|204 265 121 712; (L); SET1; JS704; JS802; J707;
2541/3: 164 003|042|222 045 145 710; SHL+1; DUP; J714<Z;
2542/3: 164 003|042|225 045 147 781; SHL+1; DUP; J715<Z;
2543/3: 164 003|222 045 152 804; SHL+1; J716<Z;
2544/2: 202 325 154|204 265 121 713; JS802; J707;
2545/2: 065|167 041|304 000 005|200 325 156|167 341 714; (C); REV; SHC+16; SET5; JS704; SHC-16;
2547/1: 065|203 265 142 REV; J781;
[Page number 42
2547/5: 065|167 341|304 000 004|200 325 156|167 041 715; (I); REV; SHC-16; SET4; JS704; SHC+16;
2551/4: 065|203 265 143 REV; J804;
2552/2: 304 000 003|200 325 156|202 265 144 716; (M); SET3; JS704; J713;
2553/5: 200 360 000 780; EXIT1;
2554/2: 141 340|301 357 100|140 340|200 360 000 802; M-I14; =Y0M14; M+I14; EXIT1;
704; (DO A V UPDATE);
(N1=PART CODE FOR FUNNY SEARCH);
(N2=V STORE PART IN LEAST SIGNIFICANT POSITION);
(N3=REMAIN OF THE 4-BIT CODE);
2556/0: 171 342|027|033|065|203 325 237|202 265 160|203 265 163 M14; NEG; NOT; REV; JS733; J850; J705;
850; (FUNNY, N-STORE, R4);
2560/2: 065|042|304 000 037|054|042|066|015|065 REV; DUP; SETB37; AND; DUP; CAB; NEV; REV;
(V-CODE, V-STORE, FUNNY, R4);
2562/0: 066|065 CAB; REV;
(V-STORE, FUNNY, V-STORE, R4);
2562/2: 200 325 164|304 000 004 JS727; SET4;
2563/2: 056 +; (UPDATED V, R4);
2563/3: 200 360 000 705; (V-STORE, R4); EXIT1;
727; (INTERPRET A FUNNY);
(N1=CODE P÷R/V/U/L);
(N2=FUNNY);
2564/0: 042|164 371|204 145 176 DUP; SHL-4; J730≠Z;
2565/0: 042|164 373|201 145 204 DUP; SHL-3; J731≠Z;
2566/0: 042|164 375|203 145 217 DUP; SHL-2; J732≠Z;
(AYY WITH U OR L);
2567/0: 065|164 041|164 301 REV; SHL+16; SHL-32; (INTEGER PART OF THE FUNNY);
2567/5: 304 177 377|036|171 062|036|164 103|164 277 SETB77777; -; M3; -; (ADDRESS. CODE); SHL+33; SHL-33;
2571/4: 065|304 000 003|054|042|164 377|201 145 175 703; REV; SETB3; AND; DUP; SHL-1; J728≠Z;
[Page number 43
2573/3: 221 145 176 J729=Z;
2574/0: 161 003|033|027|202 360 001 (L); SHA+1; NOT; NEG; EXIT2;
2575/1: 052|161 003|202 360 001 728; (U); ERASE; SHA+1; EXIT2;
2576/1: 202 360 001 729; (NEITHER); EXIT2;
2576/4: 304 000 003|054|202 145 230 730; (APP); SET3; AND; J700≠Z; (P AND U OR L);
2577/5: 041|166 041|042|222 145 216 ZERO; SHLD+16; (P NUMBER, WORD UP 16 PLACES); DUP; J811=Z;
2601/0: 205 324 037|200 265 213 JS223; (SEARCH FOR P); J919; (NO P); (P NO, WORD UP 16);
2602/0: 052|310 033 137 819; ERASE; Z0M1;
2602/4: 164 101|164 301 812; SHL+32; SHL-32; (ADDRESS, WORD UP 16);
2603/2: 065|052|202 360 001 REV; ERASE; EXIT2;
2604/1: 304 000 003|054|202 145 230 731; (ARRPP); SET3; AND; J700≠Z;
2605/2: 041|166 041|042|224 145 213 ZERO; SHLD+16; DUP; J809=Z; (TST FORP0);
2606/3: 205 324 037|200 265 213 JS223; J919; (P NUMBER, WORD UP 16);
2607/3: 065|164 301|042|220 145 202 810; REV; SHL-32; DUP; J819=Z;
2610/4: 203 324 014|201 265 212|205 265 235 JS391; J782; J702; (REFERENCE, P NUMBER);
2612/1: 065|052|202 360 001 782; REV; ERASE; EXIT2;
2613/0: 065|205 265 233 919; REV; J920;
2613/4: 065|164 301|042|222 145 216 809; (P0); REV; SHL-32;DUP; J811=Z;
2614/5: 201 324 145|205 265 235|201 265 212 JS603; J702; J782;
2616/2: 052|300 013 126|200 323 140 811; (AP0); ERASE; YA0; JS12;
732; (AVVPP);
2617/3: 065|041|166 041|042|223 145 225 REV; ZERO; SHLD+16; (P NUMBER, WORD UP 16); DUP; J813=Z;
2620/5: 205 324 037|203 265 233 JS223; J701;
2621/5: 052|164 301 ERASE; SHL-32; (V-NUMBER);
2622/2: 310 033 137|164 041|164 301|036 Z0M1; SHL+16; SHL-32; -; (V-V);
2623/4: 310 033 137 Z0M1;
2624/1: 056|164 101|164 301 814; +; SHL32; SHL-32;
2625/0: 204 265 171 J703; (ADDRESS, CODE);
[Page number 44
2625/3: 052|164 301|300 013 126|164 041|164 301|036|300 013 126|201 265 224
813; (AVVP0); ERASE; SHL-32; YA0; SHL16; SHL-32; -; YA0; J814;
2630/2: 041|166 041|065|041|166 041|065 700; ZERO; SHLD+16; REV; ZERO; SHLD+16; REV;
2631/4: 052|065 ERASE; REV; (P NUMBER, INTEGER);
2632/0: 300 001 117|205 324 155 V327; JS687;
2633/0: 200 360 000 EXIT1; (FAILURE EXIT, EMPTY NEST);
2633/3: 012|052 701; PERM; ERASE;
2633/5: 052|041|065|300 001 052|205 324 155|200 360 000 920; ERASE; ZERO; REV; V290; JS687; EXIT1;
2635/5: 065|300 001 052|205 324 155|200 360 000 702; REV; V290; JS687; EXIT1;
(ON EXIT1; EMPTY NEST, EXIT2; THE REQUIRED ADDRESS);
2637/3: 265 165 240|052|052|202 360 001 733; J734C7NZ; ERASE; ERASE; EXIT2;
2640/5: 304 000 005|036|027|042|221 044 144|065 734; SET5; -; NEG; DUP; J634<Z; REV;
2642/3: 164 007|056|310 173 136|042|164 101|164 301 SHL+3; +; Z1M7; DUP; SHL+32; SHL-32;
2644/2: 066|036|225 145 245|052|202 360 001 CAB; -; J735=Z; ERASE; EXIT2; (NO FUNNY);
2645/5: 143 160|140 160|200 360 000 735; DC7; M+I7; EXIT 1; (FUNNY FOUND);
800; (instruction update);
2647/0: 171 276|301 001 023|204 265 250 Q11; =V267; J614;
2650/2: 052 613; ERASE;
2650/3: 052 617; ERASE;
2650/4: 202 324 113|200 360 000 614; JS402; (next syllable); EXIT1; (end of update);
2651/4: 042|304 000 300|054|164 365 DUP; SETB300; AND; SHL-6; (q-bits);
2652/5: 042|222 145 250 DUP; J613=Z;
2653/3: 027|033|042|204 145 255 NEG; NOT; DUP; J615≠Z;
2654/3: 052|202 324 131|204 265 250 (2); ERASE; JS405; J614;
2655/4: 027|033|223 145 305 615; NEG; NOT; J616=Z;
(Fetch/store/set);
2656/3: 200 324 125|042|164 073|205 324 075|065|204 045 274 JS404; DUP; SHL+29; JS409; REV; J618≥Z;
2660/4: 223 145 321 (SET); J737=Z; (Y bit);
2661/1: 042|164 075|204 045 267 DUP; SHL+30; J612≥Z;
2662/1: 167 075|164 003|164 377|205 324 102 (SET AR); SHC+30; SHL+1; SHL-1; (erase R); JS411;
[Page number 45
2663/4: 167 305|042|304 017 377|054|042|066|015 SHC-30; DUP; SETB7777; AND; DUP; CAB; NEV;
2665/2: 065|201 324 145 REV; JS603; (reference from P0);
2666/0: 205 265 313 J610;
2666/3: 056|204 324 141|204 265 250 +; JS408; J614;
2667/4: 042|304 177 377|054|042|066|015 612; (SET AY); DUP; SETB77777; AND; DUP; CAB; NEV;
2671/0: 065|171 062|056|304 177 377|036|164 103|164 277|056 REV; M3; +; SETB77777; -; SHL+33; SHL-33; +;
2673/1: 204 324 141|205 324 102|204 265 250 JS408; JS411; J614;
2674/4: 220 145 326 618; (Fetch/store); J739=Z; (Y-bit);
2675/1: 164 061|167 005|041|166 007|065|164 373 SHL+24; SHC+2; ZERO; SHLD+3; REV; SHL-3;
2676/5: 167 025|065|166 031 SHC+10; REV; SHLD+12;
2677/4: 171 062|056|304 177 377|036|164 103|164 277 M3; +; SETB77777; -; SHL+33; SHL-33;
2701/3: 166 351 741; SHLD-12;
2701/5: 065|167 355|164 007|065|166 373|052 REV; SHC-10; SHL+3; REV; SHLD-3; ERASE;
2703/2: 167 375|164 321|204 324 141|205 324 102|204 265 250 SHC-2; SHL-24; JS408; JS411; J614;
616; (Jump/exit);
2705/3: 200 324 125|205 324 075|223 145 331 JS404; JS409; J742=Z;
2707/0: 205 324 102 JS411;
2707/3: 042|304 017 377|054|042|066|015|065 DUP; SETB7777; AND; DUP; CAB; NEV; REV;
2711/0: 201 324 145|205 265 313 JS603; J610;
2712/0: 041|065|205 322 313|204 324 141|204 265 250 803; ZERO; REV; JS446; JS408; J614;
610; (reference in N1);
2713/5: 041|300 001 052|205 324 155|304 000 004|056 ZERO; V290; JS687; SET4; +;
2715/4: 204 324 141|204 265 250 JS408; J614;
607; (EXITAR);
2716/4: 041|300 001 075|205 324 155 ZERO; V309; JS687;
2717/5: 304 000 004|056|204 324 141|204 265 250 SET4; +; JS408; J614;
2721/3: 167 075|164 003|164 377|167 305 737; (SET); SHC+30; SHL+1; SHL-1; SHC-30; (ERASE R);
2722/5: 204 325 107|205 265 324|203 265 250 JS723; J738; J617;
[Page number 46
2724/2: 304 000 004 SET4;
2724/5: 056|204 324 141|204 265 250 738; (ADDRESS, INST); +; JS408; J614;
739; (FETCH/STORE);
2726/0: 204 325 107|200 265 330|203 265 250 JS723; J740; J617;
2727/3: 304 000 004 SET4;
2730/0: 065|167 111|164 031|065|203 265 301 740; (ADDRESS, INST); REV; SHC+36; SHL+12; REV; J741;
742; (Jump/Exit);
2731/3: 042|164 101|164 251|304 000 017|036|220 145 336 DUP; SHL+32; SHL-44; SET15; -; J743=Z;
2733/3: 204 325 107|200 265 312|203 265 250 901; JS723; J803; J617;
2735/0: 304 000 004|200 265 312 SET4; J803;
743; (EXIT);
2736/0: 042|164 065|164 247|304 000 002|036|223 105 333 DUP; SHL26; SHL-45; SET2; -; J901>Z;
2740/0: 171 222|171 230|027|304 000 010|044|052|203 325 237|201 265 343
M9; C9; NEG; SET8; ÷I; ERASE; JS733; J799;
2742/4: 203 265 250 J617;
2743/1: 042|304 000 010|200 325 164 799; (funny, instn); DUP; SETB10; JS727;
2744/2: 304 000 004 SET4;
2744/5: 066|065 (address, funny, instn); CAB; REV;
2745/1: 164 101|041|166 007 SHL+32; ZERO; SHLD+3; (syllable, word, instn, funny);
2746/0: 065|164 273|065|066|164 061|167 013 REV; SHL-35; REV; CAB; SHL24; SHC5;
2747/3: 041|166 007 ZERO; SHLD3; (h, instn, syll, word);
2750/0: 304 000 002|015|042|164 377|056|066 SET2; NEV; DUP; SHL-1; +; CAB;
2751/3: 056|042|220 145 361 +; DUP; J666=Z;
2752/2: 042|304 000 003|036|221 145 362 DUP; SET3; -; J667=Z;
2753/4: 052|041|166 373|052 ERASE; ZERO; SHLD-3; ERASE;
2754/3: 167 367|164 321 SHC-5; SHL-24;
2755/1: 065|052|065 672; REV; ERASE; REV; (funny, instruction);
2755/4: 041|166 041|065|164 301|065|300 001 075 ZERO; SHLD+16; REV; SHL-32; REV; V309;
2757/2: 205 324 155|304 000 004|056|202 265 371 JS687; SET4; +; J798;
2761/0: 052|304 000 002|200 265 363 666; ERASE; SET2; J669;
[Page number 47
2762/1: 052|041|200 265 363 667; ERASE; ZERO; J669;
669; (L, instn, word);
2763/0: 166 373|052|167 367|164 321 SHLD-3; ERASE; SHC-5; SHL-24;
2764/1: 042|304 017 377|054|042 (instn, word); DUP; SETB7777; AND; DUP;
2765/1: 066|015|065|066|056|042 CAB; NEV; REV; CAB; +; DUP;
2766/1: 164 347|202 145 372 SHL-13; J797≠Z;
2767/0: 167 347|041|166 003 SHC-13; ZERO; SHLD1;
2767/5: 164 047|065|167 031|056|056 SHL19; REV; SHC12; +; +;
2771/0: 065|052 REV; ERASE;
2771/2: 204 324 141|204 265 250 798; JS408; J614;
2772/2: 052|201 265 355 797; ERASE; J672;
2773/0: 300 013 043|171 162|027|036|201 144 144 611; V0P24; M7; NEG; -; J634≠Z;
2774/4: 300 001 072|171 062|067|300 001 071|056 V306; M3; FRB; V305; +;
2776/2: 304 000 045|164 075|056|042|301 001 123|301 012 310 SETB45; SHL+30; +; DUP; =V331; =V1P3;
3000/3: 300 000 233|205 146 003|300 000 000|164 125|164 247|304 000 003
V147; J609≠Z; E0; SHL42; SHL-45; SET3;
3003/1: 036|221 146 014 -; J605=Z;
3003/5: 300 000 277|042|202 146 007|052 609; V183; DUP; J869≠Z; ERASE;
3005/1: 304 000 001|304 000 005|200 220 000|042|301 000 277 SET1 ; SET5; OUT; DUP; =V183;
3007/2: 170 030|304 001 122|170 024|304 001 123|170 022 869; =C1; SET338; =I1; SET339; =M1;
3011/2: 300 001 003|301 001 122|130 020|304 000 360|170 022|144 020|130 034
V251; =V330; PWQ1; SET240; =M1; I1=+1; PGAPQ1;
3014/1: 300 017 101|164 061|164 321|042|224 146 017 605; Y1; SHL24; SHL-24; DUP; J995=Z;
3016/0: 300 001 225|171 062|066|036|223 102 337 V397; M3; CAB; -; J491>Z;
3017/4: 052|300 000 233|200 152 032 995; ERASE; V147; J838≠Z;
3020/5: 300 000 000|164 117|164 247|200 152 032 E0; SHL39; SHL-45; J838≠Z;
3022/3: 300 000 277|042|170 030|203 146 026|304 000 001|304 000 005|200 220 000|042
V183; DUP; =C1; J597≠Z; SET1; SET5; OUT; DUP;
3025/4: 301 000 277|170 271 =V183; =RC11;
3026/3: 304 000 360|170 022|130 034 597; SET240; =M1; PGAPQ1;
3027/4: 300 017 107|170 136|171 122|171 124|036|304 000 020|056|170 130
Y7; =Q5; M5; I5; -; SET16; +; =C5;
[Page number 48
3032/2: 304 017 070|170 024 SETAYD0; =I1;
3033/1: 171 130|304 000 037|036|203 106 040 872; C5; SET31; -; J870≤Z;
3034/4: 171 024|304 000 037|056|170 022 I1; SET31; +; =M1;
3036/0: 130 020 PWQ1;
3036/2: 304 000 040|172 024 SET32; =+I1;
3037/1: 304 377 340|172 130|201 266 033 SET-32; =+C5; J872;
3040/3: 171 130|171 024|056|170 022|130 020 870; C5; I1; +; =M1; PWQ1;
3042/0: 304 000 360|170 022|144 020|130 034 SET240; =M1; I1=+1; PGAPQ1;
3043/3: 200 272 032 J838;
118; (instructions beginning with G);
3044/0: 304 000 073|201 262 215 SET59; J506; (report failure);
(end of G);
3045/0: 041|042|301 001 020|200 323 304 273; ZERO; DUP; =V264; JS190; (H entry);
3046/2: 201 263 274|200 262 154|201 262 216 J179; J511; J500;
120; (instructions beginning with I);
3047/5: 205 323 137 JS13;
3050/2: 204 262 214 J508;
3050/5: 201 262 216 J503;
3051/2: 201 322 250 JS53; (check q);
3051/5: 202 262 217 J504;
3052/2: 161 011|012|304 000 073|202 026 061 SHA4; PERM; SET59; J149≠;
3053/5: 052|300 000 046|015|042|164 061|204 146 056 ERASE;V30; NEV; DUP; SHL24; J150≠Z;
3055/4: 164 321|056|201 262 230 SHL-24; +; J51; (store INQQ);
3056/4: 300 000 046|015|164 061|201 142 216 150; V30; NEV; SHL24; J503≠Z;
3060/1: 304 171 004|056|201 262 230 SETB74404; +; J51; (store Iq);
3061/2: 065|164 015|056|200 323 140 149; REV; SHL6; +; JS12;
3062/3: 204 262 214 J502;
3063/0: 201 262 216 J500;
3063/3: 012|304 000 073|036|202 142 217 PERM; SET59; -; J504≠Z;
[Page number 49
3064/5: 300 000 053|170 036|201 322 243 V35; =Q1; JS21;
3066/1: 203 266 067 J151;
3066/4: 056|056|201 262 230 +; +; J51; (store IqTOQq IMqTOQq);
3067/3: 304 000 064|036|201 142 216 151; SET52; -; J500≠Z;
3070/4: 042|304 000 001|036|202 146 073 DUP; SET1; -; J152≠Z;
3072/0: 052|304 144 000|056|201 262 230 ERASE; SETB62000; +; J51; (store Iq=1);
3073/2: 042|304 000 001|056|200 146 076 152; DUP; SET1; +; J153≠Z;
3074/4: 052|304 145 000|056|201 262 230 ERASE; SETB62400; +; J51; (store Iq=-1);
3076/0: 042|304 000 002|036|204 146 100 153; DUP; SET2; -; J154≠Z;
3077/2: 052|304 146 000|056|201 262 230 ERASE; SETB63000; +; J51; (store Iq=2);
3100/4: 042|304 000 002|056|201 142 216 154; DUP; SET2; +; J500≠Z;
3102/0: 052|304 147 000|056|201 262 230 ERASE; SETB63400; +; J51; (store Iq=-2);
(end of I);
3103/2: 041 274; ZERO;
3103/3: 205 323 315|170 036 JS400; =Q1; (buffer Y÷R bit);
(address, terminater, S÷R marker);
3104/2: 065|304 000 073|222 026 132 REV; SET59; J423=;
3105/3: 200 323 140|201 262 216 JS12; J501; (unfinished gp., add, S mark);
3106/3: 201 266 135 J424; (gp ended in a reminder, add S mark);
((q number), terminater, group, address, S÷R marker);
3107/0: 201 322 250|204 266 142 JS53; (test q); J425; (failure);
3110/0: 065|304 000 073|224 026 146 REV; SET59; J426=;
3111/1: 200 323 140 JS12;
3111/4: 204 266 144|201 266 113|203 266 145 J427; J428; J429;
428; (group, q, c, address, S marker);
3113/1: 304 006 145|225 026 122 SETB3145; J430=;
3114/1: 304 000 045|225 026 123 SETB45; J431=;
3115/1: 300 001 047|042|066|015|164 061|204 146 146 V287; DUP; CAB; NEV; SHL+24; J426≠Z;
(two syllable short loop jump);
[Page number 50
3117/0: 164 321|065|164 011|056 SHL-24; REV; SHL+4; +; (insert q);
3120/0: 065|304 000 016|036|201 142 216 REV; SET14; -; J501≠Z; (inst, add, S÷R mark);
3121/2: 065|052|065|201 142 216 REV; ERASE; REV; J503≠Z; (test S mark);
3122/2: 201 262 230 J51; (store 2 syllable instruction);
3122/5: 304 000 001|200 266 124 430; (NZ); SET1; J433;
3123/5: 041 431; (Z); ZERO;
3124/0: 304 000 012|056|164 051 433; SET10; +; SHL20;
3125/0: 065|052 REV; ERASE; (inst, q, c, add, S mark);
3125/2: 065|164 031|056|065|304 000 016|036|204 142 226 REV; SHL+12; +; REV; SET14; -; J50≠Z;
(inst, add, S mark);
3127/2: 065|041|065|205 322 313 REV; ZERO; REV; JS446;
3130/2: 065|201 142 216 REV; J503≠Z;
3131/0: 171 036|201 323 153|205 262 231 434; Q1; JS63; J52; (store 3 syllable inst);
423; (Jr or JSr);
3132/2: 052 ERASE; (add, S marker);
3132/3: 300 001 046|065|041|065|205 322 313 V286; REV; ZERO; REV; JS446;
3134/0: 065|164 033|056|200 266 131 REV; SHL+13; +; J434;
424; (V, NV, EN, NEN, EJ, NEJ);
(TR, NTR, =, ≠, ≤Z, <Z, >Z, ≥Z, =Z, ≠Z);
(group, add, S÷R marker);
3135/1: 171 036 Q1;
3135/3: 065|051|066 REV; REVD; CAB;
3136/0: 300 001 025|170 036|201 322 243|205 266 146 V269; =Q1; JS21; J818;
3137/5: 065|041|065|205 322 313|065|201 142 216 REV; ZERO; REV; JS446; REV; J500≠Z;
3141/3: 065|201 323 153 REV; JS63;
3142/1: 205 262 231 J52;
3142/4: 052 425; ERASE;
3142/5: 065|052|304 000 073|221 022 216|202 262 217 435; REV; ERASE; SET59; J501=; J504;
3144/4: 052|052|202 262 217 427; ERASE; ERASE; J504;
[Page number 51
3145/3: 052|065|052|205 266 142 429; ERASE; REV; ERASE; J435;
3146/3: 052 432; ERASE;
3146/4: 052 426; ERASE;
3146/5: 052|201 262 216 818; ERASE; J501;
122; (instructions beginning with K);
3147/3: 205 323 137 JS13;
3150/0: 204 262 214 J508;
3150/3: 201 262 216 J503;
3151/0: 012|304 000 073|036|204 142 214 PERM; SET59; -; J502≠Z;
3152/2: 201 142 216 J503≠Z;
3152/5: 042|304 000 004|036|202 146 155 DUP; SET4; -; J159≠Z;
3154/1: 052|304 176 010|201 262 230 ERASE; SETB77010; J51; (store K4);
3155/2: 042|304 000 005|036|205 146 157 159; DUP; SET5; -; J160≠Z;
3156/4: 052|304 176 004|201 262 230 ERASE; SETB77004; J51; (store K5);
3157/5: 042|304 000 007|036|201 142 216 160; DUP; SET7; -; J503≠Z;
3161/1: 052|304 176 001|201 262 230 ERASE; SETB77001; J51; (store K7);
(end of K);
123; (instructions beginning with L);
3162/2: 205 323 137 JS13;
3162/5: 204 262 214 J508;
3163/2: 204 266 174 J197;
3163/5: 066|041|222 026 177 CAB; ZERO; J198=; (label of library subroutine);
3164/4: 066|304 000 073|036|204 142 214 CAB; SET 59; -; J502≠Z;
3166/0: 065|201 322 250 REV; JS53;
3166/4: 201 262 216 J503;
3167/1: 161 011|065|042|300 000 044|042|012|015|164 061|204 146 171 SHA 4; REV; DUP; V28; DUP; PERM; NEV; SHL 24; J921≠Z;
3171/4: 052|300 000 045|042|012|015|164 061|201 142 216 921; ERASE; V29; DUP; PERM; NEV; SHL24; J500≠Z;
[Page number 52
3173/4: 164 321|056|201 262 230 SHL-24; +; J51; (store LPEQQ);
3174/4: 300 000 043|042|066|015|164 061|201 142 216 197; V27; DUP; CAB; NEV; SHL 24; J503≠Z;
3176/3: 164 321|201 262 230 SHL-24; J51; (store LINK);
3177/2: 052|065|304 000 073|203 026 201 198; ERASE; REV; SET 59; J199≠;
3200/4: 052|041|201 266 205 ERASE; ZERO; J200;
3201/3: 304 000 041|036|204 142 214 199; SET 33; -; J508≠Z;
3202/4: 205 323 037 JS3;
3203/1: 065|304 000 073|036|204 142 214 REV; SET 59; -; J502≠Z;
3204/3: 304 000 001|056 SET 1; +;
200; (N1 number of V-stores, N2 number of library subroutine);
3205/1: 065|042|221 142 216|304 037 377|056|065|201 326 352|200 262 154
REV; DUP; J500=Z; SET8191; +; REV; JS807; J511;
124; (instructions beginning with M);
3207/5: 205 323 043 JS25;
3210/2: 304 000 054|224 026 231 SET44; J203=;
3211/2: 304 000 055|223 026 232 SET45; J204=;
3212/2: 042|304 000 011|036|205 106 241 DUP; SET9; -; J205≤Z;
3213/4: 200 323 140 JS12;
3214/1: 204 262 214 J508;
3214/4: 202 266 227 J206;
3215/1: 012|304 000 073|036|204 142 214 PERM; SET59; -; J502≠Z;
3216/3: 065|201 322 250 REV; JS53;
3217/1: 201 262 216 J500;
3217/4: 164 011|065|300 000 056|170 036|201 322 243 SHL4; REV; V38; =Q1; JS21;
3221/3: 204 266 222 J207;
3222/0: 056|201 262 230 +; J51; (store MBREQq MBRQq MBSKQq MBTQq);
(METQq MFREQq MFRQq MFSKQq MGAPQq MLBQq);
(MLEWQq MLWQq MRWDQq MWEQq MWQq);
[Page number 53
3222/4: 300 000 076|200 026 225 207; V54; J208≠;
3223/4: 052|304 120 001|056|201 262 230 ERASE; SETB50001; +; J51; (store MANUALQQ);
3225/0: 300 000 077|036|201 142 216 208; V55; -; J503≠Z;
3226/1: 304 130 004|056|201 262 230 SETB54004; +; J51; (STOREMWIPEQQ);
3227/2: 300 000 100|170 036|201 322 243 206; V56; =Q1; JS21;
3230/4: 201 262 216 J503;
3231/1: 204 262 226 J50; (store MAX MAXF);
3231/4: 052|041|201 266 233 203; ERASE; ZERO; J210;
3232/3: 052|304 001 000 204; ERASE; SET256;
3233/1: 205 323 137 210; JS13;
3233/4: 204 262 214 J502;
3234/1: 201 262 216 J500;
3234/4: 012|304 000 073|036|202 142 217 PERM; SET59; -; J504≠Z;
3236/0: 304 000 024|036|201 142 216 SET20; -; J500≠Z;
3237/1: 201 322 250 JS53;
3237/4: 201 262 216 J500;
3240/1: 164 011|056|304 140 000|056|201 262 230 SHL4; +; SETB60000; +; J51; (store M+Iq M-Iq);
(M continued on next sheet);
(M continued);
3241/5: 203 323 033 205; JS6;
3242/2: 065|304 000 073|201 026 246 REV; SET59; J209≠;
3243/3: 052|201 322 250 ERASE; JS53;
3244/1: 201 262 216 J503;
3244/4: 164 011|304 171 002|056|201 262 230 SHL4; SETB74402; +; J51; (store Mq);
3246/1: 065|201 322 250 209; REV; JS53;
3246/5: 204 262 214 J502;
3247/2: 065|304 000 030|222 026 257 REV; SET24; J211=;
3250/3: 200 323 140 JS12;
3251/0: 204 262 214 J502;
[Page number 54
3251/3: 201 262 216 J500;
3252/0: 012|304 000 073|036|202 142 217 PERM; SET59; -; J504≠Z;
3253/2: 300 000 103|036|201 142 216 V59; -; J500≠Z;
3254/3: 201 322 250 JS53;
3255/0: 201 262 216 J500;
3255/3: 065|161 011|056|304 151 000|056|201 262 230 REV; SHA4; +; SETB64400; +; J51; (store MqTOQq);
3257/2: 052 211; ERASE;
212; (entry from = for =MqMq etc.);
3257/3: 200 323 030 JS8;
3260/0: 065|304 000 073|200 026 262 REV; SET59; J213≠;
3261/1: 052|041|203 266 264 ERASE; ZERO; J214;
3262/0: 200 323 140 213; JS12;
3262/3: 202 262 217 J504;
3263/0: 203 266 264 J214;
3263/3: 052|012|052|202 262 217 ERASE; PERM; ERASE; J504;
3264/3: 012|201 322 250 214; PERM; JS53;
3265/1: 201 262 216 J501;
3265/4: 164 011|056|065|300 000 104|170 036|201 322 243 SHL4; +; REV; V60; =Q1; JS21;
3267/4: 201 262 216 J503;
3270/1: 056|201 262 230 +; J51; (store MqMq MqMqQ MqMqH MqMqQH);
(MqMqN MqMqQN MqMqHN MqMqQHN);
(end of m);
125; (instructions beginning with N);
3270/5: 300 000 115|205 322 237 V69; JS22;
3271/5: 201 262 216 J503;
3272/2: 204 262 226 J50; (store NEG NEGD NEGF NEGDF NEV NOT);
3272/5: 201 322 250 JS53;
3273/2: 202 262 217 J504;
3273/5: 161 011|012|304 000 073|036|204 142 214 SHA4; PERM; SET59; -; J502≠Z;
[Page number 55
3275/3: 304 000 016|036|201 142 216 SET14; -; J503≠Z;
3276/4: 304 142 000|056|201 262 230 SETB61000; +; J51; (store NCq);
(end of N);
126; (instructions beginning with O);
3277/5: 205 323 137 JS13;
3300/2: 204 262 214 J508;
3300/5: 205 266 301 J228;
3301/2: 202 262 217 J504;
3301/5: 304 000 035|223 026 305 228; SET29; J229=;
3302/5: 304 010 037|036|201 142 253 SETB4037; -; J54≠Z;
3304/0: 200 323 153 JS62;
3304/3: 300 001 076|205 262 231 V310; J52; (store OUT);
3305/3: 052|304 000 011|204 262 226 229; ERASE; SET9; J50; (store OR);
(end of O);
127; (instruction beginning with P);
3306/4: 205 323 137 JS13;
3307/1: 204 262 214 J508;
3307/4: 203 266 316 J230;
3310/1: 066|042|224 146 321 CAB; DUP; J231=Z; (null group);
3311/0: 066|304 000 073|036|204 142 214 CAB; SET59; -; J502≠Z;
3312/2: 065|201 322 250 REV; JS53; (test q);
3313/0: 201 262 216 J500;
3313/3: 161 011|065|300 000 124|170 036|201 322 243 SHA4; REV; V76; =Q1; JS21;
3315/2: 201 266 344 J934;
3315/5: 056|201 262 230 +; J51; (store PARQQ PGAPQQ PRCEQQ PRCQQ PREQQ);
(PRQQ PWEQQ PWQQ);
3316/3: 042|300 000 140|042|066|015|164 061|200 146 330 230; DUP; V88; DUP; CAB; NEV; SHL24; J682≠Z;
3320/3: 065|052|164 321|204 262 226 REV; ERASE; SHL-24; J50; (store PERM);
3321/4: 052|065|304 000 073|205 026 323 231; ERASE; REV; SET59; J232≠;
[Page number 56
3323/0: 052|041|201 266 351 ERASE; ZERO; J233;
3323/5: 304 000 041|036|204 142 214 232; SET33; -; J508≠Z;
3325/0: 205 323 037 JS3;
3325/3: 065|304 000 073|036|204 142 214 REV; SET59; -; J502≠Z;
3326/5: 304 000 001|056|201 266 351 SET1; +; J233;
3330/0: 052 682; ERASE;
3330/1: 300 000 274|201 142 216 V180; J503≠Z;
3331/1: 300 001 113|224 026 334 V323; J681=;
3332/1: 300 001 114|224 026 334 V324; J681=;
3333/1: 300 001 115|224 026 334 V325; J681=;
3334/1: 200 262 332 J466; (failure);
3334/4: 171 070|304 000 006|036|222 146 337 681; C3; SET6; -; J683=Z;
3336/1: 041|201 322 221|204 266 334 ZERO; JS55; J681;
3337/2: 304 000 057|171 050|036|202 146 341|200 323 153 683; SET47; C2; -; J685≠Z; JS62;
3341/2: 304 000 056|170 051|201 323 017|041|033 685; SET46; =RC2; JS46; ZERO; NOT;
3343/0: 301 000 274|052|203 262 065 =V180; ERASE; J468;
3344/1: 300 001 175|170 036|201 322 243 934; V373; =Q1; JS21;
3345/3: 204 266 346|056|201 262 230 J996; +; J51;
3346/4: 300 001 231|170 036|201 322 243 996; V401; =Q1; JS21;
3350/0: 201 262 216|056|201 262 230 J500; +; J51; (STORE PIAQQ ETC);
233; (N1 number of V-stores, N2 number of private subroutine);
3351/1: 201 326 352|200 262 154 JS807; J511;
3352/1: 041|301 000 232 807; ZERO; =V146;
3352/5: 065|042|221 146 355|205 324 037|201 266 355|201 262 216 REV; DUP; J817=Z; JS223; J817; J500;
3355/1: 065 817; REV;
3355/2: 151 004|041|301 001 116 M0TOQ4; ZERO; =V326;
[Page number 57
3356/2: 042|164 347|201 142 216 DUP; SHL-13; J500≠Z;
3357/2: 065|042|012|221 147 064 REV; DUP; PERM; J650=Z;
3360/2: 300 001 015|042|222 147 075 V261; DUP; J761=Z; (NO PREVIOUS S÷R);
3361/3: 171 202|042|066|042 M8; DUP; (new,new,old); CAB; DUP; (old,old,new,new);
3362/2: 170 202|036|164 101|164 301|310 213 136|056|311 213 136 =M8; -; SHL32; SHL-32; Z1M8; +; =Z1M8;
3364/4: 042|170 202|300 001 015|065|301 001 015 DUP; =M8; V261; REV; =V261;
3366/2: 012 654; PERM;
3366/3: 170 024|042|170 030 =I1; (v); DUP; =C1; (p); (in N2 is old S÷R pointer);
(in N1 is new P number);
3367/2: 171 070|304 000 006|036|220 146 372 653; C3; SET6; -; J652=Z;
3370/5: 041|201 322 221|202 266 367 ZERO; JS55; J653;
3372/0: 151 061|171 036|171 024|056|300 001 173|056|313 213 137|244 207 027
652; M3TOQ1; Q1; I1; +; V371; +; =Z0M8Q; J883C8Z;
3374/5: 171 050|164 041|171 042|056|164 041|313 213 137|244 207 030 885; C2; SHL16; M2; +; SHL16; =Z0M8Q; J884C8Z;
(new entry completed);
3377/2: 157 065|171 024|172 062|171 024 886; Q3TOQ5; I1; =+M3; I1;
3400/4: 042|027|172 210 DUP; NEG; =+C8;
3401/2: 171 210|221 107 003|204 332 004|202 267 001 975; C8; J974>Z; JS874; J975;
3403/1: 205 324 045 974; JS641;
3403/4: 300 001 016|221 147 074 676; V262; J655=Z; (current level =0);
3404/4: 300 001 016|205 324 037|204 263 135|052|301 001 016|052|171 022
V262; JS223; J101; ERASE; =V262; ERASE; M1;
3407/2: 171 130|027|033|161 007|027|170 130|171 136 C5; NEG; NOT; SHA3; NEG; =C5; Q5;
3411/1: 301 001 024 =V268; (address to stop updating);
3411/4: 170 022 =M1; (old s/r pointer);
3412/0: 310 033 136|170 136|310 033 137|164 041|164 301|161 005 Z1M1; =Q5; Z0M1; SHL+16; SHL-32; SHA2;
3414/2: 304 000 060|044|304 000 060|171 130|036|056|304 000 060 SET48; ÷I; SET48; C5; -; +; SET48;
3416/4: 044|012|056|171 124|056|170 243|304 000 057|036|170 250 ÷I; PERM; +; I5; +; =RM10; SET47; -; =C10;
3421/0: 310 033 137|164 101|041|166 007|161 007 Z0M1; SHL32; ZERO; SHLD3; SHA3;
3422/4: 304 000 050|036|170 271|164 273|300 001 173|036|170 262 SET40; -; =RC11; SHL-35; V371; -; =M11;
[Page number 58
3425/0: 171 276|301 001 023 Q11; =V267;
(set up bit and syllable fetch instructions);
3425/5: 300 054 253|164 040|301 054 253 YB0M2; SHLC2; =YB0M2; (justify bits);
3427/1: 200 267 032 J659;
3427/4: 204 332 004|205 266 374 883; JS874; J885;
3430/4: 204 332 004|202 266 377 884; JS874; J886;
3431/4: 052 657; ERASE;
3431/5: 052 658; ERASE;
3432/0: 202 324 113|204 267 071 659; JS402; (syllable); J671; (end of update);
3433/0: 042|304 000 300|054|164 365 DUP; SETB300; AND; SHL-6; (Q bits);
3434/1: 042|224 147 031 DUP; J657=Z; (single syllable);
3434/5: 027|033|042|200 147 037 NEG; NOT; DUP; J660≠Z;
3435/5: 052|202 324 131|200 267 032 (two syllable); ERASE; JS405; J659;
3437/0: 027|033|222 147 051 660; NEG; NOT; J661=Z;
(fetch/store/set/);
3437/5: 200 324 125|205 324 075|225 147 031 JS404; JS409; J658=Z;
3441/2: 042|164 073|205 047 031 DUP; SHL29; J658≥Z;
3442/2: 042|164 075|205 047 031 DUP; SHL30; J658≥Z; (R bit);
3443/2: 167 075|164 003|164 377|167 305 (SETAR); SHC30; SHL1; SHL-1; SHC-30;
3444/4: 205 324 102 JS411; (erase bit);
3445/1: 042|304 017 377|054|042|066|015|065 DUP; SETB7777; AND; DUP; CAB; NEV; REV;
3446/4: 203 324 014|201 267 050 JS391; J762;
3447/4: 204 267 060 J670;
3450/1: 056|204 324 141|200 267 032 762; +; JS408; J659;
661; (JUMP / EXIT);
3451/2: 200 324 125|205 324 075|225 147 031 JS404; JS409; J658=Z; (JUMPS);
3452/5: 205 324 102|042|304 017 377|054|042|066 JS411; DUP; SETB7777; AND; DUP; CAB;
3454/3: 015|065|203 324 014|202 267 056|204 267 060 NEV; REV; JS391; J763; J670;
[Page number 59
3456/2: 041|065 763; ZERO; REV;
3456/4: 205 322 313|204 324 141|205 324 102|200 267 032 JS446; JS408; JS411; J659;
670; (no reference);
3460/4: 310 033 137|164 301|300 001 052|205 324 155|304 000 004|056 Z0M1; SHL-32; V290; JS687; SET4; +;
3463/1: 204 324 141|200 267 032 JS408; J659;
3464/1: 201 142 216 650; (new p=0); J503≠Z;
3464/4: 041|170 024|170 030|300 001 015 ZERO; =I1; =C1; V261;
3466/0: 171 070|304 000 006|036|224 147 070 675; C3; SET6; -; J674=Z;
3467/3: 041|201 322 221|200 267 066 ZERO; JS55; J675;
3470/4: 157 065|041|204 267 003 674; Q3TOQ5; ZERO; J676; (0.V261 -- [ could be lowercase o);
671; (end of update);
3471/4: 142 040|300 054 253|164 040|301 054 253|142 040|200 360 000 NC2; YB0M2; SHLC2; =YB0M2; NC2; EXIT1;
3474/1: 301 001 016|052|200 360 000 655; =V262; ERASE; EXIT1;
3475/2: 052|300 001 022|042|301 001 015|202 266 366 761; ERASE; V266; DUP; =V261; J654;
128; (instructions beginning with Q);
3477/1: 205 323 137 JS13;
3477/4: 204 262 214 J508;
3500/1: 201 262 216 J503;
3500/4: 012|304 000 073|200 027 105 PERM; SET59; J239≠;
3501/5: 052|201 142 216|201 322 250|201 262 216 ERASE; J503≠Z; JS53; J503;
3503/3: 161 011|304 171 016|056|201 262 230 SHA4; SETB74416; +; J51; (store Qq);
3505/0: 065|204 142 214 239; REV; J502≠Z;
3505/4: 065|201 322 250 REV; JS53;
3506/2: 204 262 214 J502;
3506/5: 161 011|065|200 323 140 SHA4; REV; JS12;
3507/5: 204 262 214 J502;
[Page number 60
3510/2: 201 262 216 J500;
3510/5: 065|304 000 073|036|202 142 217 REV; SET59; -; J504≠Z;
3512/1: 065|300 000 137|042|066|015|164 061|201 142 216 REV; V87; DUP; CAB; NEV; SHL24; J501≠Z;
3514/1: 164 321|065|201 322 250 SHL-24; REV; JS53;
3515/1: 201 262 216 J501;
3515/4: 056|056|201 262 230 +; +; J51; (store QqTOQq);
(end of Q);
129; (instructions beginning with R);
3516/3: 205 323 137 JS13;
3517/0: 204 262 214 J508;
3517/3: 201 267 137 J680;
3520/0: 066|304 000 020|200 027 146|052 CAB; SET16; J911≠; ERASE;
3521/2: 065|304 000 073|036|204 142 214 REV; SET59; -; J508≠Z;
3522/4: 042|171 062|036|300 001 173|042|221 042 216|220 147 144 DUP; M3; -; V371; DUP; J500<Z; J271=Z;
3525/0: 171 070|304 000 006|036|224 147 127|041|201 322 221|200 267 125
47; C3; SET6; -; J270=Z; ZERO; JS55; J47;
3527/4: 300 001 173|036|042|171 062|036|033|027 270; V371; -; DUP; M3; -; NOT; NEG;
3531/2: 042|027|172 210 DUP; NEG; =+C8;
3532/0: 171 210|201 107 136 923; C8; J922≤Z;
3532/5: 170 130|153 065 =C5; IM3TOQ5;
3533/3: 017|017|017|041|303 137 100|017|017|177 120 *888; ZERO; =Y0M5Q; *J888C5NZS;
3535/2: 170 062|200 262 154 =M3; J511;
3536/1: 204 332 004|200 267 132 922; JS874; J923;
3537/1: 300 000 141|170 036 680; V89; =Q1;
3540/0: 042|102 020|015|042|164 031|225 147 142 249; DUP; M0M1Q; NEV; DUP; SHL12; J248=Z;
3541/4: 052|260 027 140 ERASE; J249C1NZ;
3542/2: 201 262 216 J503;
[Page number 61
3542/5: 065|052|164 271|204 262 226 248; REV; ERASE; SHL-36; J50; (store REV etc.);
3544/0: 171 070|304 000 006|036|224 147 127|201 262 216 271; C3; SET6; -; J270=Z; J503;
3546/0: 221 147 150|052|304 000 073|221 022 216|204 262 214 911; J912=Z; ERASE; SET59; J503=; J508;
3550/1: 041|301 001 020 912; ZERO; =V264;
3550/5: 041|065|201 323 340 916; ZERO; REV; JS551;
3551/4: 225 147 153|065|300 001 016|203 324 032|304 000 010 J913=Z; REV; V262; JS393; SET8;
3553/5: 042|164 347|202 147 157 913; DUP; SHL-13; J914≠Z;
3554/5: 202 323 176|202 323 224|201 263 274|200 262 154|201 262 216 JS178; JS220; J179; J511; J500;
3557/2: 052|304 000 073|221 022 216|204 262 214 914; ERASE; SET59; J500=; J502;
130; (instructions beginning with S);
3561/0: 205 323 043 JS25;
3561/3: 304 000 020|224 027 176 SET16; J251=;
3562/3: 200 323 140 JS12;
3563/0: 204 262 214 J508;
3563/3: 202 267 174 J250;
3564/0: 066|300 000 207|170 036|201 322 243 CAB; V127; =Q1; JS21;
3565/3: 202 267 215 J985;
3566/0: 066|304 000 073|036|204 142 214 CAB; SET59; -; J502≠Z;
3567/2: 042|012|167 377|223 047 172 DUP; PERM; SHC-1; J252<Z;
3570/3: 201 322 250 JS53;
3571/0: 201 262 216 J500;
3571/3: 161 011|056|201 262 230 SHA4; +; J51; (store SHACQ SHADCQ SHLCQ SHLDCQ SHCCQ);
3572/3: 161 123|224 202 214 252; SHA41; J502V;
3573/2: 164 261|056|201 262 230 SHL-40; +; J51; (store SHAN SHADN SHLN SHLDN SHCN);
3574/2: 300 000 222|170 036|201 322 243 250; V138; =Q1; JS21;
3575/4: 201 262 216 J503;
3576/1: 204 262 226 J50; (store SIGN SIGNF STAND STR);
3576/4: 052|205 323 043 251; ERASE; JS25;
3577/2: 304 000 037|204 022 214 SET31; J502≠;
[Page number 62
3600/2: 052|200 323 030 ERASE; JS8;
3601/0: 065|304 000 073|203 027 205 REV; SET59; J253≠;
3602/1: 052|161 101|222 211 370 ERASE; SHA32; J550V;
3603/1: 164 301|304 000 304|164 041|056|200 323 153|205 262 231 257; SHL-32; SETB304; SHL16; +; JS62; J52; (store SETn SETBt);
3605/3: 065|204 142 214 253; REV; J508≠Z;
3606/1: 304 000 015|200 027 216 SET13; J254≠; (for SETA... see 254 next sheet);
3607/1: 052|041 ERASE; ZERO;
3607/3: 205 323 043 255; JS25;
3610/0: 042|304 000 010|036|203 047 212 DUP; SET8; -; J256≥Z;
3611/2: 065|161 007|056|203 267 207 REV; SHA3; +; J255;
3612/3: 304 000 073|036|204 142 214 256; SET59; -; J508≠Z;
3613/4: 161 077|164 003|221 202 216 SHA31; SHL1; J500V;
3614/5: 201 267 203 J257;
3615/2: 052|202 262 217 985; ERASE; J504;
(S continued on next sheet);
3616/0: 304 000 014|204 022 214 254; (SETA); SET12; J508≠;
3617/0: 052 ERASE;
3617/1: 205 323 043|304 000 035|201 027 221 JS25; SET29; J569≠;
3620/4: 202 267 246 J370; (SETAR);
3621/1: 304 000 041|220 027 257 569; SET33; J375=;
3622/1: 304 000 033|225 027 253 SET27; J572=;
3623/1: 304 000 027|225 027 253 SET23; J572=;
3624/1: 304 000 001|301 001 050|204 323 214|201 267 227|201 267 245|201 262 216
SET1; =V288; JS236; J374; J910; J500;
3627/1: 012|056|202 142 217 374; PERM; +; J504≠Z;
3630/0: 066|224 147 235 CAB; J367=Z;
3630/4: 041|203 324 032 ZERO; JS393;
3631/2: 304 000 040|223 027 234 SET32; J373=;
3632/2: 304 000 027|204 022 214 SET23; J508≠;
3633/2: 052|304 000 001|203 267 241 ERASE; SET1; J371;
[Page number 63
3634/3: 052|304 000 002|203 267 241 373; ERASE; SET2; J371;
3635/4: 304 000 040|220 027 241 367; SET32; J372=;
3636/4: 304 000 027|204 022 214 SET23; J502≠;
3637/4: 052|161 003|033|027|203 267 241 ERASE; SHA+1; NOT; NEG; J371;
3641/0: 052|161 003 372; ERASE; SHA+1;
3641/3: 041|065 371; ZERO; REV;
3641/5: 304 000 073|205 323 043|202 022 217|052 SET59; JS25; J504≠; ERASE;
3643/3: 300 001 051|056|200 323 163|201 323 153 568; V289; +; JS571; JS63;
3645/1: 041|301 001 050|200 262 154 910; ZERO; =V288; J511;
3646/2: 205 323 315 370; (SETARr); JS400; (Y÷R, address, term, S mark);
3646/5: 042|201 323 153|164 043|300 001 051|056 DUP; JS63; SHL+17; V289; +; (R marker in SET);
3650/3: 056|065|304 000 073|036|204 142 214 +; (add in address); REV; SET59; -; J502≠Z;
3652/0: 065|201 142 216 REV; J503≠Z;
3652/4: 041|301 001 050|205 262 231 ZERO; =V288; J52;
3653/5: 205 323 315 572; JS400; (Y÷R, address, t, s);
3654/2: 066|304 000 073|036|202 142 217 CAB; SET59; -; J504≠Z;
3655/4: 066|201 142 216|065|203 267 243 CAB; J500≠Z; REV;J568;
3657/0: 200 327 323|201 262 216|204 262 214 375; JS347; J503; J508;
3660/3: 304 000 073|202 022 217 SET59; J504≠;
3661/3: 052|052 ERASE; ERASE;
3661/5: 041|065|203 267 243 ZERO; REV; J568;
3662/4: 052 581; ERASE;
3662/5: 205 323 043 867; JS25;
3663/2: 304 000 041|225 027 322 SET33; J338=;
3664/2: 304 000 035|224 027 313 SET29; J334=;
3665/2: 304 000 033|225 027 301 SET27; J335=;
3666/2: 304 000 027|202 027 305 SET23; J336≠;
[Page number 64
3667/2: 052|205 323 037 ERASE; JS3; (l, terminater, add i);
3670/0: 042|164 347|200 147 322|042|201 324 075 DUP; SHL-13; J577≠Z; DUP; JS397;
3671/4: 304 040 000|056 SET8192; +;
3672/2: 205 324 037|202 267 275 351; JS223; J342;
3673/2: 052 ERASE;
3673/3: 310 033 137 Z0M1;
3674/0: 164 101|164 301 598; SHL+32; SHL-32; (add 2, terminater,add 1);
3674/4: 012|200 360 001 349; PERM; EXIT3;
3675/2: 300 001 053|204 147 277|041|012|203 324 032|205 267 300 342; V291; J343≠Z; ZERO; PERM; JS393; J348;
3677/4: 066|041|066|201 331 160|065 343; CAB; ZERO; CAB; JS344; REV;
3700/5: 304 000 020|204 267 274 348; SET16; J349;
3701/5: 052|205 323 037 335; ERASE; JS3; (p, terminater, add i);
3702/3: 042|164 347|200 147 322|042|202 147 272 DUP; SHL-13; J577≠Z; DUP; J351≠Z;
3704/1: 052|300 013 126|200 267 274 ERASE; YA0; J598;
3705/2: 204 323 214|205 267 307|202 267 321 336; JS236; J520; J521;
3706/5: 304 000 073|204 267 310 SET59; J522;
3707/5: 012|056|200 147 363 520; PERM; +; J337≠Z;
522; (terminater, add 2, Y÷R, add 1);
3710/4: 051|220 147 313 REVd; J523=Z;
3711/2: 066|041|201 331 160|041|066|202 267 343 CAB; ZERO; JS344; ZERO; CAB; J580;
3713/0: 012|202 267 330 523; PERM; J524;
3713/4: 205 323 315|221 147 317 334; JS400; J534=Z; (add 2, terminater, S, add 1);
3714/4: 051|012|065 REVD; PERM; REV; (r, add 1, S, terminater);
3715/1: 300 001 016|201 331 160|304 000 010 V262; JS344; SET8; (add 2, add 1, s, terminater);
3716/4: 051|012|065 REVD; PERM; REV;
3717/1: 066|203 147 320|012|200 360 001 534; CAB; J535≠Z; PERM; EXIT3;
3720/3: 052|065|202 267 363 535; ERASE; REV; J294;
3721/2: 041|200 360 000 521; ZERO; EXIT1;
3722/0: 052|065|202 267 363 577; ERASE; REV; J294;
[Page number 65
3722/5: 052 338; ERASE; (add 1);
3723/0: 200 323 030|065 347; JS8; REV; (terminator, v, add1) ;
3723/4: 304 000 033|203 027 350 SET27; J314≠;
3724/4: 052|205 323 037 ERASE; JS3; (p, terminater, v, add 1);
3725/2: 042|164 347|205 147 362 DUP; SHL-13; J317≠Z;
3726/2: 066|065|200 331 141|201 267 337|202 267 335 324; CAB; REV; JS350; J318; J321;
3730/1: 065 REV;
(terminater, add 2, add 1);
3730/2: 304 000 040|200 027 333 524; SET32; J330≠;
3731/2: 052|161 003 ERASE; SHA+1;
3731/5: 065 332; REV;
3732/0: 205 323 043 JS25;
3732/3: 200 360 001 331; EXIT3; (terminater, add 1, add 2);
3733/0: 304 000 027|204 027 347 330; SET23; J599≠;
3734/0: 052|161 003|033|027|205 267 331 ERASE; SHA+1; NOT; NEG; J332;
3735/2: 065|164 101|164 301|065|036|065|202 267 330 321; REV; SHL+32; SHL-32; REV; -; REV; J524;
318; (, v, terminater, add 1);
3737/1: 300 001 053|203 147 341|066|065|203 324 032|204 267 342 V291; J328≠Z; CAB; REV; JS393; J329;
3741/3: 051|065|051 328; REVD; REV; REVD; (p, v, add 1, term);
3742/0: 201 331 160|065 JS344; REV;
3742/4: 304 000 004|065 329; SET4; REV; (terminater, add 2, add 1);
3743/2: 304 000 040|204 027 345 580; SET32; J333≠;
3744/2: 052|304 000 002|056|205 267 331 ERASE; SET2; +; J332;
3745/4: 304 000 027|204 027 347 333; SET23; J599≠;
3746/4: 052|033|027|205 267 331 ERASE; NOT; NEG; J332;
3747/4: 066|065|200 360 001 599; CAB; REV; EXIT 3;
3750/3: 304 000 027|223 027 352 314; SET23; J323=;
3751/3: 300 001 016|202 267 326 V262; J324;
3752/3: 052|205 323 043|042|304 000 011|036|225 107 357 323; ERASE; JS25; DUP; SET9; -; J325>Z;
[Page number 66
3754/3: 203 323 033 JS6; (l, terminater, v, add 1);
3755/0: 042|164 347|205 147 362|042|201 324 075|304 040 000|056|202 267 326
DUP; SHL-13; J317≠Z; DUP; JS397; SET8192; +; J324;
3757/5: 065|203 331 140|204 263 135|203 267 365 325; REV; JS354; J101;J575;
576; (address, terminater, add 1);
3761/3: 161 003|033|027 SHA+1; NOT; NEG;
3762/1: 012|200 360 001 PERM; EXIT3;
3762/5: 052 317; ERASE;
3763/0: 012|052 337; PERM; ERASE;
3763/2: 052 294; ERASE;
3763/3: 304 000 073|205 027 331|200 360 000 SET59; J332≠; EXIT1;
3765/0: 202 360 001 322; EXIT2;
3765/3: 065|164 101|164 301|065|036|203 267 361 575; REV; SHL+32; SHL-32; REV; -; J576;
131; (instructions beginning with T);
3767/1: 205 323 137 JS13;
3767/4: 204 262 214 J508;
3770/1: 205 267 376 J246;
3770/4: 012|304 000 073|036|204 142 214 PERM; SET 59; -; J502≠Z;
3772/0: 042|220 150 001 DUP; J247=Z;
3772/4: 065|201 322 250 REV; JS53;
3773/2: 201 262 216 J500;
3773/5: 161 011|065|300 000 151|170 036|201 322 243 SHA 4; REV; V97; =Q1; JS21;
3775/4: 201 262 216 J500;
3776/1: 056|201 262 230 +; J51; (store TLOQq TREQq TRQq TWEQq TWQq);
3776/5: 304 006 215|036|201 142 253 246; SETB3215; -; J54≠Z;
4000/0: 304 000 013|204 262 226 SET 11; J50; (store TOB);
4001/0: 052 247; ERASE; (n);
4001/1: 042|164 343|201 142 216 DUP; SHL-15; J503≠Z;
4002/1: 300 001 051|056 V289; +; (SETn);
[Page number 67
4002/5: 200 323 153|200 323 163 JS62; JS571; (store SET n);
4003/5: 304 000 001|201 324 075 SET1; JS397; (put L1 in library list);
4004/5: 304 040 001|205 324 037|200 270 014 SET8193; JS223; J579;
4006/2: 052|310 033 137|164 101|164 301 ERASE; Z0M1; SHL+32; SHL-32;
578; (Address);
4007/4: 041|166 107 ZERO; SHLD+35;
4010/1: 065|041|166 003 REV; ZERO; SHLD+1;
4010/5: 164 007|066|056|164 011 SHL+3; CAB; +; SHL+4;
4011/5: 304 010 015|056|166 271|052 SET2061; +; SHLD-36; ERASE;
4013/0: 200 323 153|205 262 231 JS62; J52;
4014/0: 041|304 000 020|066|203 324 032|204 270 007 579; ZERO; SET16; CAB; JS393; J578;
132; (instructions beginning with U);
4015/5: 304 000 073|201 262 215 SET59; J506; (report failure);
(end of U);
133; (instructions beginning with V);
4016/5: 205 323 043 JS25;
4017/2: 304 000 035|201 030 023|052 SET29; J356≠; ERASE;
4020/3: 205 323 043|304 000 073|204 022 214|052|304 000 001|204 262 226
JS25; SET59; J508≠; ERASE; SET1; J50; (store VR);
4023/1: 042|304 000 011|036|203 110 026 356; DUP; SET9; -; J962≤Z;
4024/3: 304 000 054|223 030 026|304 000 055|200 030 051 SET44; J962=; SET45; J357≠;
4026/3: 203 323 030|065 962; JS9; REV; (terminater, v);
4027/1: 304 000 053|202 030 033|052|042|200 323 030 SET43; J623≠; ERASE; DUP; JS8;
4031/0: 066|036|042|220 052 355|012 CAB; -; DUP; JP17<Z; PERM;
4032/1: 036|200 152 355|200 272 364 -; JP17≠Z; JP18;
4033/2: 304 000 064|200 030 147|052|205 323 043 623; SET52; J358≠; ERASE; JS25;
4035/0: 304 000 033|200 030 037|052|041|065|200 272 364 SETB33; J624≠; ERASE; ZERO; REV; JP18;
4037/0: 304 000 016|203 030 052|052 624; SETB16; J359≠; ERASE;
4040/1: 041 ZERO;
[Page number 68
4040/2: 203 323 043|304 000 034|224 030 043 320; JS26; SET28; J360=;
4041/5: 065|041|166 015|205 150 157 REV; ZERO; SHLD+6; J299≠Z;
4043/0: 056|202 270 040 +; J320;
4043/4: 052 360; ERASE;
4043/5: 065 REV;
4044/0: 203 331 140|204 263 135|201 262 216|300 001 173|036 JS354; J101; J501; V371; -;
4046/1: 202 332 027 364; JS696;
4046/4: 170 022 =M1;
4047/0: 300 037 100|201 142 216|301 037 100|200 262 154 Y0M1; J503≠Z; =Y0M1; J511;
4051/0: 304 000 073|221 022 216|204 262 214 357; SET59; J503=; J508;
4052/3: 304 000 034|204 030 113 359; SET 28; J279≠;
4053/3: 052|042|304 000 001|301 001 053 ERASE; (v); DUP; SET 1; =V291;
4054/5: 203 331 140|204 263 135|202 262 217|300 001 173|036 JS354; J101; J504; V371; -;
4057/0: 203 331 150|201 262 216|201 262 216 (add1, v); JS531; J500; J501;
(terminator ; add1, add2, v);
4060/3: 304 000 053|200 030 245|052 SET 43; J526≠; ERASE;
4061/4: 041|204 330 074|202 262 217 ZERO; JS527; J504;
(add1,v);
4062/5: 203 331 150|201 262 216|201 262 216 JS531; J500; J501;
4064/2: 304 000 053|200 030 245|052 SET 43; J526≠; ERASE;
4065/3: 304 000 020|204 330 074|202 262 217 SET 16; JS527; J504;
(add1, v);
4067/0: 203 331 150|201 262 216|201 262 216 JS531; J500; J501;
4070/3: 304 000 073|205 030 157|052 SET 59; J299≠; ERASE;
4071/4: 304 000 040|204 330 074|201 262 216 SET 32; JS527; J501;
4073/1: 052|052|041|301 001 053|200 262 154 ERASE; ERASE; ZERO; =V291; J511;
527; (N1=0, 16, or32(c, i, m));
[Page number 69
(N2=add1, N3=add2, N4=v);
4074/4: 170 030|170 122 =C1; =M5; (add2, v);
4075/2: 300 137 100|042|164 020|164 301 Y0M5; DUP; SHLC1; SHL-32;
4076/4: 201 150 112|065|041|166 101|201 150 112|142 020|164 020 J530≠Z; REV; ZERO; SHLD+32; J530≠Z; NC1; SHLC1;
4101/0: 056|301 137 100 +; =Y0M5; (v);
4101/4: 300 000 050|222 150 111 V32; J529=Z;
4102/4: 171 030|027|164 371|042|304 000 005|065 C1; NEG; SHL-4; DUP; SET5; REV;
4104/2: 036|042|221 044 144|204 331 162 -; DUP; J634<Z; JS516; (STORE FUNNY);
4105/4: 304 000 002|065|036|170 030 SET 2; REV; -; =C1;
4106/5: 304 000 001|164 020|304 000 010|056 SET 1; SHLC1; SET 8; +;
4110/2: 065|042|012|204 330 342 REV; DUP; PERM; JS361; (store bits);
4111/2: 171 122|202 360 001 529; M5; EXIT 2; (add1, v);
4112/1: 200 360 000 530; EXIT1;
4112/4: 052 293; ERASE;
4112/5: 052 ERASE;
4113/0: 052|201 262 216 300; ERASE; J501;
4113/4: 304 000 015|202 030 126 279; SET13; J355≠;
4114/4: 204 330 362|205 270 157 JS99; J299;
4115/4: 304 000 053|205 030 124|052 SET43; J353≠; ERASE;
4116/5: 200 323 030|304 000 057|065|036|170 030 JS8; SET47; REV; -; =C1;
4120/3: 065|042|224 150 124 REV; DUP; J297=Z;
4121/2: 171 030|042|026|304 000 060|036|222 110 143|221 050 145 C1; DUP; ABS; SET 48; -; J697>Z; J698<Z;
4123/4: 041|166 020|203 150 143 ZERO; SHLDC1; J352≠Z;
4124/4: 065 297; REV;
4124/5: 304 000 073|202 022 217|204 270 043 353; SET59; J504≠; J360;
4126/2: 304 000 021|204 030 131 355; SET17; J280≠;
4127/2: 052|204 330 367|201 262 216|204 262 214 ERASE; JS66; J500; J502;
4131/0: 020 ROUNDF;
4131/1: 204 270 124 J297;
[Page number 70
4131/4: 304 000 014|223 030 300 280; SET12; J281=;
4132/4: 200 330 371|201 262 216|204 262 214 JS67; J500; J502;
4134/1: 065|304 000 053|201 030 137 REV; SET43; J282≠;
4135/2: 052|200 323 030|304 000 057|056 ERASE; JS8; SET47; +; (s, terminater, integral places, z, v);
4136/4: 204 270 137 J283;
4137/1: 304 000 136 282; SET94;
4137/4: 066|065|036|170 030|205 331 165|050|065 283; CAB; REV; -; =C1; JS183; CONT; REV;
4141/2: 304 000 073|202 022 217|221 202 216|204 270 043 SET59; J504≠; J501V; J360;
4143/2: 052 697; ERASE;
4143/3: 052 352; ERASE;
4143/4: 304 000 073|221 022 216|204 262 214 285; SET59; J500=; J502;
4145/1: 041|065|166 020|065|203 150 143|204 270 124 698; ZERO; REV; SHLDC1; REV; J352≠Z; J297;
4147/0: 304 000 017|205 030 213 358; SET15; J284≠;
4150/0: 052 ERASE;
4150/1: 205 323 043|304 000 064|204 030 143 JS25; SET52; J285≠;
4151/4: 052 ERASE;
4151/5: 205 323 043|304 000 064|204 030 143 JS25; SET52; J285≠;
4153/2: 052 ERASE;
4153/3: 205 323 043|304 000 021|203 030 160 JS25; SET17; J286≠;
4155/0: 052|204 330 367|201 262 216|204 262 214 ERASE; JS66; J500; J502;
4156/4: 066|304 000 073|224 030 166 290; CAB; SET59; J287=;
4157/5: 052|202 262 217 299; ERASE; J504;
4160/3: 200 330 371|201 262 216|204 262 214 286; JS67; J500; J502;
4162/0: 065|304 000 053|202 030 164 REV; SET43; J288≠;
4163/1: 052|200 323 030|205 270 164 ERASE; JS8; J289;
4164/2: 304 000 136 288; SET94;
4164/5: 066|065|036|170 030|205 331 165|204 270 156 289; CAB; REV; -; =C1; JS183; J290;
4166/4: 220 210 113|052|066 287; J300V; ERASE; CAB;
4167/3: 203 331 140|204 263 135|200 270 113|300 001 173|036 JS354; J101; J300; V371; -;
4171/4: 202 332 027 JS696;
[Page number 71
4172/1: 170 022 =M1;
4172/3: 300 037 100|201 142 216|301 037 100 Y0M1; J500≠Z; =Y0M1;
4174/0: 300 037 101|201 142 216|301 037 101|200 262 154 Y1M1; J503≠Z; =Y1M1; J511;
4176/0: 304 000 014|220 030 316 295; SET12; J301=;
4177/0: 304 000 021|204 030 202|052 SET17; J302≠; ERASE;
4200/1: 204 330 367|201 262 216|202 262 217 JS66; J501; J504;
4201/4: 065|052|021|203 270 231 REV; ERASE; ROUNDHF; J559;
4202/4: 200 330 371|201 262 216|202 262 217 302; JS67; J501; J504;
4204/1: 065|304 000 053|201 030 207 REV; SET43; J304≠;
4205/2: 052|200 323 030|304 000 107|056|204 270 207 ERASE; JS8; SET71; +; J305;
4207/1: 304 000 136 304; SET94;
4207/4: 066|065|036|170 030|205 331 165 305; CAB; REV; -; =C1; JS183;
4211/0: 050|065 CONT; REV;
4211/2: 304 000 073|036|202 142 217|161 061|221 202 216|202 270 233 SET59; -; J504≠Z; SHA+24; J501V; J306;
4213/5: 304 000 040|205 030 252 284; SET32; J291≠;
4214/5: 052|041|065 ERASE; ZERO; REV; (v, U/L marker);
4215/2: 205 323 043|304 000 064|202 030 245 JS25; SET52; J292≠;
4216/5: 052 309; ERASE;
4217/0: 205 323 043|304 000 015|200 030 176 327; JS25; SET13; J295≠;
4220/3: 204 330 362|205 270 157 JS99; J299;
4221/3: 304 000 053|201 030 252|052 SET43; J296≠; ERASE; (integer, v, U/L);
4222/4: 200 323 030|304 000 027|065|036|170 030 JS8; SET23; REV; -; =C1;
(terminator, integer,v, U/L);(shift in C1);
4224/2: 065|042|223 150 230 REV; DUP; J303=Z;
4225/1: 171 030|042|026|304 000 030|036 C1; DUP; ABS; SET24; -;
4226/3: 222 110 251|223 050 247 J594>Z; J595<Z;
4227/3: 041|166 020|205 150 246 ZERO; SHLDC1; J298≠Z;
4230/3: 041|166 061|205 150 246 303; ZERO; SHLD+24; J298≠Z;
[Page number 72
4231/3: 065|304 000 073|205 030 157 559; REV; SET59; J299≠;
4232/4: 052|221 202 216 ERASE; J501V;
4233/2: 012|203 331 140|204 263 135|200 270 113 306; PERM; JS354; J101; J300;
4235/0: 300 001 173|036 V371; -;
4235/4: 202 332 027 365; JS696;
4236/1: 170 022|300 037 100|042|066|222 150 242 =M1; Y0M1; DUP; CAB; J590=Z;
4237/5: 164 061|201 142 216|065|164 321 SHL+24; J500≠Z; REV; SHL-24;
4241/1: 056|301 037 100|200 262 154 591; +; =Y0M1; J511;
4242/2: 164 321|201 142 216|065|164 321|164 061|201 270 241 590; SHL-24; J500≠Z; REV; SHL-24; SHL+24; J591;
4244/3: 012|052|052 528; PERM; ERASE; ERASE;
4245/0: 065|052 526; REV; ERASE;
4245/2: 304 000 073|221 022 216|202 262 217 292; SET59; J501=; J504;
4246/5: 052|202 270 245 298; ERASE; J292;
4247/3: 041|065|166 020|065|205 150 246 595; ZERO; REV; SHLDC1; REV; J298≠Z;
4250/5: 203 270 230 J303;
4251/2: 052|052|202 270 245 594; ERASE; ERASE; J292;
4252/1: 065|203 270 230 296; REV; J303;
4252/5: 304 000 027|205 030 256 291; SET23; J307≠;
4253/5: 052 ERASE;
4254/0: 205 323 043|304 000 064|201 030 275 JS25; SET52; J308≠;
4255/3: 052|304 000 001|065|200 270 217 ERASE; SET1; REV; J327;
4256/5: 041|301 001 020 307; ZERO; =V264;
4257/3: 304 000 033|203 030 273|052 533; SET27; J310≠; ERASE;
4260/4: 205 323 037 JS3; (p, terminater, v);
4261/1: 042|164 347|203 150 143 DUP; SHL-13; J352≠Z;
4262/1: 066|065|200 331 141|204 270 271|200 270 270 316; CAB; REV; JS350; J311; J312;
4264/0: 041|012|202 323 176 315; ZERO; PERM; JS178; (O, or terminater, Q, q, address, Y÷R);
[Page number 73
4264/5: 202 323 224|203 270 274|205 270 266|201 262 216 JS220; J313; J319; J500;
4266/5: 041|301 001 020|200 262 154 319; ZERO; =V264; J511;
4270/0: 065|164 101|164 301|065|036|200 270 264 312; REV; SHL+32; SHL-32; REV; -; J315;
4271/4: 066|065|203 324 032 311; CAB; REV; JS393;
4272/3: 304 000 004|200 270 264 SET4; J315;
4273/3: 300 001 016|201 270 262 310; V262; J316;
4274/3: 052|205 270 157 313; ERASE; J299;
308; (1st digit of l in N1, v in N2);
4275/1: 203 323 033 JS6; (l, terminater, v);
4275/4: 042|164 347|203 150 143|042|201 324 075|304 040 000|056|201 270 262
DUP; SHL-13; J352≠Z; DUP; JS397; SET8192; +; J316;
4300/3: 052|042|203 331 140|204 263 135|202 262 217|304 000 001 281; ERASE; DUP; (V,V); JS354; J101; J504; SET1;
4302/5: 301 001 053|300 001 173|036 =V291; V371; -;
4304/0: 205 327 262|201 262 216|204 262 214 JS867; J500; J502;
(terminater, add 1, add 2, v);
4305/3: 304 000 073|205 030 157 SET59; J299≠;
4306/3: 052|300 000 050|223 150 314 ERASE; V32; J514=Z;
4307/4: 170 022|300 037 100|201 142 216|301 037 100 =M1; Y0M1; J500≠Z; =Y0M1;
4311/3: 041|204 331 162 ZERO; JS516;
4312/1: 304 000 001|065|204 330 342|041|301 001 053|200 262 154 SET1; REV; JS361; ZERO; =V291; J511;
4314/3: 066|052 514; CAB; ERASE;
4314/5: 041|301 001 053|201 270 046 540; ZERO; =V291; J364;
4316/0: 052|042|203 331 140|204 263 135|205 270 157|300 001 173|036 301; ERASE; DUP; JS354; J101; J299; V371; -;
4320/3: 304 000 001|301 001 053 SET 1; =V291;
4321/3: 205 327 262|201 262 216|202 262 217 JS867; J501; J504;
(terminator, add 1, add 2, v, U/L);
4323/0: 304 000 073|205 030 157 SET 59; J299≠;
4324/0: 052 ERASE; (add 1, add 2, v, U/L);
[Page number 74
4324/1: 300 000 050|220 143 213 V32; J215=Z;
4325/1: 170 022|066|224 150 333 =M1; CAB; J345=Z;
4326/1: 300 037 100|042|164 061|201 142 216 Y0M1; DUP; SHL+24; J501≠Z;
4327/4: 056 +;
4327/5: 301 037 100 =Y0M1;
4330/2: 304 000 002|065|204 330 342 SET 2; REV; JS361;
4331/3: 304 000 001 SET1;
4332/0: 204 331 162|041|301 001 053|200 262 154 573; JS516; ZERO; =V291; J511;
4333/4: 300 037 100|042|164 321|201 142 216 345; Y0M1; DUP; SHL-24; J501≠Z;
4335/1: 065|164 061|056|301 037 100 REV; SHL+24; +; =Y0M1;
4336/2: 304 000 004|065|204 330 342 SET 4; REV; JS361;
4337/3: 304 000 002|200 270 332 SET2; J573;
4340/3: 065|164 061|066|052 515; REV; SHL+24; CAB; ERASE;
4341/2: 012|041|301 001 053|204 270 235 585; PERM; ZERO; =V291; J365;
4342/4: 300 054 253|164 040|301 054 253|161 005 361; YB0M2; SHLC2; =YB0M2; SHA2;
4344/2: 300 001 016 V262; (Current p number);
4344/5: 200 150 360 J362≠Z;
4345/2: 300 013 127 YA1;
4345/5: 042|164 041|164 301 570; DUP; SHL+16; SHL-32;
4346/4: 065|164 301|304 000 060|065|036 REV; SHL-32; SET 48; REV; -;
(bit no, word no, 4 v, bits);
4350/0: 066|056|304 000 060|044|012|056|170 022|027|170 030 CAB; +; SET48; ÷I; PERM; +; =M1; NEG; =C1;
4352/1: 164 131|041|065 SHL44; ZERO; REV;
4352/5: 166 020|300 034 253|011|301 034 253 SHLDC1; YB0M1; OR; =YB0M1;
4354/2: 300 034 254|011|301 034 254|142 040|300 054 253|164 040|301 054 253|142 040|200 360 000
YB1M1; OR; =YB1M1; NC2; YB0M2; SHLC2; =YB0M2; NC2; EXIT1;
4360/0: 300 001 016|205 324 037|204 263 135|052|310 033 136|205 270 345
362; V262; JS223; J101; ERASE; Z1M1; J570;
[Page number 75
99; (Read octal integer);
4362/4: 052|041 ERASE; ZERO;
4363/0: 205 323 043|042|304 000 007|036|224 110 366 97; JS25; DUP; SET7; -; J98>Z;
4364/5: 065|041|166 007|201 150 367|056|200 270 363 REV; ZERO; SHLD+3; J96≠Z; +; J97;
4366/4: 202 360 001 98; EXIT2; (terminater, integer);
4367/1: 200 360 000 96; EXIT1; (failure - too many digits. 3 cells - no ISS);
66; (floating point entry);
4367/4: 205 323 043|144 020|202 270 371 JS25; I1=+1; J71;
67; (fixed point entry);
4371/0: 152 001 I0TOQ1;
4371/2: 154 001 71; C0TOQ1;
4371/4: 304 000 054|203 030 373 SET44; J68≠;
4372/4: 052|041|201 270 375 ERASE; ZERO; J69;
4373/3: 304 000 055|221 030 375|041|205 270 375 68; SET45; J69=; ZERO; J70;
4375/1: 205 323 043|065 69; JS25; REV;
4375/5: 170 022 70; =M1;
4376/1: 042|304 000 011|036|221 111 015 DUP; SET9; -; J72>Z;
4377/3: 041|041 ZERO; ZERO;
4377/5: 204 331 126|205 323 043|042|304 000 011|036|222 111 007 75; JS945; JS25; DUP; SET9; -; J76>Z;
4402/1: 240 031 003 J73C1Z;
4402/4: 143 020 90; DC1;
4403/0: 041|041|201 331 136|203 331 130|201 271 027 73; ZERO; ZERO; JS947; JS946; J948;
4404/5: 203 331 121|204 271 027|201 331 136|052|052 JS942; J74; JS947; ERASE; ERASE;
4406/4: 052|205 270 377 ERASE; J75;
4407/2: 304 000 013|203 031 017 76; SET11; J77≠;
4410/2: 052|264 031 014 ERASE; J78C1NZ;
4411/0: 143 020|205 323 043|042|304 000 011 80; DC1; JS25; DUP; SET9;
4412/3: 036|204 111 002 -; J90≤Z;
[Page number 76
4413/1: 304 000 073|204 031 014|200 360 000 82; SET59; J78≠; EXIT1;
4414/4: 202 360 001 78; EXIT2;
4415/1: 304 000 013|201 031 024|052|041|042|043|043|200 271 011 72; SET11; J79≠; ERASE; ZERO; DUP; DUPD; DUPD; J80;
4417/3: 170 136|052|052|052|171 136 77; =Q5; ERASE; ERASE; ERASE; Q5;
4420/4: 240 031 022|304 000 001|172 030 83; J87C1Z; SET1; =+C1;
4422/0: 304 000 012|202 031 040|052 87; SET10; J81≠; ERASE;
4423/1: 200 323 030 JS8;
4423/4: 203 323 030 JS9;
4424/1: 304 000 012|201 031 013|052 79; SET10; J82≠;ERASE;
4425/2: 304 000 001|041|041|200 323 030|203 271 040 SET1; ZERO; ZERO; JS8; J89;
4427/1: 052|052|052 948; ERASE; ERASE; ERASE;
4427/4: 052|052|052|304 000 001 74; ERASE; ERASE; ERASE; SET1;
4430/4: 205 323 043|042|304 000 011|036|220 111 034 84; JS25; DUP; SET9; -; J88>Z;
4432/3: 052|264 031 030|033|027|204 271 030 ERASE; J84C1NZ; NOT; NEG; J84;
4434/0: 304 000 013|203 031 036|052|264 031 014|143 020|204 271 030 88; SET11; J85≠; ERASE; J78C1NZ; DC1; J84;
4436/3: 065|243 031 037|033|027 85; REV; J86C1Z; NOT; NEG;
4437/3: 172 030|200 271 022 86; =+C1; J87;
4440/2: 041 81; ZERO;
4440/3: 172 030|065|051|066|171 030 89; =+C1; REV; REVD; CAB; C1;
4441/4: 222 111 055 J949>Z;
4442/1: 304 000 215|170 230 277; SET141; =C9;
4443/0: 042|204 151 044|012|304 377 321|172 230 DUP; J950≠Z; PERM; SET-47; =+C9;
4444/4: 043|041|025|045|042|172 230 950; DUPD; ZERO; FLOATD; FIX; DUP; =+C9;
4445/5: 027|170 130|052|052 NEG; =C5; ERASE; ERASE;
4446/4: 202 331 115|204 263 135|264 031 057 JS940; J101; J94C1NZ;
4450/1: 066|052 278; CAB; ERASE;
4450/3: 171 022|223 151 051|010 M1; J593=Z; NEGD;
4451/3: 066|171 230|171 024|225 151 053 593; CAB; C9; I1; J592=Z;
4452/5: 051|066|025|223 211 054 REVD; CAB; FLOATD; J91V;
[Page number 77
4453/5: 200 360 001 592; EXIT3;
4454/2: 052 951; ERASE;
4454/3: 052|052|201 271 013 91; ERASE; ERASE; J82;
949;
4455/2: 203 331 130|202 271 054|143 020|262 031 055|201 271 042 92; JS946; J951; DC1; J92C1NZ; J277;
4457/4: 142 020|171 230 94; NC1; C9;
4460/2: 304 377 375|056|065|051 95; SET-3; +; REV; REVD;
4461/2: 065|042|170 136 REV; DUP; =Q5;
4462/0: 300 001 120|034|170 236|052 V328; ×D; =Q9; ERASE;
4463/1: 171 136|300 001 074|034 Q5; V308; ×D;
4464/1: 171 236|041|057|202 331 112 Q9; ZERO; +D; JS583;
4465/2: 066|042|051|066 CAB; DUP; REVD; CAB;
4466/0: 300 001 120|034|057|205 331 112 V328; ×D; +D; JS866;
4467/2: 065|052|171 236 REV; ERASE; Q9;
4470/0: 171 136|300 001 073|034|057|202 331 112 Q5; V307; ×D; +D; JS583;
4471/4: 066|042|170 136 CAB; DUP; =Q5;
4472/2: 300 001 074|034|057|205 331 112 V308; ×D; +D; JS866;
4473/4: 066|042|051|066 CAB; DUP; REVD; CAB;
4474/2: 300 001 120|034|057|205 331 112 V328; ×D; +D; JS866;
4475/4: 065|052|171 236 REV; ERASE; Q9;
4476/2: 171 136|300 001 073|034|057|202 331 112 Q5; V307; ×D; +D; JS583;
4500/0: 066|042|170 136 CAB; DUP; =Q5;
4500/4: 300 001 074|034|057|205 331 112|171 236 V308; ×D; +D; JS866; Q9;
4502/2: 171 136|300 001 073|034|057 Q5; V307; ×D; +D;
4503/3: 042|161 003|052|157 011|223 211 107|304 000 001|170 130|202 331 115|204 263 135
DUP; SHA+1; ERASE; Q0TOQ9; J93V; SET1; =C5; JS940; J101;
4506/5: 041|033|170 236 ZERO; NOT; =Q9;
4507/3: 143 020|051|065|051|066 93; DC1; REVD; REV; REVD; CAB;
4510/3: 171 236|056|262 031 060|170 230|201 271 050 Q9; +; J95C1NZ; =C9; J278;
4512/2: 041|170 236 583; ZERO; =Q9;
[Page number 78
4512/5: 201 202 230|304 000 001|172 236|164 003|164 377 866; J51NV; SET1; =+Q9; SHL+1; SHL-1;
4514/5: 200 360 000 518; EXIT1;
940; (triple length arithmetic shift n places);
(n≥0 in C5);
4515/2: 065|042|066|162 120|065 REV; DUP; CAB; SHADC5; REV;
4516/2: 052|220 211 121|012|162 120|164 003|164 377 ERASE; J941V; PERM; SHADC5; SHL+1; SHL-1;
4520/1: 066|001|202 360 001 CAB; VR; EXIT2;
4521/0: 200 360 000 941; EXIT1;
942; (add two triple length numbers);
4521/3: 170 136|066|170 236|057|164 003|164 377 =Q5; CAB; =Q9; +D; SHL+1; SHL-1;
4523/1: 041|201 211 124|033|027 ZERO; J943NV; NOT; NEG;
4524/1: 171 136|056|171 236|056|221 211 126 943; Q5; +; Q9; +; J944V;
4525/4: 202 360 001 EXIT2;
4526/1: 200 360 000 944; EXIT1;
945; (duplicate triple length number);
4526/4: 170 136|043|171 136|012|171 136 =Q5; DUPD; Q5; PERM; Q5;
4530/0: 200 360 000 EXIT1;
946; (multiply triple length number by 10);
4530/3: 304 000 001|170 130|202 331 115|200 360 000 SET1; =C5; JS940; EXIT1;
4532/2: 204 331 126|304 000 002|170 130|202 331 115|201 271 135 JS945; SET2; =C5; JS940; J960;
4534/4: 203 271 121 J942;
4535/1: 052|052|052|200 360 000 960; ERASE; ERASE; ERASE; EXIT1;
947; (reverse two triple length numbers);
4536/1: 170 136|066|170 236|051|171 136 =Q5; CAB; =Q9; REVD; Q5;
[Page number 79
4537/3: 012|171 236|200 360 000 PERM; Q9; EXIT1;
4540/3: 300 001 016 354; V262; (fetch current P number);
350; (p, v);
4541/0: 042|205 151 145 DUP; J339≠Z;
4541/4: 052|300 013 126 ERASE; YA0;
4542/2: 042|164 041|164 301 340; DUP; SHL+16; SHL-32;
4543/1: 066|036|042|200 111 150 CAB; -; DUP; J341≤Z;
4544/1: 065|164 101|164 301|065|036|200 360 001 REV; SHL+32; SHL-32; REV; -; EXIT3; (Address);
4545/5: 205 324 037|200 360 000 339; JS223; EXIT1; (P not present. N1=p, N2=v);
4546/5: 052|310 033 137|202 271 142 ERASE; Z0M1; J340;
4550/0: 202 360 001 341; EXIT2; (v too big, N1=v-length of V stores);
(N2=first word of S÷R description);
531; (Read c, i or m);
4550/3: 205 323 043|304 000 014|224 027 262 JS25; SET 12; J581=;
4552/0: 304 000 015|205 031 155 SET 13; J532≠;
4553/0: 204 330 362|205 271 154|066|065|200 360 001 JS99; J525; CAB; REV; EXIT 3;
4554/5: 052|052|052|202 360 001 525; ERASE; ERASE; ERASE; EXIT 2;
4555/5: 203 323 030|161 101|222 207 363|164 301|012|200 360 001 532; JS9; SHA32; J294V; SHL-32; PERM; EXIT 3;
4560/1: 164 041|056|164 041 344; SHL+16; +; SHL+16;
4561/0: 065|042|012|056|301 000 050|200 360 000 REV; DUP; PERM; +; =V32; EXIT1;
4562/4: 161 033|300 000 050|056 516; SHA13; V32; +;
4563/4: 313 173 137|041|301 000 050 =Z0M7Q; ZERO; =V32;
4564/5: 241 171 353|200 360 000 J565C7Z; EXIT1;
4565/5: 012|244 031 167|171 030|221 051 170|162 020 183; PERM; J567C1Z; C1; J566<Z; SHADC1;
4567/4: 200 360 000 567; EXIT1;
4570/1: 142 020|143 020|142 020|162 020 566; NC1; DC1; NC1; SHADC1;
4571/3: 304 000 001|041|057|162 377|200 360 000 SET1; ZERO; +D; SHAD-1; EXIT1;
[Page number 80
4573/1: 041|042|301 001 020 134; ZERO; DUP; =V264; (set fetch);
4574/0: 204 323 276|201 263 274|200 262 154|201 262 216 JS216; (W entry); J179; J511; J500;
135; (instructions beginning with X);
4576/0: 304 000 073|201 262 215 SET59; J506; (report failure);
(end of X);
136; (Y); (main tree);
4577/0: 041|042|301 001 020|201 323 223 ZERO; DUP; =V264; JS234; (Y entry);
4600/2: 201 263 274|200 262 154|201 262 216 J179; J511; J500;
137; (main tree);
4601/5: 041|301 001 020|041|203 323 310 (2); ZERO; =V264; ZERO; JS188;
4603/1: 201 263 274|200 262 154|201 262 216 J179; J511; J500;
142; (instructions beginning with +);
4604/4: 052|304 377 364 ERASE; SET-12;
4605/2: 170 130|300 000 157|205 322 237 258; =C5; V103; JS22;
4606/4: 201 262 216 J503;
4607/1: 201 271 210 J259;
4607/4: 202 262 217 J504;
4610/1: 164 120|264 122 226 259; SHLC5; J50C5NZ; (store + +D +F +DF);
4611/0: 164 111|164 271|204 262 226 SHL36; SHL-36; J50; (store - -D -F -DF);
(end of +);
4612/1: 052|041|202 271 205 143; ERASE; ZERO; J258;
(end of -);
140; (instructions beginning with =);
4613/0: 052|205 323 043 ERASE; JS25;
4613/4: 304 000 030|203 031 224 SET24; J170≠; (M);
4614/4: 052|200 323 030 ERASE; JS8;
4615/2: 065|304 000 073|201 031 221 REV; SET59; J171≠;
4616/3: 052|201 322 250 ERASE; JS53;
[Page number 81
4617/1: 201 262 216 J503;
4617/4: 164 011|304 170 002|056|201 262 230 SHL4; SETB74002; +; J51; (store =MQ);
4621/1: 304 000 030|036|204 142 214 171; SET24; -; J508≠Z;
4622/2: 201 322 250 JS53;
4622/5: 204 262 214 J508;
4623/2: 304 001 000|056|203 266 257 SET256; +; J212; (store =MqMq +MqMqQ =MqMqH =MqMqQH);
(=MqMqN =MqMqQN =MqMqHN =MqMqHN);
4624/3: 304 000 026|203 031 233 170; SET22; J172≠; (K);
4625/3: 052|205 323 037 ERASE; JS3;
4626/1: 065|304 000 073|036|204 142 214 REV; SET59; -; J508≠Z;
4627/3: 042|304 000 004|036|201 042 216 DUP; SET4; -; J503≥Z;
4630/5: 170 030|304 175 000|304 000 200|142 020|164 020|056|201 262 230
=C1; SETB76400; SET128; NC1; SHLC1; +; J51; (store =Kk);
4633/3: 304 000 027|205 031 240 172; SET23; J173≠; (L);
4634/3: 052|205 323 137 ERASE; JS13;
4635/1: 204 262 214 J508;
4635/4: 204 271 236 J174;
4636/1: 202 262 217 J504;
4636/4: 300 000 150|036|201 142 253 174; V96; -; J54≠Z;
4637/5: 304 174 000|201 262 230 SETB76000; J51; (store =LINK);
4640/5: 304 000 054|225 031 246 173; SET44; J175=; (+);
4641/5: 304 000 035|225 031 246 SET29; J175=; (R);
4642/5: 304 000 034|225 031 246 SET28; J175=; (Q);
4643/5: 304 000 016|225 031 246 SET14; J175=; (C);
4644/5: 304 000 041|223 031 267 SET33; J548=; (V);
4645/5: 304 000 024|200 031 257 SET20; J176≠; (I);
4646/5: 200 323 140 175; JS12;
4647/2: 204 262 214 J508;
4647/5: 201 262 216|066|304 000 035|223 031 273|066 J503; CAB; SET29; J915=; CAB;
4651/4: 304 000 073|036|204 142 214 SET59; -; J502≠Z;
[Page number 82
4652/5: 065|201 322 250 REV; JS53;
4653/3: 201 262 216 J500;
4654/0: 164 011|065|300 000 173|170 036|201 322 243 SHL4; REV; V115; =Q1; JS21;
4655/5: 201 262 216 J500;
4656/2: 056|201 262 230 +; J51; (storE =+Qq =+Cq =+Iq =+Mq =RCq =RIq);
(=RMq =Qq =Cq =Iq);
4657/0: 304 000 037|203 031 264 176; SET31; J177≠; (T);
4660/0: 052|205 323 043 ERASE; JS25;
4660/4: 205 323 043 JS25;
4661/1: 304 000 073|036|204 142 214 SET59; -; J508≠Z;
4662/2: 304 000 035|036|201 142 253 SET29; -; J54≠Z;
4663/3: 304 000 002|204 262 226 SET2; J50; (store =TR);
4664/3: 304 000 001|301 001 020|204 323 214|201 263 274|200 262 154|201 262 216
177; SET1; =V264; JS236; J179; J511; J500;
4667/3: 052 548; ERASE;
4667/4: 200 323 030 JS8; (v, terimator);
4670/1: 304 000 001|301 001 020 SET1; =V264;
4671/1: 065|304 000 027|203 030 257 REV; SET23; J533≠;
4672/2: 052|205 323 043|201 270 275 ERASE; JS25; J308;
4673/3: 052|304 000 001|301 001 020|205 267 150 915; ERASE; SET1; =V264; J916;
144; (instructions beginning with ×);
4675/1: 052|205 323 043 ERASE; JS25;
4675/5: 304 000 073|200 031 300 SET59; j260≠;
4676/5: 052|304 000 035|204 262 226 ERASE; SET29; J50; (store ×);
4700/0: 304 000 021|205 031 303 260; SET17; J261≠;
4701/0: 052|205 323 043 ERASE; JS25;
4701/4: 304 000 073|204 022 214 SET59; J508≠;
4702/4: 052|304 000 004|204 262 226 ERASE; SET4; J50; (store ×F);
4703/5: 304 000 017|203 031 313 261; SET15; J262≠;
4704/5: 052|205 323 043 ERASE; JS25;
[Page number 83
4705/3: 304 000 073|204 031 307 SET59; J263≠;
4706/3: 052|304 000 034|204 262 226 ERASE; SET28; J50; (store ×D);
4707/4: 304 000 021|204 022 214 263; SET17; J508≠;
4710/4: 052|205 323 043 ERASE; JS25;
4711/2: 304 000 073|204 022 214 SET59; J508≠;
4712/2: 052|304 000 005|204 262 226 ERASE; SET5; J50; (store ×DF);
4713/3: 304 000 054|204 022 214 262; SET44; J508≠;
4714/3: 052|200 323 030 ERASE; JS8;
4715/1: 065|304 000 073|201 031 321 REV; SET59; J264≠;
4716/2: 052|161 121|221 202 216 ERASE; SHA40; J503V;
4717/2: 164 003|164 261|304 163 001|056|201 262 230 SHL1; SHL-40; SETB71401; +; J51; (store ×+n);
4721/1: 065|204 142 214 264; REV; J508≠Z;
4721/5: 304 000 021|204 031 325 SET17; J265≠;
4722/5: 052|205 323 043 ERASE; JS25;
4723/3: 304 000 073|204 022 214 SET59; J508≠;
4724/3: 052|304 000 007|204 262 226 ERASE; SET7; J50; (store ×+F);
4725/4: 304 000 016|201 022 216 265; SET14; J503≠;
4726/4: 052|200 323 030 ERASE; JS8;
4727/2: 065|304 000 073|204 022 214 REV; SET59; J502≠;
4730/3: 052|201 322 250 ERASE; JS53;
4731/1: 201 262 216 J503;
4731/4: 164 011|304 163 000|056|201 262 230 SHL4; SETB71400; +; J51; (store ×+Cq);
(end of ×);
145; (instructions beginning with ÷);
4733/1: 052|300 000 164|205 322 237 ERASE; V108; JS22;
4734/2: 201 262 216 J503;
4734/5: 204 262 226 J50; (store / ÷F ÷D /I ÷R);
4735/2: 202 262 217 J504;
(end of /);
[Page number 84
141; (comment);
4735/5: 304 000 001|170 031 SET1; =RC1;
4736/4: 052|205 323 043 498; ERASE; JS25;
4737/2: 304 000 050|224 022 214 SET40; J508=;
4740/2: 304 000 067|205 031 342 SET55; J499≠;
4741/2: 142 020|143 020|142 020|204 271 336 NC1; DC1; NC1; J498;
4742/5: 304 000 070|204 031 336 499; SET56; J498≠;
4743/5: 143 020|264 031 336 DC1; J498C1NZ;
4744/4: 052|304 000 073 ERASE; SET59;
4745/2: 205 323 043|200 031 347 497; JS25; J651≠;
4746/2: 052|200 262 154 ERASE; J511;
4747/0: 204 262 214 651; J508;
(end of comment);
139; (asterisk);
4747/3: 171 070|304 000 006|036|223 151 352 C3; SET6; -; J758=Z;
4751/0: 304 000 017|201 322 221|203 271 347 SET15; JS55; J139;
4752/3: 052|200 262 154 758; ERASE; J511;
(end of asterisk);
565; (MOVE S÷R DESCRIPTION DOWN);
4753/1: 171 256|171 210|304 000 040|036 Q10; C8; SET32; -;
4754/3: 042|202 111 370|170 210 DUP; J550≤Z; =C8;
4755/3: 304 000 040 SET32;
4756/0: 042|170 170|027|042 561; DUP; =C7; NEG; DUP;
4756/5: 300 001 022|056|301 001 022|300 001 015|043|222 151 372|056|301 001 015
V266; +; =V266; V261; DUPD; J930=Z; +; =V261;
4761/5: 171 162|171 202|036|170 230 M7; M8; -; =C9;
4763/0: 151 212|172 202|151 211|144 220|144 240 M8TOQ10; =+M8; M8TOQ9; I9=+1; I10=+1;
[Page number 85
4764/4: 140 220|140 240 M+I9; M+I10;
4765/2: 017|017|017|017|312 253 137|313 233 137|177 220 *547; Z0M10Q; =Z0M9Q; *J547C9NZS;
4767/2: 300 001 170|203 271 373 931; V368; J873;
4770/2: 052|143 200|245 202 236 550; ERASE; DC8; J269C8Z;
4771/2: 304 000 001|200 271 356 SET1; J561;
4772/2: 052|052|172 202|202 271 367 930; ERASE; ERASE; =+M8; J931;
4773/3: 301 001 124|300 001 166|301 001 122|300 001 167|301 001 123 873; =V332; V366; =V330; V367; =V331;
4776/0: 304 001 122|170 224|304 001 124|170 222 SET338; =I9; SET340; =M9;
4777/4: 300 000 277|042|201 152 003 V183; DUP; J871≠Z;
5000/5: 052 ERASE;
5001/0: 304 000 001|304 000 005|200 220 000|042|301 000 277 SET1; SET5; OUT; DUP; =V183;
5003/1: 170 230|130 220 871; =C9; PWQ9;
5003/5: 170 256|200 360 000 =Q10; EXIT1;
874; (MOVE S÷R DECSRIPTION UP);
5004/4: 171 256|171 170|304 000 040|036|042|202 112 024|170 170 Q10; C7; SET32; -; DUP; J875≤Z; =C7;
5007/0: 304 000 040 SET32;
5007/3: 042|172 210|042 876; DUP; =+C8; DUP;
5010/1: 300 001 022|043|056 V266; DUPD; +;
5011/0: 043|301 001 022|170 222|170 242 DUPD; =V266; =M9; =M10;
5012/2: 171 202|036|170 230|042|172 202 M8; -; =C9; DUP; =+M8;
5013/4: 300 001 015|042|222 152 026|056|301 001 015 V261; DUP; J932=Z; +; =V261;
5015/3: 145 220|145 240 I9=-1; I10=-1;
5016/1: 017|017|017|017|017|312 233 137|313 253 137|177 220 *877; Z0M9Q; =Z0M10Q; *J877C9NZS;
5020/2: 144 220|140 220|170 230 I9=+1; M+I9; =C9;
5021/2: 017|017|017|017|041|313 233 137|017|017|177 220 *961; ZERO; =Z0M9Q; *J961C9NZS;
5023/2: 300 001 171|203 271 373 933; V369; J873;
5024/2: 052|143 160|245 162 236 875; ERASE; DC7; J269C7Z;
[Page number 86
5025/2: 304 000 001|203 272 007 SET1; J876;
5026/2: 052|052|052|202 272 023 932; ERASE; ERASE; ERASE; J933;
5027/2: 200 360 000 696; EXIT1;
5027/5: 052 851; ERASE;
5030/0: 120 022|220 352 030 952; BUSYQ1; J952TR;
5030/5: 201 272 141 J852;
5031/2: 052|203 262 355 937; ERASE; J868;
5032/0: 300 000 233|220 152 034|300 001 255|223 142 355 838; V147; J847=Z; V421; J868=Z;
5034/0: 300 000 000|164 125|164 247 847; E0; SHL42; SHL-45;
5035/1: 304 000 001|225 032 062 936; SET1; J938=;
5036/1: 304 000 003|205 032 027 SET3; J851≠;
5037/1: 300 000 277|042|223 152 041 V183; DUP; J928=Z;
5040/2: 304 000 006|200 220 000|041 SET6;OUT; ZERO;
5041/3: 052|304 000 005|200 220 000|042 928; ERASE; SET5; OUT; DUP;
5042/5: 301 012 233|170 030|041|301 000 277 =V2P2; =C1; ZERO; =V183;
5044/2: 300 001 174|170 256|154 032 V372; =Q10; C1TOQ10;
5045/3: 304 000 006|170 231|171 244|170 222 SET6; =RC9; I10; =M9;
5047/0: 200 332 224|041|103 220 JSP1; ZERO; =M0M9Q;
5050/0: 041|103 220|300 000 007|103 220 ZERO; =M0M9Q; E7; =M0M9Q;
5051/2: 017|017|017|017|041|103 220|017|017|017|177 220 *971; ZERO; =M0M9Q; *J971C9NZS;
5053/2: 300 000 245|300 000 244|166 061|103 220|103 220 V157; V156; SHLD+24; =M0M9Q; =M0M9Q;
5055/2: 041|103 220 ZERO; =M0M9Q;
5055/5: 300 001 222|103 220|300 001 223|103 220 V394; =M0M9Q; V395; =M0M9Q;
5057/3: 304 000 002|103 220|130 240 SET2; =M0M9Q; PWQ10;
5060/4: 200 332 225|200 332 225 JS1P1; JS1P1;
5061/4: 041|304 000 017|202 272 063 ZERO; SET15; J935;
5062/5: 304 000 020 938; SET16;
5063/2: 170 070|170 050 935; =C3; =C2;
[Page number 87
5064/0: 304 001 122|042|170 244|170 222 SET338; DUP; =I10; =M9;
5065/2: 304 001 142|170 264 SET354; =I11;
5066/1: 171 070|027|033|170 242|151 253 C3; NEG; NOT; =M10; M10TOQ11;
5067/3: 140 240|140 260|154 032|154 033 M+I10; M+I11; C1TOQ10; C1TOQ11;
5070/5: 200 332 312 JSP3;
5071/2: 171 276|154 071 Q11; C3TOQ9;
5072/0: 304 014 252|304 013 131|036|304 000 003|034 SETAYB-1; SETAYA3; -; SET3; ×D;
5073/5: 050|033|027|170 062 CONT; NOT; NEG; =M3;
5074/4: 304 000 001 SET1;
5075/1: 300 013 126|164 101|164 301 YA0; SHL+32; SHL-32;
5076/2: 205 332 163 JS820;
5076/5: 304 000 060|164 061|304 000 020|056 SETB60; SHL24; SETB20; +;
5100/2: 245 052 101|304 000 007|164 111|056 J967C2Z; SET7; SHL36; +;
5101/5: 205 332 167 967; JS821;
5102/2: 042|201 324 145|200 272 106 828; DUP; JS603; J823;
5103/3: 205 332 163 JS820;
5104/0: 065|042|012 REV; DUP; PERM;
5104/3: 204 332 214|205 332 167|201 272 106 JS824; JS821; J827;
5106/0: 052 823; ERASE;
5106/1: 033|027|042 827; NOT; NEG; DUP;
5106/4: 171 062|036|202 152 102|200 332 207|052 M3; -; J828≠Z; JS968; ERASE;
5110/2: 300 001 022|170 022|151 033 V266; =M1; M1TOQ11;
5111/3: 310 033 137|042|220 152 134 Z0M1; DUP; J829=Z;
5112/4: 042|164 101|164 301|205 332 163 835; DUP; SHL+32; SHL-32; JS820;
5114/0: 065|164 301 REV; SHL-32;
5114/3: 042|304 040 000|036|042|204 052 127 DUP; SET8192; -; DUP; J831≥Z;
5116/0: 052|204 332 214|304 000 060 ERASE; JS824; SETB60;
5117/1: 164 061|056|304 000 001 832; SHL+24; +; SET1;
5120/1: 012|200 332 203 PERM; JS964;
[Page number 88
5120/5: 042|151 261|203 324 014|203 272 131 833; DUP; M11TOQ1; JS391; J830;
5122/2: 052 ERASE;
5122/3: 033|027|042|164 361|225 152 120|200 332 207|052 834; NOT; NEG; DUP; SHL-8; J833=Z; JS968; ERASE;
5124/3: 310 273 136|164 101|164 301|042|220 152 134 Z1M11; SHL+32; SHL-32; DUP; J829=Z;
5126/2: 172 262|310 273 137|204 272 112 =+M11; Z0M11; J835;
5127/4: 065|052|204 332 214|304 000 054|201 272 117 831; REV; ERASE; JS824; SETB54; J832;
5131/3: 205 332 163|065|042|012 830; JS820; REV; DUP; PERM;
5132/3: 204 332 214|205 332 167|203 272 122 JS824; JS821; J834;
5134/0: 052|052 829; ERASE; ERASE;
5134/2: 304 000 360|170 242|243 052 136 837; SET240; =M10; J939C2Z;
5135/4: 130 254|200 272 140 PGAPQ10; J970;
5136/3: 304 000 002|101 220|151 232|130 240 939; SET2; =M0M9; M9TOQ10; PWQ10;
5140/0: 154 241 970; C10TOQ1;
5140/2: 120 242|222 352 140 977; BUSY Q10; J977TR;
5141/1: 300 000 000|164 133|164 247|223 142 355 852; E0; SHL45; SHL-45; J868=Z;
5142/5: 300 000 233|203 142 355 V147; J868≠Z;
5143/5: 200 332 246 JSP2;
5144/2: 300 017 101|041|166 061|164 061 Y1; ZERO; SHLD24; SHL24;
5145/4: 300 000 001|164 321|066|065|166 321|052 E1; SHL-24; CAB; REV; SHLD-24; ERASE;
5147/2: 301 017 101 =Y1;
5147/5: 304 000 010|170 031 SET8;=RC1;
5150/4: 017|017|300 037 100|103 020|017|177 020 *980; Y0M1; =M0M1Q; *J980C1NZS;
5152/2: 300 000 007|170 036|171 024|170 043|171 022|171 024|036|033|027|170 050
E7; =Q1; I1; =RM2; M1; I1; -; NOT; NEG; =C2;
5155/2: 041|170 063 ZERO; =RM3;
5155/5: 300 012 162|301 000 006|300 012 163|301 000 007|300 000 006|301 000 006
R981; =E6; R982; =E7; E6; =E6;
5160/5: 304 000 002|200 260 006 SET2; JE6;
5161/5: 017|302 077 110|103 040 *981; Y8M3Q; =M0M2Q;
5162/5: 017|177 040|200 220 000 *982; J981C2NZS; OUT;
820; (convert address to octal);
[Page number 89
5163/5: 041|166 107|304 000 020|056 ZERO; SHLD+35; SET16; +;
5165/0: 300 001 110|066|164 273|067 V320; CAB; SHL-35; FRB;
5166/1: 300 001 071|056 V305; +;
5166/5: 164 031|056|200 360 000 SHL+12; +; EXIT1;
821; (punch or print);
(normal entry);
5167/5: 164 015|262 052 200|304 000 077 SHL+6; J841C2NZ; SET63;
5171/1: 164 125|103 220|166 015|103 220 965; SHL42; =M0M9Q; SHLD+6; =M0M9Q;
5172/3: 171 230|027|033|223 152 174 C9; NEG; NOT; J840=Z;
5173/4: 103 220|200 360 000 =M0M9Q; EXIT1;
5174/3: 304 000 002|056|103 220 840; SET2; +; =M0M9Q;
5175/3: 130 240|171 256 836; PWQ10; Q10;
5176/1: 066|170 256|065 966; CAB; =Q10; REV;
5176/5: 171 244|170 222|154 071 I10; =M9; C3TOQ9;
5177/5: 200 360 000 822; EXIT1;
5200/2: 304 000 002|164 111|056|103 220|103 220 841; SET2; SHL+36; +; =M0M9Q; =M0M9Q;
5202/0: 265 232 177|203 272 175 J822C9NZ; J836;
964; (new subroutine entry);
5203/0: 164 015|304 000 002|260 052 206|052|304 000 077 SHL+6; SET 2; J984C2NZ; ERASE; SET63;
5205/0: 200 332 225|201 272 171 JS1P1; J965;
984;
5206/0: 164 125|056|202 272 200 SHL+42; +; J841;
968; (punch last buffer);
5207/0: 171 230|171 070|036|225 152 177|171 256 C9; C3; -; J822=Z; Q10;
5210/4: 171 222|027|033|170 242 M9; NEG; NOT; =M10;
5211/4: 265 052 213|141 220|100 220|304 000 002|056|101 220 J969C2NZ; M-I9; M0M9; SET2; +; =M0M9;
[Page number 90
5213/5: 130 240|201 272 176 969; PWQ10; J966;
824; (convert to decimal);
5214/4: 300 001 072|065|067 V306; REv; FRB;
5215/3: 304 000 010|170 030|041 SET8; =C1; ZERO;
5216/3: 166 015|042|221 152 220|304 000 020|056 825; SHLD+6; DUP; J826=Z; SET16; +;
5220/1: 143 020|263 032 216 826; DC1; J825C1NZ;
5221/0: 065|052|200 360 000 REV; ERASE; EXIT1;
=== Start P1V1; at address 2708
P1V1;
V-store at 05223 = 000 000 012 222 012 222 V1=Q0/AV0/AV0;
5224/0: 304 000 003|203 272 225 SET3; J2;
5225/0: 304 000 002 1; SET2;
5225/3: 301 012 222|171 256|171 250|300 012 223|170 256 2; =V0; Q10; C10; V1; =Q10;
5227/3: 170 250|130 240|170 256|200 360 000 =C10; PWQ10; =Q10; EXIT 1;
=== Start P2V12; at address 2726
P2V12; (V0=RUN TIME RECORD
V1=ELAPSED
V2=DEV NO PF LP);
V-store at 05234 = 075 004 020 265 004 063 V3=B1720202055202063;
V-store at 05241 = 003 050 156 076 133 077 V8=B62415617455477;
V-store at 05244 = 000 000 012 235 012 243 V11=Q0/AV4/AV10;
V-store at 05245 = 003 371 241 246 314 300 V12=B77464151546300;
5246/0: 300 000 277|042|221 152 251|042|170 030|120 021 V183P0; DUP; J7=Z; DUP; =C1; MANUALQ1;
5250/0: 304 000 006|200 220 000|041 SET6; OUT; ZERO;
5251/1: 052|300 012 233|042|224 152 253|304 000 006|200 220 000|041 7; ERASE; V2; DUP; J8=Z; SET6; OUT; ZERO;
5253/4: 052|171 330|304 000 006|200 220 000 8; ERASE; C13; SET6; OUT;
5255/1: 041|042|301 012 233|301 000 277 9; ZERO; DUP; =V2; =V183P0;
5256/3: 300 000 244|164 061|161 321|301 012 236 V156P0; SHL24; SHA-24; =V5;
5260/1: 041|301 012 235|300 000 245|301 012 237|300 000 233|225 152 263|300 012 245|200 272 265
ZERO; =V4; V157P0; =V6; V147P0; J5=Z; V12; J6;
5263/5: 304 373 353|164 031|167 365 5; SETB175753; SHL12; SHC-6;
[Page number 91
5265/0: 301 012 240|202 332 274|300 012 231|201 332 301|301 012 242|300 012 232|201 332 301|301 012 243
6; =V7; JS2; V0; JS3; =V9; V1; JS3; =V10;
5271/0: 300 012 244|304 000 010|200 220 000|200 360 000 V11; SET8; OUT; EXIT1;
1; (INITIAL ENTRY);
5273/0: 041|042|301 012 231|301 012 232 ZERO; DUP; =V0; =V1;
5274/2: 304 000 003|200 220 000|300 012 231|036|301 012 231 2; SET3; OUT; V0; -; =V0;
5276/3: 304 000 011|200 220 000|300 012 232|036|301 012 232 SET9; OUT; V1; -; =V1;
5300/4: 200 360 000 EXIT1;
5301/1: 161 321|304 000 074|044|202 332 305|164 015|065 3; SHA-24; SET60; ÷I; JS4; SHL6; REV;
5303/1: 202 332 305|164 061|011|300 012 234|011|200 360 000 JS4; SHL24; OR; V3; OR; EXIT1;
5305/2: 300 001 072|065|067|200 360 000 4; V306P0; REV; FRB; EXIT1;
=== Start P3V2; at address 2762
P3V2; (Y SPEC);
V-store at 05307 = 344 014 360 226 077 377 V0=B7100636045437777;
V-store at 05311 = 000 000 012 307 012 310 V2=Q0/AV0/AV1;
5312/0: 171 256|171 250|300 012 311|170 256|170 250 Q10; C10; V2; =Q10; =C10;
5313/5: 130 240|170 256|200 332 225|200 272 225 PWQ10; =Q10; JS1P1; J1P1;
=== Start P11V2; at address 2769
V-store at 05316 = 050 272 354 267 320 000 P11V2; V0=B1213535455750000;
V-store at 05317 = 155 363 335 170 000 000 V1=B3337173536000000;
V-store at 05320 = 000 000 000 000 000 000 V2=0; (LAST CHAR OFF PT);
5321/0: 204 332 340|200 360 000|304 000 046|204 032 323 JS7; EXIT1; (S.COLON); SET38; J2≠;
5323/0: 052|202 360 001 ERASE; EXIT2; (STR QTE);
5323/4: 042|304 000 011|036|221 112 326|304 000 020 2; DUP; SET9; -; J3>Z; SETB20;
5325/3: 011|200 360 001 OR; EXIT3; (P/CODE CHAR);
5326/1: 042|304 000 014|036|220 052 332|042 3; DUP; SET12; -; J4<Z; DUP;
5327/4: 304 000 045|036|220 052 332|304 000 025|056|200 360 001 SET37; -; J4<Z; SET21; +; EXIT3;
5332/0: 300 012 317|065|300 012 316|201 332 334|200 360 001 4; V1; REV; V0; JS5; EXIT3;
5334/1: 041|166 015|066|065|223 032 337 5; ZERO; SHLD6; CAB; REV; J6=;
5335/3: 065|066|164 015|012|042 REV; CAB; SHL6; PERM; DUP;
5336/3: 220 152 355|201 272 334 JP17=Z; J5;
[Page number 92
5337/3: 052|052|164 255|200 360 000 6; ERASE; ERASE; SHL-42; EXIT1;
5340/4: 200 332 350|200 360 000|304 000 071|203 032 347 7; JS10; EXIT1; SET57; J11≠;
5342/4: 052|200 332 350|201 262 216|304 000 071 13; ERASE; JS10; J501P0; SET57;
5344/2: 224 032 342|304 000 060|225 032 346 J13=; SETB60; J12=;
5345/5: 304 000 061|200 032 355 SETB61; JP17≠;
5346/5: 304 000 014|036 12; SET12; -;
5347/3: 202 360 001 11; EXIT2;
5350/0: 205 323 043|304 000 073|205 032 353|052|300 012 320 10; JS25P0; SET59; J8≠; ERASE;V2;
5352/1: 027|033|027|033|220 152 350 NEG; NOT; NEG; NOT; J10=Z;
5353/2: 200 360 000 EXIT1;
5353/5: 202 360 001 8; EXIT2;
=== Start P17V-1; at address 2797
P17;
5355/0: 224 252 357|052|200 272 355 1; J3EN; ERASE; J1;
5356/1: 224 312 357|173 000|052|201 272 356 2; J3EJ; LINK; ERASE; J2;
5357/4: 204 332 340|201 262 216|052|204 272 357 3; JS7P11; J501P0; ERASE; J3;
=== Start P18V1; at address 2804
P18V1;
V-store at 05362 = 000 000 000 000 000 010 V0=8;
V-store at 05363 = 000 000 000 000 000 000 V1=0;
5364/0: 042|041|304 000 010|301 012 362 DUP; ZERO; SET8; =V0;
5365/2: 200 332 321|202 273 005|200 273 016|205 332 367|202 272 365 1; JSP11; J12; JP19; JS10; J1;
5367/5: 065|164 015|011|300 012 362|027 10; REV; SHL6; OR; V0; NEG;
5371/1: 033|042|301 012 362|204 153 002|304 000 010 NOT; DUP; =V0; J11≠Z; SET8;
5373/0: 301 012 362|065|203 331 140|204 263 135|201 273 003 =V0; REV; JS354P0; J101P0; J14;
5375/1: 300 001 173|036|170 022|300 037 100|201 153 003 V371P0; -; =M1; Y0M1; J14≠Z;
5377/1: 012|033|027|065|042 PERM; NOT; NEG; REV; DUP;
5400/0: 221 053 003|027|033|065|066 J14<Z; NEG; NOT; REV; CAB;
5401/1: 301 037 100|042|041|042|301 012 363 =Y0M1; DUP; ZERO; DUP; =V1;
5402/4: 200 360 000 11; EXIT1;
5403/1: 300 012 363|220 152 355|041|301 012 363|201 262 216 14; V1; JP17=Z; ZERO; =V1; J501P0;
[Page number 93
5405/2: 304 000 001|301 012 363 12; SET1; =V1;
5406/2: 300 012 362|304 000 010|036|221 153 011|041 13; V0; SET8; -; J15=Z; ZERO;
5410/1: 205 332 367|202 273 006 JS10; J13;
5411/1: 224 251 325|052|201 273 011 15; J265P0EN; ERASE; J15;
=== Start P19V2; at address 2830
P19V2; (V0=U CHAR/L NUMBER);
V-store at 05414 = 071 346 337 145 207 017 V1=B1636333731303417;
V-store at 05415 = 010 000 304 037 327 077 V2=B0200030407753477;
5416/0: 200 333 035|161 117|220 212 355|164 263|065 2; JSP20; SHA+39; JP17V; SHL-39; REV;
5417/5: 304 000 047|222 033 033|304 000 020|200 033 024|052 SET39; J1=; SETB20; J5≠; ERASE;
5422/0: 204 332 340|201 262 216|304 000 030|200 032 355 JS7P11; J501P0; SETB30; JP17≠;
5424/0: 300 013 015|065|300 013 014|201 332 334|164 061 5; V2; REV; V1; JS5P11; SHL24;
5426/0: 011|201 273 027 OR; J6;
5426/4: 300 013 013 4; V0;
5427/1: 042|042|164 061|223 153 032|027 6; DUP; DUP; SHL24; J3=Z; NEG;
5430/3: 033|301 013 013|164 321|205 332 367|204 273 026 NOT; =V0; SHL-24; JS10P18; J4;
5432/3: 052|052|200 273 016 3; ERASE; ERASE; J2;
5433/2: 052|027|033|200 152 355|202 272 365 1; ERASE; NEG; NOT; JP17≠Z; J1P18;
=== Start P20V-1; at address 2845
5435/0: 041 P20; ZERO;
5435/1: 204 332 340|201 262 216 3; JS7P11; J501P0;
5436/1: 042|304 000 011|036|222 113 041|065 2; DUP; SET9; -; J1>Z; REV;
5437/4: 042|161 005|056|161 003|056|201 273 035 DUP; SHA+2; +; SHA+1; +; J3;
5441/2: 065|042|203 153 042|033|027 1; REV; DUP; J4≠Z; NOT; NEG;
5442/3: 200 360 000 4; EXIT1;
=== Start P24V0; at address 2852
P24V0; (V0=NO OF FUNNIES);
5444/0: 171 162|033|042|170 031|042|027|170 022|042 M7; NOT; DUP; =RC1; DUP; NEG; =M1; DUP;
5445/5: 301 013 043|170 171|304 033 136|170 162 =V0; =RC7; SETAZ1; =M7;
5447/3: 261 173 051|041|033|170 165|200 360 000 J7C7NZ; ZERO; NOT; =RI7; EXIT1;
5451/1: 310 033 137|167 341|041|166 007|304 000 005|065|036|042 7; Z0M1; SHC-16; ZERO; SHLD+3; SET5; REV; -; DUP;
5453/3: 221 044 144|065|041|166 033|164 007|011|011 J634P0<Z; REV; ZERO; SHLD13; SHL+3; OR; OR;
[Page number 94
5455/2: 313 033 137|261 033 051 =Z0M1Q; J7C1NZ;
(NOW SHELL SORT);
5456/2: 145 100|171 170 I4=-1; C7;
5457/0: 164 377|042|164 373|224 153 060|164 377 1; SHL-1; DUP; SHL-3; J2=Z; SHL-1;
5460/4: 042|201 153 063|052|300 013 043|170 171|145 160|200 360 000 2; DUP; J6≠Z; ERASE; V0; =RC7; I7=-1; EXIT1;
5463/1: 304 000 001|011|042|043 6; SET1; OR; DUP; DUPD;
5464/1: 151 165|027|172 122|170 024 M7TOQ5; NEG; =+M5; =I1;
5465/2: 171 170|036|151 004 C7; -; M0TOQ4;
5466/1: 151 101|100 025 3; M4TOQ1; M5M1;
5466/5: 100 027|043|041|033|164 301|042 4; M7M1; DUPD; ZERO; NOT; SHL-32; DUP;
5470/1: 012|054|012|054|037|205 113 072 PERM; AND; PERM; AND; SIGN; J5≤Z;
5471/3: 103 025|171 022|205 113 066|041 =M5M1Q; M1; J4≤Z; ZERO;
5472/5: 052|101 025|140 100|171 102|201 033 066 5; ERASE; =M5M1; M+I4; M4; J3≠;
5474/3: 052|200 273 057 ERASE; J1;
=== Start P-1V-1; at address 2878
Finished
FINISH;
Reached end of file