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