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 84175 bytes for KAA01.txt
Skipping A-block
Relocated 19
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;
TL 999;
V423;
YA340;
YB650;
YC1;
YD 7;
4/0: 204 263 004|204 263 004 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 internal);
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 010
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=8; 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=B0; 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 instructions);
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 the 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; (-<Z);
V-store at 00431 = 220 100 000 000 014 345 V273=B4404000000006345; (>Z);
V-store at 00432 = 200 040 000 003 234 345 V274=B4002000000716345; (->Z);
V-store at 00433 = 220 040 000 000 014 245 V275=B4402000000006245; (<Z);
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 014 364 V397=B 7100 5746 4600 6364; (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);
(start); [ modified by DHo to claim input device at the start
660/0: 203 241 262 J447NEN; [ KAB84 leaves input device, E0 and PTP in nest -- EN means freestanding
660/3: 041|100 000 ZERO; M0M0;
661/0: 304 000 002|304 000 005|200 220 000 SET2; SET5; OUT;
662/3: 301 001 224|101 000|301 000 277 447; =V396; =M0M0; =V183;
[ end of mod
663/5: 200 332 300 JS1P2;
664/2: 304 033 137|304 013 126|036|170 031 SETAZ0; SETAYA0; -; =RC1;
665/5: 017|041|303 033 126|017|017|177 020 ×760; ZERO; =YA0M1Q; ×J760C1NZS;
667/2: 304 000 010|301 000 251|157 001|300 000 251|170 022|171 036|301 013 126|201 323 014
453; SET8; =V161; Q0TOQ1; V161; =M1; Q1; =YA0; JS44;
672/5: 041 ZERO;
673/0: 052|203 323 045 844; ERASE; JS26;
673/4: 042|202 322 147|200 141 273 DUP; JS860; J844≠Z;
674/5: 304 000 060|225 021 276|304 000 064|200 022 325 SETB60; J517=; SETB64; J487≠;
676/5: 052 517; ERASE;
677/0: 304 000 014|170 030|300 000 271|041|041 SET12; =C1; V177; ZERO; ZERO;
700/4: 052 959; ERASE;
700/5: 203 323 045|042|202 322 147|204 141 300 846; JS26; DUP; JS860; J959≠Z;
702/3: 042|304 000 017|036|220 042 332 DUP; SETB17; -; J480<Z;
703/5: 042|304 000 072|036|220 102 332 DUP; SETB72; -; J480>Z;
705/1: 304 000 040|220 022 332 SETB40; J480=;
706/1: 012|166 015|012|011|065|143 020|265 021 300 PERM; SHLD6; PERM; OR; REV; DC1; J846C1NZ;
710/0: 301 017 070|301 017 071|304 000 006|170 031|041|170 131 =YD0; =YD1; SET6; =RC1; ZERO; =RC5;
712/2: 203 323 045|304 000 075|225 021 314 849; JS26; SETB75; J848=;
713/5: 203 322 141|202 261 312 JS839; J849;
714/5: 041|203 322 141|265 121 314 848; ZERO; JS839; J848C5NZ;
716/0: 300 017 077|164 365|164 015|056|301 017 077 YD7; SHL-6; SHL6; +; =YD7;
[Page number 10
717/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;
723/1: 300 017 071|042|301 000 245|301 017 103 YD1; DUP; =V157; =Y3;
(set up skeleton B-block);
724/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;
727/3: 200 322 050 JS493; (skip CRLF symbols);
730/0: 200 323 142 JS12; (next group-no existing group);
730/3: 200 262 324|201 261 334 J485; (no store limit); J492; (no integer);
731/3: 042|164 343|200 142 324 DUP; SHL-15; J485≠Z; (absurd store limit);
732/3: 301 017 101 =Y1; (insert into B-block);
733/0: 304 000 073|036|200 142 324 SET59; -; J485≠Z; (terminator not a semi-colon);
734/1: 304 007 237|200 022 324 492; SETB3637; J484≠; (test for ST);
735/1: 052|200 322 050|200 323 142 ERASE; JS493; JS12; (next group-existing character);
736/2: 200 262 326|200 262 326 J483; (no time); J483; (no specified time limit);
737/2: 161 061|300 017 101|056|301 017 101|304 000 073|036|200 142 326
SHA+24; Y1; +; =Y1; (insert into B-block); SET59; -; J483≠Z;
742/0: 304 007 327|036|200 142 326 SETB3727; -; J483≠Z; (test for TL);
743/1: 200 322 050|304 000 030|201 021 352|200 323 142|204 261 346|204 261 347|204 261 346
JS493; SET24; J496≠; JS12; J512; J513; J512;
746/4: 300 001 227|203 262 343 512; V399; J491;
747/4: 300 001 226|036|204 141 346 513; V398; -; J512≠Z;
750/5: 041|033|301 001 254|200 322 050 ZERO; NOT; =V420; JS493;
752/1: 304 000 036|202 021 362 496; SET30; J489≠;
753/1: 200 323 142|200 262 331|204 261 360 JS12; J481; J488; (no start);
754/4: 042|164 347|200 142 331 DUP; SHL-13; J481≠Z; (absurd start value);
755/4: 042|301 001 173|304 000 010|056|301 000 251 DUP; =V371; SET8; +; =V161;
757/3: 304 000 073|036|200 142 331 SET59; -; J481≠Z;
760/4: 300 000 241|036|200 142 331 488; V153; -; J481≠Z; (check START);
761/5: 200 322 050 JS493; (skip CRLF);
762/2: 304 000 044|200 021 367 489; SET36; J451≠; (test Y);
763/2: 052|157 001|205 323 045|042|223 141 371 ERASE; Q0TOQ1; JS25; DUP; J479=Z;
765/0: 304 000 044|304 000 001|301 000 274|204 262 052 SET36; SET1; =V180; J455;
[Page number 11
767/0: 304 000 023|205 022 002|052 451; SET19; J456≠; (test H); ERASE;
770/1: 304 000 030|170 030|205 323 045 SET24; =C1; JS25;
771/3: 164 015|205 323 045|056|164 015|205 323 045|056 479; SHL+6; JS25; +; SHL+6; JS25; +;
773/3: 304 015 020|036|200 142 333 SETB6420; -; J478≠Z; (test 0=E);
774/4: 205 323 041 JS3; (integer read first not read);
775/1: 042|164 367|164 013|065|222 021 377 DUP; SHL-5; SHL+5; REV; J477=;
776/4: 304 000 040|056 SET32; +; (failure of not module 32 is not in);
777/2: 042|164 343|200 142 333 477; DUP; SHL-15; J478≠Z; (test size);
1000/2: 164 020|301 000 250|304 000 073|200 022 333|052 SHLC1; =V160; SET59; J478≠; ERASE;
1002/2: 200 322 050 JS493;
1002/5: 304 000 041|204 022 052 456; SET33; J455≠; (test V);
1003/5: 052|205 323 045|304 000 073|224 022 046 ERASE; JS25; SET59; J465=; (null V);
1005/3: 203 323 035|033|027 JS6; NOT; NEG; (v+1);
1006/2: 042|164 347|200 142 330 460; DUP; SHL-13; J482≠Z; (test size);
1007/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 PO test);
1012/1: 304 000 073|036|200 142 330|200 322 050 SET59; -; J482≠Z; JS493;
1013/5: 171 022|300 017 100|164 321|065|041|065|205 322 317|164 061 454; M1; Y0; SHL-24; REV; ZERO; REV; JS446; SHL+24;
1016/2: 301 017 100|300 000 274|202 142 030|205 323 045|065 =Y0; V180; J470≠Z; JS25; REV;
1020/3: 304 000 042|202 022 030 SETB42; J470≠; (TEST W);
1021/3: 052|304 000 073|222 022 047 ERASE; SET59; J461=;
1022/4: 203 323 035 JS6;
1023/1: 042|164 347|200 142 323 459; DUP; SHL-13; J486≠Z;
1024/1: 033|027|164 061|300 000 251|056|301 000 251|304 000 073|200 022 323
NOT; NEG; SHL+24; V161; +; =V161; SET59; J486≠; (FAIL);
1027/0: 052|200 322 050 ERASE; JS493;
1027/4: 205 323 045|065 JS25; REV;
1030/2: 304 000 244|170 122 470; SET164; =M5;
1031/1: 041|301 000 274 ZERO; =V180;
1031/5: 304 000 044|205 022 055 445; SETB44; J462≠; (test Y);
[Page number 12
1032/5: 052|042|304 000 014|036|220 042 334 ERASE; DUP; SETB14; -; J473<Z;
1034/2: 042|304 000 046|036|200 042 334 DUP; SETB46; -; J473≥Z;
1035/4: 170 022|205 323 045|304 000 073|225 022 044 =M1; JS25; SET59; J444=;
1037/3: 203 323 035|033|027|042 JS6; NOT; NEG; DUP;
1040/3: 164 343|200 142 334 SHL-15; J473≠Z;
1041/2: 164 061|105 025|304 000 073|203 022 342 SHL+24; =M5M1H; SET59; J472≠; (test terminator);
1043/0: 052|200 322 050|205 323 045|065|205 262 031 ERASE; JS493; JS25; REV; J445;
1044/5: 052|200 322 050|205 323 045|065|205 262 031 444; ERASE; JS493; JS25; REV; J445;
1046/4: 041|202 262 006 465; (Blank start); ZERO; J460;
1047/2: 041|201 262 023 461; (blank W); ZERO; J459;
1050/0: 304 000 073 493; (skip CRLF); SET59;
1050/3: 205 323 045|065|223 022 050|204 323 021|200 360 000 463; JS25; REV; J463=; JS46; EXIT1;
1052/4: 041|042|170 030|170 024 455; (no V specification); ZERO; DUP; =C1; =I1;
1053/4: 300 000 251|170 022|171 036|301 013 126|205 262 013 V161; =M1; Q1; =YA0; J454;
1055/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;
1060/3: 041|313 173 137 ZERO; =Z0M7Q;
1061/1: 304 000 035|205 022 126 SET29; J843≠;
1062/1: 164 015|056|200 323 142|200 262 335|204 262 064|200 262 335 (R); SHL+6; +; JS12; J467; J458; J467;
1064/4: 300 000 272|200 022 132 458; V178; J469≠; (not restart);
1065/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;
1071/0: 200 262 160 J511;
1071/3: 300 001 254|301 017 105|041|301 001 254 468; V420; =Y5; ZERO; =V420;
1073/1: 171 062|304 000 004|036|224 142 077 M3; SET4; -; J464=Z;
1074/4: 171 062|304 000 005|036|200 142 335 M3; SET5; -; J467≠Z;
1076/1: 171 070|304 000 006|036|200 142 335 C3; SET6; -; J467≠Z; (too many syllables);
1077/4: 041|170 111 464; ZERO; =RC4; (overall instruction count);
[Page number 13
1100/1: 304 000 006|170 071 SET6; =RC3; (storage modifier);
1101/0: 157 041|152 001|171 036|301 013 127 Q2TOQ1; I0TOQ1; Q1; =YA1; (initialise V-store pointer);
1102/3: 300 013 126|170 036|171 024|042|304 000 010|056|170 062|205 324 047
YA0; =Q1; I1; DUP; SET8; +; =M3; JS641;
(leave space for v×bits);
1105/2: 041|170 023|304 000 256|170 122|104 025 ZERO; =RM1; SET174; =M5; M5M1H;
1107/0: 203 142 341 J471≠Z; (YI);
1107/3: 304 000 261|170 122|104 025|203 142 342 SET177; =M5; M5M1H; J472≠Z; (YO);
1111/1: 304 000 252|170 122|304 000 031|170 022|145 020|300 000 250|164 061|200 142 116
SET170; =M5; SET25; =M1; I1=-1; V160; SHL+24; J449≠Z;
1114/3: 001|304 177 377|164 061|205 262 116 VR; SETB77777; SHL+24; J448;
449; (Y not blank);
1116/0: 300 000 250|164 061 V160; SHL+24;
1116/5: 104 025|036|042|107 025|171 022|033|027|205 142 116 448; M5M1H; -; DUP; =M5M1QH; M1; NOT; NEG; J448≠Z;
1121/0: 304 000 251|170 122|041|170 022|104 025|036|105 025 SET169; =M5; ZERO; =M1; M5M1H; -; =M5M1H;
1123/1: 171 210|171 062|036|170 210 C8; M3; -; =C8;
1124/2: 171 210|205 102 125|001|200 262 160 927; C8; J926≤Z; VR; J511;
1125/5: 204 332 011|202 262 124 926; JS874; J927;
1126/5: 304 000 033|036|200 142 336|200 323 142|200 262 336|200 262 132|200 262 336
843; SET27; -; J466≠Z; JS12; J466; J469; J466;
469; (test for PROGRAM etc);
1132/0: 300 001 113|223 022 135 V323; J457=;
1133/0: 300 001 114|223 022 135 V324; J457=;
1134/0: 300 001 115|223 022 135 V325; J457=;
1135/0: 200 262 336 J466; (failure);
1135/3: 304 000 001|301 000 274 457; SET1; =V180;
1136/3: 300 000 267|301 017 104|304 000 056|170 051|052|204 323 021|204 262 077
V175; =Y4; SET46; =RC2; ERASE; JS46; J464;
1141/3: 262 122 144 839; J842C5NZ;
1142/0: 244 022 146 J845C1Z;
1142/3: 303 037 072|304 000 007|170 130|200 360 000 =YD2M1Q; SET7; =C5; EXIT1;
1144/2: 300 037 071|164 015|056|301 037 071|143 120|200 360 000 842; YD1M1; SHL6; +; =YD1M1; DC5; EXIT1;
1146/4: 052|200 360 000 845; ERASE; EXIT1;
[Page number 14
1147/2: 041|225 022 156 860; ZERO; J861=;
1150/0: 304 000 002|225 022 156 SET2; J861=;
1151/0: 304 000 004|225 022 156 SET4; J861=;
1152/0: 304 000 006|225 022 156 SET6; J861=;
1153/0: 304 000 007|225 022 156 SET7; J861=;
1154/0: 304 000 076|225 022 156 SETB76; J861=;
1155/0: 304 000 077|225 022 156 SETB77; J861=;
1156/0: 052|041|200 360 000 ERASE; ZERO; EXIT1;
1156/5: 052|304 377 377|200 360 000 861; ERASE; SET-1; EXIT1;
1160/0: 204 323 021 511; JS46; (clear input record buffer);
1160/3: 205 323 045 JS25; (fetch first character of next instruction);
1161/0: 042|304 000 011|036|204 104 231 DUP; SET9; -; J138≤Z; (labels);
1162/2: 042|304 000 013|036|204 102 220 DUP; SET11; -; J508≤Z; (failure if ~ or.);
1163/4: 042|304 000 045|036|220 102 210 DUP; SET37; -; J507>Z; (letters);
1165/0: 167 377|042|220 102 170 201; SHC-1; DUP; J510>Z; (EVEN);
1166/0: 164 003|164 377|304 140 000|056|017|017|017|017|200 322 171 SHL1; SHL-1 ; SETB60000; + ;×510; JS509;
1170/3: 017|017|017|173 000|056|304 000 003|036|174 000|202 360 000 ×509; LINK; +; SET3; -; =LINK; EXIT;
1173/0: 205 264 263|202 264 266|204 264 300|203 264 322|203 264 331|202 265 002|205 266 047|205 266 050
J112; J113; J114; J115; J272; J117; J118; J273;
1177/0: 204 266 053|201 266 107|202 266 153|201 266 166|200 266 215|200 266 276|200 266 305|205 266 313
J120; J274; J122; J123; J124; J125; J126; J127;
1203/0: 202 267 104|204 267 123|200 267 166|201 267 374|205 270 022|205 270 023|204 271 200|203 271 203
J128; J129; J130; J131; J132; J133; J134; J135;
1207/0: 203 271 204|202 271 207 J136; J137;
1210/0: 304 000 054|221 031 212 507; SET44; J142=; (+);
1211/0: 304 000 055|224 031 217 SET45; J143=; (-); (here provide for [ if required - see notes);
1212/0: 304 000 064|223 031 220 SET52; J140=; (=);
1213/0: 304 000 065|224 031 302 SET53; J144=; (×);
1214/0: 304 000 066|224 031 340 SET54; J145=; (÷);
1215/0: 304 000 067|222 031 343 SET55; J141=; (comment);
1216/0: 304 000 075|220 031 355 SET61; J139=; (×);
[Page number 15
1217/0: 304 000 073|204 022 220 SET59; J508≠; (ISS);
1220/0: 052|200 262 160 ERASE; J511;
502;
1220/4: 304 000 073 508; SET59;
1221/1: 205 323 045|201 022 221 506; JS25; J506≠;
503;
501;
1222/1: 221 242 257 500; J54EN;
1222/4: 052|201 262 222 ERASE; J500;
1223/2: 065|304 000 073|065 504; REV; SET59; REV;
1224/1: 201 022 221|201 262 222 505; J506≠; J503;
(syllable by syllable storage);
1225/1: 300 077 100|167 021|015|143 060|301 077 100|261 062 232 55; Y0M3; SHC8; NEV; DC3; =Y0M3; J57C3NZ;
1227/3: 140 060|304 000 006|170 070|143 200|244 212 011|041|301 077 100
M+I3; SET6; =C3; DC8; J874C8Z; ZERO; =Y0M3;
1232/1: 200 360 000 57; EXIT1;
1232/4: 202 332 034 50; JS696; (store one-syllable instruction);
1233/1: 201 322 225 JS55;
1233/4: 204 262 241 J59;
1234/1: 202 332 034 51; JS696; (store two-syllable instruction);
1234/4: 041|065|166 361|200 262 240 ZERO; REV; SHLD-8; J58;
1235/5: 202 332 034 52; JS696; (store three-syllable instruction);
1236/2: 041|065|166 341|201 322 225 ZERO; REV; SHLD-16; JS55;
1237/3: 041|166 021 ZERO; SHLD8;
1240/0: 201 322 225 58; JS55;
1240/3: 041|166 021|201 322 225 ZERO; SHLD8; JS55;
1241/3: 052 ERASE;
59; (step on instruction counters);
[Page number 16
1241/4: 143 100|140 100|200 262 160 DC4; M+I4; J511; (treat next instruction);
1242/5: 300 000 051|203 262 343 269; (no space left); V33; J491; (catastrophic space failure);
(Fetch Simple Instruction);
1243/5: 170 036|205 323 141 22; =Q1; JS13; (fetch next group);
1244/4: 201 262 246 J23;
1245/1: 201 262 247 J21;
1245/4: 200 360 001 EXIT3; (N1 integer, N2 terminator, N3 group);
1246/1: 173 000|052|204 262 220 23; LINK; ERASE; J508; (report failure - too many characters);
1247/1: 042|164 321|203 142 252 21; DUP; SHL-24; J983≠Z;
1250/1: 042|102 020|015|042|164 061|220 142 253 976; DUP; M0M1Q; NEV; DUP; SHL24; J20=Z;
1251/5: 052|261 022 250 ERASE; J976C1NZ;
1252/3: 200 360 000 983; EXIT1; (unrecognised group in N1);
1253/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 0≤q≤15, q in N1);
1254/1: 042|221 042 256 DUP; J56<Z;
1254/5: 042|304 000 017|036|204 102 256 DUP; SET15; -; J60≤Z;
1256/1: 200 360 000 56; EXIT1; (failure);
1256/4: 202 360 001 60; EXIT2; (q in range);
1257/1: 304 000 001|301 000 233 54; SET1; =V147;
1260/1: 001|171 250|164 003|042|164 003|056|170 030 VR; C10; SHL1; DUP; SHL1; +; =C1;
1262/0: 100 260|167 020|101 260|300 000 277|202 142 271 M0M11; SHCC1; =M0M11; V183; J267≠Z;
1264/0: 304 000 001|304 000 005|200 220 000|042|301 000 277|170 030 SET1; SET5; OUT; DUP; =V183; =C1;
1266/3: 304 000 242|170 024|304 000 245|170 022|131 020 SET162; =I1; SET165; =M1; PWEQ1;
1270/3: 120 022|223 342 270 994; BUSYQ1; J994TR;
1271/2: 300 000 277|170 030|304 001 067|170 022|304 001 054|170 024 267; V183; =C1; SET311; =M1; SET300; =I1;
1273/5: 041|301 000 050|041|301 001 053 ZERO; =V32; ZERO; =V291;
[Page number 17
1275/1: 300 001 072|042|300 001 016|042|304 040 000|036|221 042 302 V306; DUP; V262; DUP; SET8192; -; J953<Z;
1277/4: 304 040 000|036|067|300 001 071|056|304 041 354|203 262 303 SET8192; -; FRB; V305; +; SETB20754; J954;
1302/1: 067|300 001 071|056|304 041 360 953; FRB; V305; +; SETB20760;
1303/3: 164 075 954; SHL30;
1303/5: 056|301 001 054 +; =V292; (P. number);
1304/3: 042|300 001 116|067|300 001 071|056|304 014 200|164 075|056 DUP; V326; FRB; V305; +; SETB6200; SHL30; +;
1307/0: 301 001 055|171 102|067|300 001 071|056|164 015 =V293; (L. number);M4; FRB; V305; +; SHL6;
1311/0: 304 000 035|164 111|056|304 000 002|056|301 001 056 SETB35; SHL36; +; SETB02; +; =V294;
1313/1: 131 020 PWEQ1;
1313/3: 041|042|301 001 050|301 001 053 992; ZERO; DUP; =V288; =V291;
1314/5: 300 001 254|222 142 316|200 360 000 V420; J268=Z; EXIT1;
1316/2: 220 302 160|173 000|052|202 262 316 268; J511EJ; LINK; ERASE; J268;
446; (Construct a Jump);
(parameters word, 0, instruction);
1317/5: 166 347|164 041|065|041|166 003 SHLD-13; SHL+16; REV; ZERO; SHLD+1;
1321/1: 164 047|065|164 271|056|056|056|200 360 000 SHL+19; REV; SHL-36; +; +; +; EXIT1;
1323/0: 300 001 004|203 262 343 486; V252; J491; (W SPECN.);
1324/0: 300 001 000|203 262 343 484;485; V248; J491; (STORE LT);
1325/0: 300 001 005|203 262 343 487; V253; J491; (NO P/M);
1326/0: 300 001 001|203 262 343 483; V249; J491; (TIME LT);
1327/0: 300 001 013|203 262 343 490; V259; J491; (PARITY);
1330/0: 300 001 002|203 262 343 482; V250; J491; (V SPECN.);
1331/0: 300 000 247|203 262 343 481; V159; J491; (START);
1332/0: 300 001 006|203 262 343 480; V254; J491; (TITLE);
1333/0: 300 001 003|203 262 343 478; V251; J491; (Y SPECN.);
1334/0: 300 001 007|203 262 343 473; V255; J491; (YA SPECN);
1335/0: 300 001 010|203 262 343 467; V256; J491; (RESTART);
1336/0: 300 000 240|203 262 343 466; V152; J491; (PROGRAM);
1337/0: 304 000 001|301 001 254|201 322 257|300 001 014|203 262 343 494; SET1; =V420; JS54; V260; J491;
[Page number 18
1341/3: 300 001 011|203 262 343 471; V257; J491; (YI USED);
1342/3: 300 001 012|203 262 343 472; V258; J491; (YO USED);
1343/3: 301 000 246 491; (failure routine); =V158;
1344/0: 041|033|301 000 233 ZERO; NOT; =V147;
1344/5: 220 242 346|052|205 262 344 476; J475EN; ERASE; J476;
1346/0: 300 000 277|203 142 353 475; V183; J474≠Z;
1347/0: 304 000 001|304 000 005|200 220 000|042|301 000 277 SET1; SET5; OUT; DUP; =V183;
1351/1: 170 030|304 000 242|170 024|304 000 245|170 022 =C1; SET162; =I1; SET165; =M1;
1353/1: 130 020 PWQ1;
1353/3: 300 000 277|170 030|304 000 245|170 024|300 000 245|304 001 302
474; V183; =C1; SET165; =I1; V157; SETB702;
1356/1: 301 000 245|304 000 246|170 022|130 020|301 000 245 =V157; SET166; =M1; PWQ1; =V157;
1360/2: 304 000 360|170 022|130 034 SET240; =M1; PGAPQ1;
1361/3: 200 332 253 868; JSP2;
1362/0: 041|301 000 250|304 000 015|170 031 ZERO; =V160; SET13; =RC1;
1363/3: 041|042|301 001 116|301 001 016 ZERO; DUP; =V326; =V262;
1364/5: 041|301 001 173 ZERO; =V371;
1365/3: 157 004 Q0TOQ4;
1365/5: 041|301 000 233 ZERO; =V147;
1366/3: 041|042|301 001 254|301 001 255 ZERO; DUP; =V420; =V421;
1367/5: 017|041|303 020 252|017|017|177 020 ×121; ZERO; =V162M1Q; ×J121C1NZS;
1371/2: 041|301 001 015|001|041|301 000 244|041|301 000 245 ZERO; =V261; VR; ZERO; =V156; ZERO; =V157;
1373/3: 041|301 000 050 ZERO; =V32;
1374/1: 041|301 001 020|041|301 000 274 ZERO; =V264; ZERO; =V180;
1375/3: 304 376 014|301 001 022 SET-500; =V266;
1376/3: 304 000 004|170 031 SET4; =RC1;
1377/2: 017|017|017|017|041|303 021 053|017|017|177 020 ×879; ZERO; =V291M1Q; ×J879C1NZS;
1401/2: 041|301 000 232 ZERO; =V146;
[Page number 19
1402/0: 221 243 003|052|200 263 002 880; J881EN; ERASE; J880;
1403/1: 225 303 011|173 000|052|201 263 003 881; J963EJ; LINK; ERASE; J881;
979; (even or odd restart);
1404/4: 300 000 277|042|201 143 010 V183; DUP; J972≠Z;
1405/5: 052|304 000 001|304 000 005|200 220 000 ERASE; SET1; SET5; OUT;
1407/3: 042|301 000 277 DUP; =V183;
1410/1: 170 030|300 001 224|170 310|203 262 361 972; =C1; V396; =C12; J868;
1411/5: 114 000|304 000 074|164 061|056|115 000 963; M0M0HN; SET60; SHL+24; +; =M0M0HN; [ JE0; chop this off the allow one-shot operation
1413/3: 041|200 220 000 ZERO; OUT; [ and finish cleanly -- DHo mod
(Initialise - for Fetch Next Character);
44; [ SET2; SET5; OUT; Modified by DHo to claim reader at the start
[ DUP; =V396;
1414/1: 300 001 224 V396; [ line added -- end of mod
1414/4: 300 000 236|170 316|300 000 237|170 336 V150; =Q12; V151; =Q13;
1416/2: 170 310|154 315|300 000 010|101 320 =C12; C12TOQ13; 65; V0; =M0M13;
1417/5: 125 320 PREQ13;
1420/1: 041|042|301 000 011|170 363|157 376 ZERO; DUP; =V1; =RM15; Q15TOQ14;
46; (clear input record buffer);
1421/4: 300 000 047|170 276|157 272 V31; =Q11; Q11TOQ10;
1422/5: 171 364|224 043 024 I15; J690<Z;
1423/4: 304 000 007|201 263 025 SETB07; J691;
1424/4: 304 000 006 690; SETB06;
1425/1: 167 365|300 000 010|166 015|103 260|052 691; SHC-6; V0; SHLD6; =M0M11Q; ERASE;
1426/5: 017|300 000 010|103 260|017|177 260 ×45; V0; =M0M11Q; ×J45C11NZS;
1430/2: 157 253|304 000 007|170 250|200 360 000 Q10TOQ11; SET7; =C10; EXIT1;
(Integer Convert);
8; (signed, first not yet read);
1432/0: 205 323 045 JS25;
[Page number 20
9; (signed, first already read);
1432/3: 304 000 054|224 023 041 SET44; J4=;
1433/3: 304 000 055|220 023 042 SET45; J5=;
1434/3: 041|042|066|204 263 042 ZERO; DUP; CAB; J10;
6; (unsigned, first already read);
1435/3: 042|041|065|304 000 011|036|220 103 045 DUP; ZERO; REV; SET9; -; J7>Z;
1437/1: 065|201 263 042 REV; J2;
1437/5: 065|042|161 005|056|161 003|056|201 263 042 1; REV; DUP; SHA2; +; SHA1; +; J2;
1441/4: 052 4; ERASE;
3; (unsigned, first not yet read);
1441/5: 041 ZERO;
1442/0: 041 5; ZERO;
2; (from next group);
1442/1: 205 323 045 JS25;
1442/4: 042|304 000 012|036|225 043 037 10; DUP; SET10; -; J1<Z;
1444/0: 012|065|220 143 045 PERM; REV; J7=Z;
1444/5: 027 NEG;
1445/0: 200 360 000 7; EXIT1; (end of Integer Convert);
(Fetch Next Character);
1445/3: 140 360 26; (special entry); M+I15;
1445/5: 261 363 064 25; (normal entry); J30C15NZ;
1446/2: 140 340|260 343 063 M+I14; J29C14NZ;
1447/1: 171 316|157 334|170 336|300 000 011|220 143 053 Q12; Q13TOQ12; =Q13; V1; J27=Z;
1451/1: 041|301 000 011|300 000 010|101 300|125 300 ZERO; =V1; V0; =M0M12; PREQ12;
1453/0: 121 300|220 342 327 27; PARQ12; J490TR;
1453/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;
1456/4: 042|164 367|066|056|054|001|203 143 061 DUP; SHL-5; CAB; +; AND; VR; J28≠Z; (test for EM character);
1460/2: 300 000 010|101 320|125 320 V0; =M0M13; PREQ13;
[Page number 21
1461/3: 171 304|170 343|304 000 040|170 350 28; I12; =RM14; SET32; =C14;
1463/0: 304 000 010|170 370|143 340 29; SET8; =C15; DC14;
1464/1: 100 340|041|166 015|065|101 340|143 360 30; M0M14; ZERO; SHLD6; REV; =M0M14; DC15;
1465/5: 042|241 263 135 42; DUP; J978C11Z; (failure - input record buffer full);
1466/3: 042|301 012 325|167 365|100 260|166 015 104; DUP; =V2P11; SHC-6; M0M11; SHLD6;
1470/1: 101 260|052|143 240|260 243 073 =M0M11; ERASE; DC10; J43C10NZ;
1471/3: 304 000 010|170 250|140 260|143 260 SET8; =C10; M+I11; DC11;
1473/0: 171 362|201 143 130 43; M15; J41≠Z;
1473/5: 042|167 365|161 251|222 143 116 DUP; SHC-6; SHA-44; J37=Z;
1475/1: 304 000 040|036|042|205 043 117 SET32; -; DUP; J39≥Z;
1476/3: 304 000 021|056|042|225 043 110 SET17; +; DUP; J34<Z;
1477/5: 171 364|224 043 107 I15; J33<Z;
1500/4: 042|223 143 106|304 000 012|036|042|225 103 103 DUP; J32=Z; SET10; -; DUP; J31>Z;
1502/4: 304 000 011|056|200 360 000 SET9; +; EXIT1;
1503/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;
1506/3: 052|304 000 053|200 360 000 32; ERASE; SET43; EXIT1;
1507/4: 304 000 056|056|200 360 000 33; SET46; +; EXIT1;
1510/5: 304 377 367|220 023 117 34; SET-9; J38=;
1511/5: 304 377 370|220 023 116 SET-8; J36=;
1512/5: 304 377 365|222 023 116 SET-11; J37=;
1513/5: 304 377 363|204 023 140 SET-13; J102≠;
1514/5: 052|304 000 073|200 360 000 116; ERASE; SET59; EXIT1;
1516/0: 144 360 36; I15=1;
1516/2: 052|205 263 045 37; ERASE; J25;
1517/0: 145 360|202 263 116 38; I15=-1; J37;
1517/5: 042|224 143 140 39; DUP; J363=Z;
1520/3: 304 000 032|036|042|220 103 123 SET26; -; DUP; J40>Z;
1521/5: 304 000 045|056|200 360 000 SET37; +; EXIT1;
[Page number 22
1523/0: 304 000 003|204 023 140 40; SET3; J363≠;
1524/0: 304 000 045|056 119; SET37; +;
1524/4: 173 000|304 101 312|200 022 337|174 000 35; LINK; SETAR849; J494≠; =LINK;
1526/2: 042|301 000 011|154 017|154 016|200 360 000 DUP; =V1; C0TOQ15; C0TOQ14; EXIT1;
1530/1: 141 360|304 000 006|222 023 134 41; M-I15; SET6; J442=;
1531/3: 304 000 075|224 023 124 SET61; J35=;
1532/3: 304 000 007|205 023 133 SET7; J443≠;
1533/3: 144 360 I15=1;
1533/5: 200 360 000 443; EXIT1;
1534/2: 145 360|200 360 000 442; I15=-1; EXIT1;
1535/1: 141 260|304 000 001|170 270|300 000 010|101 260|203 263 066 978; M-I11; SET1; =C11; V0; =M0M11; J104;
1537/4: 300 000 273|203 262 343 101; V179; J491;
1540/4: 221 242 257|052|204 263 140 363;102; J54EN; ERASE; J102;(There are invalid characters for notification);
(to e programmer);
(Next Group);
13; (normal entry);
1541/5: 041 ZERO;
12; (existing group in N1);
1542/0: 205 323 045 JS25; (fetch next character);
1542/3: 042|304 000 012|036|223 043 150 14; DUP; SET10; -; J11<Z;
1543/5: 304 000 054|225 023 151 SET44; J16=;
1544/5: 304 000 055|221 023 152 SET45; J17=;
15; (special entry);
1545/5: 304 000 073|222 023 153 SET59; J18=;
1546/5: 065|161 015|056|200 203 142 REV; SHA6; +; J12NV;
1550/0: 200 360 000 EXIT1; (failure - more than eight in group);
1550/3: 041|065|201 323 042 11; ZERO; REV; JS2; (integer convert);
1551/2: 200 360 001 EXIT3; (N1 integer, N2 terminator, N3 group);
[Page number 23
1551/5: 052|041 16; ERASE; ZERO;
1552/1: 041|201 323 042 17; ZERO; JS2; (integer convert);
1552/5: 200 360 001 EXIT3; (see above);
1553/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);
1554/0: 304 000 001|201 263 155 SET1; J63;
62; (instruction already complete);
1555/0: 041 ZERO;
1555/1: 300 054 253|164 003|056|143 040|301 054 253|263 043 163 63; YB0M2; SHL+1; +; DC2; =YB0M2; J64C2NZ;
1557/3: 140 040|304 000 060|170 050|171 042|304 017 065|304 014 253 M+I2; SET48; =C2; M2; SETAYC-1; SETAYB0;
1562/0: 036|036|220 143 164 -; -; J903=Z; (testor too many bits);
1562/5: 041|301 054 253 ZERO; =YB0M2;
1563/3: 200 360 000 64; EXIT1;
1564/0: 300 001 164|203 262 343 903; V364; J491;
1565/0: 202 332 034|041|065|166 341|201 322 225 571; JS696; ZERO; REV; SHLD-16; JS55;
1566/4: 041|166 021|201 322 225|041|166 021|201 322 225 ZERO; SHLD8; JS55; ZERO; SHLD8; JS55;
1570/4: 052|143 100|140 100|200 360 000 ERASE; DC4; M+I4; EXIT1;
1572/0: 300 001 021|056|300 001 020|164 041|056|041|301 001 020 185; V265; +; V264; SHL16; +; ZERO; =V264;
1574/2: 065|164 103|041|166 007|164 047|065 REV; SHL+33; ZERO; SHLD3; SHL19; REV;
1575/5: 164 271|056|056|200 360 000 SHL-36; +; +; (inst,y:r); EXIT1;
(entered with integer, terminater, base address, Y÷R marker);
1577/0: 066|056|202 263 200 049; CAB; +; (Y,W,H,Z); J178;
1577/5: 066|065|036 146; CAB; REV; -; (Z);
1600/2: 065 178; REV; (terminater, address);
1600/3: 304 000 073|223 023 203 SET59; J158=;
1601/3: 304 000 030|224 023 204 SET24; J436=; (M);
[Page number 24
1602/3: 041|042|066|200 360 000 ZERO; DUP; CAB; EXIT1;
1603/3: 052|041|042|042|200 360 000 158; ERASE; ZERO; DUP; DUP; EXIT1;
1604/4: 052|205 323 041 436; ERASE; JS3; (q, terminater, address);
1605/2: 201 322 254|200 263 215|065 JS53; J215; REV;
1606/3: 304 000 073|220 023 211 SET59; J235=;
1607/3: 304 000 034|220 023 212 SET28; J196=;
1610/3: 202 262 223 J504;
1611/0: 052|041|042|200 360 000 235; ERASE; ZERO; DUP; EXIT1;
1612/0: 052|205 323 045|304 000 073|036|204 142 220 196; ERASE; JS25; SET59; -; J502≠Z;
1613/5: 304 000 001|041|200 360 000 SET1; ZERO; EXIT1;
(This routine has an exit);
(N1; 0 if terminater; or M after address integer, else the);
( actual terminater which could be P,U,L,/,);
(N2; Q marker 1 or 0);
(N3; value of the modifier);
(N4; address
N5; Y÷R marker);
1615/0: 052|304 000 073|221 022 222|204 262 220 215; ERASE; SET 59; J500=; J502;
236; (dwa S÷R); (first character in N1);
1616/4: 304 000 044|221 023 225 SET36; J234=; (Y);
1617/4: 304 000 042|224 023 300 SET34; J216=; (W);
1620/4: 304 000 023|220 023 306 SET19; J190=; (H);
1621/4: 304 000 020|220 023 311 SET16; J189=; (E);
1622/4: 304 000 045|223 023 312 SET37; J188=; (Z);
1623/4: 304 000 073|221 022 222|204 262 220 SET59; J503=; J508; (FAILURE);
1625/1: 052|200 323 241 234; ERASE; JS366;
1625/5: 200 323 177 219; JS049;
1626/2: 042|203 143 237 220; DUP; J193≠Z;
1627/0: 052|164 043|065|164 031|056 ERASE; SHL+17; REV; SHL+12; +; (Qq, address, Y÷R marker);
[Page number 25
1630/1: 300 001 050|201 143 234|300 001 053|200 143 240 V288; J194≠Z; V291; J48≠Z; (test for SET and Vv=);
1632/1: 200 323 172 JS185; (instruction, Y÷R);
1632/4: 200 323 165|201 323 155|202 360 001 JS571; JS63; EXIT2;
1634/1: 201 142 222 194; J503≠Z; (test for Qq);
1634/4: 304 177 377|054 SETB77777; AND;
1635/2: 300 001 051|056|200 323 165|201 323 155|202 360 001 (SET); V289; +; JS571; JS63; EXIT2;
1637/3: 200 360 000 193; EXIT1; (terminater, Q, q, address, Y÷R);
1640/0: 201 142 222|200 360 001 48; J500≠Z; EXIT3; (address, Y÷R);
1641/0: 205 323 045|042|304 000 011|036|204 103 264 366; JS25; DUP; SET9; -; J180≤Z;
1642/5: 304 000 054|224 023 264 SET44; J180=;
1643/5: 304 000 055|224 023 264 SET45; J180=;
1644/5: 042|304 000 014|036|224 042 220 DUP; SET12; -; J508<Z;
1646/1: 042|304 000 045|036|221 103 263 DUP; SET37; -; J181>Z;
1647/3: 170 022|304 000 244|170 122|104 025|161 321 =M1; SET164; =M5; M5M1H; SHA-24; (bare address);
1651/2: 300 000 250|164 061|204 143 253 V160; SHL24; J399≠Z;
1652/4: 304 000 001|205 263 253 SET1; J401;
1653/4: 041 399; ZERO;
1653/5: 065 401; REV;
1654/0: 205 323 045|042|304 000 011|036|200 103 270 195; JS25; DUP; SET9; -; J187≤Z; (at 195 is address, Y÷R);
1655/5: 304 000 054|220 023 270 SET44; J187=;
1656/5: 304 000 055|220 023 270 SET45; J187=;
1657/5: 200 323 142|204 262 220|200 263 272|052|304 000 073|036|221 142 222|202 262 223
JS12; J502; J859; ERASE; SET59; -; J501=Z; J504;
1663/1: 304 000 073|204 022 220|201 262 222 181; SET59; J508≠; J503;
1664/4: 300 000 250|164 061|164 321|042|200 143 271 180; V160; SHL+24; SHL-24; DUP; J182≠Z;
1666/3: 052|304 177 377|304 000 001|065|066 ERASE; SETB77777;SET1; (Y÷R, address, bit); REV; CAB;
1670/0: 203 323 032|200 360 000 187; JS9; EXIT1; (integer, terminater, bare address, Y÷R);
1671/0: 041|065|066|200 263 270 182; ZERO; REV; CAB; J187;
[Page number 26
1672/0: 012|052|052|300 000 275|042|066|015|164 061|201 142 222 859; PERM; ERASE; ERASE; V181; DUP; CAB; NEV; SHL24; J503≠Z;
1674/2: 164 321|173 000|052|173 000|052|204 262 232 SHL-24; LINK; ERASE; LINK; ERASE; J50;
1676/1: 065|052|065|052|065|052|304 000 073|221 022 222|202 262 223 179; REV; ERASE; REV; ERASE; REV; ERASE; SET59; J501=; J504;
1700/4: 052|300 000 251|164 321 216; (W); ERASE; V161; SHL-24;
1701/4: 300 000 250|164 061|222 143 304 V160; SHL+24; J217=Z;
1703/0: 041|065|200 323 254|205 263 225 ZERO; REV; JS195; J219;
1704/2: 304 000 001|065|200 323 254|205 263 225 217; SET1; REV; JS195; J219;
1706/0: 052|300 000 250|164 321|042|224 142 220 190; (H); ERASE; V160; SHL-24; DUP; J508=Z;
1707/4: 041|065|200 323 254|205 263 225 ZERO; REV; JS195; J219;
1711/0: 052|041|042|200 323 254|205 263 225 189; (E); ERASE; ZERO; DUP; JS195; J219;
1712/3: 052|300 017 101 188; (Z); ERASE; Y1;
1713/1: 164 061|164 321|042|224 143 316 192; SHL+24; SHL-24; DUP; J191=Z;
1714/3: 027|033|041|065|200 323 254|205 323 177|202 263 226 NEG; NOT; ZERO; REV; JS195; JS146; J220;
1716/4: 052|300 000 001|201 263 313 191; ERASE; E1; J192;
400; (Reference address calculater);
1717/5: 200 323 142 JS12;
1720/2: 204 262 220 J508;
1720/5: 201 262 222 J503;
(inst, terminater, group);
1721/2: 066|304 000 035|223 023 341 CAB; SETB35; J394=; (R);
1722/3: 304 007 120|222 023 337 SETB3520; J238=; (RE);
1723/3: 304 007 233|220 023 372 SETB3633; J439=; (SP);
1724/3: 304 007 227|225 023 375 SETB3627; J440=; (SL);
1725/3: 304 000 033|221 024 004 SETB33; J441=; (P);
[Page number 27
1726/3: 304 000 027|221 024 006 SETB27; J379=; (L);
1727/3: 304 000 036|223 023 340 SETB36; J237=; (S);
1730/3: 304 007 235|223 023 340 SETB3635; J237=; (SP);
1731/3: 304 000 020|222 023 337 SETB20; J238=; (E);
1732/3: 041|223 023 341 ZERO; J394=;
1733/1: 304 007 220 SETB3620;
1733/4: 225 023 335|052|304 000 073|221 022 222|204 262 220 J419=; (SE); ERASE; SET59; J503=; J508;
1735/5: 052|304 000 001|012|041|200 360 000 419; ERASE; SET1; PERM; ZERO; EXIT1;
1737/2: 052|041|012|041|200 360 000 238; (JE); ERASE; ZERO; PERM; ZERO; EXIT1;
1740/3: 304 000 001|204 263 341 237; (JS); SET1; J240;
1741/3: 041 394; (J); ZERO;
1741/4: 065|052|012 240; REV; ERASE; PERM; (ref, term, S mark);
1742/1: 065|304 000 073|222 023 366 551; REV; SET59; J245=;
1743/2: 304 000 027|221 023 347 SETB27; J413=;
1744/2: 304 000 033|221 023 347 SETB33; J413=;
1745/2: 065|042|224 142 220|304 000 001|200 360 000 REV; DUP; J502=Z; SET1; EXIT1;
1747/1: 200 323 142|202 262 223|201 262 222 413; JS12; J504; J501;
1750/4: 042|164 347|203 146 146 DUP; SHL-13; J425≠Z; (test number);
1751/4: 066|304 000 033|203 023 353 CAB; SET27; (P); J242≠;
1752/5: 052|204 263 356 ERASE; J243;
1753/3: 304 000 027|201 023 370 242; SET23; J244≠;
1754/3: 052|304 040 000|056|042|304 040 000|036|201 324 077 ERASE; SET8192; +; DUP; SET8192; -; JS397; (insert L-number
into library list);
243; (P, term, ref, S mark);
1756/4: 300 001 016|221 023 366 V262; J389=; (current level);
1757/4: 205 324 041|203 263 363 JS223; (search far level); J390; (no level);
1760/4: 066|203 324 016|202 263 362|202 263 363 CAB; JS391; (search for reference); J582; J392; (no reference);
582; (add, P, term, S mark);
[Page number 28
1762/2: 065|052|041|200 360 000 REV; ERASE; ZERO; EXIT1;
1763/2: 012 392; (no reference); PERM;
1763/3: 300 001 053|202 144 013|203 324 034|304 000 010|041|200 360 000
390; V291; J596≠Z; JS393; SETB10; ZERO; EXIT1;
1766/1: 052 389; ERASE; (term, ref, S mark);
1766/2: 065|042|221 142 222|304 000 001|200 360 000 245; REV; DUP; J500=Z; SET1; EXIT1;
1770/1: 052|052|304 000 073|221 022 222|202 262 223 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);
1772/0: 052|205 324 041|203 264 001 439; (JSP); ERASE; JS223; J384;
1773/1: 052|304 000 001 382; ERASE; (terminater); SET1; (S mark);
1773/5: 065 377; REV; (term, S mark);
1774/0: 310 033 137|164 101|164 301|041 Z0M1; SHL+32; SHL-32; (address of Pp); ZERO;
1775/2: 200 360 000 EXIT1;
1775/5: 052|304 040 000|056|205 324 041|201 264 000 440; (JSL); ERASE; SET8192; +; JS223; J383;
1777/4: 201 263 373 J382;
2000/1: 042|304 040 000|036|201 324 077 383; DUP; SET8192; -; JS397; (insert into L-list);
2001/3: 041|012|203 324 034 384; (P. number terminate); ZERO; PERM; JS393;
2002/2: 304 000 001 (construct a funny); SET1;
2002/5: 065|304 000 020|041|200 360 000 376; REV; SETB20; ZERO; EXIT1;
2004/1: 052|205 324 041|205 264 011 441; (JP); ERASE; JS223;J381;
2005/2: 052|041|205 263 373 378; ERASE; ZERO; J377;
2006/1: 052|304 040 000|056|205 324 041|203 264 010 379; (JL); ERASE; SET8192; +; JS223; J380;
2010/0: 202 264 005 J378;
2010/3: 042|304 040 000|036|201 324 077 380; DUP; SET8192; -; JS397;
2011/5: 041|012|203 324 034|041|205 264 002 381; ZERO; PERM; JS393; ZERO; J376;
2013/2: 170 036|051|065|051|012 596; =Q1; REVD; REV; REVD; PERM;
2014/2: 171 036|204 331 165|012 Q1; JS344; PERM;
2015/2: 304 000 010|041|200 360 000 SET8; ZERO;EXIT1;
[Page number 29
391; (extract reference from S÷R description specified in M1);
2016/3: 310 033 136|170 122|171 122|222 144 021 Z1M1; =M5; M5; J437=Z;
2020/1: 171 022|172 122|204 264 021 M1; =+M5; J398;
2021/2: 151 205 437; M8TOQ5;
2021/4: 171 022|065|145 020|140 020|140 020 398; M1; REV; I1=-1;M+I1; M+I1;
2023/1: 171 022|171 122|036|223 144 033 757; M1; M5; -; J395=Z;
2024/3: 312 033 137|042|304 000 377|054|066|065|224 024 031|065 Z0M1Q; DUP; SETB377; AND; CAB; REV; J396=; REV;
2026/5: 164 321|042|304 000 377|054|066|065|224 024 031|065 SHL-24; DUP; SETB377; AND; CAB; REV; J396=; REV;
2031/0: 052|201 264 023 ERASE; J757;
2031/4: 052|164 061|164 301|065|170 022|200 360 000 396; ERASE; SHL+24; SHL-32; REV; =M1; EXIT1;
2033/3: 065|170 022|202 360 001 395; REV; =M1; EXIT2;
393; (construct and store a funny);
2034/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;
2037/1: 171 062|056|056|313 173 137|242 164 041 M3; +; +; =Z0M7Q; J450C7Z;
2040/5: 200 360 000 EXIT1;
2041/2: 204 271 360 450; (funny space exhausted); J565; (shift S÷R);
2041/5: 300 001 022|170 022 223; V266; =M1; (current bare for funnies);
2042/4: 310 033 137|164 301|222 024 047 225; Z0M1; SHL-32; J224=;
2044/0: 310 033 136|164 101|164 301|042|224 144 046 Z1M1; SHL+32; SHL-32; DUP; J226=Z;
2045/5: 172 022|204 264 042 =+M1; J225;
2046/4: 052|200 360 000 226; ERASE; EXIT1; (not present);
2047/2: 202 360 001 224; EXIT2; (present);
641; (no of V-stores in N1); (leave space for bits);
2047/5: 161 005 SHA2; (bits);
2050/1: 042|171 050|036|042|205 104 064 DUP ; C2; -; DUP; J645≤Z;
2051/3: 065|052|300 054 253|164 040|301 054 253|140 040 REV; ERASE; YB0M2; SHLC2; =YB0M2; M+I2;
[Page number 30
2053/3: 304 000 060|044|065 SET48; ÷I; (bits, words); REV;
2054/2: 042|222 144 062|170 031|151 041 DUP; J642=Z; =RC1; M2TOQ1;
2055/4: 017|017|041|303 034 253|017|017|177 020 ×644; ZERO; =YB0M1Q; ×J644C1NZS;
2057/2: 151 022|171 042|304 017 065|304 014 253 M1TOQ2; M2; SETAYC-1; SETAYB0;
2061/0: 036|036|200 043 164|203 264 062 -; -; J903≥Z; J643;
2062/2: 052 642; ERASE;
2062/3: 041|301 054 253|304 000 060|065 643; (bits); ZERO; =YB0M2; SET48; REV;
2063/5: 036|170 050|200 360 000 -; =C2; EXIT1;
645; (enough bits in current word);
2064/5: 052|042|027|172 050|170 030|300 054 253 ERASE; DUP; NEG; =+C2; =C1; YB0M2;
2066/3: 164 020|301 054 253|264 044 071 SHLC1; =YB0M2; J646C2NZ;
2067/5: 304 000 060|170 050|140 040|041|301 054 253 SET48; =C2; M+I2; ZERO; =YB0M2;
2071/4: 200 360 000 646; EXIT1;
369; (is the last funny=current address);
2072/1: 141 160|310 173 137|140 160|164 101|164 301 M-I7; Z0M7; M+I7; SHL+32; SHL-32;
2074/0: 171 070|027|033|164 033|171 062|056|036|224 144 076 C3; NEG; NOT; SHL+13; M3; +; -; J368=Z;
2076/1: 202 360 001 EXIT2; (NO);
2076/4: 200 360 000 368; EXIT1; (YES);
2077/1: 052|200 360 000 397; ERASE; EXIT1;
409; (fetch next bit);
2077/5: 300 254 253|167 240|304 000 001|054|263 244 103 YB0M10; SHCC10; SET1; AND; J410C10NZ;
2101/5: 304 377 321|170 250|140 240|200 360 000 SET-47; =C10; M+I10; EXIT1;
2103/3: 304 000 001|172 250|200 360 000 410; SET1; =+C10; EXIT1;
411; (Change last bit to 0);
2104/5: 171 250|304 000 057|056|223 144 112 C10; SET47; +; J412=Z;
2106/2: 143 240|300 254 253|167 240|164 377|164 003|142 240 DC10; YB0M10; SHCC10; SHL-1; SHL+1; NC10;
2110/3: 167 240|301 254 253|143 240|142 240|200 360 000 SHCC10;=YB0M10;DC10; NC10; EXIT1;
[Page number 31
2112/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;
2115/2: 300 001 023|300 001 024|036|223 144 126 402; (fetch next syllable); V267; V268; -; J421=Z;
2117/0: 300 277 100|164 260|304 000 377|054|171 276|301 001 121|262 264 124
Y0M11; SHLC11; SETB377; AND; Q11; =V329; J403C11NZ;
2121/5: 304 377 330|170 270|140 260|171 276|301 001 023|202 360 001 SET-40; =C11; M+I11; Q11; =V267; EXIT2;
2124/2: 304 000 010|172 270|171 276|301 001 023|202 360 001 403; SET8; =+C11; Q11; =V267; EXIT2;
2126/3: 200 360 000 421; EXIT1;
404; (fetch rest of a 3 syllable instruction);
2127/0: 300 001 121|170 236|164 021|202 324 115|201 264 146|056|164 021|202 324 115
V329; =Q9; SHL+8; JS402; J634; +; SHL+8; JS402;
2132/1: 201 264 146|056|200 360 000 J634; +; EXIT1;
405; (fetch rest of a 2 syllable instruction);
2133/2: 052|202 324 115|201 264 146|052|200 360 000 ERASE; JS402; J634; ERASE; EXIT1;
406; (store top syllable of N1);
2135/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;
2137/4: 301 237 100|262 224 142 =Y0M9; J407C9NZ;
2140/4: 304 377 330|170 230|140 220|200 360 000 SET-40; =C9; M+I9; EXIT1;
2142/2: 304 000 010|172 230|200 360 000 407; SET8; =+C9; EXIT1;
408; (store three syllables from N1);
2143/4: 164 061|201 324 135|201 324 135|201 324 135|052|200 360 000 SHL+24; JS406; JS406; JS406; ERASE; EXIT1;
2146/1: 300 001 112|203 262 343 634; V322; J491;
603; (reference from P0 description);
(N1=reference number);
2147/1: 042|304 014 253|304 013 127|036|042 DUP; SETAYB0; SETAYA1; -; DUP;
2150/4: 164 003|056|036|202 104 152|200 360 000 SHL1; +; -; J604≤Z; EXIT1;
604;
2152/2: 042|304 000 003|044 DUP; SET3; ÷I; (rem, +(3), reference);
[Page number 32
2153/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;
2155/5: 221 144 157|065|052 J606=Z; REV; ERASE;
2156/4: 202 360 001 EXIT2; (label,);
2157/1: 052|200 360 000 606; ERASE; EXIT1; (reference);
687; (failure S÷R, N1 = letter string, N2 = P
N3 = LABEL);
2157/5: 304 000 001|301 001 255 SET1; =V421;
2160/5: 300 001 257|171 230|042|225 104 163 V423; C9; DUP; J688>Z;
2162/2: 304 000 050|056|164 373|201 264 164 SET40; +; SHL-3; J689;
2163/5: 052|041 688; ERASE; ZERO;
2164/1: 166 133|300 001 110|171 222|300 001 173|056 689; SHLD45; V320; M9; V371; +;
2166/0: 067|300 001 071|011|164 045|300 001 256 FRB; V305; OR; SHL18; V422;
2167/4: 166 045|301 001 057|164 313|304 000 172 SHLD18; =V295; SHL-27; SETB172;
2171/2: 011|166 067|301 001 060|052|052 OR; SHLD27; =V296; ERASE; ERASE;
2172/4: 171 036|300 000 277|203 144 200|304 000 001|304 000 005 Q1; V183; J692≠Z; SET1; SET5;
2175/0: 200 220 000|042|301 000 277|170 030|304 000 242 OUT; DUP; =V183; =C1; SET162;
2177/0: 170 024|304 000 245|170 022|130 020 =I1; SET165; =M1; PWQ1;
2200/3: 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;
2203/2: 170 036 =Q1;
2203/4: 304 000 001|301 000 233 SET1; =V147;
2204/4: 171 036|065|051|066 Q1; REV; REVD; CAB;
2205/3: 301 001 061|065|300 001 072|042|066|067|300 001 071|056 =V297; REV; V306; DUP; CAB; FRB; V305; +;
2207/5: 304 000 062|164 075|056|301 001 060|065|042|304 040 000|036|222 044 215
SETB62; SHL30; +; =V296; REV; DUP; SET8192; -; J955<Z;
2212/5: 304 040 000|036|067|300 001 071|056|304 000 054 SET8192; -; FRB; V305; +; SETB54;
2214/5: 204 264 216 J956;
2215/2: 067|300 001 071|056|304 000 060 955; FRB; V305; +; SETB60;
2216/4: 164 075|056|301 001 057 956; SHL30; +; =V295;
[Page number 33
2217/4: 203 264 220 J749;
2220/1: 171 036 748; Q1;
2220/3: 300 000 277|200 144 226 749; V183; J684≠Z;
2221/3: 304 000 001|304 000 005|200 220 000|042|301 000 277|170 030 SET1; SET5; OUT; DUP; =V183; =C1;
2224/0: 304 000 245|170 022|304 000 242|170 024|130 020 SET165; =M1; SET162; =I1; PWQ1;
2226/0: 300 000 277|170 030 684; V183; =C1;
2226/5: 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);
2231/4: 203 323 035 JS6; (label, terminater);
2232/1: 065|304 000 073|204 022 220|052 REV; SET59; J502≠; ERASE;
2233/3: 304 000 006|171 070|036|164 033|171 062|056 SET6; C3; -; SHL+13; M3; +;
2235/2: 300 001 173|056 V371; +;
2236/0: 065 REV; (label, address);
2236/1: 300 001 016|204 144 246 V262; J543≠Z;
2237/1: 042|304 014 252|304 013 131|036|304 000 003|034|050|036|221 102 222
DUP; SETAYB-1; SETAYA3; -; SET3; ×D; CONT; -; J500>Z;
2242/0: 201 324 147|203 264 243|201 262 222 JS603; J544; J500;
2243/3: 301 001 116|151 004 544; =V326; M0TOQ4;
2244/2: 142 120|167 120 NC5; SHCC5;
2245/0: 300 133 130|056|301 133 130|200 262 160 YA2M5; +; =YA2M5; J511;
2246/4: 042|164 361|201 142 222 543; DUP; SHL-8; J500≠Z;
2247/4: 300 001 016|205 324 041|204 263 137 V262; JS223; J101;
2251/1: 052|203 324 016|201 262 222 ERASE; JS391; J500;
2252/2: 042|301 001 116|151 004 DUP; =V326; M0TOQ4;
2253/2: 065|164 021|056 545; REV; SHL+8; +;
2254/0: 300 000 232|205 144 257|304 000 001|301 000 232 V146; J546≠Z; SET1; =V146;
2256/0: 164 061|313 213 137|245 204 262|200 262 160 SHL24; =Z0M8Q; J882C8Z; J511;
[Page number 34
2257/5: 141 200|310 213 137|056|311 213 137|140 200 546; M-I8; Z0M8; +; =Z0M8; M+I8;
2261/4: 041|301 000 232|200 262 160 ZERO; =V146; J511;
2262/5: 204 332 011|200 262 160 882; JS874; J511;
112; (instructions beginning with A);
2263/5: 300 000 013|205 322 243 V3; JS22;
2264/5: 201 262 222 J503; (report failure - invalid form);
2265/2: 204 262 232 J50; (store ABS ABSF AND);
2265/5: 202 262 223 J504; (report failure - digits in instruction);
(end of A);
113; (instructions beginning with B);
2266/2: 205 323 141 JS13;
2266/5: 204 262 220 J508; (report failure - too many characters);
2267/2: 203 264 275 J100;
2267/5: 201 322 254 JS53; (check q);
2270/2: 202 262 223 J504; (report failure - q out of range);
2270/5: 012|304 000 073|036|204 142 220 PERM; SET59; -; J502≠Z; (report failure - no semicolon);
2272/1: 300 000 020|042|066|015|164 061|201 142 222 V8; DUP; CAB; NEV; SHL 24; J500≠Z; (report failure - invalid
form);
2274/0: 164 321|065|164 011|015|201 262 234 SHL-24; REV; SHL4; NEV; J51; (store BUSYQq);
2275/3: 042|300 000 017|042|066|015|164 061|201 142 222 100; DUP; V7; DUP; CAB; NEV; SHL24; J503≠Z; (report failure -
invalid form);
2277/3: 065|052|164 321|204 262 232 REV; ERASE; SHL-24; J50; (store BITS);
(end of B);
114; (instructions beginning with C);
2300/4: 300 000 021|205 322 243 V9; JS22;
2301/4: 201 262 222 J503;
2302/1: 204 262 232 J50; (store CAB CONT);
2302/4: 201 322 254 JS53; (check q);
2303/1: 202 262 223 J504;
[Page number 35
2303/4: 065|304 000 073|200 024 312 REV; SET59; J106≠;
2304/5: 052|161 011|065|042|224 144 310 ERASE; SHA4; REV; DUP; J858=Z;
2306/1: 300 000 227|170 036|201 322 247 V143; =Q1; JS21;
2307/3: 201 262 222 J500;
2310/0: 056|201 262 234 +; J51; (store CLOQq CTQq CRAQq CRBQq);
2310/4: 052|304 171 010|056|201 262 234 858; (null group Cq ); ERASE; SETB74410; +; J51;
2312/0: 304 000 037|036|204 142 220 106; SET31; -; J502≠Z;
2313/1: 161 011|065|200 323 142 SHA4; REV; JS12;
2314/1: 204 262 220 J502;
2314/4: 201 262 222 J500;
2315/1: 012|304 000 073|036|202 142 223 PERM; SET59; -; J504≠Z;
2316/3: 065|201 322 254 REV; JS53;
2317/1: 201 262 222 J501;
2317/4: 065|300 000 025|170 036|201 322 247 REV; V13; =Q1; JS21;
2321/1: 201 262 222 J501;
2321/4: 056|056|201 262 234 +; +; J51; (store CqTOQq CIqTOQq CMqTOQq);
(end of C);
115; (instructions beginning with D);
2322/3: 300 000 031|205 322 243 V17; JS22;
2323/3: 201 262 222 J503; (report failure - invalid form);
2324/0: 204 262 232 J50; (store DUMMY DUP DUPD);
2324/3: 201 322 254 JS53; (check q);
2325/0: 202 262 223 J504; (report failure - q out of range);
2325/3: 161 011|012|304 000 073|036|204 142 220 SHA4; PERM; SET59; -; J502≠Z; (report failure - no semicolon);
2327/1: 304 000 016|036|201 142 222 SET14; -; J503≠Z; (report failure - invalid form);
2330/2: 304 143 000|056|201 262 234 SETB61400; +; J51; (store DCq);
(end of D);
[Page number 36
272; (instructions beginning with E);
2331/3: 205 323 141 JS13;
2332/0: 204 262 220 J508;
2332/3: 204 264 343 J161;
2333/0: 066|300 001 107|203 024 346|052 CAB; V319; J162≠; ERASE;
2334/2: 065 (n, terminater); REV;
2334/3: 304 000 073|205 024 353|052 SET 59; J163≠; ERASE;
2335/4: 041 552; ZERO;
2335/5: 065 168; REV;
(n, address);
2336/0: 041|065|166 377 169; ZERO; REV; SHLD-1;
2336/4: 012|164 305 PERM; SHL-30;
2337/1: 300 001 104|015 V316; NEV;
2337/5: 012|056|042|164 347|201 142 222 PERM; +; DUP; SHL-13; J500≠Z;
2341/1: 041|166 111|164 017|166 271|052 ZERO; SHLD+36; SHL+7; SHLD-36; ERASE;
2342/3: 056 +;
2342/4: 200 323 155|205 262 235 166; JS62; J52; (store EXIT instructions);
2343/4: 300 001 077|170 036|201 322 247|201 262 222 161; V311; =Q1; JS21; J503;
2345/3: 244 022 232 J50C1Z; (store ERASE);
2346/0: 204 264 342 J166;
2346/3: 042|204 144 376 162; DUP; J164≠Z;
2347/1: 041|051 ZERO; REVD;
2347/3: 041|301 001 020 ZERO; =V264;
2350/1: 205 323 225|201 264 352|200 262 160|201 262 222 JS219; J165; J511; J500;
2352/1: 304 000 073|036|221 030 122|202 270 165 165; SET59; -; J300=; J299;
2353/5: 200 323 142|204 262 220|201 262 222 163; JS12; J502; J500;
2355/2: 066|304 003 035|204 024 363 557; CAB; SETB1435; J167≠;
2356/3: 052 ERASE;
[Page number 37
563; (r, terminator, n);
2356/4: 201 323 342 JS551; (Y÷R, address, terminator, n);
2357/1: 066|304 000 073|036|202 142 223 CAB; SET 59; -; J504≠Z;
(Y÷R, address, n);
2360/3: 201 324 072|201 265 001 JS369; J589;
2361/3: 225 144 335 588; J168=Z;
2362/0: 065|300 001 016 REV; V262; (p, n, r);
2362/4: 203 324 034 558; JS393; (store a funny);
2363/1: 205 322 235 JS52;
2363/4: 066|304 000 073|036|202 142 223 167; CAB; SET59; -; J504≠Z;
2365/0: 065|042|164 347|201 142 222 REV; DUP; SHL-13; J501≠Z;
2366/1: 065|304 003 033|200 024 372|052 REV; SETB1433; J553≠; ERASE;
2367/3: 042|203 144 374|052 DUP; J554≠Z; ERASE;
2370/2: 300 013 126 YA0;
2370/5: 164 101|164 301 556; SHL+32; SHL-32; (address, n);
2371/3: 205 264 335 J168;
2372/0: 304 003 027|036|201 142 222|042|201 324 077 553; SETB1427; -; J500≠Z; DUP; JS397;
2373/5: 304 040 000|056 SET8192; +;
2374/3: 205 324 041|202 265 000|052|310 033 137|205 264 370 554; JS223; J555; ERASE; Z0M1; J556;
2376/4: 300 001 172|036 164; V370; -;
2377/2: 041|065|051|202 264 355 ZERO; REV; REVD; J557;
555; (p, n);
2400/2: 041|012|204 264 362 ZERO; PERM; J558;
2401/1: 065|052|041|065|203 264 361 589; REV ; ERASE; ZERO; REV; J588;
117; (instructions beginning with F);
2402/2: 300 000 036|205 322 243 V22; JS22;
2403/2: 205 265 004 J147;
2403/5: 204 262 232 J50; (store FIX FLOAT FRB);
2404/2: 202 262 223 J504;
[Page number 38
2404/5: 300 000 035|220 025 011 147; V21; J148=;
2405/5: 300 000 042|164 045|167 075|201 022 222 V26; SHL18; SHC30; J503≠;
2407/3: 052|300 000 042|164 305|204 262 232 ERASE; V26; SHL-30; J50; (store FLOATD);
2411/0: 052 148; ERASE; (begin routine for FINISH);
2411/1: 300 000 274|220 142 336 V180; J466=Z;
2412/1: 300 001 016|220 145 014 V262; J805=Z;
2413/1: 041|042|202 326 357 ZERO; DUP; JS807; (update last S÷R);
(INITIALISE UPDATE, THIS SHOULD BE PRECEDED BY THE)
(MECHANISM FOR DEALING WITH THE LIBRARY FROM)
(MAGNETIC TAPE);
2414/0: 171 070|304 000 006|036|224 145 016 805; C3; SET6; -; J806=Z;
2415/3: 041|201 322 225|200 265 014 ZERO; JS55; J805;
2416/4: 200 333 051|157 065 806; JSP24; Q3TOQ5;
2417/3: 171 062|300 000 250|164 061|164 321|042|202 145 022|052 M3; V160; SHL+24; SHL-24; DUP; J924≠Z; ERASE;
2421/5: 304 177 377 SETB77777;
2422/2: 300 000 251|164 321|036|056|300 001 173|056 924; V161; SHL-24; -; +; V371; +;
2424/1: 042|164 367|164 013|065|222 025 026 DUP; SHL-5; SHL+5; REV; J602=;
2425/4: 304 000 040|056 SET32; +;
2426/2: 170 062 602; =M3; (Y0 ADDRESS MODULO 32);
2426/4: 300 000 250|164 061|042|225 145 041 V160; SHL+24; DUP; J608=Z;
2430/1: 052|300 000 251 ERASE; V161;
2430/5: 164 321|171 122|164 101|164 301 SHL-24; M5; SHL32; SHL-32;
2432/1: 300 001 173|056|036|042|205 045 041 V371; +; -; DUP; J608≥Z;
2433/4: 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;
2436/4: 304 000 001|301 000 233 SET1; =V147;
2437/4: 300 001 071|056|301 001 061|201 324 220 V305; +; =V297; JS748; (Y0 SPECIFICATION WRONG);
2441/2: 200 265 042 J973;
[Page number 39
2441/5: 052 608; ERASE;
2442/0: 300 054 253|164 040|301 054 253 973; YB0M2; SHLC2; =YB0M2;
2443/2: 300 000 251|164 061|164 321|164 041 V161; SHL+24; SHL-24; SHL+16;
2444/5: 171 122|304 000 001|036|056 M5; SET1; -; +;
2446/0: 300 001 173|056|301 017 107 V371; +; =Y7; (SET UP FILLER WORD);
(UPDATE RESTART);
2447/1: 304 377 330|170 271|304 000 004|170 262 SET-40; =RC11; SET4; =M11;
2450/5: 304 377 321|170 251|304 377 330|170 131|304 000 005|170 122 SET-47; =RC10; SET-40; =RC5; SET5; =M5;
2453/2: 171 136|301 001 024 Q5; =V268;
2454/1: 205 325 252 JS800; (INSTRUCTION UPDATE);
2454/4: 300 001 022|170 362 V266; =M15; (INITIALISE NEXT S÷R);
(P0 V-STORES);
2455/3: 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;
2460/0: 164 301|065|036 SHL-32; (ADDRESS, V, V); REV; -;
2460/4: 300 001 173|036 V371; -;
(ADDRESS 1ST V-STORE, NUMBER OF V-STORES);
2461/2: 171 130|171 124|205 325 122 C5; I5; JS706;
(P0 UPDATING PROPER);
2462/3: 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);
2465/3: 171 362|171 202|036|220 145 103 M15; M8; -; J745=Z; (CHECK ON NO S÷R);
2466/5: 310 373 137|170 136|171 122|171 124|036|304 377 330|170 131 744; Z0M15; =Q5; M5; I5; -; SET-40; =RC5;
2471/2: 170 122|300 001 173|027|172 122|171 136|301 001 024|205 325 252
=M5; V371; NEG; =+M5; Q5; =V268; JS800; (INSTRUCTIONS UPDATE);
(VVPP UPDATE);
2474/0: 310 373 136|170 136|310 373 137|164 041|041|166 041 Z1M15; =Q5; Z0M15; SHL+16; ZERO; SHLD+16;
2476/1: 042|172 262 DUP; =+M11; (JUMP V WORDS FOR INST FETCH);
2476/4: 042|066|164 301|065|036 DUP; CAB; SHL-32; REV; -;
[Page number 40
2477/4: 300 001 173|036|171 130|171 124|205 325 122 V371; -;C5; I5; JS706;
2501/3: 201 325 110|200 265 103|205 265 066 JS746; (NEXT S÷R); J745; J744;
2503/0: 304 377 330|170 131 745; (NO MORE S÷RS); SET-40; =RC5;
2503/5: 300 017 107|164 101|164 301|300 001 173|036|033|027 Y7; SHL+32; SHL-32; V371; -; NOT; NEG;
2506/0: 170 122|171 136|301 001 024 =M5; Q5; =V268;
2507/1: 205 325 252 JS800; (INSTRUCTION UPDATE);
2507/4: 205 265 376 (END OF UPDATE); J611; (PUNCH);
746; (NEXT S÷R);
2510/1: 310 373 136|164 101|164 301|042|225 145 112 Z1M15; SHL+32; SHL-32; DUP; J747=Z;
2512/0: 172 362|202 360 001 =+M15; EXIT2;
2512/5: 052|200 360 000 747; ERASE; EXIT1;
723; (OBTAINED REQUIRED ADDRESS IF BIT IN Y÷R=0);
(N1=INSTRUCTION);
2513/3: 171 222|171 230|027|304 000 010|044|052|202 325 243 M9; C9; NEG; SET8; ÷I; ERASE; JS733;
2515/4: 204 265 116|205 265 121 J724; J725;
2516/4: 065|042|304 000 077|054|042 724; (FUNNY, INSTRUCTION); REV; DUP; SETB77; AND; DUP;
2517/5: 066|015|012|205 325 167|202 265 122 CAB; NEV; PERM; JS727; J726;
2521/2: 200 360 000 EXIT1;
2521/5: 202 360 001 725; (NO FUNNY); EXIT2;
2522/2: 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 CONTAINING FIRST BIT);
(N2=NUMBER 2 FIRST BIT);
[Page number 41
(N3=ADDRESS FIRST V-STORE);
(N4=NUMBER OF V-STORES);
2522/5: 170 243|027|033|027|170 250 =RM10; NEG; NOT; NEG; =C10; (BIT ADDRESS);
2524/0: 170 343|170 350|203 265 125 =RM14; =C14; (V-WORD ADDRESS); J707;
2525/1: 052 708; ERASE;
2525/2: 052 709; ERASE;
2525/3: 244 345 157 707; J780C14Z; (END OF ROUTINE);
2526/0: 157 351 Q14TOQ9;
2526/2: 302 357 100|205 324 077|164 003|205 324 077|056|164 003 Y0M14Q; JS409; SHL+1; JS409; +; SHL+1;
2530/4: 205 324 077|056|164 003|205 324 077|056 JS409; +; SHL+1; JS409; +; (4-BITS, V-STORE);
2532/2: 042|221 145 125 DUP; J708=Z;
(BITS, V-STORE);
2533/0: 164 131|042|222 045 145 SHL+44; DUP; J710<Z; (3 PART V-STORE);
2534/0: 164 003|042|223 045 137 SHL+1; DUP; J711<Z;
2535/0: 164 003|222 045 143 SHL+1; J712<Z;
(WHOLE PART);
2535/5: 041|205 325 161|201 325 160|203 265 125 ZERO; JS704; JS802; J707;
2537/3: 065|167 321|304 000 002|205 325 161|167 061 711; (U); REV; SHC-24; SET 2; JS704; SHC+24;
2541/2: 065|164 003|222 045 143 REV; SHL+1; J712<Z;
2542/2: 201 325 160|203 265 125 JS802; J707;
2543/2: 304 000 001|205 325 161|201 325 160|203 265 125 712; (L); SET1; JS704; JS802; J707;
2545/2: 164 003|042|221 045 151 710; SHL+1; DUP; J714<Z;
2546/2: 164 003|042|224 045 153 781; SHL+1; DUP; J715<Z;
2547/2: 164 003|221 045 156 804; SHL+1; J716<Z;
2550/1: 201 325 160|203 265 125 713; JS802; J707;
2551/1: 065|167 041|304 000 005|205 325 161|167 341 714; (C); REV; SHC+16; SET5; JS704; SHC-16;
2553/0: 065|202 265 146 REV; J781;
[Page number 42
2553/4: 065|167 341|304 000 004|205 325 161|167 041 715; (I); REV; SHC-16; SET4; JS704; SHC+16;
2555/3: 065|202 265 147 REV; J804;
2556/1: 304 000 003|205 325 161|201 265 150 716; (M); SET3; JS704; J713;
2557/4: 200 360 000 780; EXIT1;
2560/1: 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);
2561/5: 171 342|027|033|065|202 325 243|201 265 164|202 265 167 M14; NEG; NOT; REV; JS733; J850; J705;
850; (FUNNY, N-STORE, R4);
2564/1: 065|042|304 000 037|054|042|066|015|065 REV; DUP; SETB37; AND; DUP; CAB; NEV; REV;
(V-CODE, V-STORE, FUNNY, R4);
2565/5: 066|065 CAB; REV;
(V-CODE, FUNNY, V-STORE, R4);
2566/1: 205 325 167|304 000 004 JS727; SET4;
2567/1: 056 +; (UPDATED V, R4);
2567/2: 200 360 000 705; (V-STORE, R4); EXIT1;
727; (INTERPRET A FUNNY);
(N1=CODE P÷R/V/U/L);
(N2=FUNNY);
2567/5: 042|164 371|203 145 202 DUP; SHL-4; J730≠Z;
2570/5: 042|164 373|200 145 210 DUP; SHL-3; J731≠Z;
2571/5: 042|164 375|202 145 223 DUP; SHL-2; J732≠Z;
(AYy WITH U OR L);
2572/5: 065|164 041|164 301 REV; SHL+16; SHL-32; (INTEGER PART OF THE FUNNY);
2573/4: 304 177 377|036|171 062|056|164 103|164 277 SETB77777; -; M3; +; (ADDRESS, CODE); SHL+33; SHL-33;
2575/3: 065|304 000 003|054|042|164 377|200 145 201 703; REV; SETB3; AND; DUP; SHL-1; J728≠Z;
[Page number 43
2577/2: 220 145 202 J729=Z;
2577/5: 161 003|033|027|202 360 001 (L); SHA+1; NOT; NEG; EXIT2;
2601/0: 052|161 003|202 360 001 728; (U); ERASE; SHA+1; EXIT2;
2602/0: 202 360 001 729; (NEITHER); EXIT2;
2602/3: 304 000 003|054|201 145 234 730; (APp); SET3; AND; J700≠Z; (P AND U OR L);
2603/4: 041|166 041|042|221 145 222 ZERO; SHLD+16; (P NUMBER, WORD UP 16 PLACES); DUP; J811=Z;
2604/5: 205 324 041|205 265 216 JS223; (SEARCH FOR P); J919; (NO P); (P NO, WORD UP 16);
2605/5: 052|310 033 137 819; ERASE; Z0M1;
2606/3: 164 101|164 301 812; SHL+32; SHL-32; (ADDRESS, WORD UP 16);
2607/1: 065|052|202 360 001 REV; ERASE; EXIT2;
2610/0: 304 000 003|054|201 145 234 731; (ARrPp); SET3; AND; J700≠Z;
2611/1: 041|166 041|042|223 145 217 ZERO; SHLD+16; DUP; J809=Z; (tst forP0);
2612/2: 205 324 041|205 265 216 JS223; J919; (P NUMBER, WORD UP 16);
2613/2: 065|164 301|042|225 145 205 810; REV; SHL-32; DUP; J819=Z;
2614/3: 203 324 016|200 265 216|204 265 241 JS391; J782; J702; (REFERENCE, P NUMBER);
2616/0: 065|052|202 360 001 782; REV; ERASE; EXIT2;
2616/5: 065|204 265 237 919; REV; J920;
2617/3: 065|164 301|042|221 145 222 809; (P0); REV; SHL-32;DUP; J811=Z;
2620/4: 201 324 147|204 265 241|200 265 216 JS603; J702; J782;
2622/1: 052|300 013 126|203 265 206 811; (AP0); ERASE; YA0; J812;
732; (AVVPP);
2623/2: 065|041|166 041|042|222 145 231 REV; ZERO; SHLD+16; (P NUMBER, WORD UP 16); DUP; J813=Z;
2624/4: 205 324 041|202 265 237 JS223; J701;
2625/4: 052|164 301 ERASE; SHL-32; (V NUMBER);
2626/1: 310 033 137|164 041|164 301|036 Z0M1; SHL+16; SHL-32; -; (v-V);
2627/3: 310 033 137 Z0M1;
2630/0: 056|164 101|164 301 814; +; SHL32; SHL-32;
2630/5: 203 265 175 J703; (ADDRESS, CODE);
[Page number 44
2631/2: 052|164 301|300 013 126|164 041|164 301|036|300 013 126|200 265 230
813; (AVvP0); ERASE; SHL-32; YA0; SHL16; SHL-32; -; YA0; J814;
2634/1: 041|166 041|065|041|166 041|065 700; ZERO; SHLD+16; REV; ZERO; SHLD+16; REV;
2635/3: 052|065 ERASE; REV; (P NUMBER, INTEGER);
2635/5: 300 001 117|205 324 157 V327; JS687;
2636/5: 200 360 000 EXIT1; (FAILURE EXIT, EMPTY NEST);
2637/2: 012|052 701; PERM; ERASE;
2637/4: 052|041|065|300 001 052|205 324 157|200 360 000 920; ERASE; ZERO; REV; V290; JS687; EXIT1;
2641/4: 065|300 001 052|205 324 157|200 360 000 702; REV; V290; JS687; EXIT1;
(ON EXIT1; EMPTY NEST, EXIT2: THE REQUIRED ADDRESS);
2643/2: 264 165 244|052|052|202 360 001 733; J734C7NZ; ERASE; ERASE; EXIT2;
2644/4: 304 000 005|036|027|042|221 044 146|065 734; SET5; -; NEG; DUP; J634<Z; REV;
2646/2: 164 007|056|310 173 136|042|164 101|164 301 SHL+3; +; Z1M7; DUP; SHL+32; SHL-32;
2650/1: 066|036|224 145 251|052|202 360 001 CAB; -; J735=Z; ERASE; EXIT2; (NO FUNNY);
2651/4: 143 160|140 160|200 360 000 735; DC7; M+I7; EXIT 1; (FUNNY FOUND);
800; (instruction update);
2652/5: 171 276|301 001 023|203 265 254 Q11; =V267; J614;
2654/1: 052 613; ERASE;
2654/2: 052 617; ERASE;
2654/3: 202 324 115|200 360 000 614; JS402; (next syllable); EXIT1; (endof update);
2655/3: 042|304 000 300|054|164 365 DUP; SETB300; AND; SHL-6; (q-bits);
2656/4: 042|221 145 254 DUP; J613=Z;
2657/2: 027|033|042|203 145 261 NEG; NOT; DUP; J615≠Z;
2660/2: 052|202 324 133|203 265 254 (2); ERASE; JS405; J614;
2661/3: 027|033|222 145 311 615; NEG; NOT; J616=Z;
(Fetch/store/set);
2662/2: 200 324 127|042|164 073|205 324 077|065|203 045 300 JS404; DUP; SHL+29; JS409; REV; J618≥Z;
2664/3: 222 145 325 (SET); J737=Z; (Y bit);
2665/0: 042|164 075|203 045 273 DUP; SHL+30; J612≥Z;
2666/0: 167 075|164 003|164 377|205 324 104 (SET AR); SHC+30; SHL+1; SHL-1; (erase R); JS411;
[Page number 45
2667/3: 167 305|042|304 017 377|054|042|066|015 SHC-30; DUP; SETB7777; AND; DUP; CAB; NEV;
2671/1: 065|201 324 147 REV; JS603; (reference from P0);
2671/5: 204 265 317 J610;
2672/2: 056|204 324 143|203 265 254 +; JS408; J614;
2673/3: 042|304 177 377|054|042|066|015 612; (SET AY); DUP; SETB77777; AND; DUP; CAB; NEV;
2674/5: 065|171 062|056|304 177 377|036|164 103|164 277|056 REV; M3; +; SETB77777; -; SHL+33; SHL-33; +;
2677/0: 204 324 143|205 324 104|203 265 254 JS408; JS411; J614;
2700/3: 225 145 331 618; (Fetch/store); J739=Z; (Y-bit);
2701/0: 164 061|167 005|041|166 007|065|164 373 SHL+24; SHC+2; ZERO; SHLD+3; REV; SHL-3;
2702/4: 167 025|065|166 031 SHC+10; REV; SHLD+12;
2703/3: 171 062|056|304 177 377|036|164 103|164 277 M3; +; SETB77777; -; SHL+33; SHL-33;
2705/2: 166 351 741; SHLD-12;
2705/4: 065|167 355|164 007|065|166 373|052 REV; SHC-10; SHL+3; REV; SHLD-3; ERASE;
2707/1: 167 375|164 321|204 324 143|205 324 104|203 265 254 SHC-2; SHL-24; JS408; JS411; J614;
616; (Jump/exit);
2711/2: 200 324 127|205 324 077|222 145 335 JS404; JS409; J742=Z;
2712/5: 205 324 104 JS411;
2713/2: 042|304 017 377|054|042|066|015|065 DUP; SETB7777; AND; DUP; CAB; NEV; REV;
2714/5: 201 324 147|204 265 317 JS603; J610;
2715/5: 041|065|205 322 317|204 324 143|203 265 254 803; ZERO; REV; JS446; JS408; J614;
610; (reference in N1);
2717/4: 041|300 001 052|205 324 157|304 000 004|056 ZERO; V290; JS687; SET4; +;
2721/3: 204 324 143|203 265 254 JS408; J614;
607; (EXITAR)
2722/3: 041|300 001 075|205 324 157 ZERO; V309; JS687;
2723/4: 304 000 004|056|204 324 143|203 265 254 SET4; +; JS408; J614;
2725/2: 167 075|164 003|164 377|167 305 737; (SET); SHC+30; SHL+1; SHL-1; SHC-30; (ERASE R);
2726/4: 203 325 113|204 265 330|202 265 254 JS723; J738; J617;
[Page number 46
2730/1: 304 000 004 SET4;
2730/4: 056|204 324 143|203 265 254 738; (ADDRESS, INST); +; JS408; J614;
739; (FETCH/STORE);
2731/5: 203 325 113|205 265 333|202 265 254 JS723; J740; J617;
2733/2: 304 000 004 SET4;
2733/5: 065|167 111|164 031|065|202 265 305 740; (ADDRESS, INST); REV; SHC+36; SHL+12; REV; J741;
742; (Jump/Exit);
2735/2: 042|164 101|164 251|304 000 017|036|225 145 341 DUP; SHL+32; SHL-44; SET15; -; J743=Z;
2737/2: 203 325 113|205 265 315|202 265 254 901; JS723; J803; J617;
2740/5: 304 000 004|205 265 315 SET4; J803;
743; (Exit);
2741/5: 042|164 065|164 247|304 000 002|036|222 105 337 DUP; SHL26; SHL-45; SET2; -; J901>Z;
2743/5: 171 222|171 230|027|304 000 010|044|052|202 325 243|200 265 347
M9; C9; NEG; SET8; ÷I; ERASE; JS733; J799;
2746/3: 202 265 254 J617;
2747/0: 042|304 000 010|205 325 167 799; (funny, instn); DUP; SETB10; JS727;
2750/1: 304 000 004 SET4;
2750/4: 066|065 (address, funny, instn); CAB; REV;
2751/0: 164 101|041|166 007 SHL+32; ZERO; SHLD+3; (syllable, word, instn, funny);
2751/5: 065|164 273|065|066|164 061|167 013 REV; SHL-35; REV; CAB; SHL24; SHC5;
2753/2: 041|166 007 ZERO; SHLD3; (h, instn, syll, word);
2753/5: 304 000 002|015|042|164 377|056|066 SET2; NEV; DUP; SHL-1; +; CAB;
2755/2: 056|042|225 145 364 +; DUP; J666=Z;
2756/1: 042|304 000 003|036|220 145 366 DUP; SET3; -; J667=Z;
2757/3: 052|041|166 373|052 ERASE; ZERO; SHLD-3; ERASE;
2760/2: 167 367|164 321 SHC-5; SHL-24;
2761/0: 065|052|065 672; REV; ERASE; REV; (funny, instruction);
2761/3: 041|166 041|065|164 301|065|300 001 075 ZERO; SHLD+16; REV; SHL-32; REV; V309;
2763/1: 205 324 157|304 000 004|056|201 265 375 JS687; SET4; +; J798;
2764/5: 052|304 000 002|205 265 366 666; ERASE; SET2; J669;
[Page number 47
2766/0: 052|041|205 265 366 667; ERASE; ZERO; J669;
669; (L, instn, word);
2766/5: 166 373|052|167 367|164 321 SHLD-3; ERASE; SHC-5; SHL-24;
2770/0: 042|304 017 377|054|042 (instn, word); DUP; SETB7777; AND; DUP;
2771/0: 066|015|065|066|056|042 CAB; NEV; REV; CAB; +; DUP;
2772/0: 164 347|201 145 376 SHL-13; J797≠Z;
2772/5: 167 347|041|166 003 SHC-13; ZERO; SHLD1;
2773/4: 164 047|065|167 031|056|056 SHL19; REV; SHC12; +; +;
2774/5: 065|052 REV; ERASE;
2775/1: 204 324 143|203 265 254 798; JS408; J614;
2776/1: 052|200 265 361 797; ERASE; J672;
2776/5: 300 013 050|171 162|027|036|201 144 146 611; V0P24; M7; NEG; -; J634≠Z;
3000/3: 300 001 072|171 062|067|300 001 071|056 V306; M3; FRB; V305; +;
3002/1: 304 000 045|164 075|056|042|301 001 123|301 012 315 SETB45; SHL+30; +; DUP; =V331; =V1P3;
3004/2: 300 000 233|204 146 007|300 000 000|164 125|164 247|304 000 003
V147; J609≠Z; E0; SHL42; SHL-45; SET3;
3007/0: 036|220 146 020 -; J605=Z;
3007/4: 300 000 277|042|201 146 013|052 609; V183; DUP; J869≠Z; ERASE;
3011/0: 304 000 001|304 000 005|200 220 000|042|301 000 277 SET1 ; SET5; OUT; DUP; =V183;
3013/1: 170 030|304 001 122|170 024|304 001 123|170 022 869; =C1; SET338; =I1; SET339; =M1;
3015/1: 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;
3020/0: 300 017 101|164 061|164 321|042|223 146 023 605; Y1; SHL24; SHL-24; DUP; J995=Z;
3021/5: 300 001 225|171 062|066|036|223 102 343 V397; M3; CAB; -; J491>Z;
3023/3: 052|300 000 233|200 152 037 995; ERASE; V147; J838≠Z;
3024/4: 300 000 000|164 117|164 247|200 152 037 E0; SHL39; SHL-45; J838≠Z;
3026/2: 300 000 277|042|170 030|202 146 032|304 000 001|304 000 005|200 220 000|042
V183; DUP; =C1; J597≠Z; SET1; SET5; OUT; DUP;
3031/3: 301 000 277|170 031 =V183; =RC1; [ =RC11 is in the printout, but there is a hand-written comment
3032/2: 304 000 360|170 022|130 034 597; SET240; =M1; PGAPQ1;
3033/3: 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
3036/1: 304 017 070|170 024 SETAYD0; =I1;
3037/0: 171 130|304 000 037|036|202 106 044 872; C5; SET31; -; J870≤Z;
3040/3: 171 024|304 000 037|056|170 022 I1; SET31; +; =M1;
3041/5: 130 020 PWQ1;
3042/1: 304 000 040|172 024 SET32; =+I1;
3043/0: 304 377 340|172 130|200 266 037 SET-32; =+C5; J872;
3044/2: 171 130|171 024|056|170 022|130 020 870; C5; I1; +; =M1; PWQ1;
3045/5: 304 000 360|170 022|144 020|130 034 SET240; =M1; I1=+1; PGAPQ1;
3047/2: 200 272 037 J838;
118; (instructions beginning with G);
3047/5: 304 000 073|201 262 221 SET59; J506; (report failure);
(end of G);
3050/5: 041|042|301 001 020|200 323 306 273; ZERO; DUP; =V264; JS190; (H entry);
3052/1: 201 263 276|200 262 160|201 262 222 J179; J511; J500;
120; (instructions beginning with I);
3053/4: 205 323 141 JS13;
3054/1: 204 262 220 J508;
3054/4: 201 262 222 J503;
3055/1: 201 322 254 JS53; (check q);
3055/4: 202 262 223 J504;
3056/1: 161 011|012|304 000 073|201 026 065 SHA4; PERM; SET59; J149≠;
3057/4: 052|300 000 046|015|042|164 061|203 146 062 ERASE;V30; NEV; DUP; SHL24; J150≠Z;
3061/3: 164 321|056|201 262 234 SHL-24; +; J51; (store INTQq);
3062/3: 300 000 046|015|164 061|201 142 222 150; V30; NEV; SHL24; J503≠Z;
3064/0: 304 171 004|056|201 262 234 SETB74404; +; J51; (store Iq);
3065/1: 065|164 015|056|200 323 142 149; REV; SHL6; +; JS12;
3066/2: 204 262 220 J502;
3066/5: 201 262 222 J500;
3067/2: 012|304 000 073|036|202 142 223 PERM; SET59; -; J504≠Z;
[Page number 49
3070/4: 300 000 053|170 036|201 322 247 V35; =Q1; JS21;
3072/0: 202 266 073 J151;
3072/3: 056|056|201 262 234 +; +; J51; (store IqTOQq IMqTOQq);
3073/2: 304 000 064|036|201 142 222 151; SET52; -; J500≠Z;
3074/3: 042|304 000 001|036|201 146 077 DUP; SET1; -; J152≠Z;
3075/5: 052|304 144 000|056|201 262 234 ERASE; SETB62000; +; J51; (store Iq=1);
3077/1: 042|304 000 001|056|205 146 101 152; DUP; SET1; +; J153≠Z;
3100/3: 052|304 145 000|056|201 262 234 ERASE; SETB62400; +; J51; (store Iq=-1);
3101/5: 042|304 000 002|036|203 146 104 153; DUP; SET2; -; J154≠Z;
3103/1: 052|304 146 000|056|201 262 234 ERASE; SETB63000; +; J51; (store Iq=2);
3104/3: 042|304 000 002|056|201 142 222 154; DUP; SET2; +; J500≠Z;
3105/5: 052|304 147 000|056|201 262 234 ERASE; SETB63400; +; J51; (store Iq=-2);
(end of I);
3107/1: 041 274; ZERO;
3107/2: 205 323 317|170 036 JS400; =Q1; (buffer Y÷R bit);
(address, terminater, S÷R marker);
3110/1: 065|304 000 073|221 026 136 REV; SET59; J423=;
3111/2: 200 323 142|201 262 222 JS12; J501; (unfinished gp., add, S mark);
3112/2: 200 266 141 J424; (gp ended in a reminder, add, S mark);
((q number), terminater, group, address, S÷R marker);
3112/5: 201 322 254|203 266 146 JS53; (test q); J425; (failure);
3113/5: 065|304 000 073|223 026 152 REV; SET59; J426=;
3115/0: 200 323 142 JS12;
3115/3: 203 266 150|200 266 117|202 266 151 J427; J428; J429;
428; (group, q, c, address, S marker);
3117/0: 304 006 145|224 026 126 SETB3145; J430=;
3120/0: 304 000 045|224 026 127 SETB45; J431=;
3121/0: 300 001 047|042|066|015|164 061|203 146 152 V287; DUP; CAB; NEV; SHL+24; J426≠Z;
(two syllable short loop jump);
[Page number 50
3122/5: 164 321|065|164 011|056 SHL-24; REV; SHL+4; +; (insert q);
3123/5: 065|304 000 016|036|201 142 222 REV; SET14; -; J501≠Z; (inst, add, S÷R mark);
3125/1: 065|052|065|201 142 222 REV; ERASE; REV; J503≠Z; (test S mark);
3126/1: 201 262 234 J51; (store 2 syllable instruction);
3126/4: 304 000 001|205 266 127 430; (NZ); SET1; J433;
3127/4: 041 431; (Z); ZERO;
3127/5: 304 000 012|056|164 051 433; SET10; +; SHL20;
3130/5: 065|052 REV; ERASE; (inst, q, c, add, S mark);
3131/1: 065|164 031|056|065|304 000 016|036|201 142 222 REV; SHL+12; +; REV; SET14; -; J501≠Z;
(inst, add, S mark);
3133/1: 065|041|065|205 322 317 REV; ZERO; REV; JS446;
3134/1: 065|201 142 222 REV; J503≠Z;
3134/5: 171 036|201 323 155|205 262 235 434; Q1; JS63; J52; (store 3 syllable inst);
423; (Jr or JSr);
3136/1: 052 ERASE; (add, S marker);
3136/2: 300 001 046|065|041|065|205 322 317 V286; REV; ZERO; REV; JS446;
3137/5: 065|164 033|056|205 266 134 REV; SHL+13; +; J434;
424; (V, NV, EN, NEN, EJ, NEJ);
(TR, NTR, =, ≠, ≤Z, <Z, >Z, ≥Z, =Z, ≠Z);
(group, add, S÷R marker);
3141/0: 171 036 Q1;
3141/2: 065|051|066 REV; REVD; CAB;
3141/5: 300 001 025|170 036|201 322 247|204 266 152 V269; =Q1; JS21; J818;
3143/4: 065|041|065|205 322 317|065|201 142 222 REV; ZERO; REV; JS446; REV; J500≠Z;
3145/2: 065|201 323 155 REV; JS63;
3146/0: 205 262 235 J52;
3146/3: 052 425; ERASE;
3146/4: 065|052|304 000 073|221 022 222|202 262 223 435; REV; ERASE; SET59; J501=; J504;
3150/3: 052|052|202 262 223 427; ERASE; ERASE; J504;
[Page number 51
3151/2: 052|065|052|204 266 146 429; ERASE; REV; ERASE; J435;
3152/2: 052 432; ERASE;
3152/3: 052 426; ERASE;
3152/4: 052|201 262 222 818; ERASE; J501;
122; (instructions beginning with K);
3153/2: 205 323 141 JS13;
3153/5: 204 262 220 J508;
3154/2: 201 262 222 J503;
3154/5: 012|304 000 073|036|204 142 220 PERM; SET59; -; J502≠Z;
3156/1: 201 142 222 J503≠Z;
3156/4: 042|304 000 004|036|201 146 161 DUP; SET4; -; J159≠Z;
3160/0: 052|304 176 010|201 262 234 ERASE; SETB77010; J51; (store K4);
3161/1: 042|304 000 005|036|204 146 163 159; DUP; SET5; -; J160≠Z;
3162/3: 052|304 176 004|201 262 234 ERASE; SETB77004; J51; (store K5);
3163/4: 042|304 000 007|036|201 142 222 160; DUP; SET7; -; J503≠Z;
3165/0: 052|304 176 001|201 262 234 ERASE; SETB77001; J51; (store K7);
(end of K);
123; (instructions beginning with L);
3166/1: 205 323 141 JS13;
3166/4: 204 262 220 J508;
3167/1: 205 266 201 J197;
3167/4: 066|041|223 026 204 CAB; ZERO; J198=; (label of library subroutine);
3170/3: 066|304 000 073|036|204 142 220 CAB; SET 59; -; J502≠Z;
3171/5: 065|201 322 254 REV; JS53;
3172/3: 201 262 222 J503;
3173/0: 161 011|065|042|300 000 044|042|012|015|164 061|205 146 176 SHA 4; REV; DUP; V28; DUP; PERM; NEV; SHL 24; J921≠Z;
3175/3: 065|052|164 321|056|201 262 234 REV; ERASE; SHL-24; +; J51; (store LPQq);
3176/5: 052|300 000 045|042|012|015|164 061|201 142 222 921; ERASE; V29; DUP; PERM; NEV; SHL24; J500≠Z;
[Page number 52
3200/5: 164 321|056|201 262 234 SHL-24; +; J51; (store LPEQq);
3201/5: 300 000 043|042|066|015|164 061|201 142 222 197; V27; DUP; CAB; NEV; SHL 24; J503≠Z;
3203/4: 164 321|201 262 234 SHL-24; J51; (store LINK);
3204/3: 052|065|304 000 073|204 026 206 198; ERASE; REV; SET 59; J199≠;
3205/5: 052|041|202 266 212 ERASE; ZERO; J200;
3206/4: 304 000 041|036|204 142 220 199; SET 33; -; J508≠Z;
3207/5: 205 323 041 JS3;
3210/2: 065|304 000 073|036|204 142 220 REV; SET 59; -; J502≠Z;
3211/4: 304 000 001|056 SET 1; +;
200; (N1 number of V-stores, N2 number of library subroutine);
3212/2: 065|042|221 142 222|304 040 000|056|065|202 326 357|200 262 160
REV; DUP; J500=Z; SET8192; +; REV; JS807; J511;
124; (instructions beginning with M);
3215/0: 205 323 045 JS25;
3215/3: 304 000 054|225 026 236 SET44; J203=;
3216/3: 304 000 055|224 026 237 SET45; J204=;
3217/3: 042|304 000 011|036|200 106 247 DUP; SET9; -; J205≤Z;
3220/5: 200 323 142 JS12;
3221/2: 204 262 220 J508;
3221/5: 203 266 234 J206;
3222/2: 012|304 000 073|036|204 142 220 PERM; SET59; -; J502≠Z;
3223/4: 065|201 322 254 REV; JS53;
3224/2: 201 262 222 J500;
3224/5: 164 011|065|300 000 056|170 036|201 322 247 SHL4; REV; V38; =Q1; JS21;
3226/4: 205 266 227 J207;
3227/1: 056|201 262 234 +; J51; (store MBREQq MBRQq MBSKQq MBTQq);
(METQq MFREQq MFRQq MFSKQq MGAPQq MLBQq);
(MLWEQq MLWQq MRWDQq MWEQq MWQq);
[Page number 53
3227/5: 300 000 076|201 026 232 207; V54; J208≠;
3230/5: 052|304 120 001|056|201 262 234 ERASE; SETB50001; +; J51; (store MANUALQq);
3232/1: 300 000 077|036|201 142 222 208; V55; -; J503≠Z;
3233/2: 304 130 004|056|201 262 234 SETB54004; +; J51; (STOREMWIPEQQ);
3234/3: 300 000 100|170 036|201 322 247 206; V56; =Q1; JS21;
3235/5: 201 262 222 J503;
3236/2: 204 262 232 J50; (store MAX MAXF);
3236/5: 052|041|202 266 240 203; ERASE; ZERO; J210;
3237/4: 052|304 001 000 204; ERASE; SET256;
3240/2: 205 323 141 210; JS13;
3240/5: 204 262 220 J502;
3241/2: 201 262 222 J500;
3241/5: 012|304 000 073|036|202 142 223 PERM; SET59; -; J504≠Z;
3243/1: 304 000 024|036|201 142 222 SET20; -; J500≠Z;
3244/2: 201 322 254 JS53;
3244/5: 201 262 222 J500;
3245/2: 164 011|056|304 140 000|056|201 262 234 SHL4; +; SETB60000; +; J51; (store M+Iq M-Iq);
(M continued on next sheet);
(M continued);
3247/0: 203 323 035 205; JS6;
3247/3: 065|304 000 073|202 026 253 REV; SET59; J209≠;
3250/4: 052|201 322 254 ERASE; JS53;
3251/2: 201 262 222 J503;
3251/5: 164 011|304 171 002|056|201 262 234 SHL4; SETB74402; +; J51; (store Mq);
3253/2: 065|201 322 254 209; REV; JS53;
3254/0: 204 262 220 J502;
3254/3: 065|304 000 030|223 026 264 REV; SET24; J211=;
3255/4: 200 323 142 JS12;
3256/1: 204 262 220 J502;
[Page number 54
3256/4: 201 262 222 J500;
3257/1: 012|304 000 073|036|202 142 223 PERM; SET59; -; J504≠Z;
3260/3: 300 000 103|036|201 142 222 V59; -; J500≠Z;
3261/4: 201 322 254 JS53;
3262/1: 201 262 222 J500;
3262/4: 065|161 011|056|304 151 000|056|201 262 234 REV; SHA4; +; SETB64400; +; J51; (store MqTOQq);
3264/3: 052 211; ERASE;
212; (entry from = for =MqMq etc.);
3264/4: 200 323 032 JS8;
3265/1: 065|304 000 073|201 026 267 REV; SET59; J213≠;
3266/2: 052|041|204 266 271 ERASE; ZERO; J214;
3267/1: 200 323 142 213; JS12;
3267/4: 202 262 223 J504;
3270/1: 204 266 271 J214;
3270/4: 052|012|052|202 262 223 ERASE; PERM; ERASE; J504;
3271/4: 012|201 322 254 214; PERM; JS53;
3272/2: 201 262 222 J501;
3272/5: 164 011|056|065|300 000 104|170 036|201 322 247 SHL4; +; REV; V60; =Q1; JS21;
3274/5: 201 262 222 J503;
3275/2: 056|201 262 234 +; J51; (store MqMq MqMqQ MqMqH MqMqQH);
(MqMqN MqMqQN MqMqHN MqMqQHN);
(end of M);
125; (instructions beginning with N);
3276/0: 300 000 115|205 322 243 V69; JS22;
3277/0: 201 262 222 J503;
3277/3: 204 262 232 J50; (store NEG NEGD NEGF NEGDF NEV NOT);
3300/0: 201 322 254 JS53;
3300/3: 202 262 223 J504;
3301/0: 161 011|012|304 000 073|036|204 142 220 SHA4; PERM; SET59; -; J502≠Z;
[Page number 55
3302/4: 304 000 016|036|201 142 222 SET14; -; J503≠Z;
3303/5: 304 142 000|056|201 262 234 SETB61000; +; J51; (store NCq);
(end of N);
126; (instructions beginning with O);
3305/0: 205 323 141 JS13;
3305/3: 204 262 220 J508;
3306/0: 200 266 307 J228;
3306/3: 202 262 223 J504;
3307/0: 304 000 035|224 026 312 228; SET29; J229=;
3310/0: 304 010 037|036|201 142 257 SETB4037; -; J54≠Z;
3311/1: 200 323 155 JS62;
3311/4: 300 001 076|205 262 235 V310; J52; (store OUT);
3312/4: 052|304 000 011|204 262 232 229; ERASE; SET9; J50; (store OR);
(end of O);
127; (instructions beginning with P);
3313/5: 205 323 141 JS13;
3314/2: 204 262 220 J508;
3314/5: 204 266 323 J230;
3315/2: 066|042|225 146 326 CAB; DUP; J231=Z; (null group);
3316/1: 066|304 000 073|036|204 142 220 CAB; SET59; -; J502≠Z;
3317/3: 065|201 322 254 REV; JS53; (test q);
3320/1: 201 262 222 J500;
3320/4: 161 011|065|300 000 124|170 036|201 322 247 SHA4; REV; V76; =Q1; JS21;
3322/3: 202 266 351 J934;
3323/0: 056|201 262 234 +; J51; (store PARQq PGAPQq PRCEQq PRCQq PREQq);
(PRQq PWEQq PWQq);
3323/4: 042|300 000 140|042|066|015|164 061|201 146 335 230; DUP; V88; DUP; CAB; NEV; SHL24; J682≠Z;
3325/4: 065|052|164 321|204 262 232 REV; ERASE; SHL-24; J50; (store PERM);
3326/5: 052|065|304 000 073|200 026 331 231; ERASE; REV; SET59; J232≠;
[Page number 56
3330/1: 052|041|202 266 356 ERASE; ZERO; J233;
3331/0: 304 000 041|036|204 142 220 232; SET33; -; J508≠Z;
3332/1: 205 323 041 JS3;
3332/4: 065|304 000 073|036|204 142 220 REV; SET59; -; J502≠Z;
3334/0: 304 000 001|056|202 266 356 SET1; +; J233;
3335/1: 052 682; ERASE;
3335/2: 300 000 274|201 142 222 V180; J503≠Z;
3336/2: 300 001 113|225 026 341 V323; J681=;
3337/2: 300 001 114|225 026 341 V324; J681=;
3340/2: 300 001 115|225 026 341 V325; J681=;
3341/2: 200 262 336 J466; (failure);
3341/5: 171 070|304 000 006|036|223 146 344 681; C3; SET6; -; J683=Z;
3343/2: 041|201 322 225|205 266 341 ZERO; JS55; J681;
3344/3: 304 000 057|171 050|036|203 146 346|200 323 155 683; SET47; C2; -; J685≠Z; JS62;
3346/3: 304 000 056|170 051|204 323 021|041|033 685; SET46; =RC2; JS46; ZERO; NOT;
3350/1: 301 000 274|052|203 262 071 =V180; ERASE; J468;
3351/2: 300 001 175|170 036|201 322 247 934; V373; =Q1; JS21;
3352/4: 205 266 353|056|201 262 234 J996; +; J51;
3353/5: 300 001 231|170 036|201 322 247 996; V401; =Q1; JS21;
3355/1: 201 262 222|056|201 262 234 J500; +; J51; (STORE PIAQq ETC);
233; (N1 number of V-stores, N2 number of private subroutine);
3356/2: 202 326 357|200 262 160 JS807; J511;
3357/2: 041|301 000 232 807; ZERO; =V146;
3360/0: 065|042|222 146 362|205 324 041|202 266 362|201 262 222 REV; DUP; J817=Z; JS223; J817; J500;
3362/2: 065 817; REV;
3362/3: 151 004|041|301 001 116 M0TOQ4; ZERO; =V326;
[Page number 57
3363/3: 042|164 347|201 142 222 DUP; SHL-13; J500≠Z;
3364/3: 065|042|012|222 147 071 REV; DUP; PERM; J650=Z;
3365/3: 300 001 015|042|223 147 102 V261; DUP; J761=Z; (NO PREVIOUS S÷R);
3366/4: 171 202|042|066|042 M8; DUP; (new,new,old); CAB; DUP; (old,old,new,new);
3367/3: 170 202|036|164 101|164 301|310 213 136|056|311 213 136 =M8; -; SHL32; SHL-32; Z1M8; +; =Z1M8;
3371/5: 042|170 202|300 001 015|065|301 001 015 DUP; =M8; V261; REV; =V261;
3373/3: 012 654; PERM;
3373/4: 170 024|042|170 030 =I1; (v); DUP; =C1; (p); (in N2 is old S÷R pointer);
(in N1 is new P number);
3374/3: 171 070|304 000 006|036|221 146 377 653; C3; SET6; -; J652=Z;
3376/0: 041|201 322 225|203 266 374 ZERO; JS55; J653;
3377/1: 151 061|171 036|171 024|056|300 001 173|056|313 213 137|245 207 034
652; M3TOQ1; Q1; I1; +; V371; +; =Z0M8Q; J883C8Z;
3402/0: 171 050|164 041|171 042|056|164 041|313 213 137|245 207 035 885; C2; SHL16; M2; +; SHL16; =Z0M8Q; J884C8Z;
(new entry completed);
3404/3: 157 065|171 024|172 062|171 024 886; Q3TOQ5; I1; =+M3; I1;
3405/5: 042|027|172 210 DUP; NEG; =+C8;
3406/3: 171 210|222 107 010|204 332 011|203 267 006 975; C8; J974>Z; JS874; J975;
3410/2: 205 324 047 974; JS641;
3410/5: 300 001 016|222 147 101 676; V262; J655=Z; (current level =0);
3411/5: 300 001 016|205 324 041|204 263 137|052|301 001 016|052|171 022
V262; JS223; J101; ERASE; =V262; ERASE; M1;
3414/3: 171 130|027|033|161 007|027|170 130|171 136 C5; NEG; NOT; SHA3; NEG; =C5; Q5;
3416/2: 301 001 024 =V268; (address to stop updating);
3416/5: 170 022 =M1; (old s/r pointer);
3417/1: 310 033 136|170 136|310 033 137|164 041|164 301|161 005 Z1M1; =Q5; Z0M1; SHL+16; SHL-32; SHA2;
3421/3: 304 000 060|044|304 000 060|171 130|036|056|304 000 060 SET48; ÷I; SET48; C5; -; +; SET48;
3423/5: 044|012|056|171 124|056|170 243|304 000 057|036|170 250 ÷I; PERM; +; I5; +; =RM10; SET47; -; =C10;
3426/1: 310 033 137|164 101|041|166 007|161 007 Z0M1; SHL32; ZERO; SHLD3; SHA3;
3427/5: 304 000 050|036|170 271|164 273|300 001 173|036|170 262 SET40; -; =RC11; SHL-35; V371; -; =M11;
[Page number 58
3432/1: 171 276|301 001 023 Q11; =V267;
(set up bit and syllable fetch instructions);
3433/0: 300 054 253|164 040|301 054 253 YB0M2; SHLC2; =YB0M2; (justify bits);
3434/2: 201 267 037 J659;
3434/5: 204 332 011|200 267 002 883; JS874; J885;
3435/5: 204 332 011|203 267 004 884; JS874; J886;
3436/5: 052 657; ERASE;
3437/0: 052 658; ERASE;
3437/1: 202 324 115|205 267 076 659; JS402; (syllable); J671; (end of update);
3440/1: 042|304 000 300|054|164 365 DUP; SETB300; AND; SHL-6; (q bits);
3441/2: 042|225 147 036 DUP; J657=Z; (single syllable);
3442/0: 027|033|042|201 147 044 NEG; NOT; DUP; J660≠Z;
3443/0: 052|202 324 133|201 267 037 (two syllable); ERASE; JS405; J659;
3444/1: 027|033|223 147 056 660; NEG; NOT; J661=Z;
(fetch/store/set/);
3445/0: 200 324 127|205 324 077|220 147 037 JS404; JS409; J658=Z;
3446/3: 042|164 073|200 047 037 DUP; SHL29; J658≥Z;
3447/3: 042|164 075|200 047 037 DUP; SHL30; J658≥Z; (R bit);
3450/3: 167 075|164 003|164 377|167 305 (SETAR); SHC30; SHL1; SHL-1; SHC-30;
3451/5: 205 324 104 JS411; (erase bit);
3452/2: 042|304 017 377|054|042|066|015|065 DUP; SETB7777; AND; DUP; CAB; NEV; REV;
3453/5: 203 324 016|202 267 055 JS391; J762;
3454/5: 205 267 065 J670;
3455/2: 056|204 324 143|201 267 037 762; +; JS408; J659;
661; (JUMP / EXIT);
3456/3: 200 324 127|205 324 077|220 147 037 JS404; JS409; J658=Z; (JUMPS);
3460/0: 205 324 104|042|304 017 377|054|042|066 JS411; DUP; SETB7777; AND; DUP; CAB;
3461/4: 015|065|203 324 016|203 267 063|205 267 065 NEV; REV; JS391; J763; J670;
[Page number 59
3463/3: 041|065 763; ZERO; REV;
3463/5: 205 322 317|204 324 143|205 324 104|201 267 037 JS446; JS408; JS411; J659;
670; (no reference);
3465/5: 310 033 137|164 301|300 001 052|205 324 157|304 000 004|056 Z0M1; SHL-32; V290; JS687; SET4; +;
3470/2: 204 324 143|201 267 037 JS408; J659;
3471/2: 201 142 222 650; (new p=0); J503≠Z;
3471/5: 041|170 024|170 030|300 001 015 ZERO; =I1; =C1; V261;
3473/1: 171 070|304 000 006|036|225 147 075 675; C3; SET6; -; J674=Z;
3474/4: 041|201 322 225|201 267 073 ZERO; JS55; J675;
3475/5: 157 065|041|205 267 010 674; Q3TOQ5; ZERO; J676; (0.V261);
671; (end of update);
3476/5: 142 040|300 054 253|164 040|301 054 253|142 040|200 360 000 NC2; YB0M2; SHLC2; =YB0M2; NC2; EXIT1;
3501/2: 301 001 016|052|200 360 000 655; =V262; ERASE; EXIT1;
3502/3: 052|300 001 022|042|301 001 015|203 266 373 761; ERASE; V266; DUP; =V261; J654;
128; (instructions beginning with Q);
3504/2: 205 323 141 JS13;
3504/5: 204 262 220 J508;
3505/2: 201 262 222 J503;
3505/5: 012|304 000 073|201 027 112 PERM; SET59; J239≠;
3507/0: 052|201 142 222|201 322 254|201 262 222 ERASE; J503≠Z; JS53; J503;
3510/4: 161 011|304 171 016|056|201 262 234 SHA4; SETB74416; +; J51; (store Qq);
3512/1: 065|204 142 220 239; REV; J502≠Z;
3512/5: 065|201 322 254 REV; JS53;
3513/3: 204 262 220 J502;
3514/0: 161 011|065|200 323 142 SHA4; REV; JS12;
3515/0: 204 262 220 J502;
[Page number 60
3515/3: 201 262 222 J500;
3516/0: 065|304 000 073|036|202 142 223 REV; SET59; -; J504≠Z;
3517/2: 065|300 000 137|042|066|015|164 061|201 142 222 REV; V87; DUP; CAB; NEV; SHL24; J501≠Z;
3521/2: 164 321|065|201 322 254 SHL-24; REV; JS53;
3522/2: 201 262 222 J501;
3522/5: 056|056|201 262 234 +; +; J51; (store QqTOQq);
(end of Q);
129; (instructions beginning with R);
3523/4: 205 323 141 JS13;
3524/1: 204 262 220 J508;
3524/4: 201 267 144 J680;
3525/1: 066|304 000 020|200 027 153|052 CAB; SET16; J911≠; ERASE;
3526/3: 065|304 000 073|036|204 142 220 REV; SET59; -; J508≠Z;
3527/5: 042|171 062|036|300 001 173|042|221 042 222|220 147 151 DUP; M3; -; V371; DUP; J500<Z; J271=Z;
3532/1: 171 070|304 000 006|036|225 147 134|041|201 322 225|201 267 132
47; C3; SET6; -; J270=Z; ZERO; JS55; J47;
3534/5: 300 001 173|036|042|171 062|036|033|027 270; V371; -; DUP; M3; -; NOT; NEG;
3536/3: 042|027|172 210 DUP; NEG; =+C8;
3537/1: 171 210|201 107 143 923; C8; J922≤Z;
3540/0: 170 130|153 065 =C5; IM3TOQ5;
3540/4: 017|017|041|303 137 100|017|017|177 120 ×888; ZERO; =Y0M5Q; ×J888C5NZS;
3542/2: 170 062|200 262 160 =M3; J511;
3543/1: 204 332 011|201 267 137 922; JS874; J923;
3544/1: 300 000 141|170 036 680; V89; =Q1;
3545/0: 042|102 020|015|042|164 031|225 147 147 249; DUP; M0M1Q; NEV; DUP; SHL12; J248=Z;
3546/4: 052|260 027 145 ERASE; J249C1NZ;
3547/2: 201 262 222 J503;
[Page number 61
3547/5: 065|052|164 271|204 262 232 248; REV; ERASE; SHL-36; J50; (store REV etc.);
3551/0: 171 070|304 000 006|036|225 147 134|201 262 222 271; C3; SET6; -; J270=Z; J503;
3553/0: 221 147 155|052|304 000 073|221 022 222|204 262 220 911; J912=Z; ERASE; SET59; J503=; J508;
3555/1: 041|301 001 020 912; ZERO; =V264;
3555/5: 041|012|201 323 342 916; ZERO; PERM; JS551;
3556/4: 225 147 160|065|300 001 016|203 324 034|304 000 010 J913=Z; REV; V262; JS393; SET8;
3560/5: 042|164 347|202 147 164 913; DUP; SHL-13; J914≠Z;
3561/5: 202 323 200|202 323 226|201 263 276|200 262 160|201 262 222 JS178; JS220; J179; J511; J500;
3564/2: 052|304 000 073|221 022 222|204 262 220 914; ERASE; SET59; J500=; J502;
130; (instructions beginning with S);
3566/0: 205 323 045 JS25;
3566/3: 304 000 020|224 027 203 SET16; J251=;
3567/3: 200 323 142 JS12;
3570/0: 204 262 220 J508;
3570/3: 202 267 201 J250;
3571/0: 066|300 000 207|170 036|201 322 247 CAB; V127; =Q1; JS21;
3572/3: 202 267 222 J985;
3573/0: 066|304 000 073|036|204 142 220 CAB; SET59; -; J502≠Z;
3574/2: 042|012|167 377|223 047 177 DUP; PERM; SHC-1; J252<Z;
3575/3: 201 322 254 JS53;
3576/0: 201 262 222 J500;
3576/3: 161 011|056|201 262 234 SHA4; +; J51; (store SHACq SHADCq SHLCq SHLDCq SHCCq);
3577/3: 161 123|224 202 220 252; SHA41; J502V;
3600/2: 164 261|056|201 262 234 SHL-40; +; J51; (store SHAn SHADn SHLn SHLDn SHCn);
3601/2: 300 000 222|170 036|201 322 247 250; V138; =Q1; JS21;
3602/4: 201 262 222 J503;
3603/1: 204 262 232 J50; (store SIGN SIGNF STAND STR);
3603/4: 052|205 323 045 251; ERASE; JS25;
3604/2: 304 000 037|204 022 220 SET31; J502≠;
[Page number 62
3605/2: 052|200 323 032 ERASE; JS8;
3606/0: 065|304 000 073|203 027 212 REV; SET59; J253≠;
3607/1: 052|161 101|221 202 222 ERASE; SHA32; J500V;
3610/1: 164 301|304 000 304|164 041|056|200 323 155|205 262 235 257; SHL-32; SETB304; SHL16; +; JS62; J52; (store SETn SETBt);
3612/3: 065|204 142 220 253; REV; J508≠Z;
3613/1: 304 000 015|200 027 223 SET13; J254≠; (for SETA... see 254 next sheet);
3614/1: 052|041 ERASE; ZERO;
3614/3: 205 323 045 255; JS25;
3615/0: 042|304 000 010|036|203 047 217 DUP; SET8; -; J256≥Z;
3616/2: 065|161 007|056|203 267 214 REV; SHA3; +; J255;
3617/3: 304 000 073|036|204 142 220 256; SET59; -; J508≠Z;
3620/4: 161 077|164 003|221 202 222 SHA31; SHL1; J500V;
3621/5: 201 267 210 J257;
3622/2: 052|202 262 223 985; ERASE; J504;
(S continued on next sheet);
3623/0: 304 000 014|204 022 220 254; (SETA); SET12; J508≠;
3624/0: 052 ERASE;
3624/1: 205 323 045|304 000 035|201 027 226 JS25; SET29; J569≠;
3625/4: 202 267 253 J370; (SETAR);
3626/1: 304 000 041|220 027 264 569; SET33; J375=;
3627/1: 304 000 033|225 027 260 SET27; J572=;
3630/1: 304 000 027|225 027 260 SET23; J572=;
3631/1: 304 000 001|301 001 050|204 323 216|201 267 234|201 267 252|201 262 222
SET1; =V288; JS236; J374; J910; J500;
3634/1: 012|056|202 142 223 374; PERM; +; J504≠Z;
3635/0: 066|224 147 242 CAB; J367=Z;
3635/4: 041|203 324 034 ZERO; JS393;
3636/2: 304 000 040|223 027 241 SET32; J373=;
3637/2: 304 000 027|204 022 220 SET23; J508≠;
3640/2: 052|304 000 001|203 267 246 ERASE; SET1; J371;
[Page number 63
3641/3: 052|304 000 002|203 267 246 373; ERASE; SET2; J371;
3642/4: 304 000 040|220 027 246 367; SET32; J372=;
3643/4: 304 000 027|204 022 220 SET23; J502≠;
3644/4: 052|161 003|033|027|203 267 246 ERASE; SHA+1; NOT; NEG; J371;
3646/0: 052|161 003 372; ERASE; SHA+1;
3646/3: 041|065 371; ZERO; REV;
3646/5: 304 000 073|205 323 045|202 022 223|052 SET59; JS25; J504≠; ERASE;
3650/3: 300 001 051|056|200 323 165|201 323 155 568; V289; +; JS571; JS63;
3652/1: 041|301 001 050|200 262 160 910; ZERO; =V288; J511;
3653/2: 205 323 317 370; (SET ARr); JS400; (Y÷R, address, term, S mark);
3653/5: 042|201 323 155|164 043|300 001 051|056 DUP; JS63; SHL+17; V289; +; (R marker in SET);
3655/3: 056|065|304 000 073|036|204 142 220 +; (add in address); REV; SET59; -; J502≠Z;
3657/0: 065|201 142 222 REV; J503≠Z;
3657/4: 041|301 001 050|205 262 235 ZERO; =V288; J52;
3660/5: 205 323 317 572; JS400; (Y÷R, address, t, s);
3661/2: 066|304 000 073|036|202 142 223 CAB; SET59; -; J504≠Z;
3662/4: 066|201 142 222|065|203 267 250 CAB; J500≠Z; REV;J568;
3664/0: 200 327 330|201 262 222|204 262 220 375; JS347; J503; J508;
3665/3: 304 000 073|202 022 223 SET59; J504≠;
3666/3: 052|052 ERASE; ERASE;
3666/5: 041|065|203 267 250 ZERO; REV; J568;
3667/4: 052 581; ERASE;
3667/5: 205 323 045 867; JS25;
3670/2: 304 000 041|225 027 327 SET33; J338=;
3671/2: 304 000 035|224 027 320 SET29; J334=;
3672/2: 304 000 033|225 027 306 SET27; J335=;
3673/2: 304 000 027|202 027 312 SET23; J336≠;
[Page number 64
3674/2: 052|205 323 041 ERASE; JS3; (l, terminater, add 1);
3675/0: 042|164 347|200 147 327|042|201 324 077 DUP; SHL-13; J577≠Z; DUP; JS397;
3676/4: 304 040 000|056 SET8192; +;
3677/2: 205 324 041|202 267 302 351; JS223; J342;
3700/2: 052 ERASE;
3700/3: 310 033 137 Z0M1;
3701/0: 164 101|164 301 598; SHL+32; SHL-32; (add 2, terminater, add 1);
3701/4: 012|200 360 001 349; PERM; EXIT3;
3702/2: 300 001 053|204 147 304|041|012|203 324 034|205 267 305 342; V291; J343≠Z; ZERO; PERM; JS393; J348;
3704/4: 066|041|066|204 331 165|065 343; CAB; ZERO; CAB; JS344; REV;
3705/5: 304 000 020|204 267 301 348; SET16; J349;
3706/5: 052|205 323 041 335; ERASE; JS3; (p, terminater, add 1);
3707/3: 042|164 347|200 147 327|042|202 147 277 DUP; SHL-13; J577≠Z; DUP; J351≠Z;
3711/1: 052|300 013 126|200 267 301 ERASE; YA0; J598;
3712/2: 204 323 216|205 267 314|202 267 326 336; JS236; J520; J521;
3713/5: 304 000 073|204 267 315 SET59; J522;
3714/5: 012|056|200 147 370 520; PERM; +; J337≠Z;
522; (terminater, add 2, Y÷R, add 1);
3715/4: 051|220 147 320 REVD; J523=Z;
3716/2: 066|041|204 331 165|041|066|202 267 350 CAB; ZERO; JS344; ZERO; CAB; J580;
3720/0: 012|202 267 335 523; PERM; J524;
3720/4: 205 323 317|221 147 324 334; JS400; J534=Z; (add 2, terminater, S, add 1);
3721/4: 051|012|065 REVD; PERM; REV; (r, add 1, S, terminater);
3722/1: 300 001 016|204 331 165|304 000 010 V262; JS344; SET8; (add 2, add 1, s, terminater);
3723/4: 051|012|065 REVD; PERM; REV;
3724/1: 066|203 147 325|012|200 360 001 534; CAB; J535≠Z; PERM; EXIT3;
3725/3: 052|065|202 267 370 535; ERASE; REV; J294;
3726/2: 041|200 360 000 521; ZERO; EXIT1;
3727/0: 052|065|202 267 370 577; ERASE; REV; J294;
[Page number 65
3727/5: 052 338; ERASE; (add 1);
3730/0: 200 323 032|065 347; JS8; REV; (terminator, v, add1) ;
3730/4: 304 000 033|203 027 355 SET27; J314≠;
3731/4: 052|205 323 041 ERASE; JS3; (p, terminater, v, add 1);
3732/2: 042|164 347|205 147 367 DUP; SHL-13; J317≠Z;
3733/2: 066|065|203 331 146|201 267 344|202 267 342 324; CAB; REV; JS350; J318; J321;
3735/1: 065 REV;
(terminater, add 2, add 1);
3735/2: 304 000 040|200 027 340 524; SET32; J330≠;
3736/2: 052|161 003 ERASE; SHA+1;
3736/5: 065 332; REV;
3737/0: 205 323 045 JS25;
3737/3: 200 360 001 331; EXIT3; (terminater, add 1, add 2);
3740/0: 304 000 027|204 027 354 330; SET23; J599≠;
3741/0: 052|161 003|033|027|205 267 336 ERASE; SHA+1; NOT; NEG; J332;
3742/2: 065|164 101|164 301|065|036|065|202 267 335 321; REV; SHL+32; SHL-32; REV; -; REV; J524;
318; (, v, terminater, add 1);
3744/1: 300 001 053|203 147 346|066|065|203 324 034|204 267 347 V291; J328≠Z; CAB; REV; JS393; J329;
3746/3: 051|065|051 328; REVD; REV; REVD; (p, v, add 1, term);
3747/0: 204 331 165|065 JS344; REV;
3747/4: 304 000 004|065 329; SET4; REV; (terminater, add 2, add 1);
3750/2: 304 000 040|204 027 352 580; SET32; J333≠;
3751/2: 052|304 000 002|056|205 267 336 ERASE; SET2; +; J332;
3752/4: 304 000 027|204 027 354 333; SET23; J599≠;
3753/4: 052|033|027|205 267 336 ERASE; NOT; NEG; J332;
3754/4: 066|065|200 360 001 599; CAB; REV; EXIT 3;
3755/3: 304 000 027|223 027 357 314; SET23; J323=;
3756/3: 300 001 016|202 267 333 V262; J324;
3757/3: 052|205 323 045|042|304 000 011|036|225 107 364 323; ERASE; JS25; DUP; SET9; -; J325>Z;
[Page number 66
3761/3: 203 323 035 JS6; (l, terminater, v, add 1);
3762/0: 042|164 347|205 147 367|042|201 324 077|304 040 000|056|202 267 333
DUP; SHL-13; J317≠Z; DUP; JS397; SET8192; +; J324;
3764/5: 065|200 331 146|204 263 137|203 267 372 325; REV; JS354; J101;J575;
576; (address, terminater, add 1);
3766/3: 161 003|033|027 SHA+1; NOT; NEG;
3767/1: 012|200 360 001 PERM; EXIT3;
3767/5: 052 317; ERASE;
3770/0: 012|052 337; PERM; ERASE;
3770/2: 052 294; ERASE;
3770/3: 304 000 073|205 027 336|200 360 000 SET59; J332≠; EXIT1;
3772/0: 202 360 001 322; EXIT2;
3772/3: 065|164 101|164 301|065|036|203 267 366 575; REV; SHL+32; SHL-32; REV; -; J576;
131; (instructions beginning with T);
3774/1: 205 323 141 JS13;
3774/4: 204 262 220 J508;
3775/1: 205 270 003 J246;
3775/4: 012|304 000 073|036|204 142 220 PERM; SET 59; -; J502≠Z;
3777/0: 042|220 150 006 DUP; J247=Z;
3777/4: 065|201 322 254 REV; JS53;
4000/2: 201 262 222 J500;
4000/5: 161 011|065|300 000 151|170 036|201 322 247 SHA 4; REV; V97; =Q1; JS21;
4002/4: 201 262 222 J500;
4003/1: 056|201 262 234 +; J51; (store TLOQq TREQq TRQq TWEQq TWQq);
4003/5: 304 006 215|036|201 142 257 246; SETB3215; -; J54≠Z;
4005/0: 304 000 013|204 262 232 SET 11; J50; (store TOB);
4006/0: 052 247; ERASE; (n);
4006/1: 042|164 343|201 142 222 DUP; SHL-15; J503≠Z;
4007/1: 300 001 051|056 V289; +; (SETn);
[Page number 67
4007/5: 200 323 155|200 323 165 JS62; JS571; (store SET n);
4010/5: 304 000 001|201 324 077 SET1; JS397; (put L1 in library list);
4011/5: 304 040 001|205 324 041|200 270 021 SET8193; JS223; J579;
4013/2: 052|310 033 137|164 101|164 301 ERASE; Z0M1; SHL+32; SHL-32;
578; (Address);
4014/4: 041|166 107 ZERO; SHLD+35;
4015/1: 065|041|166 003 REV; ZERO; SHLD+1;
4015/5: 164 007|066|056|164 011 SHL+3; CAB; +; SHL+4;
4016/5: 304 010 015|056|166 271|052 SET2061; +; SHLD-36; ERASE;
4020/0: 200 323 155|205 262 235 JS62; J52;
4021/0: 041|304 000 020|066|203 324 034|204 270 014 579; ZERO; SET16; CAB; JS393; J578;
132; (instructions beginning with U);
4022/5: 304 000 073|201 262 221 SET59; J506; (report failure);
(end of U);
133; (instructions beginning with V);
4023/5: 205 323 045 JS25;
4024/2: 304 000 035|201 030 030|052 SET29; J356≠; ERASE;
4025/3: 205 323 045|304 000 073|204 022 220|052|304 000 001|204 262 232
JS25; SET59; J508≠; ERASE; SET1; J50; (store VR);
4030/1: 042|304 000 011|036|203 110 033 356; DUP; SET9; -; J962≤Z;
4031/3: 304 000 054|223 030 033|304 000 055|201 030 060 SET44; J962=; SET45; J357≠;
4033/3: 203 323 032|065 962; JS9; REV; (terminater, v);
4034/1: 304 000 053|203 030 042|052|042|200 323 032 SET43; J623≠; ERASE; DUP; JS8;
4036/0: 066|036|042|220 052 362|012 CAB; -; DUP; JP17<Z; PERM;
4037/1: 304 000 064|036|200 152 362|205 323 045|304 000 033 SET52; -; JP17≠Z; JS25; SETB33;
4041/2: 036|200 152 362|200 272 371 -; JP17≠Z; JP18;
4042/3: 304 000 064|201 030 156|052|205 323 045 623; SET52; J358≠; ERASE; JS25;
4044/1: 304 000 033|201 030 046|052|041|065|200 272 371 SETB33; J624≠; ERASE; ZERO; REV; JP18;
4046/1: 304 000 016|204 030 061|052 624; SETB16; J359≠; ERASE;
4047/2: 041 ZERO;
[Page number 68
4047/3: 203 323 045|304 000 034|225 030 052 320; JS26; SET28; J360=;
4051/0: 065|041|166 015|202 150 165 REV; ZERO; SHLD+6; J299≠Z;
4052/1: 056|203 270 047 +; J320;
4052/5: 052 360; ERASE;
4053/0: 065 REV;
4053/1: 200 331 146|204 263 137|201 262 222|300 001 173|036 JS354; J101; J501; V371; -;
4055/2: 202 332 034 364; JS696;
4055/5: 170 022 =M1;
4056/1: 300 037 100|201 142 222|301 037 100|200 262 160 Y0M1; J503≠Z; =Y0M1; J511;
4060/1: 304 000 073|221 022 222|204 262 220 357; SET59; J503=; J508;
4061/4: 304 000 034|205 030 122 359; SET 28; J279≠;
4062/4: 052|042|304 000 001|301 001 053 ERASE; (v); DUP; SET 1; =V291;
4064/0: 200 331 146|204 263 137|202 262 223|300 001 173|036 JS354; J101; J504; V371; -;
4066/1: 200 331 156|201 262 222|201 262 222 (add1, v); JS531; J500; J501;
(terminator, add1, add2, v);
4067/4: 304 000 053|203 030 252|052 SET 43; J526≠; ERASE;
4070/5: 041|205 330 103|202 262 223 ZERO; JS527; J504;
(add1,v);
4072/0: 200 331 156|201 262 222|201 262 222 JS531; J500; J501;
4073/3: 304 000 053|203 030 252|052 SET 43; J526≠; ERASE;
4074/4: 304 000 020|205 330 103|202 262 223 SET 16; JS527; J504;
(add1, v);
4076/1: 200 331 156|201 262 222|201 262 222 JS531; J500; J501;
4077/4: 304 000 073|202 030 165|052 SET 59; J299≠; ERASE;
4100/5: 304 000 040|205 330 103|201 262 222 SET 32; JS527; J501;
4102/2: 052|052|041|301 001 053|200 262 160 ERASE; ERASE; ZERO; =V291; J511;
527; (N1=0, 16, or32(c, i, m));
[Page number 69
(N2=add1, N3=add2, N4=v);
4103/5: 170 030|170 122 =C1; =M5; (add2, v);
4104/3: 300 137 100|042|164 020|164 301 Y0M5; DUP; SHLC1; SHL-32;
4105/5: 202 150 121|065|041|166 101|202 150 121|142 020|164 020 J530≠Z; REV; ZERO; SHLD+32; J530≠Z; NC1; SHLC1;
4110/1: 056|301 137 100 +; =Y0M5; (v);
4110/5: 300 000 050|223 150 120 V32; J529=Z;
4111/5: 171 030|027|164 371|042|304 000 005|065 C1; NEG; SHL-4; DUP; SET5; REV;
4113/3: 036|042|221 044 146|201 331 170 -; DUP; J634<Z; JS516; (STORE FUNNY);
4114/5: 304 000 002|065|036|170 030 SET 2; REV; -; =C1;
4116/0: 304 000 001|164 020|304 000 010|056 SET 1; SHLC1; SET 8; +;
4117/3: 065|042|012|201 330 350 REV; DUP; PERM; JS361; (store bits);
4120/3: 171 122|202 360 001 529; M5; EXIT 2; (add1, v);
4121/2: 200 360 000 530; EXIT 1;
4121/5: 052 293; ERASE;
4122/0: 052 ERASE;
4122/1: 052|201 262 222 300; ERASE; J501;
4122/5: 304 000 015|203 030 135 279; SET13; J355≠;
4123/5: 201 330 370|202 270 165 JS99; J299;
4124/5: 304 000 053|200 030 134|052 SET43; J353≠; ERASE;
4126/0: 200 323 032|304 000 057|065|036|170 030 JS8; SET47; REV; -; =C1;
4127/4: 065|042|225 150 133 REV; DUP; J297=Z;
4130/3: 171 030|042|026|304 000 060|036|223 110 152|222 050 154 C1; DUP; ABS; SET 48; -; J697>Z; J698<Z;
4132/5: 041|166 020|204 150 152 ZERO; SHLDC1; J352≠Z;
4133/5: 065 297; REV;
4134/0: 304 000 073|202 022 223|205 270 052 353; SET59; J504≠; J360;
4135/3: 304 000 021|205 030 140 355; SET17; J280≠;
4136/3: 052|201 330 375|201 262 222|204 262 220 ERASE; JS66; J500; J502;
4140/1: 020 ROUNDF;
4140/2: 205 270 133 J297;
[Page number 70
4140/5: 304 000 014|220 030 306 280; SET12; J281=;
4141/5: 203 330 376|201 262 222|204 262 220 JS67; J500; J502;
4143/2: 065|304 000 053|202 030 146 REV; SET43; J282≠;
4144/3: 052|200 323 032|304 000 057|056 ERASE; JS8; SET47; +; (s, terminater, integral places, z, v);
4145/5: 205 270 146 J283;
4146/2: 304 000 136 282; SET94;
4146/5: 066|065|036|170 030|202 331 173|050|065 283; CAB; REV; -; =C1; JS183; CONT; REV;
4150/3: 304 000 073|202 022 223|221 202 222|205 270 052 SET59; J504≠; J501V; J360;
4152/3: 052 697; ERASE;
4152/4: 052 352; ERASE;
4152/5: 304 000 073|221 022 222|204 262 220 285; SET59; J500=; J502;
4154/2: 041|065|166 020|065|204 150 152|205 270 133 698; ZERO; REV; SHLDC1; REV; J352≠Z; J297;
4156/1: 304 000 017|202 030 221 358; SET15; J284≠;
4157/1: 052 ERASE;
4157/2: 205 323 045|304 000 064|205 030 152 JS25; SET52; J285≠;
4160/5: 052 ERASE;
4161/0: 205 323 045|304 000 021|200 030 166 JS25; SET17; J286≠;
4162/3: 052|201 330 375|201 262 222|204 262 220 ERASE; JS66; J500; J502;
4164/1: 066|304 000 073|221 030 174 290; CAB; SET59; J287=;
4165/2: 052|202 262 223 299; ERASE; J504;
4166/0: 203 330 376|201 262 222|204 262 220 286; JS67; J500; J502;
4167/3: 065|304 000 053|205 030 171 REV; SET43; J288≠;
4170/4: 052|200 323 032|202 270 172 ERASE; JS8; J289;
4171/5: 304 000 136 288; SET94;
4172/2: 066|065|036|170 030|202 331 173|201 270 164 289; CAB; REV; -; =C1; JS183; J290;
4174/1: 221 210 122|052|066 287; J300V; ERASE; CAB;
4175/0: 200 331 146|204 263 137|201 270 122|300 001 173|036 JS354; J101; J300; V371; -;
4177/1: 202 332 034 JS696;
[Page number 71
4177/4: 170 022 =M1;
4200/0: 300 037 100|201 142 222|301 037 100 Y0M1; J500≠Z; =Y0M1;
4201/3: 300 037 101|201 142 222|301 037 101|200 262 160 Y1M1; J503≠Z; =Y1M1; J511;
4203/3: 304 000 014|223 030 323 295; SET12; J301=;
4204/3: 304 000 021|201 030 210|052 SET17; J302≠; ERASE;
4205/4: 201 330 375|201 262 222|202 262 223 JS66; J501; J504;
4207/1: 065|052|021|200 270 237 REV; ERASE; ROUNDHF; J559;
4210/1: 203 330 376|201 262 222|202 262 223 302; JS67; J501; J504;
4211/4: 065|304 000 053|204 030 214 REV; SET43; J304≠;
4212/5: 052|200 323 032|304 000 107|056|201 270 215 ERASE; JS8; SET71; +; J305;
4214/4: 304 000 136 304; SET94;
4215/1: 066|065|036|170 030|202 331 173 305; CAB; REV; -; =C1; JS183;
4216/3: 050|065 CONT; REV;
4216/5: 304 000 073|036|202 142 223|161 061|221 202 222|205 270 240 SET59; -; J504≠Z; SHA+24; J501V; J306;
4221/2: 304 000 040|202 030 260 284; SET32; J291≠;
4222/2: 052|041|065 ERASE; ZERO; REV; (v, U/L marker);
4222/5: 205 323 045|304 000 064|205 030 252 JS25; SET52; J292≠;
4224/2: 052 309; ERASE;
4224/3: 205 323 045|304 000 015|203 030 203 327; JS25; SET13; J295≠;
4226/0: 201 330 370|202 270 165 JS99; J299;
4227/0: 304 000 053|204 030 257|052 SET43; J296≠; ERASE; (integer, v, U/L);
4230/1: 200 323 032|304 000 027|065|036|170 030 JS8; SET23; REV; -; =C1;
(terminator, integer,v, U/L);(shift in C1);
4231/5: 065|042|220 150 236 REV; DUP; J303=Z;
4232/4: 171 030|042|026|304 000 030|036 C1; DUP; ABS; SET24; -;
4234/0: 225 110 256|220 050 255 J594>Z; J595<Z;
4235/0: 041|166 020|202 150 254 ZERO; SHLDC1; J298≠Z;
4236/0: 041|166 061|202 150 254 303; ZERO; SHLD+24; J298≠Z;
[Page number 72
4237/0: 065|304 000 073|202 030 165 559; REV; SET59; J299≠;
4240/1: 052|221 202 222 ERASE; J501V;
4240/5: 012|200 331 146|204 263 137|201 270 122 306; PERM; JS354; J101; J300;
4242/3: 300 001 173|036 V371; -;
4243/1: 202 332 034 365; JS696;
4243/4: 170 022|300 037 100|042|066|225 150 247 =M1; Y0M1; DUP; CAB; J590=Z;
4245/2: 164 061|201 142 222|065|164 321 SHL+24; J500≠Z; REV; SHL-24;
4246/4: 056|301 037 100|200 262 160 591; +; =Y0M1; J511;
4247/5: 164 321|201 142 222|065|164 321|164 061|204 270 246 590; SHL-24; J500≠Z; REV; SHL-24; SHL+24; J591;
4252/0: 012|052|052 528; PERM; ERASE; ERASE;
4252/3: 065|052 526; REV; ERASE;
4252/5: 304 000 073|221 022 222|202 262 223 292; SET59; J501=; J504;
4254/2: 052|205 270 252 298; ERASE; J292;
4255/0: 041|065|166 020|065|202 150 254 595; ZERO; REV; SHLDC1; REV; J298≠Z;
4256/2: 200 270 236 J303;
4256/5: 052|052|205 270 252 594; ERASE; ERASE; J292;
4257/4: 065|200 270 236 296; REV; J303;
4260/2: 304 000 027|202 030 264 291; SET23; J307≠;
4261/2: 052 ERASE;
4261/3: 205 323 045|304 000 064|204 030 302 JS25; SET52; J308≠;
4263/0: 052|304 000 001|065|203 270 224 ERASE; SET1; REV; J327;
4264/2: 041|301 001 020 307; ZERO; =V264;
4265/0: 304 000 033|200 030 301|052 533; SET27; J310≠; ERASE;
4266/1: 205 323 041 JS3; (p, terminater, v);
4266/4: 042|164 347|204 150 152 DUP; SHL-13; J352≠Z;
4267/4: 066|065|203 331 146|201 270 277|203 270 275 316; CAB; REV; JS350; J311; J312;
4271/3: 041|012|202 323 200 315; ZERO; PERM; JS178; (O or terminater, Q, q, address, Y÷R);
[Page number 73
4272/2: 202 323 226|200 270 302|202 270 274|201 262 222 JS220; J313; J319; J500;
4274/2: 041|301 001 020|200 262 160 319; ZERO; =V264; J511;
4275/3: 065|164 101|164 301|065|036|203 270 271 312; REV; SHL+32; SHL-32; REV; -; J315;
4277/1: 066|065|203 324 034 311; CAB; REV; JS393;
4300/0: 304 000 004|203 270 271 SET4; J315;
4301/0: 300 001 016|204 270 267 310; V262; J316;
4302/0: 052|202 270 165 313; ERASE; J299;
308; (1st digit of l in N1, v in N2);
4302/4: 203 323 035 JS6; (l, terminater, v);
4303/1: 042|164 347|204 150 152|042|201 324 077|304 040 000|056|204 270 267
DUP; SHL-13; J352≠Z; DUP; JS397; SET8192; +; J316;
4306/0: 052|042|200 331 146|204 263 137|202 262 223|304 000 001 281; ERASE; DUP; (v,v); JS354; J101; J504; SET1;
4310/2: 301 001 053|300 001 173|036 =V291; V371; -;
4311/3: 205 327 267|201 262 222|204 262 220 JS867; J500; J502;
(terminater, add 1, add 2, v);
4313/0: 304 000 073|202 030 165 SET59; J299≠;
4314/0: 052|300 000 050|220 150 322 ERASE; V32; J514=Z;
4315/1: 170 022|300 037 100|201 142 222|301 037 100 =M1; Y0M1; J500≠Z; =Y0M1;
4317/0: 041|201 331 170 ZERO; JS516;
4317/4: 304 000 001|065|201 330 350|041|301 001 053|200 262 160 SET1; REV; JS361; ZERO; =V291; J511;
4322/0: 066|052 514; CAB; ERASE;
4322/2: 041|301 001 053|202 270 055 540; ZERO; =V291; J364;
4323/3: 052|042|200 331 146|204 263 137|202 270 165|300 001 173|036 301; ERASE; DUP; JS354; J101; J299; V371; -;
4326/0: 304 000 001|301 001 053 SET 1; =V291;
4327/0: 205 327 267|201 262 222|202 262 223 JS867; J501; J504;
(terminator, add 1, add 2, v, U/L);
4330/3: 304 000 073|202 030 165 SET 59; J299≠;
4331/3: 052 ERASE; (add 1, add 2, v, U/L);
[Page number 74
4331/4: 300 000 050|220 150 346 V32; J515=Z;
4332/4: 170 022|066|221 150 341 =M1; CAB; J345=Z;
4333/4: 300 037 100|042|164 061|201 142 222 Y0M1; DUP; SHL+24; J501≠Z;
4335/1: 056 +;
4335/2: 301 037 100 =Y0M1;
4335/5: 304 000 002|065|201 330 350 SET 2; REV; JS361;
4337/0: 304 000 001 SET1;
4337/3: 201 331 170|041|301 001 053|200 262 160 573; JS516; ZERO; =V291; J511;
4341/1: 300 037 100|042|164 321|201 142 222 345; Y0M1; DUP; SHL-24; J501≠Z;
4342/4: 065|164 061|056|301 037 100 REV; SHL+24; +; =Y0M1;
4343/5: 304 000 004|065|201 330 350 SET 4; REV; JS361;
4345/0: 304 000 002|203 270 337 SET2; J573;
4346/0: 065|164 061|066|052 515; REV; SHL+24; CAB; ERASE;
4346/5: 012|041|301 001 053|201 270 243 585; PERM; ZERO; =V291; J365;
4350/1: 300 054 253|164 040|301 054 253|161 005 361; YB0M2; SHLC2; =YB0M2; SHA2;
4351/5: 300 001 016 V262; (Current p number);
4352/2: 203 150 365 J362≠Z;
4352/5: 300 013 127 YA1;
4353/2: 042|164 041|164 301 570; DUP; SHL+16; SHL-32;
4354/1: 065|164 301|304 000 060|065|036 REV; SHL-32; SET 48; REV; -;
(bit no, word no, 4 v, bits);
4355/3: 066|056|304 000 060|044|012|056|170 022|027|170 030 CAB; +; SET48; ÷I; PERM; +; =M1; NEG; =C1;
4357/4: 164 131|041|065 SHL44; ZERO; REV;
4360/2: 166 020|300 034 253|011|301 034 253 SHLDC1; YB0M1; OR; =YB0M1;
4361/5: 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;
4365/3: 300 001 016|205 324 041|204 263 137|052|310 033 136|202 270 353
362; V262; JS223; J101; ERASE; Z1M1; J570;
[Page number 75
99; (Read octal integer);
4370/1: 052|041 ERASE; ZERO;
4370/3: 205 323 045|042|304 000 007|036|221 110 374 97; JS25; DUP; SET7; -; J98>Z;
4372/2: 065|041|166 007|204 150 374|056|203 270 370 REV; ZERO; SHLD+3; J96≠Z; +; J97;
4374/1: 202 360 001 98; EXIT2; (terminater, integer);
4374/4: 200 360 000 96; EXIT1; (failure - too many digits. 3 cells - no ISS);
66; (floating point entry);
4375/1: 205 323 045|144 020|205 270 376 JS25; I1=+1; J71;
67; (fixed point entry);
4376/3: 152 001 I0TOQ1;
4376/5: 154 001 71; C0TOQ1;
4377/1: 304 000 054|200 031 001 SET44; J68≠;
4400/1: 052|041|204 271 002 ERASE; ZERO; J69;
4401/0: 304 000 055|224 031 002|041|202 271 003 68; SET45; J69=; ZERO; J70;
4402/4: 205 323 045|065 69; JS25; REV;
4403/2: 170 022 70; =M1;
4403/4: 042|304 000 011|036|224 111 022 DUP; SET9; -; J72>Z;
4405/0: 041|041 ZERO; ZERO;
4405/2: 201 331 134|205 323 045|042|304 000 011|036|225 111 014 75; JS945; JS25; DUP; SET9; -; J76>Z;
4407/4: 243 031 010 J73C1Z;
4410/1: 143 020 90; DC1;
4410/3: 041|041|204 331 143|200 331 136|204 271 034 73; ZERO; ZERO; JS947; JS946; J948;
4412/2: 200 331 127|201 271 035|204 331 143|052|052 JS942; J74; JS947; ERASE; ERASE;
4414/1: 052|202 271 005 ERASE; J75;
4414/5: 304 000 013|200 031 025 76; SET11; J77≠;
4415/5: 052|261 031 022 ERASE; J78C1NZ;
4416/3: 143 020|205 323 045|042|304 000 011 80; DC1; JS25; DUP; SET9;
4420/0: 036|201 111 010 -; J90≤Z;
[Page number 76
4420/4: 304 000 073|201 031 022|200 360 000 82; SET59; J78≠; EXIT1;
4422/1: 202 360 001 78; EXIT2;
4422/4: 304 000 013|204 031 031|052|041|042|043|043|203 271 016 72; SET11; J79≠; ERASE; ZERO; DUP; DUPD; DUPD; J80;
4425/0: 170 136|052|052|052|171 136 77; =Q5; ERASE; ERASE; ERASE; Q5;
4426/1: 243 031 027|304 000 001|172 030 83; J87C1Z; SET1; =+C1;
4427/3: 304 000 012|205 031 045|052 87; SET10; J81≠; ERASE;
4430/4: 200 323 032 JS8;
4431/1: 200 271 046 J89;
4431/4: 304 000 012|204 031 020|052 79; SET10; J82≠;ERASE;
4432/5: 304 000 001|041|041|200 323 032|200 271 046 SET1; ZERO; ZERO; JS8; J89;
4434/4: 052|052|052 948; ERASE; ERASE; ERASE;
4435/1: 052|052|052|304 000 001 74; ERASE; ERASE; ERASE; SET1;
4436/1: 205 323 045|042|304 000 011|036|223 111 041 84; JS25; DUP; SET9; -; J88>Z;
4440/0: 052|261 031 036|033|027|201 271 036 ERASE; J84C1NZ; NOT; NEG; J84;
4441/3: 304 000 013|200 031 044|052|261 031 022|143 020|201 271 036 88; SET11; J85≠; ERASE; J78C1NZ; DC1; J84;
4444/0: 065|240 031 045|033|027 85; REV; J86C1Z; NOT; NEG;
4445/0: 172 030|203 271 027 86; =+C1; J87;
4445/5: 041 81; ZERO;
4446/0: 172 030|065|051|066|171 030 89; =+C1; REV; REVD; CAB; C1;
4447/1: 225 111 062 J949>Z;
4447/4: 304 000 215|170 230 277; SET141; =C9;
4450/3: 042|201 151 052|012|304 377 321|172 230 DUP; J950≠Z; PERM; SET-47; =+C9;
4452/1: 043|041|025|045|042|172 230 950; DUPD; ZERO; FLOATD; FIX; DUP; =+C9;
4453/2: 027|170 130|052|052 NEG; =C5; ERASE; ERASE;
4454/1: 205 331 122|204 263 137|261 031 065 JS940; J101; J94C1NZ;
4455/4: 066|052 278; CAB; ERASE;
4456/0: 171 022|220 151 057|010 M1; J593=Z; NEGD;
4457/0: 066|171 230|171 024|222 151 061 593; CAB; C9; I1; J592=Z;
4460/2: 051|066|025|220 211 062 REVD; CAB; FLOATD; J91V;
[Page number 77
4461/2: 200 360 001 592; EXIT3;
4461/5: 052 951; ERASE;
4462/0: 052|052|204 271 020 91; ERASE; ERASE; J82;
949;
4462/5: 200 331 136|205 271 061|143 020|265 031 062|204 271 047 92; JS946; J951; DC1; J92C1NZ; J277;
4465/1: 142 020|171 230 94; NC1; C9;
4465/5: 304 377 375|056|065|051 95; SET-3; +; REV; REVD;
4466/5: 065|042|170 136 REV; DUP; =Q5;
4467/3: 300 001 120|034|170 236|052 V328; ×D; =Q9; ERASE;
4470/4: 171 136|300 001 074|034 Q5; V308; ×D;
4471/4: 171 236|041|057|205 331 117 Q9; ZERO; +D; JS583;
4472/5: 066|042|051|066 CAB; DUP; REVD; CAB;
4473/3: 300 001 120|034|057|202 331 120 V328; ×D; +D; JS866;
4474/5: 065|052|171 236 REV; ERASE; Q9;
4475/3: 171 136|300 001 073|034|057|205 331 117 Q5; V307; ×D; +D; JS583;
4477/1: 066|042|170 136 CAB; DUP; =Q5;
4477/5: 300 001 074|034|057|202 331 120 V308; ×D; +D; JS866;
4501/1: 066|042|051|066 CAB; DUP; REVD; CAB;
4501/5: 300 001 120|034|057|202 331 120 V328; ×D; +D; JS866;
4503/1: 065|052|171 236 REV; ERASE; Q9;
4503/5: 171 136|300 001 073|034|057|205 331 117 Q5; V307; ×D; +D; JS583;
4505/3: 066|042|170 136 CAB; DUP; =Q5;
4506/1: 300 001 074|034|057|202 331 120|171 236 V308; ×D; +D; JS866; Q9;
4507/5: 171 136|300 001 073|034|057 Q5; V307; ×D; +D;
4511/0: 042|161 003|052|157 011|220 211 115|304 000 001|170 130|205 331 122|204 263 137
DUP; SHA+1; ERASE; Q0TOQ9; J93V; SET1; =C5; JS940; J101;
4514/2: 041|033|170 236 ZERO; NOT; =Q9;
4515/0: 143 020|051|065|051|066 93; DC1; REVD; REV; REVD; CAB;
4516/0: 171 236|056|265 031 065|170 230|204 271 055 Q9; +; J95C1NZ; =C9; J278;
4517/5: 041|170 236 583; ZERO; =Q9;
[Page number 78
4520/2: 202 211 122|304 000 001|172 236|164 003|164 377 866; J518NV; SET1; =+Q9; SHL+1; SHL-1;
4522/2: 200 360 000 518; EXIT1;
940; (triple length arithmetic shift n places);
(n≥0 in C5);
4522/5: 065|042|066|162 120|065 REV; DUP; CAB; SHADC5; REV;
4523/5: 052|223 211 126|012|162 120|164 003|164 377 ERASE; J941V; PERM; SHADC5; SHL+1; SHL-1;
4525/4: 066|001|202 360 001 CAB; VR; EXIT2;
4526/3: 200 360 000 941; EXIT1;
942; (add two triple length numbers);
4527/0: 170 136|066|170 236|057|164 003|164 377 =Q5; CAB; =Q9; +D; SHL+1; SHL-1;
4530/4: 041|204 211 131|033|027 ZERO; J943NV; NOT; NEG;
4531/4: 171 136|056|171 236|056|224 211 133 943; Q5; +; Q9; +; J944V;
4533/1: 202 360 001 EXIT2;
4533/4: 200 360 000 944; EXIT1;
945; (duplicate triple length number);
4534/1: 170 136|043|171 136|012|171 136 =Q5; DUPD; Q5; PERM; Q5;
4535/3: 200 360 000 EXIT1;
946; (multiply triple length number by 10);
4536/0: 304 000 001|170 130|205 331 122|200 360 000 SET1; =C5; JS940; EXIT1;
4537/5: 201 331 134|304 000 002|170 130|205 331 122|204 271 142 JS945; SET2; =C5; JS940; J960;
4542/1: 200 271 127 J942;
4542/4: 052|052|052|200 360 000 960; ERASE; ERASE; ERASE; EXIT1;
947; (reverse two triple length numbers);
4543/4: 170 136|066|170 236|051|171 136 =Q5; CAB; =Q9; REVD; Q5;
[Page number 79
4545/0: 012|171 236|200 360 000 PERM; Q9; EXIT1;
4546/0: 300 001 016 354; V262; (Fetch current P number);
350; (p, v);
4546/3: 042|202 151 153 DUP; J339≠Z;
4547/1: 052|300 013 126 ERASE; YA0;
4547/5: 042|164 041|164 301 340; DUP; SHL+16; SHL-32;
4550/4: 066|036|042|203 111 155 CAB; -; DUP; J341≤Z;
4551/4: 065|164 101|164 301|065|036|200 360 001 REV; SHL+32; SHL-32; REV; -; EXIT3; (Address);
4553/2: 205 324 041|200 360 000 339; JS223; EXIT1; (p not present. N1=p, N2=v);
4554/2: 052|310 033 137|205 271 147 ERASE; Z0M1; J340;
4555/3: 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);
4556/0: 205 323 045|304 000 014|224 027 267 JS25; SET 12; J581=;
4557/3: 304 000 015|202 031 163 SET 13; J532≠;
4560/3: 201 330 370|202 271 162|066|065|200 360 001 JS99; J525; CAB; REV; EXIT 3;
4562/2: 052|052|052|202 360 001 525; ERASE; ERASE; ERASE; EXIT 2;
4563/2: 203 323 032|161 101|222 207 370|164 301|012|200 360 001 532; JS9; SHA32; J294V; SHL-32; PERM; EXIT 3;
4565/4: 164 041|056|164 041 344; SHL+16; +; SHL+16;
4566/3: 065|042|012|056|301 000 050|200 360 000 REV; DUP; PERM; +; =V32; EXIT1;
4570/1: 161 033|300 000 050|056 516; SHA13; V32; +;
4571/1: 313 173 137|041|301 000 050 =Z0M7Q; ZERO; =V32;
4572/2: 244 171 360|200 360 000 J565C7Z; EXIT1;
4573/2: 012|241 031 175|171 030|224 051 175|162 020 183; PERM; J567C1Z; C1; J566<Z; SHADC1;
4575/1: 200 360 000 567; EXIT1;
4575/4: 142 020|143 020|142 020|162 020 566; NC1; DC1; NC1; SHADC1;
4577/0: 304 000 001|041|057|162 377|200 360 000 SET1; ZERO; +D; SHAD-1; EXIT1;
[Page number 80
4600/4: 041|042|301 001 020 134; ZERO; DUP; =V264; (set fetch);
4601/3: 204 323 300|201 263 276|200 262 160|201 262 222 JS216; (W entry); J179; J511; J500;
135; (instructions beginning with X);
4603/3: 304 000 073|201 262 221 SET59; J506; (report failure);
(end of X);
136; (Y); (main tree);
4604/3: 041|042|301 001 020|201 323 225 ZERO; DUP; =V264; JS234; (Y entry);
4605/5: 201 263 276|200 262 160|201 262 222 J179; J511; J500;
137; (main tree);
4607/2: 041|301 001 020|041|203 323 312 (2); ZERO; =V264; ZERO; JS188;
4610/4: 201 263 276|200 262 160|201 262 222 J179; J511; J500;
142; (instructions beginning with +);
4612/1: 052|304 377 364 ERASE; SET-12;
4612/5: 170 130|300 000 157|205 322 243 258; =C5; V103; JS22;
4614/1: 201 262 222 J503;
4614/4: 204 271 215 J259;
4615/1: 202 262 223 J504;
4615/4: 164 120|264 122 232 259; SHLC5; J50C5NZ; (store + +D +F +DF);
4616/3: 164 111|164 271|204 262 232 SHL36; SHL-36; J50; (store - -D -F -DF);
(end of +);
4617/4: 052|041|205 271 212 143; ERASE; ZERO; J258;
(end of -);
140; (instructions beginning with =);
4620/3: 052|205 323 045 ERASE; JS25;
4621/1: 304 000 030|200 031 232 SET24; J170≠; (M);
4622/1: 052|200 323 032 ERASE; JS8;
4622/5: 065|304 000 073|204 031 226 REV; SET59; J171≠;
4624/0: 052|201 322 254 ERASE; JS53;
[Page number 81
4624/4: 201 262 222 J503;
4625/1: 164 011|304 170 002|056|201 262 234 SHL4; SETB74002; +; J51; (store =Mq);
4626/4: 304 000 030|036|204 142 220 171; SET24; -; J508≠Z;
4627/5: 201 322 254 JS53;
4630/2: 204 262 220 J508;
4630/5: 304 001 000|056|204 266 264 SET256; +; J212; (store =MqMq =MqMqQ =MqMqH =MqMqQH);
(=MqMqN =MqMqQN =MqMqHN =MqMqQHN);
4632/0: 304 000 026|200 031 241 170; SET22; J172≠; (K);
4633/0: 052|205 323 041 ERASE; JS3;
4633/4: 065|304 000 073|036|204 142 220 REV; SET59; -; J508≠Z;
4635/0: 042|304 000 004|036|201 042 222 DUP; SET4; -; J503≥Z;
4636/2: 170 030|304 175 000|304 000 200|142 020|164 020|056|201 262 234
=C1; SETB76400; SET128; NC1; SHLC1; +; J51; (store =Kk);
4641/0: 304 000 027|202 031 246 172; SET23; J173≠; (L);
4642/0: 052|205 323 141 ERASE; JS13;
4642/4: 204 262 220 J508;
4643/1: 201 271 244 J174;
4643/4: 202 262 223 J504;
4644/1: 300 000 150|036|201 142 257 174; V96; -; J54≠Z;
4645/2: 304 174 000|201 262 234 SETB76000; J51; (store =LINK);
4646/2: 304 000 054|222 031 254 173; SET44; J175=; (+);
4647/2: 304 000 035|222 031 254 SET29; J175=; (R);
4650/2: 304 000 034|222 031 254 SET28; J175=; (Q);
4651/2: 304 000 016|222 031 254 SET14; J175=; (C);
4652/2: 304 000 041|220 031 275 SET33; J548=; (V);
4653/2: 304 000 024|203 031 264 SET20; J176≠; (I);
4654/2: 200 323 142 175; JS12;
4654/5: 204 262 220 J508;
4655/2: 201 262 222|066|304 000 035|220 031 301|066 J503; CAB; SET29; J915=; CAB;
4657/1: 304 000 073|036|204 142 220 SET59; -; J502≠Z;
[Page number 82
4660/2: 065|201 322 254 REV; JS53;
4661/0: 201 262 222 J500;
4661/3: 164 011|065|300 000 173|170 036|201 322 247 SHL4; REV; V115; =Q1; JS21;
4663/2: 201 262 222 J500;
4663/5: 056|201 262 234 +; J51; (store =+Qq =+Cq =+Iq =+Mq =RCq =RIq);
(=RMq =Qq =Cq =Iq);
4664/3: 304 000 037|200 031 272 176; SET31; J177≠; (T);
4665/3: 052|205 323 045 ERASE; JS25;
4666/1: 205 323 045 JS25;
4666/4: 304 000 073|036|204 142 220 SET59; -; J508≠Z;
4667/5: 304 000 035|036|201 142 257 SET29; -; J54≠Z;
4671/0: 304 000 002|204 262 232 SET2; J50; (store =TR);
4672/0: 304 000 001|301 001 020|204 323 216|201 263 276|200 262 160|201 262 222
177; SET1; =V264; JS236; J179; J511; J500;
4675/0: 052 548; ERASE;
4675/1: 200 323 032 JS8; (v, terminator);
4675/4: 304 000 001|301 001 020 SET1; =V264;
4676/4: 065|304 000 027|200 030 265 REV; SET23; J533≠;
4677/5: 052|205 323 045|204 270 302 ERASE; JS25; J308;
4701/0: 052|304 000 001|301 001 020|205 267 155 915; ERASE; SET1; =V264; J916;
144; (instructions beginning with ×);
4702/4: 052|205 323 045 ERASE; JS25;
4703/2: 304 000 073|203 031 305 SET59; J260≠;
4704/2: 052|304 000 035|204 262 232 ERASE; SET29; J50; (store ×);
4705/3: 304 000 021|202 031 311 260; SET17; J261≠;
4706/3: 052|205 323 045 ERASE; JS25;
4707/1: 304 000 073|204 022 220 SET59; J508≠;
4710/1: 052|304 000 004|204 262 232 ERASE; SET4; J50; (store ×F);
4711/2: 304 000 017|200 031 321 261; SET15; J262≠;
4712/2: 052|205 323 045 ERASE; JS25;
[Page number 83
4713/0: 304 000 073|201 031 315 SET59; J263≠;
4714/0: 052|304 000 034|204 262 232 ERASE; SET28; J50; (store ×D);
4715/1: 304 000 021|204 022 220 263; SET17; J508≠;
4716/1: 052|205 323 045 ERASE; JS25;
4716/5: 304 000 073|204 022 220 SET59; J508≠;
4717/5: 052|304 000 005|204 262 232 ERASE; SET5; J50; (store ×DF);
4721/0: 304 000 054|204 022 220 262; SET44; J508≠;
4722/0: 052|200 323 032 ERASE; JS8;
4722/4: 065|304 000 073|204 031 326 REV; SET59; J264≠;
4723/5: 052|161 121|221 202 222 ERASE; SHA40; J503V;
4724/5: 164 003|164 261|304 163 001|056|201 262 234 SHL1; SHL-40; SETB71401; +; J51; (store ×+n);
4726/4: 065|204 142 220 264; REV; J508≠Z;
4727/2: 304 000 021|201 031 333 SET17; J265≠;
4730/2: 052|205 323 045 ERASE; JS25;
4731/0: 304 000 073|204 022 220 SET59; J508≠;
4732/0: 052|304 000 007|204 262 232 ERASE; SET7; J50; (store ×+F);
4733/1: 304 000 016|201 022 222 265; SET14; J503≠;
4734/1: 052|200 323 032 ERASE; JS8;
4734/5: 065|304 000 073|204 022 220 REV; SET59; J502≠;
4736/0: 052|201 322 254 ERASE; JS53;
4736/4: 201 262 222 J503;
4737/1: 164 011|304 163 000|056|201 262 234 SHL4; SETB71400; +; J51; (store ×+Cq);
(end of ×);
145; (instructions beginning with ÷);
4740/4: 052|300 000 164|205 322 243 ERASE; V108; JS22;
4741/5: 201 262 222 J503;
4742/2: 204 262 232 J50; (store / ÷F ÷D /I ÷R);
4742/5: 202 262 223 J504;
(end of /);
[Page number 84
141; (comment);
4743/2: 304 000 001|170 031 SET1; =RC1;
4744/1: 052|205 323 045 498; ERASE; JS25;
4744/5: 304 000 050|224 022 220 SET40; J508=;
4745/5: 304 000 067|202 031 350 SET55; J499≠;
4746/5: 142 020|143 020|142 020|201 271 344 NC1; DC1; NC1; J498;
4750/2: 304 000 070|201 031 344 499; SET56; J498≠;
4751/2: 143 020|261 031 344 DC1; J498C1NZ;
4752/1: 052|304 000 073 ERASE; SET59;
4752/5: 205 323 045|203 031 354 497; JS25; J651≠;
4753/5: 052|200 262 160 ERASE; J511;
4754/3: 204 262 220 651; J508;
(end of comment);
139; (asterisk);
4755/0: 171 070|304 000 006|036|220 151 360 C3; SET6; -; J758=Z;
4756/3: 304 000 017|201 322 225|200 271 355 SET15; JS55; J139;
4760/0: 052|200 262 160 758; ERASE; J511;
(end of asterisk);
565; (MOVE S÷R DESCRIPTION DOWN);
4760/4: 171 256|171 210|304 000 040|036 Q10; C8; SET32; -;
4762/0: 042|202 111 375|170 210 DUP; J550≤Z; =C8;
4763/0: 304 000 040 SET32;
4763/3: 042|170 170|027|042 561; DUP; =C7; NEG; DUP;
4764/2: 300 001 022|056|301 001 022|300 001 015|043|222 151 377|056|301 001 015
V266; +; =V266; V261; DUPD; J930=Z; +; =V261;
4767/2: 171 162|171 202|036|170 230 M7; M8; -; =C9;
4770/3: 151 212|172 202|151 211|144 220|144 240 M8TOQ10; =+M8; M8TOQ9; I9=+1; I10=+1;
[Page number 85
4772/1: 140 220|140 240 M+I9; M+I10;
4772/5: 017|312 253 137|313 233 137|177 220 ×547; Z0M10Q; =Z0M9Q; ×J547C9NZS;
4774/2: 300 001 170|203 272 000 931; V368; J873;
4775/2: 052|143 200|245 202 242 550; ERASE; DC8; J269C8Z;
4776/2: 304 000 001|203 271 363 SET1; J561;
4777/2: 052|052|172 202|202 271 374 930; ERASE; ERASE; =+M8; J931;
5000/3: 301 001 124|300 001 166|301 001 122|300 001 167|301 001 123 873; =V332; V366; =V330; V367; =V331;
5003/0: 304 001 122|170 224|304 001 124|170 222 SET338; =I9; SET340; =M9;
5004/4: 300 000 277|042|201 152 010 V183; DUP; J871≠Z;
5005/5: 052 ERASE;
5006/0: 304 000 001|304 000 005|200 220 000|042|301 000 277 SET1; SET5; OUT; DUP; =V183;
5010/1: 170 230|130 220 871; =C9; PWQ9;
5010/5: 170 256|200 360 000 =Q10; EXIT1;
874; (MOVE S÷R DESCRIPTION UP);
5011/4: 171 256|171 170|304 000 040|036|042|202 112 031|170 170 Q10; C7; SET32; -; DUP; J875≤Z; =C7;
5014/0: 304 000 040 SET32;
5014/3: 042|172 210|042 876; DUP; =+C8; DUP;
5015/1: 300 001 022|043|056 V266; DUPD; +;
5016/0: 043|301 001 022|170 222|170 242 DUPD; =V266; =M9; =M10;
5017/2: 171 202|036|170 230|042|172 202 M8; -; =C9; DUP; =+M8;
5020/4: 300 001 015|042|222 152 033|056|301 001 015 V261; DUP; J932=Z; +; =V261;
5022/3: 145 220|145 240 I9=-1; I10=-1;
5023/1: 017|017|017|017|017|312 233 137|313 253 137|177 220 ×877; Z0M9Q; =Z0M10Q; ×J877C9NZS;
5025/2: 144 220|140 220|170 230 I9=+1; M+I9; =C9;
5026/2: 017|017|017|017|041|313 233 137|017|017|177 220 ×961; ZERO; =Z0M9Q; ×J961C9NZS;
5030/2: 300 001 171|203 272 000 933; V369; J873;
5031/2: 052|143 160|245 162 242 875; ERASE; DC7; J269C7Z;
[Page number 86
5032/2: 304 000 001|203 272 014 SET1; J876;
5033/2: 052|052|052|202 272 030 932; ERASE; ERASE; ERASE; J933;
5034/2: 200 360 000 696; EXIT1;
5034/5: 052 851; ERASE;
5035/0: 120 022|220 352 035 952; BUSYQ1; J952TR;
5035/5: 201 272 146 J852;
5036/2: 052|203 262 361 937; ERASE; J868;
5037/0: 300 000 233|220 152 041|300 001 255|223 142 361 838; V147; J847=Z; V421; J868=Z;
5041/0: 300 000 000|164 125|164 247 847; E0; SHL42; SHL-45;
5042/1: 304 000 001|225 032 067 936; SET1; J938=;
5043/1: 304 000 003|205 032 034 SET3; J851≠;
5044/1: 300 000 277|042|223 152 046 V183; DUP; J928=Z;
5045/2: 304 000 006|200 220 000|041 SET6;OUT; ZERO;
5046/3: 052|304 000 005|200 220 000|042 928; ERASE; SET5; OUT; DUP;
5047/5: 301 012 240|170 030|041|301 000 277 =V2P2; =C1; ZERO; =V183;
5051/2: 300 001 174|170 256|154 032 V372; =Q10; C1TOQ10;
5052/3: 304 000 006|170 231|171 244|170 222 SET6; =RC9; I10; =M9;
5054/0: 200 332 231|041|103 220 JSP1; ZERO; =M0M9Q;
5055/0: 041|103 220|300 000 007|103 220 ZERO; =M0M9Q; E7; =M0M9Q;
5056/2: 017|017|017|017|041|103 220|017|017|017|177 220 ×971; ZERO; =M0M9Q; ×J971C9NZS;
5060/2: 300 000 245|300 000 244|166 061|103 220|103 220 V157; V156; SHLD+24; =M0M9Q; =M0M9Q;
5062/2: 041|103 220 ZERO; =M0M9Q;
5062/5: 300 001 222|103 220|300 001 223|103 220 V394; =M0M9Q; V395; =M0M9Q;
5064/3: 304 000 002|103 220|130 240 SET2; =M0M9Q; PWQ10;
5065/4: 200 332 232|200 332 232 JS1P1; JS1P1;
5066/4: 041|304 000 017|202 272 070 ZERO; SET15; J935;
5067/5: 304 000 020 938; SET16;
5070/2: 170 070|170 050 935; =C3; =C2;
[Page number 87
5071/0: 304 001 122|042|170 244|170 222 SET338; DUP; =I10; =M9;
5072/2: 304 001 142|170 264 SET354; =I11;
5073/1: 171 070|027|033|170 242|151 253 C3; NEG; NOT; =M10; M10TOQ11;
5074/3: 140 240|140 260|154 032|154 033 M+I10; M+I11; C1TOQ10; C1TOQ11;
5075/5: 200 332 317 JSP3;
5076/2: 171 276|154 071 Q11; C3TOQ9;
5077/0: 304 014 252|304 013 131|036|304 000 003|034 SETAYB-1; SETAYA3; -; SET3; ×D;
5100/5: 050|033|027|170 062 CONT; NOT; NEG; =M3;
5101/4: 304 000 001 SET1;
5102/1: 300 013 126|164 101|164 301 YA0; SHL+32; SHL-32;
5103/2: 205 332 170 JS820;
5103/5: 304 000 060|164 061|304 000 020|056 SETB60; SHL24; SETB20; +;
5105/2: 245 052 106|304 000 007|164 111|056 J967C2Z; SET7; SHL36; +;
5106/5: 205 332 174 967; JS821;
5107/2: 042|201 324 147|200 272 113 828; DUP; JS603; J823;
5110/3: 205 332 170 JS820;
5111/0: 065|042|012 REV; DUP; PERM;
5111/3: 204 332 221|205 332 174|201 272 113 JS824; JS821; J827;
5113/0: 052 823; ERASE;
5113/1: 033|027|042 827; NOT; NEG; DUP;
5113/4: 171 062|036|202 152 107|200 332 214|052 M3; -; J828≠Z; JS968; ERASE;
5115/2: 300 001 022|170 022|151 033 V266; =M1; M1TOQ11;
5116/3: 310 033 137|042|220 152 141 Z0M1; DUP; J829=Z;
5117/4: 042|164 101|164 301|205 332 170 835; DUP; SHL+32; SHL-32; JS820;
5121/0: 065|164 301 REV; SHL-32;
5121/3: 042|304 040 000|036|042|204 052 134 DUP; SET8192; -; DUP; J831≥Z;
5123/0: 052|204 332 221|304 000 060 ERASE; JS824; SETB60;
5124/1: 164 061|056|304 000 001 832; SHL+24; +; SET1;
5125/1: 012|200 332 210 PERM; JS964;
[Page number 88
5125/5: 042|151 261|203 324 016|203 272 136 833; DUP; M11TOQ1; JS391; J830;
5127/2: 052 ERASE;
5127/3: 033|027|042|164 361|225 152 125|200 332 214|052 834; NOT; NEG; DUP; SHL-8; J833=Z; JS968; ERASE;
5131/3: 310 273 136|164 101|164 301|042|220 152 141 Z1M11; SHL+32; SHL-32; DUP; J829=Z;
5133/2: 172 262|310 273 137|204 272 117 =+M11; Z0M11; J835;
5134/4: 065|052|204 332 221|304 000 054|201 272 124 831; REV; ERASE; JS824; SETB54; J832;
5136/3: 205 332 170|065|042|012 830; JS820; REV; DUP; PERM;
5137/3: 204 332 221|205 332 174|203 272 127 JS824; JS821; J834;
5141/0: 052|052 829; ERASE; ERASE;
5141/2: 304 000 360|170 242|243 052 143 837; SET240; =M10; J939C2Z;
5142/4: 130 254|200 272 145 PGAPQ10; J970;
5143/3: 304 000 002|101 220|151 232|130 240 939; SET2; =M0M9; M9TOQ10; PWQ10;
5145/0: 154 241 970; C10TOQ1;
5145/2: 120 242|222 352 145 977; BUSY Q10; J977TR;
5146/1: 300 000 000|164 133|164 247|223 142 361 852; E0; SHL45; SHL-45; J868=Z;
5147/5: 300 000 233|203 142 361 V147; J868≠Z;
5150/5: 200 332 253 JSP2;
5151/2: 300 017 101|041|166 061|164 061 Y1; ZERO; SHLD24; SHL24;
5152/4: 300 000 001|164 321|066|065|166 321|052 E1; SHL-24; CAB; REV; SHLD-24; ERASE;
5154/2: 301 017 101 =Y1;
5154/5: 304 000 010|170 031 SET8;=RC1;
5155/4: 017|017|300 037 100|103 020|017|177 020 ×980; Y0M1; =M0M1Q; ×J980C1NZS;
5157/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;
5162/2: 041|170 063 ZERO; =RM3;
5162/5: 300 012 167|301 000 006|300 012 170|301 000 007|300 000 006|301 000 006
R981; =E6; R982; =E7; E6; =E6;
5165/5: 304 000 002|200 260 006 SET2; JE6;
5166/5: 017|302 077 110|103 040 ×981; Y8M3Q; =M0M2Q;
5167/5: 017|177 040|200 220 000 ×982; J981C2NZS; OUT;
820; (convert address to octal);
[Page number 89
5170/5: 041|166 107|304 000 020|056 ZERO; SHLD+35; SET16; +;
5172/0: 300 001 110|066|164 273|067 V320; CAB; SHL-35; FRB;
5173/1: 300 001 071|056 V305; +;
5173/5: 164 031|056|200 360 000 SHL+12; +; EXIT1;
821; (punch or print);
(normal entry);
5174/5: 164 015|262 052 205|304 000 077 SHL+6; J841C2NZ; SET63;
5176/1: 164 125|103 220|166 015|103 220 965; SHL42; =M0M9Q; SHLD+6; =M0M9Q;
5177/3: 171 230|027|033|223 152 201 C9; NEG; NOT; J840=Z;
5200/4: 103 220|200 360 000 =M0M9Q; EXIT1;
5201/3: 304 000 002|056|103 220 840; SET2; +; =M0M9Q;
5202/3: 130 240|171 256 836; PWQ10; Q10;
5203/1: 066|170 256|065 966; CAB; =Q10; REV;
5203/5: 171 244|170 222|154 071 I10; =M9; C3TOQ9;
5204/5: 200 360 000 822; EXIT1;
5205/2: 304 000 002|164 111|056|103 220|103 220 841; SET2; SHL+36; +; =M0M9Q; =M0M9Q;
5207/0: 265 232 204|203 272 202 J822C9NZ; J836;
964; (new subroutine entry);
5210/0: 164 015|304 000 002|260 052 213|052|304 000 077 SHL+6; SET 2; J984C2NZ; ERASE; SET63;
5212/0: 200 332 232|201 272 176 JS1P1; J965;
984;
5213/0: 164 125|056|202 272 205 SHL+42; +; J841;
968; (punch last buffer);
5214/0: 171 230|171 070|036|225 152 204|171 256 C9; C3; -; J822=Z; Q10;
5215/4: 171 222|027|033|170 242 M9; NEG; NOT; =M10;
5216/4: 265 052 220|141 220|100 220|304 000 002|056|101 220 J969C2NZ; M-I9; M0M9; SET2; +; =M0M9;
[Page number 90
5220/5: 130 240|201 272 203 969; PWQ10; J966;
824; (convert to decimal);
5221/4: 300 001 072|065|067 V306; REV; FRB;
5222/3: 304 000 010|170 030|041 SET8; =C1; ZERO;
5223/3: 166 015|042|221 152 225|304 000 020|056 825; SHLD+6; DUP; J826=Z; SET16; +;
5225/1: 143 020|263 032 223 826; DC1; J825C1NZ;
5226/0: 065|052|200 360 000 REV; ERASE; EXIT1;
=== Start P1V1; at address 2713/5231
P1V1;
V-store at 05230 = 000 000 012 227 012 227 V1=Q0/AV0/AV0;
5231/0: 304 000 003|203 272 232 SET3; J2;
5232/0: 304 000 002 1; SET2;
5232/3: 301 012 227|171 256|171 250|300 012 230|170 256 2; =V0; Q10; C10; V1; =Q10;
5234/3: 170 250|130 240|170 256|200 360 000 =C10; PWQ10; =Q10; EXIT1;
=== Start P2V12; at address 2731/5253
P2V12; (V0=RUN TIME RECORD
V1=ELAPSED
V2=DEV NO OF LP);
V-store at 05241 = 075 004 020 265 004 063 V3=B1720202055202063;
V-store at 05246 = 003 050 156 076 133 077 V8=B62415617455477;
V-store at 05251 = 000 000 012 242 012 250 V11=Q0/AV4/AV10;
V-store at 05252 = 003 371 241 246 314 300 V12=B77464151546300;
5253/0: 300 000 277|042|221 152 256|042|170 030|120 021 V183P0; DUP; J7=Z; DUP; =C1; MANUALQ1;
5255/0: 304 000 006|200 220 000|041 SET6; OUT; ZERO;
5256/1: 052|300 012 240|042|224 152 260|304 000 006|200 220 000|041 7; ERASE; V2; DUP; J8=Z; SET6; OUT; ZERO;
5260/4: 052|171 330|304 000 006|200 220 000 8; ERASE; C13; SET6; OUT;
5262/1: 041|042|301 012 240|301 000 277 9; ZERO; DUP; =V2; =V183P0;
5263/3: 300 000 244|164 061|161 321|301 012 243 V156P0; SHL24; SHA-24; =V5;
5265/1: 041|301 012 242|300 000 245|301 012 244|300 000 233|225 152 270|300 012 252|200 272 272
ZERO; =V4; V157P0; =V6; V147P0; J5=Z; V12; J6;
5270/5: 304 373 353|164 031|167 365 5; SETB175753; SHL12; SHC-6;
[Page number 91
5272/0: 301 012 245|202 332 301|300 012 236|201 332 306|301 012 247|300 012 237|201 332 306|301 012 250
6; =V7; JS2; V0; JS3; =V9; V1; JS3; =V10;
5276/0: 300 012 251|304 000 010|200 220 000|200 360 000 V11; SET8; OUT; EXIT1;
1; (INITIAL ENTRY);
5300/0: 041|042|301 012 236|301 012 237 ZERO; DUP; =V0; =V1;
5301/2: 304 000 003|200 220 000|300 012 236|036|301 012 236 2; SET3; OUT; V0; -; =V0;
5303/3: 304 000 011|200 220 000|300 012 237|036|301 012 237 SET9; OUT; V1; -; =V1;
5305/4: 200 360 000 EXIT1;
5306/1: 161 321|304 000 074|044|202 332 312|164 015|065 3; SHA-24; SET60; ÷I; JS4; SHL6; REV;
5310/1: 202 332 312|164 061|011|300 012 241|011|200 360 000 JS4; SHL24; OR; V3; OR; EXIT1;
5312/2: 300 001 072|065|067|200 360 000 4; V306P0; REV; FRB; EXIT1;
=== Start P3V2; at address 2767/5317
P3V2; (Y SPEC);
V-store at 05314 = 344 014 360 226 077 377 V0=B7100636045437777;
V-store at 05316 = 000 000 012 314 012 315 V2=Q0/AV0/AV1;
5317/0: 171 256|171 250|300 012 316|170 256|170 250 Q10; C10; V2; =Q10; =C10;
5320/5: 130 240|170 256|200 332 232|200 272 232 PWQ10; =Q10; JS1P1; J1P1;
=== Start P11V2; at address 2774/5326
V-store at 05323 = 050 272 354 267 320 000 P11V2; V0=B1213535455750000;
V-store at 05324 = 155 363 335 170 000 000 V1=B3337173536000000;
V-store at 05325 = 000 000 000 000 000 000 V2=0; (LAST CHAR OFF PT);
5326/0: 204 332 345|200 360 000|304 000 046|204 032 330 JS7; EXIT1; (S.COLON); SET38; J2≠;
5330/0: 052|202 360 001 ERASE; EXIT2; (STR QTE);
5330/4: 042|304 000 011|036|221 112 333|304 000 020 2; DUP; SET9; -; J3>Z; SETB20;
5332/3: 011|200 360 001 OR; EXIT3; (P/CODE CHAR);
5333/1: 042|304 000 014|036|220 052 337|042 3; DUP; SET12; -; J4<Z; DUP;
5334/4: 304 000 045|036|220 112 337|304 000 025|056|200 360 001 SET37; -; J4>Z; SET21; +; EXIT3;
5337/0: 300 012 324|065|300 012 323|201 332 341|200 360 001 4; V1; REV; V0; JS5; EXIT3;
5341/1: 041|166 015|066|065|223 032 344 5; ZERO; SHLD6; CAB; REV; J6=;
5342/3: 065|066|164 015|012|042 REV; CAB; SHL6; PERM; DUP;
5343/3: 220 152 362|201 272 341 JP17=Z; J5;
[Page number 92
5344/3: 052|052|164 255|200 360 000 6; ERASE; ERASE; SHL-42; EXIT1;
5345/4: 200 332 355|200 360 000|304 000 071|203 032 354 7; JS10; EXIT1; SET57; J11≠;
5347/4: 052|200 332 355|201 262 222|304 000 071 13; ERASE; JS10; J501P0; SET57;
5351/2: 224 032 347|304 000 060|225 032 353 J13=; SETB60; J12=;
5352/5: 304 000 061|200 032 362 SETB61; JP17≠;
5353/5: 304 000 012|036 12; SETB12; -;
5354/3: 202 360 001 11; EXIT2;
5355/0: 205 323 045|304 000 073|205 032 360|052|300 012 325 10; JS25P0; SET59; J8≠; ERASE;V2;
5357/1: 027|033|027|033|220 152 355 NEG; NOT; NEG; NOT; J10=Z;
5360/2: 200 360 000 EXIT1;
5360/5: 202 360 001 8; EXIT2;
=== Start P17V-1; at address 2802/5362
P17;
5362/0: 221 252 363|052|200 272 362 1; J2EN; ERASE; J1;
5363/1: 224 312 364|173 000|052|201 272 363 2; J3EJ; LINK; ERASE; J2;
5364/4: 204 332 345|201 262 222|052|204 272 364 3; JS7P11; J501P0; ERASE; J3;
=== Start P18V1; at address 2809/5371
P18V1;
V-store at 05367 = 000 000 000 000 000 010 V0=8;
V-store at 05370 = 000 000 000 000 000 000 V1=0;
5371/0: 042|041|304 000 010|301 012 367 DUP; ZERO; SET8; =V0;
5372/2: 200 332 326|202 273 012|200 273 023|205 332 374|202 272 372 1; JSP11; J12; JP19; JS10; J1;
5374/5: 065|164 015|011|300 012 367|027 10; REV; SHL6; OR; V0; NEG;
5376/1: 033|042|301 012 367|204 153 007|304 000 010 NOT; DUP; =V0; J11≠Z; SET8;
5400/0: 301 012 367|065|200 331 146|204 263 137|201 273 010 =V0; REV; JS354P0; J101P0; J14;
5402/1: 300 001 173|036|170 022|300 037 100|201 153 010 V371P0; -; =M1; Y0M1; J14≠Z;
5404/1: 012|033|027|065|042 PERM; NOT; NEG; REV; DUP;
5405/0: 221 053 010|027|033|065|066 J14<Z; NEG; NOT; REV; CAB;
5406/1: 301 037 100|042|041|042|301 012 370 =Y0M1; DUP; ZERO; DUP; =V1;
5407/4: 200 360 000 11; EXIT1;
5410/1: 300 012 370|220 152 362|041|301 012 370|201 262 222 14; V1; JP17=Z; ZERO; =V1; J501P0;
[Page number 93
5412/2: 304 000 001|301 012 370 12; SET1; =V1; (+ unclear );
5413/2: 300 012 367|304 000 010|036|221 153 016|041 13; V0; SET8; -; J15=Z; ZERO; (+ unclear );
5415/1: 205 332 374|202 273 013 JS10; J13;
5416/1: 222 242 316|052|201 273 016 15; J268P0EN; ERASE; J15; (+ unclear - previously thought to be 265 );
=== Start P19V2; at address 2835/5423
P19V2; (V0=U CHAR/L NUMBER);
V-store at 05421 = 071 346 337 145 207 017 V1=B1636333731303417;
V-store at 05422 = 010 000 304 037 327 077 V2=B0200030407753477;
5423/0: 200 333 042|161 117|220 212 362|164 263|065 2; JSP20; SHA+39; JP17V; SHL-39; REV;
5424/5: 304 000 047|222 033 040|304 000 020|200 033 031|052 SET39; J1=; SETB20; J5≠; ERASE;
5427/0: 204 332 345|201 262 222|304 000 030|200 032 362 JS7P11; J501P0; SETB30; JP17≠;
5431/0: 300 013 022|065|300 013 021|201 332 341|164 061 5; V2; REV; V1; JS5P11; SHL24;
5433/0: 011|201 273 034 OR; J6;
5433/4: 300 013 020 4; V0;
5434/1: 042|042|164 061|223 153 037|027 6; DUP; DUP; SHL24; J3=Z; NEG;
5435/3: 033|301 013 020|164 321|205 332 374|204 273 033 NOT; =V0; SHL-24; JS10P18; J4;
5437/3: 052|052|200 273 023 3; ERASE; ERASE; J2;
5440/2: 052|027|033|200 152 362|202 272 372 1; ERASE; NEG; NOT; JP17≠Z; J1P18;
=== Start P20V-1; at address 2850/5442
5442/0: 041 P20; ZERO;
5442/1: 204 332 345|201 262 222 3; JS7P11; J501P0;
5443/1: 042|304 000 011|036|222 113 046|065 2; DUP; SET9; -; J1>Z; REV;
5444/4: 042|161 005|056|161 003|056|201 273 042 DUP; SHA+2; +; SHA+1; +; J3;
5446/2: 065|042|203 153 047|033|027 1; REV; DUP; J4≠Z; NOT; NEG;
5447/3: 200 360 000 4; EXIT1;
=== Start P24V0; at address 2857/5451
P24V0; (V0=NO OF FUNNIES);
5451/0: 171 162|033|042|170 031|042|027|170 022|042 M7; NOT; DUP; =RC1; DUP; NEG; =M1; DUP;
5452/5: 301 013 050|170 171|304 033 136|170 162 =V0; =RC7; SETAZ1; =M7;
5454/3: 261 173 056|041|033|170 165|200 360 000 J7C7NZ; ZERO; NOT; =RI7; EXIT1;
5456/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;
5460/3: 221 044 146|065|041|166 033|164 007|011|011 J634P0<Z; REV; ZERO; SHLD13; SHL3; OR; OR;
[Page number 94
5462/2: 313 033 137|261 033 056 =Z0M1Q; J7C1NZ;
(NOW SHELL SORT);
5463/2: 145 100|171 170 I4=-1; C7;
5464/0: 164 377|042|164 373|224 153 065|164 377 1; SHL-1; DUP; SHL-3; J2=Z; SHL-1;
5465/4: 042|201 153 070|052|300 013 050|170 171|145 160|200 360 000 2; DUP; J6≠Z; ERASE; V0; =RC7; I7=-1; EXIT1;
5470/1: 304 000 001|011|042|043 6; SET1; OR; DUP; DUPD;
5471/1: 151 165|027|172 122|170 024 M7TOQ5; NEG; =+M5; =I1;
5472/2: 171 170|036|151 004 C7; -; M0TOQ4;
5473/1: 151 101|100 025 3; M4TOQ1; M5M1;
5473/5: 100 027|043|041|033|164 301|042 4; M7M1; DUPD; ZERO; NOT; SHL-32; DUP;
5475/1: 012|054|012|054|037|205 113 077 PERM; AND; PERM; AND; SIGN; J5≤Z;
5476/3: 103 025|171 022|205 113 073|041 =M5M1Q; M1; J4≤Z; ZERO; (+ there is a query on ≤);
5477/5: 052|101 025|140 100|171 102|201 033 073 5; ERASE; =M5M1; M+I4; M4; J3≠;
5501/3: 052|200 273 064 ERASE; J1;
=== Start P-1V-1; at address 2883/5503
Finished
FINISH;
Reached end of file