Time Sharing Director - Oxford University
This assembler listing has hot links for all references to P-routines.
You can click on the routine number in code such as JS2P10;
or V0P155; and jump to the routine.
When you have seen enough of it, you can use the back button to carry on where you left off.
The original source was in the form of a paper listing from a KDF9 printer with slightly dodgy hammer timing.
Here are the photos.
Hot links to images of individual pages will eventually be embedded in the text.
Loaded 90255 bytes for FAX43CD\FAX43CD.txt
Relocated 18
Finished
Reached end of file
=============== Second pass
===========================
6400 W0 = E3328
30400 Y0 = E12544
6400 YD0 = E3328
10400 YZ0 = E4352
0/0: 200 260 045 [ photo 100_1588.JPG -- checked by BP
ST ; TL ; [ Oxford University time sharing director 12/2/69
MTPR;
V28;
YD1023;
YZ8191;
4/0: 200 272 333|200 272 333 RESTART; JP200; JP200;
PROGRAM;
V-store at 00015 = 000 000 000 000 000 001 V5=1.048576723;
V-store at 00020 = 000 004 376 073 000 000 V8=Q4/-453/0; (increment .027 msec);
V-store at 00022 = 000 000 000 000 020 000 V10=1/35;
V-store at 00023 = 000 000 000 000 040 000 V11=2/35;
V-store at 00024 = 000 000 000 000 060 000 V12=3/35;
V-store at 00026 = 377 377 377 377 377 377 V14=-1;
V-store at 00027 = 010 171 241 246 314 300 V15=B0207464151546300;
V-store at 00037 = 040 202 010 040 202 010 V23=B1010101010101010;
V-store at 00040 = 010 117 377 374 164 000 V24=B0204777777072000;
V-store at 00041 = 010 101 077 374 164 100 V25=B0204047777072100;
V-store at 00042 = 010 101 004 374 164 200 V26=B0204040477072200;
V-store at 00043 = 010 101 004 020 164 300 V27=B0204040404072300;
(V28=director/program marker)
45/0: 300 000 044|220 140 115 V28; J35=Z;
46/0: 041|301 000 044|176 010|171 136|301 000 012 ZERO; =V28; K4; Q5; =V2;
47/5: 300 000 017|170 122|304 000 003|200 340 052 V7; =M5; SET3; J11NTR;
51/4: 167 375 SHC-2;
52/0: 205 200 052 11; J12NV;
52/3: 167 377 SHC-1;
52/5: 301 126 150|042|304 000 101|164 047 12; =V1P104M5; DUP; SETB101; SHL+19;
54/2: 065|167 003|164 053|200 140 056 REV; SHC+1; SHL+21; J2≠Z;
55/4: 011|041 OR; (no RFIs so insert D22,28); ZERO;
56/0: 033|054 2; NOT; AND; (remove D22,28)
56/2: 042|167 003|164 037|203 140 123 DUP; SHC+1; SHL+15; J1≠Z;
(jump if any RFI other then PR or LOV)
57/4: 300 000 015|017|017|017|017|017|042|301 000 016|300 126 154|056
V5; *; DUP; =V6; V5P104M5; +;
62/2: 042|301 126 154|171 122|065 DUP; =V5P104M5; M5; REV;
63/3: 300 120 021|164 013|170 122|114 005|037 V9M5; SHL+5; =M5; M5M0HN; SIGN;
65/1: 224 100 121 J4>Z; (jump if time limit exceeded)
65/4: 304 326 266 SET-10570; (basic SP 0.630 msec)
66/1: 300 000 020|170 136|170 122|300 006 147|176 004|011|164 377 32; V8;=Q5; =M5; V0P104; K5; OR; SHL-1;
70/4: 017|017|164 015|042|201 040 075 *5; SHL+6; DUP; J6≥Z; (jump if hold-up
72/0: 143 120|140 120|177 120 digit not present); DC5; M+I5; J5C5NZS;
73/0: 301 000 026 (no program can be entered); =V14; (D0=1)
73/3: 052|200 320 270|200 325 140 ERASE; JSP1;JS10P60; (test whether a
74/4: 204 260 203 subprogram can be resumed); J23;
75/1: 174 000 6; =LINK; (plant dummy LINK)
75/3: 304 000 004|171 130|036|171 122|012 SET4; C5; -; M5; PERM; (N1= new priority,
N2= old priority, N3= path correction)
77/0: 065|170 122|176 001|167 017|033|027|167 363 30; REV; =M5; K7; SHC+7; NOT; NEG; SHC-7;
100/5: 301 126 164 =V13P104M5; (preserve adjusted NS counters)
101/2: 042|301 000 017|170 122 DUP; =V7; =M5; (new prioity number)
102/2: 300 126 154|056|300 000 016|036|301 126 154 V5P104M5; +; V6; -; =V5P104M5; (run time)
104/1: 001|300 126 150|161 003|002 VR; V1P104M5; SHA+1; =TR;
105/2: 300 126 170|175 040|052 V17P104M5; =K2; ERASE; (CPDAR);
[ ---- fold
106/2: 300 120 021|300 126 164|300 000 012|170 136|042|175 020 V9M5; V13P104M5; V2; =Q5; DUP; =K3;
110/4: 017|017|017|017|017 DUMMY; DUMMY; DUMMY; DUMMY; DUMMY;
[ photo 100_1589.JPG
111/3: 017 DUMMY; (allow new set to settle down)
111/4: 301 000 044|173 000|052 =V28; LINK; ERASE; (remove dummy link)
112/4: 301 000 044 =V28; (store twice in case of reset)
113/1: 017|017|017|017|017|175 100|052|222 360 000 *=K1; ERASE; EXITD; (return to program)
115/0: 173 000|205 331 325|164 031|304 000 207|011|167 351|202 321 222|200 300 115
35; LINK; JS3P161; SHL12; SETB207; OR; SHC-12; JS10P6; J35NEJ;
120/1: 176 010|052|200 325 036|201 260 120 36; K4; ERASE; JSP59; J36;
121/4: 170 122|200 320 270|041|042|033|205 260 156 4; =M5; JSP1; ZERO; DUP; NOT; J9;
123/3: 042|164 063|065 1; DUP; SHL+25; REV;
124/1: 170 136|220 040 126|200 320 270 =Q5; J10<Z; (jump if NOUV); JSP1;
125/3: 203 260 150 J17;
126/0: 171 156|301 000 013|171 176|301 000 014|171 116|301 000 011 10; (NOUV dump); Q6; =V3; Q7; =V4; Q4; =V1; (dump Q);
130/3: 173 000|301 000 267|304 000 020|170 151|157 147 LINK; =V34P1; SET16; =RC6; Q6TOQ7;
132/3: 176 001|164 005|041|166 013|065 K7; SHL2; ZERO; SHLD5; REV; (nest count to N2)
133/5: 042|301 000 307 DUP; =V4P2; (SJNS count at top of V4P2);
134/3: 220 040 136 J34<Z; (jump on SJNS fail);
135/0: 300 000 267|303 140 245 V34P1; =V16P1M6Q; (LINK to V16P1);
136/0: 161 371|164 377|204 140 141 34; SHA-4; SHL-1; J51≠Z; (if nest count ≥ 24 treat as nest U flow count =0);
137/1: 017|017|017|017|017|224 240 141 *50; J51EN;
140/3: 303 160 225|177 160 =V0P1M7Q; J50C7NZS; (dump nest);
141/2: 052|052 ERASE; ERASE; (18 erases);
141/4: 171 162|301 000 265 51; M7; =V32P1; (store nest count); (must be 0-16);
142/3: 052|203 240 142 15; ERASE; J15NEN;
143/1: 300 000 307|161 253|033|027|224 140 146 V4P2; SHA-43; NOT; NEG; J52=Z; (SJNS underflow);
144/5: 017|224 300 146 *13; J52EJ;
145/3: 173 000|303 140 245|177 140 LINK; =V16P1M6Q; J13C6NZS;
146/4: 171 142|301 000 266 52; M6; =V33P1; (store JNS count);
147/3: 173 000|052|203 300 147 16; LINK; ERASE; J16NEJ; (clear JNS properly);
150/3: 171 136|300 000 017|170 122|042|164 301|164 077|300 000 015 17; Q5; V7; =M5; DUP; SHL-32; SHL+31; V5;
153/0: 161 003|300 126 154|056|042 *; SHA+1; V5P104M5; +; DUP;
154/1: 301 126 154|300 120 021|164 013|170 142 =V5P104M5; V9M5; SHL+5; =M6;
155/5: 114 006|037|161 377|027 M6M0HN; SIGN; SHA-1; NEG;
156/5: 301 000 025|041|033|301 000 026|200 323 220 9; =V13; ZERO; NOT; =V14; JSP30;
160/4: 304 000 007|170 151 SET7; =RC6;
161/3: 017|017|017|041|303 140 030|017|017|177 140 *19; ZERO; =V16M6Q; *J19C6NZS;
163/2: 202 325 103|052 JS2P60; ERASE;
164/0: 300 000 031|161 005|300 000 032|161 003|056 V17; SHA+2; V18; SHA+1; +;
165/5: 300 000 025|056|027|300 000 036|304 174 277 V13; +; NEG; V22; SETB76277;
167/4: 054|011|300 000 035|304 174 377|054 AND; OR; V21; SETB76377; AND;
171/1: 011|042|041|301 000 303|220 140 174 OR; DUP; ZERO; =V0P2; J20=Z;
172/4: 041|301 000 025|200 320 310|041 ZERO; =V13; JSP2; (program fails); ZERO;
174/0: 052|300 000 034|221 140 177|200 320 357 20; ERASE; V20; J29=Z; JSP3; (OUT);
175/4: 300 002 217|201 140 177|200 331 044 21; V4P23; J29≠Z; JSP155; (MT OUT 8);
177/1: 300 000 030|224 140 200|200 321 016 29; V16; J22=Z; JSP4; (Flex);
200/4: 300 000 033|224 140 203|200 321 047 22; V19; J23=Z; JSP5; (EDT);
202/1: 300 005 274|224 140 203|200 325 342 V0P69; J23=Z; JSP73;
203/4: 200 325 102|204 140 175 23; JSP60; J21≠Z;
204/4: 300 000 265|042|170 150|170 142|145 140 V32P1; DUP; =C6; =M6; I6=-1;
206/2: 304 305 357|202 260 211 SET-14865; (basic lp 0.886 msac); J25;
207/2: 017|017|017|017|302 140 224|065|304 001 056|036 *24; V-1P1M6Q; REV; SET302; (.018 msec); -;
211/2: 177 140 25; J24C6NZS;
211/4: 300 000 266|042|170 150|170 142|203 260 215 V33P1;DUP; =C6; =M6; J27;
213/3: 017|017|017|302 140 244|174 000|304 001 140|036 *26; V15P1M6Q; =LINK; SET352; (.021 msec); -;
215/3: 177 140 27; J26C6NZS;
215/5: 300 000 011|170 116|300 000 013|170 156|300 000 014|170 176 V1; =Q4; V3; =Q6; V4; =Q7;
220/2: 300 000 017|300 000 026|225 040 222 V7; V14; J28<Z;
221/5: 300 000 026|200 320 077 V14; JS30; (to plant dummy
LINK and enter specified priority)
222/5: 065|304 371 037 28; REV; SET-1761; (path difference 0.105 msec)
223/3: 056|201 260 066 +; J32; (to choose return priority)
(end of inner loop of long path)
[ photo 100_1590.JPG
=== Start P1V34; at address 184/270
P1V34; (dump Q4, Q6, Q7 and both nests); [ missing from photo
270/0: 171 156|301 000 013|171 176|301 000 014|171 116 Q6; =V3P0; Q7; =V4P0; Q4;
272/0: 301 000 011|041|170 151|223 240 274 =V1P0; ZERO; =RC6; J2EN;
273/3: 303 140 225|203 240 273 1; =V0M6Q; J1NEN;
274/3: 052|203 240 274 2; ERASE; J2NEN;
275/1: 171 142|301 000 265|155 006|173 000 M6; =V32; CM0TOQ6; LINK;
276/4: 223 300 300 J4EJ;
277/1: 173 000|303 140 245|201 300 277 3; LINK; =V16M6Q; J3NEJ;
300/3: 171 142|301 000 266|174 000|200 360 000 4; M6; =V33; =LINK; EXIT1;
=== Start P2V4; at address 200/310
P2V4; (program fails - entered from subprog
failure indicator in N1 react abolished);
(final fail OUT 1 to V2/3 else JE4);
V-store at 00304 = 060 303 046 206 233 063 V1=P ***FAILS;
V-store at 00305 = 034 051 002 232 036 046
V-store at 00306 = 206 233 052 276 047 236 V2/3=P [nc]D[c]FAXFAILJOB--;
V-store at 00307 = 000 000 000 000 000 000 V4=0; (V4 is fail SJNS flag);
310/0: 042 DUP;
310/1: 041|301 000 034|042|164 357|200 140 317 ZERO; =V20P0; DUP; SHL-9; J6≠Z;
311/5: 041|166 133|205 331 325 ZERO; SHLD45; JS3P161;
312/5: 164 111|164 351|065|300 000 037 SHL36; SHL-12; REV; V23P0;
314/1: 164 375|065|164 247|067|042 SHL-2; REV; SHL-45; FRB; DUP;
315/2: 164 015|036|036|304 262 355|164 005 SHL+6; -; -; SETB131355; SHL+2;
316/5: 054 (nest now contains LNT pattern and 00 77 pattern); AND;
317/0: 300 000 304|200 324 336|167 365|011 6; V1; JSP55; SHC-6; OR;
320/3: 202 321 217 JS31P6;
321/0: 300 000 303|202 140 324 V0; J10≠Z; (no JE4 allowed);
322/0: 300 126 300 V89P104M5;
322/3: 042|027|033|301 126 300 3; DUP; NEG; NOT; =V89P104M5; (count fails); (entry from TINT A+);
323/3: 164 075|200 140 340 SHL30; J1≠Z; (shift off JAC);
324/2: 205 320 326 10; JS11; (F/CPDAR/LINK to N1);
324/5: 300 000 305|300 000 306|201 320 347|203 262 050 V2; V3; JS13; J7P16; (OUT 1);
326/5: 164 007|171 122|011|164 041|300 126 170|011|164 041 11; SHL3;M5; OR; SHL16; V17P104M5; OR; SHL16;
331/0: 300 000 267|300 000 307|224 040 333|052|203 323 074|200 320 115
V34P1; V4; J15<Z; ERASE; JS5P29; JS35P0;
333/4: 011 15; OR; (N1 is LNT/CPDAR/LINK);
333/5: 041|301 000 307 ZERO; =V4;
334/3: 200 323 071|200 260 336|200 360 000 JS2P29; J12; EXIT1; (put in nest to 12 if nest already full);
336/0: 304 000 017|200 323 113|200 320 115|200 360 000 12; SET15; JS100P29; JS35P0; EXIT1; (pretend nest nearly full);
340/0: 205 320 326 1; (even restart); JS11;
340/3: 304 000 004|042|203 323 075|201 320 345 SET4; DUP; JS6P29; JS2; (insert 4 in SJNS);
342/1: 164 061|300 126 154|056|300 120 021 SHL+24; V5P104M5; +; V9P0M5;
343/4: 164 013|170 142|115 006|200 360 000 SHL+5; =M6; =M6M0HN; EXIT1;
345/1: 304 000 017|200 323 141|200 320 115|200 360 000 2; SET15; JS101P29; JS35P0; EXIT1; (insert in SJNS even if full);
347/1: 304 006 304|304 006 147|042|170 143|036|170 150 13; SETAP104; SETAV0P104; DUP; =RM6; -; =C6;
351/1: 300 120 021|042|164 061|164 261|220 144 037 V9P0M5; DUP; SHL24; SHL-40; J1P45=Z; (check enough room for copy);
353/0: 164 013|170 163 SHL5; =RM7; (address of E0);
353/4: 017|017|102 140|303 160 010|017|177 120 *14; M0M6Q; =E8M7Q; *J14C5NZS; (copy loop);
355/2: 200 360 000 EXIT1;
=== Start P3V0; at address 239/357
P3V0; (OUT subroutine);
V-store at 00356 = 377 340 377 200 000 000 V0=B 7776037740000000; (valid 0-10, 16-24);
357/0: 300 000 033|170 156 V19P0; =Q6; (used in OUT 9);
357/5: 041|301 000 034 ZERO; =V20P0; (clear OUT marker);
360/3: 300 000 245|304 137 377|036|042|202 040 363 V16P1; SETB57777; -; DUP; J1≥Z;
362/2: 304 240 000|167 003|036 SETB120000; SHC+1; -;
363/2: 301 000 245 1; =V16P1; (LINK has 3 syllables added);
363/5: 300 000 265|221 140 371|300 000 225|170 170|300 000 356|205 320 371|200 260 370
V32P1; J4=Z; V0P1; =C7; V0; JS10;J3;
367/1: 174 000|202 360 376 6; =LINK; EXITAR2;
370/0: 052|304 000 010|200 260 310 3; (illegal OUT); ERASE; SETB10; JP2;
371/1: 041|201 260 367 4; ZERO; J6;
371/5: 200 324 040 10; JS20P45;
[ ======================================== end of Bill P's checkl
372/2: 041|166 160|003|065|200 044 037 ZERO; SHLDC7; BITS; REV; J1P45≥Z;
11;
373/4: 167 377|047|304 140 000|054|056|202 360 001 SHC-1; STR; SETB60000; AND; +; EXIT2;
[ ------- missed a bit from the photo
375/3: 017|017|017|200 261 367|200 262 042|200 262 067|200 262 115|200 262 116
*2; JP15; JP16; JP17; JP18; JP19;
400/3: 200 262 125|200 262 163|200 262 163|200 262 220|200 263 001|200 265 153
JP20; JP21; JP21; JP23; JP24; JP61;
403/3: 200 265 205|205 263 002|200 272 106|200 272 040|200 272 012 JP63; J64P24; JP196; JP194; JP192; (16-20);
406/0: 200 272 010|200 272 025 JP191; JP193; (21,22);
407/0: 200 271 335|205 271 340 JP187; J4P187; (OUT23,24 for POL input);
[ photo 100_1591.JPG
=== Start P4V5; at address 270/416
P4V5; (instant TINT);
V-store at 00410 = 010 170 147 206 233 277 V0=B0207414741515677;
V-store at 00411 = 010 175 051 273 117 334 V1=B0207645156647734;
(V2 and V3 contain answer to TINT query);
V-store at 00414 = 317 325 376 100 000 000 V4=B637527762/26; (allow ABEFGHIJLMNPQRSTUVZ);
(D0 - TINT A, etc - currently permitted AB EFGHIJ LM PQRSTUV Z);
(V5=TINT params);
416/0: 300 001 247|201 144 037 V1P11; J4P45≠Z;
417/0: 041|301 000 030|041|304 001 011 ZERO; =V16P0; ZERO; SETAV1;
420/2: 300 001 246|170 116|164 041|304 001 013|011|041|033|050|301 001 015
2; V0P11; =Q4; SHL16; SETAV3; OR; ZERO; NOT; CONT; =V5;
423/1: 200 324 040|201 321 244|304 001 012 JS20P45; JS51P10; SETAV2;
424/4: 170 156|200 323 223|204 261 032 =Q6; JSP31; J3;
426/0: 304 377 337|172 170 SET-33; =+C7;
426/5: 300 001 014|205 320 371|204 261 032|205 321 033 V4; JS10P3; J3; JS1;
430/5: 204 261 032 (TINT subroutine fails); J3;
(EXIT 2 from TINT subroutine);
431/2: 300 001 246|170 116|200 360 000 V0P11; =Q4; EXIT1;
432/4: 041|304 001 010|202 261 020 3; ZERO; SETAV0; J2;
433/5: 174 000|202 361 035 1; =LINK; EXITAR6;
434/4: 017|017|200 263 261|200 263 274 *6; JP33; JP34;
436/0: 200 263 304|202 360 001|200 263 327|200 263 351|200 263 357 JP37; EXIT2; JP39; JP40; JP41;
440/3: 200 263 370|200 264 004 JP42; JP44;
441/3: 200 264 063 JP46;
442/0: 200 264 166|200 264 177 JP48; JP49;
443/0: 200 264 205|200 264 207|200 264 216|200 264 272|200 264 327 JP50; JP51; JP52; JP53; JP54;
445/3: 200 265 276|200 265 307 JP69; JP72;
=== Start P5V-1; at address 295/447
P5; (EDT subroutine);
447/0: 041|301 000 033 ZERO; =V19P0; (clear EDT indicator)
447/4: 200 325 375 JSP100; (deal with magnetic tapes)
450/1: 200 326 306 JSP105; (consolidate store store, etc.)
450/4: 200 325 036 JSP59; (deal with flex queue)
451/1: 200 332 216 JSP198; (deal with disc Q);
451/4: 200 331 044 JSP155; (deal with OUT 8 queue)
452/1: 200 327 254 JSP120; (initiate A-program input if opportune)
452/4: 200 321 317 JSP11; (deal with subprograms)
453/1: 300 012 066|301 006 020|041|301 012 066 V0P195; =V0P101; ZERO; =V0P195; (new disc -> new tapes);
454/5: 300 002 217|202 141 056|200 331 044 V4P23; J10≠Z; JSP155;
456/2: 176 004|151 005 10; K5; M0TOQ5;
457/0: 041|166 011|170 130|042|164 003|201 041 070 2; ZERO; SHLD+4; =C5; DUP; SHL+1; J3≥Z;
460/5: 042|002|200 341 063 DUP; =TR; J9NTR;
461/4: 120 122|221 341 070|203 261 064 BUSYQ5; J3TR; J1;
463/0: 300 120 021|200 327 123|201 261 070 9; V9P0M5; JS87P105; J3;
1; (clear PHU);
464/3: 300 126 164|171 122|164 031|304 300 000|011 V13P104M5; M5; SHL+12; SETB140000; OR;
466/2: 175 100|052|124 002|304 300 000|175 100|052 =K1; ERASE; CLOQ0; SETB140000; =K1; ERASE;
470/1: 164 005|171 122|304 000 003|220 021 073 3; SHL+2; M5; SET3; J4=;
471/5: 033|027|170 122|200 261 057 NOT; NEG; =M5; J2;
473/0: 170 150|052|300 000 017 4; =C6; ERASE; V7P0;
474/0: 033|027|304 000 003|054|042 5; NOT; NEG; SET3; AND; DUP;
475/1: 170 122|300 126 164|167 377|221 041 100 =M5; V13P104M5; SHC-1; J6<Z;
476/5: 143 140|260 141 074 DC6; J5C6NZ;
477/4: 200 264 037 J1P45;
500/1: 042|161 003|042|161 003|056|170 150 6; DUP; SHA+1; DUP; SHA+1; +; =C6;
501/4: 300 006 147|164 013|164 140|205 041 103 V0P104; SHL+5; SHLC6; J8≥Z;
503/2: 052|041|033 ERASE; ZERO; NOT;
503/5: 301 000 026|200 360 000 8; =V14P0; EXIT1;
[ photo 100_1592.JPG
=== Start P6V64; at address 390/606
P6V64; (put N2-Nx in flex queue, x-1 given
in N1. If flex queue overflows enter P59
to make room);
V-store at 00506 = 377 377 377 377 377 377 V1=-1;
V-store at 00575 = 377 377 377 377 377 377 V56=-1; (for OUT 8);
606/0: 304 001 206|304 001 106|036|170 171 SETAP6; SETAV1P6; -; =RC7;
607/3: 302 161 106|033|203 141 207 1; V1M7Q; NOT; J1≠Z;
610/4: 241 161 214 3; J2C7Z;
(queue not full);
611/1: 065|301 161 105|041|033|303 161 106 REV; =V0M7; ZERO; NOT; =V1M7Q;
612/4: 027|033|042|204 141 210 NEG; NOT; DUP; J3≠Z;
613/4: 201 264 040 J22P45;
614/1: 200 325 036|200 325 102|052 2; (queue full); JSP59; JSP60; ERASE;
615/2: 200 261 206 JP6;
615/5: 300 120 040 41; V24P0M5;
616/2: 304 000 004|200 261 206 40; SET4; JP6;
617/2: 300 120 040 31; V24P0M5;
617/5: 304 000 003|200 261 206 30; SET3; JP6;
620/5: 300 120 040 21; V24P0M5;
621/2: 304 000 002|200 261 206 20; SET2; JP6;
622/2: 304 000 001|200 261 206 10; SET1; JP6;
=== Start P8V-1; at address 404/624
P8; (put query parameters in flex queue
and enter 2P10);
624/0: 065|164 041|011|041|033 REV; SHL+16; OR; ZERO; NOT;
625/0: 050|171 110|164 101|011|042 CONT; C4; SHL+32; OR; DUP;
626/1: 202 321 222|041|065|203 261 232 JS10P6; ZERO; REV; J2P10;
=== Start P10V-1; at address 408/630
P10; (normal entry test BUSYQ7, if busy or if
entry at 2, put SHUL, SHUP, and SHUL*
into SHU list. Exit to level ×+1 lower,
x fiven in N1 (or N3 for entry 2));
630/0: 041|002|241 161 231 ZERO; =TR; J1C7Z;
630/5: 120 162 BUSYQ7;
631/1: 124 164|200 344 037 1; TLOQ7; J1P45NTR;
632/0: 041|171 176 3; ZERO; Q7;
632/3: 301 100 012|173 000|011|101 100 2; =E10M4; LINK; OR; =M0M4;
633/5: 171 110|164 377|200 101 236 C4; SHL-1; J5≤Z;
635/0: 304 000 001|203 327 147 SET1; JS93P105;
636/0: 042|047|015|170 170 5; DUP; STR; NEV; =C7;
636/5: 041|243 161 241 ZERO; J7C7Z;
637/3: 017|017|017|164 041|173 000|011|143 160|177 160 *6; SHL+16; LINK; OR; DC7; J6C7NZS;
641/3: 301 100 036|201 044 037 7; =E30M4; J4P45≥Z;
642/3: 202 360 001 EXIT2;
643/0: 041|041|041|203 261 232 4; ZERO; ZERO; ZERO; J2;
644/0: 041 50; ZERO;
644/1: 041|041|041|033|050|203 261 232 51; ZERO; ZERO; ZERO; NOT; CONT; J2;
=== Start P11V40; at address 463/717
P11V40; (Deal with hold-ups in SHU list in
due order);
V-store at 00646 = 000 000 000 001 001 261 V0=Q0/1/AV11;
717/0: 300 001 246|170 116 V0; =Q4;
717/5: 100 100|042|201 141 324 3; M0M4; DUP; J1≠Z; (jump f this SHU
is in use);
720/5: 052 11; ERASE;
721/0: 140 100|171 110|042|304 000 011|037 7; M+I4; C4; DUP; SET9; SIGN;
722/3: 200 044 037 J1P45≥Z;
723/0: 033|027|170 110|205 261 317 NOT; NEG; =C4; J3;
724/1: 300 100 012|065|220 041 341 1; E10M4; REV; J4<Z;
725/2: 042|002|225 341 320 DUP; =TR; J11TR;
726/1: 170 176|242 161 327|120 162 =Q7; J6C7Z; BUSYQ7;
727/2: 124 164|223 341 347 6; TLOQ7; J13TR;
[ ----- missed bit
730/1: 204 321 331 8; JS2; (to enter subprogram)
730/4: 200 261 321|200 261 321 J7; J7; (after leaving subprogram)
731/4: 171 110|042|164 377|027|033 2; C4; DUP; SHL-1; NEG; NOT;
[ photo 100_1593.JPG
732/5: 170 122|167 377|200 101 335 =M5; SHC-1; J14≤Z;
734/0: 304 000 001|204 327 150 SET1; JS94P105;
735/0: 300 100 036 14; E30M4;
735/3: 042|223 141 337 5; DUP; J12=Z;
736/1: 042|174 000|164 341|203 261 335 DUP; =LINK; SHL-16; J5;
737/3: 100 100|174 000|101 100|200 360 000 12; M0M4; =LINK; =M0M4; EXIT1;
741/0: 042|164 255|304 000 040|015|225 141 344 4; DUP; SHL-42; SETB40; NEV; J10=Z;
742/4: 300 006 020|225 141 320 V0P101; J11=Z;
743/4: 300 100 024|065|201 261 330 E20M4; REV; J8;
744/5: 164 023|304 001 254|011|200 323 034|200 261 321 10; SHL+9;SETB654; OR; JS1P26; J7;
746/5: 052|201 261 330 ERASE; J8;
747/3: 240 161 321|171 170|300 002 162|015|200 141 321 13; J7C7Z; C7; V0P21; NEV; J7≠Z;
751/3: 200 324 040|200 261 321 JS20P45; J7;
=== Start P13V-1; at address 491/753
P13; (set program HU bit in V0P104);
753/0: 304 000 001|171 122|300 000 026|015|205 141 355 SET1; M5; V14P0; NEV; J1≠Z;
755/0: 041|033|301 000 026 ZERO; NOT; =V14P0;
755/5: 171 122|033|164 003|042|164 003 1; M5; NOT; SHL+1; DUP; SHL+1;
757/1: 056|170 130|167 120|300 006 147|065|042|220 041 362|011|201 261 362
+; =C5; SHCC5; V0P104; REV; DUP; J2<Z; OR; J3;
762/0: 054 2; AND;
762/1: 301 006 147|200 360 000 3; =V0P104; EXIT1;
=== Start P14V-1; at address 500/764
P14; (clear program HU bit from V0P104);
764/0: 304 377 376|205 261 355 SET-2; J1P13;
=== Start P15V1; at address 503/767
P15V1; (OUT 0);
V-store at 00765 = 034 011 156 223 060 020 V0=B0700455644630020;
V-store at 00766 = 034 174 241 270 371 154 V1=B0707624156174554;
767/0: 041 ZERO;
767/1: 304 000 005 1; SET5;
767/4: 041|033|050|042|301 126 204 2; ZERO; NOT; CONT; DUP; =V29P104M5;
770/5: 167 377|202 041 372 SHC-1; J3≥Z;
771/4: 041|301 126 174 ZERO; =V21P104M5;
772/2: 301 126 150|203 323 073|017|017|017 3; =V1P104M5;; JS4P29; DUMMY; DUMMY; DUMMY;
773/5: 200 323 077|017|017|017 JS7P29; DUMMY; DUMMY; DUMMY;
774/5: 304 000 001|301 126 170 SET1; =V17P104M5;;
775/5: 304 000 002|203 327 147|300 003 014|170 156 SET2; JS93P105; V0P26; =Q6;
777/4: 102 140|052|242 142 006 4; M0M6Q; ERASE; J5C6Z;
1000/4: 200 330 342|204 261 377 JSP125; J4;
1001/4: 120 140|300 143 014|164 043|205 042 004 CTQ6; V0P26M6; SHL+17; J6≥Z;
1003/2: 304 124 000|201 326 014|204 261 377 SETB52000; JS10P100; J4;
1004/5: 300 126 174|200 323 045|204 261 377 6; V21P104M5; JSP27; J4;
1006/2: 300 100 001|204 142 011 5; E1M4; J10≠Z; (jump of subprog already set up);
1007/2: 304 002 220|301 100 001|041|301 100 013|041|301 100 037 SETAP23; =E1M4; ZERO; =E11M4; ZERO; =E31M4;
1011/4: 200 321 243 10; JS4P10;
1012/1: 300 126 204|224 042 011 V29P104M5; J10<Z;
1013/1: 041|205 324 332 11; ZERO; JS3P54; (clear R/EL weights);
1013/5: 017|017|017 DUMMY; DUMMY; DUMMY;
1014/2: 041|301 126 270 ZERO; =V81P104M5;
1015/0: 041|301 126 274 ZERO; =V85P104M5; (clear hangover);
1015/4: 300 000 010|300 126 234|036|200 324 351 V0P0; V53P104M5; -; JSP57; (true lapse)
1017/2: 042|301 126 234 DUP; =V53P104M5; (for jab acc);
1020/0: 300 126 160|300 126 154|056|200 324 351 V9P104M5; V5P104M5; +; JSP57; (N.E.T.)
1021/4: 042|301 126 240 DUP; =V57P104M5; (for jab acc);
1022/2: 300 126 154|041|301 126 154|200 324 351 V5P104M5; ZERO; =V5P104M5; JSP57;
1024/0: 041|301 126 160 ZERO; =V9P104M5;
1024/4: 042|301 126 244 DUP; =V61P104M5; (for job acc);
1025/2: 300 001 366|300 120 040|304 000 033|011 V1; V24P0M5; SETB33; OR;
1027/0: 300 001 365|300 126 150|011 V0; V1P104M5;; OR;
1030/1: 300 126 220|300 126 214|166 061 V41P104M5;; V37P104M5; SHLD+24;
[ - missed bit
1031/3: 300 120 040 V24P0M5;
1032/0: 304 000 011|200 321 206 SET9; JSP6;
1033/0: 304 000 004|204 322 255|041|200 322 240 SET4; JS159P23; ZERO; JS157P23;
1034/4: 200 321 244 JS50P10; (suspend until JAC on tape);
1035/1: 041|301 126 240 ZERO; =V57P104M5;
1035/5: 300 126 204|167 371|202 050 306|300 120 021|042 V29P104M5; SHC-4; J10P121≥Z; V9P0M5; DUP;
1037/5: 167 061|164 025|300 126 224|200 270 210 SHC+24; SHL+10; V45P104M5; J44P120; (allow 1 restart to OUT 2);
=== Start P16V-1; at address 546/1042
P16; (OUT 1) [ sic
1042/0: 203 323 072 JS3P29;
[ photo 100_1594.JPG
1042/3: 200 260 115 J35P0;
1043/0: 300 000 265|164 377|202 142 045 V32P1; SHL-1; J2≠Z;
1044/2: 304 000 050|200 260 310 SETB50; JP2;
1045/2: 300 000 225|200 327 225 2; V0P1; JSP119;
1046/2: 304 000 060|200 260 310 3; SETB60; JP2;
1047/2: 052 ERASE;
1047/3: 300 000 225|300 000 226 V0P1; V1P1; (prog);
1050/3: 301 126 230|301 126 224 7; (entry from fails); =V49P104M5; =V45P104M5;
1051/3: 300 120 021|201 327 153 V9P0M5; JS95P105;
1052/3: 304 000 003|300 006 147|164 140|164 005|220 042 055 SET3; V0P104; SHLC6; SHL+2; J4<Z;
1054/4: 027|033 NEG; NOT;
1055/0: 301 126 204|304 000 002|203 327 147 4; =V29P104M5; SET2; JS93P105;
1056/3: 300 120 021|205 327 114 V9P0M5; JS86P105;
1057/3: 200 331 022 5; JSP139;
1060/0: 200 330 336|300 126 224|164 305|304 160 244|015|220 142 064 JSP124; V45P104M5; SHL-30; SETB70244; NEV; J6=Z;
1062/3: 100 140|203 042 057|171 122|101 140 M0M6; J5≥Z; M5; =M0M6;
1064/0: 300 120 021|164 061|164 265|033|027 6; V9P0M5; SHL24; SHL-38; NOT; NEG;
1065/3: 164 013|301 126 150|205 267 371 SHL+5; =V1P104M5;; J22P120;
=== Start P17V-1; at address 567/1067
P17; (OUT 2);
1067/0: 200 325 201|201 262 112 JSP62; J2;
1070/0: 300 120 021|164 013|170 143|102 140|301 126 210 V9P0M5; SHL+5; =RM6; M0M6Q; =V33P104M5;
1072/0: 052|105 006 ERASE; =M6M0H;
1072/3: 104 006|201 102 112 M6M0H; J2≤Z;
1073/2: 110 140|200 327 225 M0M6N; JSP119;
1074/1: 304 000 200|204 262 112 SETB200; J3;
1075/1: 052|300 120 021|167 061|041|166 025 ERASE; V9P0M5; SHC+24; ZERO; SHLD+10;
1076/4: 100 140|164 061|042|202 142 102 M0M6; SHL+24; DUP; J5≠Z;
1100/0: 052|042|033 ERASE; DUP; NOT;
1100/3: 027|164 013|100 140|011 NEG; SHL+5; M0M6; OR;
1101/3: 101 140|202 262 105 =M0M6; J6;
1102/2: 027|033|164 307 5; NEG; NOT; SHL-29;
1103/0: 001|032|052|222 202 105 VR; MAX; ERASE; J6V;
1104/0: 052|052|304 000 220|204 262 112 ERASE; ERASE; SETB220; J3;
1105/2: 301 126 224|167 035|201 327 153 6; =V45P104M5; SHC14; JS95P105;
1106/4: 304 000 002|304 000 011|300 006 147|164 140 SET2; SET9; V0P104; SHLC6;
1110/3: 164 005|224 041 367 SHL+2; J2P15<Z;
1111/2: 027|033|204 261 367 NEG; NOT; J2P15;
1112/1: 304 000 210 2; SETB210;
1112/4: 304 000 006|301 000 303|200 260 310 3; SET6; =V0P2; JP2;
=== Start P18V-1; at address 589/1115
P18; (OUT 3)
1115/0: 300 126 154|203 263 001 V5P104M5; J1P24;
=== Start P19V-1; at address 590/1116
P19; (OUT 4);
1116/0: 200 325 201|200 262 122 JSP62; J6;
1117/0: 200 330 321|203 262 120|205 142 121 JSP122; J5; J4≠Z;
1120/3: 041|033|301 126 224|202 265 165 5; ZERO; NOT; =V45P104M5;; J7P61; (to OUT 10 routine);
1121/5: 052 4; ERASE;
1122/0: 304 000 070|200 260 310 6; SETB70; JP2;
=== Start P20V1; at address 597/1125
P20V1; (OUT5)
V-store at 01123 = 000 010 167 206 235 063 V0=B416741516463;
V-store at 01124 = 003 116 160 224 004 020 V1=B64716045002020;
1125/0: 200 325 201|202 262 160 JSP62; J2;
1126/0: 164 365|201 142 160 SHL-6; J1≠Z;
1126/5: 167 371|047|170 176|167 011|042|221 142 160 SHC-4; STR; =Q7; SHC+4; DUP; J1=Z;
1130/4: 042|041|166 131|162 007|036|170 130 DUP; ZERO; SHLD+44; SHAD+3; -; =C5;
1132/1: 200 323 010|202 262 136 JSP25; J3;
[ --------- gap
1133/1: 300 126 174|167 120|142 120|042 (B program); V21P104M5; SHCC5; NC5; DUP;
1134/3: 171 176|050|167 120|301 126 174|221 042 160 Q7; CONT; SHCC5; =V21P104M5; J1<Z;
1136/2: 200 323 062|201 262 143 3; JSP28; J4;
1137/2: 052 (P unit found); ERASE;
1137/3: 200 331 017|300 143 014|164 031|205 321 220|171 150|203 323 072|200 260 115
5; JSP138; V0P26M6; SHL12; JS21P6; C6; JS3P29; J35P0;
1142/4: 203 265 175 J10P61;
1143/1: 200 323 010|201 262 160 4; (no P units); JSP25; J1;
1144/1: 042|164 023|304 001 254|011 (B program); DUP; SHL+9; SETB654; OR;
1145/2: 200 323 034|205 262 151 JS1P26; J7;
[ photo 100_1595.JPG
1146/2: 052|052 ERASE; ERASE;
1146/4: 300 143 014|304 000 024|164 045 6; (U unit found); V0P26M6; SETB24; SHL+18;
1150/0: 036|200 324 336|011|301 143 014|203 262 137 -; JSP55; OR; =V0P26M6; J5;
1151/5: 042|041|166 133|164 007 7; (no U units); DUP; ZERO; SHLD+45; SHL+3;
1152/5: 166 007|300 002 124|011|300 002 123|200 324 336|167 365|011 SHLD+3; V1; OR; V0; JSP55; SHC-6; OR;
1155/2: 202 321 217 JS31P6;
1155/5: 033|047|015|042|012|011 NOT; STR; NEV; DUP; PERM; OR;
1156/5: 041|012|203 321 232|204 262 146 ZERO; PERM; JS2P10; J6;
1160/1: 052 1; ERASE;
1160/2: 304 000 020|200 260 310 2; SETB20; JP2;
=== Start P21V0; at address 627/1163
P21V0; (OUT 6);
1163/0: 200 325 201|204 262 211 JSP62; J2;
1164/0: 164 371|203 142 211 SHL-4; J1≠Z;
1164/5: 042|223 142 211 DUP; J1=Z;
1165/3: 042|170 170|170 142 DUP; =C7; =M6;
1166/2: 300 126 170|304 000 001|164 160|054|224 142 211 V17P104M5; SET1; SHLC7; AND; J2=Z;
1170/2: 300 143 014|164 043|200 042 175 V0P26M6; SHL+17; J3≥Z;
1171/4: 304 064 000|201 326 014|154 166 (mag tape); SETB32000; JS10P100; C7TOQ6;
1173/0: 200 331 017 7; JSP138;
1173/3: 203 323 072|200 260 115 6; JS3P29; J35P0;
1174/3: 200 360 000 EXIT1;
1175/0: 153 007 3; (not mag tape); IM0TOQ7;
1175/2: 171 170|301 002 162 C7; =V0;
1176/1: 041|200 321 230|041|301 002 162 ZERO; JSP10; ZERO; =V0;
1177/3: 121 160|041|002|171 170|170 142|200 323 010|204 262 210 PARQ7; ZERO; =TR; C7; =M6; JSP25; J4;
1201/5: 300 143 014|164 321|304 001 207 (B program); V0P26M6; SHL-24; SETB607;
1203/1: 054|041|166 133|164 371|166 007 AND; ZERO; SHLD+45; SHL-4; SHLD+3;
1204/3: 036|170 150|300 126 174|167 140|142 140|047 -; =C6; V21P104M5; SHCC6; NC6; STR;
1206/2: 065|167 140|301 126 174 REV; SHCC6; =V21P104M5;;
1207/2: 154 166|200 323 045|200 262 173 5; C7TOQ6; JSP27; J7;
1210/4: 041|033|202 262 207 4; ZERO; NOT; J5;
1211/3: 052 1; ERASE;
1211/4: 304 000 030|200 260 310 2; SETB30; JP2;
=== Start P23V4; at address 656/1220
P23V4; (OUT 8 by D.Holdsworth);
V-store at 01213 = 000 000 000 000 000 000
V-store at 01214 = 000 000 000 000 002 213 V0=0; V1=AV0; (L queue);
V-store at 01215 = 000 000 000 000 000 000
V-store at 01216 = 000 000 000 000 002 215 V2=0; V3=AV2; (N queue);
V-store at 01217 = 377 377 377 377 377 377 V4=-1; (MT OUT 8 O flag);
1220/0: 203 262 266 J1;
1220/3: 300 126 204|200 042 230 99; V29P104M5; J98≥Z;
1221/3: 202 332 070 JS2P195; (deallocate disc);
1222/0: 300 126 240|042|223 142 225 82; V57P104M5; DUP; J86=Z;
1223/1: 047|052 STR; ERASE;
1223/3: 304 000 055|024|045|016|205 322 231|200 262 222 83; SET45; FLOAT; FIX; ROUND; JS80; J82; (close streams);
86; (no more streams open);
1225/3: 304 000 010|204 327 150 SETB10; JS94P105; (clear hold up);
1226/3: 300 126 204|047|052|301 126 204 V29P104M5; STR; ERASE; =V29P104M5; (clear term marker);
1227/5: 052 88; ERASE;
1230/0: 141 100|143 100|141 100|143 100|200 360 000 98; M-I4; DC4; M-I4; DC4; EXIT1; (return to main subprogram);
80; (close stream - coded stream in N1);
1231/5: 042|304 000 003|204 322 255|065 DUP; SET3; JS159; REV;
[ ------ fold
1233/1: 200 322 240|170 170|300 126 240|304 377 376|167 160|054|042|047|052
JS157; =C7; V57P104M5; SETB177776; SHCC7; AND; DUP; STR; ERASE;
1236/0: 041|037|027|054|301 126 240|200 261 244 ZERO; SIGN; NEG; AND; =V57P104M5; J50P10; (top bit of V57 preserver);
1237/4: 171 130 156; (add to Q) ; C5;
1240/0: 164 011|171 110|011|167 341|011 157; SHL4; C4; OR; SHC-16; OR;
1241/2: 300 126 240|047|164 003|170 142|052 V57P104M5; STR; SHL1; =M6; ERASE;
1242/5: 300 142 215|300 002 217|041|032|037|054|301 002 217 V2M6; V4; ZERO; MAX; SIGN; AND; =V4;
1245/0: 042|300 142 216|042|066|164 341 DUP; V3M6; DUP; CAB; SHL-16;
[ photo 100_1596.JPG
1246/2: 166 341|052|167 041|042 SHLD-16; ERASE; SHC16; DUP;
1247/2: 301 142 216|170 142|041|101 140|170 142|101 140|200 360 000 =V3M6; =M6; ZERO; =M0M6; =M6; =M0M6; EXIT1;
158; (check str no and put coded str in N1);
1251/5: 171 170|042|304 377 310|054|164 373|027|033|200 144 037 C7; DUP; SETB177710; AND; SHL-3; NEG; NOT; J1P45≠Z; (invalid);
1254/1: 167 371|041|162 007|011|202 360 001 SHC-4; ZERO; SHAD+3; OR; EXIT2;
1255/4: 304 006 250|171 122|056|164 041|011|200 360 000 159; SETAV65P104; M5; +; SHL16; OR; EXIT1;
1257/4: 052 15; ERASE;
1257/5: 304 001 370|200 260 310 16; SETB770; JP2; (invalid parameters in N1);
1260/5: 052|304 001 310|200 260 310 17; ERASE; SETB710; JP2; (attempt to close unopened stream);
1262/0: 304 001 340|200 260 310 18; SETB740; JP2; (invalid stream no);
1263/0: 100 160|300 011 030|015|164 341|222 142 320 19; M0M7; V2P155; NEV; SHL-16; J21=Z; (check for gap page ch);
1264/5: 141 100|143 100|304 001 320|200 260 310 M-I4; DC4; SETB720; JP2; (invalid last char);
1266/3: 041 1; ZERO; (OUT 8 flag);
1266/4: 301 126 244|200 325 201|205 262 257|170 176 20; =V61P104M5; JSP62; J16; =Q7;
1270/3: 171 162|171 164|200 022 302|171 170|015|204 142 257|052 M7; I7; J27≠; C7; NEV; J15≠Z; ERASE; (clase stream);
1272/5: 205 322 251|205 262 257|170 176 JS158; J16; =Q7;
1274/1: 202 331 023|171 162|042|033|170 170 JS1P139; M7; DUP; NOT; =C7; (wait for 2nd sub prog);
1275/4: 300 126 240|167 160|205 042 260|140 100|171 104|172 110 V57P104M5; SHCC7; J17≥Z; M+I4;I4; =+C4; (check str open);
1300/0: 203 323 072|200 320 115|205 322 231|203 262 220 JS3P29; JS35P0; JS80; J99;
1302/0: 052|200 330 371|205 262 257 27; ERASE; JSP133; J16; (check parameters);
1303/1: 154 007|202 331 023|200 326 132 29; C0TOQ7; JS1P139; JSP102; (wait for last transfer or P105);
1304/3: 171 164|170 143|100 140|170 170|240 162 327 I7; =RM6; M0M6; =C7; J13C7Z; (jump if stream 0);
1306/2: 300 126 244|200 142 262 V61P104M5; J18≠Z; (disallow non zero streams on OUT 16);
1307/2: 205 322 251|200 262 262|042|170 130|171 104|042|172 110|140 100
JS158; J18; DUP; =C5; I4; DUP; =+C4; M+I4; (switch to 2nd subprog);
1312/0: 164 120|300 126 240|043|011|301 126 240|054|203 142 315 SHLC5; V57P104M5; DUPD; OR; =V57P104M5; AND; J28≠Z; (stream not open);
1314/2: 041|204 322 255|204 322 237 ZERO; JS159; (open stream); JS156;
1315/3: 167 371|202 042 320 28; SHC-4; J21≥Z; (jump if punch str);
1316/2: 100 160|164 125|026|164 253|027|033|200 142 263 M0M7; SHL42; ABS; SHL-43; NEG; NOT; J19≠Z; (check last char);
1320/2: 041|033 21; ZERO; NOT;
1320/4: 154 007|171 176|065|050|204 322 237|203 323 072|200 320 115 22; C0TOQ7; Q7; REV; CONT;JS156; JS3P29; JS35P0;
1323/1: 130 162|041|041|171 176|041|033|050|203 321 232|203 262 220 PMHQ7; ZERO; ZERO; Q7; ZERO; NOT; CONT; JS2P10; J99; (lock out transfer area);
1325/4: 041|200 321 232|171 164|170 143 14; ZERO; JS3P10; I7; =RM6;
1327/0: 300 001 175|033|204 142 325 13; V56P6; NOT; J14≠Z; (wait if transfer will not go in Q);
1330/1: 171 162|171 164|036|304 000 005|032|052|170 150 M7; I7; -; SET5; MAX; ERASE; =C6; (truncate at 5 words);
1332/1: 240 142 340|304 377 326|170 130|112 140 3; J4C6Z; SET-42; =C5; M0M6QN;
1333/5: 164 120|304 000 077|054 5; SHLC5; SETB77; AND;
1334/5: 304 000 002|222 022 360|304 000 004|222 022 360 SET2; J6=; SET4; J6=; (check for CR and TAB);
1336/5: 304 000 075|204 022 362|052 SETB75; J7≠; (EM); ERASE;
1340/0: 300 126 224|220 042 366|145 140|171 142|171 164|036|170 150|154 145
4; V45P104M5; J8<Z; (if query); I6=-1; M6; I7; -; =C6; C6TOQ5;
1342/5: 241 142 350|102 140|304 000 010|170 170 2; J12C6Z; M0M6Q; SET8; =C7;
1344/3: 200 330 347|200 262 346|205 262 342 11; JSP127; J10; J2;
1346/0: 167 015|143 160|263 162 344|052|143 120|205 262 342 10; SHC6; DC7; J11C7NZ; ERASE; DC5; J2;
1350/1: 300 120 040|304 000 017|300 126 244|056|011 12; V24P0M5; SETB17; V61P104M5; +; OR;
1352/0: 153 166 IM7TOQ6;
1352/2: 171 130|033|027|200 321 206 C5; NOT; NEG; JSP6; (message to Q);
1353/3: 153 147 IM6TOQ7;
1353/5: 300 126 244|202 142 356 V61P104M5;; J24≠Z; (OUT 16);
1354/5: 203 323 072|200 320 115|200 360 000 JS3P29; JS35P0; EXIT1;
1356/2: 154 005|140 100|171 104|172 110|041|204 262 320 24; C0TOQ5; M+I4; I4; =+C4; ZERO; J22; (OUT 16 to tape 2nd subprog);
[ ----------- fold
1360/2: 100 140|304 000 077|142 120|164 120|142 120|011|101 140 6; M0M6; SETB77; NC5; SHLC5; NC5; OR; =M0M6; (replace by B77);
[ photo 100_1597.JPG
1362/4: 304 000 034|015|220 142 367|241 122 332 7; SETB34; NEV; J9=Z; J3C5Z;
1364/2: 304 000 006|172 130|100 140|205 262 333 SET6; =+C5; M0M6; J5;
1366/0: 304 001 330|200 260 310 8; SETB730; JP2; (invalid char ;);
1367/0: 300 126 224|200 042 366|260 122 366|240 142 366 9; V45P104M5; J8≥Z; J8C5NZ; J8C6Z;
1371/0: 171 164|170 142|300 120 040|304 000 017|011|101 140|203 323 072|200 320 115
I7; =M6; V24P0M5; SETB17; OR; =M0M6; JS3P29; JS35P0;
1374/1: 140 100|171 104|172 110|304 000 010|203 327 147 M+I4; I4; =+C4; SETB10; JS93P105; (hold up);
1376/1: 041|171 164|171 162|200 321 224|304 000 010|204 327 150|203 262 220
ZERO; I7; M7; JSP8; SETB10; JS94P105; J99;
=== Start P24V-1; at address 769/1401
P24; (OUT 9);
1401/0: 300 000 010 V0P0;
1401/3: 301 000 225|171 156|202 264 040 1; =V0P1; Q6; J23P45;
64; (OUT 17, originally P64);
1402/5: 300 126 154|042|300 126 160|056|203 323 001 V5P104M5; DUP; V9P104M5; +; JS1;
1404/4: 200 323 071|201 263 006|200 360 000 JS2P29; J65; EXIT1;
1406/1: 304 000 040|200 260 310 65; SETB40; JP2; (fail nest full when OUT17 obeyed);
=== Start P25V-1; at address 776/1410
P25; (decide whether prog. is A or B, given pr. in M5);
1410/0: 171 122|161 003|033|027|042|164 003 M5; SHA+1; NOT; NEG; DUP; SHL+1;
1411/3: 056|170 150|300 006 147|167 140|221 044 037|202 360 001 +; =C6; V0P104; SHCC6; J4P45<Z; EXIT2;
=== Start P26V15; at address 796/1434
P26V15; (look for unit of given type, status
and prog. letter);
V-store at 01414 = 000 020 377 377 000 020 V0=Q16/-1/16;
V-store at 01415 = 377 377 377 377 377 377
V-store at 01416 = 377 377 377 377 377 377
V-store at 01417 = 377 377 377 377 377 377
V-store at 01420 = 377 377 377 377 377 377
V-store at 01421 = 377 377 377 377 377 377 V1=-1; V2=-1; V3=-1; V4=-1; V5=-1;
V-store at 01422 = 377 377 377 377 377 377
V-store at 01423 = 377 377 377 377 377 377
V-store at 01424 = 377 377 377 377 377 377
V-store at 01425 = 377 377 377 377 377 377
V-store at 01426 = 377 377 377 377 377 377 V6=-1; V7=-1; V8=-1; V9=-1; V10=-1;
V-store at 01427 = 377 377 377 377 377 377
V-store at 01430 = 377 377 377 377 377 377
V-store at 01431 = 377 377 377 377 377 377
V-store at 01432 = 377 377 377 377 377 377
V-store at 01433 = 377 377 377 377 377 377 V11=-1; V12=-1; V13=-1; V14=-1; V15=-1;
1434/0: 300 003 014|170 156 1; V0; =Q6;
1434/5: 167 373|042|224 043 037|304 000 006|166 015 2; SHC-3; DUP; J3<Z; SET6; SHLD+6;
1436/4: 164 373|011|200 263 040 SHL-3; OR; J4;
1437/4: 164 015 3; SHL+6;
1440/0: 302 143 013|245 144 036 4; V-1M6Q; J3P45C6Z;
1441/0: 041|166 053|164 373|166 053|164 351 ZERO; SHLD+21; SHL-3; SHLD+21; SHL-12;
1442/3: 166 351|052|164 305|200 023 040 SHLD-12; ERASE; SHL-30; J4≠;
1443/5: 202 360 001 EXIT2;
=== Start P27V-1; at address 805/1445
P27; (given allocated unit number in C6, M6, change
status to U if N1=0, otherwise to P);
1445/0: 221 143 051 J1=Z;
1445/3: 300 143 014|167 321|164 015|304 000 060|011 3; V0P26M6; SHC-24; SHL+6; SETB60; OR;
1447/2: 167 045 SHC18;
1447/4: 042|164 031|205 321 220|201 263 056 6; DUP; SHL12; JS21P6; J9;
1451/1: 120 141|201 323 057 1; MANUALQ6; JS4;
1452/0: 304 000 065 5; SETB65;
1452/3: 300 143 014|164 365|167 335|164 015|011|167 045 8; V0P26M6; SHL-6; SHC-18; SHL6; OR; SHC18;
1454/3: 042|167 331|221 043 056 DUP; SHC-20; J9<Z; (if W);
1455/3: 042|202 321 222 7; DUP; JS10P6;
1456/1: 301 143 014|200 360 000 9; =V0P26M6; EXIT1;
4; (set A prog in try);
1457/1: 300 007 230|201 044 037 V0P120; J4P45≥Z; (not if prog in going on);
1460/1: 041|042|033|050|301 007 230|200 360 000 ZERO; DUP; NOT; CONT; =V0P120; EXIT1;
=== Start P28V-1; at address 818/1462
P28; (look for unit of given type pre-allocated
to given program. If found, change status to A);
1462/0: 042|164 023|304 001 200|011|300 126 164|164 245 DUP; SHL+9; SETB600; OR; V13P104M5; SHL-46;
1464/0: 011|200 323 034|200 360 000|300 143 014|304 000 017|164 045 OR; JS1P26; EXIT1; V0P26M6; SETB17; SHL+18;
1466/3: 036|301 143 014|200 264 036 -; (P becomes A); =V0P26M6; J31P45;
=== Start P29V-1; at address 824/1470
P29; (fetch, store, erase or clear nest, or
fetch, store or clear SJNS or given program);
1470/0: 304 000 001|203 263 077 1; SET1; J10;
[ photo 100_1598.JPG
1471/0: 301 000 005|304 000 002|203 263 077 2; =E5; SET2; J10;
1472/3: 304 000 003|203 263 077 3; SET3; J10;
1473/3: 304 000 004|203 263 077 4; SET4; J10;
1474/3: 304 000 005|203 263 077 5; SET5; J10;
1475/3: 301 000 005|304 000 006|203 263 077 6; =E5; SET6; J10;
1477/0: 304 000 007 7; SET7;
1477/3: 171 122|300 000 017|200 023 150 10; M5; V7P0; J11≠; (jump if outnest
1500/5: 052 needed); ERASE;
1501/0: 304 000 001|202 023 110|052|300 000 225|300 000 265 SET1; J12≠; ERASE; V0P1; V32P1;
1503/1: 042|225 144 036 DUP; J3P45=Z;
1503/5: 027|033|042|222 143 107|042 13; NEG; NOT; DUP; J15=Z; DUP;
1505/0: 170 151 =RC6;
1505/2: 017|017|017|017|300 140 226|303 140 225|177 140 *16; V1P1M6; =V0P1M6Q; J16C6NZS;
1507/2: 301 000 265|202 360 001 15; =V32P1; EXIT2;
1510/2: 304 000 002|205 023 120|052|300 000 265|042 12; SET2; J17≠; ERASE; V32P1; DUP;
1512/1: 164 371|200 144 037 SHL-4; J1P45≠Z;
1513/0: 042|042|033 100; DUP; DUP; NOT; (entry used by P2);
1513/3: 027|301 000 265|170 150|170 142|242 143 117 NEG; =V32P1; =C6; =M6; J19C6Z;
1515/2: 145 140 I6=-1;
1515/4: 017|017|300 140 224|303 140 225|177 140 *20; V-1P1M6; =V0P1M6Q; J20C6NZS;
1517/2: 300 000 005|301 000 225|202 360 001 19; E5; =V0P1; EXIT2;
1520/5: 304 000 003|204 023 123|052|300 000 265|042 17; SET3; J21≠; ERASE; V32P1; DUP;
1522/4: 220 144 037|205 263 103 J1P45=Z; J13;
1523/4: 304 000 004|200 023 126|052|041|301 000 265 21; SET4; J22≠; ERASE; ZERO; =V32P1;
1525/3: 202 360 001 EXIT2;
1526/0: 304 000 005|202 023 136|052|300 000 245|300 000 266 22; SET5; J23≠; ERASE; V16P1; V33P1;
1530/1: 042|225 144 036|027|033|042 DUP; J3P45=Z; NEG; NOT; DUP;
1531/2: 222 143 135|042|304 000 017|032|052 J24=Z; DUP; SET15; MAX; ERASE;
1532/5: 001|170 151 VR; =RC6;
1533/2: 017|017|017|017|300 140 246|303 140 245|177 140 *25; V17P1M6; =V16P1M6Q; J25C6NZS;
1535/2: 301 000 266|202 360 001 24; =V33P1; EXIT2;
1536/2: 304 000 006|015|205 143 146|300 000 266|042 23; SET6; NEV; J39≠Z; V33P1; DUP;
1540/1: 164 371|200 144 037 SHL-4; J1P45≠Z;
1541/0: 042 101; DUP; (entry from P2 to forcibly insert in SJNS);
1541/1: 042|033|027|301 000 266|170 150 DUP; NOT; NEG; =V33P1; =C6;
1542/3: 170 142|242 143 145|145 140 =M6; J26C6Z; I6=-1;
1543/4: 017|017|300 140 244|303 140 245|177 140 *27; V15P1M6; =V16P1M6Q; J27C6NZS;
1545/2: 300 000 005|301 000 245|202 360 001 26; E5; =V16P1; EXIT2;
1546/5: 041|301 000 266|202 360 001 39; ZERO; =V33P1; EXIT2;
1550/0: 052|301 000 004|041|042|174 000 11; ERASE; =E4; ZERO; DUP; =LINK;
1551/2: 304 000 001|164 123|176 001|056|301 000 003 SET1; SHL+41; K7; +; =E3;
1553/1: 041|300 126 164|042|301 000 006|175 020 ZERO; V13P104M5; DUP; =E6; =K3;
1554/5: 017|017|017|017|017 DUMMY; DUMMY; DUMMY; DUMMY; DUMMY;
1555/4: 017|052|052|052|173 000 DUMMY; ERASE; ERASE; ERASE; LINK;
1556/4: 052|300 000 004 ERASE; E4;
1557/2: 304 000 001|203 023 164|052|300 000 006|164 005 SET1; J28≠; ERASE; E6; SHL+2;
1561/2: 164 247|224 143 163 SHL-45; J29=Z;
1562/1: 301 000 005|041|033|027|201 263 207 32; =E5; ZERO; NOT; NEG; J30;
1563/4: 041|033|201 263 207 29; ZERO; NOT; J30;
1564/3: 304 000 002|201 023 171|052|300 000 006|164 005 28; SET2; J31≠; ERASE; E6; SHL+2;
1566/3: 164 253|304 000 022|036|224 103 163|300 000 005 SHL-43; SET18; -; J29>Z; E5;
1570/3: 041|201 263 207 34; ZERO; J30;
1571/1: 304 000 003|204 023 174|052|300 000 006|164 005 31; SET3; J33≠; ERASE; E6; SHL+2;
1573/1: 164 247|224 143 163|052|203 263 170 SHL-45; J29=Z; ERASE; J34;
1574/4: 304 000 004|200 023 177|052 33; SET4; J35≠; ERASE;
1575/5: 052|205 243 175|203 263 170 36; ERASE; J36NEN; J34;
1577/0: 304 000 005|204 023 202|052|300 000 006|164 017 35; SET5; J37≠; ERASE; E6; SHL+7;
1601/0: 164 251|224 143 163|173 000|201 263 162 SHL-44; J29=Z; LINK; J32;
1602/4: 304 000 006|015|201 143 216|300 000 006|164 017|164 253|304 000 020|036
37; SET6; NEV; J40≠Z; E6; SHL+7; SHL-43; SET16; -;
1605/4: 224 103 163|300 000 005|174 000|041 J29>Z; E5; =LINK; ZERO;
1607/1: 304 000 001|164 123|041|174 000|176 001 30; SET1; SHL+41; ZERO; =LINK; K7;
1610/5: 056|300 000 003|175 020|017|017 +; E3; =K3; DUMMY; DUMMY;
1612/1: 017|017|017|017|052 DUMMY; DUMMY; DUMMY; DUMMY; ERASE;
1613/0: 173 000|052|301 126 164|042|220 044 037 LINK; ERASE; =V13P104M5; DUP; J1P45<Z;
1614/4: 224 143 215|300 000 005 J38=Z; E5;
1615/4: 202 360 001 38; EXIT2;
[ ------- fold
1616/1: 173 000|052|201 303 216|203 263 170 40; LINK; ERASE; J40NEJ; J34;
=== Start P30V-1; at address 912/1620
P30; (set Q4 = 2p+2/1/AV1P11+2p+2, for
entry to P10);
[ photo 100_1599.JPG
1620/0: 171 122|033|027|164 003|042 M5; NOT; NEG; SHL+1; DUP;
1621/1: 170 111|304 001 247|056|170 102|200 360 000 =RC4; SETAV1P11; +; =M4; EXIT1;
=== Start P31V-1; at address 915/1623
P31; (fetch char result in C7); (amended Jan 68);
1623/0: 202 323 235 8; JS9; (fetch char);
1623/3: 170 170|304 000 006 =C7; SET6;
1624/2: 172 150|041|033|164 140|200 143 227 =+C6; ZERO; NOT; SHLC6; J2≠Z;
1625/5: 154 006|304 000 001|172 142 C0TOQ6; SET1; =+M6;
1627/0: 300 010 320|041|166 160|166 343|052 2; V1P122; ZERO; SHLDC7; SHLD-15; ERASE;
1630/3: 202 043 232|171 144|202 143 236|202 360 001 J3≥Z; I6; J4≠Z; EXIT2; (I6 is shift indicator);
1632/2: 171 170|304 000 007|036|042|027|164 377|200 144 037 3; C7; SET7; -; DUP; NEG; SHL-1; J1P45≠Z; (jump if not shift char);
1634/3: 170 144|200 263 223 =I6; J8; (store shift case shift is zero CN is 1);
1635/2: 100 140|164 140|164 255 9; M0M6; SHLC6; SHL-42;
1636/2: 200 360 000 4; EXIT1;
=== Start P32V-1; at address 927/1637
P32; (fetch number, result in N1);
1637/0: 304 177 200 SETB77600;
1637/3: 170 176|041 1; =Q7; ZERO;
1640/0: 042|221 043 242|171 162|003|034 5; DUP; J3<Z; M7; BITS; ×D;
1641/2: 050|304 000 020|036 CONT; SETB20; -;
1642/1: 171 170|056 3; C7; +;
1642/4: 200 323 223|204 263 247|171 162 4; JSP31; J2; M7;
1644/0: 164 043|164 160|220 043 240 SHL+17; SHLC7; J5<Z;
1645/1: 171 170|304 000 012|037|201 043 251 C7; SET10; SIGN; J6≥Z;
1646/4: 052|041|033|200 360 000 ERASE; ZERO; NOT; EXIT1;
1647/4: 171 170|304 000 075|015|221 144 037 2; C7; SETB75; NEV; J4P45=Z;
1651/1: 042|224 043 242 6; DUP; J4<Z;
1651/5: 202 360 001 EXIT2;
1652/2: 304 177 340|203 263 237 10; SETB77740; J1; (read decimal);
11; (fetch store size);
1653/2: 300 004 035|300 007 176|036 V0P45; V0P117; -; (whole store);
1654/3: 202 323 252|200 360 000 JS10P32; EXIT1; (none types);
1655/3: 042|164 367|205 143 256|164 025 DUP; SHL-5; J12≠Z; SHL10; (if less that 32 shift 10);
1656/5: 027|033|164 367|033|027|164 013 12; NEG; NOT; SHL-5; NOT; NEG; SHL5; (roound up); [sic
1660/1: 202 360 001 EXIT2;
=== Start P33V-1; at address 945/1661
P33; (TINT A - terminate program);
1661/0: 200 323 323 JSP38;
1661/3: 300 126 204|042|223 143 264 V29P104M5; DUP; J1=Z;
1662/4: 042|304 000 001|011|301 126 204|202 360 001 DUP; SET1; OR; =V29P104M5; EXIT2;
1664/3: 052 1; ERASE;
1664/4: 200 323 223 3; JSP31;
1665/1: 200 360 000|304 000 004|204 327 150 EXIT1; SET4; JS94P105;
1666/4: 200 323 220|041|033|041|171 170|203 321 232 JSP30; ZERO; NOT; ZERO; C7; JS2P10;
(now in priority subprogram)
1670/3: 304 000 004|171 162|304 000 035|015|201 141 367 SET4; M7; SETB35; NEV; J1P15≠Z;
1672/3: 052|304 170 177|041|203 260 322 ERASE; SETB74177; ZERO; J3P2;
=== Start P34V-1; at address 956/1674
P34; (IINT B - read integer to E0);
1674/0: 200 323 323 JSP38;
1674/3: 200 323 237|200 264 037 JSP32; J1P45;
1675/3: 300 120 021|042|164 111|225 144 036 V9P0M5; DUP; SHL+36; J3P45=Z;
1677/0: 164 015|033|027|170 142 SHL+6; NOT; NEG; =M6;
1700/0: 300 126 204|220 143 302 V29P104M5; J1=Z;
1701/0: 301 126 210|202 360 001 =V33P104M5; EXIT2;
1702/0: 164 061|105 140|202 360 001 1; SHL+24; =M0M6H; EXIT2;
=== Start P37V-1; at address 964/1704
P37; (TINT E - nominate program tape)
[ ------------ fold
1704/0: 200 325 271|170 162 JSP65; =M7;
1704/5: 304 024 054|300 163 014|164 037|164 277 SETB12054; V0P26M7; SHL+15; SHL-33;
1706/3: 015|201 144 037 NEV; J4P45≠Z;
Warning: V7P37 is out of range, only 0 V-stores specified
1707/1: 300 003 313|304 000 041|036|042 V7; SETB41; -; DUP;
[ photo 100_1600.JPG
1710/3: 164 377|200 144 037 SHL-1; J1P45≠Z;
1711/2: 204 143 313 1; J2≠Z;
1711/5: 171 162|301 007 231|300 007 230|200 263 315 M7; =V1P120; V0P120; J3;
1713/4: 171 162|301 004 212|300 004 211 2; M7; =V1P52; V0P52;
1715/0: 042|170 162|224 043 321 3; DUP; =M7; J4<Z;
1716/0: 300 166 204|042|033|164 245|164 137 V29P104M7; DUP; NOT; SHL-46; SHL+47;
1717/3: 164 375|033|054|164 007 SHL-2; NOT; AND; SHL+3;
1720/3: 047|052 STR; ERASE;
1720/5: 164 373|301 166 204 5; SHL-3; =V29P104M7;
1721/4: 202 360 001 4; EXIT2;
=== Start P38V-1; at address 979/1723
P38; (fetch program letter);
1723/0: 200 323 223|203 263 324|200 324 340 JSP31; J1; JSP56;
1724/3: 173 000|052|200 360 000 1; LINK; ERASE; EXIT1;
=== Start P39V0; at address 983/1727
P39V0; (TING G and G+);
V-store at 01726 = 153 246 245 153 046 257 V0=B3272324532623257;
1727/0: 200 325 271|042 JSP65; DUP;
1727/4: 171 170|304 000 037|015|223 143 333|052 C7; SETB37; NEV; J6=Z; ERASE; (allow TIN Gnn);
1731/2: 200 323 237|205 264 036|042|164 371|205 144 036|065 JSP32; J3P45; DUP; SHL-4; J3P45≠Z; REV; (allow TIN Gnn/mm);
1733/3: 027|033|042|170 143|036|042|170 150|201 104 037 6; NEG; NOT; DUP; =RM6; -; DUP; =C6; J4P45≤Z;
1735/3: 302 143 015|042|220 043 347|042|164 061 1; V1P26M6Q; DUP; J4<Z; DUP; SHL+24;
1737/1: 164 255|304 000 054|015|205 143 345 SHL-42; SETB54; NEV; J3≠Z; (jimp if
1740/4: 171 142|200 330 365|170 142 status not L); M6; JSP131; =M6;
1741/5: 300 146 000|300 145 377|066|170 142|042 V-16P101M6; V-17P101M6; CAB; =M6; DUP;
1743/3: 204 143 344|052|300 003 326 J2≠Z; ERASE; V0;
1744/4: 066|304 000 003|202 263 346 2; CAB; SET3; J5;
1745/5: 304 000 001 3; SET1;
1746/2: 200 321 206|041 5; JSP6; ZERO;
1747/0: 052|263 143 335|202 360 001 4; ERASE; J1C6NZ; EXIT2;
=== Start P40V-1; at address 1001/1751
p40; (TINT M - type wanted list);
1751/0: 041|033|301 006 020 ZERO; NOT; =V0P101; (set new L tapes);
1751/5: 300 004 211|205 323 353|200 260 115|300 007 230 V0P52; JS1; J35P0; V0P120;
1753/5: 042|170 162|224 043 321|300 166 204|167 005|164 003|205 263 320
1; DUP; =M7; J4P37<Z; V29P104M7; SHC2; SHL1; J5P37;
(types prog tape req too);
=== Start P41V-1; at address 1007/1757
P41; (TINT I - even and odd restarts);
1757/0: 200 323 323 JSP38;
1757/3: 300 126 204|201 144 037 V29P104M5; J4P45≠Z;
1760/3: 200 325 271 JSP65; (allowing TINT Ipn);
1761/0: 164 137|042|200 143 364 SHL+47; DUP; J2≠Z; (jump if odd restart)
1762/0: 200 323 220|041|101 100 JSP30; ZERO; =M0M4; (clear SHUL);
1763/0: 304 000 001|204 327 150 SET1; JS94P105; (clear HUR);
1764/0: 164 377|164 277|304 000 004|011 2; SHL-1; SHL-33; SET4; OR; (4/0 or 4/3);
1765/2: 203 263 075 J6P29; (store inSJNS);
=== Start P42V1; at address 1016/1770
P42V1; (J J+ JE Jdd);
V-store at 01767 = 377 377 377 377 377 377 V1=-1; (end tape warning);
1770/0: 202 323 235|304 000 045|221 024 000 JS9P31; SETB45; J4=; (test for JE);
1771/3: 304 000 035|015|204 143 373 SETB35; NEV; J3≠Z;
1772/4: 304 377 372|301 003 366 SET-6; =V0; (to allow 16384 words for NJC);
1773/4: 202 323 252|204 263 375 3; JS10P32; J2;
1774/4: 301 011 032|202 360 001 1; =V4P155; EXIT2;
1775/4: 052|300 002 216|164 301|221 144 037 2; ERASE; V3P23; SHL-32; J4P45=Z; (no N tape);
1777/1: 204 324 037|204 263 374 JS21P45; J1;
2000/1: 300 002 214|164 301|220 144 037 4; V1P23; SHL-32; J1P45=Z; (again if no old tape);
2001/3: 301 003 367|200 324 040|202 360 001 =V1; JS20P45; EXIT2;
[ ------------
=== Start P44V0; at address 1028/2004
P44V0; (TINT L - change type of unit);
V-store at 02003 = 010 152 202 000 004 072 V0=B 0206520200002072; (skeleton
descriptor shifted cyclically down 33);
[ photo 100_1601.JPG
2004/0: 200 325 271|042|220 144 037 JSP65; DUP; J1P45=Z;
2005/1: 042|170 122|300 123 014|042|223 044 016 DUP; =M5; V0P26M5; DUP; J2<Z;
2006/5: 042|164 125|205 144 036 DUP; SHL+42; J3P45≠Z;
2007/5: 164 061|164 255|304 000 054|203 024 015 SHL+24; SHL-42; SETB54; J6≠;
2011/3: 052|300 004 212|202 024 013 (L); ERASE; V1P52; J8≠;
2012/4: 041|301 004 212 ZERO; =V1P52;
2013/2: 300 007 231|204 024 016 8; V1P120; J7≠;
2014/2: 041|301 007 231|204 264 016 ZERO; =V1P120; J7;
2015/3: 304 000 065|205 024 036 6; SETB65; J3P45≠;
2016/3: 052 2; ERASE;
2016/4: 167 365|200 323 237|205 264 036 7; SHC-6; JSP32; J3P45;
2020/0: 042|167 371|203 044 023 DUP; SHC-4; J4≥Z;
2021/0: 304 000 010|205 024 036 SETB10; J3P45≠;
2022/0: 171 122|304 000 007|037|225 044 036 M5; SET7; SIGN; J3P45<Z;
2023/3: 042|225 044 036|042|164 365|205 144 036 4; DUP; J3P45<Z; DUP; SHL-6; J3P45≠Z;
2025/1: 042|205 144 026|052|041|033|205 264 033 DUP; J5≠Z; ERASE; ZERO; NOT; J1;
2026/5: 167 365|300 004 003|166 007|167 007|166 007 5; SHC-6; V0; SHLD+3; SHC+3; SHLD+3;
2030/4: 065|052|167 023|166 007|167 007 REV; ERASE; SHC+9; SHLD+3; SHC+3;
2032/0: 166 007|167 015|042|202 321 222 SHLD3; SHC6; DUP; JS10P6;
2033/2: 201 323 057 JS4P27;
2033/5: 301 123 014|200 264 036 1; =V0P26M5; J31P45;
=== Start P45V0; at address 1054/2036
p45V0;
V-store at 02035 = 000 000 000 000 000 000 V0=0; (m/c size);
2036/0: 052 31; ERASE;
2036/1: 202 360 001 30; EXIT2;
2036/4: 052 12; ERASE;
2036/5: 052 3; ERASE;
2037/0: 052 1; ERASE;
2037/1: 200 360 000 4; EXIT1;
2037/4: 041|033 21; ZERO; NOT;
2040/0: 041 20; ZERO;
2040/1: 033 22; NOT;
2040/2: 301 000 033|200 360 000 23; =V19P0; EXIT1;
=== Start P46V16; at address 1075/2063
P46V16; (TINT N for daves disector); [ sic
V-store at 02042 = 000 000 000 000 000 001 V0=1;
V-store at 02061 = 020 202 001 020 202 001 V15=B 0410100104101001;
V-store at 02062 = 101 004 014 101 004 014 V16=P 000*000*;
2063/0: 204 325 032|200 323 237|202 264 071|042|170 123|200 323 237|200 324 036
JS72P58; JSP32; J1; DUP; =RM5; JSP32; JSP45;
2066/0: 042|170 130|056|300 004 035|036|221 104 037 DUP; =C5; +; V0P45; -; J4P45>Z;
2067/5: 202 324 103|202 324 117|204 264 101 JS2; JS5; J12;
2071/2: 202 324 103|052|304 000 045|304 000 010|041|201 324 114 1; JS2; ERASE; SETAP0; SETAV0P0; ZERO; JS4;
2073/4: 304 001 317|304 001 246|304 000 013|201 324 114 SETAP11; SETAV0P11; SET11; JS4;
2075/4: 304 006 304|304 006 147|304 000 150|201 324 114 SETAP104; SETAV0P104; SET104; JS4;
2077/4: 304 011 335|304 011 327|304 000 273|201 324 114 SETAP187; SETAV0P187; SET187; JS4;
2101/4: 171 170|170 142|200 323 052|202 360 001 12; C7; =M6; JS5P27; EXIT2;
2103/2: 304 007 254|200 323 034|202 264 113|052 2; SETB3654; JS1P26; J3; ERASE;
2105/0: 300 143 014|304 000 024|164 045|036|304 000 044|011|042|301 143 014
V0P26M6; SETB24; SHL18; -; SETB44; OR; DUP; =V0P26M6;
2107/5: 304 000 001|200 321 206|154 147|304 004 042 SET1; JSP6; C6TOQ7; SETAV0;
2111/4: 042|170 143|033|027|170 164|200 360 000 DUP; =RM6; NOT; NEG; =I7; EXIT1;
2113/2: 173 000|205 264 036 3; LINK; J3P45;
2114/1: 203 331 323|164 061|304 000 060|011|167 365|113 140 4; JS1P161; SHL24; SETB60; OR; SHC-6; =M0M6QN;
2116/2: 042|170 123|036|170 130 DUP; =RM5; -; =C5;
2117/2: 300 004 042|042|033|027|301 004 042|203 331 323|164 045|304 041 356|011|042
5; V0; DUP; NOT; NEG; =V0; JS1P161; SHL18; SETB20756; OR; DUP;
2122/3: 171 176|065|167 335|304 000 001|200 321 206|170 176|167 365|164 365|202 324 155
Q7; REV; SHC-18; SET1; JSP6; =Q7; SHC-6; SHL-6; JS10;
2125/5: 171 122|301 004 060 M5; =V14;
[ ---------- fold
2126/4: 300 000 037|171 122|042|304 000 045|200 324 163 6; V23P0; M5; DUP; SETB45; JS11;
2130/4: 201 331 324|164 045|304 000 042|011|167 365|113 140 JS2P161; SHL18; SETB42; OR; SHC-6; =M0M6QN;
2132/5: 171 122|300 004 060|036|304 000 066|200 324 163 M5; V14; -; SETB66; JS11;
2134/5: 102 120|042|304 000 003|170 150 M0M5Q; DUP; SET3; =C6;
2136/1: 041|166 041|300 004 061|065|067|300 004 062|011|113 140|261 144 136
7; ZERO; SHLD16; V15; REV; FRB; V16; OR; =M0M6QN; J7C6NZ;
[ photo 100_1602.JPG
2141/0: 052|042|304 000 004|170 150|304 000 061|113 140 ERASE; DUP; SET4; =C6; SETB61; =M0M6QN;
2143/0: 041|166 041|304 003 377|200 324 163|260 144 143 8; ZERO; SHLD16; SETB1777; JS11; J8C6NZ;
2145/0: 166 007|304 010 220|011|113 140|041 SHLD3; SETB4220; OR; =M0M6QN; ZERO;
2146/3: 166 061|300 000 037|065|202 324 103|113 140 SHLD24; V23P0; REV; JS2;161; =M0M6QN;
2150/2: 167 053|300 000 037|065|201 331 324|164 015|304 000 002|011|202 324 155|264 124 126
SHC21; V23P0; REV; JS2P161; SHL6; SET2; OR; JS10; J6C5NZ;
2153/5: 304 377 302|202 324 155|200 360 000 SETB177702; JS10; EXIT1;
2155/2: 113 140 10; =M0M6QN;
2155/4: 151 147|130 160|304 377 375|171 136|301 100 024|200 321 230|121 160|041|002
M6TOQ7; POAQ7; SET-3; Q5; =E20M4; JSP10; PARQ7; ZERO; =TR;
2160/5: 300 100 024|170 136|304 004 042|170 143|200 360 000 E20M4; =Q5; SETAV0; =RM6; EXIT1;
2163/0: 065|203 331 323|164 045|011|167 365|113 140|200 360 000 11; REV; JS1P161; SHL18; OR; SHC-6; =M0M6QN; EXIT1;
=== Start P48V-1; at address 1142/2166
P48; (TINT P-alter a unit prealloaction)
2166/0: 041 ZERO; (type 2 device no longer automatically preallocated);
2166/1: 200 323 237|201 264 174 1; JSP32; J2;
2167/1: 042|225 144 036 DUP; J3P45=Z;
2167/5: 042|304 377 310|054|205 144 036 DUP; SETB177710; AND; J3P45≠Z;
2171/1: 041|166 131|162 007|036|033 ZERO; SHLD+44; SHAD+3; -; NOT;
2172/2: 170 130|304 000 001|164 120|011|201 264 166 =C5; SET1; SHLC5; OR; J1;
2174/1: 201 323 057|052|301 007 235|202 360 001 2; JS4P27; ERASE; =V5P120; EXIT2;
=== Start P49V0; at address 1151/2177
P49V0; (TINT Q - store available);
V-store at 02176 = 003 173 362 223 060 041 V0=B67576244630041;
2177/0: 300 007 245|300 004 176|166 015|200 327 177|041|017|017 V13P120; V0; SHLD+6; JSP117; ZERO; DUMMY; DUMMY;
2201/2: 164 301|203 331 323|164 045|304 000 207|166 351|052 SHL-32; JS1P161; SHL18; SETB207; SHLD-12; ERASE;
2203/3: 205 321 217|202 360 001 JS30P6; EXIT2;
=== Start P50V-1; at address 1157/2205
P50; (TINT r - resume program);
2205/0: 200 323 323|304 000 004|204 327 150|202 360 001 JSP38; SET4; JS94P105; EXIT2;
=== Start P51V-1; at address 1159/2207
P51; (TINT S - suspend program);
2207/0: 200 323 323|304 000 004|203 327 147|202 360 001 JSP38; SET4; JS93P105; EXIT2;
=== Start P52V4; at address 1166/2216
P52V4; (TINT T - input a program)
V-store at 02211 = 377 377 377 377 377 377 V0=-1; (B input priority no.)
(V1=b program tape number
V2 = B program input marker);
V-store at 02215 = 272 370 260 247 120 000 V4=B565742605165/35; (NOBPIU)
2216/0: 200 324 263|201 264 037 JS20; J4P45; (select highest level);
2217/0: 300 004 211|201 044 037 2; V0; J4P45≥Z;
2220/0: 200 323 223|200 360 000 JSP31; EXIT1;
2221/0: 171 170|304 000 054|222 024 225|304 000 070|225 024 266 C7; SETB54; J10=; SETB70; J8=; (test for L and X);
2223/2: 304 000 060|015|301 004 213|041|033|201 264 231 SETB60; NEV; =V2; ZERO; NOT; J11;
2225/2: 052|200 323 237|200 264 037 10; ERASE; JSP32; J1P45;
2226/3: 042|164 367|200 144 037|033|301 004 213 DUP; SHL-5; J1P45≠Z; NOT; =V2; (length of Q is now 32);
2230/1: 171 170|304 000 060|015 C7; SETB60; NEV;
2231/1: 202 323 253|052|041|017 11; JS11P32; ERASE; ZERO; DUMMY; (no size specified set zero);
2232/1: 001|032|052|301 126 150|200 204 037 VR; MAX; ERASE; =V1P104M5; J1P45NV;
2233/4: 200 327 177|200 264 037|065|200 144 241 JSP117; J1P45; REV; J13≠Z;
2235/2: 304 005 254|200 323 034|200 264 037|200 324 336 SETB2654; JSP26; J1P45; JSP55;
2237/2: 300 143 014|011|301 143 014|200 323 045 V0P26M6; OR; =V0P26M6; JSP27;
2241/0: 164 041|164 267|304 000 005|200 327 215 13; SHL+16; SHL-37; SET5; JSP118;
2242/4: 200 323 220|041|033 JSP30; ZERO; NOT;
2243/3: 301 004 214 7; =V3;
2244/0: 304 377 376|041|041|200 330 377 3; SET-2; ZERO; ZERO; JSP134;
2245/2: 204 264 255 (now in priority subprogram); J5;
2245/5: 041|301 126 174|300 004 213|042|222 044 262|052 ZERO; =V21P104M5; V2; DUP; J12<Z; ERASE;
2247/5: 304 005 254|200 323 034|200 264 257 SETB2654; JS1P26; J6;
2251/2: 052 (PTR obtained); ERASE;
2251/3: 300 143 014|200 324 336|011|300 004 213|204 144 254 V0P26M6; JSP55; OR; V2; J4≠Z;
2253/4: 304 000 005|164 045|036 SET5; SHL+18; -;
[ ---------- fold
2254/4: 301 143 014|204 267 343 4; =V0P26M6; J11P120;
2255/4: 041|301 004 213|041|200 270 266 5; ZERO; =V2; ZERO; JP121;
2257/0: 300 004 214|220 144 244 6; V3; J3=Z;
2260/0: 300 004 215|200 324 336|011|205 321 220|041|203 264 243 V4; JSP55; OR; JS21P6; ZERO; J7;
[ photo 100_1603.JPG
2262/2: 033|204 267 330 12; NOT; J103P120;
2263/0: 041 20; (select level); ZERO; (try P first);
2263/1: 042|204 324 341|200 264 037 21; DUP; JS1P56; J1P45; (no free level);
2264/2: 300 120 021|167 007|164 107|220 144 036|033|027|201 264 263 V9P0M5; SHC3; SHL35; J31P45=Z; (OK); NOT; NEG; J21; (try next letter);
2266/5: 052|200 323 323|300 120 021|167 007|164 107|201 144 037|200 264 217
8; ERASE; JSP38; V9P0M5; SHC3; SHL35; J4P45≠Z; J2;
(TINT Tx letter allowed giving fixed priority);
=== Start P53V-1; at address 1210/2272
P53; (TINT U using Q);
2272/0: 202 324 323|304 000 004|304 000 060 JS2; SET4; SETB60;
2273/3: 170 143|170 150 =RM6; =C6;
2274/1: 041|171 142|170 171|200 324 340|203 264 315 1; ZERO; M6; =RC7; JSP56; J3; (not present);
2276/0: 300 126 204|033|300 126 200|054|167 375|223 044 315 V29P104M5; NOT; V25P104M5; AND; SHC-2; J3<Z; (jump if prog in but not OUT 1);
2300/1: 300 126 264|065|220 024 304 V77P104M5; REV; J4=; (test for disc allocated);
2301/2: 164 101|164 277|203 331 323|164 061|304 011 000|166 321|140 160
SHL32; SHL-33; JS1P161; SHL24; SETB4400; SHLD-24; M+I7;
2304/0: 052|300 126 154|042|300 126 160|056|200 324 351|065|200 324 351
4; ERASE; V5P104M5; DUP; V9P104M5; +; JSP57; REV; JSP57;
(this give NET instead of EL); [ sic
2306/4: 300 000 037|042|300 120 021|164 115|164 277|067|065|164 337|011|164 031
V23P0; DUP; V9P0M5; SHL38; SHL-33; FRB; REV; SHL-17; OR; SHL12;(BA);
2311/4: 300 126 220|042|012|166 351|052|065 V41P104M5; DUP; PERM; SHLD-12; ERASE; REV;
2313/1: 300 126 214|164 061|164 321|166 351 V37P104M5; SHL24; SHL-24; SHLD-12; (prog iden);
2314/4: 304 000 004|172 162 SET4; =+M7;
2315/3: 171 122|304 000 020|011|164 045|011 3; M5; SETB20; OR; SHL18; OR; (priority);
2317/0: 304 041 300|171 142|011|164 075|011|140 160 SETB20700; M6; OR; SHL30; OR; M+I7; (letter);
2320/5: 171 162|200 321 206|140 140|143 140|261 144 274|202 360 001 M7; JSP6; M+I6; DC6; J1C6NZ; EXIT2;
2323/2: 200 323 323|304 000 001|171 170|200 360 001 2; JSP38; SET1; C7; EXIT3;
=== Start P54V0; at address 1239/2327
P54V0; (TINT V fro priotity swapping); [sic
(V0=PQRS weights);
2327/0: 202 323 235|304 000 037|015|205 144 331|041 JS9P31; SETB37; NEV; J1≠Z; ZERO; (V. sets all weights to 1);
2330/5: 301 004 326|202 360 001 2; =V0; EXIT2;
2331/5: 200 323 323|200 325 271 1; JSP38; JSP65;
2332/5: 300 126 164|202 325 247|164 031|011|167 351|142 160|167 160|205 264 330
3; V13P104M5; JS9P64; SHL12; OR; SHC-12; NC7; SHCC7; J2;
=== Start P55V-1; at address 1246/2336
P55; (given priority, put corresponding prog.
letter in N1);
2336/0: 300 126 164|164 341|304 000 060|011|200 360 000 V13P104M5; SHL-16; SETB60; OR; EXIT1;
=== Start P56V-1; at address 1248/2340
P56; (given prog. letter in C7, put corresponding
priority in M5);
2340/0: 171 170|304 000 060|036|042|220 044 037 C7; SETB60; -; DUP; J1P45<Z;
1;
2341/4: 042|164 375|200 144 037|304 000 004|170 131 DUP; SHL-2; J1P45≠Z; SET4; =RC5;
2343/3: 141 120 M-I5;
2343/5: 017|302 126 165|164 245|220 024 036|177 120|200 264 037 *2; V14P104M5Q; SHL-46; J31P45=; J2C5NZS; J1P45;
=== Start P57V1; at address 1257/2351
P57V1; (given time in seconds to 23 I.P., put time
in characters, /---M--S, in N1)
V-store at 02347 = 030 242 212 004 142 201 V0=B0612121201061201;
V-store at 02350 = 075 004 020 265 004 063 V1=B1720202055202063;
2351/0: 161 321|300 004 347|065|067|300 004 350 SHA-24; V0; REV; FRB; V1;
2352/4: 011|200 360 000 OR; EXIT1;
=== Start P58V7; at address 1268/2364
P58V7; (loof for tape with given identifier,
if not found, type wanted query);
V-store at 02354 = 010 175 341 273 111 144 V0=B0207674156644544;
V-store at 02355 = 002 056 200 000 144 307 V1=B0042720000062307;
V-store at 02360 = 003 050 077 377 377 334 V4= B062407777777734;
2364/0: 203 325 016 JS20;
2; (required tape not present)
2364/3: 171 122|225 044 374 M5; J3<Z;
(wanted by program)
[ ---------- fold
2365/2: 200 323 220 JSP30;
2365/5: 043|300 004 360|304 000 077|011|012 DUPD; V4; SETB77; OR; PERM;
2367/2: 200 324 336|204 325 012|300 004 354|304 000 005|200 321 206 JSP55; JS14; V0; SET5; JSP6;
2371/5: 065 21; REV;
2372/0: 301 100 024|304 000 001|041|033|047|015 5; =E20M4; SET1; ZERO; NOT; STR; NEV; [ end of photo
2373/4: 066|203 321 232|200 264 364 CAB; JS2P10; JP58;
[ photo 100_1604.JPG
3; (wanted by Director)
2374/5: 301 004 362|301 004 363|304 000 227|170 023|171 104|170 110 =V6; =V7; SETAV2P1; =RM1; I4; =C4;
2377/2: 300 004 363|300 004 362|304 000 044|204 325 012|301 004 355|301 004 356|301 004 357
6; V7; V6; SETB44; JS14; =V1; =V2; =V3;
2402/5: 304 000 001|304 004 354|304 004 361|200 321 224 SET1; SETAV0; SETAV5; JSP8;
2404/5: 300 004 361|164 255|304 000 056|203 025 007 V5; SHL-42; SETB56; J8≠;
2406/4: 154 006|200 264 037 C0TOQ6; J1P45;
2407/3: 304 000 071|015|202 144 377 8; SETB71; NEV; J6≠Z;
2410/4: 300 004 363|300 004 362|203 325 016 V7; V6; JS20; (check whether required tape
2412/1: 203 264 364 arrived during query); J2;
2412/4: 300 004 355|167 061|164 015|011|167 045 14; V1; SHC+24; SHL+6; OR; SHC+18;
2414/2: 065|042|205 145 015 REV; DUP; J9≠Z;
2415/1: 052|300 003 326 ERASE; V0P39;
2415/5: 065|200 360 000 9; REV; EXIT1;
2416/3: 300 003 014|170 156 20; V0P26; =Q6;
2417/2: 304 021 144|205 323 034|200 360 000|052|043 1; SETB10544; JS2P26; EXIT1; ERASE; DUPD;
2421/1: 171 142|200 330 365|170 142|300 146 000|300 145 377 M6; JSP131; =M6; V-16P101M6; V-17P101M6;
2423/2: 066|170 142|066|015|012 CAB; =M6; CAB; NEV; PERM;
2424/2: 015|011|202 145 017|052|052|173 000|052 NEV; OR; J1≠Z; ERASE; ERASE; LINK; ERASE;
2426/0: 300 143 014|304 000 011|164 045|036|171 122|223 045 031 22; V0P26M6; SET9; SHL18; -; M5; J11<Z;
2430/2: 200 324 336|011 JSP55; OR;
2431/0: 204 263 047 13; J6P27;
2431/3: 304 000 044|011|203 263 055 11; SETB44; OR; J7P27;
2432/4: 304 001 250|170 103|171 104|170 110|100 100|221 144 037|203 263 324
72; SETAV2P11; =RM4; I4; =C4; M0M4; J4P45=Z; J1P38;
(set up subprog 1 if not active other wise return to main loop);
=== Start P59V-1; at address 1310/2436
P59; (check top item in flex queue, if query
check answer ends correctly. if so, or
if not query, remove top item from flex queue,
type top item of flex queue);
2436/0: 120 002|221 344 037 BUSYQ0; J4P45TR;
2436/5: 300 001 105|041|166 015|304 000 040|015 1; V0P6; ZERO; SHLD+6; SETB40; NEV;
2440/3: 204 145 055|121 000|220 345 046|041|166 025 J7≠Z; PARQ0; J6TR; ZERO; SHLD+10;
2442/2: 065|170 176|171 164|171 170|042 REV; =Q7; I7; C7; DUP;
2443/4: 033|027|170 163|036|170 170 NOT; NEG; =RM7; -; =C7;
2444/5: 304 000 010|264 165 046|002 2; SET8; J3C7NZ; =TR;
2446/0: 052|201 265 065 6; ERASE; J10;
2446/4: 170 130|103 160 3; =C5; =M0M7Q;
2447/2: 041|166 015|304 000 075|224 025 053|143 120 4; ZERO; SHLD+6; SETB75; J5=; DC5;
2451/1: 304 000 037|037|167 377|033|002 SETB37; SIGN; SHC-1; NOT; =TR;
2452/3: 262 125 047|052|205 265 044 J4C5NZ; ERASE; J2;
2453/4: 052|052|200 345 046|170 162 5; ERASE; ERASE; J6NTR; =M7;
2454/5: 041|301 161 261|041 ZERO; =V11P11M7; ZERO;
2455/4: 052|300 001 015|042|222 145 061 7; ERASE; V5P4; DUP; J16=Z; (no TINT);
2457/0: 041|300 001 106|162 253|065|052|026|027|033|223 145 076 ZERO; V1P6; SHAD-43; REV; ERASE; ABS; NEG; NOT; J17=Z; (02 or 77);
2461/2: 052|304 001 105|170 163 16; ERASE; SETAV0P6; =RM7;
2462/2: 110 160|042|033|222 145 064 8; M0M7N; DUP; NOT; J9=Z;
2463/3: 103 160|202 265 062 =M0M7Q; J8;
2464/2: 242 165 075|101 160 9; J15C7Z; =M0M7;
2465/1: 300 001 105|200 330 347|205 265 036 10; V0P6; (new top word); JSP127; J1;
2466/4: 052|304 001 105|042|164 041|011 ERASE; SETAV0P6; DUP; SHL+16; OR;
2470/0: 170 176|131 160|200 360 000 12; =Q7; POBQ7; EXIT1;
2471/1: 164 041|164 341|171 156|065|200 326 137 11; SHL+16; SHL-16; Q6; REV; JSP103;
2472/5: 202 265 074|065|170 156|200 265 070 J13; REV; =Q6; J12;
2474/2: 052|170 156|200 360 000 13; ERASE; =Q6; EXIT1;
2475/2: 033|301 001 105|200 360 000 15; NOT; =V0P6; EXIT1;
2476/3: 042|301 001 105|041|301 001 015|201 265 071 17; DUP; =V0P6; ZERO; =V5P4; J11; (TINT to top of Q-concel TINT);
=== Start P60V0; at address 1346/2502
P60V0; (deal with RFIR, read time, N.E.T.,
and tape loading/unloading)
2502/0: 176 010|042|164 073|220 040 115 K4; DUP; SHL+29; J35P0<Z;
2503/2: 042|164 301|164 101|047|300 000 015|042 2; DUP; SHL-32; SHL+32; STR; V5P0; DUP;
2505/0: 012|054|042|301 005 101|300 000 010|056 PERM; AND; DUP; =V0; V0P0; +;
2506/4: 301 000 010|056|301 000 016|042|164 057|042 =V0P0; +; =V6P0; DUP; SHL+23; DUP;
2510/3: 171 156|301 000 007|304 000 007|170 151 Q6; =E7; SET7; =RC6;
[ photo 100_1605.JPG
2512/1: 017|017|017|017|017|047|300 140 030|011|303 140 030 *1; STR; V16P0M6; OR; =V16P0M6Q;
2514/2: 164 003|177 140 SHL+1; J1C6NZS;
2515/0: 052|011|002|203 345 135 ERASE; OR; =TR; J8NTR;
2516/0: 200 325 216 JSP64; (test priorities);
2516/3: 041|033 (flex or clock); ZERO; NOT;
2516/5: 176 004|164 377|304 000 004|170 151 K5; SHL-1; SET4; =RC6;
2520/2: 164 015|047|300 005 101|054|300 146 160 7; SHL+6; STR; V0; AND; V9P104M6;
2522/0: 056|303 146 160|262 145 120 +; =V9P104M6Q; J7C6NZ;
2523/1: 052|200 325 140|300 003 014|170 156 ERASE; JS10; V0P26; =Q6;
2524/4: 304 021 144|205 323 034 3; SETB10544; JS2P26;
2525/4: 204 265 130 J4;
2526/1: 052|120 150|224 345 124 ERASE; PMBQ6; J3TR;
2527/1: 304 010 000|201 326 014|204 265 124 (L, not on BT); SETB4000; JS10P100; J3;
2530/4: 300 003 014|170 156 4; V0P26; =Q6;
2531/3: 304 021 254|205 323 034 5; SETB10654; JS2P26;
2532/3: 200 265 136 J6;
2533/0: 052|120 150|203 345 131 ERASE; PMBQ6; J5NTR;
2534/0: 304 064 000|201 326 014|203 265 131 (U, on BT); SETB32000; JS10P100; J5;
2535/3: 300 000 030 8; V16P0;
2536/0: 300 000 033|011|300 000 007|170 156|200 360 000 6; V19P0; OR; E7; =Q6; EXIT1;
10; (test whether any main subprogram held up by
lockout or busy unit can be resuledm. If so,)
(or if priority change or store move impending,
set EDT marker);
2540/0: 171 176|304 000 004|170 151|146 140 Q7; SET4; =RC6; I6=+2;
Warning: V3P60 is out of range, only 1 V-stores specified
2541/3: 300 005 104|302 141 317|220 105 146 11; V3;P11M6Q; J12>Z;
2543/0: 263 145 141 13; J11C6NZ;
2543/3: 300 000 033|300 006 304|011 V19P0; V0P105; OR;
2544/4: 301 000 033|170 176|200 360 000 14; =V19P0; =Q7; EXIT1;
2546/0: 300 141 261|042|170 176|220 045 143 12; V11P11M6; DUP; =Q7; J13<Z;
2547/3: 245 165 150|120 162|201 265 151 J15C7Z; BUSYQ7; J16;
2550/5: 124 164 15; TLOQ7;
2551/1: 220 345 143|041|033|204 265 144 16; J13TR; ZERO; NOT; J14;
=== Start P61V-1; at address 1387/2553
P61; (OUT 10);
2553/0: 041|301 126 224|203 323 072|201 265 177 ZERO; =V45P104M5; JS3P29; J4;
2554/4: 300 000 265|164 377|221 145 177 V32P1; SHL-1; J4=Z;
2556/0: 300 000 225|042|222 145 164 V0P1; DUP; J2=Z;
2557/1: 042|200 330 321|205 265 160|200 145 177 DUP; JSP122;J5; J3≠Z;
2560/5: 042|200 330 367|200 265 177|300 000 226|042 5; DUP; JSP132; J3; V1P1; DUP;
2562/4: 200 330 321|205 265 160|052|200 145 177 JSP122; J5; ERASE; J3≠Z;
2564/2: 300 000 226|200 145 177 2; V1P1; J3≠Z;
2565/2: 041|033|164 373 7; ZERO; NOT; SHL-3;
2566/0: 065|200 324 364 6; REV; JSP58;
2566/4: 200 331 017 JSP138;
2567/1: 171 150|200 330 365|170 142|300 145 376 C6; JSP131; =M6; V-18P101M6;
2570/5: 203 323 072|200 260 115 JS3P29; J35P0;
2571/5: 300 126 224|202 145 175|203 323 072|200 260 115 V45P104M5; J8≠Z;JS3P29; J35P0;
2573/5: 200 323 071|200 260 115 JS2P29; J35P0;
2574/5: 203 265 175 J10;
2575/2: 052 8; ERASE;
2575/3: 200 323 071|200 260 115 10; JS2P29; J35P0;
2576/3: 200 360 000 EXIT1;
2577/0: 052 3; ERASE;
2577/1: 304 000 110|200 260 310 4; SETB110; JP2;
=== Start P62V-1; at address 1409/2601
P62; (initial housekeeping for OUTs 2,4,8.
Erase OUT no., check at least 1 other item
in programs nest);
2601/0: 203 323 072|200 260 115 JS3P29; J35P0;
2602/0: 300 000 265|201 104 037 V32P1; J4P45≤Z;
[ ---- fold
2603/0: 300 000 225|042|202 360 001 V0P1; DUP; EXIT2;
=== Start P63V-1; at address 1413/2605
P63; (OUT 16);
2605/0: 304 000 014|204 262 266 SETB14; J20P23; (seet OUT 16 flag); [ sic
[ photo 100_1606.JPG
=== Start P64V7; at address 1422/2616
P64V7; (R/EL ratios atc);
V-store at 02606 = 000 000 000 000 000 000 V0=0; (time fo last entry); [ sic
V-store at 02607 = 000 000 000 000 000 000 V1=0; (TIME FOR ALST RESET); [ sic
(V2/5= scaled half ratios);
(V6 swap impending);
V-store at 02614 = 000 000 000 000 000 000 V6=0; (dump for Q6);
V-store at 02615 = 000 000 000 000 000 000 V7=0; (dump for Q7);
2616/0: 171 176 Q7;
2616/2: 304 000 004|170 151|300 005 214|200 145 261 SET4; =RC6; V6; J10≠Z; (to clear swaps);
2620/1: 300 000 010|042|300 005 206 V0P0; DUP; V0;
2621/2: 164 315|222 145 246 SHL-26; J12=Z; (not yet);
1;
2622/1: 205 325 255|300 146 270|036 JS2; V81P104M6; -; (R/EL since last T );
2623/2: 042|164 061|065|033|027 DUP; SHL24; REV; NOT; NEG;
2624/2: 060|300 146 164|202 325 247|164 271|301 005 215 %; V13P104M6; JS9; SHL-36; =V7; (C7=scale factor);
2626/2: 142 160|143 160|303 145 210|261 145 222 NC7; DC7; =V2M6Q; J1C6NZ;
2630/0: 300 005 207|036|164 305|222 145 237 V1; -; SHL-30; J7=Z; (reset);
2631/3: 304 000 004|170 151 SET4; =RC6;
2632/2: 205 325 255|300 145 210|164 373|301 146 274 8; JS2; V2M6; SHL-3; =V85P104M6; (hangover from last minute);
2634/1: 303 146 270|302 145 211|056|065|032|052|202 205 252 =V81P104M6Q; V3M6Q; +; REV; MAX; ERASE; J5NV;
2636/2: 300 000 010|301 005 207 V0P0; =V1; (reset time);
2637/2: 304 000 003|170 171|001 7; SET3; =RC7; VR;
2640/2: 155 166|300 166 274|302 165 210|056 3; CM7TOQ6; V85p104M7; V2M7Q; +;
2641/5: 300 146 275|302 145 211|056|065|032|052|202 205 252 4; V86P104M6; V3M6Q; +; REV; MAX; ERASE; J5NV;
2644/0: 265 145 241 11; J4C6NZ;
2644/3: 052|262 165 240|300 000 010|301 005 206|041 ERASE; J3C7NZ; V0P0; =V0; ZERO;
2646/2: 052|170 176|200 360 000 12; ERASE; =Q7; EXIT1;
2647/2: 164 245|042|164 003|056|164 005|170 170|300 004 326|167 160|200 360 000
9; SHL-46; DUP; SHL1; +; SHL2; =C7; V0P54; SHCC7; EXIT1;
2652/2: 052|171 156|301 005 214|171 176|301 005 215|141 160 5; ERASE; Q6; =V6; Q7; =V7; M-I7; (set swap preserve Q7 Q7);
2654/3: 203 327 140|170 176|200 264 040 JS91P105; =Q7; J20P45;
2655/5: 300 146 154|042|300 146 160|056|166 015|164 321|166 321|200 264 037
2; V5P104M6; DUP; V9P104M6; +; SHLD6; SHL-24; SHLD-24; J1P45;
2660/4: 017|017|300 140 021|164 007|164 373|303 140 021|177 140 *10; V9P0M6; SHL3; SHL-3; =V9P0M6Q; J10C6NZS;
2663/0: 041|301 006 304|171 116|171 136|300 005 214|203 327 106 ZERO; =V0P105; Q4; Q5; V6; JS100P105; (clear swap);
2665/2: 001|041|301 005 214 VR; ZERO; =V6; (swap cleared not done);
2666/1: 170 156|170 136|170 116|300 005 215|170 176|300 165 207|201 265 222
=Q6; =Q5; =Q4; V7; =Q7; V1M7; J1; (carry on after point cleared);
=== Start P65V-1; at address 1465/2671
P65; (fetch trunk no check <B20);
2671/0: 200 323 237|200 265 273|042|164 371|221 144 037 JSP32; J1; DUP; SHL-4; J4P45=Z;
2673/0: 173 000|205 264 036 1; LINK; J3P45;
=== Start P69V1; at address 1470/2676
P69V1; (TINT W);
V-store at 02674 = 000 000 000 000 000 000 V0=0; (marker);
V-store at 02675 = 336 131 344 276 347 375 V1=P WEGDON.[em];
2676/0: 300 001 012|300 005 275|015|201 144 037 V2P4; V1; NEV; J4P45≠Z;
2677/4: 041|033|042|301 005 274|301 011 032 ZERO; NOT; DUP; =V0; =V4P155; (set marker and TINT J);
2701/1: 202 360 001 EXIT2;
=== Start P72V4; at address 1479/2707
P72V4; (TINT Z, tape labelling 23/6/66);
V-store at 02702 = 010 175 056 076 231 034 V0=B0207645617514434;
(V1/4= answer to TN/ID);
2707/0: 200 325 271|304 377 310|172 170 JSP65; SET-56; =+C7;
2710/2: 042|170 150|170 142|041|300 143 014|164 061|166 305 DUP; =C6; =M6; ZERO; V0P26M6; SHL24; SHLD-30;
2712/3: 164 351|304 000 054|015|011|201 144 037 SHL-12; SETB54; NEV; OR; J4P45≠Z; (test for N to mean leave unaltered);
2714/1: 245 165 337|204 325 032 J4C7Z; (if ZDDZ);JS72P58;
2715/1: 200 325 026|171 156|301 100 024|041|033 JS22P58; Q6; =E20M4; ZERO; NOT;
2716/5: 304 005 302|304 005 306|200 321 224|300 100 024|170 156|300 005 303|042|164 271
SETAV0; SETAV4; JSP8; E20M4; =Q6; V1; DUP; SHL-36;
2722/1: 304 013 217|015|304 377 326|170 130|200 145 326|164 141 SETB5617; NEV; SET-42; =C5; J1≠Z; SHL+48;
2724/3: 304 000 006|172 130|041|033|172 122 SET6; =+C5; ZERO; NOT; =+M5;
Warning: V5P72 is out of range, only 5 V-stores specified
2726/0: 300 125 307|300 125 306|042|300 125 305|166 120|052|012|166 120|052
1; V5M5; V4M5; DUP; V3M5; SHLDC5; ERASE; PERM; SHLDC5; ERASE;
[ ----- fold
2730/5: 200 330 365|304 005 376|056|170 165|154 147|140 160 2; JSP131; SETAV-18P101; +; =RI7; C6TOQ7; M+I7;
2733/0: 301 160 002|111 160|042|220 145 335|101 160|041 =E2M7; =M0M7N; DUP; J3=Z; =M0M7; ZERO;
2735/0: 052|304 000 002|172 162|130 160|304 064 000|201 326 014|202 360 001
3; ERASE; SET2; =+M7; MWQ7; SETB32000; JS10P100; EXIT2;
4; (label zero,leave T.S.N. unchanged);
(noods no subprig, useful when Director requests OUT 8 tape);
2737/5: 041|041|041|205 265 330 ZERO; ZERO; ZERO; J2;
[ photo 100_1607.JPG
=== Start P73V0; at address 1506/2742
P73V0; (swap to EG);
V-store at 02741 = 000 016 037 100 037 217 V0 = Q b16/8000/8079;
2742/0: 120 002|221 344 037 BUSYQ0; J4P45TR;
2742/5: 300 000 021|300 000 022|011|300 000 023|011|300 000 024|011|167 060|164 107|201 144 037
V9P0; V10P0; OR; V11P0; OR; V12P0; OR; SHCC3; SHL35; J4P45≠Z;
2746/3: 300 005 363|201 144 037 V0P100; J4P45≠Z; (W tapes);
2747/3: 300 002 216|300 002 214|011|164 301|225 145 352 V3P23; V1P23; OR; SHL-32; J2=Z; (jump when no OUT 8 tape);
2751/3: 041|033|301 011 032|200 261 047 ZERO; NOT; =V4P155; JP5; (deallocate OUT 8 tape again);
2752/5: 041|042|301 004 212|301 007 231 2; ZERO; DUP; =V1P52; =V1P120;
(wait until flex not busy and no prog running);
2754/1: 041|301 005 274 ZERO; =V0P69; (clear WEG marker);
2754/5: 300 005 341|170 176|134 160|124 170 V0; =Q7; PMAQ7; PICQ7; (swap prog to core);
2756/2: 120 162|176 010|052|222 345 356 1; BUSYQ7; K4; ERASE; J1TR; (disc not busy);
2757/4: 300 007 233|300 012 320|304 003 014|173 000|041 V3P120; V0P199; SETAV0P26; LINK; ZERO;
2761/4: 210 277 100 JE8000;
=== Start P100V9; at address 1533/2775
P100V9; (deal with W mag tapes)
(V0≠Z for W tapes)
(V1-9 = brick indicators for trunk 7-17);
2775/0: 300 005 363|221 144 037 V0; J4P45=Z;
2776/0: 300 003 014|170 156|041 V0P26; =Q6; ZERO;
2777/0: 301 005 363 1; =V0;
2777/3: 304 021 274|205 323 034 2; SETB10674; JS2P26;
3000/3: 200 360 000 EXIT1;
3001/0: 002 =TR;
3001/1: 120 142|223 346 007 3; BUSYQ6; J5TR;
3002/0: 121 140|300 145 355|200 346 005 PARQ6; V-6M6; J11NTR;
3003/2: 042|304 000 001|164 057|011|301 145 355 DUP; SET1; SHL+23; OR; =V-6M6;
3005/0: 045|033|166 377|174 000|220 046 007 11; FIX; NOT; SHLD-1; =LINK; J4<Z;
3006/3: 202 025 032 EXITAP101;
3007/0: 200 025 032 4; EXIT1AP101;
3007/3: 041|033|200 265 377 5; ZERO; NOT; J1;
3010/2: 304 013 332|170 162|104 166 6; SETAV-6U; =M7; M6M7H;
3011/3: 167 023|164 003|167 355|070 SHC+9; SHL+1; SHC-10; STAND;
3012/4: 042|105 166|201 146 001 DUP; =M6M7H; J3≠Z;
3013/4: 203 265 377 J2;
3014/1: 304 000 037|024|301 145 355|304 000 067|203 323 052|204 324 037
10; SET31; FLOAT; =V-6M6; SETB67; JS8P27; JS21P45;
3016/5: 301 005 363|200 360 000 12; =V0; EXIT1;
=== Start P101V30; at address 1583/3057
P101V30; (W mag tape bricks Maurices mod);
(V0 NZ if there are new L tapes)
V-store at 03021 = 004 242 212 050 240 101 V1=B0112121212120101;
V-store at 03022 = 001 004 020 101 010 254 V2=B0020202020204254;
(V3-29=label blocks of units 7-17)
V-store at 03056 = 000 174 041 312 235 071 V30=B0007604162516471;
3057/0: 200 266 062|200 266 062 J2; J2; (now entry 1 does not count blocks);
3060/0: 203 266 064|204 266 102 J3; J4;
3061/0: 205 266 126|205 266 130 J5; J6;
2; (skip back to BT);
3062/0: 120 150|222 346 010|041 PMBQ6; J6P100TR; ZERO;
(this has replaced 3 lines of entry 1);
3063/0: 170 176|154 147|136 160|203 266 007 12; =Q7; C6TOQ7; PMEQ7; J5P100;
3; (read label block)
3064/3: 200 330 365|304 005 376|056|170 165|140 160 JSP131; SETAV-18; +; =RI7; M+I7;
3066/2: 154 147|120 150|205 346 072 C6TOQ7; PMBQ6; J31NTR;
3067/3: 041|033|042|101 160|042|111 160 ZERO; NOT; DUP; =M0M7; DUP; =M0M7N;
3070/5: 304 000 002|172 162|101 160|125 160|203 266 007 SET2; =+M7; =M0M7; PIBQ7; J5P100;
3072/5: 136 160|110 160|200 330 321 31; PMEQ7; M0M7N; JSP122;
[ ---------- fold
3074/0: 200 266 075 J32;
3074/3: 204 266 100 J35;
3075/0: 110 160|200 330 367 32; M0M7N; JSP132;
3075/5: 200 266 101 J33;
3076/2: 300 160 002|042|204 146 077 E2M7; DUP; J34≠Z;
3077/3: 033 NOT;
[ --- end of photo
3077/4: 200 330 336 34; JSP124;
3100/1: 202 266 010 J6P100;
[ photo 100_1608.JPG
3100/4: 111 160 35; =M0M7N;
3101/0: 041|033|166 373|301 160 002|202 266 010 33; ZERO; NOT; SHLD-3;=E2M7; J6P100;
4; (W becomes U)
3102/4: 171 150|300 007 231|204 026 104 C6; V1P120; J41≠;
3104/0: 041|301 007 231 ZERO; =V1P120;
3104/4: 300 004 212|015|203 146 106 41; V1P52; NEV; J42≠Z;
3105/5: 041|301 004 212 ZERO; =V1P52;
3106/3: 041|033|027|042|033 42; ZERO; NOT; NEG; DUP; NOT; (SETB177776);
3107/2: 161 045|300 143 014|056|301 143 014 43; SHA+18; V0P26M6; +; =V0P26M6;
3110/5: 042|223 146 113|223 045 377|300 143 014|304 000 001|203 266 123
DUP; J46=Z; J2P100<Z; V0P26M6; SET1; J45;
3113/3: 052|200 330 365|170 162|300 165 376|200 330 321 46; ERASE; JSP131; =M7; V-18M7; JSP122;
3115/3: 300 165 376 V-18M7;
(mod starts here);
3116/0: 300 165 377|042|204 146 102|052|300 003 326 V-17M7; DUP; J4≠Z; ERASE; V0P39;
3117/5: 042|300 143 014|304 000 003|066 44; DUP; V0P26M6; SET3; CAB;
3121/1: 200 330 367|203 266 123|300 166 000 JSP132; J45; V-16M7;
3122/4: 065|051|066|033|027 REV; REVD; CAB; NOT; NEG;
3123/3: 200 321 206|300 145 355|164 061|203 045 377 45; JSP6; V-6P100M6; SHL+24; J2P100≥Z;
3125/2: 300 006 056|202 321 222|203 265 377 V30; JS10P6; J2P100;
5; (W becomes L);
3126/5: 041 ZERO;
3127/0: 041|033|301 006 020|304 377 365|202 266 107 51; ZERO; NOT; =V0; SETB177765; J43;
6; (W becomes L, nothing typed)
3130/5: 041|033|200 266 127 ZERO; NOT; J51;
=== Start P102V-1; at address 1626/3132
P102; (hold up subprogram until peripheral transfer
in programs area can be obeyed. Parameters
given in Q7)
3132/0: 304 000 001|200 321 230 SET1; JSP10;
3133/0: 171 176|200 326 137|201 266 135 2; Q7; JSP103; J1;
3134/2: 170 176|200 360 000 =Q7; EXIT1;
3135/1: 304 000 001|041|066|203 321 232 1; SET1; ZERO; CAB; JS2P10;
3136/3: 200 266 133 J2;
=== Start P103V-1; at address 1631/3137
P103; (chack parameters in N1 before peripheral
transfer which may involve programs area)
3137/0: 304 000 004|170 151 SET4; =RC6;
3137/5: 265 146 140|202 360 001 1; J2C6NZ; EXIT2;
3140/5: 302 140 021|205 327 114|042|201 327 125 2; V9P0M6Q; JS86P105; DUP; JS88P105;
3142/3: 205 266 137 J1;
3143/0: 300 140 020|042|164 321|200 144 037 V8P0M6; DUP; SHL-24; J1P45≠Z;
3144/3: 304 060 000|054|304 300 000|011|175 100 3; SETB30000; AND; SETB140000; OR; =K1;
3146/1: 052|202 360 001 ERASE; EXIT2;
=== Start P104V92; at address 1732/3304
P104V92;
V-store at 03147 = 004 020 101 000 000 000 V0=B01010101/23; (HUR);
(V1 onwards= constants associated with
priorities, in groups of 4)
(V1-4= overflow and TR record, etc.
V5-8= run time
V9-12= PHU time)
V-store at 03164 = 006 020 000 000 000 000 V13=B0141/11; (NS counters, etc.);
V-store at 03165 = 106 020 000 000 000 000 V14=B2141/11;
V-store at 03166 = 206 020 000 000 000 000 V15=B4141/11;
V-store at 03167 = 306 020 000 000 000 000 V16=B6141/11;
V-store at 03170 = 000 000 000 000 000 001
V-store at 03171 = 000 000 000 000 000 001
V-store at 03172 = 000 000 000 000 000 001
V-store at 03173 = 000 000 000 000 000 001 V17=1; V18=1; V19=1; V20=1; (CPDAR);
(V21-24 = A program unit pre-allocation.
For B programs, records types to be
[ ------ fold
pre-allocated on deallocation by OUT 6)
V-store at 03200 = 000 000 000 000 000 002
V-store at 03201 = 000 000 000 000 000 002
V-store at 03202 = 000 000 000 000 000 002
V-store at 03203 = 000 000 000 000 000 002 V25=2; V26=2; V27=2; V28=2; (hold-ups);
V-store at 03204 = 000 000 000 000 000 005
V-store at 03205 = 000 000 000 000 000 005
V-store at 03206 = 000 000 000 000 000 005
V-store at 03207 = 000 000 000 000 000 005 V29=5; V30=5; V31=5; V32=5; (APM);
(V33-36= dump for E0
V37-44= current program name
V45-52=new program name, transfer
parameters, OUT4/10 marker, ec. used
only by main subprogram.
V53-56=program start time
[ ------- end of photo
V57-60=streams used by program
V61-V4 is OUT 8 OUT16 flag [ sic
V65-68 is work space used by OUT 8 for D transfers);
[ photo 100_1609.JPG
(V69-72 =disc map 1);
(V63-76 =disc map 2);
(V77-80 =disc map 3/no of sectors/parity);
(V81-84=run and el times - half words);
(V85-88 = hangovers);
(V89-92 = no of REACTs allowed);
(V89 etc also hold JAC info format JJJJJ em rr);
=== Start P105V1; at address 1734/3306
P105V1; (Consolidate core and swap priorities
upgrades A riorities automatically if needed)
V-store at 03305 = 000 004 000 012 001 251 V1=Q 4/10/AV3P11; (used at 14;);
3306/0: 300 006 304|224 147 035 V0; J1=Z;
3307/0: 041|301 006 304|304 000 004|170 131 6; ZERO; =V0; SET4; =RC5;
3310/3: 300 120 021 2; V9P0M5;
3311/0: 042|164 115|220 146 341 3; DUP; SHL+38; J5=Z;
3312/0: 042|200 327 123|204 267 034 DUP; JS87; J4;
(test for store move)
3313/1: 042|164 035|164 265|220 146 341 DUP; SHL+14; SHL-38; J5=Z;
(move program in store);
3314/3: 157 164|145 100|042|164 035|164 265 Q7TOQ4; I4=-1; DUP; SHL+14; SHL-38;
3316/0: 164 013|171 164|036 SHL+5; I7; -;
3316/5: 042|170 142|200 046 321 DUP; =M6; J7≥Z;
3317/5: 171 164|170 102|144 100 I7; =M4; I4=+1;
3320/5: 017|100 100|103 106|017|017|177 100 *7; M0M4; =M6M4Q; *J7C4NZS;
(alter value of base address);
3322/2: 041|065|167 321|166 355 ZERO; REV; SHC-24; SHLD-10;
3323/2: 167 061|166 265|052 SHC+24; SHLD-38; ERASE;
(altyer affected parameters in OUT 8 Q)
(OUT 8 Q not processed);
3324/1: 304 012 177|170 103 SETAV-1P198; =RM4; (disc queue);
3325/0: 112 100|033|223 146 330 60; M0M4QN; NOT; J61=Z;
3326/0: 100 100|200 046 325 M0M4; J60≥Z;
3326/5: 100 100|205 327 130|101 100|200 266 325 M0M4; JS89; =M0M4; J60;
61;
(alter affected parameters in flex Q)
3330/3: 304 001 105|170 103 SETAV0P6; =RM4;
3331/2: 100 100|033|223 146 334 8; M0M4; NOT; J9=Z;
3332/2: 100 100|200 330 347|205 327 130|103 100|202 266 331 M0M4; JSP127; JS89; =M0M4Q; J8;
9; (alter affected SHUPs)
3334/3: 304 000 012|170 111 SET10; =RC4;
3335/2: 302 101 247|203 106 340 10; V1P11M4Q; J11≤Z;
3336/2: 300 101 260|042|200 106 340|205 327 130 V10P11M4; DUP; J18≤Z; JS89;
3340/0: 301 101 260 18; =V10P11M4;
3340/3: 262 106 335 11; J10C4NZ;
5; (test for priority swop)
3341/0: 042|164 247|224 147 034 DUP; SHL-45; J4=Z;
3342/0: 042|161 247|171 122|056|170 102 DUP; SHA-45; M5; +; =M4;
3343/2: 300 100 021|200 327 123|204 267 034 V9P0M4; JS87; J4;
(alter BA/NOLs of swopped priorities)
3344/5: 304 060 000|033|164 007|164 373|042 SETB30000; NOT; SHL+3; SHL-3; DUP;
3346/2: 300 100 021|054|171 122|164 031|011 V9P0M4; AND; M5; SHL+12; OR;
3347/5: 012|054|171 102|164 031|011 PERM; AND; M4; SHL+12; OR;
3351/0: 301 100 021 =V9P0M4;
[ ---- fold
(alter tab words)
3351/3: 300 120 040|164 361|164 005|171 102 V24P0M5; SHL-8; SHL+2; M4;
3353/0: 011|164 015|301 120 040|301 100 040 OR; SHL+6; =V24P0M5; =V24P0M4;
(swop bits in V0P104)
3354/3: 171 102|042|164 003|056|164 003 M4; DUP; SHL+1; +; SHL+1;
3355/5: 170 110|171 122|171 102|036|042 =C4; M5; M4; -; DUP;
3357/1: 164 003|056|164 003|170 170 SHL+1; +; SHL+1; =C7;
3360/2: 300 006 147|167 100|041|166 015|142 100 V0P104; SHCC4; ZERO; SHLD+6; NC4;
3362/0: 065|164 365|167 160|065|166 015 REV; SHL-6; SHCC7; REV; SHLD+6;
[ photo 100_1610.JPG
3363/2: 142 160|167 365|166 365|164 015|065 NC7; SHC-6; SHLD-6; SHL+6; REV;
3364/5: 167 160|011|167 100|301 006 147 SHCC7; OR; SHCC4; =V0P104;
(swop V-stores of P104)
3366/1: 304 006 304|304 006 150|042|170 142 SETAP104; SETAV1P104; DUP; =M6;
3367/4: 036|164 375|170 150|304 000 004|170 144 -; SHL-2; =C6; SET4; =I6;
3371/2: 017|017|017|017|100 144|100 145|101 144|103 144|177 140 *12; M4M6; M5M6; =M4M6; =M4M6Q; J12C6NZS;
(alter if needed recorded priorities
of interrupted program, A and B input)
3373/4: 300 000 017|205 327 134|301 000 017 V7P0; JS90; =V7P0;
3375/1: 300 007 230|205 327 134|301 007 230 V0P120; JS90; =V0P120;
3376/4: 300 004 211|205 327 134|301 004 211 V0P52; JS90; =V0P52;
(alter subprogram numbers in OUT 8 Q)
3400/1: 304 012 200|170 143 SETAV0P198; =RM6; (disc queue);
3401/0: 100 140|033|221 147 017|202 327 003|103 140|200 267 001 105; M0M6; NOT; J106=Z; JS62; =M0M6Q; J105;
3403/2: 100 140 62; M0M6;
3403/4: 167 031|041|166 007|027|033|205 327 134|033|027|011 64; SHC12; ZERO; SHLD3; NEG; NOT; JS90; NOT; NEG; OR;
3405/5: 167 343|200 360 000 SHC-15; EXIT1;
3406/4: 041|166 041 67; ZERO; SHLD16;
3407/1: 304 006 250|042|012|036|205 327 134|056 SETAV65P104; DUP; PERM; -; JS90; +; (alter address in OUT 8 Q)
3410/5: 011|200 360 000 OR; EXIT1; (not this routine leves new Q entry in M part); [ sic
3411/3: 170 142|110 140|167 341|204 327 006|111 140 68; =M6; M0M6N; SHC-16; JS67; =M0M6N; (alter end of queue);
3413/2: 100 140|221 144 037|202 327 003 65; M0M6; J4P45=Z; JS62; (new entry in nest)
3414/4: 167 041|204 327 006|042|167 041|101 140|170 142|202 267 013 SHC16; JS67; DUP; SHC16; =M0M6; =M6; J65; (new entry restored);
3417/1: 304 002 213|203 327 011|304 002 215|203 327 011 106; SETAV0P23; JS68; SETAV2P23; JS68; (deal with OUT 8 Qs);
3421/1: 304 001 105|170 143 63; SETAV0P6; =RM6;
3422/0: 100 140|200 330 347|205 267 023|202 267 024 15; M0M6; JSP127; J16; J17;
3423/5: 204 327 003 16; JS64;
3424/2: 042|103 140|033|200 147 022 17; DUP; =M0M6Q; NOT; J15≠Z;
(swop SHU stores);
3425/3: 171 102|164 003|170 102|171 122|164 003|170 162 M4; SHL+1; =M4; M5; SHL+1; =M7;
3427/3: 300 006 305|170 156 V1; =Q6;
3430/2: 100 147|100 144|101 147|101 144 14; M7M6; M4M6; =M7M6; =M4M6;
3431/4: 110 147|110 144|111 147|113 144|262 147 030 M7M6N; M4M6N; =M7M6N; =M4M6QN; J14C6NZ;
3433/3: 041|301 005 214 ZERO; =V6P64; (swap done);
3434/1: 200 266 311 J3;
3434/4: 303 120 021|263 126 310 4; =V9P0M5Q; J2C5NZ;
1; (set up A priority swops)
3435/4: 304 000 004|170 151|157 005|300 006 147 SET4; =RC6; Q0TOQ5; V0P104;
3437/2: 042|164 005|042|164 005|033 21; DUP; SHL+2; DUP; SHL+2; NOT;
3440/3: 011|220 047 054 OR; J20<Z;
3441/1: 300 140 021|161 247|171 142|056|042 V9P0M6; SHA-45; M6; +; DUP;
3442/4: 164 003|056|164 003|170 170 SHL+1; +; SHL+1; =C7;
3443/5: 300 006 147|164 160|164 005|042|164 005 V0P104; SHLC7; SHL+2; DUP; SHL+2;
3445/3: 033|011|220 047 054 NOT; OR; J20<Z;
3446/2: 042|164 007|171 130|015|222 047 052 DUP; SHL+3; C5; NEV; J19<Z;
3447/5: 244 127 051 J22C5Z;
3450/2: 154 005|203 327 140|200 267 054 C0TOQ5; JS91; J20;
3451/4: 151 147|143 120 22; M6TOQ7; DC5;
3452/2: 300 140 021|164 007|164 373|301 140 021 19; V9P0M6; SHL+3; SHL-3; =V9P0M6;
3454/0: 164 015|102 140|052|262 147 037 20; SHL+6; M0M6Q; ERASE; J21C6NZ; [ sic
3455/2: 052|200 327 163 ERASE; JSP116;
(set up A program move)
3456/0: 304 000 004|170 171|300 004 035|164 367 SET4; =RC7; V0P45; SHL-5;
3457/4: 170 144|242 167 071 41; =I6; J40C7Z;
3460/3: 302 167 157|042|201 327 153|222 147 071 V0P116M7Q; DUP; JS95; J40=Z;
3462/1: 300 006 147|164 140|164 005|222 047 071 V0P104; SHLC6; SHL+2; J40<Z;
[ ----fold
3463/5: 041|300 140 021|166 355|164 105|164 265 ZERO; V9P0M6; SHLD-10; SHL+34; SHL-38;
3465/3: 033|171 144|056 NOT; I6; +;
3466/1: 065|164 265|224 027 057 REV; SHL-38; J41=;
3467/1: 300 140 021|167 035|164 025|011|167 061 V9P0M6; SHC+14; SHL+10; OR; SHC+24;
3470/5: 203 327 144 JS92;
40; (set up B program move)
3471/2: 304 000 004|170 171|145 160 SET4; =RC7; I7=-1;
3472/3: 300 007 176|164 367 V0P117; SHL-5;
[ photo 100_1611.JPG
3473/2: 170 144 42; =I6;
3473/4: 243 167 105 44; J43C7Z;
3474/1: 302 167 162|042|201 327 153|224 147 073 V3P116M7Q; DUP; JS95; J44=Z;
3475/5: 300 006 147|164 140|164 007|223 047 105 V0P104; SHLC6; SHL+3; J43<Z;
3477/3: 300 140 021|167 355|041|166 025 V9P0M6; SHC-10; ZERO; SHLD+10;
3500/5: 171 144|202 027 103 I6; J45≠;
3501/4: 065|164 061|164 265|033|036 REV; SHL+24; SHL-38; NOT; -;
3502/5: 202 267 073 J42;
3503/2: 011|167 035|164 025|171 144 45; OR; SHC+14; SHL+10; I6;
3504/3: 011|167 061|203 327 144 OR; SHC24; JS92;
3505/3: 300 006 304|200 146 307 43; V0; J6≠Z;
3506/3: 304 000 004|170 111 100; SET4; =RC4; (used ny P64);
3507/2: 151 105|304 000 020|302 100 021|164 321|203 147 112 50; M4TOQ5; SETB20; V9P0M4Q; SHL-24; J51≠Z;
3511/3: 204 327 150|205 267 113 JS94; J52;
3512/3: 203 327 147|041|033|301 006 304 51; JS93; ZERO; NOT; =V0;
3513/5: 262 107 107 52; J50C4NZ;
3514/2: 200 360 000 EXIT1;
(labels 80 + n were P100+n);
(internal labels use 70; onwards);
(this routine used to be P106);
86; (given BA/NOL,setC7 = no of words occupied,
I7,M7= first and last addresses occupied)
3514/5: 042|164 115|164 277|042|201 147 117 DUP; SHL+38; SHL-33; DUP; J70≠Z;
3516/2: 170 176|200 264 037 =Q7; J1P45;
3517/1: 042|170 164|170 162|164 061|164 265 70; DUP; =I7; =M7; SHL24; SHL-38;
3520/4: 033|027|164 013|042|170 170 NOT; NEG; SHL+5; DUP; =C7;
3521/5: 027|033|172 162|200 360 000 NEG; NOT; =+M7; EXIT1;
87; (ex P 107
P107; (given BA/NOL, set up Q7 as in P106, and
test lock-out on programs area)
);
3523/0: 041|002|205 327 114|124 164|221 344 037|202 360 001 ZERO; =TR; JS86; TLOQ7; J4P45TR; EXIT2;
88; (ex P108
P108; (given transfer parameters, test for I ≥ I7 and
M ≤ M7)
);
3525/1: 041|065|166 341|164 101|166 301 ZERO; REV; SHLD-16; SHL+32; SHLD-32;
3526/3: 171 164|037|171 162|066|037 I7; SIGN; M7; CAB; SIGN;
3527/4: 011|221 044 037|202 360 001 OR; J4P45<Z; EXIT2;
89; (ex P109
P109; (given transfer parameters, add M6 to I and
M if transfer lies in area given by I7-M7)
);
3530/5: 042|201 327 125|200 360 000 DUP; JS88; EXIT1;
3532/0: 171 142|164 101|042|066|167 041 M6; SHL+32; DUP; CAB; SHC+16;
3533/2: 056|167 041|056|167 041|200 360 000 +; SHC+16; +; SHC+16; EXIT1;
90; (ex P110
P110; (replace N1 by M4 or M5 if N1=m5 or M4 respectively)
);
3534/5: 171 122|204 027 136 M5; J71≠;
[ ----fold
3535/4: 052|171 102|200 360 000 ERASE; M4; EXIT1;
3536/4: 171 102|200 027 140|052|171 122 71; M4; J72≠; ERASE; M5;
3540/0: 200 360 000 72; EXIT1;
91; (ex P111
P111; (set up swop of priorities given in m6, m7)
);
3540/3: 171 142|171 162|036|164 133|042 M6; M7; -; SHL+45; DUP;
[ photo 100_1612.JPG
3541/5: 300 160 021|011|301 160 021|027|300 140 021 V9P0M7; OR; =V9P0M7; NEG; V9P0M6;
3543/4: 164 007|164 373|011 SHL3; SHL-3; OR;
92; (ex P112
P112; (store new BA/NOL in V9P0M6, set V0P105 if new
BA/NOL differs from previous one)
);
3544/3: 042|300 140 021|015|300 006 304|011 DUP; V9P0M6; NEV; V0P105; OR;
3546/0: 301 006 304|301 140 021|200 360 000 =V0P105; =V9P0M6; EXIT1;
93; (ex P113
P113; (set HU bits in priotity hold-up word);
);
3547/3: 300 126 200|011|203 267 151 V25P104M5; OR; J73;
94; (ex P114
P114; (clear HU bits from priority hold-up word)
);
3550/4: 033|300 126 200|054 NOT; V25P104M5; AND;
3551/3: 042|301 126 200|220 141 364 73; DUP; =V25P104M5; JP14=Z;
3552/4: 200 261 353 JP13;
95; (ex p115
P115; (given BA/NOL, set priority no. in M6, 6 times
priority no. in C6)
);
3553/1: 164 105|164 245|042|170 142|042 SHL+34; SHL-46; DUP; =M6; DUP;
3554/3: 164 003|056|164 003|170 150|200 360 000 SHL+1; +; SHL+1; =C6; EXIT1;
=== Start P116V3; at address 1907/3563
P116V3; (form table of BA/NOLs in order ot decreasing
base address);
3563/0: 304 000 004|170 151|300 004 035|164 367 SET4; =RC6; V0P45; SHL-5;
3564/4: 164 111|041|301 147 157 1; SHL+36; ZERO; =V0M6;
3565/4: 304 000 004|170 171 SET4; =RC7;
3566/3: 302 160 021|164 111|042|300 147 157|164 111 2; V9P0M7Q; SHL+36; DUP; V0M6; SHL+36;
3570/2: 037|202 107 173 SIGN; J3≤Z;
3571/0: 065|042|012|037|203 047 173 REV; DUP; PERM; SIGN; J4≥Z;
3572/1: 300 160 020|301 147 157|041 V8P0M7; =V0M6; ZERO;
3573/2: 052 3; ERASE;
3573/3: 263 167 166 4; J2C7NZ;
3574/0: 052|302 147 157|264 147 164|200 264 037 ERASE; V0M6Q; J1C6NZ; J1P45;
=== Start P117V0; at address 1919/3577
P117V0; (set in N1 parameters for space between B and
A programs, as C=no. or words, I,M= first and
last addresses)
3577/0: 200 327 163|304 000 004|170 171|300 004 035 JSP116; SET4; =RC7; V0P45;
3600/5: 300 167 157|042|201 327 153|221 147 206 1; V0P116M7; DUP; JS95P105; J2=Z;
3602/3: 302 167 157|300 006 147|164 140|164 005|221 047 207 V0P116M7Q; V0P104; SHLC6; SHL+2; J3<Z;
3604/4: 065|052|164 115|164 277|265 167 200 REV; ERASE; SHL+38; SHL-33; J1C7NZ;
3606/1: 300 007 176|201 267 211 2; V0; J4;
3607/1: 042|164 345|056|164 115 3; DUP; SHL-14; +; SHL+38;
3610/1: 164 277|304 000 040|056 SHL-33; SET32; +;
3611/1: 042|170 164|027|065|042 4; DUP; =I7; NEG; REV; DUP;
3612/1: 027|033|170 162|056|170 170 NEG; NOT; =M7; +; =C7;
3613/2: 241 164 037 J4P45C7Z;
3613/5: 171 176|202 360 001 Q7; EXIT2;
=== Start P118V-1; at address 1933/3615
P118; (given N1=4 for A-program or 5
[ ----- fold
for B, and BA/NOL, sets parameters
prior to reading in new program)
3615/0: 042|301 126 204|161 377|200 330 336 DUP; =V29P104M5; SHA-1; JSP124;
3616/3: 171 122|042|101 140|033|164 003 M5; DUP; =M0M6; NOT; SHL+1;
3617/5: 042|164 003|056|056|170 130 DUP; SHL+1; +; +; =C5;
3621/0: 304 000 001|167 120|300 006 147|011|301 006 147 SET1; SHCC5; V0P104; OR; =V0P104;
3623/0: 300 120 021|011|301 120 021|202 360 000 V9P0M5; OR; =V9P0M5; EXIT;
[ photo 100_1613.JPG
=== Start P119V-1; at address 1941/3625
P119; (given first word of program name, checks it
for 0702--02 and extracts third character)
3625/0: 041|166 041|167 365|166 255|065 ZERO; SHLD+16; SHC-6; SHLD-42; REV;
3626/2: 304 160 202|015|200 144 037|200 360 001 SETB070202; NEV; J1P45≠Z; EXIT3;
=== Start P120V19; at address 1964/3654
P120V19; (Pprog input and general
program input procedures)
V-store at 03630 = 377 377 377 377 377 377 V0=-1; (A input priority no.)
(V1=A program tape number
V2=A PIU
V3=date)
V-store at 03634 = 001 004 020 101 001 334 V4=B20202020200734;
(V5=A unit preallocation
V6=A store preassignment)
V-store at 03637 = 010 174 062 276 163 064 V7=P [cn]PROG*T;
V-store at 03640 = 207 011 100 312 314 100 V8=B4160450062546100;
V-store at 03641 = 167 012 165 000 000 000 V9=B3560516500000000;
V-store at 03642 = 010 041 236 034 160 000 V10=B0202063607070000;
V-store at 03644 = 003 075 057 312 120 041 V12=B63645762450041;
V-store at 03645 = 332 032 154 206 053 045 V13=B6641515441425445;
V-store at 03650 = 036 020 060 312 371 334 V16=B0741006062574734;
(V17= answer to APROG);
V-store at 03652 = 034 051 002 000 000 000 V18=P [nc]D[cssss];
V-store at 03653 = 171 347 236 172 250 143 V19=P -----JAC;
3654/0: 300 006 147|164 321|304 000 004|170 110 V0P104; SHL-24; SET4; =C4;
3655/4: 300 007 230|047|042|012|033|011|205 144 036|301 007 230 V0; STR; DUP; PERM; NOT; OR; J3P45≠Z; =V0; (only try if V0=1..0);
2; (examine priorities 3-0 in order)
3660/0: 240 104 037 J1P45C4Z;
3660/3: 143 100|167 365|042|164 011|200 047 260 DC4; SHC-6; DUP; SHL+4; J2≥Z;
3662/1: 042|164 007|220 044 037 DUP; SHL+3; J1P45<Z;
3663/1: 042|164 005|220 047 260 DUP; SHL+2; J2<Z;
3664/1: 052|171 110 ERASE; C4;
(N1=lowest unoccupied A priority. None
lower occupied by A programs)
3664/4: 170 122|200 323 220|200 321 243 =M5; JSP30; JS4P10;
(now in priority subprogram)
(check store availability)
3666/0: 200 327 177|200 360 000 JSP117; EXIT1;
3667/0: 170 176|171 162|033|027|300 007 236 =Q7; M7; NOT; NEG; V6;
3670/3: 036|042|171 164|037|220 044 037 -; DUP; I7; SIGN; J1P45<Z;
3671/5: 300 007 236|042|301 126 150 V6; DUP; =V1P104M5;
3673/0: 166 367|027|033|164 035|011 SHLD-5; NEG; NOT; SHL+14; OR;
(check peripheral unit availability)
3674/1: 304 001 254|170 162|041|300 007 235|042|224 150 263 SETB654; =M7; ZERO; V5; DUP; J3=Z;
3676/2: 171 162|304 022 000|056|304 157 254 6; M7; SETB11000; +; SETB67654;
3677/5: 054|170 162|167 377|047|222 147 276 AND; =M7; SHC-1; STR; J6=Z;
3701/2: 171 162|200 323 034|205 044 036 M7; JS1P26; J3P45≥Z;
3702/4: 052|065|304 000 001|164 140|011 ERASE; REV; SET1; SHLC6; OR;
3704/0: 065|042|202 147 276 REV; DUP; J6≠Z;
3704/5: 052|042|012|200 324 336|170 151|164 377 ERASE; DUP; PERM; JSP55; =RC6; SHL-1;
3706/3: 140 140|167 377|047|223 147 306 9; M+I6; SHC-1; STR; J9=Z;
3707/5: 304 377 373|164 041|171 150|011|300 143 014 SET-5; SHL+16; C6; OR; V0P26M6;
3711/4: 056|042|301 143 014|164 031 +; DUP; =V0P26M6; SHL+12;
3712/5: 205 321 220|042|203 147 306|012 JS21P6; DUP; J9≠Z; PERM;
3714/1: 304 000 004|200 327 215|301 126 174 4; SET4; JSP118; =V21P104M5;
3715/4: 052 102; ERASE;
3715/5: 300 120 040|202 321 222|041|304 007 250|042|033|027 100; V24P0M5; JS10P6; ZERO; SETAV16; DUP; NOT; NEG;
[ ---- fold
3720/0: 200 321 224|304 007 251|170 156 JSP8; (ask A prog); SETAV17; =Q6;
3721/2: 200 323 223|205 267 315|171 170|304 000 056|221 027 341 JSP31; J100; C7; SETB56; J101=;
3723/4: 304 000 060|015|202 147 326|200 324 166|205 267 315|201 270 267
SETB60; NEV; J104≠Z; JSP48; J100; J20P121;
3726/2: 156 006 104; CI0TOQ6;
3726/4: 200 323 237|204 267 315|042|164 367|204 147 315 JSP32; J102; (prog no in N1); DUP; SHL-5; J102≠Z;
[ photo 100_1614.JPG
3730/4: 033|027|033|027 103; NOT; NEG; NOT; NEG; (skip OUT 8 print);
3731/2: 164 003|170 162|300 172 322|301 126 230 106; SHL1; =M7; V2P199M7; =V49P104M5;
3733/0: 041|033|301 126 220 ZERO; NOT; =V41P104M5; (no time limit overwriting);
3733/5: 300 172 321|047|304 000 011|167 335|054 V1P199M7; STR; SETB11; SHC-18; AND; (MT bit);
3735/3: 300 007 252|011|065|042|164 255|301 126 300 V18; OR; REV; DUP; SHL-42; =V89P104M5; (REACT no from prog list);
3737/2: 164 061|164 321|011|301 126 224|205 267 371 SHL24; SHL-24; OR; =V45P104M5; J22;
3741/1: 052|304 005 260|200 324 336|015|200 323 034|205 267 315 101; ERASE; SETB2660; JSP55; NEV; JS1P26; J100;
3743/3: 052 ERASE;
11; (TINT T enters here for call tape);
3743/4: 171 150|301 007 232|300 126 204|167 365|300 007 241|056 C6; =V2; V29P104M5; SHC-6; V9; +;
3746/0: 300 143 014|164 075|164 305|011|205 321 220 V0P26M6; SHL30; SHL-30; OR; JS21P6;
(read A-block);
3747/5: 154 147|200 330 345|200 326 132 C6TOQ7; JSP126; JSP102;
3751/1: 125 160|041|200 321 230 PIBQ7; ZERO; JSP10;
3752/1: 121 160|200 347 354 PARQ7; J14NTR;
3753/0: 304 000 001|200 270 266 SET1; JP121;
3754/0: 171 164|170 142|110 140|301 126 230 14; I7; =M6; M0M6N; =V49P104M5;
3755/3: 100 140|042|301 126 224|200 327 225 M0M6; DUP; =V45P104M5; JSP119;
3757/0: 304 000 002|200 270 266 16; SET2; JP121;
3760/0: 171 176 Q7; (perserve);
3760/2: 041|033|042|301 126 220|027 ZERO; NOT; DUP; =V41P104M5; (no T); NEG; (one REACT);
3761/3: 171 142|033|027|033|027|170 156 M6; NOT; NEG; NOT; NEG; =Q6; (E2);
3762/5: 200 323 223|017|041 18; JSP31; DUMMY; ZERO;
3763/4: 052 12; ERASE; (C7 is ~ ; +);
3763/5: 171 170|304 000 033|225 030 012|304 000 034|225 030 014 1; C7; SETB33; J5=; SETB34; J7=;
3766/1: 304 000 035|015|222 150 017 SETB35; NEV; J8=Z; (special are ~ ; +);
3767/2: 301 126 300|170 176 24; =V89P104M5; =Q7; (A block accepted so store JAC and REACT);
3770/1: 304 000 060|015|223 150 060|200 330 327 SETB60; NEV; J30=Z; JSP123;
22; (program to be read from mag tape.
progs specified by number and OUT1 enter here);
3771/5: 300 126 224|164 305|304 160 244|220 031 354 V45P104M5; SHL-30; SETB70244; JP190=;
3773/4: 304 160 255|015|200 147 357 SETB70255;NEV; J16≠Z; (CRNP if not M);
3774/5: 200 330 336|110 140|042|170 142 JSP124; M0M6N; DUP; =M6;
3776/1: 170 170|261 170 032 =C7; J21C7NZ;
3777/0: 300 126 230|300 126 224|164 061|164 365 19; V49P104M5; V45P104M5; SHL+24; SHL-6;
4000/4: 300 126 204|304 000 001|043|164 133|011 V29P104M5; SET1; DUPD; SHL+45; OR;
4002/2: 301 126 204|054|304 003 341|056 =V29P104M5; AND; SETB1741; +;
4003/4: 166 351|052|200 324 336|166 365|052 SHLD-12; ERASE; JSP55; SHLD-6; ERASE;
4005/1: 300 007 240|300 007 237|202 321 216 V8; V7; JS40P6;
4006/4: 200 321 243 20; JS4P10;
4007/1: 300 126 204|164 005|205 047 371 V29P104M5;; SHL+2; J22≥Z;
4010/3: 300 126 204|164 003|204 050 006 V29P104M5; SHL+1; J20≥Z;
4011/5: 304 000 011|200 270 266 SET9; JP121;
4012/5: 202 323 252|017|017|017|301 126 220|204 267 363 5; (~); JS10P32; DUMMY; DUMMY; DUMMY; =V41P104M5; J12; [ note ~ is subscript 10
4014/5: 052|202 323 252|017|065 7; (;) ERASE; JS10P32; DUMMY; REV;
4015/5: 065 55; REV;
4016/0: 166 335|052|167 041|205 267 363 15; SHLD-18; ERASE; SHC16; J1;
4017/2: 041|304 000 006|170 130 8; (+); ZERO; SET6; =C5;
4020/2: 200 323 223|202 270 024|164 015|171 170|011|042|164 125|200 050 024
17; JSP31; J13; SHL6; C7; OR; DUP; SHL42; J10≥Z;
4023/1: 143 120|262 130 020 DC5; J17C5NZ;
4024/0: 164 365 10; SHL-6;
4024/2: 164 015|042|202 050 024|205 270 015 13; SHL6; DUP; J13≥Z; J55;
25; (program not on tape);
4025/5: 171 170|170 142|200 331 005 C7; =M6; JSP135;
4027/0: 200 330 336|041|111 140|200 267 377 JSP124; ZERO; =M0M6N; J19;
4030/3: 171 170|170 142|200 331 005|205 267 371 105; C7; =M6; JSP135;J22; ( abandon search);
4032/1: 300 126 204|164 007|041|033|050|164 373|301 126 204 21; V29P104M5; SHL+3; ZERO; NOT; CONT; SHL-3; =V29P104M5;
4034/2: 300 143 014|164 061|164 255|304 000 043|015 V0P26M6; SHL+24; SHL-42; SETB43; NEV;
4036/1: 220 147 377 J19=Z;
4036/4: 041|300 143 014|164 061|166 305|164 351 ZERO; V0P26M6; SHL+24; SHLD-30; SHL-12;
[ --- fold
4040/2: 304 000 054|015|011|204 150 006 SETB54; NEV; OR; J20≠Z;
4041/4: 300 143 014|200 324 336|011|301 143 014 V0P26M6; JSP55; OR; =V0P26M6;
4043/2: 153 007|134 160|041|200 321 230 23; IM0TOQ7; PMAQ7; ZERO; JSP10;
4044/4: 121 160|223 350 045 PARQ7; J28TR; [ sic
4045/3: 122 160|225 350 025 28; PMFQ7; J25TR;
[ - end of photo
4046/2: 120 164|202 350 043 PMCQ7; J23NTR;
[ photo 100_1615.JPG
4047/1: 200 330 345|200 326 132|124 160|041|200 321 230 JSP126; JSP102; PIAQ7; ZERO; JSP10;
4051/1: 121 160|220 350 052 PARQ7; J29TR; [ sic
4052/0: 120 164|122 160|225 350 025 29; PMCQ7; PMFQ7; J25TR;
4053/1: 300 126 204|164 007|203 050 030 V29P104M5; SHL+3; J105≥Z;
4054/3: 171 164|170 142|100 140|300 126 224 I7; =M6; M0M6; V45P104M5;
4056/0: 200 331 012|110 140|300 126 230|200 331 012|011 JSP137; M0M6N; V49P104M5; JSP137; OR;
4060/0: 202 150 043 J23≠Z;
30; (read B-block)
4060/3: 041|033|301 100 024 ZERO; NOT; =E20M4;
4061/2: 200 326 132|124 160|041|200 321 230 JSP102; PIAQ7; ZERO; JSP10;
4062/5: 121 160|204 350 064 PARQ7; J31NTR;
4063/4: 304 000 004|200 330 266 131; SET4; JSP121;
4064/4: 171 164|170 142|300 140 002|300 126 224|200 331 012 31; I7; =M6; E2M6; V45P104M5; JSP137;
4066/5: 300 140 003|300 126 230|200 331 012|011|220 150 072 E3M6; V49P104M5; JSP137; OR; J32=Z;
4071/0: 304 000 005|200 270 266 SET5; JP121;
32; (check and assign store requirement)
4072/0: 110 140|164 061|164 321|300 126 150 M0M6N; SHL+24; SHL-24; (req); V1P104M5; (limit)
4073/3: 042|012|221 150 077 DUP; PERM; J60=Z;
4074/2: 042|224 150 121 DUP; J33=Z;
4075/0: 042|066|037|205 110 122 37; DUP; CAB; SIGN; J34≤Z;
4076/0: 052 63; ERASE;
4076/1: 304 000 006|200 270 266 39; SET6; JP121;
4077/1: 065|052|042|220 150 102 60; REV; ERASE; DUP; J61=Z;
4100/1: 300 004 035|300 007 176|036|065|200 270 075 V0P45; V0P117; -; REV; J37;
4102/0: 171 176|301 126 150 61; (zero limit and req); Q7; =V1P104M5;
4102/5: 052|300 006 021|200 327 177|041|017|017 62; ERASE; V1P101; JSP117; ZERO; DUMMY; DUMMY;
4104/3: 164 301|164 023|300 120 021|056|042|301 120 021 SHL-32; SHL+9; V9P0M5; +; DUP; =V9P0M5;
4106/3: 164 061|164 265|033|027|164 013 SHL+24; SHL-38; NOT; NEG; SHL+5;
4107/5: 067|300 007 234|011|301 007 246 FRB; V4; OR; =V14;
4111/1: 300 120 040|200 324 336|011|301 007 243 V24P0M5; JSP55; OR; =V11;
4112/5: 041|304 007 243|304 007 247|200 321 224 ZERO; SETAV11; SETAV15; JSP8;
4114/3: 304 007 247|170 156|202 323 253 SETAV15; =Q6; JS11P32; (read ans from V15);
4115/5: 052|042|017 ERASE; DUP; DUMMY; (no size means full store);
4116/2: 042|066|037|225 110 102 DUP; CAB; SIGN; J62>Z;
4117/2: 300 126 150|170 176|171 164|170 142|042|200 110 076 V1P104M5; =Q7; I7; =M6; DUP; J63≤Z;
4121/3: 041 ZERO;
4121/4: 052|042|110 140 33; ERASE; DUP; M0M6N;
4122/2: 011|111 140 OR; =M0M6N;
4122/5: 027|033|164 367 34; NEG; NOT; SHL-5;
4123/3: 042|300 120 021|164 061|164 265 35; DUP; V9P0M5; SHL+24; SHL-38;
4124/5: 037|200 110 135 SIGN; J38≤Z;
4125/3: 171 176|200 327 177|203 270 131 Q7; JSP117; J36;
4126/5: 164 301|164 023|300 120 021|056 SHL-32; SHL+9; V9P0M5; +;
4130/1: 301 120 021|170 176|203 270 123 =V9P0M5; =Q7; J35;
4131/3: 065|301 126 150 36; REV; =V1P104M5;
4132/1: 304 000 001|041|066|200 330 377|201 270 076 SET1; ZERO; CAB; JSP134; J39;
4134/0: 300 126 150|203 270 123 V1P104M5; J35;
4135/0: 300 120 021|167 321|164 025|011|167 035 38; V9P0M5; SHC-24; SHL+10; OR; SHC+14;
4136/4: 301 120 021|041 =V9P0M5; ZERO;
40; (check filler word);
4137/2: 301 126 150|100 160|170 156 =V1P104M5; M0M7; =Q6;
4140/3: 153 147|304 000 006|171 164|037|171 162|171 164 IM6TOQ7; SET6; I7; SIGN; M7; I7;
4142/3: 037|033|054|171 162|037|171 162|171 164 SIGN; NOT; AND; M7; SIGN; M7; I7;
4144/1: 164 013|170 142|110 140|164 061|164 321 SHL+5; =M6; M0M6N; SHL+24; SHL-24;
4145/5: 037|054|224 050 147 SIGN; AND; J41<Z;
4146/4: 304 000 007|200 270 266 SET7; JP121;
41;
4147/4: 300 100 024|262 150 151|041|301 100 024 E20M4; J141C6NZ; ZERO; =E20M4;
4151/2: 042|200 050 156|052 141; DUP; J143≥Z; ERASE;
4152/1: 200 330 352 JSP128;
[ --- fold
4152/4: 200 326 132|124 160|041|200 321 230 JSP102; PIAQ7; ZERO; JSP10;
4154/1: 121 160|202 350 160 PARQ7; J42NTR;
4155/0: 304 000 010|200 270 266 142; SET8; JP121;
4156/0: 154 007|171 176|065|200 330 352|200 321 232|200 270 155 143; C0TOQ7; Q7; REV; JSP128; JS3P10; J142; (C block from disc);
4160/2: 171 162|171 164|042|170 143|036|170 150|300 126 150 42; M7; I7; DUP; =RM6; -; =C6; V1P104M5;
[ photo 100_1616.JPG
4162/3: 017|017|017|242 150 164|102 140|056|177 140 *51; J52C6Z; M0M6Q; +; J51C6NZS;
4164/2: 300 100 024|202 150 137 52; E20M4; J40≠Z;
(check C-block sum);
4165/2: 100 160|015|300 120 021|164 013|170 162 M0M7; NEV; V9P0M5; SHL+5; =M7;
4167/0: 100 160|164 061|222 150 171 M0M7; SHL+24; J53=Z;
4170/1: 304 000 003|065|200 150 266 SET3; REV; JP121≠Z;
53; (dispose of input unit)
4171/2: 052|243 170 205|171 170|170 142|300 143 014 ERASE; J47C7Z; C7; =M6; V0P26M6;
4173/1: 042|164 043|222 050 175 DUP; SHL+17; J43<Z;
4174/1: 052|200 330 327|203 270 205 ERASE; JSP123; J47;
4175/2: 300 160 005|205 050 203 43; E5M7; J45≥Z;
4176/2: 304 000 001|164 160|300 126 170|011 SET1; SHLC7; V17P104M5; OR;
4177/5: 301 126 170|167 321|164 015|304 000 043 =V17P104M5; SHC-24; SHL+6; SETB43;
4201/3: 011|167 045|171 170|301 160 005|200 325 031|203 270 205 OR; SHC+18; C7; =E5M7; JS13P58; J47;
4203/5: 052|300 010 317|301 160 005|200 331 005 45; ERASE; V0P122; =E5M7; JSP135;
4205/3: 200 330 336|100 140|171 122|015|200 150 210|041|033|101 140 47; JSP124; M0M6; M5; NEV; J44≠Z; ZERO; NOT; =M0M6;
44; (OUT 2 enters here)
4210/0: 300 120 021|164 013|170 142|100 140 V9P0M5; SHL+5; =M6; M0M6;
4211/3: 300 126 210|166 061|167 061|101 140 V33P104M5; SHLD+24; SHC+24; =M0M6;
4213/0: 300 126 220|042|224 050 215 V41P104M5; DUP; J54<Z;
4214/1: 110 140|164 061|065|166 061|111 140 M0M6N; SHL24; REV; SHLD24; =M0M6N;
4215/4: 052 54; ERASE;
4215/5: 301 126 210|300 126 204 =V33P104M5; V29P104M5;
4216/5: 041|301 126 204|304 000 002|204 327 150 ZERO; =V29P104M5; SET2; JS94P105;
4220/3: 041|301 126 150|300 007 233|301 140 007 ZERO; =V1P104M5; V3; =E7M6; [ put today's date in prog's E7
4222/1: 300 140 003|300 140 002|300 126 300|033|027|042|202 050 227 E3M6; E2M6; V89P104M5; NOT; NEG; DUP; J46≥Z; (jump if no JAC);
4224/4: 065|164 321|166 061|012|300 007 253|166 015|167 365|065|052|012
REV; SHL-24; SHLD24; PERM; V19; SHLD6; SHC-6; REV; ERASE; PERM;
4227/2: 052|043|301 126 214|301 126 220|304 040 002|164 061|036 46; ERASE; DUPD; =V37P104M5; =V41P104M5; SETB20002; SHL24; -; (removeCR);
4231/4: 164 015|200 324 336|011|167 365 SHL+6; JSP55; OR; SHC-6;
4233/0: 066|300 120 040|304 000 033|011|065 CAB; V24P0M5; SETB33; OR; REV;
4234/3: 167 375|224 050 254|300 004 347|167 031|300 000 010 SHC-2; J48<Z; V0P57; SHC+12; V0P0;
4236/4: 042|301 126 234 DUP; =V53P104M5;
4237/2: 161 321|304 000 036|056|067 SHA-24; SET 30; +; FRB; [ sic
4240/3: 300 000 037|164 003|011|300 007 233|164 335 V23P0; SHL+1; OR; V3; SHL-18;
4242/2: 166 045|164 365|166 351|164 015|166 321 SHLD+18; SHL-6; SHLD-12; SHL+6; SHLD-24;
4244/0: 304 041 302|164 031|011|166 045|304 000 005 SETB20702; SHL+12; OR; SHLD18; SET5;
4245/5: 200 321 206 49; JSP6;
4246/2: 304 000 005|204 322 255|041|200 322 240 SET5; JS159P23; ZERO; JS157P23;
4250/0: 041|033|301 126 240 ZERO; NOT; =V57P104M5;
4250/5: 200 321 244 65; JS50P10;
4251/2: 041|301 126 240 ZERO; =V57P104M5;
4252/0: 300 126 204|221 042 013 V29P104M5; J11P15<Z; (job terminated);
4253/0: 041|203 323 075 64; ZERO; JS6P29;
4253/4: 201 260 345 50; J2P2; (forcible entry);
4254/1: 200 360 000 EXIT1;
48; (OUT 1 only);
4254/4: 052|052|052 ERASE; ERASE; ERASE;
4255/1: 300 126 154|014|114 006 V5P104M5; ROUNDH; M6M0HN;
4256/1: 056|115 006 +; =M6M0HN; (time limit);
4256/4: 300 126 300|164 075|220 050 253 V89P104M5; SHL30; J64<Z; (jump if in failure path);
4260/0: 203 323 072|200 320 115|203 323 072|200 320 115 JS3P29; JS35P0; JS3P29; JS35P0; (erase ident);
4262/0: 203 323 074|200 320 115|052|200 270 253 JS5P29; JS35P0; ERASE; J64; (erase link address);
4263/4: 066|201 267 314 3; CAB; J4;
=== Start P121V0; at address 2230/4266
P121V0; (CRNP failure-number given in N1)
V-store at 04265 = 062 074 256 300 304 020 V0=P *CRNP*00;
4266/0: 300 010 265|011|205 321 220 V0; OR; JS21P6;
4267/1: 200 330 336|151 147|300 126 204 20; JSP124; M6TOQ7; V29P104M5;;
4270/3: 100 160|171 122|015|203 150 272|041|033|101 160 M0M7; M5; NEV; J21≠Z; ZERO; NOT; =M0M7;
4272/3: 304 000 005|301 126 204 21; SET5; =V29P104M5;
4273/3: 200 324 336|304 021 120|015|200 323 034 JSP55; SETB10520; NEV; JS1P26;
[ --- fold
4275/1: 202 270 276 J1;
4275/4: 052|200 331 005 ERASE; JSP135;
4276/2: 167 375|201 050 300 1; SHC-2; J2≥Z;
(CRNP failure in OUT 1)
4277/1: 304 000 005|201 261 367 SET5; J1P15;
[ --- end of photo
4300/1: 300 160 002|170 170|243 170 302 2; E2M7; =C7; J3C7Z;
4301/3: 120 161|041|301 160 002 MANUALQ7; ZERO; =E2M7;
[ photo 100_1617.JPG
4302/3: 300 143 014|170 156 3; V0P26M6; =Q6;
4303/2: 102 140|052|242 150 306 4; M0M6Q; ERASE; J10C6Z;
4304/2: 200 330 342|202 270 303 JSP125; J4;
4305/2: 201 323 051|202 270 303 JS1P27; (make unit U); J4;
10; (clear BA/NOL, PHU, etc.);
4306/2: 041|301 126 214|041|301 126 220 ZERO; =V37P104M5; ZERO; =V41P104M5;
4307/4: 041|301 126 210|300 120 021|042|201 327 153|042 ZERO; =V33P104M5; V9P0M5; DUP; JS95P105; DUP;
4311/4: 304 317 377|164 007|164 373|033|054|200 331 006 SETB147777; SHL+3; SHL-3; NOT; AND; JSP136;
4313/4: 300 006 147|167 140|164 011|142 140|164 371 V0P104; SHCC6; SHL+4; NC6; SHL-4;
4315/3: 167 140|301 006 147|200 360 000 SHCC6; =V0P104; EXIT1;
=== Start P122V1; at address 2257/4321
P122V1; (check given word as mag tape identifier)
V-store at 04317 = 152 246 265 152 346 253 V0=B3252326532563253;
V-store at 04320 = 377 353 277 377 377 360 V1=B377727377777777/43;
4321/0: 042|304 000 077|054 DUP; SETB77; AND;
4321/5: 170 170|042|220 144 037 1; =C7; DUP; J1P45=Z;
4322/5: 300 010 320|041|166 160|065|052 2; V1; ZERO; SHLDC7; REV; ERASE;
4324/1: 166 067|166 015|042|225 050 321 SHLD+27; SHLD+6; DUP; J1<Z;
4325/3: 052|052|300 010 317|202 360 001 ERASE; ERASE; V0; EXIT2;
=== Start P123V-1; at address 2263/4327
P123; (dispose of program input PTR, given in C7)
4327/0: 171 170|170 142|300 143 014|042|164 061 C7; =M6; V0P26M6; DUP; SHL+24;
4330/4: 164 255|304 000 065|015|201 150 333 SHL-42; SETB65; NEV; J1≠Z;
4332/1: 120 161|164 365|164 015 MANUALQ7; SHL-6; SHL+6;
4333/1: 301 143 014 1; =V0P26M6;
4333/4: 200 330 336|041|301 140 002|200 360 000 JSP124; ZERO; =E2M6; EXIT1;
=== Start P124V-1; at address 2270/4336
P124; (set AV0P52 or AV0P120 in M6 if program begin
input to priority given by M5 is B or A
respectively)
4336/0: 300 126 204|167 377|222 050 340 V29P104M5; SHC-1; J1<Z;
Warning: V0P129 is out of range, only 0 V-stores specified
4337/2: 304 010 357|205 270 340 SETAV0P129; J2;
4340/2: 304 004 211 1; SETAV0P52;
4340/5: 170 142|200 360 000 2; =M6; EXIT1;
=== Start P125V-1; at address 2274/4342
P125; (given unit number in M6, chack if valid
and owned by priority in M5)
4342/0: 300 143 014|200 324 336|015|167 003|164 123|201 144 037 V0P26M6; JSP55; NEV; SHC+1; SHL+41; J4P45≠Z;
4344/2: 202 360 001 EXIT2;
=== Start P126V-1; at address 2277/4345
P126; (given priority no. in M5, set base address in
I7 and base address+7 in M7)
4345/0: 152 007|304 000 007|170 162|200 270 352 I0TOQ7; SET7; =M7; JP128;
=== Start P127V-1; at address 2279/4347
P127; (check given word for D0=1 and D1-11 all the same
I.E. parameter in flex queue)
4347/0: 042|200 050 351 DUP; J1≥Z;
4347/4: 042|164 003|161 251|221 144 037 DUP; SHL1; SHA-44; J4P45=Z; (now D1-5 not D1-11);
4351/0: 202 360 001 1; EXIT2;
=== Start P128V-1; at address 2282/4352
P128; (add base address of priority in M5 to I7 and M7)
4352/0: 300 120 021|164 115|164 277|042 V9P0M5; SHL+38; SHL-33; DUP;
4353/2: 172 164|172 162|200 360 000 =+I7; =+M7; EXIT1;
4354/3: 300 126 224 1; V45P104M5;
4355/0: 170 176|200 270 352 2; =Q7; JP128;
4355/5: 300 100 024|200 270 355 3; E20M4; J2;
=== Start P129V-1; at address 2287/4357
P129; (look for item corresponding to Q7 in flex queue)
[ --- fold
4357/0: 304 001 105|170 143 SETAV0P6; =RM6;
4357/5: 102 140|200 330 347 1; M0M6Q; JSP127;
4360/4: 205 270 361 J2; (parameters)
4361/1: 052|205 270 357 ERASE; J1;
4361/5: 042|171 176|015|164 041|220 144 037 2; DUP; Q7; NEV; SHL+16; J1P45=Z; (in queue)
4363/2: 033|205 150 357 3; NOT; J1≠Z;
4364/0: 202 360 001 EXIT2; (not in queue)
[ photo 100_1618.JPG
=== Start P131V-1; at address 2293/4365
P131; (leaves 3 times M6 in N1)
4365/0: 171 142|042|164 003|056|200 360 000 M6; DUP; SHL+1; +; EXIT1;
=== Start P132V-1; at address 2295/4367
P132; (check length of given mag tape identifier)
4367/0: 164 255|304 000 035|015|201 144 037|202 360 001 SHL-42; SETB35; NEV; J4P45≠Z; EXIT2;
=== Start P133V-1; at address 2297/4371
P133; (housekeeping for OUT involving
peripheral transfer. Checks given parameters,
copies to V45P104M5 and, with BA added, to Q7)
4371/0: 042|301 126 224|170 176 DUP; =V45P104M5; =Q7;
4372/0: 171 164|042|171 162|066|037|011 I7; DUP; M7; CAB; SIGN; OR;
4373/2: 300 120 021|164 061|164 265|171 162|164 367 V9P0M5; SHL+24; SHL-38; M7; SHL-5;
4375/1: 037|011|221 044 037 SIGN; OR; J4P45<Z; (fail)
4376/0: 200 330 352|202 360 001 JSP128; EXIT2;
=== Start P134V-1; at address 2303/4377
P134; (hold up subprogram during program input.
examine V29P104M5 for TINT A termination)
4377/0: 300 126 204|164 007|033|027|167 373 V29P104M5; SHL+3; NOT; NEG; SHC-3;
4400/3: 301 126 204|203 321 232|300 126 204|042 =V29P104M5; JS2P10; V29P104M5; DUP;
4402/1: 164 007|164 373|301 126 204|164 003|221 044 037 SHL+3; SHL-3; =V29P104M5; SHL+1; J4P45<Z;
4404/1: 202 360 001 EXIT2;
=== Start P135V-1; at address 2309/4405
P135; (dispose of program tape given in M6)
4405/0: 304 042 000|201 266 014 SETB21000; J10P100;
=== Start P136V-1; at address 2310/4406
P136; (store new BA/NOL, check lock outs cleared from
old area, clear PHU , no LOon);
4406/0: 301 120 021|042|304 060 000|054 =V9P0M5; DUP; SETB30000; AND;
4407/2: 304 300 000|011|175 100|065 SETB140000; OR; =K1; REV;
4410/3: 205 327 114|124 162|200 264 037 JS86P105; CLOQ7; J1P45;
=== Start P137V-1; at address 2314/4412
P137; (form N1 NEV N2, clear characters
corresponding to - in N1)
4412/0: 042|304 000 010|170 150 DUP; SET8; =C6;
4413/0: 041|166 015|304 000 036|032 1; ZERO; SHLD+6; SETB36; MAX;
4414/1: 037|164 255|011|143 140|260 151 013 SIGN; SHL-42; OR; DC6; J1C6NZ;
4415/4: 012|015|054|200 360 000 PERM; NEV; AND; EXIT1;
=== Start P138V-1; at address 2319/4417
P138; (change bit in V17P104M5)
4417/0: 304 000 001|164 140|300 126 170|015|301 126 170|200 360 000 SET1; SHLC6; V17P104M5; NEV; =V17P104M5;; EXIT1;
=== Start P139V-1; at address 2322/4422
P139; (given area in i7, m7, clears C7, leaves
subprogram via exit1- no extra links
saved, resume when area not locked
out and OUT 8 subprogram dead)
4422/0: 154 007|304 000 001|200 321 232 C0TOQ7; SET1; JS3P10;
4423/2: 300 100 001|200 151 022 1; E1M4; JP139≠Z;
4424/2: 200 360 000 EXIT1;
=== Start P154V-1; at address 2325/4425
4425/0: 017 P154; DUMMY; (this is V-1P155);
=== Start P155V13; at address 2340/4444
P155V13; (process OUT 8 queues, D.H.24/11/67 adapted for Oxford)
V-store at 04426 = 000 000 040 032 005 001 V0=B 4006402401; (selection characters);
V-store at 04427 = 060 303 014 243 054 302 V1=p ****HRS[c];
V-store at 04430 = 017 377 377 377 000 300 V2=B 0377777777600300;
[ ---- fold
V-store at 04431 = 166 273 365 323 015 164 V3=P +KOUTPUT;
(V4=number of streams to go);
V-store at 04433 = 363 377 377 377 377 377 V5=B 7477777777777777;
V-store at 04434 = 000 000 006 172 144 212 V6=B 636462212; (STR 10,SHL-3);
(V7-11 is director buffer);
[ photo 100_1619.JPG
V-store at 04442 = 303 052 156 322 133 244 V12=P PRINTEND; (ident of last OUT 8 tape);
V-store at 04443 = 101 012 020 102 324 020 V13=P 00H00M00;
4444/0: 041 ZERO;
4444/1: 041|033|301 002 217 ZERO; NOT; =V4P23;
4445/0: 002|157 004|300 002 214|170 176|245 171 051 93; =TR; Q0TOQ4; V1P23; =Q7; (L queue); J99C7Z; (jump if no L tape);
4446/5: 120 162|225 351 107 BUSYQ7; J100TR; (L tape busy);
4447/4: 300 002 213|042|225 151 225 V0P23; DUP; J101=Z; (if Q empty nothing to do);
4450/5: 200 331 114|205 271 107 JS1; J100; (process queue and go on to N tape);
4451/5: 300 011 032|205 051 107 99; (no L tape); V4; J100≥Z; (jump if no TINT J);
4452/5: 200 331 323|304 000 011|170 151|304 000 003|170 144|167 015|027|033|167 365
JSP161; SET9; =RC6; SET3; =I6; SHC6; NEG; NOT; SHC-6;
(N1 = second half of current tape ident);
4456/0: 302 146 025|225 031 057 *98; V5P101M6Q; J96=;
4457/0: 177 140|204 271 064 97; J98C6NZS; J91; (look for last tape still loaded);
4457/5: 300 011 031|300 146 021|015|200 151 057 96; V3; V1P101M6; NEV; J97≠Z; (first half of tape ident);
4461/3: 171 150|027|170 142|300 143 033|164 061|164 255 C6; NEG; =M6; V15P26M6; SHL24; SHL-42; (status ;letter);
4463/3: 304 000 065|015|204 151 107 SETB65; NEV; J90≠Z; (not unloaded or relabelled);
4464/4: 304 000 004|170 131|300 011 320|033|027|301 011 320 91; (switch); SET4; =RC5; V0P161; NOT; NEG; =V0P161;
4466/5: 300 011 025|301 011 032 V-1; =V4;
4467/5: 300 126 240|042|041|037|027|050|303 126 240 95; V57P104M5; DUP; ZERO; SIGN; NEG; CONT; =V57P104M5Q;
4471/4: 265 131 067 J95C5NZ; (set top bit of V57P104M5 one); [ sic - or shouLd it be 0ne?
4472/1: 300 002 215|042|301 002 213 V2P23; DUP; =V0P23;
4473/2: 300 002 216|065|205 151 075 V3P23; REV; J92≠Z; (Q empty);
4474/3: 304 002 213|166 341|052|167 041 SETAV0P23; SHLD-16; ERASE; SHC16;
4475/5: 301 002 214|041|301 002 215|304 002 215|301 002 216|200 271 045
92; =V1P23; ZERO; =V2P23; SETAV2P23; =V3P23; J93;
4500/3: 304 017 377 162; SETB7777; (programmer transfer);
4501/0: 300 011 322|066|201 331 324|164 031|011|164 015|171 130 163; V2P161; CAB; JS2P161; SHL12; OR; SHL6; C5;
4503/2: 011|164 015|300 126 163|164 245|164 007|027|170 150 OR; SHL6; V12P104M5; SHL-46; SHL3; NEG; =C6;
4505/3: 300 011 026|164 140|304 000 077|054|011|200 360 000 V0; SHLC6; SETB77; AND; OR; EXIT1; (form first word of block);
4507/4: 052 90; ERASE;
100; (deal with N tape);
4507/5: 300 002 216|304 000 002|170 102|170 176|244 171 252 V3P23; SET2; =M4; =Q7; J102C7Z; (jump if no N tape);
4512/0: 120 162|221 344 037 BUSY Q7; J4P45TR; (N ttape busy);
4512/5: 300 002 215|042|220 144 037 V2P23; DUP; J1P45=Z; (if queue empty);
4514/0: 122 160|225 351 275 1; METQ7; J112TR; (jump if EOT met);
4514/5: 300 003 367|201 051 274 V1P42; J113≥Z; (software ETW);
4515/5: 121 160|041|002|042|170 156|042|225 051 121 7; PARQ7; ZERO; =TR; DUP; =Q6; DUP; J11<Z; (if programmer transfer);
4517/4: 304 011 035|042|170 164|170 162|124 164|220 344 037 SETAV7; DUP; =I7; =M7; TLOQ7; J1P45TR; (if V7 locked out);
4521/5: 042|047|052|041|166 031|170 130 11; DUP; STR; ERASE; ZERO; SHLD12; =C5; (C5 is coded stream);
4523/1: 153 147|164 251|042|170 142|164 377|042|170 122 IM6TOQ7; SHL-44; DUP; =M6; SHL-1; DUP; =M5;
4525/1: 164 031|304 240 000|056|175 100|052 SHL12; SETB120000; +; =K1; ERASE; (set CPL);
4526/4: 171 162|304 000 002|221 031 133|164 377|205 151 131 M7; SET2; J12=; SHL-1; J2≠Z;
4530/5: 042|033|027|205 271 137 (three stream header blocks so); DUP; NOT; NEG; J3;
4531/5: 300 141 261|047|065|301 141 261 2; V11P11M6; STR; REV; =V11P11M6; (clear queued transfer);
4533/1: 052|171 164|170 143|100 140 12; ERASE; I7; =RM6; M0M6;
4534/2: 042|205 151 137 DUP; J3≠Z;
4535/0: 300 102 214|304 002 213|171 102|056|166 341|052|167 041|301 102 214
V1P23M4; SETAV0P23; M4; +; SHLD-16; ERASE; SHC16; =V1P23M4; (reset empty queue);
4537/5: 301 102 213 3; =V0P23M4; (update queue);
4540/2: 202 051 143|171 162|171 164|036 J6≥Z; M7; I7; -;
4541/4: 203 331 100 16; JS162;
4542/1: 101 140 9; =M0M6; (first word);
4542/3: 130 160 4; MWQ7;
4542/5: 200 360 000 5; EXIT1;
[ ---- fold
6; (Director transfer);
4543/2: 171 162|042|164 371|205 151 147 M7; DUP; SHL-4; J60≠Z; (OUT 16);
4544/4: 304 011 035|042|170 164|170 143|204 320 373|200 320 115|174 000|202 371 152
SETAV7; DUP; =I7; =RM6; JS11P3; JS35P0; =LINK; EXITAR8;
[ --- end of photo
4547/5: 171 164|036|304 017 352|200 331 101|201 271 142 60; I7; -; SETB7752; JS163; J9; (J type);
[ photo 100_1620.JPG
4551/5: 017|202 271 163|202 271 164|200 271 205|200 271 155|201 271 222|205 271 210
*8; J20; J21; J22; J23; J24; J25;
23; (stream terminator);
4555/0: 304 017 372|171 102|224 151 157|300 011 032|027|033|301 011 032
SETB7772; M4; J33=Z; V4; NEG; NOT; =V4;
4557/4: 300 011 030|113 140|304 000 001|065 33; V2; =M0M6QN; SET1; REV;
4561/1: 200 331 101|301 011 035|151 147|130 170|200 360 000 JS163; =V7; M6TOQ7; MLWQ7; EXIT1;
20; (header block); (one);
4563/2: 304 017 341|204 271 157 SETB7741; J33;
4564/2: 300 007 233 21; (header block 2); V3P120; (date);
4564/5: 300 120 020|164 013|170 102|300 100 003|300 100 002 V8P0M5; SHL5; =M4; E3M4; E2M4;
4567/0: 166 061|113 140 SHLD24; =M0M6QN; (idnet first 8); [ sic
4567/4: 300 126 277|033|027|041|166 045|066|011|113 140 V88P104M5; NOT; NEG; ZERO; SHLD18; CAB; OR; =M0M6QN; (iii*jjj);
4571/4: 164 271|164 075|166 015|113 140 SHL-36; SHL30; SHLD6; =M0M6QN; (jj****d);
4573/0: 304 000 002|011 SET2; OR;
4573/4: 113 140|171 156|027 31; =M0M6QN; Q6; NEG;
4574/3: 203 331 100 34; JS162;
4575/0: 301 011 035 10; =V7;
4575/3: 151 147|203 271 142 32; M6TOQ7; J4;
4576/2: 300 004 347|167 031|300 000 010|161 321|067|300 011 043|011 35; V0P57; SHC12; V0P0; SHA-24; FRB; V13; OR; (ddHddMdd);
4600/5: 300 120 020|164 061|164 265|033|027|164 013|203 331 323 V8P0M5; SHL24; SHL-38; NOT; NEG; SHL5; JS1P161;
4603/1: 164 031|304 015 344|011|164 015 SHL12; SETB6744; OR; (dddddWd); SHL6;
4604/3: 200 360 000 EXIT1;
4605/0: 202 331 176 22; JS35;
4605/3: 171 130|166 373|164 011|300 011 034|011|166 007|164 015 C5; SHLD-3; SHL4; V6; OR; SHLD3; SHL6; (STR**);
4607/5: 203 331 216|203 271 174 JS36; J34;
4610/5: 304 017 363|202 331 176 25; SETB7763; JS35;
4611/5: 300 126 217|300 126 213|166 031 70; V40P104M5; V36P104M5; SHLD12;
4613/1: 304 000 002|164 351|036|113 140|164 351 SET2; SHL-12; -; =M0M6QN; SHL-12;
4614/5: 203 331 216 JS36;
4615/2: 065|200 331 101|200 271 175 38; REV; JS163; J10;
4616/3: 166 031|113 140|164 351|166 031|113 140|304 014 302|011 36; SHLD12; =M0M6QN; SHL-12; SHLD12; =M0M6QN; SETB6302; OR;
4620/5: 113 140|171 150|027|200 360 000 37; =M0M6QN; C6; NEG; EXIT1;
4622/1: 304 017 345 24; SETB7745;
4622/4: 300 126 243|113 140 V60P104M5; =M0M6QN;
4623/3: 300 126 237|113 140 V56P104M5; =M0M6QN;
4624/2: 300 126 233|205 331 220|202 271 215 V52P104M5; JS37; J38;
4625/5: 052|304 000 004|170 151|300 004 211|033 101; (L queue empty); ERASE; SET4; =RC6; V0P52; NOT; (B prog input);
4627/3: 302 146 240|011|263 151 227|225 051 107 75; V57P104M6Q; OR; J75C6NZ; (streams open); J100<Z; (not yet);
4631/1: 300 005 274|203 151 245 V0P69; J107≠Z; (suppress printing if TINT WEGDON);
4632/1: 200 324 263|205 271 107 JS20P52; J100; (select highest priority);
4633/1: 171 176|200 327 177|204 271 107 77; Q7; JSP117; J90; (store in N1);
4634/3: 300 003 366|170 170 V0P42; =C7; (-5 for JAC);
4635/2: 164 261|164 160|224 151 107 SHL-40; SHLC7; J90=Z; (check 256 or 8192 wds);
4636/3: 200 323 220|171 164|164 367|304 000 005|200 327 215 JSP30; I7; SHL-5; SET5; JSP118;
4640/4: 142 160|304 001 000|164 160|301 126 150|200 330 345 NC7; SET256; SHLC7; =V1P104M5; JSP126;
Warning: V0P16 is out of range, only 0 V-stores specified
4642/5: 300 002 042|111 160 V0P16; =M0M7N; (insert reel no);
4643/4: 171 170|041|037|202 327 331|170 176|151 004 C7; ZERO; SIGN; JS106P120; =Q7; M0TOQ4;
4645/3: 304 011 033|042|170 164|170 162|130 170 107; SETAV5; DUP; =I7; =M7; MLWQ7;
4647/1: 041|301 003 366 ZERO; =V0P42;
4647/5: 300 102 214|164 101|167 041|301 102 214|171 170|170 142|200 271 005
V1P23M4; SHL32; SHC16; =V1P23M4; C7; =M6; JP135;
4652/4: 300 002 215|221 144 037|171 164|221 044 037 102; (no N tape); V2P23; J4P45=Z; I7; J4P45<Z;
[ ---- fold
(Q not empty and claim not in progress);
4654/3: 204 325 032|145 160|171 176|301 002 216 JS72P58; I7=-1; Q7; =V3P23;
4656/1: 041|033|170 122 ZERO; NOT; =M5;
4656/5: 041 105; ZERO;
4657/0: 041|033|164 373|065|200 324 364|245 151 256 104; ZERO; NOT; SHL-3; REV; JSP58; J105C6Z; (look for PRINTEND);
[ --- end of photo
4660/5: 041 ZERO;
[ photo 100_1621.JPG
4661/0: 171 150|042|164 003|056 50; C6; DUP; SHL1; +;
4662/0: 304 005 377|056|042|170 163|300 011 031|103 160|154 147 SETAV-17P101; +; DUP; =RM7; V3; =M0M7Q; C6TOQ7;
4664/2: 300 011 320|033|027|203 331 323 V0P161; NOT; NEG; JS1P161; (last tape);
4665/4: 167 015|027|033|167 365|101 160 SHC6; NEG; NOT; SHC-6; =M0M7;
4667/0: 027|033|170 164|131 160|200 321 230 NEG; NOT; =I7; POBQ7; JSP10; (label tape);
4670/3: 304 001 000|170 162|130 164|152 007|300 002 216|170 162|171 176|301 002 216|200 360 000
SET256; =M7; MWIPEQ7; I0TOQ7; V3P23; =M7; Q7; =V3P23; EXIT1;
113; (JE sim ETW); [ sic this this is TINT JE
4674/1: 171 102|205 151 115 M4; J7≠Z; (ignore if dealing with new tape);
4675/0: 041|033|301 003 367 ZERO; NOT; =V1P42; (clear ETW marker);
112; (end tape on OUT 8 tape);
4675/5: 171 116|065|205 331 115|200 331 316|170 116|300 102 213|042|205 151 275
Q4; REV; JS7; JS110; =Q4; V0P23M4; DUP; J112≠Z; (empty Q);
4700/5: 033|170 123 NOT; =RM5;
4701/2: 302 126 241|042|224 151 310|047|052|304 000 056|024 108; V58P104M5Q; DUP; J111=Z; STR; ERASE; SET46; FLOAT;
4703/3: 042|045|170 130|052|304 000 003|170 162|202 331 143 109; DUP; FIX; =C5; ERASE; SET3; =M7; JS6;
4705/4: 200 331 316|167 023|164 003|167 355|070|042 JS110; SHC9; SHL1; SHC-10; STAND; DUP;
4707/3: 203 151 303|301 126 240|041 J109≠Z; =V57P104M5; ZERO;
4710/4: 052|171 122|164 377|164 377|222 151 301 111; ERASE; M5; SHL-1; SHL-1; J108=Z;
4712/2: 171 102|221 144 037|300 011 025|300 002 214|164 301|224 151 064|301 011 032|203 271 245
M4; J4P45=Z; V-1; V1P23; SHL-32; J91=Z; =V4; J107;
4716/0: 200 325 102|052|120 162|220 351 316|200 360 000 110; JSP60; ERASE; BUSYQ7; J110TR; EXIT1;
(wait till unit not busy);
=== Start P161V2; at address 2515/4723
P161V2; (V0=reel no of mag tape)
V-store at 04721 = 050 242 212 050 242 212 V1=B1212121212121212;
V-store at 04722 = 040 202 010 040 202 010 V2=B1010101010101010;
4723/0: 300 011 320 V0;
4723/3: 300 011 321|065 1; V1; REV;
4724/1: 067|300 011 322|164 003|011|200 360 000 2; FRB; V2; SHL+1; OR; EXIT1;
4725/5: 300 011 322|065|201 271 324 3; V2; REV; J2;
=== Start P187V5; at address 2525/4735
P187V5; (PIT 23 and 24);
(copy V stores of P187 to and from program);
(OUT 23 is prog to Director);
V-store at 04727 = 000 005 000 001 011 330 V0=Q 5/1/AV1;
(V1 to V5 are Director store);
4735/0: 200 331 342 JS3;
4735/3: 170 156|170 176 1; =Q6; =Q7;
4736/1: 017|017|017|017|017|102 140|103 160|017|017|177 140|200 360 000
*2; M0M6Q; =M0M7Q; *J2C6NZS; EXIT1; (copy loop);
4740/5: 200 331 342|065|203 271 335 4; JS3; REV; J1;
3; (check nest and set N1 as 5/1/prog address);
(N2 is 5/1÷Director V stores);
4742/0: 200 325 201|203 271 350|164 101|164 267 JSP62; J6; SHL32; SHL-37;
4743/4: 300 120 021|164 061|164 265|037|202 051 350 V9P0M5;SHL24; SHL-38; SIGN; J5≥Z;
4745/3: 200 330 355|300 011 327|042|164 341|164 041|171 162|011|203 263 072
JS2P128; V0; DUP; SHL-16; SHL16; M7; OR; J3P29;
4750/2: 052 5; ERASE;
4750/3: 173 000|052|304 001 170|200 260 310 6; LINK; ERASE; SETB570; JP2;
=== Start P190V1; at address 2540/4754
P190V1; (read prog from disc);
V-store at 04752 = 062 353 364 000 000 000 V0= P *NOT;
V-store at 04753 = 062 373 214 222 234 343 V1= P *ON*DISC;
4754/0: 052 ERASE;
[ --------------- fold
4754/1: 300 012 320|170 176 V0P199; =Q7; (n/2/AV0P200 - start of directory);
4755/0: 100 160|300 126 224|200 331 012|164 061 1; M0M7; V45P104M5; JSP137; SHL24;
4756/4: 112 160|300 126 230|200 331 012|011|220 151 365|260 171 355 M0M7QN; V49P104M5;; JSP137; OR; J2=Z; J1C7NZ; (search dir);
4761/1: 300 011 353|300 011 352|300 126 230|166 321|300 126 224|164 061|011
V1; V0; V49P104M5; SHLD-24; V45P104M5; SHL24; OR;
[ photo 100_1622.JPG
4764/0: 205 321 215|201 270 267 JS41P6; J20P121; (silent CRNP);
4765/0: 141 160|100 160|164 015|164 305|301 100 024|157 007 2; M-I7; M0M7; SHL6; SHL-30; =E20M4; Q0TOQ7;
4767/1: 200 331 022|304 000 007|300 100 024|200 330 345 JSP139; SET7; E20M4; JSP126; (B block);
4771/1: 201 331 373|204 270 063|204 270 064 JS5; J131P120; J31P120; (parity - OK);
4772/4: 240 151 376 3; (sector no in N1); J4C6Z; (test filler word);
4773/1: 042|171 162|171 164|036|304 000 050|044|052|056|033|027|301 100 024
5; DUP; M7; I7; -; SET40; %I; ERASE; +; NOT; NEG; =E20M4;
4776/0: 204 332 176 4; JS3P197; (abs add to Q);
4776/3: 301 100 025|304 000 001|201 321 244 =E21M4; SET1; JS51P10;
5000/0: 300 100 025|170 176|200 330 352|304 000 001|200 321 230 E21M4; =Q7; JSP128; SET1; JSP10;
5002/2: 041|300 126 264|166 377|164 003|301 126 264|221 044 037 ZERO; V77P104M5; SHLD-1; SHL1; =V77P104M5; J4P45<Z; (parity);
5004/4: 202 360 001 EXIT2;
=== Start P191V1; at address 2568/5010
P191V1; (OUT 21 fetch secotr of sub index); [ sic
(V0=length/-/first sector);
V-store at 05007 = 000 000 000 000 000 000 V1=0; (first free sector);
5010/0: 300 012 006|203 263 001 V0; J1P24;
5011/0: 300 012 007|203 263 001 1; V1; J1P24; (fetch first free sector);
=== Start P192V-1; at address 2570/5012
P192; (OUT 20 - test disc parity);
5012/0: 171 176|301 000 033 Q7; =V19P0;
5012/5: 203 323 072|200 320 115|157 007 JS3P29; (erase OUT no); JS35P0; Q0TOQ7;
5014/1: 200 331 022 1; JSP139; (suspend till transfer ended);
5014/4: 171 116|300 012 200|015|164 277|221 152 014 Q4; V0P198; NEV; SHL-33; J1=Z; (split transfer in progress);
5016/3: 300 126 264|042|167 377|200 044 037 V77P104M5; DUP; SHC-1; J1P45≥Z; (jump if no parity);
5020/0: 027|033|301 126 264 NEG; NOT; =V77P104M5; (clear parity);
5020/5: 300 126 150|042|167 003|220 044 037 V1P104M5; DUP; SHC1; J1P45<Z;
5022/2: 167 375|301 126 150|200 360 000 SHC-2; =V1P104M5; EXIT1;
=== Start P193V0; at address 2581/5025
P193V0;
V-store at 05024 = 327 011 041 322 123 014 V0=P UPDATE**;
5025/0: 200 325 201|204 272 062|203 052 030 JSP62; J1P194; J5≥Z;
5026/3: 300 126 220|300 012 024|015|164 351|203 152 062 V41P104M5; V0; NEV; SHL-12; J4P194≠Z;
5;
5030/3: 200 330 371|204 272 062|203 323 072|200 320 115 JSP133; J1P194; JS3P29; JS35P0; (check I/L/H allowing read only);
5032/3: 300 126 264|167 377|220 052 065 V77P104M5; SHC-1; J2P194<Z; (parity);
5033/5: 200 323 070|204 272 063|301 126 230 JS1P29; J6P194; =V49P104M5; (sectort number);
5035/2: 200 331 022 JSP139;
5035/5: 203 330 354|300 126 230|204 332 176|200 272 057 JS1P128; V49P104M5; JS3P197; J99P194; (do abs sector transfer);
=== Start P194V-1; at address 2592/5040
P194; (OUT 19 - disc transfer);
5040/0: 200 325 201|204 272 062|052 JSP62; J1; ERASE;
5041/1: 200 330 371|204 272 062|203 323 072|200 320 115 JSP133; J1; JS3P29; JS35P0; (deal with I/L/H);
5043/1: 300 000 225 V0P1;
5043/4: 300 126 264|164 101|167 277|047|204 152 064 V77P104M5; SHL32; SHC-33; STR; J3≠Z; (parity);
5045/3: 304 001 200|034|050 SET384; ×D; CONT; (no of sectors claimed);
5046/2: 065|042|164 061|164 321|065|164 321 REV; DUP; SHL24; SHL-24; REV; SHL-24; (N1=l,N2=s);
5047/5: 304 001 200|034|050|056|042|301 126 230 SET384; ×D; CONT; +; (start sector); DUP; =V49P104M5;
5051/3: 171 162|171 164|036|304 000 050|044|052|056 M7; I7; -; SET40; %I; ERASE; +;
5053/2: 037|204 112 062 SIGN; J1≤Z; (check with top sector claimed);
[ ----------- fold
5054/0: 203 323 072|204 272 063 JS3P29; J6;
5055/0: 200 331 022 JSP139; (suspend);
5055/3: 203 330 354 JS1P128;
5056/0: 300 126 230|200 332 162 V49P104M5; JSP197; (transfer to Q);
5057/0: 200 321 244|171 104|172 110|140 100 99; JS50P10; I4; =+C4; M+I4; (change subprog);
[ photo 100_1623.JPG
5060/3: 203 330 354|154 007|041|200 321 230|203 262 220 JS1P128; C0TOQ7; ZERO; JSP10; J99P23;
5062/3: 052 4; ERASE;
5062/4: 304 001 140 1; SETB540; (parameters wrong);
5063/1: 200 260 310 5; JP2;
5063/4: 304 001 130|200 260 310 6; SETB530; JP2;
5064/4: 052|052 3; ERASE; ERASE;
5065/0: 304 001 150|200 260 310 2; SETB550; JP2; (parity);
=== Start P195V0; at address 2615/5067
P195V0; (deallocate disc);
5067/0: 203 323 072|200 320 115 JS3P29; JS35P0;
5070/0: 052|052 ERASE; ERASE;
5070/2: 300 126 264|221 144 037 2; V77P104M5; J4P45=Z;
5071/2: 151 006|146 140|171 110|164 377 5; M0TOQ6; I6=+2; C4; SHL-1;
5072/4: 302 152 200|042|033|220 152 076 4; V0P198M6Q; DUP; NOT; J3=Z;
5074/0: 164 277|204 032 072|052|200 321 243|202 272 071 SHL-33; J4≠; ERASE; JS4P10; J5;
5076/0: 033|301 126 254|052|041|042 3; NOT; =V69P104M5; ERASE; ZERO; DUP;
5077/1: 301 126 260|301 126 264 =V73P104M5; =V77P104M5;
5100/1: 204 324 037|301 012 066|200 360 000 1; JS21P45; =V0; EXIT1;
=== Start P196V3; at address 2630/5106
P196V3; (OUT18 - allocate);
V-store at 05102 = 000 000 000 000 377 377 V0=Q 0/0/-1;
V-store at 05103 = 377 377 000 000 000 000 V1=Q -1/0/0; (black areas);
V-store at 05104 = 377 377 377 377 000 200 V2=Q -1/-1/128; (2*no of blocks)
V-store at 05105 = 207 051 141 317 377 377 V3=B 4162454163777777; (areas);
5106/0: 200 325 201|204 272 136|042|220 152 067 JSP62; J9; DUP; JP195=Z; (deallocate if 0);
5107/4: 042|222 052 136 DUP; J11<Z; (check negative);
5110/2: 042|056|300 012 104|170 176|171 162|056|027|033|164 361|203 152 136
DUP; +; V2; =Q7; M7;+; NEG; NOT; SHL-8; J10≠Z; (more than available);
5113/1: 301 100 024 =E20M4;
5113/4: 300 126 264|204 152 137 V77P104M5; J12≠Z;
5114/4: 304 000 004|170 171 3; SET4; =RC7;
5115/3: 300 012 104|042|164 377|300 100 024|056|170 151|300 012 103|041
V2; DUP; SHL-1; E20M4; +; =RC6; V1; ZERO; (black blocks ≠0);
5120/1: 300 166 254|011|012|300 166 260|011|012|302 166 264 1; V69P104M7; OR; PERM; V73P104M7; OR; PERM; V77P104M7Q;
5122/2: 042|164 377|172 150|011|012|261 172 120 DUP; SHL-1; =+C6; OR; PERM; J1C7NZ; (form storage map);
(C6=no allocated + reqd + blacks);
5124/0: 171 156|047|052|164 301|042|027|033|164 363|224 152 140 Q6; STR; ERASE; SHL-32; DUP; NEG; NOT; SHL-7; J2=Z; (enough room left);
5126/2: 304 000 200|036 (suspend);SET128; -; (no of areas needed);
5127/0: 203 331 323|164 075|200 324 336|204 325 012|164 335|166 305 JS1P161; SHL30; JSP55; JS14P58; SHL-18; SHLD-30;
5131/3: 052|300 012 105|065|300 004 354|205 321 217 ERASE; V3; REV; V0P58; JS30P6; (wanted by L dd areas);
5133/2: 052|052|052 ERASE; ERASE; ERASE;
5133/5: 041|304 000 003|167 375|042|203 321 232|052|052|204 272 114 ZERO; SET3; SHC-2; DUP; JS2P10; ERASE; ERASE; J3;
5136/2: 052 11; ERASE;
5136/3: 052 10; ERASE;
5136/4: 304 001 100 9; SETB500;
5137/1: 200 260 310 JP2; (allocation too big);
5137/4: 304 001 110|200 260 310 12; SETB510; JP2; (ask twice);
5140/4: 052|042|170 156|300 012 102|011 2; (disc free map in nest); ERASE; DUP; =Q6; V0; OR;
5142/0: 203 323 072|200 320 115 JS3P29; JS35P0; (erase no of areas);
5143/0: 066|041|033|164 301|011|012 CAB; ZERO; NOT; SHL-32; OR; PERM; (scrub off no of blocks);
5144/1: 300 100 024|170 171|151 127 E20M4; =RC7; M5TOQ7; (Q7=n/1/priority);
[ ----------- fold
5145/2: 041|041|033|050 ZERO; ZERO; NOT; CONT; (pointer);
5146/0: 171 156|157 006|222 152 152|164 341 Q6; Q0TOQ6; J7=Z; SHL-16; (other start);
5147/3: 051|066 6; REVD; CAB; (next word);
5147/5: 157 006 Q0TOQ6;
[ photo 100_1624.JPG
5150/1: 171 162|304 000 004|056|304 000 014|044|170 162|052 M7; SET4; +; SET12; %I; =M7; ERASE; (current address??);
5152/2: 043|054|203 152 154|042|172 156|143 160|243 172 155 7; DUPD; AND; J5≠Z; DUP; =+Q6; DC7; J8C7Z; (add bit);
5154/3: 167 377|042|202 052 152 5; SHC-1; DUP; J7≥Z; (cycle words);
5155/3: 171 156|301 166 254|263 172 147 8; Q6; =V69P104M7; J6C7NZ; (allocate);
5156/5: 300 126 264|300 100 024|164 003|011|301 126 264 V77P104M5; E20M4; SHL+1; OR; =V77P104M5; (no of areas);
5160/5: 052|204 264 036 100; ERASE; J12P45;
=== Start P197V-1; at address 2674/5162
P197; (transfer to disc Q);
(C4=subprog, Q7=core,M1=disc addr); [ SIC
5162/0: 041 ZERO; (logical address);
5162/1: 304 000 001|170 151|146 140 4; SET1; =RC6; I6=+2;
5163/2: 065|304 000 140|044|065|164 061|011|065 REV; SET96; %I; REV; SHL24; OR; REV;
5165/0: 302 152 200|033|200 152 165 1; V0P198M6Q; NOT; J1≠Z; (look for end);
5166/1: 260 152 170|041|204 324 037 J2C6NZ; ZERO; JS21P45;
5167/2: 050|303 152 176 CONT; =V-2P198M6Q; (Q now not empty);
5170/0: 171 110|166 003|065|052|164 017|166 061|301 152 176 2; C4; SHLD1; REV; ERASE; SHL7; SHLD24; =V-2P198M6; (search);
5172/1: 164 041|171 170|164 243|166 375 SHL16; C7; SHL-47; SHLD-2; (read/write);
5173/3: 052|154 107|171 176|011 ERASE; C4TOQ7; Q7; OR;
5174/3: 041|033|042|301 152 102 ZERO; NOT; DUP; =V0P196M6; (end fo Q marker);
5175/3: 050|301 152 177|200 360 000 CONT; =V-1P198M6; EXIT1;
5176/4: 041|033|201 272 162 3; ZERO; NOT; J4; (abs address);
(disc Q A search 0/ /subprog//* position);
(disc Q B transfer 1/W/sec/subprog//lowcore//highcore);
(W == Q read / 1 write); (* ==programmer disc address / 1 absolute add);
=== Start P198V13; at address 2702/5216
P198V13; (deal with disc Q);
V-store at 05200 = 377 377 377 377 377 377
V-store at 05202 = 377 377 377 377 377 377 V0=-1; V2=-1;
(V stores are the Q);
(V11=repeat count);
V-store at 05214 = 010 171 051 316 060 000 V12=P [CN]DISC[S];
(V13 is dump far ans);
5216/0: 304 000 016|170 171 SETB16; =RC7; (unit no);
5216/5: 120 162|221 344 037 BUSYQ7; J4P45TR;
5217/4: 300 012 200|042|033|220 144 037 V0; DUP; NOT; J1P45=Z; (Q empty);
5221/0: 047|224 152 310|164 277|170 122 STR; J16=Z; SHL-33; =M5; (jump iflast ransfer search); [ sic
5222/2: 121 160|204 352 227 PARQ7; J1NTR;
5223/1: 171 122|220 140 115 M5; J35P0=Z;
5224/0: 300 012 213|042|027|033|301 012 213|204 152 305 V11; DUP; NEG; NOT; =V11; J2≠Z; (repeat on parity);
5226/0: 300 126 263 V76P104M5;
5226/3: 041|033|027|011|301 126 264 ZERO; NOT; NEG; OR; =V77P104M5; (set parity marker);
5227/4: 300 012 202|042|033|224 152 304 1; V2; DUP; NOT; J9=Z;
5231/0: 304 000 005|301 012 213 SET5; =V11; (5 repeats);
5232/0: 300 012 203|204 332 272|170 176|170 170 V3; JS4; =Q7; =C7;
5233/4: 042|164 301|042|170 102|164 377|170 122 DUP; SHL-32; DUP; =M4; SHL-1; =M5; (new priority);
5235/2: 300 101 261|047|052|301 101 261 V11P11M4; STR; ERASE; =V11P11M4; (clear QD transfer);
5236/4: 130 162 PMHQ7; (set LO);
5237/0: 042|164 041|225 052 277 DUP; SHL16; J10<Z; (logical addressing);
5240/0: 167 375|042|033|027|170 130 SHC-2; DUP; NOT; NEG; =C5;
[ photo 100_1625.JPG
[ This photo is a duplicate of 1624
[ photo 100_1626.JPG -- checked by BAW
[ -------- fold
5241/1: 300 126 263|300 126 257|300 126 253 V76P104M5; V72P104M5; V68P104M5; (store map);
5242/4: 041|041|033|050 ZERO; ZERO; NOT; CONT; (pointer);
5243/2: 157 006 Q0TOQ6;
5243/4: 043|054|222 152 245|143 120|243 132 247 7; DUPD; AND; J5=Z; DC5; J8C5Z;
5245/2: 167 377|042|143 140|204 052 243 5; SHC-1; DUP; DC6; J7≥Z;
5246/4: 051|066|204 272 243 REVD; CAB; J7; (next word);
5247/3: 052|052|052|052|171 150|027 8; ERASE; ERASE; ERASE; ERASE; C6; NEG;
5250/4: 164 123|047|027|065|164 261|011 SHL41; STR; NEG; REV; SHL-40; OR;
5252/0: 166 121|171 176|011|041|033|050|170 176|052 SHLD+40; Q7; OR; ZERO; NOT; CONT; =Q7; ERASE;
5253/5: 153 007|134 160 11; IM0TOQ7; PMAQ7; (set seek);
5254/3: 001|300 012 203|042|164 031|164 351|301 012 200|170 176 VR; V3; DUP; SHL12; SHL-12; =V0; =Q7;
5256/5: 171 162|171 164|036|304 000 050|044|052 M7; I7; -; SET40; %I; ERASE; (no of sectors -1);
5260/3: 304 000 137|171 176|164 005|164 261|036 SET95; Q7; SHL2; SHL-40; -;
5262/1: 065|032|052|224 212 301 REV; MAX; ERASE; J14V; (smalltransfer); [ sic
5263/1: 033|027 NOT; NEG; (no of sectors in this transfer);
5263/3: 304 000 050|034|050|042|027|033|170 162|140 160 SET40; ×D; CONT; DUP; NEG; NOT; =M7; M+I7; (core addresses);
5265/3: 164 041|300 012 203|056|167 005|164 025|167 351|301 012 203 SHL16; V3; +; SHC2; SHL10; SHC-12; =V3; (sector no =zero);
5270/0: 171 176|301 012 201|300 012 202|033|027|301 012 202 Q7; =V1; V2; NOT; NEG; =V2; (area no incremented);
5272/1: 201 272 304 J50;
5272/4: 171 170|065|200 326 137|204 272 274|200 360 000 4; C7; REV; JSP103; J3; EXIT1;
5274/4: 300 012 201|300 012 202|015|164 031|164 251|221 144 037 3; V1; V2; NEV; SHL12; SHL-44; J4P45=Z; (do split transfer);
Warning: V100P196 is out of range, only 4 V-stores specified
5277/0: 173 000|300 012 246 LINK; V100P196; (not split so suspend);
5277/5: 164 015|304 000 016|011|170 170|205 272 253 10; SHL6; SETB16; OR; =C7; J11; (abs add);
5301/4: 052|041|170 171 14; ERASE; ZERO; =RC7; (transfer in one);
5302/2: 300 172 203|042|303 172 201|033|202 152 302 15; V3M7; DUP; =V1M7Q; NOT; J15≠Z;
5304/1: 200 272 216 50; JP198;
5304/4: 301 012 200|200 360 000 9; =V0; EXIT1;
5305/4: 041|304 012 214|042|033|027|200 321 224 2; ZERO; SETAV12; DUP; NOT; NEG; JSP8; (out put DISC on flex);
5307/2: 300 012 200|304 000 016|170 170 V0; SETB16; =C7; (resetting dv no);
5310/4: 042|204 332 272|041|033|050|301 012 200|065|052 16; DUP; JS4; ZERO; NOT; CONT; =V0; REV; ERASE;
5312/4: 300 012 201|042|164 005|167 025|164 011|066|011|167 341|170 176
V1; DUP; SHL2; SHC10; SHL4; CAB; OR; SHC-16; =Q7;
5315/2: 164 003|220 052 317 SHL1; J17<Z;
5316/1: 124 160|200 360 000 PIAQ7; EXIT1;
5317/0: 130 160|200 360 000 17; POAQ7; EXIT1;
=== Start P199V4; at address 2773/5325
P199V4; (disc list and prog list);
(V0= n/2/AV1P199);
(prog list + disc list sector and ident);
(wd 1 D0 is MT bit);
(V1-4 are OUT 8 idents);
=== Start P200V5; at address 2779/5333
P200V5; (phase 0);
V-store at 05325 = 012 311 156 237 112 014
V-store at 05326 = 101 004 020 063 171 063 V0/1=P [C]LENGTH*0000*WDS;
V-store at 05327 = 012 112 163 215 025 244 V2=P [C]DISC16D; (disc descriptor);
V-store at 05330 = 012 310 163 320 314 345
V-store at 05331 = 214 304 020 101 004 020 V3/4=P [C]LAST*SEC*000000;
V-store at 05332 = 000 242 212 050 240 101 V5=B 12121212120101;
5333/0: 176 010|052|300 012 327|301 003 032 K4; ERASE; V2; =V14P26;
5334/3: 300 001 246|170 116 V0P11; =Q4;
5335/2: 200 333 012 JSP3211; (title);
5335/5: 171 104|172 110|140 100 I4; =+C4; M+I4; (leave subprog for TINT);
[ ----- fold
5336/5: 200 333 025|171 104|172 110|140 100 JSP300; I4; =+C4; M+I4; (date);
5340/2: 200 333 060|171 104|172 110|140 100 JSP301; I4; =+C4; M+I4; (time);
5341/5: 200 334 115|171 104|172 110|140 100 JSP299; I4; =+C4; M+I4; (prime disc);
5343/2: 200 333 102|171 104|172 110|140 100 JSP302; I4; =+C4; M+I4; (OUT 8 reel no);
5344/5: 200 333 240|171 104|172 110|140 100 JSP304; I4; =+C4; M+I4; (A progs);
[ photo 100_1627.JPG -- checked by BAW
5346/2: 200 333 127|171 104|172 110|140 100 JSP303; I4; =+C4; M+I4; (PTin);
5347/5: 200 333 310|171 104|172 110|140 100 JSP306; I4; =+C4; M+I4; (OUT 8 claimer);
5351/2: 200 325 102|204 325 130|200 325 375|200 325 036|200 332 216|200 321 317
1; JSP60; JS4P60; JSP100; JSP59; JSP198; JSP11;
5354/2: 041|301 006 020 ZERO; =V0P101;
5355/0: 300 000 030|223 152 356|200 333 331 V16P0; J4=Z; JSP400;
5356/3: 052|203 252 356 4; ERASE; J4NEN;
5357/1: 304 000 010|170 111|041 SET8; =RC4; ZERO;
5360/1: 017|017|017|017|017|302 101 247|017|017|017|011|177 100|202 152 351
*2; V1P11M4Q; *OR; J2C4NZS; J1≠Z; (wait till OK to go);
5363/0: 171 022|304 063 040|036|170 111|304 012 325|170 102 M1; SETAY544; -; =RC4; SETAV0P200; =M4;
5365/1: 151 106|156 026|142 140|171 156|301 012 320 M4TOQ6; CI1TOQ6; NC6; Q6; =V0P199;
5367/0: 304 063 040|170 123|171 102|171 110|056|027|033 SETAY544; =RM5; M4; C4; +; NEG; NOT;
5371/0: 164 367|033|027|164 013|042|301 007 176 SHL-5; NOT; NEG; SHL5; DUP; =V0P117;
5372/4: 300 012 332|065|067|164 015|300 012 326|011|300 012 325|202 321 221
V5; REV; FRB; SHL6; V1; OR; V0; JS20P6;
(Director size);
5375/3: 300 011 322|300 014 062|201 331 324|164 031|164 351|300 012 331|011|300 012 330|202 321 221
V2P161; V0P299; JS2P161; SHL12; SHL-12; V4; OR; V3; JS20P6;
5401/2: 200 324 177|200 320 115 JSP49; JS35P0; (print store available);
5402/2: 017|017|017|017|102 120|103 100 *3; M0M5Q; =M0M4Q; (shift disc directory);
5403/4: 017|017|177 100|204 260 203 *J3C4NZS; J23P0; (enter Director);
=== Start P3211V4; at address 2826/5412
P3211V4; (title);
V-store at 05405 = 010 175 156 247 151 162
V-store at 05406 = 316 235 071 062 371 214
V-store at 05407 = 277 211 257 312 103 036 V0/2=p [cn]UNIVERSITY*OF*OXFORD*-;
V-store at 05410 = 062 112 163 214 311 051
V-store at 05411 = 312 130 364 277 040 202 V3/4=p *DISC*DIRECTOR[cc];
5412/0: 300 013 011|300 013 010|300 013 007|300 013 006|300 013 005|304 000 005|200 261 206
V4; V3; V2; V1; V0; SET5; JP6;
=== Start P300V6; at address 2837/5425
P300V6;
V-store at 05416 = 010 161 307 222 035 045
V-store at 05417 = 060 311 017 264 376 134 V0/1=p [cnnn]DATE**D/M/Y[q];
V-store at 05422 = 363 273 356 367 273 356 V4=B7473575675735756;
V-store at 05423 = 050 240 112 050 022 212 V5=B1212011212011212;
V-store at 05424 = 101 003 320 100 364 020 V6=P 00/00/00;
5425/0: 041|304 013 016|304 013 021|200 321 224 ZERO; SETAV0; SETAV3; JSP8;
5426/4: 304 013 020|170 156|202 323 252|205 273 053 SETAV2; =Q6; JS10P32; J1;
5430/3: 042|225 153 053|170 124|202 323 252|205 273 053 DUP; J1=Z; =I5; JS10P32; J1;
5432/3: 042|170 130|304 000 015|037|200 053 025|240 133 025|202 323 252|205 273 053
DUP; =C5; SET13; SIGN; JP300≥Z; JP300C5Z; JS10P32; J1;
5435/4: 042|304 000 144|037|225 113 053|042|304 000 104|037|225 053 053
DUP; SET100; SIGN; J1>Z; DUP; SET68; SIGN; J1<Z;
5440/2: 042|170 122|300 013 022|065|164 135|204 153 042|167 061 DUP; =M5; V4; REV; SHL46; J2≠Z; SHC24;
5442/4: 167 120|167 120|164 245 2; SHCC5; SHCC5; SHL-46;
5443/4: 304 000 034|056|171 124|037|220 053 025 SET28; +; I5; SIGN; JP300<Z;
5445/2: 171 124|304 000 144|034|050|171 130|056|304 000 144|034|050 I5; SET100; ×D; CONT; C5; +; SET100; ×D; CONT;
5447/5: 171 122|056|300 013 023|065|067|300 013 024|056|301 007 233 M5; +; V5; REV; FRB; V6; +; =V3P120;
5452/2: 200 333 370|200 273 025|200 360 000 JSP3212; JP300; EXIT1;
5453/5: 052|200 273 025 1; ERASE; JP300;
=== Start P301V2; at address 2864/5460
P301V2;
V-store at 05455 = 010 175 051 266 123 050
V-store at 05456 = 313 063 355 246 354 334 V0/1=P [cn]TIME*HRS/MINS[q];
5460/0: 041|304 013 055|304 013 057|200 321 224 ZERO; SETAV0; SETAV2; JSP8;
5461/4: 304 013 057|170 156|202 323 252|200 273 073 SETAV2; =Q6; JS10P32; J1;
5463/3: 042|304 000 030|037|200 053 073|304 016 020|034|050|170 136 DUP; SET24; SIGN; J1≥Z; SET3600; ×D; CONT; =Q5;
5466/0: 202 323 252|200 273 073 JS10P32; J1;
5467/0: 042|304 000 074|037|200 053 073 DUP; SET60; SIGN; J1≥Z;
5470/2: 304 000 074|034|050|171 136|056|164 061|301 000 010|200 360 000
SET60; ×D; CONT; Q5; +; SHL24; =V0P0; EXIT1;
5473/0: 052|200 273 060 1; ERASE; JP301;
=== Start P302V5; at address 2882/5502
P302V5; (OUT reel no and stream count); [ sic
V-store at 05474 = 010 173 365 320 306 014
V-store at 05475 = 312 131 154 062 353 334 V0/1=p [cn]OUT*8*REEL*NO[q];
V-store at 05477 = 010 161 363 323 051 141
V-store at 05500 = 264 310 357 326 355 034 V3/4=p [cnn]STREAM*COUNT[q];
5502/0: 041|304 013 074|304 013 076|200 321 224 ZERO; SETAV0; SETAV2; JSP8;
5503/4: 304 013 076|170 156|202 323 252|220 053 102|301 011 320 SETAV2; =Q6; JS10P32; JP302<Z; =V0P161;
5506/0: 041|304 013 077|304 013 101|200 321 224 1; ZERO; SETAV3; SETAV5; JSP8;
5507/4: 304 013 101|170 156|202 323 252|220 053 106|042|301 011 025|301 011 032
SETAV5; =Q6; JS10P32; J1<Z; DUP; =V-1P155; =V4P155;
5512/4: 200 360 000 EXIT1;
=== Start P303V10; at address 2903/5527
p303V10;
V-store at 05514 = 000 001 061 001 061 037 V0=Q 1/AY1/AY31;
V-store at 05515 = 010 171 241 246 300 277 V1=P [cn]FAIL[cd];
[ ------ fold
V-store at 05516 = 377 000 000 000 000 000 V2=b 776/8;
V-store at 05517 = 001 360 037 000 377 000 V3=B 37003700177400;
[ photo 100_1628.JPG -- checked by BAW
V-store at 05520 = 325 004 000 010 164 020 V4=P U00[scn]00;
V-store at 05523 = 327 071 162 062 034 245
V-store at 05524 = 207 077 100 000 000 000 V7/8 = P USER*AREAS[EM];
V-store at 05525 = 034 054 002 222 234 245
V-store at 05526 = 171 347 236 317 170 160 V9/10=P [nc]P[c]DIRE----SWAP;
5527/0: 300 013 115|331 001 000|200 333 302|200 273 220|200 323 237|200 113 220|301 014 062
V1; =Y0; JSP305; J2; JSP32; J2≤Z; =V0P299;
5532/3: 300 013 115|331 001 000|200 333 302|200 273 220 1; V1; =Y0; JSP305; J2;
5534/3: 200 323 237|204 273 225|170 170 4; JSP32; J5; =C7;
5535/5: 300 013 116|300 013 117|166 160|065|052|200 053 220 V2; V3; SHLDC7; REV; ERASE; J2≥Z;
5540/0: 300 013 120|171 170|166 373|164 007|011|167 053|301 013 121 V4; C7; SHLD-3; SHL3; OR; SHC21; =V5;
5542/3: 200 323 237|204 273 155|170 170|041|033 7; JSP32; J8; =C7; ZERO; NOT;
5544/1: 301 013 122|171 170|164 371|200 153 220|304 000 007 9; =V6; C7; SHL-4; J2≠Z; SET7;
5546/2: 300 013 121|171 170|166 373|164 007|011|167 023|171 170|170 162|042|301 163 014
V5; C7; SHLD-3; SHL3; OR; SHC9; C7; =M7; DUP; =V0P26M7;
5551/4: 164 043|221 053 153|052|304 000 001 SHL17; J10<Z; ERASE; SET1;
5553/1: 171 170|037|220 113 220|300 013 122|203 153 142|203 273 132 10; C7; SIGN; J2>Z; V6; J7≠Z; J1P303;
5555/4: 042|170 170|223 053 132|041|201 273 144 8; DUP; =C7; J1P303<Z; ZERO; J9;
5557/2: 200 333 302|200 273 220 6; JSP305; J2;
5560/2: 202 323 252|200 273 220 JS10P32; J2;
5561/2: 042|164 031|301 004 035|027|033|164 373|200 153 220 DUP; SHL12; =V0P45; NEG; NOT; SHL-3; J2≠Z;
5563/3: 200 333 302|200 273 220|304 000 003|170 131 JSP305; J2; SET3; =RC5; (black blocks);
5565/2: 202 323 252|204 273 167|303 132 102|262 133 165 11; JS10P32; J3; =V0P196M5Q; J11C5NZ;
5567/2: 041|033 ZERO; NOT;
5567/4: 220 113 220|300 012 102|003|300 012 103|003|056 3; J2>Z; V0P196; BITS; V1P196; BITS; +;
5571/4: 300 012 104|164 341|042|003|066|056 V2P196; SHL-16; DUP; BITS; CAB; +; (no of blacks);
5573/1: 042|304 000 200|065|036|203 331 323 DUP; SET128; REV; -; JS1P161;
5574/4: 164 075|304 000 207|011|167 351|300 013 124|300 013 123|066 SHL30; SETB207; OR; SHC-12; V8; V7; CAB;
5577/1: 304 000 003|200 321 206 SET3; JSP6;
5600/1: 167 343|011|167 041|301 012 104 SHC-15; OR; SHC16; =V2P196; (inserted in Director);
5601/3: 200 274 020 JP3213;
5602/0: 200 333 302|200 273 220 12; JSP305; J2; (A block);
5603/0: 330 001 001|300 013 125|200 331 012|330 001 002|300 013 126|200 331 012|011|200 153 220
Y1; V9; JSP137; Y2; V10; JSP137; OR; J2≠Z; (chack ident);
5606/4: 300 013 114|170 176|304 000 007|170 162|140 160|124 160|201 333 303|200 273 220
V0; =Q7; SET7; =M7; M+I7; PIAQ7; JS2P305; J2; (B block);
5612/0: 100 160|170 156|141 140|152 166|140 140|153 147|124 160 M0M7; =Q6; M-I6; I7TOQ6; M+I6; IM6TOQ7; PIAQ7; (C block);
5614/2: 201 333 303|200 273 220|304 000 016|170 170|041|200 321 230 JS2P305; J2; SET B16; =C7; ZERO; JSP10; (wait for disc);
5616/5: 134 160|130 170|200 360 000 PMAQ7; POCQ7; (dump dirswap); EXIT1;
5620/0: 330 001 005|330 001 004|330 001 003|330 001 002|330 001 001|330 001 000|304 000 006|200 321 206
2; Y5; Y4; Y3; Y2; Y1; Y0; SET6; JSP6;
5624/0: 304 000 001|170 170|120 161|201 260 120 SET1; =C7; MANUALQ7; J36P0;
5625/4: 222 053 157|203 273 132 5; J6<Z; J1P303;
=== Start P304V8; at address 2976/5640
P304V8;
V-store at 05627 = 010 170 160 312 371 334 V0=P [cn]APROG[q];
V-store at 05633 = 010 175 071 302 134 334 V4=P [cn]TYPES[q];
V-store at 05636 = 010 174 364 277 051 134 V7=P [cn]STORE[q];
5640/0: 041|301 013 232 ZERO; =V3;
5640/4: 041|304 013 227|304 013 231|200 321 224 16; ZERO; SETAV0; SETAV2; JSP8;
5642/2: 300 013 230|164 255|304 000 065|220 033 274|304 000 056|015|221 144 037
V1; SHL-42; SETB65; J1=; SETB56; NEV; J4P45=Z;
5645/2: 041|002|304 013 230|170 156 ZERO; =TR; SETAV1; =Q6;
5646/3: 200 323 237|203 273 257|041|033|002|042|164 375|223 153 251|204 153 240
17; JSP32; J18; ZERO; NOT; =TR; DUP; SHL-2; J19=Z; J16≠Z;
5651/3: 161 003|042|161 003|056|304 000 053|065 19; SHA1; DUP; SHA1; +; SET43; REV;
5653/1: 300 013 232|033|027|301 013 232|036|170 130|304 000 001|164 120
V3; NOT; NEG; =V3; -; =C5; SET1; SHLC5;
5655/5: 300 006 147|011|301 006 147|203 273 246 V0P104; OR; =V0P104; J17;
5657/3: 204 053 240|204 353 240 18; J16≥Z; J16NTR;
5660/3: 041|304 013 233|304 013 235|200 321 224 20; ZERO; SETAV4; SETAV6; JSP8;
5662/1: 304 013 234|170 156|200 324 166|203 273 260 SETAV5; =Q6; JSP48; J20;
5664/0: 041|304 013 236|042|033|027|200 321 224 25; ZERO; SETAV7; DUP; NOT; NEG; JSP8;
5665/4: 304 013 237|170 156|202 323 252|220 053 264 SETAV8; =Q6; JS10P32; J25<Z;
5667/3: 164 367|164 013|042|301 007 236|300 013 232|034|050|300 004 035
SHL-5; SHL5; DUP; =V6P120; V3; ×D; CONT; V0P45;
5672/1: 300 007 176|036|036|220 113 264|200 360 000 V0P117; -; -; J25>Z; EXIT1;
1; (usual details);
5674/0: 052|041|033|027|164 113|300 006 147|011|301 006 147 ERASE; ZERO; NOT; NEG; SHL37; V0P104; OR; =V0P104;
5676/1: 041|033|301 007 235 ZERO; NOT; =V5P120;
5677/0: 300 004 035|300 007 176|036|036|224 113 240|200 360 000 V0P45; V0P117; -; -; J16>Z; EXIT1;
=== Start P305V-1; at address 3010/5702
P305;
5702/0: 300 013 114|170 176 V0P303; =Q7;
5702/5: 125 160 1; PIBQ7;
[ -------- fold
5703/1: 304 000 001|200 321 230|171 164|170 156|121 160|221 344 037|202 360 001
2; SET1; JSP10; I7; =Q6; PARQ7; J4P45TR; EXIT2;
=== Start P306V0; at address 3016/5710
P306V0; (claim and label OUT 8 tape);
[ ------ from image 1678
V-store at 05707 = 000 000 000 000 000 000 V0=0;
5710/0: 200 274 115 JP299;
5710/3: 300 013 307|200 154 241|301 013 307 3; V0; J9P299≠Z; =V0; (this way once only);
[ photo 100_1629.JPG -- checked by BAW
5712/0: 154 147 C6TOQ7;
5712/2: 300 001 253|154 166|225 153 314|041|200 321 232|202 273 312 1; V5P11; C7TOQ6; J2=Z; ZERO; JS3P10; J1; (wait till OUT 8 REEL typed);
5714/5: 304 000 001|200 331 261|041|200 321 230 2; SET1; JS50P155; ZERO; JSP10; (label)
5716/3: 041|033|331 001 100 ZERO; NOT; =Y64;
5717/2: 304 061 100|042|164 041|011|170 156|153 147|130 170 SETAY64; DUP; SHL16; OR; =Q6; IM6TOQ7; MLWQ7;
5721/3: 041|200 321 230|200 360 000 ZERO; JSP10; EXIT1; (LB written);
=== Start P400V5; at address 3033/5731
P400V5; (TINT for phase 0);
V-store at 05723 = 010 170 147 206 233 277 V0=P [cn]AGAIN[d];
V-store at 05724 = 010 175 051 273 117 334 V1=P [cn]TINT[dq];
(V2,3 have ans);
V-store at 05727 = 017 024 200 100 000 000 V4=B 036122002/26; (valid EFGHLNQZ);
(TINT params);
5731/0: 300 001 247|201 144 037 V1P11; J4P45≠Z;
5732/0: 041|301 000 030|304 013 324 ZERO; =V16P0; (clear TINT marker); SETAV1;
5733/1: 300 001 246|170 116|164 041|304 013 326|011|041|033|050|301 001 015
2; V0P11; =Q4; SHL16; SETAV3; OR; ZERO; NOT; CONT; =V5P4;
5736/0: 200 324 040|200 321 244|304 013 325|170 156 JS20P45; JS50P10; SETAV2; =Q6;
5737/5: 200 323 223|203 273 345|304 377 337|172 170 JSP31; J3; SET-33; =+C7;
5741/4: 300 013 327|205 320 371|203 273 345|203 333 346|203 273 345 V4; JS10P3; J3; JS1; J3; (fails);
5744/1: 300 001 246|170 116|200 360 000 V0P11; =Q4; EXIT1; (TINT accepted);
5745/3: 304 013 323|201 273 333 3; SETAV0; J2; (inserting AGAIN);
5746/3: 174 000|202 373 350 1; =LINK; EXITAR6;
5747/2: 017|017|017|017|200 263 304|202 360 001|200 263 327|200 263 351
*6; JP37; EXIT2; JP39; JP40;
5752/0: 200 264 004|200 264 063|200 264 177|200 265 307 JP44; JP46; JP49; JP72;
=== Start P3212V11; at address 3064/5770
P3212V11; (check day);
V-store at 05754 = 034 050 350 226 072 300 V0=B 0702435045435300;
(V1= first part of day of week);
V-store at 05756 = 220 150 106 344 161 334 V2=B4406410671070734;
(V3= answer);
V-store at 05760 = 000 000 013 354 013 357 V4=Q 0/AV0/AV3;
V-store at 05761 = 037 061 206 324 153 206 V5=B0763060665065606;
V-store at 05762 = 036 321 206 274 153 206 V6=B0755060657065606;
V-store at 05763 = 037 101 265 032 121 263 V7=B0764066506450663;
V-store at 05764 = 334 141 245 222 351 163 V8=B6706064544564563;
V-store at 05765 = 320 141 250 324 154 263 V9=B6406065065066263;
V-store at 05766 = 036 141 206 310 152 106 V10=B0746060662065106;
V-store at 05767 = 314 141 241 323 121 262 V11=B6306064164650662;
5770/0: 171 124|171 130|171 122|200 334 002|170 062|300 073 361|301 013 355
I5; C5; M5; JSP3214; =M3; V5M3; =V1;
5772/5: 304 000 001|304 013 354|304 013 357|200 321 224 1; SET1; SETAV0; SETAV3; JSP8;
5774/5: 300 013 357|164 255|304 000 056|225 024 036|304 000 071|015|205 153 372
V3; SHL-42; SETB56; J3P45=; SETB71; NEV; J1≠Z;
5777/5: 200 334 355|202 360 001 JSP3215; EXIT2;
=== Start P3214V0; at address 3074/6002
P3214V0; (find day of week);
V-store at 06001 = 160 163 163 167 067 063 V0=B 3407156335633463;
6002/0: 152 006|042|051|027|033|042 I0TOQ6; DUP; REVD; NEG; NOT; DUP;
6003/1: 027|033|222 114 004|145 140 NEG; NOT; J1>Z; I6=-1;
6004/2: 164 005|170 150|300 014 001|164 140|003|036 1; SHL2; =C6; V0; SHLC6; BITS; -;
6006/1: 041|066|166 375|065 ZERO; CAB; SHLD-2; REV;
6007/0: 200 154 010|171 144|056 J2≠Z; I6; +;
6010/0: 056|056|304 000 007|044|065|052|200 360 000 2; +; +; SET7; %I; REV; ERASE; EXIT1;
=== Start P3213V5; at address 3088/6020
P3213V5; (read prog idents);
(fail job OUT8 prog list);
V-store at 06012 = 000 001 063 040 063 137 V0=Q 1/AY544/AY607; (standard);
V-store at 06013 = 000 001 063 040 063 043 V1=Q 1/AY544/AY547; (OUT 8 idents);
V-store at 06014 = 060 311 241 342 375 164 V2=P **FAXOUT;
[ --fold
V-store at 06015 = 012 231 045 273 114 302 V3=P [c]IDENTS[c];
V-store at 06016 = 000 001 063 040 063 041 V4=Q 1/AY544/AY545;
V-store at 06017 = 232 036 046 206 233 052 V5=P FAXFAILJ;
6020/0: 300 014 016|170 176|205 333 302|205 274 051 V4; =Q7; JS1P305; J2;
6021/5: 200 334 057|112 140|065|166 321|052 JS5; M0M6QN; REV; SHLD-24; ERASE;
6023/2: 300 014 017|015|205 154 051 V5; NEV; J2≠Z; (fail if not FAILJOB);
[ --- from image 1678
6024/3: 330 003 040|301 000 305|330 003 041|301 000 306 Y544; =V2P2; Y545; =V3P2;
6026/3: 300 014 013|170 176|205 333 302|205 274 051|304 000 002|170 156|146 140
V1; =Q7; JS1P305; J2; SET2; =Q6; I6=+2;
6031/3: 200 334 057|164 061|164 377|304 000 037|166 365|052|042|101 140
3; JS5; SHL24; SHL-1; SETB37; SHLD-6; ERASE; DUP; =M0M6;
6034/1: 112 140|015|166 061|166 211|052|300 014 014|015|205 154 051|263 154 031
M0M6QN; NEV; SHLD24; SHLD-60; ERASE; V2; NEV; J2≠Z; J3C6NZ;
[ photo 100_1630.JPG -- checked by BAW
6037/1: 304 000 004|170 151 SET4; =RC6;
6040/0: 330 143 040|017|017|017|303 152 321|177 140 *6; Y544M6; *=V1P199M6Q; J6C6NZS;
6041/5: 300 014 012|170 176|205 333 302|205 274 051|304 000 040|170 150|146 140
V0; =Q7; JS1P305; J2; SET32; =C6; I6=+2;
6044/5: 200 334 057|164 061|164 335|304 000 077|166 365|052|103 140 1; JS5; SHL24; SHL-18; SETB77; SHLD-6; ERASE; =M0M6Q; (M tape bit and react count);
6047/2: 265 154 044|041|033|301 014 103 J1C6NZ; ZERO; NOT; =V17P299; (disc prime is go);
6050/4: 200 273 202 J12P303;
6051/1: 173 000|052|052 4; LINK; ERASE; ERASE;
6051/5: 330 003 043|330 003 042|330 003 041|330 003 040|300 014 015|304 000 005|200 321 206
2; Y547; Y546; Y545; Y544; V3; SET5; JSP6;
6055/2: 300 014 012|170 176|120 161|200 274 020 V0; =Q7; MANUALQ7; JP3213; (repeat);
6057/0: 100 140|042|200 327 225|201 274 051|201 274 051|200 264 037 5; M0M6; DUP; JSP119; J4; J4; J1P45; (check 070202);
=== Start P299V26; at address 3149/6115
P299V26; (prime disc with M and R);
(V0=initial system address);
V-store at 06063 = 200 000 021 000 021 377 V1=Q B100000/AYZ0/AYZ255;
V-store at 06064 = 000 000 021 000 021 000 V2= Q 0/AYZ0/AYZ0;
V-store at 06065 = 166 112 163 217 110 160 V3=P +DISCTAP;
V-store at 06066 = 000 000 000 034 053 102 V4=B07025502;
V-store at 06067 = 012 112 163 217 110 160
V-store at 06070 = 062 351 145 222 131 014 V5/6=P [c]DISCTAP*NEEDED*;
V-store at 06071 = 010 316 245 312 363 014 V7=P [c]*ZERO**;
V-store at 06072 = 010 171 051 316 074 062
V-store at 06073 = 246 331 114 232 032 154
V-store at 06074 = 314 310 146 322 134 200 V8/10=P [cn]DISCPRIME*FAILS*AFTER;
V-store at 06075 = 010 171 051 316 074 062
V-store at 06076 = 246 331 114 226 351 063 V11/12=P [cn]DISCPRIME*ENDS;
V-store at 06077 = 377 377 377 377 377 377 V13=-1;
V-store at 06100 = 034 040 202 172 112 162
V-store at 06101 = 226 075 057 312 330 162 V14/15=P [nccc]-DIRECTORMAR;
V-store at 06102 = 000 000 000 000 000 000 V16=0;
(V17=prog start sector);
V-store at 06104 = 000 040 000 002 063 040 V18=Q 32/2/AY544;
V-store at 06105 = 377 340 000 002 063 140 V19=Q -32/2/AY608; (Q1 set for end fo prog list); [ sic
V-store at 06106 = 000 000 000 000 000 000 V20=0; (OFORM and -1 for R);
V-store at 06107 = 000 000 000 034 054 202 V21=B 07026202; (R);
V-store at 06110 = 200 000 021 000 021 377 V22=Q B100000/AYZ0/AYZ255;
V-store at 06111 = 200 000 022 000 022 377 V23=Q B100000/AYZ256/AYZ511; (buffer words for R transfers);
V-store at 06112 = 000 000 000 034 055 002 V24=B 07026402; (T);
V-store at 06113 = 000 000 000 000 000 000 V25=0; (blk count for libry);
V-store at 06114 = 012 231 356 277 051 114 V26=P [c]IGNORE*;
6115/0: 300 003 014|170 156 V0P26; =Q6; (look for DISCTAP);
6115/5: 304 021 144|205 323 034|202 274 327|052|200 330 365|170 162|300 165 377
1; SETB10544; JS2P26; J30; ERASE; JSP131; =M7; V-17P101M7;
6120/5: 042|300 014 065|015|041|301 014 077|223 154 123|205 154 115|041
DUP; V3; NEV; ZERO; =V13; J8=Z; J1≠Z; ZERO;
6123/3: 300 143 014|042|304 000 011|164 045|036 8; V0P26M6; DUP; SETB11; SHL18; -;
6125/1: 304 000 044|011|042|301 143 014|304 000 001|200 321 206 SETB44; OR; DUP; =V0P26M6; SET1; JSP6; (claim DISCTAPE);
6127/3: 065|223 153 310|300 014 102|200 154 241|301 014 102 REV; J3P306=Z; (OUT 8); V16; J9≠Z; =V16; (thou shalt pass this way but once);
6131/4: 154 147|304 063 040|170 023|146 020 C6TOQ7; SETAY544; =RM1; I1=+2;
6133/1: 304 015 000|170 043 SETAYD0; =RM2; (index count);
6134/0: 300 014 105|170 036|300 014 103|200 154 137 12; V19; =Q1; V17; J2≠Z;
6135/5: 041|200 321 232|200 274 134 ZERO; JS3P10; J12; (wait till prog list in);
6137/0: 153 007|134 160|041|200 321 230|121 160|120 164|041|002 2; IM0TOQ7; MFSKQ7; ZERO; JSP10; PARQ7; MLBQ7; ZERO; =TR;
6141/2: 300 014 063|170 156|153 147|124 160 3; (read A block); V1; =Q6; IM6TOQ7; MFRQ7;
6142/5: 041|200 321 230|171 164|170 142|121 160|222 354 342|120 164 ZERO; JSP10; I7; =M6; PARQ7; J100TR; MLBQ7;
6145/2: 222 354 351|100 140|164 321|300 014 107|221 034 243 J101TR; M0M6; SHL-24; V21; J20=;
6147/3: 300 014 112|221 034 243 V24; J20=;
6150/3: 300 014 066|015|200 154 137|041 V4; NEV; J2≠Z; ZERO;
6151/5: 300 014 106|200 154 137 V20; J2≠Z; (M after R);
6152/5: 100 140|301 126 224|110 140|301 126 230 M0M6; =V45P104M5; M0M6N; =V49P104M5;
[ -- fold
6154/3: 124 160|041|200 321 230|121 160|222 354 342|151 007|140 160 MFRQ7; (read B block); ZERO; JSP10; PARQ7; J100TR; M0TOQ7; M+I7;
6157/0: 300 160 005|200 154 137 E5M7; J2≠Z; (reject MTPR);
6160/0: 300 160 002|300 126 224|015|300 160 003|300 126 230|015|011|202 154 342
E2M7; V45P104M5; NEV; E3M7; V49P104M5; NEV; OR; J100≠Z; (B and A differ);
6163/0: 300 160 002|042|304 000 011|167 335|036|301 160 002 E2M7; DUP;SETB11; SHC-18; -; =E2M7; (M to D);
[ photo 100_1632.JPG -- checked by BAW
[ -- there is no photo 100_1631
6165/1: 052|304 000 007|172 162 ERASE; SET7; =+M7;
6166/1: 100 160|170 156|153 147|300 014 064|172 176 4; M0M7; =Q6; IM6TOQ7; V2; =+Q7;
6170/0: 124 160|171 156|301 100 024|041|200 321 230|121 160|222 354 342
MFRQ7; Q6; =E20M4; ZERO; JSP10; PARQ7; J100TR;
6172/4: 300 100 024|170 156|261 154 166 E20M4; =Q6; J4C6NZ; (prog in core);
6174/0: 171 170|301 100 024 C7; =E20M4;
6174/5: 310 001 007|164 041|164 301|164 041|171 142|011|042|311 001 007|170 136
YZ7; SHL16; SHL-32; SHL16; M6; OR; DUP; =YZ7; =Q5; (filler word);
6177/5: 310 001 000|164 061|224 154 205 YZ0; SHL24; J6=Z; (no check sum);
6201/1: 171 122|171 124|042|170 123|036|170 130|041 M5; I5; DUP; =RM5; -; =C5; ZERO;
6203/0: 312 121 000|017|017|017|056|177 120|310 121 000|015|202 154 342
*7; YZ0M5Q; *+; J7C5NZS; YZ0M5; NEV; J100≠Z; (check sum);
6205/4: 151 005|300 014 062|300 014 063|042|170 176|065|204 332 176|041|041|066|203 321 232
6; M0TOQ5; V0; V1; DUP; =Q7; REV; JS3P197; ZERO; ZERO; CAB; JS2P10;
6211/1: 300 014 062|301 014 103 V0; =V17; (preserve prog start sector);
6212/1: 300 014 062|033|027|042|310 001 007|300 014 064|056|170 176 V0; NOT; NEG; DUP; YZ7; V2; +; =Q7;
6214/4: 171 162|171 164|036|304 000 050|044|052|033|027|056|301 014 062
M7; I7; -; SET40; %I; ERASE; NOT; NEG; +; =V0;
6217/2: 143 160|204 332 176|041|041|154 007 DC7; JS3P197; ZERO; ZERO; C0TOQ7;
6220/5: 171 176|041|033|050|203 321 232 Q7; ZERO; NOT; CONT; JS2P10;
6222/1: 300 126 264|167 377|222 054 342|300 100 024|170 170 V77P104M5; SHC-1; J100<Z; E20M4; =C7;
6224/2: 300 014 104|170 156 V18; =Q6; (prog is on disc so search list);
6225/1: 171 150|300 126 230|110 140|200 331 012|300 126 224|102 140|200 331 012
5; C6; V49P104M5; M0M6N; JSP137; V45P104M5; M0M6Q; JSP137;
6230/1: 164 061|011|220 154 234|027|033|170 150|261 154 225 SHL24; OR; J10=Z; NEG; NOT; =C6; J5C6NZ; (not on list);
6232/2: 151 026|300 126 230|113 020|202 274 235 M1TOQ6; V49P104M5; =M0M1QN; J11; (add to end of list);
6234/0: 052|141 140|300 126 230|111 140 10; ERASE; M-I6; V49P104M5; =M0M6N; (modify list to entry from tape);
6235/2: 300 126 224|164 061|300 014 103|166 335|052|304 000 037|166 365|052|101 140|200 274 137
11; V45P104M5; SHL24; V17; SHLD-18; ERASE; SETB37; SHLD-6; ERASE; =M0M6; J2; (insert sector);
6241/0: 042|301 143 014|041|033|027|200 321 206|205 274 115 9; DUP; =V0P26M6; ZERO; NOT; NEG; JSP6; J1; (retrace);
21;
6243/1: 300 014 106|220 054 245 20; V20; J22<Z;
6244/1: 041|033|301 014 106 ZERO; NOT; =V20; (set flag for R);
6245/0: 052|100 140|164 061|300 014 062|166 061|103 040|052 22; ERASE; M0M6; SHL24; V0; SHLD24; =M0M2Q; ERASE;
6247/1: 110 140|103 040 M0M6N; =M0M2Q; (form index entry); (sec/IIII - IIIIIIII);
6247/5: 041|301 014 113 ZERO; =V25;
6250/3: 300 014 063|042|301 014 110|304 000 256|042|164 041|011|056|301 014 111|200 274 256
V1; DUP; =V22; SETB256; DUP; SHL16; OR; +; =V23; J25;
6254/0: 300 014 111|300 014 110|301 014 111|301 014 110 26; V23; V22; =V23; =V22; (swap for double buffering);
6256/0: 300 014 062|042|304 000 007|056 25; V0; DUP; SET7; +;
6257/2: 301 014 062|300 014 111|170 156|154 166|142 160|171 156|201 334 273|200 274 137
=V0; V23; =Q6; C7TOQ6; NC7; Q6; JS27; J2; (sun chack); [ sic
6262/4: 065|204 332 176|170 156 REV; JS3P197; =Q6; (write up block and restore Q6);
6263/4: 124 140|171 156|301 100 024|041|041|300 014 110|203 321 232 MFRQ6; Q6; =E20M4; ZERO; ZERO; V22; JS2P10;
6266/1: 300 100 024|170 176|041|200 321 230 E20M4; =Q7; ZERO; JSP10;
6267/4: 300 126 264|167 377|222 054 342|121 160|222 354 342 V77P104M5; SHC-1; J100<Z; PARQ7; J100TR; (parity);
6271/5: 120 164|222 354 141 MLBQ7; J3TR; (jump at end of tape);
6272/4: 200 274 254 J26;
6273/1: 304 000 254|170 151|171 164|170 142|041|042 27; SETB254; =RC6; I7; =M6; ZERO; DUP;
6275/0: 102 140|047|057 *28; M0M6Q; STR; +D;
6275/4: 017|017|177 140 * J28C6NZS;
6276/2: 100 140|164 301|047|057|164 041 M0M6; SHL-32; STR; +D; (blk no); SHL16;
6277/4: 300 014 113|042|033|027|301 014 113|166 341|052 V25; DUP; NOT; NEG; =V25; SHLD-16; ERASE;
6301/4: 102 140|015|065|100 140|015|011|201 154 243|202 360 001 M0M6Q; NEV; REV; M0M6; NEV; OR; J20≠Z; EXIT2;
6304/0: 142 160|171 170|141 040|141 040|304 000 002|172 050|110 040|100 040
29; NC7; C7; M-I2; M-I2; SET2; =+C2; M0M2N; M0M2;
6306/5: 166 061|300 014 114|205 321 217|170 170|200 360 000 SHLD24; V26; JS30P6; =C7; EXIT1;
24; (end of tape I R read);
6311/0: 142 040|171 050|164 101|300 014 062|011|301 011 320 NC2; C2; SHL32; V0; OR; =V0P161; (set up first sector of index);
6313/1: 171 170|301 100 024 C7; =E20M4;
6314/0: 141 040|151 047|304 015 000|170 164|142 160 M-I2; M2TOQ7; SETAYD0; =I7; NC7; (set up write index);
6315/5: 300 014 062|042 V0; DUP;
6316/3: 171 162|171 164|036|304 000 050|044|052|033|027|056|301 014 062
M7; I7; -; SET40; %I; ERASE; NOT; NEG; +; =V0;
6321/1: 204 332 176 JS3P197; (write index);
6321/4: 300 014 062|301 012 007 V0; =V1P191;
6322/4: 041|041|154 007|171 176|041|033|050|203 321 232 ZERO; ZERO; C0TOQ7; Q7; ZERO; NOT; CONT; JS2P10;
[ photo 100_1633.JPG
6324/4: 300 100 024|170 170 E20M4; =C7;
6325/3: 300 126 264|167 377|222 054 342|202 274 352 V77P104M5; SHC-1; J100<Z; J103;
30; (disc tape not L);
6327/2: 300 005 363|300 014 077|011|205 154 337 V0P100; V13; OR; J31≠Z;
6331/0: 300 014 070|300 014 102|200 154 335|300 014 067|203 274 336 V6; V16; J32≠Z; V5; J33;
6333/3: 300 014 073|300 014 072|205 261 217 34; V9; V8; J30P6; (fail);
6335/0: 300 013 307|203 154 333|300 014 071 32; V0P306; J34≠Z; V7;
6336/3: 202 321 221|041|033|301 014 077 33; JS20P6; ZERO; NOT; =V13;
6337/5: 041|304 000 003|167 375|042|203 321 232|052|052 31; ZERO; SET3; SHC-2; DUP; JS2P10; ERASE; ERASE;
6341/5: 200 274 115 JP299; (go back to look again);
6342/2: 141 020|110 020|100 020|304 000 001|172 030 100; M-I1; M0M1N; M0M1; SET1; =+C1;
6344/1: 166 061|041|301 126 264|300 014 074|300 014 073|300 014 072|304 000 005
SHLD+24; ZERO; =V77P104M5; V10; V9; V8; SET5;
6347/1: 171 170|170 142|304 042 000|201 326 014|200 261 206 102; C7; =M6; SETB21000; JS10P100; JP6;
6351/2: 300 014 106|200 154 311 101; V20; J24≠Z;
6352/2: 300 014 076|300 014 075|304 000 002|201 274 347 103; V12; V11; SET2; J102;
=== Start P3215V-1; at address 3309/6355
P3215;
6355/0: 200 360 000 EXIT1;
=== Start P-1V-1; at address 3310/6356
Finished
FINISH;
Reached end of file