Whetstone Algol Controller
This assembler listing has hot links for all references to P-routines.
P295’s individual entry points are dealt with individually.
You can click on the routine number in code such as JS16P295;
or V0P299; 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.
Loaded 122358 bytes for walgolc.k3
Warning: YA0 is out of range, only 0 YA-stores specified
Warning: YA1 is out of range, only 0 YA-stores specified
Warning: YA2 is out of range, only 0 YA-stores specified
Relocated 1
Finished
Reached end of file
=============== Second pass
===========================
11174 W0 = E4732
11440 Y0 = E4896
11275 YD0 = E4797
11376 YE0 = E4862
0/0: 200 260 010 [ == Page 1
ST ; TL99999;
Y0=E 4896;
V ; W 64;
YD 64; YE 33;
4/0: 201 262 272|201 262 273 RESTART; J 212; J 213;
PROGRAM;
10/0: 203 323 033 JS1P5; (GET FAIL DEV NO);
10/3: 200 260 015 J252;
11/0: 200 264 143|200 360 000 JP23; EXIT 1;
12/0: 200 264 200|200 360 000 JP24; EXIT 1;
13/0: 200 264 210|200 360 000 JP25; EXIT 1;
14/0: 200 264 220|200 360 000 JP26; EXIT 1;
15/0: 052|300 000 000|164 061|164 321|304 000 001|221 020 027 252; ERASE;E0;SHL+24;SHL-24;SETB1;J2=;(IF SIM REQD); [h/w if sim removed remove
17/2: 304 000 020|225 020 022|304 000 030|225 020 022|304 000 060|225 020 022|204 260 027
SETB20; J25=; SETB30; J25=; SETB60; J25=;J1; [h/w if sim removed remove
22/5: 304 000 001|311 001 043 25; SET1; =V75P113; [h/w if sim removed remove
23/5: 304 000 002|042|304 000 005|200 220 000|065|164 061|011|311 000 363|204 260 027
SET2; DUP; SET5; OUT; REV; SHL24; OR; =V27P113; J1; [h/w if sim removed remove
27/1: 210 321 044 2; JSP113; [h/w if sim removed remove
27/4: 052|304 023 036|170 364|304 023 037|170 362 1; ERASE; SETAY-2; =I15; SETAY-1; =M15;
31/3: 304 000 003|200 220 000|161 321|301 005 321|304 000 011|200 220 000|161 321|301 005 323
SET3; OUT; SHA-24; =V6P128; SET9; OUT; SHA-24; =V8P128;
35/1: 310 000 363|170 370|041|002 V27P113; =C15; ZERO; =TR; [h/w marked on LHS to J226
36/2: 110 000|164 061|164 321|304 000 002|036 M0M0N;SHL+24;SHL-24;SET2;-;(ADDR Z1);
40/0: 100 000|167 367|201 040 046 M0M0;SHC-5;J225≥Z;(IF LOAD-AND-GO);
41/1: 042|304 022 275|203 320 043 DUP; SET AYD0; JS224; (CLEAR WKING ST);
42/2: 125 360|121 360 PREQ15; PARQ15; (READ TITLE);
43/0: 203 260 051 J226;
43/3: 042|170 343|036|170 350 224; DUP; =RM14; -; =C14;
[ == Page 2
44/3: 041|303 340 000|263 340 044 3; ZERO; =E0M14Q; J3C14NZ;
45/4: 200 360 000 EXIT 1;
46/1: 304 023 036|304 022 275|203 320 043 225; SETAY-2; SETAYD0; JS224; (clear below prog);
47/4: 042|304 023 041|310 003 042|056|203 320 043 DUP; SETAY1; Y2; +; JS224; (clear above prog);
51/3: 042|304 000 044|036|304 023 040|036|170 030 226; DUP; SET36; -; SETAY0; -; =C1; (set xs);
53/2: 042|304 000 001|056|170 362|101 360 DUP; SET1; +; =M15; =M0M15;
54/5: 041|033|301 016 176|041|301 016 177 ZERO;NOT;=V1P295;ZERO;=V2P295; (init buffering);
56/2: 310 003 037|310 003 036|166 321|301 000 002|301 000 003 Y-1; Y-2; SHLD-24; =E2; =E3;
60/4: 310 000 247|200 335 332 V0P299; JSP293;
61/4: 300 000 000|304 000 020|054|225 140 063 E0; SETB20; AND; J227=Z; (if load-and-go);
63/2: 200 325 255 JSP126; (read prog);
63/5: 310 003 042|042|027|172 030 227; Y2; DUP; NEG; =+C1; (adjust xs);
65/0: 041|311 003 036|041|311 003 037 ZERO; =YE32; ZERO; =YE33; (in case ruined by title);
66/2: 304 000 012|036|042|222 100 070 SET10; -; DUP; J190>Z; (unl small prog);
67/4: 052|304 000 001 ERASE; SET1;
70/2: 042|043|311 002 276|170 042|170 064 190; DUP; DUPD; =YD1; =M2; =I3;
71/5: 310 003 041|056|042|311 003 041|310 003 040|056|170 022 Y1; +; DUP; =Y1; Y0; +; =M1; (set do,pp,ap);
74/1: 304 023 043|170 062 SET AY3; =M3;
75/0: 041|170 111 ZERO; =RC4;
75/3: 146 020 I1=+2;
75/5: 041|200 323 003 ZERO; JSP2; (set prog buffer);
(main prog loop 20/2/64);
76/3: 017|017|017|304 000 077|174 000 *21; SETAR21; =LINK;
77/5: 017|203 242 277 *7; J214NEN; (if guff in nest);
100/3: 001 VR;
100/4: 171 110|224 100 102 C4; J248>Z;
101/3: 140 100 M+I4;
[ == Page 3
101/5: 304 000 060|172 110 SET48; =+C4;
102/4: 304 377 370|172 110 248; SET-8; =+C4;
103/3: 110 103|100 103 M3M4N; M3M4;
104/1: 142 100|166 100|142 100 NC4; SHLDC4; NC4;
105/1: 065|170 136 REV; =Q5;
105/4: 304 000 377|054 SETB377; AND;
106/2: 300 000 000|164 061|221 140 110 E0; SHL24; J249=Z;
107/4: 200 325 222 JSP101;
110/1: 200 323 236 249; JSP12;
(tree 12/7/63);
110/4: 204 262 172|201 262 317|203 261 334|204 260 341|202 262 266|201 260 320|204 260 327|204 262 320
J180; J228; J113; J26; J209; J9; J18; J229;
114/4: 202 260 336|204 260 310|204 262 246|204 262 244|200 260 340|201 260 317|200 260 327|201 262 322
J23; J4; J202; J198; J24; J8; J16; J230;
120/4: 205 261 031|204 261 267|201 262 315|205 260 355|200 261 044|201 260 371|204 262 323|200 260 346
J44; J97; J223; J31; J46; J35; J231; J28;
124/4: 201 262 056|205 261 251|201 262 237|202 260 344|201 262 325|204 261 261|204 262 326|205 261 326
J149; J94; J193; J27; J232; J95; J233; J111;
130/4: 200 261 246|204 261 267|204 261 227|201 262 330|203 261 241|203 261 055|200 261 225|203 262 333
J93; J97; J88; J234; J92; J50; J86; J235;
134/4: 201 261 231|201 261 060|200 261 222|200 262 335|203 262 336|204 261 065|203 261 223|200 262 340
J89; J51; J84; J236; J237; J53; J85; J238;
140/4: 202 261 271|204 261 267|203 261 335|200 261 176|200 261 274|203 262 341|200 262 343|203 262 344
J101; J97; J114; J76; J102; J239; J240; J241;
144/4: 201 262 346|205 262 347|201 262 307|202 262 351|200 260 100|204 261 267|204 261 267|204 261 267
J242; J243; J219; J244; J7; J97; J97; J97;
150/4: 204 261 267|204 261 267|205 262 352|204 260 331|202 262 354|204 260 324|200 260 331|204 261 267
J97; J97; J245; J22; J246; J13; J19; J97;
154/4: 204 261 267|201 260 321|204 261 267|204 261 267|204 261 267|204 260 323|204 260 325|204 261 267
J97; J10; J97; J97; J97; J12; J15; J97;
160/4: 205 261 035|201 261 003|201 261 377|201 260 365|200 260 354|204 260 375|202 262 034|204 262 174
J45; J37; J127; J33; J30; J36; J141; J181;
164/4: 203 262 076|204 261 267|204 261 267|204 261 024|205 261 017|204 261 267|204 261 267|204 262 365
J155; J97; J97; J42; J40; J97; J97; J250;
170/4: 201 262 367|201 261 125|204 261 267|204 261 267|200 261 217|202 261 117|204 261 267|204 261 267
J251; J63; J97; J97; J82; J61; J97; J97;
174/4: 205 261 207|204 261 072|204 262 305|204 261 267|203 261 215|203 261 104|204 261 267|204 262 245
J79; J55; J218; J97; J81; J58; J97; J199;
200/4: 205 261 021|204 261 267|203 262 010|201 261 201|200 261 030|204 261 267|202 262 032|204 261 267
J41; J97; J131; J77; J43; J97; J140; J97;
204/4: 201 262 226|203 262 204|201 262 224|201 262 225|203 262 230|204 261 267|205 261 374|204 261 267
J188; J184; J186; J187; J189; J97; J126; J97;
210/4: 204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267
J97; J97; J97; J97; J97; J97; J97; J97;
[ == Page 4
214/4: 204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267
J 97; J 97; J 97; J 97; J 97; J 97; J 97; J 97;
220/4: 203 260 367|204 261 267|202 262 015|204 261 267|203 262 114|204 261 267|202 262 022|201 262 312
J 34; J 97; J133; J 97; J161; J 97; J135; J221;
224/4: 204 261 267|202 262 357|204 261 267|204 262 310|204 261 267|204 261 267|203 261 372|204 261 267
J 97; J247; J 97; J220; J 97; J 97; J125; J 97;
230/4: 203 261 167|204 261 267|204 261 267|204 261 267|205 261 160|204 261 267|204 261 267|204 261 267
J 74; J 97; J 97; J 97; J 72; J 97; J 97; J 97;
234/4: 204 261 132|204 261 267|201 262 304|204 261 267|201 261 147|204 261 267|201 262 302|205 262 264
J 65; J 97; J217; J 97; J 69; J 97; J216; J208;
240/4: 203 261 220|204 261 267|202 262 040|204 261 267|203 261 226|204 261 267|202 262 026|204 261 267
J 83; J 97; J143; J 97; J 87; J 97; J138; J 97;
244/4: 204 261 267|204 261 267|204 262 313|204 261 267|204 261 267|204 261 267|202 261 370|204 261 267
J 97; J 97; J222; J 97; J 97; J 97; J124; J 97;
250/4: 204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267
J 97; J 97; J 97; J 97; J 97; J 97; J 97; J 97;
254/4: 204 261 267|204 261 267|204 261 267|201 262 234|204 261 267|204 261 267|204 261 267|204 261 267
J 97; J 97; J 97; J191; J 97; J 97; J 97; J 97;
260/4: 204 261 267|204 261 267|204 262 171|204 261 267|204 261 267|204 261 267|202 262 030|204 261 267
J 97; J 97; J179; J 97; J 97; J 97; J139; J 97;
264/4: 204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|204 261 267|201 261 363|204 261 267
J 97; J 97; J 97; J 97; J 97; J 97; J122; J 97;
270/4: 204 261 267|204 261 267|204 261 267|204 261 267|202 261 316|204 261 267|204 261 267|204 261 267
J 97; J 97; J 97; J 97; J107; J 97; J 97; J 97;
274/4: 204 261 303|204 261 267|204 261 267|204 261 267|200 261 311|204 261 267|203 262 300|204 261 267
J105; J 97; J 97; J 97; J106; J 97; J215; J 97;
300/4: 204 261 267|204 261 267|205 261 351|204 261 267|201 262 145|204 261 267|202 262 036|204 261 267
J 97; J 97; J120; J 97; J172; J 97; J142; J 97;
304/4: 204 261 267|204 261 267|202 262 263|205 262 240|205 262 077|204 262 172|203 261 345|204 261 267
J 97; J 97; J207; J194; J156; J180; J118; J 97;
(Take Address 12/3/63);
310/4: 304 000 310 4; (TRA); SET B310; (r a);
311/1: 200 323 012 5; JSP4; (p,s,t a);
311/4: 205 140 313 J6≠Z; (if p ≠ 0);
312/1: 304 000 002|036|065|304 001 000|056 SET 2; -; REV; SET B400; +; ( t p a, s-2);
313/4: 065 14; REV;
313/5: 311 023 052 6; =Y10M1; (S[AP]:=S);
314/2: 311 023 053|140 020|143 020|143 020 =Y11M1; M+I1; DC1; DC1; (S[AP]:=t a,AP:=AP+2);
315/5: 171 030|222 041 270 C1; J98<Z; (if stack overflow);
316/4: 200 260 100 J7; (control);
317/1: 304 000 110|201 260 311 8; (TIA); SET B110; (i a); J5;
320/1: 304 000 050|201 260 311 9; (TBA); SET B50; (b a); J5;
[ == Page 5
(Take Result 13/3/63);
321/1: 304 000 300 10; (TRR); SET B300; (rr);
321/4: 200 323 012|052|170 362|310 363 052|205 260 313 11; JSP4; ERASE; =M15; Y10M15; J6;
323/4: 304 000 100|204 260 321 12; (TIR); SET B100; (ir) ; J11;
324/4: 304 000 040|204 260 321 13; (TBR); SET B40; (br); J11;
(Take imp const 13/3/63);
325/4: 171 104 15; (TIC1); I4;
326/0: 304 000 100 17; SET B100; (ir,1);
326/3: 204 260 313 J14;
327/0: 041|200 260 326 16; (TIC0); ZERO; J17;
327/4: 041|033 18; (TBCT); ZERO; NOT; (true);
330/0: 304 000 040|204 260 313 20; SET B40; J14;
331/0: 041|200 260 330 19; (TBCF); ZERO; (false); J20;
(Take label); (21/3/63);
331/4: 304 000 020|171 136|304 000 030|200 323 007 22; (TL); SET B20; Q5; SET 24; JSP3;
333/3: 041|166 041|065|164 261 ZERO; SHLD 16; REV; SHL -40; (n,a,label);
334/3: 170 362|310 362 276|164 041|056 =M15; YD1M15; SHL16; +; (D[n]/a,label);
335/5: 205 260 313 J6; (Join Take Address);
(Take Explicit Const 21/3/63);
336/2: 304 000 300|171 136|140 100|205 260 313 23; (TRC); SET B300; Q5; M +I4; J6;
340/0: 304 000 100|171 136|140 100|205 260 313 24; (TIC); SET B100; Q5; M + I4; J6;
(TSA 21/3/63);
341/4: 304 000 024|171 136|164 301|304 000 020|200 323 007|205 260 313
26; (TSA); SET B24; Q5; SHL -32; SET 16; JSP3; J6;
(Jump, Reject 14/3/63);
[ == Page 6
344/2: 171 136|164 301|200 323 003|200 260 100 27; (uj); Q5; SHL-32; JSP2; J7;
346/0: 304 000 002|310 023 051|304 000 040|036|205 141 270 28; (ifj); SET2; Y9M1; SETB40; -; J99≠Z; (if s[ap-1] ≠ br);
350/1: 052|310 023 050|200 140 353 ERASE; Y8M1; J29≠Z; (if A[AP-2]=true);
351/2: 171 136|164 301|200 323 003|200 260 354 Q5; SHL-32; JSP2; J30;
353/0: 304 000 020|200 323 007 29; SET16; JSP3;
354/0: 171 024|042|172 030 30; (reject); I1; DUP; =+c1; (xs:=xs+2);
354/5: 027|172 022|200 260 100 NEG; =+M1; J7;
(call operations 26/2/63);
355/5: 171 136|041 31; (cf); Q5; ZERO; (0,b1);
356/2: 166 041|065|164 261 SHLD16; REV; SHL-40; (m,a);
357/1: 304 000 030|200 323 007 SET24; JSP3;
360/1: 140 020 32; M+I1; (ap := ap+2);
360/3: 143 020|143 020 DC1; DC1;
361/1: 171 030|222 041 270 C1; J98<Z; (test stack overflow);
362/0: 200 323 100 39; JSP6; (go); (q,a);
362/3: 052|200 323 003 ERASE; JSP2; (reset 1);
363/1: 304 000 100 SETAR7;
363/4: 171 316|056 Q12; +; (raa,l1);
364/1: 311 043 054 =Y12M2; (store in s[pp+2]);
364/4: 200 260 100 J7;
33; (cfz);
365/1: 171 136|164 301|041 Q5; SHL-32; ZERO; (0,a);
366/0: 304 000 020|200 323 007 SET16; JSP3;
367/0: 201 260 360 J32; (join cf);
367/3: 304 000 030|200 323 164 34; (cbl); SET24; JSP7; (form i+3);
370/3: 041 ZERO; (o,i+3);
370/4: 200 260 362 J39; (join cf);
[ == Page 7
(entry operations 13/3/63);
371/1: 171 136|042 35; (pe); Q5; DUP;
371/4: 164 041|164 261 SHL16; SHL-40; (m,b1);
372/2: 304 000 030|200 323 007 SET24; JSP3;
373/2: 171 070|036|304 000 003|065 C3; -; SET3; REV; (m-m1,3,b1);
374/3: 205 141 270|052 J99≠Z; ERASE; (b1);
375/1: 203 261 004 J38; (jump to be);
375/4: 171 136 36; (fbe); Q5;
376/0: 042|304 000 040|200 323 007 DUP; SET32; JSP3;
377/1: 170 376|155 017 =Q15; CM0TOQ15;
377/5: 171 376 Q15;
400/1: 200 323 171 JSP8;
400/4: 056 +; (a/i,b1);
400/5: 311 043 050 =Y8M2; (s[pp-2]:=word[a,i]);
401/2: 310 043 054 Y12M2; (raa/link,b1);
401/5: 164 341 SHL-16;
402/1: 200 323 003 JSP2; (i:=h1[s[pp+2]]);
402/4: 203 261 004 J38;
403/1: 171 136 37; (be); Q5;
403/3: 304 000 020|200 323 007 SET16; JSP3;
(ENTRY);
404/3: 042|164 255 38; DUP; SHL-42;
405/0: 065|164 015|164 265 REV; SHL6; SHL-38; (l,n);
405/5: 042|027 DUP; NEG;
406/1: 171 030|056|171 070|042|056|056 C1; +; C3; DUP; +; +;
407/3: 042|170 030 DUP; =C1; (xs:=xs-l);
410/0: 222 041 270 J98<Z; (stack overflow);
410/3: 171 042|304 000 003|056 M2; SET3; +; (pp+3,l,n);
[ == Page 8
411/3: 042|170 302 DUP; =M12;
412/0: 056 +; (PP+L+3,n);
412/1: 042|170 022 DUP; =M1;
412/4: 170 304 =I12;
413/0: 042|170 362 DUP; =M15;
413/3: 171 042|311 362 276 M2; =YD1M15; (D[N]:=PP);
414/2: 310 362 275|164 041|171 322|056 YD0M15; SHL 16;M13; +; (PCc/PPa,n);
415/4: 311 043 052 =Y10M2;
416/1: 170 310 =C12;
416/3: 171 316|311 043 053 Q12; =Y11M2; (S[PP]:=[N,WP,FP]);
417/2: 200 260 100 J7; (Control);
(Return, etc., ops 13/3/63);
417/5: 310 023 050|311 043 050|310 023 051|311 043 051 40; (EIS); Y8M1; =Y8M2; Y9M1; =Y9M2; (S[PP-2,1]:=S[AP-2,1]);
421/5: 310 043 054|042|164 341 41; (RETURN); Y12M2; DUP; SHL -16; (I,S[PP+2]);
422/5: 200 323 003|174 000 JSP2; =LINK;
423/4: 200 323 176 JSP9; (LEAVE);
424/1: 202 360 000 EXIT;
424/4: 171 136|164 301 42; (FSE); Q5; SHL -32; (A);
425/2: 200 323 003|200 323 176 JSP2; JSP9;
426/2: 141 020|304 000 002|172 030 M-I1; SET 2; =+C1; (AP:=AP+2);
427/3: 200 260 100 J7;
430/0: 310 043 054|164 341|200 323 003|200 260 100 43; (FR); Y12M2; SHL-16; JSP2; J7;
(ST,STA 13/3/63);
431/5: 200 323 203|310 003 037|304 000 012|036|220 041 035 44; (ST); JSP10; YE33; SET 10; -; J211<Z;
434/0: 204 324 333|200 260 100 JS3P31; J7;
435/0: 052|052 211; ERASE; ERASE;
435/2: 200 260 100 J7;
[ == Page 9
435/5: 200 323 203|311 023 052|042 45; (sta); JSP10; =Y10M1; DUP; (s[ap-4]:=y);
437/0: 311 023 053 =Y11M1;
437/3: 310 023 051|015|304 000 200|054|304 000 005|065 Y9M1; NEV; SETB200; AND; SET5; REV;
441/3: 205 141 270 J99≠Z;
442/0: 052 ERASE;
442/1: 140 020|143 020|143 020|200 260 100 M+I1; DC1; DC1; J7;
(gta 21/3/63);
443/4: 017|017|041|310 023 050|166 341 *46; (gta); ZERO; Y8M1; SHLD-16;
445/0: 042|171 042|036|225 141 052 DUP; M2; -; J47=Z; (if q=pp);
446/1: 042|310 043 053|164 301|200 322 371 DUP; Y11M2; SHL-32; JSP1; (udd);
447/4: 170 042|310 043 053|164 341|042|027|171 022|056|172 030|170 022|201 261 054
=M2; Y11M2; SHL-16; DUP; NEG; M1; +; =+C1; =M1; J48;
452/5: 052|141 020|304 000 002|172 030 47; ERASE; M-I1; SET2; =+C1; (ap:=ap-2);
454/1: 164 301|200 323 003 48; SHL-32; JSP2;
455/0: 200 260 100 J7;
(take formal address 12/4/63);
455/3: 304 000 100|200 323 012|052|200 323 246 50; (tfa); SETAR7; JSP4; ERASE; JSP14; (take formal);
457/1: 200 260 100|200 260 100 J7; J7;
460/1: 304 001 063|200 323 012|052|200 323 246|200 260 100 51; (tfar); SETAR52; JSP4; ERASE; JSP14; J7;
462/2: 017|017|017|017|310 023 051|304 000 310|036|220 140 100 *52; Y9M1; SETB310; -; J7=Z; (if r a);
464/4: 304 000 007|200 323 033 SET7; JSP5; (fail);
465/4: 304 001 070|200 323 012|052|200 323 246|200 260 100 53; (tfai); SETAR54; JSP4; ERASE; JSP14; J7;
467/5: 017|310 023 051|304 000 110|036|220 140 100 *54; Y9M1; SETB110; -; J7=Z; (if i a);
471/4: 304 000 010|200 323 033 SET8; JSP5; (fail);
(take formal result 12/4/63);
472/4: 304 001 075|200 323 012|052|200 323 246|200 260 100 55; (tfr); SETAR56; JSP4; ERASE; JSP14; J7; (take formal);
474/5: 017|200 323 261|310 023 051|304 000 100|221 021 101 *56; JSP15; Y9M1; SETB100; J57=; (if i r);
[ == Page 10
477/0: 304 000 300|036|220 140 100 SETB300; -; J7=Z; (if r r);
500/1: 304 000 012|200 323 033 SET10; JSP5; (fail);
501/1: 310 023 050|304 000 057|024|311 023 050|052|304 000 300|311 023 051|200 260 100
57; Y8M1; SET47; FLOAT; =Y8M1; ERASE; SETB300; =Y9M1; J7;
504/3: 304 001 107|200 323 012|052|200 323 246|200 260 100 58; (tfi); SETAR59; JSP4; ERASE; JSP14; J7;
506/4: 017|017|200 323 261|310 023 051|304 000 300|221 021 113 *59; JSP15; Y9M1; SETB300; J60=; (if r r);
511/0: 304 000 100|036|220 140 100 SETB100; -; J7=Z; (if i r);
512/1: 304 000 013|200 323 033 SET11; JSP5; (fail);
513/1: 310 023 050|200 323 230|304 000 014|200 323 033|311 023 050|052|304 000 100|311 023 051|200 260 100
60; Y8M1; JSP11; SET12; JSP5; =Y8M1; ERASE; SETB100; =Y9M1; J7;
517/2: 304 001 122|200 323 012|052|200 323 246|200 260 100 61; (tfb); SETAR62; JSP4; ERASE; JSP14; J7;
521/3: 017|017|017|200 323 261|310 023 051|304 000 040|036|220 140 100
*62; JSP15; Y9M1; SETB40; -; J7=Z; (if b r);
524/1: 304 000 015|200 323 033 SET13; JSP5; (fail);
525/1: 304 001 130|200 323 012|052|200 323 246|200 260 100 63; (tfl); SETAR64; JSP4; ERASE; JSP14; J7;
527/2: 017|017|017|017|310 023 051|304 000 020|036|220 140 100 *64; Y9M1; SETB20; -; J7=Z; (if l);
531/4: 304 000 016|200 323 033 SET14; JSP5; (fail);
(check and store 12/4/63);
532/4: 304 001 136|310 043 053|164 101|164 301|200 323 246|200 260 100
65; (csr); SETAR66; Y11M2; SHL32; SHL-32; JSP14; J7;
535/2: 017|017|017|017|200 323 261|310 023 050|310 023 051|304 000 100|223 021 142
*66; JSP15; Y8M1; Y9M1; SETB100; J67=; (if i r);
540/3: 304 000 300|223 021 143 SETB300; j68=; (if r r);
541/3: 304 000 017|200 323 033 SET15; JSP5;
542/3: 065|304 000 057|024|065 67; REV; SET47; FLOAT; REV;
543/3: 310 043 053|042|170 362|304 000 002|056|311 043 053|311 363 053|311 363 052|200 260 354
68; Y11M2; DUP; =M15;SET 2; +; =Y11M2; =Y11M15; =Y10M15; J30;
547/1: 304 001 152|310 043 053|164 101|164 301|200 323 246|200 260 100
69; (csi); SETAR70; Y11M2; SHL32; SHL-32; JSP14; J7;
551/5: 017|200 323 261|310 023 050|310 023 051|304 000 300|223 021 156
*70; JSP15; Y8M1; Y9M1; SETB300; J71=; (if r r);
554/3: 304 000 100|223 021 143 SETB100; J68=; (if i r);
555/3: 304 000 020|200 323 033 SET16; JSP5;
556/3: 065|200 323 230|304 000 021|200 323 033|065|203 261 143 71; REV; JSP11; SET 17; JSP5; REV; J68;
560/5: 304 001 164|310 043 053|164 101|164 301|200 323 246|200 260 100
72; (csb); SETAR73; Y11M2; SHL32; SHL-32; JSP14; J7;
563/3: 017|017|017|200 323 261|310 023 050|310 023 051|304 000 040|223 021 143
*73; JSP15; Y8M1; Y9M1; SETB40; J68=; (if b r);
[ == Page 11
566/3: 304 000 022|200 323 033 SET 18; JSP5;
567/3: 304 001 173|310 043 053|164 101|164 301|200 323 246|200 260 100
74; (CSL); SET AR75; Y11M2; SHL32; SHL-32; JSP14; J7;
572/1: 017|017|017|017|017|310 023 050|310 023 051|304 000 020|223 021 143
*75; Y8M1; Y9M1; SET B20; J68=; (if l);
575/0: 304 000 023|200 323 033 SET 19; JSP5;
(Call Formal 12/4/63);
576/0: 200 323 012|052|171 136|164 041 76; (CFF); JSP4; ERASE; Q5; SHL 16;
577/2: 164 261|304 000 010|200 323 007|200 261 202 SHL-40; SET 8; JSP3; J78;
601/1: 200 323 012|052|041 77; (CFFZ); JSP4; ERASE; ZERO;
602/0: 304 000 100|012|065 78; SET AR7; PERM; REV;
602/5: 170 362|041|310 363 052|166 341|065|164 301 =M15; ZERO; Y10M15; SHLD-16; REV; SHL-32;
604/4: 065|066|140 020 REV; CAB; M+I1;
605/2: 143 020|143 020|171 030|222 041 270 DC1; DC1; C1; J98<Z; (if S overflow);
606/5: 200 323 241|200 260 100 JSP13; J7; (GO FORMAL);
(Check Operations 17/4/63);
607/5: 304 000 024|304 000 311 79; (CAR); SET 20; SET B311;
610/5: 310 043 053|042|164 101|164 301 80; Y11M2; DUP; SHL 32; SHL-32;
612/1: 170 362|304 000 002|056|311 043 053 =M15; SET 2; +; =Y11M2;
613/4: 310 363 053|036|205 141 270 Y11M15; -; J99≠Z; (if fail);
614/5: 052|200 260 100 ERASE; J7;
615/3: 304 000 025|304 000 111|205 261 210 81; (CAI); SET 21; SET B111; J80;
617/0: 304 000 026|304 000 051|205 261 210 82; (CAB); SET 22; SET B51; J80;
620/3: 304 000 027|304 000 004|205 261 210 83; (CPR); SET 23; SET B4; J80;
622/0: 304 000 030|304 000 304|205 261 210 84; (CFR); SET 24; SET B304; J80;
623/3: 304 000 031|304 000 104|205 261 210 85; (CFI); SET 25; SET B104; J80;
625/0: 304 000 032|304 000 044|205 261 210 86; (CFB); SET 26; SET B44; J80;
626/3: 304 000 033|041|205 261 210 87; (CST); SET 27; ZERO; J80;
627/4: 304 000 034|304 000 021|205 261 210 88; (CW); SET 28; SET B21; J80;
[ == Page 12
631/1: 304 000 035|310 043 053|042|164 101|164 301|170 362 89; (CA); SET 29; Y11M2; DUP; SHL 32; SHL-32; =M15;
633/2: 310 363 053|042|304 000 101|054|304 000 100 Y11M15; DUP; SET B101; AND; SET B100;
635/1: 036|223 141 237 90; -; J91=Z; (if not type);
635/5: 304 000 006|223 021 237 SET B6; J91=; (if not i s r);
636/5: 066|200 323 033 CAB; JSP5;
637/3: 052|304 000 002|056|311 043 053|052|200 260 100 91; ERASE; SET 2; +; =Y11M2; ERASE; J7;
641/3: 304 000 036 92; (CB); SET 30;
642/0: 310 043 053|042|164 101|164 301|170 362 Y11M2; DUP; SHL 32; SHL-32; =M15;
643/4: 310 363 053|042|304 000 041|054|304 000 040|201 261 235 Y11M15; DUP; SET B41; AND; SET B40; J90;
646/0: 304 000 037 93; (CL); SET 31;
646/3: 310 043 053|042|164 101|164 301|170 362 Y11M2; DUP; SHL 32; SHL-32; =M15;
650/1: 310 363 053|042|304 000 020|201 261 235 Y11M15; DUP; SET B20; J90;
(MSF,MOSF 8/5/63);
651/5: 310 043 053|164 041|164 301|042 94; (MSF); Y11M2; SHL16; SHL-32; DUP;
653/1: 200 323 272 JSP16;
653/4: 171 350|304 000 012|036|042|310 043 053|170 376|170 364|171 376|311 043 053
C14; SET 10; -; DUP; Y11M2; =Q15; =I15; Q15; =Y11M2;
656/5: 042|171 022|036|027|172 030|171 030|222 041 270 DUP; M1; -; NEG; =+C1; C1; J98<Z; (st overflow);
660/5: 170 022|200 260 100 =M1; J7;
661/4: 310 043 053|164 041|164 301|310 003 041 95; (MOSF); Y11M2; SHL 16; SHL -32; Y1;
663/2: 200 323 272 JSP16;
663/5: 171 350|304 000 012|036|311 003 041|171 262|042|171 022|036 C14; SET 10; -; =Y1; M11; DUP; M1; -;
666/2: 027|172 030|170 022|200 260 100 NEG; =+C1; =M1; J7;
667/4: 041|205 261 270 97; ZERO; J99;
670/2: 304 000 001 98; SET 1;
670/5: 200 323 033 99; JSP5;
(INDA, INDR 10/5/63);
[ == Page 13
671/2: 200 323 336|203 261 300 101; (INDA); JSP17; J103;
672/2: 304 000 012|036|311 023 050|200 260 100 SET 10; -; =Y8M1; J7;
674/0: 200 323 336|203 261 300 102; (INDR); JSP17; J103;
675/0: 170 362|310 363 040|311 023 050 =M15; Y0M15; =Y8M1;
676/2: 310 023 051|304 000 010|036|311 023 051|200 260 100 Y9M1; SET B10; -; =Y9M1; J7;
700/3: 225 141 301|052|041|200 260 362 103; J104=Z; ERASE; ZERO; J39; (Join CF);
701/5: 304 000 100|012|041|200 323 241|200 260 100 104; SET AR7; PERM; ZERO; JSP13; J7;
(CRFA, etc. 16/5/63);
703/4: 310 043 053|042|164 101|164 301|170 342 105; (CRFA); Y11M2; DUP; SHL 32; SHL -32; =M14; (s in M14);
705/2: 310 343 053|304 000 311|223 021 322 Y11M14; SET B311; J108=; (if r a);
706/5: 304 000 111|036|225 141 323 SET B111; -; J109=Z; (if i a);
710/0: 304 000 050|200 323 033 SET 40; JSP5;
711/0: 310 043 053|042|164 101|164 301|170 342 106; (CIFA); Y11M2; DUP; SHL 32; SHL -32; =M14;
712/4: 310 343 053|304 000 111|223 021 322 Y11M14; SET B111; J108=; (if i a);
714/1: 304 000 311|036|222 141 325 SET B311; -; J110=Z; (if r a);
715/2: 304 000 051|200 323 033 SET 41; JSP5;
716/2: 310 043 053|042|164 101|164 301|170 342 107; (CBFA); Y11M2; DUP; SHL 32; SHL -32; =M14;
720/0: 310 343 053|304 000 051|223 021 322 Y11M14; SET B51; J108=; (if b a);
721/3: 304 000 052|200 323 033 SET 42; JSP5;
722/3: 052|041|200 324 000|200 260 100 108; ERASE; ZERO; JSP18; J7;
723/5: 304 000 001|200 324 000|200 260 100 109; SET 1; JSP18; J7;
725/2: 304 377 377|200 324 000|200 260 100 110; SET -1; JSP18; J7;
(Switch ops 29/5/63);
726/5: 310 043 055|304 000 001|036|042|225 141 332 111; (DSI); Y13M2; SET 1; -; DUP; J112=Z; (if x=0);
730/4: 311 043 055|171 136|164 301|200 323 003|200 260 100 =Y13M2; Q5; SHL -32; JSP2; J7;
732/5: 052|304 000 020|200 323 007|200 260 100 112; ERASE; SET 16; JSP3; J7;
734/3: 304 000 053|200 323 033 113; (ESL); SET 43; JSP5;
[ == Page 14
(Unary ops, ÷ 29/5/63);
735/3: 310 023 050|310 023 051|304 000 300|224 021 341 114; (NEG); Y8M1; Y9M1; SET B300; J115=; (if r);
737/3: 304 000 100|036|220 141 343 SET B100; -; J116=Z; (if i);
740/4: 304 000 054|200 323 033 SET 44; JSP5;
741/4: 052|031|304 000 055|204 261 343 115; ERASE; NEGF; SET 45; J117;
743/0: 027|304 000 056 116; NEG; SET 46;
743/4: 065|311 023 050|225 201 270 117; REV; =Y8M1; J99V;
744/5: 052|200 260 100 ERASE; J7;
745/3: 310 023 051|304 000 040|036|205 141 350 118; (NOT); Y9M1; SET B40; -; J119≠Z; (if ≠ b);
747/1: 310 023 050|033|311 023 050|200 260 100 Y8M1; NOT; =Y8M1; J7;
750/5: 304 000 057|200 323 033 119; SET 47; JSP5;
751/5: 310 023 047|310 023 051|011|304 000 100|036|221 141 355 120; (DIV); Y7M1; Y9M1; OR; SET B100; -; J121=Z; (if i,i);
754/1: 304 000 060|200 323 033 SET 48; JSP5;
755/1: 304 000 061|310 023 046|042|026|310 023 050|042|026|066 121; SET49; Y6M1; DUP; ABS; Y8M1; DUP; ABS; CAB;
757/3: 037|201 101 361|052|052|041|203 261 361 SIGN; J196≤Z; ERASE; ERASE; ZERO; J197;
761/1: 044|052 196; ÷I; ERASE;
761/3: 311 023 046|225 201 270 197; =Y6M1; J99V;
762/3: 052|200 260 354 ERASE; J30;
(log ops 29/5/63);
763/1: 310 023 046|310 023 050|054|304 000 062 122; (AND); Y6M1; Y8M1; AND; SET 50;
764/5: 310 023 047|310 023 051|011|304 000 040|036|205 141 270 123; Y7M1; Y9M1; OR; SET B40; -; J99≠Z;
767/1: 052|311 023 046|200 260 354 ERASE; =Y6M1; J30;
770/2: 310 023 046|310 023 050|011|304 000 063|205 261 364 124; (OR); Y6M1; Y8M1; OR; SET51; J123;
772/3: 310 023 046|033|310 023 050|011|304 000 064|205 261 364 125; (IMP); Y6M1; NOT; Y8M1; OR; SET 52; J123;
774/5: 310 023 046|310 023 050|015|033|304 000 065|205 261 364 126; (EQV); Y6M1; Y8M1; NEV; NOT; SET 53; J123;
[ == Page 15
( +,-,× 29/5/63);
777/1: 304 000 066|310 023 046|310 023 050|310 023 047|310 023 051|200 324 031
127; (+); SET 54; Y6M1; Y8M1; Y7M1; Y9M1; JSP19;
1002/1: 202 262 005 J129; (i);
1002/4: 074 +F;
1002/5: 065|304 000 011|056|225 201 270 128; REV; SET 9; +; J99V; (if r ovfl);
1004/1: 052|311 023 046|200 260 354 ERASE; =Y6M1; J30;
1005/2: 056 129; +;
1005/3: 042|311 023 046|161 021|052 130; DUP; =Y6M1; SHA 8; ERASE;
1006/4: 304 000 022|056|225 201 270 SET 18; +; J99V; (if i ovfl);
1007/5: 052|200 260 354 ERASE; J30;
1010/3: 304 000 067|310 023 046|310 023 050|310 023 047|310 023 051|200 324 031
131; (-); SET 55; Y6M1; Y8M1; Y7M1; Y9M1; JSP19;
1013/3: 204 262 014 J132;
1014/0: 075|205 262 002 -F; J128;
1014/4: 036|203 262 005 132; -; J130;
1015/2: 304 000 070|310 023 046|310 023 050|310 023 047|310 023 051|200 324 031
133; (×); SET 56; Y6M1; Y8M1; Y7M1; Y9M1; JSP19;
1020/2: 203 262 021 J134;
1020/5: 004|205 262 002 ×F; J128; [ multiplies are indistinct but the sense is multiply
1021/3: 034|050|203 262 005 134; ×D; CONT; J130; [ ... also * over - is times. There is no - over - and no ÷ divide char on the printer
(<,≤,=,≥,>,≠ 29/5/63);
1022/2: 304 000 071|200 324 044 135; (<); SET 57; JSP20;
1023/2: 220 042 025 J137 < Z;
1023/5: 041|311 023 046|200 260 354 136; ZERO; =Y6M1; J30;
1025/0: 041|033|311 023 046|200 260 354 137; ZERO; NOT; =Y6M1; J30;
1026/2: 304 000 072|200 324 044 138; (≤); SET 58; JSP20;
1027/2: 200 102 025 J137 ≤ Z;
1027/5: 205 262 023 J136;
1030/2: 304 000 073|200 324 044 139; (=); SET 59; JSP20;
1031/2: 220 142 025 J137 = Z;
[ == Page 16
1031/5: 205 262 023 J136;
1032/2: 304 000 074|200 324 044 140; (≥); SET 60; JSP20;
1033/2: 200 042 025 J137 ≥ Z;
1033/5: 205 262 023 J136;
1034/2: 304 000 075|200 324 044 141; (>); SET 61; JSP20;
1035/2: 220 102 025 J137 > Z;
1035/5: 205 262 023 J136;
1036/2: 304 000 076|200 324 044 142; (≠); SET 62; JSP20;
1037/2: 200 142 025 J137 ≠ Z;
1037/5: 205 262 023 J136;
( / 29/5/63);
1040/2: 310 023 046|310 023 047|304 000 300|201 022 047 143; (/); Y6M1; Y7M1; SET B300; J146≠; (unless r);
1042/2: 052|310 023 050|310 023 051|304 000 300|204 022 053 144; ERASE; Y8M1; Y9M1; SET B300; J148≠; (unless r);
1044/3: 052|001|062|311 023 046|304 000 113|225 201 270 145; ERASE; VR; ÷F; =Y6M1; SET 75; J99V;
1046/3: 052|200 260 354 ERASE; J30;
1047/1: 304 000 100|204 022 052 146; SET B100; J147≠; (unless i);
1050/1: 052|304 000 057|024|304 000 300|311 023 047|041|202 262 042 ERASE; SET 47; FLOAT; SET B300; =Y7M1; ZERO; J144;
1052/4: 304 000 114|205 261 270 147; SET 76; J99;
1053/4: 304 000 100|204 022 052 148; SET B100; J147≠; (unless i);
1054/4: 052|304 000 057|024|041|203 262 044 ERASE; SET 47; FLOAT; ZERO; J145;
(FOR A, LINK 11/6/63);
1056/1: 304 002 064 149; (FOR A); SET AR 152;
1056/4: 200 323 171|311 043 051 150; JSP8; =Y9M2;
1057/4: 310 043 050|164 041|164 301|200 323 003 175; Y8M2; SHL 16; SHL-32; JSP2;
1061/2: 310 043 054|164 341|164 041 151; Y12M2; SHL -16; SHL 16;
1062/3: 056|311 043 054|200 260 100 +; =Y12M2; J7;
1063/4: 017|017|304 002 071 *152; SET AR 154;
[ == Page 17
1064/3: 304 000 115 153; SET 77;
1065/0: 310 023 051|304 001 000|054|205 141 270 Y9M1; SET B400; AND; J99≠Z;
1066/4: 052|310 043 051|200 323 003|202 262 061 ERASE; Y9M2; JSP2; J151;
1070/2: 017|017|017|017|310 043 054|170 376|200 323 171 *154; Y12M2; =Q15; JSP8;
1072/2: 170 364 =I15;
1072/4: 171 376|311 043 054 Q15; =Y12M2;
1073/3: 200 323 203|052|052 JSP10; ERASE; ERASE;
1074/2: 310 043 050|164 101|164 301|200 323 003 Y8M2; SHL 32; SHL -32; JSP2;
1076/0: 200 260 100 J7;
1076/3: 310 043 054|174 000 155; (LINK); Y12M2; =LINK;
1077/2: 202 360 000 EXIT;
(FOR W 11/6/63);
1077/5: 304 002 101|204 262 056 156; (FOR W); SET AR157; J150;
1100/5: 017|304 002 102|203 262 064 *157; SET AR158; J153;
1102/0: 200 323 203|052|052|304 002 104|202 262 061 *158; JSP10; ERASE; ERASE; SET AR159; J151;
1103/5: 017|304 000 116 *159; SET 78;
1104/3: 310 023 051|304 000 040|036|205 141 270 Y9M1; SET B40; -; J99≠Z;
1106/1: 052|310 023 050|223 142 111 ERASE; Y8M1; J160=Z;
1107/2: 310 043 050|164 101|164 301|200 323 003 168; Y8M2; SHL 32; SHL -32; JSP2;
1111/0: 200 260 354 J30;
1111/3: 310 043 054|170 376|200 323 171 160; Y12M2; =Q15; JSP8;
1112/5: 170 364 =I15;
1113/1: 171 376|311 043 054|200 260 354 Q15; =Y12M2; J30;
(For st 1st entry 15/11/63);
1114/3: 304 002 116|204 262 056 161; (FORS1); SET AR162; J150; (Take add of V);
1115/3: 017|017|017|304 002 117|203 262 064 *162; SET AR163; J153; (Take A);
1117/0: 200 323 203 *163; JSP10; (Store);
[ == Page 18
1117/3: 311 043 055|311 043 056 =Y13M2; =Y14M2;
1120/3: 310 043 054|170 376|200 323 171|170 364|171 376|311 043 054 Y12M2; =Q15; JSP8; =I15; Q15; =Y12M2;
1123/0: 304 000 010|200 323 007 SET 8; JSP3;
1124/0: 304 002 125|202 262 061 SET AR164; J151; (Take B);
1125/0: 310 023 050|311 043 057|310 023 051|311 043 060 *164; Y8M1; =Y15M2; Y9M1; =Y16M2;
1127/0: 171 024|172 030|141 020 I1; =+C1; M-I1;
1130/0: 304 002 131|202 262 061 165; SET AR166; J151; (Take C);
1131/0: 304 000 144|310 043 055|310 023 050|310 043 056|310 023 051 *166; SET 100; Y13M2; Y8M1; Y14M2; Y9M1;
1133/3: 140 020|200 324 342|203 262 143 M+I1; JSP32; J171;
1134/5: 075|203 202 136 -F; J167NV;
1135/3: 304 000 146|200 323 033 SET102; JSP5;
1136/3: 065|052|310 043 057|043|141 020|015|202 042 141 167; REV; ERASE; Y15M2; DUP D; M-I1; NEV; J169≥Z;
1140/3: 052|052|202 262 107 ERASE; ERASE; J168;
1141/2: 203 142 142 169; J170≠Z;
1141/5: 052|202 262 107 ERASE; J168;
1142/3: 222 142 107 170; J168=Z;
1143/0: 203 262 111 J160;
1143/3: 036|203 202 136 171; -; J167NV;
1144/1: 304 000 147|200 323 033 SET 103; JSP5;
(For st 2nd entry 15/11/63);
1145/1: 304 002 147|202 262 061 172; (FORS2); SET AR173; J151; (Take B);
1146/1: 017|017|017|017|017|310 023 050|311 043 057|310 023 051|311 043 060
*173; Y8M1; =Y15M2; Y9M1; =Y16M2;
1151/0: 171 024|172 030|141 020 I1; =+C1; M-I1;
1152/0: 304 002 153|204 262 056 SET AR174; J150; (Take add of V);
1153/0: 304 002 154|204 262 057 *174; SET AR176; J175; (Take add of V);
1154/0: 200 323 261 *176; JSP15; (Cond take);
1154/3: 304 000 145|310 023 050|310 043 057|310 023 051|310 043 060 SET 101; Y8M1; Y15M2; Y9M1; Y16M2;
1157/0: 140 020|200 324 342|203 262 167 M+I1; JSP32; J178;
[ == Page 19
1160/2: 074|304 000 300|203 202 162 +F; SET B300; J177NV;
1161/3: 304 000 150|200 323 033 SET 104; JSP5;
1162/3: 141 020|311 023 051|311 023 050 177; M-I1; =Y9M1; =Y8M1;
1163/5: 200 323 203 JSP10; (Store);
1164/2: 311 043 055|311 043 056|052 =Y13M2; =Y14M2; ERASE;
1165/3: 304 002 131|310 043 051|200 323 003|202 262 061 SET AR166; Y9M2; JSP2; J151; (Take C);
1167/3: 056|304 000 100|203 202 162 178; +; SET B100; J177NV;
1170/4: 304 000 151|200 323 033 SET 105; JSP5;
(^ 1/7/63);
1171/4: 200 324 100|200 260 354 179; (^); JSP22; J30;
(End 11/11/63);
1172/4: 211 320 220 180; (FINISH); JS160P295; (Grand close);
1173/1: 200 325 335 JSP128; (Finish);
1173/4: 304 000 127|200 323 033 SET 87; JSP5; (not all closed);
(AOA 8/7/63);
1174/4: 171 102|171 110|304 000 060|220 022 203 181; (AOA); M4; C4; SET 48; J183=;
1176/2: 170 370|170 362|304 000 033|304 000 377 182; =C15; =M15; SET B33; SET B377;
1200/0: 166 360|033|100 103 SHLDC15; NOT; M3M4;
1200/5: 054|056|101 103 AND; +; =M3M4;
1201/3: 304 000 020|200 323 007|200 260 100 SET 16; JSP3; J7;
1203/0: 052|304 000 001|036|041|202 262 176 183; ERASE; SET 1; -; ZERO; J182;
(Down 11/7/63);
1204/3: 304 000 300 184; (RDOWN); SET B300;
1205/0: 311 043 051|304 003 375|164 113|311 043 050 185; =Y9M2; SET B1775; SHL 37; =Y8M2;
Warning: YA0 is out of range, only 0 YA-stores specified
Warning: YA1 is out of range, only 0 YA-stores specified
1206/5: 171 136|042|304 000 100|311 002 275|304 001 044|311 002 276 Q5; DUP; SET AR7; =YA0; SET AR46; =YA1;
[ == Page 20
1211/2: 164 261|304 000 001|036|170 362 SHL -40; SET 1; -; =M15;
1212/4: 304 016 100 SET 3648; (TEMPORARY);
1213/1: 170 342|100 340|170 342 =M14; M0M14; =M14;
1214/1: 100 376|174 000 M14M15; =LINK;
1214/5: 042|164 021|164 261|042|066 DUP; SHL 8; SHL -40; DUP; CAB;
1216/0: 164 041|164 261|056|304 000 006|056 SHL 16; SHL -40; +; SET 6; +;
1217/3: 042|172 022|027|172 030 DUP; =+M1; NEG; =+C1;
1220/3: 171 030|222 041 270 C1; J98<Z; (if st ofl);
1221/2: 311 023 050 =Y8M1;
1221/5: 304 000 030|200 323 007|171 116|311 023 047 SET 24; JSP3; Q4; =Y7M1;
1223/4: 202 360 000 EXIT;
1224/1: 304 000 100|200 262 205 186; (IDOWN); SET B100; J185;
1225/1: 304 000 040|200 262 205 187; (BDOWN); SET B40; J185;
(UP 11/7/63);
1226/1: 200 324 230 188; (UP1); JSP27;
1226/4: 310 023 046|174 000 Y6M1; =LINK;
1227/3: 310 023 052 Y10M1;
1230/0: 200 360 000 EXIT 1;
1230/3: 310 023 050|170 102 189; (UP2); Y8M1; =M4;
1231/2: 310 023 047|311 103 052 Y7M1; =Y10M4;
1232/2: 200 324 230 JSP27;
1232/5: 310 023 046|174 000 Y6M1; =LINK;
1233/4: 200 360 000 EXIT 1;
(Simple std func 25/11/63);
1234/1: 310 043 055|200 324 370 191; (ABS); Y13M2; JSP41;
1235/1: 311 043 050|304 000 300|311 043 051|205 261 021 192; =Y8M2; SET B300; =Y9M2; J41;
1237/1: 310 043 055|200 324 371|042|203 262 242 193; (SIGN); Y13M2; JSP42; DUP; J195;
[ == Page 21
1240/5: 310 043 055|200 325 015|042|203 262 242 194; (ENTIER); Y13M2; JSP46; DUP; J195;;
1242/3: 311 043 050|052|304 000 100|311 043 051|205 261 021 195; =Y8M2; ERASE; SET B100; =Y9M2; J41;
(Input/Output 23/8/63);
1244/4: 200 324 264 198; (PRINT); JSP28;
1245/1: 205 261 021 J41;
1245/4: 200 324 267 199; (READ); JSP29;
1246/1: 201 262 235 J192;
(Trace 18/9/63);
1246/4: 171 136|140 100 202; (TRACE); Q5; M + I4;
1247/2: 310 003 037|304 000 011|036|221 042 252 YE33; SET 9; -; J203<Z;
1251/0: 042|310 000 247|200 326 027 DUP; V0P299; JSP129; (Pch label);
1252/1: 310 003 036|042|012 203; YE32; DUP; PERM;
1253/0: 170 362 =M15;
1253/2: 310 362 376|225 022 260 YE0M15; J204=;
1254/2: 065|304 000 002|056|164 127 REV; SET 2; +; SHL 43;
1255/3: 164 253|042|170 362|311 003 036 SHL -43; DUP; =M15; =YE32;
1256/5: 311 362 376|304 000 001|311 362 377 =YE0M15; SET 1; =YE1M15;
1260/2: 200 260 100 J7;
1260/5: 310 362 377|304 000 001|056|311 362 377 204; YE1M15; SET 1; +; =YE1M15;
1262/3: 052|052|200 260 100 ERASE; ERASE; J7;
(Open, Close 10/10/63);
1263/2: 310 043 055|200 335 332|205 261 021 207; (OPEN); Y13M2; JSP293; J41;
1264/5: 310 043 055|200 335 177|205 261 021 208; (CLOSE); Y13M2; JSP292; J41;
(Test 1/11/63);
1266/2: 310 043 055|042|225 042 270 209; (TEST); Y13M2; DUP; J210<Z;
[ == Page 22
1267/3: 311 003 037|041|042|203 262 242 =YE33; ZERO; DUP; J195;
1270/5: 052|310 003 037|042|203 262 242 210; ERASE; YE33; DUP; J195;
(RESTARTS 26/1/64);
1272/1: 304 000 132|204 262 273 212; SET 90; J200; (EVEN - FOR TIME LIMIT FAIL);
1273/1: 304 000 133 213; SET 91; (ODD - BY OPERATOR);
1273/4: 310 000 247|200 336 246 200; V0P299; JS1P295; (TEST IF FAIL DEV OPEN);
1274/4: 205 262 275 J201;
1275/1: 052|200 323 033 ERASE; JSP5;
1275/5: 052|310 000 247|200 335 332 201; ERASE; V0P299; JSP293;
1277/0: 200 323 033 JSP5;
(Fail at guff left in nest);
1277/3: 304 000 152|200 323 033 214; SET 106; JSP5;
(Format, wrtext 25/11/63);
1300/3: 310 043 055|200 333 270 215; (F); Y13M2; JSP284; [ handwritten correction to JSP281 ? ]
1301/3: 042|203 262 242 DUP; J195;
1302/1: 310 043 057|310 043 055|200 334 037 216; (W); Y15M2; Y13M2; JSP288;
1303/4: 205 261 021 J41;
(Std funcs 25/11/63);
1304/1: 310 043 055|200 325 037|201 262 235 217; (EXP); Y13M2; JSP47; J192;
1305/4: 310 043 055|200 325 070|201 262 235 218; (LN); Y13M2; JSP48; J192;
1307/1: 310 043 055|200 325 122|201 262 235 219; (SIN); Y13M2; JSP49; J192;
1310/4: 310 043 055|200 325 147|201 262 235 220; (COS); Y13M2; JSP50; J192;
1312/1: 310 043 055|200 324 356|201 262 235 221; (SQRT); Y13M2; JSP40; J192;
1313/4: 310 043 055|200 325 200|201 262 235 222; (ARCTAN); Y13M2; JSP51; J192;
[ == Page 23
[ This page heavily marked up with pencilled corrections
1315/1: 310 043 057|310 043 055|200 333 221|205 261 021 223; (OUTPUT); Y15M2; Y13M2; JSP265; J41;
1317/1: 201 322 364|200 333 206|205 261 021 228; (WRITE BOOLEAN); JS254; JSP289; J41;
1320/4: 201 322 364|200 331 153|205 261 021 229; (TAB); JS254; JSP277; J41;
1322/1: 201 322 364|200 332 367|205 261 021 230; (FIND); JS254; JSP283; J41;
1323/4: 205 322 360|200 331 326|205 261 021 231; (READ BINARY); JS255; JSP280; J41;
1325/1: 205 322 360|200 332 157|205 261 021 232; (READ ARRAY); JS255; JSP282; J41;
1326/4: 205 322 360|200 331 173|205 261 021 233; (WRITE BINARY); JS255; JSP279; J41;
1330/1: 310 043 065|310 043 063|170 362 234; (WRITE ARRAY); Y21M2; Y19M2; =M15;
1331/3: 310 363 052|204 322 363|200 332 036|205 261 021 Y10M15; JS256; JSP281; J41;
1333/3: 201 322 364|200 333 230|205 261 021 235; (GAP); JS254; JSP267; J41;
1335/0: 204 322 363|200 333 126|205 261 021 236; (COPY TEXT); JS256; JSP287; J41;
1336/3: 310 043 055|200 330 314|205 261 021 237; (INTERCHANGE); Y13M2; JSP269; J41;
1340/0: 310 043 055|200 331 101|205 261 021 238; (REWIND); Y13M2; JSP271; J41;
239; (DATA SKIP);
1341/3: 310 043 055|200 330 245|205 261 021 Y13M2; JSP268; J41;
1343/0: 201 322 364|200 331 037|205 261 021 240; (SKIP); JS254; JSP270; J41;
1344/3: 310 043 055|200 331 122|042|203 262 242 241; (CHAR IN); Y13M2; JSP273; DUP; J195;
1346/1: 310 043 055|200 333 122|042|203 262 242 242; (IN BASIC SYMBOL); Y13M2; JSP286; DUP; J195;
1347/5: 201 322 364|200 331 117|205 261 021 243; (CHAR OUT); JS254; JSP272; J41;
1351/2: 201 322 364|200 333 120|205 261 021 244; (OUT BASIC SYMBOL); JS254; JSP285; J41;
1352/5: 310 043 055|200 331 136|202 262 355 245; (BTC); Y13M2; JSP275; J253;
1354/2: 310 043 055|200 331 124 246; (ETW); Y13M2; JSP274;
1355/2: 311 043 050|304 000 040|311 043 051|205 261 021 253; =Y8M2; SETB40; =Y9M2; J41;
1357/2: 310 043 055|200 333 212|202 262 355 247; (READ BOOLEAN); Y13M2; JSP290; J253;
1360/5: 310 043 061|310 043 057|170 362|310 363 052|310 043 055 255; Y17M2; Y15M2; =M15; Y10M15; Y13M2;
1363/1: 200 360 000 EXIT1;
1363/4: 310 043 061 256; Y17M2;
1364/1: 310 043 057|310 043 055|200 360 000 254; Y15M2; Y13M2; EXIT1;
1365/4: 201 322 364|200 331 156|205 261 021 250; (SPACE); JS254; JSP278; J41;
[ == Page 24
1367/1: 201 322 364|200 331 150|205 261 021 251; (NEWLINE); JS254; JSP276; J41;
(Update DISPLAY 13/3/63);
=== Start P1V-1; at address 761/1371
1371/0: 170 344|042|171 064|036|225 143 001 P1; =I14; DUP; I3; -; J1=Z; (if p= base of stack);
1372/3: 042|170 362|310 363 053|164 301|170 342 DUP; =M15; Y11M15; SHL-32; =M14;
1374/1: 310 342 276|221 023 000 3; YD1M14; J2=; (if d[k]=p);
1375/1: 311 342 276 =YD1M14;
1375/4: 310 363 052|164 341|042|170 362 4; Y10M15; SHL-16; DUP; =M15;
1377/0: 041|033|172 342|201 262 374 ZERO; NOT; =+M14; J3;
1400/1: 052|171 342|171 344|036|224 102 375 2; ERASE; M14; I14; -; J4>Z;
1401/4: 041 ZERO;
1401/5: 052|200 360 000 1; ERASE; EXIT 1;
(RESET PROG COUNTER 20/2/64);
=== Start P2V-1; at address 771/1403
1403/0: 042 P2; DUP;
1403/1: 304 037 377|054 SET B17777; AND;
1403/5: 170 102|164 347 =M4; SHL -13;
1404/3: 164 007|304 000 060 SHL 3; SET 48;
1405/2: 036|027|170 110|200 360 000 -; NEG; =C4; EXIT 1;
(UPDATE PROG COUNTER 20/2/64);
=== Start P3V-1; at address 775/1407
1407/0: 042|170 370 P3; DUP; =C15;
1407/3: 171 110|036|027 C4; -; NEG;
1410/1: 170 110 =C4;
1410/3: 171 136|164 360|170 136 Q5; SHLC15; =Q5;
1411/3: 200 360 000 EXIT 1;
(Extract n,p);
=== Start P4V-1; at address 778/1412
1412/0: 171 136|042 P4; Q5; DUP;
[ == Page 25
1412/3: 164 015|164 265 SHL 6; SHL -38; (p,B1);
1413/1: 042|066 DUP; CAB;
1413/3: 164 255|170 362 SHL -42; =M15; (n in m15);
1414/1: 310 362 276|056 YD1M15; +; (D[n]+p,p);
1414/5: 304 377 360|172 110 SET -16; =+C4; (ADJUST SI);
1415/4: 065|200 360 000 REV; EXIT 1;
(Fail routine 1/1/64);
=== Start P5V11; at address 795/1433
V-store at 01420 = 336 211 164 317 113 356 P5V11; V1=B6750456463645756;
V-store at 01421 = 224 010 154 236 373 000 V2=B4500415447575400;
V-store at 01422 = 216 373 264 312 373 000 V3=B4357566462575400;
V-store at 01423 = 000 000 000 000 000 000 V4=0;
V-store at 01424 = 317 114 245 206 337 334 V5=B6364624541557734; [ handwritten comment V6=B23203775 0000 0000;
V-store at 01427 = 377 377 003 023 003 025 V8=Q-1/AV4/AV6;
V-store at 01430 = 004 020 101 004 242 212 V9=B0101010101121212;
V-store at 01431 = 000 000 003 017 003 022 V10=Q0/AV0/AV3;
1433/0: 210 260 265 J1P299;
1433/3: 300 000 002|164 321|164 061|301 003 032|201 263 036 1; E2; SHL-24; SHL+24; =V11; J4;
1435/4: 052|052 2; ERASE; ERASE;
1436/0: 052 3; ERASE;
4; (GET FAIL DEVICE NO.);
1436/1: 041|301 003 023|300 003 027|304 000 010|200 220 000 ZERO; =V4; V8; SET8; OUT;
1440/2: 300 003 025|042|164 031|164 271|304 007 375|015|200 143 036 V6; DUP; SHL+12; SHL-36; SETB3775; NEV; J3≠Z;
1442/5: 164 271|304 004 020|015|042|300 003 030|065 SHL -36; SETB2020; NEV; DUP; V9; REV;
1444/4: 013|042|311 000 247|213 320 140 TOB; DUP; =V0P299; JS30P295;
1446/0: 204 263 035 J2;
1446/3: 052|164 365|200 360 000 ERASE; SHL -6; EXIT 1;
(GO 8/3/63);
[ == Page 26
=== Start P6V23; at address 832/1500
V-store at 01450 = 000 000 021 000 000 000
V-store at 01451 = 000 000 051 000 000 040
V-store at 01452 = 000 000 311 000 000 300 P6V23; V0=B02100000000; V1=B05100000040; V2=B31100000300;
V-store at 01453 = 000 000 111 000 000 100
V-store at 01454 = 000 000 000 000 000 004
V-store at 01470 = 000 000 020 000 000 000 V3=B11100000100; V4=B4; V16=B02000000000;
V-store at 01471 = 000 000 050 000 000 000 V17=B05000000000;
V-store at 01472 = 000 000 310 000 000 000
V-store at 01473 = 000 000 110 000 000 006
V-store at 01475 = 000 000 000 000 000 044 V18=B31000000000; V19=B11000000006; V21=B44;
V-store at 01476 = 000 000 000 000 000 304
V-store at 01477 = 000 000 000 000 000 104 V22=B304; V23=B104;
1500/0: 170 350|154 343 =C14; C14TOQ3; (set m and m1);
1500/4: 171 042|042|170 322|170 364 M2; DUP; =M13; =I15; (PP in M13=h2[S[Ap]],q in I15);
1501/5: 151 022 M1TOQ2; (PP := AP);
1502/1: 200 323 171|170 305 JSP8; =RI12; (i in I12=h1[S[pp+2]]);
1503/0: 240 343 111 J8C14Z; (if m=0);
1503/3: 154 357 C14TOQ15;
1503/5: 304 000 001|172 370 SET 1; =+C15; (m := m+1);
1504/4: 171 110|304 000 040|056|042|304 000 060|036 1; C4; SET 32; +; DUP; SET 48; -;
1506/3: 042|204 103 107 DUP; J2≤Z;
1507/1: 065|141 100 REV; M-I4;
1507/4: 052|170 110|143 360|264 363 104 2; ERASE; =C4; DC15; J1C15NZ; (if m≠0);
1511/0: 171 350|161 003|042 8; C14; SHA 1; DUP;
1511/5: 033|027|172 022 NOT; NEG; =+M1; (AP := AP+2m+1);
1512/3: 304 000 003|056|027|172 030|171 030 SET 3; +; NEG; =+C1; C1; (XS := XS-3-2m);
1514/0: 225 043 115 J98<Z;
1514/3: 265 343 116|171 364 3; J4C14NZ; I15; (q);
1515/2: 200 360 000 EXIT 1;
1515/5: 304 000 001|200 323 033 98; SET 1; JSP5; (Stack overflow);
1516/5: 171 110|225 103 120 4; C4; J13>Z;
1517/4: 140 100|304 000 060|172 110 M + I4; SET 48; =+C4;
1520/5: 304 377 370|172 110|110 103|100 103|142 100|166 100|142 100 13; SET -8; =+C4; M3M4N; M3M4; NC4; SHLDC4; NC4;
1523/2: 065|170 136 REV; =Q5;
1523/5: 304 000 377|054|304 377 350|172 110 SET B377; AND; SET -24; =+C4;
[ == Page 27
1525/2: 042|170 330|042 DUP; =C13; DUP; (PAR,PAR);
1526/0: 304 000 002|054|201 143 137 SET B2; AND; J6≠Z; (if not [n,p]);
1527/1: 042|304 000 054|054|221 143 137 DUP; SET B54; AND; J6=Z;
1530/3: 200 323 012|052 JSP4; ERASE; (s,PAR);
1531/1: 304 000 020|172 110 SET16; =+C4;
1532/0: 065|304 000 241|036|222 143 134 REV; SET B241; -; J5=Z; (if PF);(s);
1533/2: 311 023 052|205 263 145 =Y10M1; J7;
1534/2: 170 362 5; =M15;
1534/4: 310 363 052|311 023 052|310 363 053|311 023 053|201 263 151 Y10M15; =Y10M1; Y11M15; =Y11M1; J9;
1537/1: 171 136|164 301|065 6; Q5; SHL -32; REV; (PAR,b);
1540/0: 042|304 000 122|054 DUP; SET B122; AND;
1540/5: 304 000 002|036|222 143 152 SET B2; -; J10=Z; (if PRC,PIC,PBC);
1542/0: 042|304 000 303|036|221 143 162 DUP; SET B303; -; J12=Z; (if PST);
1543/2: 304 000 301|036|225 143 156 SET B301; -; J11=Z; (if PL);
1544/3: 171 364|164 041|056|311 023 052 I15; SHL 16; +; =Y10M1;
1545/5: 304 003 050|170 262|171 330|164 123|164 255|170 362 7; SET AV0; =M11; C13; SHL 41; SHL -42; =M15;
1550/0: 104 373|164 321|311 023 053 M11M15H; SHL -24; =Y11M1;
1551/1: 141 020|143 340|203 263 114 9; M-I1; DC14; J3;
1552/2: 052|042|304 037 377|054 10; ERASE;DUP; SET B17777; AND;
1553/2: 170 262|164 347|164 007|170 270 =M11; SHL -13; SHL 3; =C11;
1554/4: 110 263|100 263 M3M11N; M3M11;
1555/2: 166 260|311 023 052|052 SHLDC11; =Y10M1; ERASE; (Set const);
1556/2: 205 263 145 J7;
1556/5: 171 136|164 041|164 261 11; Q5; SHL 16; SHL -40;
1557/5: 170 262|310 262 276|164 041|056 =M11; YD1M11; SHL 16; +; (D[n]/b);
1561/1: 311 023 052|205 263 145 =Y10M1; J7;
1562/1: 052|304 023 043|056|311 023 052|205 263 145 12; ERASE; SET AY3; +; =Y10M1; J7;
(Augment and pack i 5/3/63);
[ == Page 28
=== Start P7V-1; at address 884/1564
1564/0: 171 110|027|056 P7; C4; NEG; +; (8*[SI+N-6]);
1564/4: 042|225 103 167 DUP; J2>Z;
1565/2: 304 000 060|056|041 SET 48; +; ZERO;
1566/1: 065|164 025|171 102|056|056 1; REV; SHL 10; M4; +; +; (i);
1567/2: 200 360 000 EXIT 1;
1567/5: 304 000 001|201 263 166 2; SET 1; J1;
(PACK I 24/2/64);
=== Start P8V-1; at address 889/1571
1571/0: 171 110|027 P8; C4; NEG;
1571/3: 042|224 103 174 DUP; J2>Z; (IF S(I) HAS SPILT);
1572/1: 304 000 060|056|041 SET 48; +; ZERO;
1573/0: 065|164 025 1; REV; SHL 10;
1573/3: 171 102|056|056 M4; +; +;
1574/1: 200 360 000 EXIT 1;
1574/4: 304 000 001|200 263 173 2; SET 1; J1;
(Leave 13/3/63);
=== Start P9V-1; at address 894/1576
1576/0: 171 022|171 042|036|172 030 P9; M1; M2; -; =+C1; (XS:=XS-[PP-AP]);
1577/1: 151 041 M2TOQ1; (AP:=PP);
1577/3: 310 043 052|170 376 Y10M2; =Q15;
1600/2: 151 362|171 042|310 023 053|164 301 M15TOQ2; M2; Y11M1; SHL-32; (s1[S[AP+1]],PP);
1601/5: 200 322 371 JSP1; (UDD);
1602/2: 200 360 000 EXIT 1;
(Store 13/3/63);
=== Start P10V-1; at address 899/1603
1603/0: 310 023 050|310 023 051|042|304 000 037|043 P10; Y8M1; Y9M1; DUP; SET B37; DUPD;
1604/5: 054|170 365 AND; =RI15; (alg res error);
1605/2: 310 023 047|042|012|054|304 000 010|015|170 370 Y7M1; DUP; PERM; AND; SET B10; NEV; =C15; (alg add error);
1607/2: 042|170 356|015|042 DUP; =Q14; NEV; DUP;
[ == Page 29
1610/1: 304 000 140|054|171 376|056 SET B140; AND; Q15; +; (sum errors);
1611/2: 304 000 004|065|204 143 226 SET 4; REV; J99≠Z;
1612/3: 052|310 023 046|170 362 ERASE; Y6M1; =M15; (X in M15);
1613/3: 304 000 200|054|223 143 221 SET B200; AND; J3=Z;
1614/4: 304 000 300|036|223 143 217 SET B300; -; J1=Z;
1615/5: 304 000 057|024|304 000 300|203 263 221 SET 47; FLOAT; SET B300; J3;
1617/3: 200 323 230|304 000 006|204 263 226 1; JSP11; SET 6; J99; (Fix);
1621/0: 304 000 100 SET B100;
1621/3: 065|043|311 363 052 3; REV; DUPD; =Y10M15; (S[X]:=Y);
1622/2: 171 356|304 001 000|054|223 143 224 Q14; SET B400; AND; J4=Z;
1623/5: 311 363 053|041 =Y11M15; ZERO;
1624/3: 052|304 000 004|042|172 030|027|172 022|200 360 000 4; ERASE; SET 4; DUP; =+C1; NEG; =+M1; EXIT 1;
1626/4: 200 323 033 99; JSP5;
(Fix 10/4/63);
=== Start P11V-1; at address 920/1630
1630/0: 045|042|220 043 234 P11; FIX; DUP; J1<Z; (if p<0);
1630/5: 042|304 000 047|036|220 103 235 DUP; SET 39; -; J2>Z; (if x>2^39);
1632/1: 304 000 057|036|170 370 SET 47; -; =C15;
1633/1: 161 360|200 360 001 SHAC15; EXIT3;
1634/0: 052|052|041|200 360 001 1; ERASE; ERASE; ZERO; EXIT3;
1635/0: 200 360 000 2; EXIT1;
(Prog switch 8/3/63);
=== Start P12V-1; at address 926/1636
1636/0: 167 377|042|173 000|056|174 000|222 043 240 P12; SHC -1; DUP; LINK; +; =LINK; J1<Z;
1637/5: 200 360 000 EXIT 1;
1640/2: 202 360 001 1; EXIT 2;
(GO FORMAL 18/3/63);
[ == Page 30
=== Start P13V-1; at address 929/1641
1641/0: 200 323 100 P13; JSP6; (GO);
1641/3: 170 362|310 363 053|164 301 =M15; Y11M15; SHL-32;
1642/4: 200 322 371|200 323 003 JSP1; (UDD); JSP2; (Reset i);
1643/4: 171 316|056|311 043 054|200 360 000 Q12; +; =Y12M2; EXIT 1;
(Take formal 18/3/63);
=== Start P14V-1; at address 934/1646
1646/0: 170 362 P14; =M15;
1646/2: 140 020|143 020|143 020|171 030|225 043 257 M+I1; DC1; DC1; C1; J3<Z; (if st overflow);
1650/1: 310 363 053|042|304 000 004|054|205 143 254 Y11M15; DUP; SET B4; AND; J2≠Z; (if isr or p);
1652/0: 304 001 374|054|311 023 051 1; SET B774; AND; =Y9M1; (S[AP+1]:=mask[S[S+1]]);
1653/1: 310 363 052|311 023 050|052|202 360 001 Y10M15; =Y8M1; ERASE; EXIT 2;
1654/5: 052|041|310 363 052|166 341|065|164 301|065|041 2; ERASE;ZERO; Y10M15; SHLD-16; REV; SHL-32; REV; ZERO; (o,P,a,LINK);
1656/5: 200 323 241 JSP13; (GO FORMAL);
1657/2: 200 360 000 EXIT 1;
1657/5: 304 000 001|200 323 033 3; SET 1; JSP5;
(COND TAKE 22/4/63);
=== Start P15V-1; at address 945/1661
1661/0: 310 023 051|042|304 000 020|054|225 143 263 P15; Y9M1; DUP; SET B20; AND; J1=Z; (unless l or s);
1662/5: 304 000 011|200 323 033 SET 9; JSP5;
1663/5: 304 000 010|043|054|221 143 270 1; SET B10; DUPD; AND; J2=Z; (unless a a);
1665/1: 310 023 050|170 362|310 363 052|311 023 050 Y8M1; =M15; Y10M15; =Y8M1;
1667/0: 036|311 023 051|200 360 000 -; =Y9M1; EXIT 1;
1670/1: 052|052|200 360 000 2; ERASE; ERASE; EXIT1;
(Make St Func 8/5/63);
=== Start P16V0; at address 954/1672
V-store at 01671 = 000 012 000 012 000 012
1672/0: 200 323 012|052|171 136 P16V0; V0=Q10/10/10; JSP4; ERASE; Q5;
1673/0: 164 041|164 261|304 000 010|200 323 007|051 SHL 16; SHL-40; SET 8; JSP3; REVD;
1674/5: 042|170 323|170 264|042 DUP; =RM13; =I11; DUP; (0/1/y in Q13);
1675/5: 171 022|036|027|164 375|170 270|170 262 M1; -; NEG; SHL -2; =C11; =M11; (N/y/w in Q11);
[ == Page 31
[ page 31
1677/3: 157 276|304 000 004|170 344 Q11TOQ14; SET 4; =I14; (N/4/w IN Q14);
1700/4: 041|170 316|304 000 001 ZERO; =Q12; SET 1;
1701/4: 042|310 343 052|310 343 053|304 000 100|224 023 306 1; DUP; Y10M14; Y11M14; SET B100; J2=; (if i r);
1703/5: 304 000 300|203 023 333 SET B300; J7≠; (fail);
1704/5: 052|200 323 230|304 000 042|200 323 033|041 ERASE; JSP11; SET 34; JSP5; ZERO;
1706/4: 052|042|310 343 054|312 343 055|304 000 100|225 023 313 2; ERASE; DUP; Y12M14; Y13M14Q; SET B100; J3=; (if i r);
1711/0: 304 000 300|203 023 333 SET B300; J7≠; (fail);
1712/0: 052|200 323 230|304 000 042|200 323 033|041 ERASE; JSP11; SET 34; JSP5; ZERO;
1713/5: 052|065|036|042|223 043 334 3; ERASE; REV; -; DUP; J8<Z; (fail);
1715/0: 304 000 001|056|012|034|050|172 316 SET 1; +; PERM; ×D; CONT; =+Q12;
1716/3: 034|050|243 343 320 ×D; CONT; J4C14Z; (if j=N-1);
1717/2: 042|313 323 053|204 263 301 DUP; =Y11M13Q; J1;
1720/3: 042|171 270|042|152 276 4; DUP; C11; DUP; I11TOQ14; (-/y/- in Q14);
1721/3: 171 264|042|170 362|056|042|171 316|036|170 342|170 350 I11; DUP; =M15; +; DUP; Q12; -; =M14; =C14;
1723/5: 304 000 012|042|172 350|042|172 344|172 342 SET10; DUP; =+C14; DUP; =+I14; =+M14;
1725/4: 164 041|056|311 363 052 SHL 16; +; =Y10M15;
1726/4: 012|170 370|170 362|145 360 PERM; =C15; =M15; I15= -1;
1727/5: 042|164 101|056 DUP; SHL 32; +;
1730/3: 245 363 332|171 356|313 363 052|042|172 356|203 263 330 5; J6C15Z; Q14; =Y10M15Q; DUP; =+Q14; J5;
1732/5: 052|200 360 000 6; ERASE; EXIT 1;
1733/3: 304 000 040|200 323 033 7; SET 32; JSP5;
1734/3: 304 000 041|200 323 033 8; SET 33; JSP5;
(Indexer 10/5/63);
=== Start P17V-1; at address 990/1736
1736/0: 041|170 351 P17; ZERO; =RC14;
1736/3: 310 023 051|304 000 100|203 023 342 1; Y9M1; SET B100; J3≠;
1740/0: 052|171 344|172 350|304 000 002|172 030|141 020|203 263 336 2; ERASE; I14; =+C14; SET 2; =+C1; M-I1; J1;
1742/3: 304 000 300|205 023 346 3; SET B300; J4≠;
1743/3: 052|310 023 050|200 323 230|304 000 043|200 323 033|311 023 050|041|200 263 340
ERASE; Y8M1; JSP11; SET 35; JSP5; =Y8M1; ZERO; J2;
[ ^ Handwritten annotation "SETB100; =Y9M1" after ERASE; ]
[ == Page 32
[ page 32
1746/5: 042|304 000 020|054|203 143 371 4; DUP; SET B20; AND; J9≠Z; (if sw:f sw);
1750/1: 304 000 010|054|202 143 352|304 000 044|200 323 033 SET B10; AND; J5≠Z; SET 36; JSP5;
1752/2: 310 023 050|170 362|310 363 052|170 336|171 350|143 340 5; Y8M1; =M15; Y10M15; =Q13; C14; DC14;
1754/4: 144 340|171 324|170 342 I14=1; I13; =M14;
1755/4: 151 037|146 360|310 343 040|041|166 101 M1TOQ15; I15=2;Y0M14; ZERO; SHLD 32;
1757/2: 066|036|203 143 367 CAB; -; J7≠Z; (if n≠h2[s[w]]);
1760/1: 164 301|171 322|310 023 052|056 SHL -32; M13; Y10M1; +;
1761/3: 240 343 364|312 363 054|312 343 041|034|050|056|203 263 361 6; J10C14Z; Y12M15Q; Y1M14Q; ×D; CONT; +; J6;
1764/0: 164 101|164 301|042|171 330|036 10; SHL 32; SHL -32; DUP; C13; -;
1765/2: 066|065|042|223 043 370 CAB; REV; DUP; J8<Z; (if 0≥A-W);
1766/2: 036|203 103 370 -; J8≤Z; (if A-W≥h1[s[w]]);
1767/0: 202 360 001 EXIT 2;
1767/3: 304 000 045|200 323 033 7; SET 37; JSP5;
1770/3: 304 000 046|200 323 033 8; SET 38; JSP5; [ Handwritten annotation to insert "M+I15; M15TOQ1"? before SET 38]
1771/3: 171 030|304 000 004|036|220 043 377 9; C1; SET 4; -; J98<Z;
1773/0: 310 023 052|311 023 055 Y10M1; =Y13M1;
1774/0: 310 023 050|041|166 101|065|164 301|065 Y8M1; ZERO; SHLD 32; REV; SHL -32; REV;
1775/4: 066|304 000 004|054|200 360 000 CAB; SET B4; AND; EXIT 1;
1777/0: 304 000 001|200 323 033 98; SET 1; JSP5;
(Copy Array 16/5/63);
=== Start P18V-1; at address 1024/2000
2000/0: 310 343 052|170 322|310 323 052|170 336 P18; Y10M14; =M13; Y10M13; =Q13; (W/w/b in Q13);
2001/4: 171 324|170 302|310 303 040|164 101|164 301|042|170 271 I13; =M12; Y0M12; SHL 32; SHL -32; DUP; =RC11;
2004/0: 310 043 053|164 041|164 301|304 000 012|056|042|170 262 Y11M2; SHL 16; SHL -32; SET 10; +; DUP; =M11; (m/1/W1 in Q11);
2006/2: 171 330|170 303 C13; =RM12; (0/1/W in Q12);
2007/0: 066 CAB;
2007/1: 242 264 016 1; J5C11Z; (if j=m);
2007/4: 312 303 040|065|042|225 104 012 Y0M12Q; REV; DUP; J3>Z; (if C=1);
2011/0: 042|221 044 014 DUP; J4<Z; (if C=-1);
[ == Page 33
[ page 33
2011/4: 065 REV;
2011/5: 313 263 040|201 264 007 2; =Y0M11Q; J1;
2012/5: 065|304 000 057|024|205 264 011 3; REV; SET 47; FLOAT; J2;
2014/1: 065|200 323 230|304 000 047|200 323 033|205 264 011 4; REV; JSP11; SET 39; JSP5; J2; [h/w Last line of putative deletion
2016/2: 052|042 5; ERASE; DUP;
2016/4: 012|056|304 000 012|036|042|171 022|036 6; PERM; +; SET 10; -; DUP; M1; -;
2020/2: 027|172 030|171 030|221 044 027 NEG; =+C1; C1; J98<Z;
2021/4: 042|170 022|012 DUP; =M1; PERM;
2022/2: 042|171 330|036|172 322|170 330 DUP; C13; -; =+M13; =C13; (W1/w/b+W1-W in q13);
2023/4: 171 336|311 343 052 Q13; =Y10M14;
2024/3: 304 000 002|056|170 276|170 264|171 276|311 043 053|200 360 000
SET 2; +; =Q11; =I11; Q11; =Y11M2; EXIT 1;
2027/1: 304 000 001|200 323 033 98; SET 1; JSP 5;
(Type change 29/5/63);
=== Start P19V-1; at address 1049/2031
2031/0: 001|043|011 P19; VR; DUP D; OR;
2031/3: 012|054|304 000 300|065|205 024 033 PERM; AND; SET B300; REV; J1≠; (unless both r);
2033/0: 052|052|202 360 001 ERASE; ERASE; EXIT 2;
2033/5: 065|304 000 100|205 024 035 1; REV; SET B100; J2≠; (unless both i);
2035/0: 052|052|200 360 000 ERASE; ERASE; EXIT 1;
2035/5: 221 024 037 2; J3=; (if ≠ legal);
2036/2: 052|066|200 323 033 ERASE; CAB; JSP5;
2037/1: 310 023 047|203 024 041 3; Y7M1; J4≠; (if X= r);
2040/1: 052|304 000 057|024|202 360 001 ERASE; SET 47; FLOAT; EXIT 2;
2041/3: 311 023 047|065|304 000 057|024|065|202 360 001 4; =Y7M1; REV; SET 47; FLOAT; REV; EXIT 2;
(Relation 29/5/63);
=== Start P20V-1; at address 1060/2044
2044/0: 310 023 046|310 023 050|310 023 047|310 023 051|200 324 031 P20; Y6M1; Y8M1; Y7M1; Y9M1;JSP19;
2046/3: 203 264 051 J2; (i);
2047/0: 075|224 204 052 -F; J3V;
[ == Page 34
[ page 34
2047/4: 065|052|304 000 040|311 023 047|200 360 000 1; REV; ERASE; SET B40; =Y7M1; EXIT 1;
2051/3: 036|224 204 052|204 264 047 2; -; J3V; J1;
2052/4: 052|304 000 011|056|200 323 033 3; ERASE; SET 9; +; JSP5;
(Power 1/7/63);
=== Start P21V0; at address 1069/2055
V-store at 02054 = 100 300 000 000 000 000 P21V0; V0 = F1.0;
2055/0: 001|304 000 100|036|201 144 067 VR; SET B100; -; J5≠Z; (if not i);
2056/2: 304 000 001|065|042|220 144 064 SET 1; REV; DUP; J3=Z; (if Y=0);
2057/4: 042|167 377|204 044 061 1; DUP; SHC -1; J2≥Z; (if even);
2060/4: 012|043|052|034|050|066 PERM; DUPD; ERASE; ×D; CONT; CAB;
2061/4: 164 377|042|220 144 064 2; SHL -1; DUP; J3=Z; (if Y=0);
2062/4: 066|042|034|050|012|204 264 057 CAB; DUP; ×D; CONT; PERM; J1;
2064/0: 052|065|052|042|161 021 3; ERASE; REV; ERASE; DUP; SHA 8;
2065/0: 052|204 204 066 ERASE; J4NV; (unless o fl);
2065/4: 304 000 123|200 323 033 SET 83; JSP5;
2066/4: 202 360 001 4; EXIT 2;
2067/1: 300 004 054|065|042|223 144 074 5; V0; REV; DUP; J8=Z; (if Y=0);
2070/3: 042|167 377|202 044 072 6; DUP; SHC -1; J7≥Z; (if even);
2071/3: 012|043|052|004|066 PERM; DUPD; ERASE; ×F; CAB;
2072/2: 164 377|042|223 144 074 7; SHL -1; DUP; J8=Z; (if Y=0);
2073/2: 066|042|004|012|203 264 070 CAB; DUP; ×F; PERM; J6;
2074/3: 052|065|052|203 204 076 8; ERASE; REV; ERASE; J9NV; (unless o fl );
2075/3: 304 000 123|200 323 033 SET 83; JSP5;
2076/3: 200 360 000 9; EXIT 1;
(Exponentiate 1/7/63);
=== Start P22V0; at address 1088/2100
V-store at 02077 = 100 300 000 000 000 000 P22V0; V0 = F1.0;
2100/0: 310 023 046|310 023 047|042|304 000 077|054|222 144 103 Y6M1; Y7M1; DUP; SET B77; AND; J2=Z; (if arith);
2102/2: 304 000 117|200 323 033 1; SET 79; JSP5;
2103/2: 310 023 051|304 000 300|200 024 120 2; Y9M1; SET B300; J7≠; (unlessM2=R);
[ == Page 35
[ page 35
2104/5: 052|304 000 100|036|205 144 107 ERASE; SET B100; -; J3≠Z;
2106/1: 304 000 057|024|304 000 300|311 023 047 SET 47; FLOAT; SET B300; =Y7M1;
2107/5: 042|205 104 113 3; DUP; J4≤Z; (unlessX>0);
2110/3: 200 325 070|310 023 050|001|004|200 325 037|200 204 141 JSP48; Y8M1; VR; ×F; JSP47; J13NV;
2112/5: 304 000 153|200 323 033 SET 107; JSP5;
2113/5: 222 144 115 4; J5=Z; (if X=0);
2114/2: 304 000 120|200 323 033 SET 80; JSP5;
2115/2: 310 023 050|222 104 117 5; Y8M1; J6>Z; (unless Y≤0); [ orignal was: 5; Y9M1; J6>Z; (unless Y≤0);
[ bug that was corrected in a later release
2116/2: 304 000 121|200 323 033 SET 81; JSP5;
2117/2: 041|200 264 141 6; ZERO; J13;
2120/0: 304 000 100|036|202 144 102 7; SET B100; -; J1≠Z; (unless ar);
2121/1: 310 023 050|042|202 144 127 Y8M1; DUP; J10≠Z; (unless Y=0);
2122/2: 052|065|201 144 124 ERASE; REV; J8≠Z; (unless X=0);
2123/1: 304 000 122|200 323 033 SET 82; JSP5;
2124/1: 304 000 100|036|222 144 126 8; SET B100; -; J9=Z; (if i);
2125/2: 300 004 077|200 264 141 V0; J13;
2126/2: 304 000 001|200 264 141 9; SET 1; J13;
2127/2: 042|204 104 131 10; DUP; J11≤Z; (unless Y>0);
2130/0: 065|200 324 055|200 264 141|200 264 141 REV; JSP21; J13; J13;
2131/4: 027|065|042|304 000 100|036|204 144 135 11; NEG; REV; DUP; SET B100; -; J12≠Z; (IF REAL);
2133/2: 052|065|304 000 057|024|065 ERASE; REV; SET 47; FLOAT; REV;
2134/3: 304 000 300|042|311 023 047 SET B300; DUP; =Y7M1;
2135/4: 200 324 055|017|017|017|300 004 077|065|062|200 204 141 12; JSP21; DUMMY; DUMMY; DUMMY; V0; REV; ÷F; J13NV;
2140/0: 304 000 124|200 323 033 SET 84; JSP5;
2141/0: 311 023 046|200 360 000 13; =Y6M1; EXIT 1;
(Stack nests, etc., 11/7/63);
=== Start P23V0; at address 1123/2143
2143/0: 301 004 142|173 000|311 023 046 P23V0; =V0; LINK; =Y6M1;
2144/2: 310 023 050|170 111|151 024|145 100 Y8M1; =RC4; M1TOQ4; I4=-1;
[ == Page 36
[ page 36
2145/5: 243 104 164 J1C4Z;
2146/2: 171 376|313 103 043|243 104 164 Q15; =Y3M4Q; J1C4Z;
2147/4: 171 356|313 103 043|243 104 164 Q14; =Y3M4Q; J1C4Z;
2151/0: 171 336|313 103 043|243 104 164 Q13; =Y3M4Q; J1C4Z;
2152/2: 171 316|313 103 043|243 104 164 Q12; =Y3M4Q; J1C4Z;
2153/4: 171 276|313 103 043|243 104 164 Q11; =Y3M4Q; J1C4Z;
2155/0: 171 256|313 103 043|243 104 164 Q10; =Y3M4Q; J1C4Z;
2156/2: 171 236|313 103 043|243 104 164 Q 9; =Y3M4Q; J1C4Z;
2157/4: 171 216|313 103 043|243 104 164 Q 8; =Y3M4Q; J1C4Z;
2161/0: 171 176|313 103 043|243 104 164 Q 7; =Y3M4Q; J1C4Z;
2162/2: 171 156|313 103 043|243 104 164 Q 6; =Y3M4Q; J1C4Z;
2163/4: 171 136|313 103 043 Q 5; =Y3M4Q;
2164/3: 222 304 166|173 000|313 103 043|203 264 164 1; J2EJ; LINK; =Y3M4Q; J1;
2166/2: 171 110|027|311 023 044 2; C4; NEG; =Y4M1;
2167/2: 041|170 110 ZERO; =C4;
2167/5: 222 244 171|313 103 043|205 264 167 3; J4EN; =Y3M4Q; J3;
2171/2: 171 110|027|311 023 045 4; C4; NEG; =Y5M1;
2172/2: 300 004 142|310 023 047|056|170 116 V0; Y7M1; +; =Q4;
2173/5: 151 117|304 000 060|171 110|036|170 370 M4TOQ15; SET 48; C4; -; =C15;
2175/3: 110 363|100 363|166 360|170 136|170 156 M3M15N; M3M15; SHLDC15; =Q5; =Q6;
2177/1: 200 260 100 J7P0;
(Jump call by name 16/7/63);
=== Start P24V-1; at address 1152/2200
2200/0: 170 116|310 023 047|172 116 P24; =Q4; Y7M1; =+Q4;
2201/1: 202 244 206|173 000 J1NEN; LINK;
2202/0: 202 304 206|174 000 J1NEJ; =LINK;
2202/5: 304 000 060|171 110|036|170 370 SET 48; C4; -; =C15;
2204/1: 110 363|100 363|166 360|170 136|170 156 M3M15N; M3M15; SHLDC15; =Q5; =Q6;
2205/5: 200 260 100 J7P0;
[ == Page 37
[ page 37
2206/2: 304 000 126|200 323 033 1; SET 86; JSP5;
(Jump call by value 16/7/63);
=== Start P25V-1; at address 1160/2210
2210/0: 140 020|143 020|143 020 P25; M+I1; DC1; DC1;
2211/0: 171 030|220 044 215 C1; J1<Z;
2211/5: 311 023 051|311 023 050 =Y9M1; =Y8M1;
2212/5: 200 244 216|173 000 J2NEN; LINK;
2213/4: 200 304 216|174 000 J2NEJ; =LINK;
2214/3: 200 261 044 J46P0; (JUMP TO GTA);
2215/0: 304 000 126|200 323 033 1; SET 86; JSP5;
2216/0: 304 000 001|200 323 033 2; SET 1; JSP5;
2217/0: 200 324 217 18; JS18; (PUT IN TO FIND WHAT CALLS THIS LABEL);
(EXIT 11/7/63);
=== Start P26V-1; at address 1168/2220
2220/0: 220 244 221 P26; J1EN;
2220/3: 311 043 050 =Y8M2;
2221/0: 205 244 225|173 000 1; J2NEN; LINK;
2221/5: 205 304 225|174 000 J2NEJ; =LINK;
2222/4: 310 043 054|042 Y12M2; DUP;
2223/2: 164 341|144 100 SHL -16; I4=1;
2224/0: 200 323 003 JSP2;
2224/3: 174 000 =LINK;
2224/5: 200 323 176 JSP9;
2225/2: 202 360 000 EXIT;
2225/5: 304 000 125|200 323 033 2; SET 85; JSP5;
(Reset nests, etc., 11/7/63);
=== Start P27V0; at address 1176/2230
2230/0: 171 024|172 030|141 020 P27V0; I1; =+C1; M-I1;
2231/0: 310 023 050|170 111|151 024|145 100 Y8M1; =RC4; M1TOQ4; I4=-1;
[ == Page 38
[ page 38
2232/3: 241 104 251 J1C4Z;
2233/0: 312 103 043|170 376|241 104 251 Y3M4Q; =Q15; J1C4Z;
2234/2: 312 103 043|170 356|241 104 251 Y3M4Q; =Q14; J1C4Z;
2235/4: 312 103 043|170 336|241 104 251 Y3M4Q; =Q13; J1C4Z;
2237/0: 312 103 043|170 316|241 104 251 Y3M4Q; =Q12; J1C4Z;
2240/2: 312 103 043|170 276|241 104 251 Y3M4Q; =Q11; J1C4Z;
2241/4: 312 103 043|170 256|241 104 251 Y3M4Q; =Q10; J1C4Z;
2243/0: 312 103 043|170 236|241 104 251 Y3M4Q; =Q 9; J1C4Z;
2244/2: 312 103 043|170 216|241 104 251 Y3M4Q; =Q 8; J1C4Z;
2245/4: 312 103 043|170 176|241 104 251 Y3M4Q; =Q 7; J1C4Z;
2247/0: 312 103 043|170 156|241 104 251 Y3M4Q; =Q 6; J1C4Z;
2250/2: 312 103 043|170 136 Y3M4Q; =Q 5;
2251/1: 310 023 045|170 110|171 110|027|304 000 001|056|172 102 1; Y5M1; =C4; C4; NEG; SET 1; +; =+M4;
2253/3: 310 023 044|027|172 102|144 100 Y4M1; NEG; =+M4; I4=1;
2254/5: 242 104 256|312 103 043|205 264 254 2; J3C4Z; Y3M4Q; J2;
2256/2: 310 023 044|170 110|173 000|301 004 227 3; Y4M1; =C4; LINK; =V0;
2260/0: 245 104 261|312 103 043|174 000|200 264 260 4; J5C4Z; Y3M4Q; =LINK; J4;
2261/5: 300 004 227|174 000 5; V0; =LINK;
2262/4: 200 360 000 EXIT 1;
=== Start P28V-1; at address 1204/2264
2264/0: 310 043 061|310 043 057|310 043 055 P28; Y17M2; Y15M2; Y13M2;
2265/3: 200 334 153|200 360 000 JSP291; EXIT 1;
=== Start P29V-1; at address 1207/2267
2267/0: 310 043 055|200 336 056|200 360 000 P29; Y13M2; JSP294; EXIT 1;
(Print char 13/9/63);
=== Start P30V0; at address 1210/2272
2272/0: 301 004 271 P30V0; =V0;
2272/3: 304 004 271|042|170 362|170 370 SET AV0; DUP; =M15; =C15;
Warning: YA2 is out of range, only 0 YA-stores specified
2273/5: 310 002 277|170 370 YA2; =C15;
[ == Page 39
[ page 39
2274/4: 130 370 PWCQ15;
2275/0: 200 360 000 EXIT 1;
(RET TRACE AND P-DIGIT 24/1/64);
=== Start P31V7; at address 1222/2306
V-store at 02276 = 000 037 377 014 071 261 P31V7; V0=B0001777703034661; (REAL FORMAT);
V-store at 02277 = 000 037 377 011 230 121 V1=B0001777702314121; (INT FORMAT);
[ Annotation: 0077001251 digits placed as on the listing
V-store at 02300 = 000 003 360 101 052 100 V2=B0000176020225100; (COUNTER FORMAT);
V-store at 02301 = 215 215 050 235 035 032 V3=B4330645047216432; ([[c]ROUTE-]); [ using curly brackets for ...
V-store at 02302 = 040 037 020 321 235 000 V4=B1001742064316400;
V-store at 02303 = 215 215 002 050 235 032 V5=B4330640212116432; ([[2c]OPERANDS-[c]]); [ ... underlined square brackets
V-store at 02304 = 033 020 035 014 031 017 V6=B0661003503014417;
V-store at 02305 = 036 321 215 050 235 235 V7=B0755061512116635;
2306/0: 304 004 301|310 000 247|200 334 037 SET AV3; V0P299; JSP288;
2307/3: 310 003 036|170 122|147 120|304 000 020|170 130 YE32; =M5; I5=-2; SET 16; =C5;
2311/3: 310 122 377|312 122 376 1; YE1M5; YE0M5Q;
2312/3: 042|223 144 320 DUP; J2=Z; (IF NO LABEL);
2313/1: 310 000 247|202 326 032 V0P299; JS1P129; (OUTPUT IDENTIFIER);
2314/1: 304 000 057|024|300 004 300|310 000 247|200 334 153 SET 47; FLOAT; V2; V0P299; JSP291;
2316/2: 171 122|164 127|164 253|170 122|263 124 311 M5; SHL 43; SHL -43; =M5; J1C5NZ;
2320/1: 041|042 ZERO; DUP;
2320/3: 052|052|310 043 053|164 041|164 301 2; ERASE; ERASE; Y11M2; SHL 16; SHL -32; (WP);
2322/0: 042|171 042|036|200 104 332 DUP; M2; -; J7≤Z;
2323/1: 042|171 022|036|200 044 332 DUP; M1; -; J7≥Z; (NOTHING ON STACK);
2324/2: 304 004 303|310 000 247|200 334 037 SET AV5; V0P299; JSP288;
2325/5: 310 023 050|310 023 051|042|304 377 037|054|204 144 332 6; Y8M1; Y9M1; DUP; SETB177437; AND; J8≠Z; (UNL RESULT);
2330/1: 065|204 324 333|141 020|171 022|205 024 325 REV; JS3; M-I1; M1; J6≠;
2332/0: 052|200 360 000 7; ERASE; EXIT 1;
2332/4: 052|052|052|200 360 000 8; ERASE; ERASE; ERASE; EXIT 1;
2333/4: 065|304 000 300|036|222 144 337 3; (P-DIGIT); REV; SET B300; -; J4=Z; (IF R);
[ == Page 40
[ page 40
2335/0: 161 023|161 357 SHA9; SHA-9;
2335/4: 304 000 057|024|300 004 277|205 264 337 SET 47; FLOAT; V1; J5;
2337/2: 300 004 276 4; V0;
2337/5: 310 000 247|200 334 153|200 360 000 5; V0P299; JSP291; EXIT 1;
(For st type ch 14/11/63);
=== Start P32V-1; at address 1250/2342
2342/0: 065|042|170 376|065 P32; REV; DUP; =Q15; REV; (Type X in Q15);
2342/5: 001|043|011 VR; DUP D; OR;
2343/2: 012|054 PERM; AND;
2343/4: 304 000 300|065 SET B300; REV;
2344/2: 204 024 345 J1≠; (unl both r);
2344/5: 052|052|202 360 001 ERASE; ERASE; EXIT 2;
2345/4: 065|304 000 100 1; REV; SET B100;
2346/2: 204 024 347 J2≠; (unl both i);
2346/5: 052|052|200 360 000 ERASE; ERASE; EXIT 1;
2347/4: 220 024 351 2; J3=; (unl illeg);
2350/1: 052|066|200 323 033 ERASE; CAB; JSP5;
2351/0: 171 376|036|201 144 353 3; Q15; -; J4≠Z; (unl X r);
2352/0: 304 000 057|024|202 360 001 SET47; FLOAT; EXIT 2;
2353/1: 065|304 000 057|024|065|202 360 001 4; REV; SET47; FLOAT; REV; EXIT 2;
=== Start P40V0; at address 1262/2356
P40V0; (SQUARE ROOT,24.2.64);
V-store at 02355 = 016 333 166 263 273 204 V0=0.46429/2;
2356/0: 042|203 104 365|045|042|166 377|170 362 DUP; J1≤Z; FIX; DUP; SHLD-1; =M15;
2357/4: 223 044 360|164 377 J2<Z; SHL-1;
2360/3: 161 373|042|161 003|300 004 355|056 2; SHA-3; DUP; SHA+1; V0; +; (X0,M);
2362/0: 043|060|056 DUPD; ÷; +; (X1,M);
2362/3: 043|060|065|161 375|056 DUPD; ÷; REV; SHA-2; +; (X2,M);
2363/3: 042|012|060|056 DUP; PERM; ÷; +; (X3);
[ == Page 41
[ page 41
2364/1: 171 362|033|027|024 M15; NOT; NEG; FLOAT;
2365/0: 200 360 000 3; EXIT1;
2365/3: 042|220 144 365|304 000 141|200 323 033 1; DUP; J3=Z; SET97; JSP5;
=== Start P41V-1; at address 1272/2370
P41; (abs); (real argument in N1);
2370/0: 030|200 360 000 ABSF; EXIT1;
=== Start P42V-1; at address 1273/2371
P42; (sign); (real argument in N1);
2371/0: 041|077|200 360 000 ZERO; SIGNF; EXIT1;
=== Start P44V-1; at address 1274/2372
P44; (modulo CMW); (m in N1, x in N2);
2372/0: 065|042|170 376|042|221 145 000 REV; DUP; =Q15; DUP; J1=Z;
2373/2: 065|042|066|045|066|161 377|036|042|220 105 001 REV; DUP; CAB; FIX; CAB; SHA-1; -; DUP; J2>Z;
2375/2: 052|052|171 376|042|221 105 000 ERASE; ERASE; Q15; DUP; J1>Z;
2376/4: 065|304 000 057|024|074|200 360 000 REV; SET47; FLOAT; +F; EXIT1;
2400/1: 065|052|200 360 000 1; REV; ERASE; EXIT1;
2401/0: 066|065|170 370|161 377|065|047 2; CAB; REV; =C15; SHA-1; REV; STR;
2402/2: 162 360|052|065|024|200 360 000 SHADC15; ERASE; REV; FLOAT; EXIT1;
=== Start P45V-1; at address 1284/2404
P45; (Cheby CMW); (Q-word in N1, argument in N2);
2404/0: 170 376|042|074|041|102 360|041 =Q15; DUP; +F; ZERO; M0M15Q; ZERO;
2405/2: 052|012|042|102 360|075|051|043|004 1; ERASE; PERM; DUP; M0M15Q; -F; REVD; DUPD; ×F;
2406/5: 051|012|075|012|051|065|262 365 005 REVD; PERM; -F; PERM; REVD; REV; J1C15NZ;
2410/2: 075|012|052|052|304 100 100|164 101|004|200 360 000 -F; PERM; ERASE; ERASE; SETB40100; SHL+32; ×F; EXIT1;
=== Start P46V1; at address 1293/2415
P46V1; (entier, ALGOL 3.2.5); (E assumed in N1);
V-store at 02413 = 000 006 000 001 005 014
V-store at 02414 = 052 063 071 056 052 067 V0=Q6/1/AV1; V1=B1243147113425067; (entier);
2415/0: 045|042|304 000 047|036|042|224 105 024 FIX; DUP; SET39; -; DUP; J3>Z;
[ == Page 42
[ page 42
2416/4: 170 370|224 105 021 =C15; J1>Z;
2417/3: 224 045 020 J2<Z;
2420/0: 041|200 360 000 ZERO; EXIT1;
2420/4: 304 377 377|200 360 000 2; SET-1; EXIT1;
2421/4: 304 377 370|172 370|164 360|142 360|164 360|142 360|161 360|200 360 000
1; SET-8; =+C15; SHLC15; NC15; SHLC15; NC15; SHAC15; EXIT1;
2424/4: 052|024|300 005 013|065|304 000 142|200 323 033 3; ERASE; FLOAT; V0; REV; SET98; JSP5;
=== Start P47V7; at address 1311/2437
P47V7; (exp ENH-FGD); (argument in N1);
V-store at 02427 = 000 003 000 001 005 035 V0=Q3/1/AV6;
V-store at 02430 = 134 125 035 224 256 014 V1=1.442695040888964/1;
V-store at 02431 = 043 166 111 037 002 054 V2=B1067311107601054;
V-store at 02432 = 117 254 176 167 152 123 V3=B2372617635665123;
V-store at 02433 = 127 162 066 342 017 101 V4=B2567106670407501;
V-store at 02434 = 331 126 271 240 320 035 V5=B6625327150150035;
V-store at 02435 = 052 075 065 000 000 000 V6=B12436465/23;
V-store at 02436 = 303 247 000 000 000 000 V7=F-89.0;
2437/0: 042|300 005 036|075|225 045 053 DUP; V7; -F; J2<Z;
2440/2: 042|045|033|027|170 370|300 005 030|035|047|001 DUP; FIX; NOT; NEG; =C15; V1; ×; STR; VR;
2442/2: 162 360|043|016|042|170 376|036|050 SHADC15; DUPD; ROUND; DUP; =Q15; -; CONT;
2443/5: 042|042|035|161 363|042 DUP; DUP; ×; SHA-7; DUP;
2444/5: 300 005 031|035|300 005 032|056|065|300 005 033|056|300 005 034|065|060|056
V2; ×; V3; +; REV; V4; +; V5; REV; ÷; +;
2450/0: 065|161 371|043|056|012|036|161 003|060 REV; SHA-4; DUPD; +; PERM; -; SHA1; ÷;
2451/4: 171 376|033|027|024|224 205 054 Q15; NOT; NEG; FLOAT; J1V;
2453/0: 065|052|200 360 000 REV; ERASE; EXIT1;
2453/5: 052|041|200 360 000 2; ERASE; ZERO; EXIT1;
2454/4: 052|300 005 027|065|304 000 134|200 323 033 1; ERASE; V0; REV; SET92; JSP5;
[ == Page 43
[ page 43
=== Start P48V8; at address 1336/2470
P48V8; (ln ENH-FGH); (argument in N1);
V-store at 02457 = 000 002 000 001 005 067 V0=Q2/1/AV8;
V-store at 02460 = 247 106 364 004 027 031 V1=-0.693147180559945/0;
V-store at 02461 = 055 101 074 314 376 167 V2=+0.353553390593274/0;
V-store at 02462 = 061 122 255 270 323 304 V3=+1.541342602720874/2;
V-store at 02463 = 004 345 174 167 067 263 V4=+0.612053805720620/4;
V-store at 02464 = 142 335 163 045 150 033 V5=+3.089532445011031/2;
V-store at 02465 = 341 101 352 330 367 071 V6=-1.921406891324693/3;
V-store at 02466 = 022 123 342 232 362 013 V7=+0.286369944871851/1;
V-store at 02467 = 061 063 000 000 000 000 V8=B30463/15;
2470/0: 042|201 105 103 DUP; J1≤Z;
2470/4: 045|161 121|300 005 060|042|161 361|012|035|036|065|161 377 FIX; SHA40; V1; DUP; SHA-8; PERM; ×; -; REV; SHA-1;
2473/1: 300 005 061|043|036|012|056|060|042|161 377|042|035|042 V2; DUPD; -; PERM; +; ÷; DUP; SHA-1; DUP; ×; DUP;
2475/3: 300 005 062|036|300 005 063|065|060|300 005 064|056|036|300 005 065|065|060|300 005 066|056|035
V3; -; V4; REV; ÷; V5; +; -; V6; REV; ÷; V7; +; ×;
2501/3: 161 367|056|304 000 007|024|200 360 000 SHA-5; +; SET7; FLOAT; EXIT1;
2503/1: 300 005 057|065|304 000 135|200 323 033 1; V0; REV; SET93; JSP5;
=== Start P49V12; at address 1362/2522
P49V12; (sin CMW); (argument in N1);
V-store at 02505 = 000 007 377 377 005 114 V0=Q7/-1/AV7;
V-store at 02506 = 101 121 256 215 365 006 V1=F+2.552557924805;
V-store at 02507 = 277 266 371 031 011 220 V2=F-2.85261569181~-1;
V-store at 02510 = 075 112 261 335 221 276 V3=F+9.118016007~-3;
V-store at 02511 = 272 070 143 210 301 060 V4=F-1.36587514~-4;
V-store at 02512 = 067 223 341 137 143 064 V5=F+1.1849619~-6;
V-store at 02513 = 262 214 327 344 354 250 V6=F-6.703~-9;
V-store at 02514 = 057 073 137 246 023 372 V7=F+2.7~-11;
V-store at 02515 = 100 121 174 301 267 047 V8=F+0.636619772368;
V-store at 02516 = 101 100 000 000 000 000 V9=F+2.0;
V-store at 02517 = 100 300 000 000 000 000 V10=F+1.0;
[ == Page 44
[ page 44
V-store at 02520 = 000 003 000 001 005 121 V11=Q3/1/AV12;
V-store at 02521 = 070 056 063 000 000 000 V12=B16027063/23;
2522/0: 042|201 145 123 DUP; J4≠Z;
2522/4: 200 360 000 EXIT1;
2523/1: 042|045|065|052|042|304 000 045|036|223 105 141 4; DUP; FIX; REV; ERASE; DUP; SET37; -; J5>Z;
2525/1: 304 000 023|056|205 045 126 SET19; +; J1≥Z;
2526/2: 200 360 000 EXIT1;
2526/5: 300 005 115|004|042|304 000 004|200 324 372 1; V8; ×F; DUP; SET4; JSP44;
2530/4: 300 005 116|075|065|304 000 002|200 324 372 V9; -F; REV; SET2; JSP44;
2532/3: 042|300 005 117|075|223 045 134 DUP; V10; -F; J2<Z;
2533/5: 300 005 116|075 V9; -F;
2534/3: 042|043|004|042|074|300 005 117|075|300 005 105|200 325 004 2; DUP; DUPD; ×F; DUP; +F; V10; -F; V0; JSP45;
2537/0: 004|012|041|077|065|041|077|015|200 145 141 ×F; PERM; ZERO; SIGNF; REV; ZERO; SIGNF; NEV; J3≠Z;
2540/5: 031 NEGF;
2541/0: 200 360 000 3; EXIT1;
2541/3: 052|300 005 120|065|304 000 136|200 323 033 5; ERASE; V11; REV; SET94; JSP5;
=== Start P50V2; at address 1383/2547
P50V2; (cos CMW using sin CMW - own failure treatment); (argument in n1);
V-store at 02544 = 000 003 000 001 005 145 V0=Q3/1/AV1;
V-store at 02545 = 050 064 070 000 000 000 V1=B12032070/23;
V-store at 02546 = 100 344 207 355 121 021 V2=F+1.570796326795;
2547/0: 042|205 145 150 DUP; J1≠Z;
2547/4: 052|300 005 117|200 360 000 3; ERASE; V10P49;EXIT1;
2550/5: 042|045|065|052|042|304 000 045|036|222 105 155 1; DUP; FIX; REV; ERASE; DUP; SET37; -; J2>Z;
2552/5: 304 000 023|056|224 045 147 SET19; +; J3<Z;
2554/0: 300 005 146|065|075|205 265 126 V2; REV; -F; J1P49;
2555/2: 052|300 005 144|065|304 000 137|200 323 033 2; ERASE; V0; REV; SET95; JSP5;
[ == Page 45
[ page 45
=== Start P51V15; at address 1408/2600
P51V15; (arctan EL);
V-store at 02560 = 076 046 377 217 044 052 V0=F0.019042127887;
V-store at 02561 = 076 046 377 217 122 250 V1=F0.019042129240;
V-store at 02562 = 076 115 376 047 031 226 V2=F0.038082414120;
V-store at 02563 = 076 316 201 251 120 166 V3=F0.076666493927;
V-store at 02564 = 077 237 010 261 072 076 V4=F0.121226383896;
V-store at 02565 = 100 134 353 235 337 313 V5=F0.725940450930;
(V6-V10 used for b);
V-store at 02573 = 000 006 000 001 000 000 V11=Q6/1/0;
V-store at 02574 = 000 004 000 001 000 000 V12=Q4/1/0;
(V13 used for a);
V-store at 02576 = 100 300 000 000 000 000 V14=F1.0;
V-store at 02577 = 100 100 000 000 000 000 V15=F0.5;
2600/0: 300 005 176|301 005 175 V14; =V13;
2601/0: 042|042|004|300 005 176|074|200 324 356|301 005 166 DUP; DUP; ×F; V14; +F; JSP40; =V6;
2603/1: 300 005 174|170 336 V12; =Q13;
2604/0: 300 005 175|300 325 166|074|300 005 177|004|301 005 175 2; V13; V6M13; +F; V15; ×F; =V13;
2606/2: 300 005 175|302 325 166|004|200 324 356|301 325 166|260 325 204
V13; V6M13Q; ×F; JSP40; =V6M13; J2C13NZ;
2611/0: 300 005 173|170 336 V11; =Q13;
2611/5: 302 325 160|041|065|045|025 V0M13Q; ZERO; REV; FIX; FLOATD;
2613/0: 300 325 160|302 325 165|007|260 325 213 1; V0M13; V5M13Q; ×+F; J1C13NZ;
2614/4: 020|062|200 360 000 ROUNDF; ÷F; EXIT1;
(Tester 12/12/63);
=== Start P101V3; at address 1426/2622
V-store at 02616 = 215 215 050 235 036 037 P101V3; V0=B4330645047217037;
[ == Page 46
[ page 46
V-store at 02617 = 014 016 026 235 000 000 V1=B0300702647200000; ([Q]STACK); [ Really underlined square brackets for []
2622/0: 171 376|301 005 220|171 336|301 005 221 Q15; =V2; Q13; =V3;
2623/4: 300 000 000|304 002 100|054 E0; SET B1100; AND;
2624/5: 042|201 145 226 DUP; J1≠Z; (unl trace or pm);
2625/3: 052|200 360 000 ERASE; EXIT 1;
2626/1: 065|042|164 121|171 102|056 1; REV; DUP; SHL 40; M4; +;
2627/2: 304 000 060|171 110|036|164 013|056 SET 48; C4; -; SHL5; +;
2630/5: 171 022|164 121|164 321|056 M1; SHL 40; SHL -24; +;
2632/0: 171 042|164 121|164 341|056 M2; SHL 40; SHL -16; +;
2633/1: 310 043 053|170 376|171 364 Y11M2; =Q15; I15;
2634/2: 171 022|224 025 236 M1; J2=;
2635/1: 310 023 050|310 000 247|213 320 147 Y8M1; V0P299; JS155P295;
2636/4: 164 121|164 361|056 2; SHL 40; SHL -8; +;
2637/3: 310 000 247|213 320 147 V0P299; JS155P295;
2640/3: 065|304 002 000|220 025 244 REV; SET B1000; J3=;
2641/4: 300 005 220|170 376|300 005 221|170 336 V2; =Q15; V3; =Q13;
2643/2: 052|200 360 000 ERASE; EXIT 1;
2644/0: 300 000 000|304 002 000|036|301 000 000 3; E0; SET B1000; -; =E0;
2645/4: 304 005 216|310 000 247|200 334 037 SET AV0; V0P299; JSP288;
2647/1: 171 022|171 064|036|170 030|145 020 M1; I3; -; =C1; I1=-1;
2650/4: 312 023 052|310 000 247|213 320 147|264 025 250 4; Y10M1Q; V0P299; JS155P295; J4C1NZ;
2652/4: 304 003 347|200 323 033 SET 999; JSP5;
(Read Program 24/9/63);
=== Start P126V0; at address 1453/2655
2655/0: 310 000 363|170 370 P126V0; V27P113; =C15;
2655/5: 300 000 000|304 000 010|054|204 145 266 E0; SET B10; AND; J7≠Z;
2657/3: 304 023 040|170 364|304 023 042|170 362 SET AY0; =I15; SET AY2; =M15;
2661/1: 124 360|121 360|310 003 042|171 364|056|170 362|304 000 003|172 364|124 360
PRQ15; PARQ15; Y2; I15; +; =M15; SET3; =+I15; PRQ15;
2664/2: 121 360|201 345 266 PARQ15; J6NTR;
[ == Page 47
[ page 47
2665/1: 304 000 131|200 323 033 SET 89; JSP5;
2666/1: 200 360 000 6; EXIT 1;
2666/4: 304 005 254|042|170 364|170 362 7; SET AV0; DUP; =I15; =M15;
2670/0: 041|170 356|041|170 336|041|170 303 ZERO; =Q14; ZERO; =Q13; ZERO; =RM12;
2671/3: 304 000 005|170 271|041|041 SET 5; =RC11; ZERO; ZERO;
2672/4: 052|164 015 1; ERASE; SHL 6;
2673/1: 042|205 145 274 DUP; J2≠Z; (if word ≠0);
2673/5: 052|125 360|300 005 254 ERASE; PREQ15; V0;
2674/5: 042|164 255|304 000 020|036 2; DUP; SHL -42; SET 16; -;
2676/0: 042|224 045 272 DUP; J1<Z; (if less than range);
2676/4: 304 000 016|224 025 304 SET 14; J4=; ( if - );
2677/4: 304 000 055|203 025 301 SET 45; J3≠; (unless EM);
2700/4: 052|052|200 360 000 ERASE; ERASE; EXIT 1;
2701/3: 042|304 000 007|036|224 105 272 3; DUP; SET 7; -; J1>Z; (if over range);
2702/5: 171 356|164 007|056|170 356 Q14; SHL 3; +; =Q14;
2704/0: 041|204 265 272 ZERO; J1;
2704/4: 171 336|164 021|171 356|056 4; Q13; SHL 8; Q14; +;
2705/5: 041|170 356|240 265 310 ZERO; =Q14; J5C11Z; (if s=0 );
2706/5: 170 336|143 260|204 265 272 =Q13; DC11; J1;
2710/0: 313 303 040 5; =Y0M12Q;
2710/3: 041|170 336 ZERO; =Q13;
2711/0: 304 000 005|170 271|204 265 272 SET 5; =RC11; J1;
(END ROUTINE 22/4/64);
=== Start P128V17; at address 1501/2735
V-store at 02713 = 215 035 014 031 241 020 P128V17; V0=B4321641406320420; (^RAN/E);
V-store at 02716 = 027 241 000 000 000 030 V3=B0572040000000030; (L/ M);
V-store at 02717 = 000 000 036 235 000 000 V4=B3647200000; ( S^ );
V-store at 02720 = 010 040 202 010 040 202 V5 = B0202020202020202;
(V6 = START TIME);
[ == Page 48
[ page 48
V-store at 02722 = 000 000 005 320 005 320 V7 = Q0/AV5/AV5;
(V8/ELAPSE TIME);
V-store at 02724 = 074 000 000 264 000 063 V9=B1700000055000063;
V-store at 02725 = 000 000 000 000 000 000 V10=0;
V-store at 02726 = 377 374 241 270 371 154 V11=B7777624156174554;
V-store at 02727 = 000 000 000 000 000 000
V-store at 02730 = 000 000 000 000 000 000 V12=0; V13=0; (V14/V15-RUN/ELAPSE TIMES);
V-store at 02733 = 050 242 212 050 242 212 V16=B1212121212121212;
V-store at 02734 = 000 000 000 001 004 020 V17=B202020;
2735/0: 304 000 003|200 220 000|161 321|300 005 321|036|042|301 005 331|304 000 011|200 220 000|161 321
SET3; OUT; SHA-24; V6; -; DUP; =V14; SET9; OUT; SHA-24;
2741/0: 300 005 323|036|042|301 005 332|065|304 000 074|044|065|304 003 350|044
V8; -; DUP; =V15; REV; SET60; ÷I; REV; SET1000; ÷I;
2744/0: 065|052|201 326 016|164 021|300 005 316|011|301 005 314 REV; ERASE;(RUN TIME); JS2; SHL+8; V3; OR; =V1;
2746/2: 201 326 016|065|304 000 074|044|065|304 003 350|044|065|052 JS2; REV; SET60; ÷I; REV; SET1000; ÷I; REV; ERASE;
2750/5: 201 326 016|164 041|012|201 326 016|164 041|012 (ELAPSE TIME); JS2; SHL+16; PERM; JS2; SHL+16; PERM;
2752/5: 164 021|300 005 317|164 321|011|300 005 316|164 021|066|011 SHL+8; V4; SHL-24; OR; V3; SHL+8; CAB; OR;
2755/2: 065|166 061|301 005 315|300 005 317|164 341|011|011|301 005 316
REV; SHLD+24; =V2; V4; SHL-16; OR; OR; =V3;
2760/0: 304 000 001|310 000 247|200 331 150|304 005 313|310 000 247|200 334 037
SET1; V0P299; JSP276; SETAV0; V0P299; JSP288;
(OUTPUT RAN/EL/ M S/ M S);
2763/0: 310 000 247|204 335 221 V0P299; JS21P292; (CLOSE FAIL DEV);
2764/0: 171 376|300 005 331|205 325 367|301 005 327|300 005 332|205 325 367|301 005 330|200 265 376
Q15; V14; JS5; =V12; V15; JS5; =V13; J6;
2767/5: 304 000 074|044|300 005 334|164 365|300 005 333|066|067|011|164 015|065
5; SET 60; ÷I; V17; SHL-6; V16; CAB; FRB; OR; SHL+6; REV;
2772/5: 300 005 334|300 005 333|066|067|011|164 061|300 005 324|011|011|200 360 000
V17; V16; CAB; FRB; OR; SHL+24; V9; OR; OR; EXIT1; (EV TIME);
2776/0: 304 005 325|170 365|304 005 330|170 362|171 376|304 000 010|200 220 000|170 376
6; SETAV10; =RI15; SETAV13; =M15; Q15; SET8; OUT; =Q15;
(OUTPUT RAN/EL/ M S/ M S ON MONITOR);
3001/2: 173 000|052|173 000|052 LINK; ERASE; LINK; ERASE;
3002/2: 304 000 020|300 000 000|054|204 146 015 SET B20; E0; AND; J1≠Z; (UNLESS LOAD-AND-GO); [h/w LH mark to end of page
3004/0: 310 001 043|042|221 146 012|225 106 007 V75P113; DUP; J8=Z; J7>Z; [h/w ... delete ??
3005/4: 310 000 364|304 000 017|054|304 000 006|200 220 000 V28P113; SETB17; AND; SET6; OUT; (DE-ALL SIM O÷D);
3007/5: 310 000 363|304 000 017|054|304 000 006|200 220 000|041 7; V27P113; SETB17; AND; SET6; OUT; ZERO; (DE-ALL P.T.R.);
3012/1: 052|300 006 047|300 006 046|164 061|164 321|300 003 032|011 8; ERASE; V1P130; V0P130; SHL24; SHL-24; V11P5; OR;
[ == Page 49
[ page 49
3014/4: 304 000 001|200 220 000 SET1; OUT; (CALL TRANSLATER);
3015/4: 204 260 027 1; J1P0; (CALL NEXT OB PROG);
3016/1: 304 000 012|044 2; (INTEGER S R); SET 10; ÷I;
3016/5: 065|304 000 012|044|042|204 146 020 REV; SET 10; ÷I; DUP; J3≠Z;
3020/2: 052|041 ERASE; ZERO;
3020/4: 065|042|205 146 021 3; REV; DUP; J4≠Z;
3021/3: 052|041 ERASE; ZERO;
3021/5: 164 021|056|164 021|056|200 360 000 4; SHL 8; +; SHL 8; +; EXIT 1;
(PRINT POSN IDENT 24/1/64);
=== Start P129V2; at address 1559/3027
3027/0: 200 326 034 P129V2; JS2;
3027/3: 304 000 002|215 320 005 SET 2; JS18P295; (OUTPUT CRLF);
3030/3: 041|065|213 320 144 ZERO; REV; JS150P295; (OUTPUT SPACES);
3031/2: 214 320 064 JS16P295; (CLOSE OUTPUT STREAM);
3031/5: 200 360 000 EXIT 1;
3032/2: 200 326 034 1; JS2;
3032/5: 052|214 320 064 ERASE; JS16P295;
3033/3: 200 360 000 EXIT 1;
3034/0: 202 337 263 2; JS12P295; (OPEN OUTPUT STREAM);
3034/3: 300 016 234|164 321|171 230|036 V31P295; SHL -24; C9; -; (PRESERVE FORMAT);
3035/5: 042|223 146 037 DUP; J3=Z;
3036/3: 304 000 002|215 320 005 SET2; JS18P295; (OUTPUT CRLF);
3037/3: 304 000 010|170 170|065 3; SET 8; =C7; REV;
3040/3: 041|166 015|042|220 146 045 4; ZERO; SHLD +6; DUP; J6=Z; (IF BLANK);
3041/4: 304 000 013|056|304 000 077|054 SET 11; +; SETB77; AND; (CONVERT TO KIDSGROVE CODE);
3043/0: 210 320 014 JS14P295; (OUTPUT CHAR);
3043/3: 143 160|263 166 040 5; DC7; J4C7NZ;
3044/2: 052|200 360 000 ERASE; EXIT 1;
3045/0: 052|203 266 043 6; ERASE; J5;
[ == Page 50
[ page 50
(TRANSLATOR IDENTIFIER);
=== Start P130V1; at address 1576/3050
P130V1;
V-store at 03046 = 034 053 102 256 335 320 V0=B0702550253556720;
V-store at 03047 = 111 004 136 173 134 065 V1=B2220213636656065; (KMW020100--UPU);
3050/0: 200 360 000 EXIT 1;
(READ CODE PROCEDURES 21/7/64);
=== Start P131V0; at address 1578/3052
V-store at 03051 = 000 000 000 034 054 002 P131V0; V0 = B0000000007026002;
3052/0: 300 000 000|304 000 040|054|202 146 054 E0; SET B40; AND; J1≠Z; (IF ANY CODE PROCS);
3053/4: 052|200 360 000 ERASE; EXIT 1;
3054/2: 042|170 365|042|170 343 1; DUP; =RI15; DUP; =RM14;
3055/2: 304 000 010|056|170 362 SET 8; +; =M15;
3056/2: 310 000 363|170 370 V27P113; =C15;
3057/1: 125 360|121 360 PREQ15; PARQ15; (READ A-BLOCK);
3057/5: 100 340|164 341|300 006 051|036|203 146 067 M0M14; SHL -16; V0; -; J3≠Z; (UNLESS CN,CRLF,P,CRLF);
3061/4: 124 360|121 360 PRQ15; PARQ15; (READ B-BLOCK);
3062/2: 300 340 007|170 336 E7M14; =Q13;
3063/1: 171 342|164 367|170 350 M14; SHL -5; =C14;
3064/1: 304 000 030|172 362 SET 24; =+M15;
3065/0: 124 360|121 360|143 320|260 326 065 2; PRQ15; PARQ15; DC13; J2C13NZ; (SKIP GHOST CONTROL);
3066/3: 151 337 M13TOQ15;
3066/5: 124 360|121 360 PRQ15; PARQ15; (READ CODE PROCS);
3067/3: 304 000 310|200 323 033 3; SET 200; JSP5;
=== Start P259V109; at address 1703/3247
P259V109; (5 CHANNEL OUTPUT TABLE);
V-store at 03071 = 006 073 006 074 006 075 V0=QAV2/AV3/AV4;
V-store at 03072 = 000 004 006 200 006 100 V1=Q4/AV71/AV7;
V-store at 03073 = 004 020 074 000 000 000 V2=B0101007400000000;
V-store at 03074 = 373 320 000 000 000 000 V3=B7675000000000000;
[ == Page 51
V-store at 03075 = 203 260 000 000 000 000 V4=B4073000000000000;
V-store at 03076 = 202 010 073 000 000 000 V5=B4040407300000000;
V-store at 03077 = 202 340 000 000 020 004 V6=B4056000000010004;
V-store at 03100 = 203 010 041 202 050 063 V7=B4060404140424063;
V-store at 03101 = 202 110 065 203 150 047 V8=B4044406540664047;
V-store at 03102 = 202 210 071 202 310 074 V9=B4050407140544074;
V-store at 03103 = 206 030 142 206 070 144 V10=B4141414241434144;
V-store at 03104 = 206 130 146 206 170 150 V11=B4145414641474150;
V-store at 03105 = 206 230 152 206 270 154 V12=B4151415241534154;
V-store at 03106 = 206 330 156 206 370 160 V13=B4155415641574160;
V-store at 03107 = 207 030 162 207 070 164 V14=B4161416241634164;
V-store at 03110 = 207 130 166 207 170 170 V15=B4165416641674170;
V-store at 03111 = 207 230 172 206 030 142 V16=B4171417241414142;
V-store at 03112 = 206 070 144 206 130 146 V17=B4143414441454146;
V-store at 03113 = 206 170 150 206 230 152 V18=B4147415041514152;
V-store at 03114 = 206 270 154 206 330 156 V19=B4153415441554156;
V-store at 03115 = 206 370 160 207 030 162 V20=B4157416041614162;
V-store at 03116 = 207 070 164 207 130 166 V21=B4163416441654166;
V-store at 03117 = 207 170 170 207 230 172 V22=B4167417041714172;
V-store at 03120 = 000 000 143 006 260 170 V23=B0000014301530170;
V-store at 03122 = 010 060 000 000 000 000 V25=B0203000000000000;
V-store at 03124 = 010 300 000 000 000 000 V27=B0214000000000000;
V-store at 03126 = 011 260 000 000 000 000 V29=B0233000000000000;
V-store at 03136 = 000 000 245 013 000 000 V37=B0000024502600000;
V-store at 03140 = 013 240 025 001 240 073 V39=B0272002500320073;
V-store at 03141 = 202 120 305 014 260 000 V40=B4045030503130000;
V-store at 03142 = 015 040 112 000 000 000 V41=B0322011200000000;
V-store at 03143 = 005 240 122 207 340 332 V42=B0132012241760332;
V-store at 03144 = 000 000 020 001 320 064 V43=B0000002000350064;
[ == Page 52
[ page 52
V-store at 03145 = 202 140 341 016 220 000 V44=B4046034103510000;
V-store at 03146 = 004 040 115 000 000 000 V45=B0102011500000000;
V-store at 03147 = 017 040 125 202 340 371 V46=B0362012540560371;
V-store at 03150 = 000 030 067 202 240 060 V47=B0001406740520060;
V-store at 03151 = 000 001 002 202 360 000 V48=B0000040240570000;
V-store at 03154 = 000 010 070 203 040 051 V51=B0000407040620051;
V-store at 03155 = 000 000 105 020 240 000 V52=B0000010504120000;
V-store at 03156 = 000 010 064 000 000 000 V53=B0000406400000000;
V-store at 03160 = 000 010 072 203 020 042 V55=B0000407240610042;
V-store at 03161 = 000 000 000 021 040 000 V56=B0000000004220000;
V-store at 03163 = 000 001 033 000 000 000 V58=B0000043300000000;
V-store at 03164 = 000 010 053 202 220 000 V59=B0000405340510000;
V-store at 03165 = 000 000 000 022 100 000 V60=B0000000004440000;
V-store at 03167 = 000 001 052 000 000 000 V62=B0000045200000000;
V-store at 03200 = 000 002 076 055 007 076 V71=B0000107613203476;
V-store at 03201 = 055 055 055 055 055 055 V72=B1322645513226455;
V-store at 03202 = 004 043 144 151 166 002 V73=B0102154432273002;
V-store at 03203 = 043 043 002 043 062 002 V74=B1062140210631002;
V-store at 03204 = 043 061 004 043 145 161 V75=B1063040410662561;
V-store at 03205 = 166 004 043 151 155 160 V76=B3540204332266560;
V-store at 03206 = 003 043 157 162 004 043 V77=B0062155734402043;
V-store at 03207 = 141 156 144 004 043 156 V78=B3026714401021556;
V-store at 03210 = 157 164 002 043 057 002 V79=B3367200210627402;
V-store at 03211 = 043 052 002 043 045 002 V80=B1062500210622402;
V-store at 03212 = 043 046 002 043 161 002 V81=B1062300210670402;
V-store at 03213 = 043 165 006 043 142 145 V82=B1067240610661145;
V-store at 03214 = 147 151 156 005 043 162 V83=B3166455601221562;
V-store at 03215 = 145 141 154 010 043 151 V84=B3126055402021551;
V-store at 03216 = 156 164 145 147 145 162 V85=B3347214531662562;
[ == Page 53
[ Page 53 - BAW
V-store at 03217 = 010 043 142 157 157 154 V86=B0202154233667554;
V-store at 03220 = 145 141 156 006 043 141 V87=B3126055601421541;
V-store at 03221 = 162 162 141 171 012 043 V88=B3447114136205043;
V-store at 03222 = 160 162 157 143 145 144 V89=B3407115730662544;
V-store at 03223 = 165 162 145 007 043 163 V90=B3527114501621563;
V-store at 03224 = 167 151 164 143 150 006 V91=B3566456430664006;
V-store at 03225 = 043 154 141 142 145 154 V92=B1066614130462554;
V-store at 03226 = 007 043 163 164 162 151 V93=B0162156335071151;
V-store at 03227 = 156 147 010 043 143 157 V94=B3346341010661557;
V-store at 03230 = 155 155 145 156 164 003 V95=B3326654533472003;
V-store at 03231 = 043 151 146 004 043 146 V96=B1066454601021546;
V-store at 03232 = 157 162 005 043 147 157 V97=B3367100510663557;
V-store at 03233 = 164 157 004 043 157 167 V98=B3506740410667567;
V-store at 03234 = 156 005 043 164 150 145 V99=B3340244335064145;
V-store at 03235 = 156 006 043 167 150 151 V100=B3340304335664151;
V-store at 03236 = 154 145 004 043 145 156 V101=B3306240410662556;
V-store at 03237 = 144 006 043 166 141 154 V102=B3100304335460554;
V-store at 03240 = 165 145 005 043 145 154 V103=B3526240510662554;
V-store at 03241 = 163 145 005 043 163 164 V104=B3466240510671564;
V-store at 03242 = 145 160 006 043 165 156 V105=B3127000610672556;
V-store at 03243 = 164 151 154 006 043 146 V106=B3506455401421546;
V-store at 03244 = 141 154 163 145 003 043 V107=B3026616331201443;
V-store at 03245 = 144 157 005 043 164 162 V108=B3106740510672162;
V-store at 03246 = 165 145 000 000 000 000 V109=B3526240000000000;
=== Start P260V85; at address 1789/3375
P260V85; (5 CHANNEL INPUT TABLE);
V-store at 03247 = 364 000 000 000 000 000 V0=B7500000000000000;
V-store at 03250 = 000 022 006 311 000 000 V1=Q18/AV34/0;
V-store at 03251 = 140 006 001 140 046 003 V2=B3000300130023003;
V-store at 03252 = 140 106 005 140 146 007 V3=B3004300530063007;
[ == Page 54
[ page 54
V-store at 03253 = 140 206 011 140 246 013 V4=B3010301130123013;
V-store at 03254 = 140 306 015 140 346 017 V5=B3014301530163017;
V-store at 03255 = 141 006 021 141 046 023 V6=B3020302130223023;
V-store at 03256 = 141 106 025 141 146 027 V7=B3024302530263027;
V-store at 03257 = 141 206 031 141 246 033 V8=B3030303130323033;
V-store at 03260 = 141 306 035 141 346 037 V9=B3034303530363037;
V-store at 03261 = 020 010 001 200 052 377 V10=B0400400140025377;
V-store at 03262 = 200 111 204 231 110 007 V11=B4004460446244007;
V-store at 03263 = 200 211 322 232 051 321 V12=B4010472246424721;
V-store at 03264 = 200 251 240 231 351 246 V13=B4012 4640 4636 4646;
V-store at 03265 = 200 011 302 233 050 003 V14=B4000470246624003;
V-store at 03266 = 233 230 005 200 151 241 V15=B4671400540064641;
V-store at 03267 = 233 030 011 234 027 020 V16=B4661401147013420;
V-store at 03270 = 200 266 075 020 001 000 V17=B401330750400 0400;
V-store at 03271 = 144 006 101 144 046 103 V18=B3100310131023103;
V-store at 03272 = 144 106 105 144 146 107 V19=B3104310531063107;
V-store at 03273 = 144 206 111 144 246 113 V20=B3110311131123113;
V-store at 03274 = 144 306 115 144 346 117 V21=B3114311531163117;
V-store at 03275 = 145 006 121 145 046 123 V22=B3120312131223123;
V-store at 03276 = 145 106 125 145 146 127 V23=B3124312531263127;
V-store at 03277 = 145 206 131 145 246 133 V24=B3130313131323133;
V-store at 03300 = 145 306 135 145 346 137 V25=B3134313531363137;
V-store at 03301 = 177 010 046 202 170 050 V26=B3760404640474050;
V-store at 03302 = 202 230 052 202 270 054 V27=B4051405240534054;
V-store at 03303 = 202 330 056 202 370 060 V28=B4055405640574060;
V-store at 03304 = 203 030 062 203 070 064 V29=B4061406240634064;
V-store at 03305 = 203 130 066 203 170 070 V30=B4065406640674070;
V-store at 03306 = 203 230 072 203 270 074 V31=B4071407240734074;
V-store at 03307 = 203 330 076 203 361 000 V32=B4075407640770400;
[ == Page 55
[ page 55
V-store at 03310 = 200 266 175 230 341 000 V33=B4013 3175 4616 0400;
V-store at 03311 = 000 057 363 377 300 005 V34=B0002776377740005;
V-store at 03312 = 010 033 054 000 200 202 V35=B0201545400100202;
V-store at 03313 = 302 300 013 011 052 154 V36=B6054001302225154;
V-store at 03314 = 000 340 230 242 300 021 V37=B0016023050540021;
V-store at 03315 = 013 130 114 001 100 211 V38=B0265411400240211;
V-store at 03316 = 224 300 027 011 223 154 V39=B4514002702311554;
V-store at 03317 = 001 240 215 072 320 042 V40=B0032021516550042;
V-store at 03320 = 011 323 061 071 022 341 V41=B0235146116211341;
V-store at 03321 = 061 100 306 071 220 054 V42=B1424030616310054;
V-store at 03322 = 067 220 313 072 022 244 V43=B1571031316411244;
V-store at 03323 = 015 320 000 000 000 000 V44=B0335000000000000;
V-store at 03324 = 053 220 067 046 220 064 V45=B1271006711510064;
V-store at 03325 = 061 023 201 052 100 315 V46=B1421160112440315;
V-store at 03326 = 064 023 164 010 142 351 V47=B1501156402061351;
V-store at 03327 = 004 162 274 003 300 205 V48=B0107127400740205;
V-store at 03330 = 062 220 100 065 100 263 V49=B1451010015240263;
V-store at 03331 = 063 023 221 052 022 301 V50=B1461162112411301;
V-store at 03332 = 052 023 164 004 042 251 V51=B1241156401021251;
V-store at 03333 = 005 123 071 004 322 224 V52=B0125147101151224;
V-store at 03334 = 011 303 151 005 023 264 V53=B0234155101211664;
V-store at 03335 = 014 063 021 070 022 244 V54=B0303142116011244;
V-store at 03336 = 012 123 211 006 203 311 V55=B0245161101501711;
V-store at 03337 = 005 342 341 071 022 201 V56=B0136134116211201;
V-store at 03340 = 055 100 130 071 022 251 V57=B1324013016211251;
V-store at 03341 = 006 063 124 013 143 161 V58=B0143152402661561;
V-store at 03342 = 056 023 061 054 100 172 V59=B1341146113040172;
V-store at 03343 = 051 220 160 064 300 155 V60=B1231016015140155;
V-store at 03344 = 015 142 341 073 100 221 V61=B0326134116640221;
[ == Page 56
[ page 56
V-store at 03345 = 046 220 173 063 220 166 V62=B1151017314710166;
V-store at 03346 = 051 100 223 067 023 161 V63=B1224022315611561;
V-store at 03347 = 046 023 344 004 202 171 V64=B1141174401101171;
V-store at 03350 = 010 242 251 010 062 301 V65=B0212125102031301;
V-store at 03351 = 056 023 064 010 303 101 V66=B1341146402141501;
V-store at 03352 = 064 023 021 052 022 141 V67=B1501142112411141;
V-store at 03353 = 063 100 103 064 220 222 V68=B1464010315110222;
V-store at 03354 = 074 220 220 063 100 217 V69=B1711022014640217;
V-store at 03355 = 067 100 243 067 220 230 V70=B1564024315710230;
V-store at 03356 = 052 022 141 061 100 101 V71=B1241114114240101;
V-store at 03357 = 065 220 243 067 023 101 V72=B1531024315611501;
V-store at 03360 = 050 022 241 051 023 241 V73=B1201124112211641;
V-store at 03361 = 067 022 244 005 003 031 V74=B1561124401201431;
V-store at 03362 = 012 242 141 047 022 241 V75=B0252114111611241;
V-store at 03363 = 061 100 171 050 220 263 V76=B1424017112110263;
V-store at 03364 = 064 023 041 062 022 241 V77=B1501144114411241;
V-store at 03365 = 063 023 224 010 003 071 V78=B1461162402001471;
V-store at 03366 = 013 203 101 071 100 203 V79=B0270150116240203;
V-store at 03367 = 054 220 276 064 023 221 V80=B1311027615011621;
V-store at 03370 = 064 100 210 074 220 305 V81=B1504021017110305;
V-store at 03371 = 055 022 341 061 022 244 V82=B1321134114211244;
V-store at 03372 = 011 143 261 046 023 021 V83=B0226166111411421;
V-store at 03373 = 072 022 244 011 362 321 V84=B1641124402371321;
V-store at 03374 = 052 023 064 011 120 000 V85=B1241146402250000;
=== Start P261V109; at address 1899/3553
P261V109; (LINE PRINTER OUTPUT TABLE);
V-store at 03375 = 006 377 007 000 007 001 V0=QAV2/AV3/AV4;
V-store at 03376 = 000 001 007 104 007 004 V1=Q1/AV71/AV7;
V-store at 03377 = 007 220 074 000 000 001 V2=B0171007400000001;
V-store at 03400 = 010 077 100 000 000 000 V3=B0203750000000000;
[ == Page 57
[ page 57
V-store at 03401 = 376 000 000 000 000 000 V4=B7740000000000000;
V-store at 03402 = 003 360 040 000 000 000 V5=B0077004000000000;
V-store at 03403 = 200 000 000 200 050 003 V6=B4000000040024003;
V-store at 03404 = 201 010 021 201 050 023 V7=B4020402140224023;
V-store at 03405 = 201 110 025 201 150 027 V8=B4024402540264027;
V-store at 03406 = 201 210 031 201 270 037 V9=B4030403140334037;
V-store at 03407 = 202 030 042 202 070 044 V10=B4041404240434044;
V-store at 03410 = 202 130 046 202 170 050 V11=B4045404640474050;
V-store at 03411 = 202 230 052 202 270 054 V12=B4051405240534054;
V-store at 03412 = 202 330 056 202 370 060 V13=B4055405640574060;
V-store at 03413 = 203 030 062 203 070 064 V14=B4061406240634064;
V-store at 03414 = 203 130 066 203 170 070 V15=B4065406640674070;
V-store at 03415 = 203 230 072 206 030 142 V16=B4071407241414142;
V-store at 03416 = 206 070 144 206 130 146 V17=B4143414441454146;
V-store at 03417 = 206 170 150 206 230 152 V18=B4147415041514152;
V-store at 03420 = 206 270 154 206 330 156 V19=B4153415441554156;
V-store at 03421 = 206 370 160 207 030 162 V20=B4157416041614162;
V-store at 03422 = 207 070 164 207 130 166 V21=B4163416441654166;
V-store at 03423 = 207 170 170 207 230 172 V22=B4167417041714172;
V-store at 03424 = 000 000 001 000 220 024 V23=B0000000100110024;
V-store at 03425 = 000 000 000 000 000 000 V24=B0000000000000000;
V-store at 03426 = 002 020 000 000 000 000 V25=B0041000000000000;
V-store at 03427 = 000 000 000 000 000 000 V26=B0000000000000000;
V-store at 03430 = 002 240 000 000 000 000 V27=B0052000000000000;
V-store at 03432 = 003 220 000 000 000 000 V29=B0071000000000000;
V-store at 03442 = 000 000 103 004 300 000 V37=B0000010301140000;
V-store at 03444 = 005 200 143 011 060 153 V39=B0130014302230153;
V-store at 03445 = 204 240 162 007 200 000 V40=B4112016201700000;
V-store at 03446 = 007 320 205 000 000 000 V41=B0175020500000000;
[ == Page 58
[ page 58
V-store at 03447 = 010 240 150 200 300 231 V42=B0212015040140231;
V-store at 03450 = 000 000 240 012 120 253 V43=B0000024002450253;
V-store at 03451 = 204 260 262 013 240 000 V44=B4113026202720000;
V-store at 03452 = 201 300 303 000 000 000 V45=B4034030300000000;
V-store at 03453 = 014 200 315 200 000 322 V46=B0310031540000322;
V-store at 03454 = 200 050 017 204 220 333 V47=B4002401741110333;
V-store at 03455 = 000 000 341 200 340 000 V48=B0000034140160000;
V-store at 03457 = 000 000 000 200 100 000 V50=B0000000040040000;
V-store at 03460 = 000 010 015 016 220 355 V51=B0000401503510355;
V-store at 03461 = 000 000 364 017 220 000 V52=B0000036403710000;
V-store at 03462 = 000 010 010 000 000 000 V53=B0000401000000000;
V-store at 03464 = 000 010 035 020 021 005 V55=B0000403504010405;
V-store at 03465 = 000 000 000 020 300 000 V56=B0000000004140000;
V-store at 03467 = 000 001 025 000 000 000 V58=B0000042500000000;
V-store at 03470 = 000 010 036 022 000 000 V59=B0000403604400000;
V-store at 03471 = 000 000 000 022 100 000 V60=B0000000004440000;
V-store at 03473 = 000 001 052 000 000 000 V62=B0000045200000000;
V-store at 03504 = 000 005 115 162 145 141 V71=B0000251534462541;
V-store at 03505 = 154 010 115 151 156 164 V72=B3300411532267164;
V-store at 03506 = 145 147 145 162 010 115 V73=B3126354534404115;
V-store at 03507 = 142 157 157 154 145 141 V74=B3046755733062541;
V-store at 03510 = 156 006 115 141 162 162 V75=B3340311530271162;
V-store at 03511 = 141 171 012 115 160 162 V76=B3027441223270162;
V-store at 03512 = 157 143 145 144 165 162 V77=B3366154531072562;
V-store at 03513 = 145 007 115 163 167 151 V78=B3120351534673551;
V-store at 03514 = 164 143 150 006 115 154 V79=B3506155001446554;
V-store at 03515 = 141 142 145 154 007 115 V80=B3026114533003515;
V-store at 03516 = 163 164 162 151 156 147 V81=B3467216232267147;
V-store at 03517 = 010 115 143 157 155 155 V82=B0204654333666555;
[ == Page 59
[ page 59
V-store at 03520 = 145 156 164 002 115 015 V83=B3126716400446415;
V-store at 03521 = 002 115 161 004 115 156 V84=B0044656101046556;
V-store at 03522 = 157 164 003 115 151 146 V85=B3367200323264546;
V-store at 03523 = 004 115 146 157 162 005 V86=B0104654633671005;
V-store at 03524 = 115 147 157 164 157 002 V87=B2326355735067402;
V-store at 03525 = 115 112 006 115 142 145 V88=B2324500623261145;
V-store at 03526 = 147 151 156 003 115 154 V89=B3166455600646554;
V-store at 03527 = 164 004 115 157 167 156 V90=B3500211533673556;
V-store at 03530 = 004 115 144 151 166 003 V91=B0104654432273003;
V-store at 03531 = 115 154 145 004 115 141 V92=B2326614501046541;
V-store at 03532 = 156 144 005 115 164 150 V93=B3346200523272150;
V-store at 03533 = 145 156 006 115 167 150 V94=B3126700623273550;
V-store at 03534 = 151 154 145 002 115 113 V95=B3226614500446513;
V-store at 03535 = 004 115 145 156 144 002 V96=B0104654533462002;
V-store at 03536 = 115 165 006 115 166 141 V97=B2327240623273141;
V-store at 03537 = 154 165 145 003 115 157 V98=B3307254500646557;
V-store at 03540 = 162 005 115 145 154 163 V99=B3440251531266163;
V-store at 03541 = 145 003 115 147 145 004 V100=B3120151531662404;
V-store at 03542 = 115 151 155 160 002 110 V101=B2326455534001110;
V-store at 03543 = 111 005 115 163 164 145 V102=B2220251534672145;
V-store at 03544 = 160 003 115 147 164 004 V103=B3400151531672004;
V-store at 03545 = 115 145 161 166 006 115 V104=B2326256135403115;
V-store at 03546 = 165 156 164 151 154 006 V105=B3526716432266006;
V-store at 03547 = 115 146 141 154 163 145 V106=B2326314133071545;
V-store at 03550 = 003 115 156 145 003 115 V107=B0064655631201515;
V-store at 03551 = 144 157 005 115 164 162 V108=B3106740523272162;
V-store at 03552 = 165 145 000 000 000 000 V109=B3526240000000000;
=== Start P262V86; at address 1986/3702
P262V86; (LINE PRINTER INPUT TABLE);
[ == Page 60
[ page 60
V-store at 03553 = 010 077 173 360 000 000 V0=B0203757374000000;
V-store at 03554 = 000 022 007 215 000 000 V1=Q18/AV34/0;
V-store at 03555 = 231 346 001 332 001 000 V2=B4636300166400400;
V-store at 03556 = 232 346 005 140 146 007 V3=B4656300530063007;
V-store at 03557 = 233 226 011 140 246 013 V4=B4671301130123013;
V-store at 03560 = 230 351 261 232 151 241 V5=B4616466146464641;
V-store at 03561 = 200 010 001 200 050 003 V6=B4000400140024003;
V-store at 03562 = 200 110 005 200 150 007 V7=B4004400540064007;
V-store at 03563 = 200 210 011 141 250 012 V8=B4010401130324012;
V-store at 03564 = 231 211 301 235 030 013 V9=B4630470147214013;
V-store at 03565 = 161 010 014 200 330 016 V10=B3420401440154016;
V-store at 03566 = 200 370 020 201 030 022 V11=B4017402040214022;
V-store at 03567 = 201 070 024 201 130 026 V12=B4023402440254026;
V-store at 03570 = 201 170 030 201 230 032 V13=B4027403040314032;
V-store at 03571 = 201 270 034 201 330 036 V14=B4033403440354036;
V-store at 03572 = 201 370 040 202 030 042 V15=B4037404040414042;
V-store at 03573 = 202 070 044 202 121 000 V16=B4043404440450400;
V-store at 03574 = 020 006 075 143 341 000 V17=B0400307530760400;
V-store at 03575 = 231 346 101 332 001 000 V18=B4636310166400400;
V-store at 03576 = 232 346 105 144 146 107 V19=B4656310531063107;
V-store at 03577 = 357 351 242 230 111 224 V20=B7376464246044624;
V-store at 03600 = 144 316 377 144 346 117 V21=B3114737731163117;
V-store at 03601 = 145 006 121 145 046 123 V22=B3120312131223123;
V-store at 03602 = 145 106 125 145 146 127 V23=B3124312531263127;
V-store at 03603 = 145 206 131 145 246 133 V24=B3130313131323133;
V-store at 03604 = 145 306 135 145 346 137 V25=B3134313531363137;
V-store at 03605 = 020 010 046 202 170 050 V26=B0400404640474050;
V-store at 03606 = 202 230 052 202 270 054 V27=B4051405240534054;
[ == Page 61
V-store at 03607 = 202 330 056 202 370 060 V28=B4055405640574060;
V-store at 03610 = 203 030 062 203 070 064 V29=B4061406240634064;
V-store at 03611 = 203 130 066 203 170 070 V30=B4065406640674070;
V-store at 03612 = 203 230 072 203 270 074 V31=B4071407240734074;
V-store at 03613 = 203 330 076 203 361 000 V32=B4075407640770400;
V-store at 03614 = 020 006 175 147 347 360 V33=B0400317531763760;
V-store at 03615 = 000 057 352 000 132 044 V34=B0002775200055044;
V-store at 03616 = 013 137 363 066 300 011 V35=B0265776315540011;
V-store at 03617 = 010 330 114 000 300 211 V36=B0215411400140211;
V-store at 03620 = 224 300 017 011 233 034 V37=B4514001702315434;
V-store at 03621 = 001 040 201 072 320 032 V38=B0022020116550032;
V-store at 03622 = 011 323 061 071 022 341 V39=B0235146116211341;
V-store at 03623 = 061 100 306 053 220 045 V40=B1424030612710045;
V-store at 03624 = 046 220 042 061 023 201 V41=B1151004214211601;
V-store at 03625 = 052 100 315 064 023 164 V42=B1244031515011564;
V-store at 03626 = 010 143 231 003 002 331 V43=B0206163100601331;
V-store at 03627 = 002 302 241 063 100 225 V44=B0054124114640225;
V-store at 03630 = 067 023 241 052 100 335 V45=B1561164112440335;
V-store at 03631 = 056 220 100 053 300 065 V46=B1351010012740065;
V-store at 03632 = 010 123 071 003 323 221 V47=B0205147100751621;
V-store at 03633 = 052 022 301 052 023 164 V48=B1241130112411564;
V-store at 03634 = 004 043 041 065 100 263 V49=B0102144115240263;
V-store at 03635 = 047 220 117 064 220 112 V50=B1171011715110112;
V-store at 03636 = 064 023 021 052 022 141 V51=B1501142112411141;
V-store at 03637 = 063 100 103 052 022 301 V52=B1464010312411301;
[ == Page 62
V-store at 03640 = 056 023 064 010 302 151 V53=B1341146402141151;
V-store at 03641 = 005 243 071 005 122 224 V54=B0132147101251224;
V-store at 03642 = 011 063 161 067 022 141 V55=B0223156115611141;
V-store at 03643 = 076 100 110 070 220 155 V56=B1744011016110155;
V-store at 03644 = 074 220 143 056 023 221 V57=B1711014313411621;
V-store at 03645 = 050 022 324 005 203 221 V58=B1201132401301621;
V-store at 03646 = 052 220 150 065 100 266 V59=B1251015015240266;
V-store at 03647 = 067 022 341 063 022 304 V60=B1561134114611304;
V-store at 03650 = 007 243 111 007 123 174 V61=B0172151101651574;
V-store at 03651 = 007 040 243 074 023 064 V62=B0162024317011464;
V-store at 03652 = 010 362 251 010 063 071 V63=B0217125102031471;
V-store at 03653 = 007 262 224 011 303 151 V64=B0173122402341551;
V-store at 03654 = 007 363 264 014 063 021 V65=B0177166403031421;
V-store at 03655 = 070 022 244 012 123 171 V66=B1601124402451571;
V-store at 03656 = 010 222 241 046 023 024 V67=B0211124111411424;
V-store at 03657 = 004 023 131 011 103 161 V68=B0101153102241561;
V-store at 03660 = 064 022 201 052 022 221 V69=B1501120112411221;
V-store at 03661 = 072 023 161 052 100 120 V70=B1641156112440120;
V-store at 03662 = 061 220 241 046 220 234 V71=B1431024111510234;
V-store at 03663 = 047 022 241 061 100 171 V72=B1161124114240171;
V-store at 03664 = 052 300 237 011 043 224 V73=B1254023702221624;
V-store at 03665 = 010 042 211 012 243 101 V74=B0202121102521501;
V-store at 03666 = 062 023 041 052 023 061 V75=B1441144112411461;
V-store at 03667 = 071 100 200 063 220 262 V76=B1624020014710262;
V-store at 03670 = 064 220 260 071 100 203 V77=B1511026016240203;
V-store at 03671 = 052 100 322 054 220 276 V78=B1244032213110276;
V-store at 03672 = 064 220 271 071 023 104 V79=B1511027116211504;
V-store at 03673 = 010 202 254 013 300 262 V80=B0210125402740262;
V-store at 03674 = 071 100 302 074 220 305 V81=B1624030217110305;
[ == Page 63
V-store at 03675 = 055 022 341 061 022 244 V82=B1321134114211244;
V-store at 03676 = 011 143 271 014 302 141 V83=B0226167103141141;
V-store at 03677 = 061 023 241 052 100 237 V84=B1421164112440237;
V-store at 03700 = 051 023 114 015 000 326 V85=B1221151403200326;
V-store at 03701 = 056 023 264 011 020 000 V86=B1341166402210000;
=== Start P263V121; at address 2108/4074
P263V121; (8 CHANNEL OUTPUT TABLE);
V-store at 03702 = 007 304 007 305 007 306 V0=QAV2/AV3/AV4;
V-store at 03703 = 000 001 010 011 007 311 V1=Q1/AV71/AV7;
V-store at 03704 = 007 220 074 000 000 001 V2=B0171007400000001;
V-store at 03705 = 364 040 300 000 000 000 V3=B7502030000000000;
V-store at 03706 = 030 166 234 000 000 000 V4=B0607323400000000;
V-store at 03707 = 000 160 006 000 000 000 V5=B0007000600000000;
V-store at 03710 = 200 010 004 200 050 003 V6=B4000400440024003;
V-store at 03711 = 201 010 021 201 050 023 V7=B4020402140224023;
V-store at 03712 = 201 110 025 201 150 027 V8=B4024402540264027;
V-store at 03713 = 201 210 031 201 270 037 V9=B4030403140334037;
V-store at 03714 = 202 030 042 202 070 044 V10=B4041404240434044;
V-store at 03715 = 202 130 046 202 170 050 V11=B4045404640474050;
V-store at 03716 = 202 230 052 202 270 054 V12=B4051405240534054;
V-store at 03717 = 202 330 056 202 370 060 V13=B4055405640574060;
V-store at 03720 = 203 030 062 203 070 064 V14=B4061406240634064;
V-store at 03721 = 203 130 066 203 170 070 V15=B4065406640674070;
V-store at 03722 = 203 230 072 206 030 142 V16=B4071407241414142;
V-store at 03723 = 206 070 144 206 130 146 V17=B4143414441454146;
V-store at 03724 = 206 170 150 206 230 152 V18=B4147415041514152;
V-store at 03725 = 206 270 154 206 330 156 V19=B4153415441554156;
V-store at 03726 = 206 370 160 207 030 162 V20=B4157416041614162;
V-store at 03727 = 207 070 164 207 130 166 V21=B4163416441654166;
[ == Page 64
V-store at 03730 = 207 170 170 207 230 172 V22=B4167417041714172;
V-store at 03731 = 000 000 001 000 300 041 V23=B0000000100140041;
V-store at 03733 = 003 100 000 000 000 000 V25=B0064000000000000;
V-store at 03735 = 004 060 000 000 000 000 V27=B0103000000000000;
V-store at 03737 = 005 300 000 000 000 000 V29=B0134000000000000;
V-store at 03747 = 000 000 155 007 300 000 V37=B0000015501740000;
V-store at 03751 = 010 330 120 205 060 242 V39=B0215412041230242;
V-store at 03752 = 205 200 253 013 040 000 V40=B4130025302620000;
V-store at 03753 = 013 270 121 000 000 000 V41=B0273412100000000;
V-store at 03754 = 030 040 323 205 340 330 V42=B0602032341360330;
V-store at 03755 = 000 010 127 016 020 344 V43=B0000412703410344;
V-store at 03756 = 205 220 355 017 240 000 V44=B4131035503720000;
V-store at 03757 = 201 310 122 000 000 000 V45=B4034412200000000;
V-store at 03760 = 020 221 022 200 001 025 V46=B0411042240000425;
V-store at 03761 = 200 050 017 205 121 044 V47=B4002401741250444;
V-store at 03762 = 000 001 053 205 360 000 V48=B0000045341370000;
V-store at 03764 = 000 000 000 200 100 000 V50=B0000000040040000;
V-store at 03765 = 000 010 126 023 201 073 V51=B0000412604700473;
V-store at 03766 = 000 001 104 024 220 000 V52=B0000050405110000;
V-store at 03767 = 000 010 117 000 000 000 V53=B0000411700000000;
V-store at 03771 = 000 010 035 205 101 124 V55=B0000403541240524;
V-store at 03772 = 000 000 000 025 320 000 V56=B0000000005350000;
V-store at 03774 = 000 001 154 000 000 000 V58=B0000055400000000;
V-store at 03775 = 000 010 036 205 320 000 V59=B0000403641350000;
V-store at 03776 = 000 000 000 027 260 000 V60=B0000000005730000;
V-store at 04000 = 000 000 310 000 000 000 V62=B0000031000000000;
V-store at 04011 = 000 010 132 162 132 145 V71=B0000413234455145;
V-store at 04012 = 132 141 132 154 016 132 V72=B2646053233007132;
V-store at 04013 = 151 132 156 132 164 132 V73=B3225515626472132;
[ == Page 65
V-store at 04014 = 145 132 147 132 145 132 V74=B3125514726462532;
V-store at 04015 = 162 016 132 142 132 157 V75=B3440713230455157;
V-store at 04016 = 132 157 132 154 132 145 V76=B2646753233055145;
V-store at 04017 = 132 141 132 156 012 132 V77=B2646053233405132;
V-store at 04020 = 141 132 162 132 162 132 V78=B3025516226471132;
V-store at 04021 = 141 132 171 022 132 160 V79=B3025517104455160;
V-store at 04022 = 132 162 132 157 132 143 V80=B2647113233655143;
V-store at 04023 = 132 145 132 144 132 165 V81=B2646253231055165;
V-store at 04024 = 132 162 132 145 014 132 V82=B2647113231206132;
V-store at 04025 = 163 132 167 132 151 132 V83=B3465516726464532;
V-store at 04026 = 164 132 143 132 150 012 V84=B3505514326464012;
V-store at 04027 = 132 154 132 141 132 142 V85=B2646613230255142;
V-store at 04030 = 132 145 132 154 014 132 V86=B2646253233006132;
V-store at 04031 = 163 132 164 132 162 132 V87=B3465516426471132;
V-store at 04032 = 151 132 156 132 147 016 V88=B3225515626463416;
V-store at 04033 = 132 143 132 157 132 155 V89=B2646153233655155;
V-store at 04034 = 132 155 132 145 132 156 V90=B2646653231255156;
V-store at 04035 = 132 164 006 132 156 132 V91=B2647200626467132;
V-store at 04036 = 157 132 164 004 132 151 V92=B3365516401055151;
V-store at 04037 = 132 146 006 132 146 132 V93=B2646300626463132;
V-store at 04040 = 157 132 162 010 132 147 V94=B3365516202055147;
V-store at 04041 = 132 157 132 164 132 157 V95=B2646753235055157;
V-store at 04042 = 010 132 164 132 162 132 V96=B0205516426471132;
V-store at 04043 = 165 132 145 002 132 121 V97=B3525514500455121;
V-store at 04044 = 006 132 157 132 167 132 V98=B0145515726473532;
V-store at 04045 = 156 002 132 123 006 132 V99=B3340113224603132;
V-store at 04046 = 141 132 156 132 144 010 V100=B3025515626462010;
V-store at 04047 = 132 164 132 150 132 145 V101=B2647213232055145;
V-store at 04050 = 132 156 012 132 167 132 V102=B2646701226473532;
[ == Page 66
V-store at 04051 = 150 132 151 132 154 132 V103=B3205515126466132;
V-store at 04052 = 145 006 132 145 132 156 V104=B3120313231255156;
V-store at 04053 = 132 144 002 132 122 012 V105=B2646200226451012;
V-store at 04054 = 132 166 132 141 132 154 V106=B2647313230255154;
V-store at 04055 = 132 165 132 145 004 132 V107=B2647253231202132;
V-store at 04056 = 157 132 162 010 132 145 V108=B3365516202055145;
V-store at 04057 = 132 154 132 163 132 145 V109=B2646613234655145;
V-store at 04060 = 002 132 124 006 132 151 V110=B0045512401455151;
V-store at 04061 = 132 155 132 160 002 117 V111=B2646653234001117;
V-store at 04062 = 125 010 132 163 132 164 V112=B2520413234655164;
V-store at 04063 = 132 145 132 160 006 132 V113=B2646253234003132;
V-store at 04064 = 145 132 161 132 166 012 V114=B3125516126473012;
V-store at 04065 = 132 165 132 156 132 164 V115=B2647253233455164;
V-store at 04066 = 132 151 132 154 012 132 V116=B2646453233005132;
V-store at 04067 = 146 132 141 132 154 132 V117=B3145514126466132;
V-store at 04070 = 163 132 145 004 132 144 V118=B3465514501055144;
V-store at 04071 = 132 157 012 132 142 132 V119=B2646741226461132;
V-store at 04072 = 145 132 147 132 151 132 V120=B3125514726464532;
V-store at 04073 = 156 000 000 000 000 000 V121=B3340000000000000;
=== Start P264V104; at address 2213/4245
P264V104; (8 CHANNEL INPUT TABLE);
V-store at 04074 = 364 000 000 000 000 000 V0=B7500000000000000;
V-store at 04075 = 000 022 010 136 000 000 V1=Q18/AV34/0;
V-store at 04076 = 231 346 001 332 001 000 V2=B4636300166400400;
V-store at 04077 = 232 340 005 161 001 000 V3=B4656000534200400;
V-store at 04100 = 140 206 011 140 246 013 V4=B3010301130123013;
V-store at 04101 = 140 306 015 140 351 241 V5=B3014301530164641;
V-store at 04102 = 200 010 001 200 050 003 V6=B4000400140024003;
V-store at 04103 = 200 110 005 200 150 007 V7=B4004400540064007;
V-store at 04104 = 200 210 011 357 370 012 V8=B4010401173774012;
[ == Page 67
V-store at 04105 = 231 211 301 235 030 013 V9=B4630470147214013;
V-store at 04106 = 142 010 014 200 330 016 V10=B3040401440154016;
V-store at 04107 = 200 370 020 201 030 022 V11=B4017402040214022;
V-store at 04110 = 201 070 024 201 130 026 V12=B4023402440254026;
V-store at 04111 = 201 170 030 201 230 032 V13=B4027403040314032;
V-store at 04112 = 201 270 034 201 330 036 V14=B4033403440354036;
V-store at 04113 = 201 370 040 202 030 042 V15=B4037404040414042;
V-store at 04114 = 202 070 044 202 126 073 V16=B4043404440453073;
V-store at 04115 = 143 306 075 143 341 000 V17=B3074307530760400;
V-store at 04116 = 231 346 101 332 001 000 V18=B4636310166400400;
V-store at 04117 = 232 346 105 020 007 360 V19=B4656310504003760;
V-store at 04120 = 144 206 111 144 246 113 V20=B3110311131123113;
V-store at 04121 = 144 306 115 144 352 376 V21=B3114311531165376;
V-store at 04122 = 230 031 211 231 231 202 V22=B4601461146314602;
V-store at 04123 = 234 051 242 233 031 221 V23=B4702464246614621;
V-store at 04124 = 230 111 224 357 366 133 V24=B4604462473773133;
V-store at 04125 = 231 211 322 230 351 246 V25=B4630472246164646;
V-store at 04126 = 146 010 046 202 170 050 V26=B3140404640474050;
V-store at 04127 = 202 230 052 202 270 054 V27=B4051405240534054;
V-store at 04130 = 202 330 056 202 370 060 V28=B4055405640574060;
V-store at 04131 = 203 030 062 203 070 064 V29=B4061406240634064;
V-store at 04132 = 203 130 066 203 170 070 V30=B4065406640674070;
V-store at 04133 = 203 230 072 203 270 074 V31=B4071407240734074;
V-store at 04134 = 203 330 076 203 366 173 V32=B4075407640773173;
V-store at 04135 = 147 306 175 147 341 000 V33=B3174317531760400;
V-store at 04136 = 000 057 356 000 140 271 V34=B0002775600060271;
V-store at 04137 = 242 100 265 377 070 234 V35=B5044026577634234;
V-store at 04140 = 000 240 215 231 300 015 V36=B0012021546340015;
V-store at 04141 = 011 330 054 001 000 222 V37=B0235405400200222;
[ == Page 68
V-store at 04142 = 302 300 023 013 042 272 V38=B6054002302621272;
V-store at 04143 = 002 077 361 046 240 037 V39=B0043776111520037;
V-store at 04144 = 377 023 022 377 023 202 V40=B7761142277611602;
V-store at 04145 = 377 022 244 014 323 102 V41=B7761124403151502;
V-store at 04146 = 377 023 164 010 143 232 V42=B7761156402061632;
V-store at 04147 = 003 077 361 067 240 055 V43=B0063776115720055;
V-store at 04150 = 377 023 242 377 022 244 V44=B7761164277611244;
V-store at 04151 = 015 322 322 377 022 242 V45=B0335132277611242;
V-store at 04152 = 377 023 064 011 122 352 V46=B7761146402251352;
V-store at 04153 = 004 257 361 053 300 071 V47=B0112776112740071;
V-store at 04154 = 010 123 072 004 157 361 V48=B0205147201067761;
V-store at 04155 = 071 057 361 052 057 361 V49=B1622776112427761;
V-store at 04156 = 054 057 361 052 057 361 V50=B1302776112427761;
V-store at 04157 = 067 100 102 062 057 361 V51=B1564010214427761;
V-store at 04160 = 065 100 263 047 240 142 V52=B1524026311720142;
V-store at 04161 = 377 023 112 005 257 361 V53=B7761151201327761;
V-store at 04162 = 064 057 361 061 057 361 V54=B1502776114227761;
V-store at 04163 = 052 057 361 046 057 361 V55=B1242776111427761;
V-store at 04164 = 063 100 103 052 057 361 V56=B1464010312427761;
V-store at 04165 = 054 057 361 056 057 361 V57=B1302776113427761;
V-store at 04166 = 063 100 214 046 240 162 V58=B1464021411520162;
V-store at 04167 = 377 023 172 006 357 361 V59=B7761157201567761;
V-store at 04170 = 067 057 361 046 057 361 V60=B1562776111427761;
V-store at 04171 = 076 100 110 063 057 361 V61=B1744011014627761;
V-store at 04172 = 051 100 223 070 240 217 V62=B1224022316120217;
V-store at 04173 = 377 023 312 010 017 361 V63=B7761171202007761;
V-store at 04174 = 056 057 361 071 057 361 V64=B1342776116227761;
V-store at 04175 = 050 057 361 055 100 130 V65=B1202776113240130;
V-store at 04176 = 071 057 361 052 240 207 V66=B1622776112520207;
[ == Page 69
V-store at 04177 = 377 023 124 013 143 162 V67=B7761152402661562;
V-store at 04200 = 377 022 342 377 023 062 V68=B7761134277611462;
V-store at 04201 = 377 022 304 007 243 112 V69=B7761130401721512;
V-store at 04202 = 011 237 361 067 300 225 V70=B0231776115740225;
V-store at 04203 = 012 063 302 377 023 064 V71=B0243170277611464;
V-store at 04204 = 010 362 252 012 317 361 V72=B0217125202547761;
V-store at 04205 = 063 240 241 377 022 224 V73=B1472024177611224;
V-store at 04206 = 011 303 032 012 217 361 V74=B0234143202507761;
V-store at 04207 = 070 057 361 052 100 245 V75=B1602776112440245;
V-store at 04210 = 066 057 361 073 100 303 V76=B1542776116640303;
V-store at 04211 = 067 240 265 377 022 242 V77=B1572026577611242;
V-store at 04212 = 377 022 142 377 023 024 V78=B7761114277611424;
V-store at 04213 = 004 023 132 014 217 361 V79=B0101153203107761;
V-store at 04214 = 067 057 361 064 057 361 V80=B1562776115027761;
V-store at 04215 = 050 057 361 052 057 361 V81=B1202776112427761;
V-store at 04216 = 051 057 361 072 057 361 V82=B1222776116427761;
V-store at 04217 = 067 057 361 052 100 120 V83=B1562776112440120;
V-store at 04220 = 061 240 323 377 022 142 V84=B1432032377611142;
V-store at 04221 = 377 022 162 377 022 242 V85=B7761116277611242;
V-store at 04222 = 377 023 024 007 222 212 V86=B7761142401711212;
V-store at 04223 = 016 057 361 064 057 361 V87=B0342776115027761;
V-store at 04224 = 062 057 361 062 057 361 V88=B1442776114427761;
V-store at 04225 = 052 057 361 063 057 361 V89=B1242776114627761;
V-store at 04226 = 071 100 200 063 240 351 V90=B1624020014720351;
V-store at 04227 = 377 023 102 377 023 224 V91=B7761150277611624;
V-store at 04230 = 010 062 312 017 057 361 V92=B0203131203627761;
V-store at 04231 = 064 057 361 071 057 361 V93=B1502776116227761;
V-store at 04232 = 064 100 210 074 240 375 V94=B1504021017120375;
V-store at 04233 = 377 022 322 377 022 342 V95=B7761132277611342;
[ == Page 70
V-store at 04234 = 377 023 022 377 022 244 V96=B7761142277611244;
V-store at 04235 = 011 143 272 020 217 361 V97=B0226167204107761;
V-store at 04236 = 046 057 361 061 057 361 V98=B1142776114227761;
V-store at 04237 = 072 057 361 052 100 237 V99=B1642776112440237;
V-store at 04240 = 072 241 023 377 023 062 V100=B1652042377611462;
V-store at 04241 = 377 023 222 377 022 342 V101=B7761162277611342;
V-store at 04242 = 377 023 024 014 142 232 V102=B7761142403061232;
V-store at 04243 = 021 217 361 064 100 326 V103=B0430776115040326;
V-store at 04244 = 015 057 330 004 300 000 V104=B0322773001140000;
[ P0; -- no idea what this is supposed to do
=== Start P268V-1; at address 2213/4245
P268; (DATA SKIP);
4245/0: 200 336 246 JS1P295;
4245/3: 202 270 304 J13;
4246/0: 170 342|100 340|170 376 =M14; M0M14; =Q15;
4247/0: 171 364|171 362|222 030 257 16; I15; M15; J1=;
4250/1: 052|110 340|164 301|170 370|171 370 ERASE; M0M14N; SHL-32; =C15; C15;
4251/4: 026|170 371|304 177 377|170 362 ABS; =RC15; SET32767; =M15;
4253/0: 121 340|220 350 276 14; PARQ14; J10TR;
4253/5: 134 360|120 364|200 350 253 MFSKQ15; MLBQ15; J14NTR;
4255/0: 304 000 001|170 362|204 270 302 SET1; =M15; J15;
4256/2: 304 000 275|210 260 265 11; SET189; JP299; (M AND I ≠);
4257/2: 033|027|042 1; NOT; NEG; DUP;
4257/5: 225 150 271 J2=Z; (M AND I = -1);
4260/2: 033|027|224 150 261 NOT; NEG; J3=Z; (M AND I = -2);
4261/1: 202 270 256 J11; (M AND I ≠ -1 OR -2);
4261/4: 110 340|164 301|170 331|146 320|140 320|134 320 3; M0M14N; SHL-32; =RC13; I13=2; M+I13; MFSKQ13;
4263/4: 121 320|220 350 276|120 324|223 350 266 PARQ13; J10TR; MLBQ13; J17TR;
4265/2: 136 320|153 017|200 270 247 MBSKQ13; IM0TOQ15; J16;
[ == Page 71
4266/3: 041|033|042|170 364|170 362 17; ZERO; NOT; DUP; =I15; =M15;
4267/4: 136 320|110 340|164 341|164 041 MBSKQ13; M0M14N; SHL-16; SHL+16;
4271/0: 111 340|200 270 247 =M0M14N; J16;
4271/5: 052 2; ERASE;
4272/0: 110 340 5; M0M14N;
4272/2: 171 376|101 340|042|164 301 12; Q15; =M0M14; DUP; SHL-32;
4273/3: 170 371|041|304 000 001|170 362|041 =RC15; ZERO; SET1; =M15; ZERO;
4275/0: 002 =TR;
4275/1: 121 360|200 350 277 8; PARQ15; J6NTR;
4276/0: 304 000 277|210 260 265 10; SET191; JP299; (PARITY FAILURE);
4277/0: 134 360 6; MFSKQ15;
4277/2: 120 364|221 350 302 MLBQ15; J7TR;
4300/1: 121 360|220 350 276 PARQ15; J10TR;
4301/0: 134 360 MFSKQ15;
4301/2: 033|027|201 270 275 NOT; NEG; J8;
4302/1: 056|111 340 7; +; =M0M14N;
4302/4: 121 360|220 350 276 15; PARQ15; J10TR;
4303/3: 136 360|200 360 000 MBSKQ15; EXIT1;
4304/2: 304 000 300|210 260 265 13; SET192; JP299; (DEVICE NOT OPEN);
=== Start P269V5; at address 2252/4314
V-store at 04307 = 377 377 377 377 377 377 P269V5; V1=-1; (INTERCHANGE);
V-store at 04310 = 000 000 010 307 010 307 V2=Q0/AV1/AV1;
V-store at 04313 = 000 000 010 311 010 312 V5=Q0/AV3/AV4;
4314/0: 042|301 010 306|213 320 140 DUP; =V0; JS30P295;
4315/1: 205 271 027 J15;
4315/4: 167 363|205 051 030 SHC-7; J16≥Z;
4316/3: 300 010 306|200 336 246 V0; JS1P295;
4317/3: 205 271 026 J14;
[ == Page 72
4320/0: 170 202|100 200|042|164 041|161 341 =M8; M0M8; DUP; SHL+16; SHA-16;
4321/3: 033|223 150 376 NOT; J7=Z;
4322/1: 204 050 350 J3≥Z;
4322/4: 300 010 306|202 337 263 V0; JS12P295;
4323/4: 240 230 327 J1C9Z;
4324/1: 300 016 234|164 321|171 230|036|220 150 327 V31P295; SHL-24; C9; -; J1=Z;
4326/0: 304 000 002|215 320 005 SET2; JS18P295;
4327/0: 300 010 310|170 316|171 210|026|170 310 1; V2; =Q12; C8; ABS; =C12;
4330/4: 203 331 024 JS12;
4331/1: 131 310|203 331 024 MLWEQ12; JS12;
4332/0: 136 310 MRWDQ12;
4332/2: 110 200|170 343|300 007 153|042|033|225 151 031 M0M8N; =RM14; V0P262; DUP; NOT; J18=Z;
4334/2: 103 340|304 377 376 =M0M14Q; SET-2;
4335/1: 170 371|300 012 362|170 362|171 376|103 340 =RC15; V3P283; =M15; Q15; =M0M14Q;
4337/0: 041|103 340|154 316 ZERO; =M0M14Q; C12TOQ14;
4337/5: 171 362|170 344|171 356|111 200|304 000 001 M15; =I14; Q14; =M0M8N; SET1;
4341/4: 170 302|144 300|203 331 024 =M12; I12=1; JS12;
4342/5: 134 300 MFSKQ12;
4343/1: 100 200|170 376|142 360|171 362|304 377 376|222 030 347 2; M0M8; =Q15; NC15; M15; SET-2; J21=;
4345/3: 223 150 347 J20=Z;
4346/0: 304 000 002|167 365|111 360 SET2; SHC-6; =M0M15N;
4347/1: 041 ZERO;
4347/2: 052 21; ERASE;
4347/3: 171 376|101 200 20; Q15; =M0M8;
4350/1: 200 360 000 17; EXIT1;
4350/4: 304 000 002|170 303|110 200|170 256|171 250 3; SET2; =RM12; M0M8N; =Q10; C10;
4352/3: 026|170 310|203 331 024 ABS; =C12; JS12;
[ == Page 73
4353/3: 136 300|203 331 024 MBSKQ12; JS12;
4354/2: 120 310|224 350 372 MBTQ12; J6TR;
4355/1: 304 177 377|170 302 SET32767; =M12;
4356/0: 134 300|203 331 024 4; MFSKQ12; JS12;
4356/5: 120 304|200 350 356 MLBQ12; J4NTR;
4357/4: 304 000 001|170 302|203 331 024 SET1; =M12; JS12;
4361/0: 136 300 MBSKQ12;
4361/2: 110 200|170 356|304 377 375|172 342|300 006 376 5; M0M8N; =Q14; SET-3; =+M14; V1P261;
4363/2: 101 340|300 006 375|042|033|225 151 031 =M0M14; V0P261; DUP; NOT; J18=Z;
4365/0: 170 376|100 360|301 340 003|171 364|170 362 =Q15; M0M15; =E3M14; I15; =M15;
4366/5: 100 360|301 340 002|171 370|170 362|100 360 M0M15; =E2M14; C15; =M15; M0M15;
4370/4: 301 340 001|152 016|171 356|111 200 =E1M14; I0TOQ14; Q14; =M0M8N;
4372/1: 201 270 343 J2;
4372/4: 304 000 001|170 302|203 331 024 6; SET1; =M12; JS12;
4374/0: 134 300|304 002 016|170 302|203 331 024 MFSKQ12; SET526; =M12; JS12;
4375/4: 130 304|202 270 361 MWIPEQ12; J5;
4376/3: 110 200|170 256|171 250|026|170 310 7; M0M8N; =Q10; C10; ABS; =C12;
4400/0: 042|202 051 011 DUP; J9≥Z;
4400/4: 171 310|300 010 310|170 316|170 310|203 331 024 C12; V2; =Q12; =C12; JS12;
4402/4: 131 310|203 331 024 MLWEQ12; JS12;
4403/3: 136 310 MRWDQ12;
4403/5: 304 000 001|170 302|203 331 024 SET1; =M12; JS12;
4405/1: 134 300|041 MFSKQ12; ZERO;
4405/4: 110 200|170 376|170 362|171 376|111 200 8; M0M8N; =Q15; =M15; Q15; =M0M8N;
4407/2: 047|162 037|027|162 343 STR; SHAD+15; NEG; SHAD-15;
4410/2: 050|101 200|201 270 350 CONT; =M0M8; J17;
4411/2: 171 310|300 010 313|170 316|170 310|171 242|304 000 001 9; C12; V5; =Q12; =C12; M10; SET1;
4413/4: 170 243|154 312 =RM10; C12TOQ10;
[ == Page 74
4414/2: 203 331 024|140 240|136 240|203 331 024|120 250|225 351 032 10; JS12; M+I10; MBSKQ10; JS12; MBTQ10; J22TR;
4416/5: 203 331 024|134 240|141 240|203 331 024 JS12; MFSKQ10; M-I10; JS12;
4420/3: 124 300|203 331 024 MFRQ12; JS12;
4421/2: 120 304|224 351 023 MLBQ12; J11TR;
4422/1: 134 240|033|027|033|027|202 271 014 MFSKQ10; NOT; NEG; NOT; NEG; J10;
4423/4: 136 240|204 271 005 11; MBSKQ10; J8;
4424/3: 121 300|225 351 025 12; PARQ12; J13TR;
4425/2: 200 360 000 EXIT1;
4425/5: 304 000 246|210 260 265 13; SET166; JP299;
4426/5: 304 000 247|210 260 265 14; SET167; JP299;
4427/5: 304 000 250|210 260 265 15; SET168; JP299;
4430/5: 304 000 252|210 260 265 16; SET170; JP299;
4431/5: 304 000 251|210 260 265 18; SET169; JP299;
4432/5: 141 240|203 331 024 22; M-I10; JS12;
4433/4: 134 240|304 002 016|170 242|203 331 024 MFSKQ10; SET526; =M10; JS12;
4435/2: 130 244|052|041|204 271 005 MWIPEQ10; ERASE; ZERO; J8;
=== Start P270V-1; at address 2335/4437
P270; (PROCEDURE SKIP);
4437/0: 200 336 246 JS1P295;
4437/3: 202 271 077 J6;
4440/0: 170 342|042|204 151 041 =M14; DUP; J7≠Z;
4441/0: 052|200 271 071 ERASE; J1;
4441/4: 110 340|100 340|170 376|171 370|164 243 7; M0M14N; M0M14; =Q15; C15; SHL-47;
4443/2: 225 151 044 J2=Z;
4443/5: 304 000 270|210 260 265 SET184; JP299; (NEG. ALGOL DEV. NUMBER);
4444/5: 171 364|171 362|220 031 047 2; I15; M15; J16=;
4446/0: 304 000 271|210 260 265 19; SET185; JP299; (I AND M ≠);
[ == Page 75
4447/0: 033|027|042|225 151 053 16; NOT; NEG; DUP; J3=Z; (I AND M = -1);
4450/0: 042|033|027|223 151 051 DUP; NOT; NEG; J4=Z; (I AND M = -2);
4451/0: 200 271 046 J19; (I AND M ≠ -1 OR -2);
4451/3: 042|170 364|170 362|164 341 4; DUP; =I15; =M15; SHL-16;
4452/4: 164 041 SHL+16; (SET POS.NUMBER TO 0);
4453/0: 171 376|101 340|041 Q15; =M0M14; ZERO;
4453/5: 166 041|042|170 371|166 341|052 3; SHLD+16; DUP; =RC15; SHLD-16; ERASE;
4455/1: 065|042|164 243|041|002 REV; DUP; SHL-47; ZERO; =TR;
4456/1: 223 151 071 J5=Z; (FORWARD SKIP);
4456/4: 042|027|161 003|170 362 DUP; NEG; SHA+1; =M15;
4457/4: 120 370|203 351 061 MBTQ15; J10NTR;
4460/3: 304 000 272|210 260 265 9; SET186; JP299; (BACKWARD SKIP WHEN AT BTL);
4461/3: 121 360|202 351 063 10; PARQ15; J11NTR;
4462/2: 304 000 273|210 260 265 17; SET187; JP299; (PARITY FAILURE);
4463/2: 136 360 11; MBSKQ15;
4463/4: 120 370|223 351 060 MBTQ15; J9TR;
4464/3: 304 000 001|170 362|121 360|222 351 062 SET1; =M15; PARQ15; J17TR;
4466/1: 136 360 MBSKQ15;
4466/3: 120 370|223 351 060 MBTQ15; J9TR;
4467/2: 121 360|222 351 062 PARQ15; J17TR;
4470/1: 134 360 MFSKQ15;
4470/3: 056|111 340 15; +; =M0M14N; (UPDATE POS. NUMBER);
4471/0: 200 360 000 1; EXIT1;
5; (FORWARD SKIP);
4471/3: 304 000 001|170 362|042 SET1; =M15; DUP;
4472/3: 121 360|222 351 062 14; PARQ15; J17TR;
4473/2: 134 360 MFSKQ15;
4473/4: 120 364|223 351 060 MLBQ15; J9TR;
4474/3: 121 360|222 351 062 12; PARQ15; J17TR;
[ == Page 76
4475/2: 134 360 MFSKQ15;
4475/4: 027|033|042|203 151 072 NEG; NOT; DUP; J14≠Z;
4476/4: 052 ERASE;
4476/5: 203 271 070 J15;
4477/2: 304 000 274|210 260 265 6; SET188; JP299; (DEVICE NOT OPEN);
=== Start P271V-1; at address 2369/4501
P271; (REWIND);
4501/0: 200 336 246 JS1P295;
4501/3: 205 271 115 J6;
4502/0: 170 342|100 340|042|170 336|225 051 114 =M14; M0M14; DUP; =Q13; J5<Z;
4503/4: 171 324|033|222 151 110 I13; NOT; J1=Z;
4504/4: 110 340|161 301|026|170 311|203 331 112 2; M0M14N; SHA-32; ABS; =RC12; JS3;
4506/2: 136 310|203 331 112 MRWDQ12; JS3;
4507/1: 140 300|134 300|200 360 000 M+I12; MFSKQ12; EXIT1;
4510/2: 110 340|170 316|151 014|171 316|111 340 1; M0M14N; =Q12; M0TOQ12; Q12; =M0M14N;
4512/0: 204 271 104 J2;
4512/3: 121 300|225 351 113 3; PARQ12; J4TR;
4513/2: 200 360 000 EXIT1;
4513/5: 304 000 323|210 260 265 4; SET211; JP299;
4514/5: 304 000 324|210 260 265 5; SET212; JP299;
4515/5: 304 000 325|210 260 265 6; SET213; JP299;
=== Start P272V-1; at address 2383/4517
P272; (CHAR OUT); [ hand annotation crosses this routine out
4517/0: 202 337 263 JS11P295;
4517/3: 164 121|215 320 017 SHL+40; JS116P295;
4520/2: 214 320 064 JS15P295;
4520/5: 200 360 000 EXIT1;
=== Start P273V-1; at address 2386/4522
P273; (CHAR IN); [ hand annotation crosses this routine out
4522/0: 205 336 270 JS3P295;
[ == Page 77
4522/3: 201 336 323 JS5P295;
4523/0: 201 337 110 JS7P295;
4523/3: 200 360 000 EXIT1;
[ crossing out continues to end of this routine
=== Start P274V-1; at address 2388/4524
4524/0: 042|213 320 140 P274; DUP; JS30P295; (ETW);
4524/4: 203 271 132 J2;
4525/1: 167 363|203 051 133 SHC-7; J3≥Z;
4526/0: 200 336 246 JS1P295;
4526/3: 203 271 134 J4;
4527/0: 170 362|110 360|170 376|171 370|026 =M15; M0M15N; =Q15; C15; ABS;
4530/3: 170 370|122 360|041|200 351 132 =C15; METQ15; ZERO; J1NTR;
4531/5: 033 NOT;
4532/0: 200 360 000 1; EXIT1;
4532/3: 304 000 320|210 260 265 2; SET208; JP299;
4533/3: 304 000 321|210 260 265 3; SET209; JP299;
4534/3: 304 000 322|210 260 265 4; SET210; JP299;
=== Start P275V-1; at address 2398/4536
P275; (BTC);
4536/0: 042|213 320 140 DUP; JS30P295;
4536/4: 203 271 144 J2;
4537/1: 167 363|203 051 145 SHC-7; J3≥Z;
4540/0: 200 336 246 JS1P295;
4540/3: 203 271 146 J4;
4541/0: 170 362|110 360|170 376|171 370|026 =M15; M0M15N; =Q15; C15; ABS;
4542/3: 170 370|120 370|041|200 351 144 =C15; MBTQ15; ZERO; J1NTR;
4543/5: 033 NOT;
4544/0: 200 360 000 1; EXIT1;
[ == Page 78
4544/3: 304 000 315|210 260 265 2; SET205; JP299;
4545/3: 304 000 316|210 260 265 3; SET206; JP299;
4546/3: 304 000 317|210 260 265 4; SET207; JP299;
[ horizontal line drawn here
=== Start P276V-1; at address 2408/4550
P276; (CRLF);
4550/0: 202 337 263 JS12P295;
4550/3: 304 000 002|065|213 320 144 SET2; REV; JS150P295;
4551/4: 214 320 064 JS16P295;
4552/1: 200 360 000 EXIT1;
=== Start P277V-1; at address 2411/4553
P277; (TAB);
4553/0: 202 337 263 JS12P295;
4553/3: 304 000 001|065|213 320 144 SET1; REV; JS150P295;
4554/4: 214 320 064 JS16P295;
4555/1: 200 360 000 EXIT1;
=== Start P278V-1; at address 2414/4556
P278; (SPACES);
4556/0: 202 337 263 JS12P295;
4556/3: 041|065 ZERO; REV;
4556/5: 213 320 144 JS150P295;
4557/2: 214 320 064 JS16P295;
4557/5: 200 360 000 EXIT1;
=== Start P279V9; at address 2427/4573
P279V9; (WRITE BINARY); [ hand annotation says P278V9;
V-store at 04565 = 000 000 011 163 011 164 V4=Q0/AV2/AV3;
[ == Page 79
V-store at 04566 = 000 000 011 167 011 171 V5=Q0/AV6/AV8;
4573/0: 200 336 246 JS1P295;
4573/3: 203 271 224 J3;
4574/0: 041|301 011 172|170 242|301 011 161|301 011 162 ZERO; =V9; =M10; =V0; =V1;
4576/0: 100 240|170 276|110 240|170 316|171 264 M0M10; =Q11; M0M10N; =Q12; I11;
4577/4: 033|171 262|033|011|042 NOT; M11; NOT; OR; DUP;
4600/4: 203 151 225 J2≠Z;
4601/1: 052 ERASE;
4601/2: 300 011 162|170 343|171 256|171 276|171 316 1; V1; =RM14; Q10; Q11; Q12;
4603/1: 200 333 021|301 011 163|170 316|170 276|170 256 JS2P283; =V2; =Q12; =Q11; =Q10;
4605/1: 171 270|201 051 231 C11; J4≥Z;
4606/0: 300 011 161|170 356|171 350|304 023 040|056 V0; =Q14; C14; SETAY0; +;
4607/5: 170 304|171 344|170 362|310 363 040|164 101 =I12; I14; =M15; Y0M15; SHL+32;
4611/4: 164 301|042|301 011 164 SHL-32; DUP; =V3;
4612/4: 300 011 165|170 376|154 317|122 360|221 351 234 8; V4; =Q15; C12TOQ15; METQ15; J7TR;
4614/4: 205 331 305 JS17;
4615/1: 130 360|042|027|033|170 302 MWQ15; DUP; NEG; NOT; =M12;
4616/2: 140 300|122 360|225 351 234 M+I12; METQ15; J19TR;
4617/3: 304 013 270|036|042|204 051 265 SET3000; -; DUP; J11≥Z;
4620/5: 052 ERASE;
4621/0: 205 331 305 13; JS17;
4621/3: 130 310|110 240|170 376|304 000 002|172 362 MLWQ12; M0M10N; =Q15; SET2; =+M15;
4623/2: 171 376|111 240|200 360 000 Q15; =M0M10N; EXIT1;
4624/3: 304 000 253|210 260 265 3; SET171; JP299;
4625/3: 027|033|201 151 232 2; NEG; NOT; J5≠Z;
4626/2: 145 260|141 260|171 276|101 240|151 014|171 316|111 240|202 271 201
I11=-1; M-I11; Q11; =M0M10; M0TOQ12; Q12; =M0M10N; J1;
4631/1: 304 000 254|210 260 265 4; SET172; JP299;
4632/1: 304 000 255|210 260 265 5; SET173; JP299;
4633/1: 304 000 256|210 260 265 6; SET174; JP299;
[ == Page 80
4634/1: 052|204 271 236 7; ERASE; J15;
4634/5: 052 19; ERASE;
4635/0: 304 000 001 9; SET1;
4635/3: 170 362|205 331 305 10; =M15; JS17;
4636/2: 136 360 MBSKQ15;
4636/4: 205 331 305 15; JS17;
4637/1: 171 370|300 010 310|170 376|170 370|130 370 C15; V2P269; =Q15; =C15; MLWQ15;
4641/0: 110 240|170 356|171 342|304 000 003|056 M0M10N; =Q14; M14; SET3; +;
4642/4: 170 362|205 331 305 =M15; JS17;
4643/3: 136 360|205 331 305 MBSKQ15; JS17;
4644/2: 120 370|205 351 304 MBTQ15; J16NTR;
4645/1: 171 370|300 011 166|170 376|170 370|124 360 C15; V5; =Q15; =C15; MFRQ15;
4647/0: 300 011 171|300 011 170|171 370|304 000 006|200 220 000 V8; V7; C15; SET6; OUT;
4651/2: 041|304 000 004|200 220 000|042|170 370|154 374 ZERO; SET4; OUT; DUP; =C15; C15TOQ12;
4653/2: 110 240|170 356|027|170 350|151 016|171 356 M0M10N; =Q14; NEG; =C14; M0TOQ14; Q14;
4655/1: 111 240|205 331 305|124 360|301 011 170|033 =M0M10N; JS17; MFRQ15; =V7; NOT;
4657/0: 027|301 011 171|304 000 001|170 362|205 331 305 NEG; =V8; SET1; =M15; JS17;
4661/0: 136 360|304 011 171|170 362|205 331 305 MBSKQ15; SETAV8; =M15; JS17;
4662/4: 130 360|304 002 016|170 362|205 331 305 MWQ15; SET526; =M15; JS17;
4664/2: 130 364|300 011 164|204 271 212 MWIPEQ15; V3; J8;
4665/4: 304 013 267|170 302|140 300|205 331 305 11; SET2999; =M12; M+I12; JS17;
4667/2: 130 300|122 300|221 351 302 MWQ12; METQ12; J18TR;
4670/3: 304 013 270|036|042|300 011 172|033 SET3000; -; DUP; V9; NOT;
4672/0: 027|301 011 172|204 051 265 NEG; =V9; J11≥Z;
4673/1: 205 331 305|304 013 270|056|170 302|140 300 JS17; SET3000; +; =M12; M+I12;
4675/0: 130 300|122 300|222 351 302 MWQ12; METQ12; J14TR;
4676/1: 300 011 172|033|027|170 302|205 331 305 V9; NOT; NEG; =M12; JS17;
4677/5: 136 300|300 011 164|027|033|170 302 MBSKQ12; V3; NEG; NOT; =M12;
4701/2: 140 300|200 271 221 M+I12; J13;
[ == Page 81
[ page 81
4702/1: 052 18; ERASE;
4702/2: 300 011 172|033|027|170 302|205 331 305 14; V9; NOT; NEG; =M12; JS17;
4704/0: 136 300|200 271 235 MBSKQ12; J9;
4704/5: 304 000 257|210 260 265 16; SET175; JP299;
4705/5: 121 300|221 351 233 17; PARQ12; J6TR;
4706/4: 200 360 000 EXIT1;
[Annotation: P279]
=== Start P280V13; at address 2518/4726
V-store at 04714 = 000 000 011 315 011 316 P280V13; V4=Q0/AV5/AV6; (READ BINARY);
4726/0: 200 336 246 JS1P295;
4726/3: 205 272 016 J8;
4727/0: 170 242|301 011 310|301 011 311|100 240|170 276 =M10; =V0; =V1; M0M10; =Q11;
4731/0: 041|301 011 320|110 240|170 316 ZERO; =V8; M0M10N; =Q12;
4732/2: 171 270|225 052 020 C11; J10<Z;
4733/1: 171 264|033|171 262|033|011 I11; NOT; M11; NOT; OR;
4734/2: 042|222 151 340 DUP; J1=Z;
4735/0: 027|033|205 152 017 NEG; NOT; J9≠Z;
4735/5: 145 260|141 260|171 276|101 240|151 014|171 316|111 240|041 I11=-1; M-I11; Q11; =M0M10; M0TOQ12; Q12; =M0M10N; ZERO;
4740/2: 052|300 011 311|170 343|171 256|171 276 1; ERASE; V1; =RM14; Q10; Q11;
4742/0: 171 316|200 333 021|301 011 312|170 316|170 276 Q12; JS2P283; =V2; =Q12; =Q11;
4744/0: 170 256|300 011 310|170 356|171 350|304 023 040 =Q10; V0; =Q14; C14; SETAY0;
4746/0: 056|170 304|171 344|170 362|310 363 040 +; =I12; I14; =M15; Y0M15;
4747/4: 164 101|164 301|042|301 011 313|027 SHL+32; SHL-32; DUP; =V3; NEG;
4751/1: 033|170 302|140 300|300 011 314|170 376 NOT; =M12; M+I12; V4; =Q15;
4752/5: 154 317|171 370|170 351|140 340|205 271 356 C12TOQ15; C15; =RC14; M+I14; J3;
4754/4: 205 332 022 2; JS16;
4755/1: 134 340|110 240|304 000 002|056|111 240 MFSKQ14; M0M10N; SET2; +; =M0M10N;
4756/5: 205 332 022 3; JS16;
4757/2: 124 360|120 364|221 351 370 MFRQ15; MLBQ15; J5TR;
[ == Page 82
4760/3: 300 011 312|300 011 315|015|223 152 011 V2; V5; NEV; J6=Z;
4762/1: 300 011 320|204 151 354 V8; J2≠Z;
4763/1: 205 332 022 4; JS16;
4763/4: 110 240|042|164 341|164 041|111 240 M0M10N; DUP; SHL-16; SHL+16; =M0M10N;
4765/1: 170 342|140 340|136 340|041|033 =M14; M+I14; MBSKQ14; ZERO; NOT;
4766/3: 301 011 320|151 016|140 340|205 271 356 =V8; M0TOQ14; M+I14; J3;
4770/1: 300 011 320|221 151 363 5; V8; J4=Z;
4771/1: 205 332 022|110 240|170 342|304 000 003|172 342 JS16; M0M10N; =M14; SET3; =+M14;
4773/1: 136 340|120 310|205 352 021 MBSKQ14; MBTQ12; J11NTR;
4774/2: 304 011 317|170 362|205 332 022 SETAV7; =M15; JS16;
4775/4: 124 360|300 011 316 MFRQ15; V6;
4776/3: 300 011 325|300 011 312|301 011 323|041|301 011 321|304 000 010|200 220 000
V13; V2; =V11; ZERO; =V9; SET8; OUT;
5001/4: 304 000 004|200 220 000|170 310|171 370|304 000 006|200 220 000|154 317|110 240
SET4; OUT; =C12; C15; SET6; OUT; C12TOQ15; M0M10N;
5005/0: 170 356|154 316|151 016|171 356|111 240 =Q14; C12TOQ14; M0TOQ14; Q14; =M0M10N;
5006/4: 144 340|140 340|205 332 022|134 340|304 011 316 I14=+1; M+I14; JS16; MFSKQ14; SETAV6;
5010/4: 170 362|205 271 356 =M15; J3;
5011/3: 300 011 313|300 011 316|015|205 152 015 6; V3; V6; NEV; J7≠Z;
5013/1: 205 332 022|124 300|110 240|304 000 002|056 JS16; MFRQ12; M0M10N; SET2; +;
5015/0: 111 240|200 360 000 =M0M10N; EXIT1;
5015/5: 304 000 263|210 260 265 7; SET179; JP299;
5016/5: 304 000 262|210 260 265 8; SET178; JP299;
5017/5: 304 000 264|210 260 265 9; SET180; JP299;
5020/5: 304 000 265|210 260 265 10; SET181; JP299;
5021/5: 304 000 266|210 260 265 11; SET182; JP299;
5022/5: 121 300|221 352 024 16; PARQ12; J12TR;
5023/4: 200 360 000 EXIT1;
5024/1: 304 000 267|210 260 265 12; SET183; JP299;
V-store at 04725 = 000 000 011 321 011 324 V13=Q0/AV9/AV12;
V-store at 04722 = 036 034 262 207 220 036 V10=B0741626241710036;
[ == Page 83
V-store at 04724 = 170 015 341 273 111 144 V12=B3600674156644544;
=== Start P281V7; at address 2590/5036
V-store at 05034 = 000 000 077 050 252 111 P281V7; V6=B0000007712125111; (WRITE ARRAY);
5036/0: 301 012 032|301 012 031|301 012 030|301 012 026|301 012 027 =V4; =V3; =V2; =V0; =V1;
5040/3: 304 000 011|300 012 031|164 371|164 011|011 SET9; V3; SHL-4; SHL+4; OR;
5042/2: 301 012 031|300 012 027|170 343|300 012 032|202 337 263 =V3; V1; =RM14; V4; JS12P295;
5044/4: 154 015|203 333 047 C0TOQ13; JS8P283;
5045/3: 304 000 215|203 032 143 SETB215; J15≠;
5046/3: 304 000 002|215 320 005 SET2; JS18P295;
5047/3: 210 320 014 JS14P295;
5050/0: 203 333 047 JS8P283;
5050/3: 042|304 000 012|036|202 052 126 DUP; SET10; -; J11≥Z;
5051/5: 203 333 047 JS8P283;
5052/2: 042|304 000 012|036|204 052 125 DUP; SET10; -; J10≥Z;
5053/4: 203 333 047 JS8P283;
5054/1: 304 000 235|200 032 125 SETB235; J9≠;
5055/1: 012|065|042|161 005|056 PERM; REV; DUP; SHA+2; +;
5056/1: 161 003|056|201 336 267 SHA+1; +; JS4P295;
5057/1: 042 DUP;
5057/2: 052|204 336 344 1; ERASE; JS6P295;
5060/0: 202 272 057 J1;
5060/3: 304 000 215|202 032 057 SETB215; J1≠;
5061/3: 052 2; ERASE;
5061/4: 204 336 344 3; JS6P295;
5062/1: 203 272 061 J2;
5062/4: 304 000 235|224 032 064 SETB235; J4=;
5063/4: 210 320 014 JS14P295;
5064/1: 204 272 061 J3;
[ == Page 84
5064/4: 201 337 110 4; JS8P295;
5065/1: 052 ERASE;
5065/2: 210 320 014 5; JS14P295;
5065/5: 304 000 002|215 320 005 SET2; JS18P295;
5066/5: 214 320 064 JS16P295;
5067/2: 304 377 377|304 000 057|024|300 012 034|300 012 032 SET-1; SET47; FLOAT; V6; V4;
5071/3: 200 334 153 JSP291;
5072/0: 300 012 030|042|304 000 057|024|300 012 034 V2; DUP; SET47; FLOAT; V6;
5073/5: 300 012 032|200 334 153 V4; JSP291;
5074/5: 300 012 026|170 356|304 000 001|301 012 027|171 344 V0; =Q14; SET1; =V1; I14;
5077/0: 170 363|170 370|312 363 040|164 101|164 301 =RM15; =C15; Y0M15Q; SHL+32; SHL-32;
5100/5: 171 350|304 023 040|056|170 343|170 350 C14; SETAY0; +; =RM14; =C14;
5102/3: 171 356|301 012 035|243 372 145 Q14; =V7; J17C15Z;
5103/5: 312 363 040|164 101|164 301|042|301 012 026 Y0M15Q; SHL+32; SHL-32; DUP; =V0;
5105/4: 042|301 012 027|200 272 112 DUP; =V1; J7;
5106/5: 312 363 040|164 101|164 301|042|300 012 027 6; Y0M15Q; SHL+32; SHL-32; DUP; V1;
5110/4: 066|301 012 027|044|203 152 144 CAB; =V1; ÷I; J16≠Z;
5112/0: 304 000 057|024|300 012 034|300 012 032|171 376 7; SET47; FLOAT; V6; V4; Q15;
5114/0: 301 012 030|200 334 153 =V2; JSP291;
5115/0: 300 012 030|170 376|265 372 106 V2; =Q15; J6C15NZ;
5116/2: 300 012 035|170 356|171 350|300 012 027|044 8; V7; =Q14; C14; V1; ÷I;
5120/1: 203 152 144 J16≠Z;
5120/4: 304 000 057|024|300 012 034|304 000 003|056 SET47; FLOAT; V6; SET3; +;
5122/3: 300 012 032|200 334 153 V4; JSP291;
5123/3: 300 012 026|301 012 027|201 272 137 V0; =V1; J14;
5125/0: 066|210 320 014 9; CAB; JS14P295;
5125/4: 065|210 320 014 10; REV; JS14P295;
5126/2: 304 000 235|222 032 065 11; SETB235; J5=;
5127/2: 210 320 014 JS14P295;
[ == Page 85
5127/5: 203 333 047 JS8P283;
5130/2: 202 272 126 J11;
5130/5: 102 360|171 376|301 012 035|300 012 031|041 12; M0M15Q; Q15; =V7; V3; ZERO;
5132/4: 300 012 027|027|033|042|203 152 135 V1; NEG; NOT; DUP; J13≠Z;
5134/1: 052|033|027|033|027 ERASE; NOT; NEG; NOT; NEG;
5135/0: 300 012 026 V0;
5135/3: 301 012 027|056|300 012 032|200 334 153 13; =V1; +; V4; JSP291;
5137/1: 300 012 035|170 376|265 372 130 14; V7; =Q15; J12C15NZ;
5140/3: 300 012 032|202 337 263 V4; JS11P295;
5141/3: 304 000 075|200 337 304 SETB75; JS13P295;
5142/3: 214 320 064 JS16P295;
5143/0: 200 360 000 EXIT1;
5143/3: 304 000 313|210 260 265 15; SET203; JP299;
5144/3: 304 000 314|210 260 265 16; SET204; JP299;
5145/3: 304 000 001|301 012 027|202 272 116 17; SET1; =V1; J8;
=== Start P282V7; at address 2671/5157
P282V7; (READ ARRAY);
5157/0: 301 012 154|301 012 147|042|301 012 150|170 343 =V5; =V0; DUP; =V1; =RM14;
5161/0: 200 333 021|042|301 012 151 JS2P283; DUP; =V2;
5162/1: 300 012 154|201 336 267 1; V5; JS4P295;
5163/1: 203 337 260 JS19P295;
5163/4: 041|301 016 220|304 000 002|301 016 224|300 012 360 ZERO; =V19P295; SET2; =V23P295; V1P283;
5165/5: 301 016 225|041|203 333 035 =V24P295; ZERO; JS24P283;
5167/0: 201 032 162 J1≠;
5167/3: 052|300 012 154|200 332 334 ERASE; V5; JS10;
5170/4: 200 272 342 J26;
5171/1: 042|033|220 152 173 DUP; NOT; J2=Z;
5172/0: 042|027|033|200 152 343 DUP; NEG; NOT; J27≠Z;
[ == Page 86
5173/0: 027|301 012 153|300 012 154|200 332 334 2; NEG; =V4; V5; JS10;
5174/4: 200 272 342|042 J26; DUP;
5175/2: 304 000 037|036|220 112 344 SET31; -; J28>Z;
5176/3: 300 012 153|170 325|170 330|171 324|223 112 201 V4; =RI13; =C13; I13; J3>Z;
5200/3: 171 330|170 322|140 320 C13; =M13; M+I13;
5201/3: 171 336|301 012 153|300 012 147|170 356|171 344 3; Q13; =V4; V0; =Q14; I14;
5203/3: 170 362|310 363 040|164 101|164 301|042 =M15; Y0M15; SHL+32; SHL-32; DUP;
5205/1: 301 012 152|171 350|304 023 040|056|170 343 =V3; C14; SETAY0; +; =RM14;
5207/0: 170 350|171 356|301 012 156|171 330|170 371 =C14; Q14; =V7; C13; =RC15;
5210/5: 304 000 001 SET1;
5211/2: 170 345|171 356|311 362 206|171 376|301 012 155 4; =RI14; Q14; =W10M15; Q15; =V6;
5213/2: 300 012 154|200 332 334 V5; JS10;
5214/2: 200 272 342 J26;
5214/5: 300 012 155|170 376|310 362 206|170 356|042 V6; =Q15; W10M15; =Q14; DUP;
5216/4: 170 350|042|170 342|171 344|171 356 =C14; DUP; =M14; I14; Q14;
5220/1: 313 362 206|034|050|042|300 012 152 =W10M15Q; ×D; CONT; DUP; V3;
5221/4: 036|220 112 345 -; J29>Z;
5222/2: 262 372 211 J4C15NZ;
5222/5: 300 012 152|036|200 152 345 V3; -; J29≠Z;
5224/0: 300 012 154|200 336 056 5; V5; JSP294;
5225/0: 300 012 154|201 336 267 V5; JS4P295;
5226/0: 204 336 344 JS6P295;
5226/3: 200 272 346 J30;
5227/0: 201 337 110 JS8P295;
5227/3: 304 000 045|222 032 260 SETB45; J13=;
5230/3: 304 000 077|222 032 260 SETB77; J13=;
5231/3: 304 000 036|224 032 265 SETB36; J16=;
5232/3: 304 000 070|224 032 265 SETB70; J16=;
5233/3: 052 ERASE;
[ == Page 87
5233/4: 203 332 312 JS20;
5234/1: 200 272 224 J5;
5234/4: 300 012 154|201 336 267|041 6; V5; JS4P295; ZERO;
5235/5: 052|204 336 344 7; ERASE; JS6P295;
5236/3: 200 272 354 J37;
5237/0: 304 000 321|222 032 242 SETB321; J31=;
5240/0: 304 000 301|222 032 242 SETB301; J31=;
5241/0: 042|304 000 013|036|225 112 235 DUP; SETB13; -; J7>Z;
5242/2: 205 337 135 31; JS10P295;
5242/5: 201 337 110 JS8P295;
5243/2: 300 012 154|200 336 056 V5; JSP294;
5244/2: 300 012 154|201 336 267 V5; JS4P295;
5245/2: 204 336 344 JS6P295;
5245/5: 200 272 346 J30;
5246/2: 304 000 022|222 032 250 SETB22; J8=;
5247/2: 304 000 054|203 032 253 SETB54; J9≠;
5250/2: 052|300 012 156|170 376|300 012 152|170 370 8; ERASE; V7; =Q15; V3; =C15;
5252/1: 157 015|203 332 302 Q0TOQ13; JS18;
5253/0: 204 272 234 J6;
5253/3: 304 000 036|223 032 255 9; SETB36; J12=;
5254/3: 304 000 070|200 032 347 SETB70; J32≠;
5255/3: 052|300 012 153|170 356|310 342 206|170 376 12; ERASE; V4; =Q14; W10M14; =Q15;
5257/2: 205 332 271|204 272 234 JS17; J6;
5260/2: 052|203 332 334 13; ERASE; JS11;
5261/0: 200 272 350 J33;
5261/3: 041|203 332 312 14; ZERO; JS20;
5262/1: 200 272 264 J15;
5262/4: 027|033|200 152 351 NEG; NOT; J34≠Z;
[ == Page 88
5263/3: 204 272 234 J6;
5264/0: 027|033|042|203 152 261 15; NEG; NOT; DUP; J14≠Z;
5265/0: 052|200 272 224 ERASE; J5;
5265/4: 052|300 012 153|170 356|310 342 206|170 376 16; ERASE; V4; =Q14; W10M14; =Q15;
5267/3: 171 370|171 362|036|200 152 352|205 332 271 C15; M15; -; J35≠Z; JS17;
5271/2: 200 272 224 J5;
5271/5: 171 362|171 364|300 012 153|170 356|202 332 330 17; M15; I15; V4; =Q14; JS22;
5273/5: 300 012 153|170 356|312 342 206|170 376|171 364|171 362|034|050
V4; =Q14; W10M14Q; =Q15; I15; M15; ×D; CONT;
5276/3: 036|310 342 206|170 376|310 002 205|056|171 364|036|170 363|170 364
-; W10M14; =Q15; W9; +; I15; -; =RM15; =I15;
5301/2: 170 370|300 012 156|170 336 =C15; V7; =Q13;
5302/3: 171 370|041|042 18; C15; ZERO; DUP;
5303/1: 102 375|042|030|066|072 19; M13M15Q; DUP; ABSF; CAB; MAXF;
5304/1: 001|065|052|012|074 VR; REV; ERASE; PERM; +F;
5305/0: 065|261 372 303 REV; J19C15NZ;
5305/4: 066|042|027|033|034 CAB; DUP; NEG; NOT; ×D;
5306/3: 050|161 377|304 000 057|024|004 CONT; SHA-1; SET47; FLOAT; ×F;
5307/5: 304 002 304|167 351|004|012|075 SETB1304; SHC-12; ×F; PERM; -F;
5311/1: 030|075|220 052 353 ABSF; -F; J36<Z;
5312/0: 200 360 000 EXIT1;
5312/3: 300 012 153|170 356|041|311 002 205|202 332 330 20; V4; =Q14; ZERO; =W9; JS22;
5314/3: 170 362|300 012 156|170 336|101 337|143 320|171 336 =M15; V7; =Q13; =M15M13; DC13; Q13;
5316/4: 301 012 156|300 012 153|170 356 =V7; V4; =Q14;
5320/0: 310 342 206|170 376|143 360|171 376|311 342 206 21; W10M14; =Q15; DC15; Q15; =W10M14;
5322/0: 263 372 341 J25C15NZ;
5322/3: 310 342 206|170 376|171 362|042|171 364|034|050|310 002 205|056|311 002 205
W10M14; =Q15; M15; DUP; I15; ×D; CONT; W9; +; =W9;
5325/4: 170 370|171 376 =C15; Q15;
5326/2: 313 342 206|260 352 320 =W10M14Q; J21C14NZ;
5327/2: 260 332 345 J29C13NZ;
[ == Page 89
5327/5: 202 360 001 EXIT2;
5330/2: 041 22; ZERO;
5330/3: 312 342 206|170 376|171 362|171 370|036 23; W10M14Q; =Q15; M15; C15; -;
5332/1: 171 364|034|050|056|263 352 330 I15; ×D; CONT; +; J23C14NZ;
5333/3: 200 360 000 EXIT1;
5334/0: 200 336 056 10; JSP294;
5334/3: 045|042|223 052 340 11; FIX; DUP; J24<Z;
5335/2: 042|304 000 047|036|223 112 341 DUP; SET39; -; J25>Z;
5336/4: 304 000 057|036|170 370|161 360|202 360 001 SET47; -; =C15; SHAC15; EXIT2;
5340/3: 052|052|041|202 360 001 24; ERASE; ERASE; ZERO; EXIT2;
5341/3: 200 360 000 25; EXIT1;
5342/0: 304 000 301|210 260 265 26; SET193; JP299;
5343/0: 304 000 302|210 260 265 27; SET194; JP299;
5344/0: 304 000 303|210 260 265 28; SET195; JP299;
5345/0: 304 000 304|210 260 265 29; SET196; JP299;
5346/0: 304 000 305|210 260 265 30; SET197; JP299;
5347/0: 304 000 306|210 260 265 32; SET198; JP299;
5350/0: 304 000 307|210 260 265 33; SET199; JP299;
5351/0: 304 000 310|210 260 265 34; SET200; JP299;
5352/0: 304 000 311|210 260 265 35; SET201; JP299;
5353/0: 304 000 312|210 260 265 36; SET202; JP299;
5354/0: 304 377 374|220 032 346 37; SET-4; J30=;
5355/0: 052|201 337 110 ERASE; JS8P295;
5355/4: 200 360 000 EXIT1;
[annotation: P280V7
=== Start P283V7; at address 2807/5367
P283V7; (FIND);
V-store at 05360 = 000 002 000 001 012 365 V1=Q2/1/AV6;
V-store at 05361 = 000 000 012 364 012 366 V2=Q0/AV5/AV7;
[ == Page 90
V-store at 05362 = 000 000 000 000 007 155 V3=Q0/0/AV2P262;
V-store at 05363 = 000 000 000 000 000 000 V4=0;
V-store at 05364 = 002 231 045 273 107 200 V5=B0051444556643600;
5367/0: 065|041|301 012 363 REV; ZERO; =V4;
5367/5: 170 343|042|170 210|200 336 246 1; =RM14; DUP; =C8; JS1P295;
5371/1: 201 272 372 J32;
5371/4: 200 273 114 J21;
5372/1: 170 316|304 377 376|042|170 202|170 204 32; =Q12; SET-2; DUP; =M8; =I8;
5373/5: 171 216|101 300|200 333 021|300 012 363|200 153 116 Q8; =M0M12; JS2; V4; J23≠Z;
5376/0: 304 000 004|200 220 000 SET4; OUT;
5377/0: 170 331|140 320|134 320|304 000 014|170 350 =RC13; M+I13; MFSKQ13; SET12; =C14;
5400/5: 171 330|205 336 022|170 330|300 007 153|042|033|220 153 117 C13; JS2P293; =C13; V0P262; DUP; NOT; J33=Z;
5403/2: 103 360 =M0M15Q;
5403/4: 304 377 376|170 351|300 012 362|170 342|171 356 SET-2; =RC14; V3; =M14; Q14;
5405/4: 103 360|041|103 360|171 342|170 364 =M0M15Q; ZERO; =M0M15Q; M14; =I15;
5407/1: 154 337|171 376|111 300|171 330|171 210 C13TOQ15; Q15; =M0M12N; C13; C8;
5410/5: 300 015 312|202 336 002|300 012 361|304 000 075|167 365|301 012 366
V3P293; JS12P293; V2; SETB75; SHC-6; =V7;
5413/4: 170 376|121 360|130 360|300 016 200|167 041 =Q15; PARQ15; TWQ15; V3P295; SHC+16;
5415/3: 033|027|167 341|301 016 200|300 012 365|203 153 020 NOT; NEG; SHC-16; =V3P295; V6; J31≠Z;
5417/4: 171 210|200 330 314 C8; JSP269;
5420/3: 200 360 000 31; EXIT1;
5421/0: 203 337 260 2; JS19P295;
5421/3: 041|301 016 220|304 000 002|301 016 224|300 012 360 ZERO; =V19P295; SET2; =V23P295; V1;
5423/4: 301 016 225|154 015|203 333 047 =V24P295; C0TOQ13; JS8;
5425/0: 304 000 215|015|200 153 115 SETB215; NEV; J22≠Z;
5426/1: 203 333 047 JS8;
5426/4: 042|304 000 012|036|204 053 105 DUP; SET10; -; J17≥Z;
5430/0: 203 333 047 JS8;
5430/3: 042|304 000 012|036|204 053 107 DUP; SET10; -; J18≥Z;
[ == Page 91
5431/5: 203 333 047 JS8;
5432/2: 304 000 235|205 033 111 SETB235; J19≠;
5433/2: 052|065|042|161 005|056 ERASE; REV; DUP; SHA+2; +;
5434/2: 161 003|056|201 336 267|041 SHA+1; +; JS4P295; ZERO;
5435/3: 052 24; ERASE;
5435/4: 204 336 344 3; JS6P295;
5436/1: 203 273 035 J24;
5436/4: 304 000 215|015|204 153 035|041 SETB215; NEV; J3≠Z; ZERO;
5440/0: 052 25; ERASE;
5440/1: 204 336 344 4; JS6P295;
5440/4: 200 273 040 J25;
5441/1: 201 333 057 JS10;
5441/4: 201 273 040 J4;
5442/1: 205 273 044 J6;
5442/4: 204 336 344 5; JS6P295;
5443/1: 017|017|017 DUMMY; DUMMY; DUMMY;
5443/4: 304 000 235|015|204 153 042 SETB235; NEV; J5≠Z;
5444/5: 304 000 235|205 337 135 6; SETB235; JS10P295;
5445/5: 201 337 110 JS8P295;
5446/2: 300 012 365|200 360 000 7; V6; EXIT1;
5447/2: 052 20; ERASE;
5447/3: 264 333 051 8; J9C13NZ;
5450/0: 102 340|301 012 357|304 000 006|170 330 M0M14Q; =V0; SET6; =C13;
5451/4: 300 012 357|041|166 021|065|301 012 357 9; V0; ZERO; SHLD+8; REV; =V0;
5453/2: 143 320|304 000 236|222 033 047 DC13; SETB236; J20=;
5454/4: 304 000 240|222 033 047 SETB240; J20=;
5455/4: 304 000 256|222 033 047 SETB256; J20=;
[ == Page 92
5456/4: 200 360 000 EXIT1;
5457/1: 042|304 000 045|036|220 113 065 10; DUP; SETB45; -; J14>Z;
5460/3: 300 016 220|304 000 010|036|203 053 063 11; V19P295; SET8; -; J13≥Z;
5462/1: 210 320 014 JS14P295;
5462/4: 041 ZERO;
5462/5: 052|200 360 000 12; ERASE; EXIT1;
5463/3: 052|041|033|301 012 363 13; ERASE; ZERO; NOT; =V4;
5464/3: 200 360 001 EXIT 3;
5465/0: 042|304 000 077|036|223 113 067 14; DUP; SETB77; -; J15>Z;
5466/2: 304 000 032|036|203 273 060 SET26; -; J11;
5467/3: 304 000 216|204 033 071 15; SETB216; J26≠;
5470/3: 304 000 020|011|203 273 060 SETB20; OR; J11;
5471/4: 304 000 236|225 033 062 26; SETB236; J12=;
5472/4: 304 000 240|225 033 062 SETB240; J12=;
5473/4: 304 000 256|225 033 062 SETB256; J12=;
5474/4: 304 000 235|225 033 100 SETB235; J29=;
5475/4: 300 016 220|304 000 010|036|200 153 116 V19P295; SET8; -; J23≠Z;
5477/2: 041|033|301 012 363 30; ZERO; NOT; =V4;
5500/1: 052|202 360 001 28; ERASE; EXIT2;
5500/5: 300 016 220|304 000 010|036|221 153 100 29; V19P295; SET8; -; J28=Z;
5502/3: 041|300 016 224 ZERO; V23P295;
5503/1: 162 015|201 213 103 27; SHAD+6; J27NV;
5504/0: 301 012 365|052|202 273 077 =V6; ERASE; J30;
5505/1: 203 333 047 16; JS8;
5505/4: 201 333 057 17; JS10;
5506/1: 201 273 105 J16;
5506/4: 202 273 046 J7;
[ == Page 93
5507/1: 202 273 046 J7;
5507/4: 065|201 333 057 18; REV; JS10;
5510/2: 204 273 105 J17;
5510/5: 202 273 046 J7;
5511/2: 202 273 046 J7;
5511/5: 066|201 333 057 19; CAB; JS10;
5512/3: 204 273 107 J18;
5513/0: 202 273 046 J7;
5513/3: 202 273 046 J7;
5514/0: 304 000 242|210 260 265 21; SET162; JP299;
5515/0: 304 000 243|210 260 265 22; SET163; JP299;
5516/0: 304 000 244|210 260 265 23; SET164; JP299;
5517/0: 304 000 245|210 260 265 33; SET165; JP299;
=== Start P285V-1; at address 2896/5520
P285; (out basic symbol);
5520/0: 202 337 263 JS12P295;
5520/3: 210 320 014 JS14P295;
5521/0: 214 320 064 JS16P295;
5521/3: 200 360 000 EXIT1;
=== Start P286V-1; at address 2898/5522
P286; (in basic symbol);
5522/0: 201 336 267|201 273 123 JS4P295; J1;
5523/0: 052 2; ERASE;
5523/1: 204 336 344 1; JS6P295;
5523/4: 200 273 123 J2;
5524/1: 201 337 110 JS8P295;
5524/4: 200 360 000 EXIT1;
[ == Page 94
=== Start P287V-1; at address 2902/5526
P287; (COPY TEXT);
5526/0: 201 336 267 JS4P295;
5526/3: 202 337 263 JS12P295;
5527/0: 170 362|100 360|041|166 021 =M15; M0M15; ZERO; SHLD+8;
5530/1: 304 000 215|015|200 153 151 SETB215; NEV; J5≠Z;
5531/2: 041|166 021|065|164 261|304 000 235 ZERO; SHLD+8; REV; SHL-40; SETB235;
5532/5: 224 033 135|065|042 J2=; REV; DUP;
5533/4: 052 6; ERASE;
5533/5: 204 336 344 1; JS6P295;
5534/2: 204 273 133 J6;
5534/5: 205 033 133 J1≠;
5535/2: 042 DUP;
5535/3: 052 26; ERASE;
5535/4: 052 2; ERASE;
5535/5: 204 336 344 3; JS6P295;
5536/2: 204 273 135 J2;
5536/5: 043|015|225 153 146 DUPD; NEV; J4=Z;
5537/4: 304 000 215|220 033 152 SETB215; J7=;
5540/4: 304 000 216|205 033 142 SETB216; J27≠;
5541/4: 304 000 020|011 SETB20; OR;
5542/2: 205 273 145 J25;
5542/5: 304 000 236|224 033 135 27; SETB236; J2=;
5543/5: 304 000 240|224 033 135 SETB240; J2=;
5544/5: 304 000 256|224 033 135 SETB256; J2=;
5545/5: 210 320 014 25; JS14P295;
5546/2: 205 273 135 J3;
5546/5: 205 337 135 4; JS10P295;
[ == Page 95
5547/2: 052|201 337 110 ERASE; JS8P295;
5550/0: 214 320 064 JS16P295;
5550/3: 200 360 000 EXIT1;
5551/0: 304 000 260|210 260 265 5; SET176; JP299;
5552/0: 164 361|042 7; SHL-8; DUP;
5552/3: 052 8; ERASE;
5552/4: 204 336 344 9; JS6P295;
5553/1: 203 273 152 J8;
5553/4: 042|304 000 012|036|223 053 167 DUP; SET10; -; J10<Z;
5555/0: 304 000 050|221 033 171 SETB50; J11=;
5556/0: 304 000 070|220 033 176 SETB70; J12=;
5557/0: 304 000 065|224 033 176 SETB65; J13=;
5560/0: 304 000 066|224 033 177 SETB66; J14=;
5561/0: 304 000 072|223 033 204 SETB72; J15=;
5562/0: 304 000 235|223 033 135 SETB235; J26=;
5563/0: 304 000 236|223 033 152 SETB236; J8=;
5564/0: 304 000 240|223 033 152 SETB240; J8=;
5565/0: 304 000 256|223 033 152 SETB256; J8=;
5566/0: 214 320 064 JS16P295;
5566/3: 304 000 261|210 260 265 SET177; JP299;
5567/3: 065|304 000 012|034|050|056 10; REV; SET10; ×D; CONT; +;
5570/4: 204 273 152 J9;
5571/1: 304 000 002 11; SET2;
5571/4: 066|170 350|042|215 320 005 17; CAB; =C14; DUP; JS18P295;
5572/5: 242 353 175 J18C14Z;
5573/2: 203 273 174 J19;
5573/5: 042|215 320 005 20; DUP; JS18P295;
5574/3: 143 340|265 353 173 19; DC14; J20C14NZ;
5575/2: 052|200 273 152 18; ERASE; J7;
[ == Page 96
5576/0: 041|204 273 171 12; ZERO; J17;
5576/4: 304 000 003|204 273 171 13; SET3; J17;
5577/4: 304 000 215 14; SETB215;
5600/1: 066|170 350|042|210 320 014 21; CAB; =C14; DUP; JS14P295;
5601/2: 245 353 203 J22C14Z;
5601/5: 200 273 203 J23;
5602/2: 042|210 320 014 24; DUP; JS14P295;
5603/0: 143 340|262 353 202 23; DC14; J24C14NZ;
5603/5: 052|200 273 152 22; ERASE; J7;
5604/3: 304 000 235|201 273 200 15; SETB235; J21;
=== Start P289V-1; at address 2950/5606
P289; (write boolean);
5606/0: 202 337 263 JS12P295;;
5606/3: 220 053 211 J2<Z;
5607/0: 304 000 315 SETB315;
5607/3: 210 320 014 1; JS14P295;
5610/0: 214 320 064 JS16P295;
5610/3: 200 360 000 EXIT1;
5611/0: 304 000 335|203 273 207 2; SETB335; J1;
=== Start P290V-1; at address 2954/5612
P290; (read boolean);
5612/0: 201 336 267 JS4P295;
5612/3: 041|204 273 214 ZERO; J2;
5613/1: 304 000 315|015|220 153 217|042 1; SETB315; NEV; J3=Z; DUP;
5614/3: 052 4; ERASE;
5614/4: 204 336 344 2; JS6P295;
5615/1: 203 273 214 J4;
[ == Page 97
5615/4: 304 000 335|201 033 213 SETB335; J1≠;
5616/4: 052|033 ERASE; NOT;
5617/0: 201 337 110 3; JS8P295;
5617/3: 200 360 000 EXIT1;
(Output 18/12/63);
=== Start P265V0; at address 2961/5621
V-store at 05620 = 000 273 337 014 071 251 P265V0; V0=B0013573703034651;
5621/0: 300 013 220|065|200 274 153 V0; REV; JP291;
=== Start P267V4; at address 2968/5630
V-store at 05623 = 017 377 377 377 000 000 P267V4; V0=B0377777777600000;
V-store at 05624 = 000 000 000 000 000 000 V1=0;
V-store at 05625 = 000 000 000 000 000 000 V2=0;
V-store at 05626 = 000 000 013 224 013 225 V3=Q0/AV1/AV2;
V-store at 05627 = 215 054 046 065 235 000 V4=B4322604615316400; [ h/w (gap)
5630/0: 042|200 336 246 DUP; JS1P295;
5630/4: 202 273 255 J1;
5631/1: 170 342|100 340|170 376|110 340|170 356 =M14; M0M14; =Q15; M0M14N; =Q14;
5632/5: 171 370|204 053 253 C15; J2≥Z;
5633/4: 171 350|026|301 013 224 C14; ABS; =V1;
5634/4: 171 364|033|223 153 250 I15; NOT; J3=Z;
5635/4: 202 337 263 JS12P295;
5636/1: 304 000 002|215 320 005 SET2; JS18P295;
5637/1: 171 204|200 053 250 I8; J8≥Z;
5640/0: 171 210|164 373|304 000 001|224 033 242 C8; SHL-3; SET1; J7=;
5641/4: 304 000 005|202 033 243 SET5; J6≠;
5642/4: 042|202 337 334 7; DUP; JS171P295;
5643/2: 052 6; ERASE;
5643/3: 214 320 064 5; JS16P295;
[ == Page 98
5644/0: 300 013 223|170 376|170 362|171 376|301 013 225 V0; =Q15; =M15; Q15; =V2;
5646/0: 300 013 226|304 000 010|200 220 000|200 360 000 V3; SET8; OUT; EXIT1;
5650/0: 214 320 064 8; JS16P295;
5650/3: 157 017|170 362|300 013 224|170 370|121 360 3; Q0TOQ15; =M15; V1; =C15; PARQ15;
5652/2: 220 353 257 J4TR;
5652/5: 130 374 PGAPQ15;
5653/1: 200 360 000 EXIT1;
5653/4: 304 013 227|065|304 000 002|210 260 265 2; SETAV4; REV; SET2; JP299;
5655/2: 304 013 227|065|304 000 001|210 260 265 1; SETAV4; REV; SET1; JP299;
5657/0: 304 013 227|065|304 000 003|210 260 265 4; SETAV4; REV; SET3; JP299;
=== Start P284V6; at address 3000/5670
P284V6; (FORMAT);
V-store at 05663 = 000 273 337 014 071 271 V2=B0013573703034671;
V-store at 05666 = 215 024 216 021 032 035 V5=B4321221604215035;
V-store at 05667 = 235 000 000 000 000 000 V6=B4720000000000000;
5670/0: 042|301 013 262|170 343|304 000 002|167 361 DUP; =V1; =RM14; SET2; SHC-8;
5671/5: 301 013 261|157 017|304 000 030|042|170 310 =V0; Q0TOQ15; SET24; DUP; =C12;
5673/4: 161 377|170 270|157 015|153 014|153 013 SHA-1; =C11; Q0TOQ13; IM0TOQ12; IM0TOQ11;
5675/2: 157 312|157 011|041|200 334 025 Q12TOQ10; Q0TOQ9; ZERO; JS27;
5676/4: 304 000 215|203 034 031 SETB215; J32≠;
5677/4: 052|204 273 301 ERASE; J2;
5700/2: 065|042|161 005|056|161 003 1; REV; DUP; SHA+2; +; SHA+1;
5701/3: 056 +;
5701/4: 200 334 025 2; JS27;
5702/1: 042|304 000 012|036|222 053 300 DUP; SET10; -; J1<Z;
5703/3: 304 000 070|204 034 023 SETB70; (S); J26≠;
5704/3: 052|042|164 371|204 154 031 ERASE; DUP; SHL-4; J33≠Z;
5705/4: 042|221 154 015 DUP; J23=Z;
5706/2: 301 013 264|143 360 =V3; DC15;
5707/1: 041|042|033|027 3; ZERO; DUP; NOT; NEG;
[ == Page 99
5707/5: 200 334 025 4; JS27;
5710/2: 245 374 013 J22C15Z;
5710/5: 304 000 070|221 033 355 SETB70; (S); J13=;
5711/5: 304 000 051|220 033 352 5; SETB51; (D); J11=;
5712/5: 304 000 301|224 033 360 SETB301; (+); J14=;
5713/5: 304 000 321|224 033 360 SETB321; (-); J14=;
5714/5: 304 000 322|224 033 360 SETB322; (≠); J14=;
5715/5: 304 000 013|222 033 371 SETB13; (.); J16=;
5716/5: 042|221 153 373 DUP; (ZERO); J17=Z;
5717/3: 304 000 063|221 033 350 SETB63; (N); J10=;
5720/3: 304 000 012|220 033 376 SETB12; (10); J18=;
5721/3: 304 000 230|220 034 004 SETB230; (;); J19=;
5722/3: 304 000 050|221 034 006 SETB50; (C); J20=;
5723/3: 304 000 065|221 034 011 SETB65; (P); J21=;
5724/3: 304 000 235|202 034 031 SETB235; (]); J31≠; [ underlined right square bracket
5725/3: 171 304|201 153 331 6; (]); I12; J7≠Z;
5726/2: 304 000 030|171 310|036|222 154 031 SET24; C12; -; J31=Z;
5727/5: 052|011|301 013 265|201 273 335 ERASE; OR; =V4; J8;
5731/1: 171 310|027|033|202 154 031 7; C12; NEG; NOT; J31≠Z;
5732/2: 171 262|222 154 031 M11; J31=Z;
5733/1: 052|052|304 000 003|042|012 ERASE; ERASE; SETB3; DUP; PERM;
5734/2: 054|015|205 154 031 AND; NEV; J34≠Z;
5735/1: 041|171 242|166 373|052|171 224 8; ZERO; M10; SHLD-3; ERASE; I9;
5736/3: 166 377|052|164 377 SHLD-1; ERASE; SHL-1;
5737/2: 171 244|166 377|052 I10; SHLD-1; ERASE;
5740/1: 171 324|166 377|052 I13; SHLD-1; ERASE;
5741/0: 171 262|166 375|052 M11; SHLD-2; ERASE;
[ == Page 100
5741/5: 304 000 014|171 270|036|166 371|052 SET12; C11; -; SHLD-4; ERASE;
5743/2: 304 000 030|171 250|036|166 367|052 SET24; C10; -; SHLD-5; ERASE;
5744/5: 171 264|166 375|052 I11; SHLD-2; ERASE;
5745/4: 300 013 264|166 371|052 V3; SHLD-4; ERASE;
5746/4: 300 013 265|166 321|052 V4; SHLD-24; ERASE;
5747/4: 200 360 000 9; EXIT1;
5750/1: 171 270|304 000 014|036|200 153 352 10; (n); C11; SET12; -; J11≠Z;
5751/4: 144 320 I13=+1;
5752/0: 262 234 031 11; J31C9NZ; (d, zero or terminator);
5752/3: 171 304|201 153 354 I12; J12≠Z; (EXM);
5753/2: 242 274 031 J31C11Z; (SFC>12);
5753/5: 143 260 DC11;
5754/1: 012|042|012|011|065 12; PERM; DUP; PERM; OR; REV;
5755/0: 066 CAB; (insert digit in field lay out);
5755/1: 052|164 003|143 300|243 314 031 13; ERASE; SHL+1; DC12; J32C12Z; (EFC>24);
5756/3: 171 244|205 153 307 I10; J4≠Z; (DPM);
5757/2: 143 240|265 253 307 DC10; J4C10NZ; (NDP);
5760/1: 203 274 031 J32;
5760/4: 167 371|042|164 135|065 14; (+-≠); SHC-4; DUP; SHL+46; REV;
5761/4: 164 251|016 SHL-44; ROUND; (1=+, 2=-, 3=≠);
5762/1: 171 304|201 153 366 I12; J15≠Z; (EXM);
5763/0: 171 310|304 000 030|036|202 154 031 C12; SET24; -; J31≠Z; (SFC=0);
5764/3: 171 264|202 154 031 I11; J31≠Z; (first sign);
5765/2: 170 264|205 273 307 =I11; J4;
5766/1: 304 000 003|171 310|036|202 154 031 15; (EXP SIGN); SET3; C12; -; J31≠Z;
5767/4: 171 262|202 154 031 M11; J31≠Z;
5770/3: 170 262|205 273 307 = M11; J4;
5771/2: 171 244|202 154 031 16; I10; J31≠Z; (DPM);
5772/1: 052|144 240|205 273 307 ERASE; I10=+1; J4;
[ == Page 101
5773/1: 261 233 354 17; (ZERO); J12C9NZ;
5773/4: 171 270|304 000 014|036|222 154 031 C11; SET12; -; J31=Z;
5775/1: 143 220|201 273 354 DC9; J12;
5776/0: 171 304|202 154 031 18; (=); I12; J31≠Z;
5776/5: 171 244|222 154 031 I10; J31=Z;
5777/4: 144 300|052|011|042|301 013 265 I12=+1; ERASE; OR; DUP; =V4;
6001/0: 164 240|164 061|003|027|033|205 154 031 SHLC10; SHL+24; BITS; NEG; NOT; J34≠Z;
6002/4: 304 000 003|170 310|201 273 307 SET3; =C12; J3;
6004/0: 171 224|202 154 031 19; (;); I9; J31≠Z;
6004/5: 144 220|143 220|052|205 273 307 I9=+1; DC9; ERASE; J4;
6006/1: 171 242|164 375|202 154 031 20; (C); M10; SHL-2; J31≠Z;
6007/2: 143 220|041|033|027|172 242 DC9; ZERO; NOT; NEG; =+M10;
6010/3: 052|205 273 307 ERASE; J4;
6011/1: 171 242|202 154 031 21; (P); M10; J31≠Z;
6012/0: 143 220|304 000 004|170 242|052|205 273 307 DC9; SET4; =M10; ERASE; J4;
6013/5: 304 000 070|201 034 021 22; SETB70; (S); J24≠;
6014/5: 052|052 ERASE; ERASE;
6015/1: 033|027|042|042|164 371 23; NOT; NEG; DUP; DUP; SHL-4;
6016/1: 225 153 307 J4=Z;
6016/4: 027|033|301 013 264|143 360|041 NEG; NOT; =V3; DC15; ZERO;
6020/0: 042|033|027|066|201 273 355 DUP; NOT; NEG; CAB; J13;
6021/1: 012|052 24; PERM; ERASE;
6021/3: 301 013 264|143 360|041|042|033 25; =V3; DC15; ZERO; DUP; NOT;
6022/5: 027|066|205 273 311 NEG; CAB; J5;
6023/4: 065|042|223 154 021 26; REV; DUP; J25=Z;
6024/3: 203 274 031 J32;
6025/0: 041|300 013 261 27; ZERO; V0;
6025/4: 041|166 021|012|011|042 28; ZERO; SHLD+8; PERM; OR; DUP;
[ == Page 102
6026/4: 221 154 030 J29=Z;
6027/1: 301 013 261|200 360 000 =V0; EXIT1;
6030/1: 052|102 340|204 274 025 29; ERASE; M0M14Q; J28;
6031/1: 052 30; ERASE;
6031/2: 052 31; ERASE;
6031/3: 052 32; ERASE;
6031/4: 052 33; ERASE;
6031/5: 304 013 266|310 000 247|200 334 037|300 013 262|310 000 247 34; SETAV5; V0P299; JSP288; V1; V0P299;
6034/2: 200 334 037|300 013 263|204 273 347 JSP288; V2; J9;
=== Start P288V0; at address 3103/6037
P288V0; (WRITE TEXT);
6037/0: 202 337 263 JS12P295;
6037/3: 170 343|157 015|201 334 107 =RM14; Q0TOQ13; JS18;
6040/4: 304 000 215|205 034 113 SETB215; J20≠;
6041/4: 042 DUP;
6041/5: 052 1; ERASE;
6042/0: 052 2; ERASE;
6042/1: 201 334 107 3; JS18;
6042/4: 304 000 215 SETB215;
6043/1: 204 034 076 J15≠;
6043/4: 164 361|042 4; SHL-8; DUP;
6044/1: 052 5; ERASE;
6044/2: 201 334 107 6; JS18;
6044/5: 042|304 000 012|036|223 054 066 DUP; SET10; -; J7<Z;
6046/1: 304 000 050|221 034 070 SETB50; J8=;
6047/1: 304 000 070|220 034 075 SETB70; J13=;
6050/1: 304 000 065|224 034 075 SETB65; J14=;
6051/1: 304 000 066|224 034 060 SETB66; J21=;
[ == Page 103
6052/1: 304 000 072|223 034 065 SETB72; J26=;
6053/1: 304 000 235|225 034 041 SETB235; J1=;
6054/1: 304 000 236|221 034 044 SETB236; J5=;
6055/1: 304 000 240|221 034 044 SETB240; J5=;
6056/1: 304 000 256|221 034 044 SETB256; J5=;
6057/1: 214 320 064|304 000 223|210 260 265 JS16P295; SET147; JP299;
6060/4: 304 000 215 21; SETB215;
6061/1: 066|170 350|042|210 320 014 22; CAB; =C14; DUP; JS14P295;
6062/2: 245 354 064 J23C14Z;
6062/5: 200 274 064 J24;
6063/2: 042|210 320 014 25; DUP; JS14P295;
6064/0: 143 340|262 354 063 24; DC14; J25C14NZ;
6064/5: 052|204 274 043 23; ERASE; J4;
6065/3: 304 000 235|201 274 061 26; SETB235; J22;
6066/3: 065|304 000 012|034|050|056 7; REV; SET10; ×D; CONT; +;
6067/4: 202 274 044 J6;
6070/1: 304 000 002 8; SET2;
6070/4: 066|170 350|042|215 320 005 9; CAB; =C14; DUP; JS18P295;
6071/5: 242 354 074 J12C14Z;
6072/2: 203 274 073 J11;
6072/5: 042|215 320 005 10; DUP; JS18P295;
6073/3: 143 340|265 354 072 11; DC14; J10C14NZ;
6074/2: 052|204 274 043 12; ERASE; J4;
6075/0: 041|204 274 070 13; ZERO; J9;
6075/4: 304 000 003|204 274 070 14; SET3; J9;
6076/4: 304 000 235|205 034 100 15; SETB235; J16≠;
6077/4: 052|214 320 064 ERASE; JS16P295;
6100/2: 200 360 000 EXIT1;
6100/5: 304 000 216|225 034 105 16; SETB216; J17=;
[ == Page 104
6101/5: 304 000 236|220 034 042 SETB236; J2=;
6102/5: 304 000 240|220 034 042 SETB240; J2=;
6103/5: 304 000 256|220 034 042 SETB256; J2=;
6104/5: 210 320 014 JS14P295;
6105/2: 201 274 042 J3;
6105/5: 164 361|215 320 005 17; SHL-8; JS18P295;
6106/4: 201 274 042 J3;
6107/1: 262 334 111 18; J19C13NZ;
6107/4: 102 340|301 014 036|304 000 006|170 330 M0M14Q; =V0; SET6; =C13;
6111/2: 300 014 036|041|166 021|065|301 014 036 19; V0; ZERO; SHLD+8; REV; =V0;
6113/0: 143 320|200 360 000 DC13; EXIT1;
6113/5: 214 320 064|304 000 224|210 260 265 20; JS16P295; SET148; JP299;
=== Start P291V28; at address 3179/6153
P291V28; (PROCEDURE WRITE);
V-store at 06117 = 050 242 212 050 242 212 V1=B1212121212121212;
V-store at 06120 = 101 004 020 101 004 020 V2=B2020202020202020;
V-store at 06121 = 101 211 067 113 306 250 V3=B2030446722743250; (1.024 TO 1I.P.);
V-store at 06122 = 076 200 000 000 000 000 V4=B175/8; (1000/1024 TO 1I.P.);
V-store at 06123 = 063 063 063 063 063 063 V5=B1463 1463 1463 1463; (.8 TO 1I.P.);
V-store at 06124 = 120 000 000 000 000 000 V6=B2400 0000 0000 0000; (10/8 TO 1I.P.);
V-store at 06125 = 000 000 000 003 000 003 V7=Q0/3/3; (INITIAL SPACES/SIGN/EXP SIGN);
V-store at 06126 = 000 273 337 071 000 001 V8=B0013573716200001; (FORMAT÷DS/ZS÷DPM/APM÷;/C/NDP);
V-store at 06127 = 014 314 314 314 314 315 V9=B0314631463146315; (.1);
V-store at 06130 = 001 107 256 024 172 341 V10=B0024365605075341; (.01);
V-store at 06131 = 000 003 106 334 135 144 V11=B0000150667056544; (.0001);
V-store at 06132 = 000 000 000 025 171 217 V12=B0000000005274617; (.00000001);
V-store at 06133 = 000 000 000 000 000 012 V13=B12; (10);
V-store at 06134 = 000 000 000 000 000 144 V14=B144; (100);
[ == Page 105
V-store at 06135 = 000 000 000 000 047 020 V15=B23420; (10000);
V-store at 06136 = 000 000 005 365 341 000 V16=B575360400; (100000000);
V-store at 06142 = 000 014 000 013 000 001 V20=Q12/11/1; (S÷F/E);
V-store at 06147 = 000 000 003 377 377 375 V25=B0000 0003 7777 7775;
V-store at 06150 = 000 000 001 377 377 377 V26=B0000 0001 7777 7777;
6153/0: 012 101; PERM;
6153/1: 301 014 143 102; =V21;
6153/4: 301 014 144|202 337 263|041|301 014 152 103; =V22; JS12P295; ZERO; =V28;
6155/2: 300 014 143|041|166 061 V21; ZERO; SHLD+24;
6156/2: 065|041|166 011|170 250|041 REV; ZERO; SHLD+4; =C10; ZERO;
6157/3: 166 005|170 244|041|166 013|027 SHLD+2; =I10; ZERO; SHLD+5; NEG;
6160/5: 170 170|041|166 011|170 270|041 =C7; ZERO; SHLD+4; =C11; ZERO;
6162/1: 166 005|170 242|041|166 011|170 162 SHLD+2; =M10; ZERO; SHLD+4; =M7;
6163/4: 167 007|170 164|042|041|065 SHC+3; =I7; DUP; ZERO; REV;
6164/5: 166 160|003|027|033|170 264 SHLDC7; BITS; NEG; NOT; =I11;
6166/0: 003|170 262|300 014 144 BITS; =M11; V22;
6167/0: 144 320|042|200 054 222 I13=+1; DUP; J5≥Z;
6170/0: 031|145 320|171 244|200 154 222 NEGF; I13=-1; I10; J5≠Z;
6171/2: 304 000 207|204 335 166 SET135; JS100;
6172/2: 203 335 126 1; JS80;
6172/5: 171 162|167 375|225 055 062 70; M7; SHC-2; J95<Z;
6174/0: 171 164|041|301 014 151|203 154 207 I7; ZERO; =V27; J4≠Z;
6175/3: 171 250|171 244|220 154 177 C10; I10; J2=Z;
6176/4: 033|027 NOT; NEG;
6177/0: 171 242|223 154 200 2; M10; J3=Z;
6177/5: 304 000 004|056 SET4; +;
6200/3: 171 162|167 377|164 243|056 3; M7; SHC-1; SHL-47; +;
6201/4: 171 162|304 000 004|054|164 375|056 M7; SETB4; AND; SHL-2; +;
6203/1: 066|042|164 057|304 000 027|024 CAB; DUP; SHL+23; SET23; FLOAT;
[ == Page 106
6204/3: 045|065|052|066 FIX; REV; ERASE; CAB;
6205/1: 056|300 016 234|164 321|171 230|036|056 +; V31P295; SHL-24; C9; -; +;
6206/5: 301 014 151|065 =V27; REV;
6207/3: 171 164|033|170 330|300 016 234|164 321|171 230 4; I7; NOT; =C13; V31P295; SHL-24; C9;
6211/3: 036|221 154 213 -; J167=Z;
6212/1: 304 000 002|215 320 005 SET2; JS18P295;
6213/1: 300 014 142|170 276|300 014 125|170 256|065 167; V20; =Q11; V7; =Q10; REV;
6215/0: 052|300 014 126|041|166 061|012 ERASE; V8; ZERO; SHLD+24; PERM;
6216/2: 041|166 013|170 162|041|166 007 ZERO; SHLD+5; =M7; ZERO; SHLD+3;
6217/4: 170 164|164 301|170 170|304 000 013|170 322 =I7; SHL-32; =C7; SET11; =M13;
6221/3: 202 274 236 J7;
6222/0: 142 160|203 335 126 5; NC7; JS80;
6222/5: 171 270|027|033|170 322|171 242 C11; NEG; NOT; =M13; M10;
6224/1: 202 154 236 J7≠Z;
6224/4: 171 342|171 262|036|204 055 045 M14; M11; -; J69≥Z;
6226/0: 171 342|171 264|056|042|170 362 117; M14; I11; +; DUP; =M15;
6227/2: 171 322|065|036|222 054 236 M13; REV; -; J7<Z;
6230/3: 151 375|171 322|202 054 236 M15TOQ13; M13; J7≥Z;
6231/4: 171 322|033|203 154 235 M13; NOT; J6≠Z;
6232/4: 304 000 005|161 127|171 322|033|027|170 322|041 SET5; SHA+43; M13; NOT; NEG; =M13; ZERO;
6234/4: 033|002|200 274 244 NOT; =TR; J10;
6235/3: 052|041|201 274 254 6; ERASE; ZERO; J12;
6236/2: 304 000 004|170 371|041|033|027 7; SET4; =RC15; ZERO; NOT; NEG;
6237/4: 167 375|171 322 SHC-2; M13;
6240/2: 167 377|042|202 054 242 8; SHC-1; DUP; J9≥Z;
6241/2: 065|300 374 127|035|065 REV; V9M15; ×; REV;
6242/2: 140 360|143 360|262 374 240 9; M+I15; DC15; J8C15NZ;
6243/3: 052|161 371 ERASE; SHA-4;
6244/0: 056 10; +;
[ == Page 107
6244/1: 042|164 253|304 000 012|036|225 054 303 11; DUP; SHL-43; SET10; -; J113<Z;
6245/5: 047|304 000 012|061|140 340|171 242 STR; SET10; ÷D; M+I14; M10;
6247/2: 201 154 254 J12≠Z;
6247/5: 171 322|033|027|171 270|015 M13; NOT; NEG; C11; NEV;
6251/0: 225 154 252 J110=Z;
6251/3: 225 354 252 J110TR;
6252/0: 304 000 001|172 322 SET1; =+M13;
6252/5: 171 342|171 262|036|200 055 051 110; M14; M11; -; J71≥Z;
6254/1: 041|042|002|033|027|171 322 12; ZERO; DUP; =TR; NOT; NEG; M13;
6255/2: 304 000 004|170 371 SET4; =RC15;
6256/1: 167 377|042|202 054 260 13; SHC-1; DUP; J14≥Z;
6257/1: 065|300 374 133|034|050|065 REV; V13M15; ×D; CONT; REV;
6260/2: 140 360|143 360|261 374 256 14; M+I15; DC15; J13C15NZ;
6261/3: 052|034|162 011|065|052 ERASE; ×D; SHAD+4; REV; ERASE;
6262/3: 042|301 014 116|205 335 152 DUP; =V0; JS90;
6263/4: 301 014 145|301 014 146|171 244|027|033 =V23; =V24; I10; NEG; NOT;
6265/2: 164 377|203 154 267 SHL-1; J15≠Z;
6266/1: 304 000 020|171 162|011|170 162 SETB20; M7; OR; =M7;
6267/3: 171 264|171 262|056|171 270|036 15; I11; M11; +; C11; -;
6270/5: 041|170 363|171 264|033|027 ZERO; =RM15; I11; NOT; NEG;
6272/0: 033|027|170 322|205 114 275 NOT; NEG; =M13; J18≤Z;
6273/1: 171 342|171 270|036|033|027 M14; C11; -; NOT; NEG;
6274/2: 042|225 054 304 DUP; J32<Z;
6275/0: 171 264|056 I11; +;
6275/3: 170 370 72; =C15;
6275/5: 304 000 010|170 271|140 260|304 000 030|170 330 18; SET8; =RC11; M+I11; SET24; =C13;
6277/5: 164 061 SHL+24;
6300/1: 017|017|017|017|017|042|225 054 306 *16; DUP; J17<Z;
6301/4: 164 003|143 320|177 320 SHL+1; DC13; J16C13NZS;
[ == Page 108
6302/4: 052|304 000 210|201 275 054 ERASE; SET136; J74;
6303/5: 201 354 254 113; J12NTR;
6304/2: 203 274 235 J6;
6304/5: 171 264|056|042|203 054 275 32; I11; +; DUP; J72≥Z;
6306/0: 052|041|203 274 275 ERASE; ZERO; J72;
6306/5: 143 320|164 003|243 335 053 17; DC13; SHL+1; J73C13Z;
6310/0: 154 016|304 000 010|170 311 C0TOQ14; SET8; =RC12;
6311/1: 042|223 054 324 19; DUP; J21<Z;
6311/5: 304 000 076|167 365|200 274 314 98; SETB76; SHC-6; J26;
6313/1: 304 000 077|167 365 22; SETB77; SHC-6;
6314/0: 300 314 137|166 015|143 300|301 314 137|052 26; V17M12; SHLD+6; DC12; =V17M12; ERASE;
6315/5: 263 314 317 J24C12NZ;
6316/2: 140 300|304 000 010|170 310 M+I12; SET8; =C12;
6317/3: 143 340 24; DC14;
6317/5: 143 320|164 003|261 334 311 29; DC13; SHL+1; J19C13NZ;
6321/0: 171 262|222 154 351 20; M11; J28=Z;
6321/5: 300 274 145|141 260|033|220 154 321 V23M11; M-I11; NOT; J20=Z;
6323/2: 052|304 000 211|201 275 054 ERASE; SET137; J74;
6324/3: 171 322|222 154 326 21; M13; J107=Z;
6325/2: 171 322|027|033|170 322 M13; NEG; NOT; =M13;
6326/2: 242 374 331 107; J31C15Z;
6326/5: 143 360|171 322|304 000 002|036|205 054 311 DC15; M13; SET2; -; J98≥Z;
6330/4: 041|200 274 314 ZERO; J26;
6331/2: 041|300 274 145|143 260|162 365|301 274 145 31; ZERO; V23M11; DC11; SHAD-6; =V23M11;
6333/1: 265 274 334 J25C11NZ;
6333/4: 141 260|304 000 010|170 270 M-I11; SET8; =C11;
6334/5: 164 003|171 162|304 000 010|054|205 154 340 25; SHL+1; M7; SETB10; AND; J27≠Z;
6336/4: 304 000 077|164 125|200 034 314 SETB77; SHL+42; J26≠;
6340/0: 052|041|200 274 314 ERASE; ZERO; J26;
[ == Page 109
6340/5: 304 000 077|164 125|200 034 346 27; SETB77; SHL+42; J30≠;
6342/1: 171 322|225 154 343 M13; J96=Z;
6343/0: 052|041|200 274 314 ERASE; ZERO; J26;
6343/5: 052|171 162|164 371|225 154 311 96; ERASE; M7; SHL-4; J98=Z;
6345/1: 140 360|205 274 317 M+I15; J29;
6346/0: 171 162|164 371|220 154 314 30; M7; SHL-4; J26=Z;
6347/1: 171 362|220 154 314 M15; J26=Z;
6350/0: 052|052|304 000 212|201 275 054 ERASE; ERASE; SET138; J74;
6351/2: 052|171 362|042|172 250|027 28; ERASE; M15; DUP; =+C10; NEG;
6352/3: 172 170|171 244|224 154 360 =+C7; I10; J35=Z;
6353/4: 171 324|224 054 357 I13; J34<Z;
6354/3: 171 244|167 377|224 054 356 I10; SHC-1; J33<Z;
6355/4: 304 000 236|200 274 361 SETB236; J36;
6356/4: 304 000 301|200 274 361 33; SETB301; J36;
6357/4: 304 000 321|200 274 361 34; SETB321; J36;
6360/4: 041|033 35; ZERO; NOT;
6361/0: 170 244|142 340|171 350|171 170|036|171 162 36; =I10; NC14; C14; C7; -; M7;
6362/5: 167 373|205 055 043 SHC-3; J67≥Z;
6363/4: 304 000 013|170 322|203 115 057 SETB13; =M13; J77≤Z;
6365/0: 171 242|223 155 056 68; M10; J75=Z;
6365/5: 300 014 116|223 155 040 V0; J64=Z;
6366/5: 154 015|171 342|042|204 054 370 C0TOQ13; M14; DUP; J37≥Z;
6370/1: 027|143 320 NEG; DC13;
6370/4: 205 335 152 37; JS90;
6371/1: 033|203 155 060 NOT; J78≠Z;
6371/5: 041|065|162 351|033|204 155 061 ZERO; REV; SHAD-12; NOT; J79≠Z;
6373/1: 041|166 017|205 335 063 ZERO; SHLD+7; JS40;
6374/1: 304 000 012|210 320 014 SETB12; JS14P295;
6375/1: 304 000 077|224 035 004 SETB77; J51=;
[ == Page 110
6376/1: 171 330|224 055 001 C13; J38<Z;
6377/0: 171 242|027|033|027|033|201 155 003 M10; NEG; NOT; NEG; NOT; J50≠Z;
6400/3: 041|215 320 005 ZERO; JS18P295;
6401/1: 204 275 017 J39;
6401/4: 304 000 321|210 320 014 38; SETB321; JS14P295;
6402/4: 204 275 017 J39;
6403/1: 304 000 301|210 320 014 50; SETB301; JS14P295;
6404/1: 204 275 017 J39;
6404/4: 171 242|304 000 003|224 035 011 51; M10; SET3; J52=;
6406/0: 041|215 320 005 ZERO; JS18P295;
6406/4: 171 330|224 055 015 C13; J55<Z;
6407/3: 027|033|220 155 017 NEG; NOT; J56=Z;
6410/2: 052|041|215 320 005 53; ERASE; ZERO; JS18P295;
6411/1: 201 275 020 J58;
6411/4: 052|171 330|221 055 014 52; ERASE; C13; J54<Z;
6412/4: 304 000 301|210 320 014 SETB301; JS14P295;
6413/4: 202 275 010 J53;
6414/1: 304 000 321|210 320 014 54; SETB321; JS14P295;
6415/1: 202 275 010 J53;
6415/4: 052|052|304 000 321|204 275 017 55; ERASE; ERASE; SETB321; J39;
6417/0: 052|304 000 301 56; ERASE; SETB301;
6417/4: 210 320 014 39; JS14P295;
6420/1: 167 015|210 320 014 58; SHC+6; JS14P295;
6421/0: 171 162|167 377|201 055 023 66; M7; SHC-1; J57≥Z;
6422/1: 304 000 230|210 320 014 SETB230; JS14P295;
6423/1: 171 164|164 375|200 155 037 57; I7; SHL-2; J63≠Z;
6424/2: 171 164|170 170|242 175 027 I7; =C7; J60C7Z;
6425/3: 304 000 002|215 320 005 59; SET2; JS18P295;
6426/3: 143 160|263 175 025 DC7; J59C7NZ;
[ == Page 111
6427/2: 171 162|167 375|200 055 034 60; M7; SHC-2; J62≥Z;
6430/3: 300 014 151|042|170 350|220 055 034 V27; DUP; =C14; J62<Z;
6432/0: 240 355 034 J62C14Z;
6432/3: 143 340|041|215 320 005 61; DC14; ZERO; JS18P295;
6433/3: 263 355 032 J61C14NZ;
6434/0: 214 320 064 62; JS16P295;
6434/3: 300 014 152|223 155 036 V28; J111=Z;
6435/3: 300 014 152|215 320 321 V28; JS7P299;
6436/3: 200 360 000 111; EXIT 1;
6437/0: 304 000 003|215 320 005 63; SET3; JS18P295;
6440/0: 202 275 027 J60;
6440/3: 205 335 063 64; JS40;
6441/0: 304 000 004|170 350 SET4; =C14;
6441/5: 041|215 320 005 65; ZERO; JS18P295;
6442/3: 143 340|265 355 041 DC14; J65C14NZ;
6443/2: 200 275 021 J66;
6443/5: 151 015|220 154 365 67; M0TOQ13; J68=Z;
6444/4: 304 000 213|201 275 054 SET139; J74;
6445/4: 042|225 155 047|304 000 214|204 335 166 69; DUP; J116=Z; SET140; JS100;
6447/2: 205 274 172 J70;
6447/5: 041|033|170 342|200 274 226 116; ZERO; NOT; =M14; J117;
6451/0: 052|041|002|304 000 215|204 335 166 71; ERASE; ZERO; =TR; SET141; JS100;
6452/3: 300 014 144|202 274 172 V22; J1;
6453/3: 052|304 000 216 73; ERASE; SET142;
6454/1: 204 335 166 74; JS100;
6454/4: 300 014 143|164 321|300 014 144|202 274 172 V21; SHL-24; V22; J1;
6456/3: 205 335 063|200 275 021 75; JS40; J66;
6457/3: 304 000 217|201 275 054 77; SET143; J74;
6460/3: 052|304 000 220|201 275 054 78; ERASE; SET144; J74;
[ == Page 112
6461/4: 052|304 000 221|201 275 054 79; ERASE; SET145; J74;
6462/5: 304 000 222|210 260 265 95; SET146; JP299;
6463/5: 245 255 065 40; J42C10Z;
6464/2: 143 240|041|215 320 005 41; DC10; ZERO; JS18P295;
6465/2: 262 255 064 J41C10NZ;
6465/5: 171 162|167 375|200 055 070 42; M7; SHC-2; J43≥Z;
6467/0: 304 000 216|210 320 014 SETB216; JS14P295;
6470/0: 171 244|224 055 071 43; I10; J44<Z;
6470/5: 171 244|210 320 014 I10; JS14P295;
6471/4: 304 000 010|171 310|036|170 310 44; SET8; C12; -; =C12;
6473/0: 171 322|222 155 114 M13; J88=Z;
6473/5: 244 175 106 J112C7Z;
6474/2: 260 315 076 46; J45C12NZ;
6474/5: 141 300|304 000 010|170 310 M-I12; SET8; =C12;
6476/0: 041|300 314 137|166 365|301 314 137|167 015 45; ZERO; V17M12; SHLD-6; =V17M12; SHC+6;
6477/5: 171 322|220 155 112 M13; J93=Z;
6500/4: 171 170|027|033|220 155 112 C7; NEG; NOT; J93=Z;
6501/5: 304 000 077|224 035 110 SETB77; J47=;
6502/5: 304 000 076|224 035 110 94; SETB76; J47=;
6503/5: 210 320 014 97; JS14P295;
6504/2: 143 340|143 300|143 160|262 175 074 48; DC14; DC12; DC7; J46C7NZ;
6505/5: 171 322|225 155 113 M13; J49=Z;
6506/4: 171 322|210 320 014 112; M13; JS14P295;
6507/3: 151 015|154 347|202 275 074 M0TOQ13; C14TOQ7; J46;
6510/4: 052|041|215 320 005 47; ERASE; ZERO; JS18P295;
6511/3: 202 275 104 J48;
6512/0: 304 000 077|205 035 102 93; SETB77; J94≠;
6513/0: 052|041|205 275 103 ERASE; ZERO; J97;
6513/5: 200 360 000 49; EXIT1;
[ == Page 113
6514/2: 260 315 116 88; J89C12NZ;
6514/5: 141 300|304 000 010|170 310 M-I12; SET8; =C12;
6516/0: 041|300 314 137|166 365|301 314 137|167 015 89; ZERO; V17M12; SHLD-6; =V17M12; SHC+6;
6517/5: 304 000 076|222 035 124 SETB76; J99=;
6520/5: 304 000 077|224 035 125 SETB77; J104=;
6521/5: 210 320 014 105; JS14P295;
6522/2: 143 340|143 300|143 160|262 175 114 106; DC14; DC12; DC7; J88C7NZ;
6523/5: 200 360 000 EXIT1;
6524/2: 052|041|215 320 005|202 275 122 99; ERASE; ZERO; JS18P295; J106;
6525/4: 052|041|205 275 121 104; ERASE; ZERO; J105;
6526/3: 042|002|030|045|042 80; DUP; =TR; ABSF; FIX; DUP;
6527/2: 164 243|170 342|026|170 350|304 014 147 SHL-47; =M14; ABS; =C14; SETAV25;
6531/0: 170 363|161 377|042|224 155 150 =RM15; SHA-1; DUP; J109=Z;
6532/2: 304 377 366 SET-10;
6532/5: 170 344|104 357|161 321|170 364 81; =I14; M15M14H; SHA-24; =I15;
6534/1: 171 350|171 344|042|012|056 82; C14; I14; DUP; PERM; +;
6535/2: 223 055 140 J83<Z;
6535/5: 172 350|171 364|172 370|300 354 121|034 =+C14; I15; =+C15; V3M14; ×D;
6537/3: 162 003|016|201 275 134 SHAD+1; ROUND; J82;
6540/3: 161 373|221 155 143 83; SHA-3; J84=Z;
6541/2: 304 000 002|172 342|304 377 375|205 275 132 SET2; =+M14; SET-3; J81;
6543/1: 171 342|167 377|224 055 144 84; M14; SHC-1; J85<Z;
6544/2: 142 340 NC14;
6544/4: 143 340|142 340|047|162 340|203 275 147 85; DC14; NC14; STR; SHADC14; J87;
6546/2: 052|304 000 012|034|143 360 86; ERASE; SET10; ×D; DC15;
6547/3: 042|222 155 146 87; DUP; J86=Z;
6550/1: 162 371|052 SHAD-4; ERASE;
6550/4: 171 370|170 342|144 340|202 355 152 109; C15; =M14; I14=+1; J108NTR;
[ == Page 114
6552/1: 027 NEG;
6552/2: 200 360 000 108; EXIT1;
6552/5: 042|204 155 154 90; DUP; J76≠Z;
6553/3: 033|042|164 015|200 275 166 NOT; DUP; SHL+6; J92;
6554/4: 300 014 136|027|043|056|222 055 157 76; V16; NEG; DUPD; +; J91<Z;
6556/1: 027|044|300 014 117|065|067 NEG; ÷I; V1; REV; FRB;
6557/2: 065|300 014 117|065|067|300 014 120 91; REV; V1; REV; FRB; V2;
6560/5: 043|065|036|054|300 014 120 DUPD; REV; -; AND; V2;
6562/0: 015|041|024|045|033 NEV; ZERO; FLOAT; FIX; NOT;
6562/5: 027|170 370|052|041|033 NEG; =C15; ERASE; ZERO; NOT;
6563/5: 047|015|161 360|011|065 STR; NEV; SHAC15; OR; REV;
6564/5: 042|200 055 166 DUP; J92≥Z;
6565/3: 161 313|065 SHA-27; REV;
6566/0: 065|200 360 000 92; REV; EXIT1;
6566/4: 301 014 152|200 360 000 100; =V28; EXIT1;
=== Start P292V6; at address 3455/6577
P292V6; [h/w close
V-store at 06570 = 000 000 000 000 000 000 V0=0;
V-store at 06571 = 034 170 144 000 000 000 V1=B0707414400000000;
V-store at 06572 = 002 073 057 316 131 000 V2=B0043545763454400;
V-store at 06573 = 000 000 015 170 015 172 V3=Q0/AV0/AV2;
V-store at 06574 = 000 000 022 174 022 174 V4=Q0/AW0/AW0;
V-store at 06575 = 004 020 101 004 242 212 V5=B0101 0101 0112 1212;
6577/0: 042|301 015 176|200 336 246 18; DUP; =V6; JS1P295;
6600/1: 205 275 304 J17;
6600/4: 304 016 202|225 035 223 SETAV5P295; J20=; [ M10 Address of Directory entry
6601/4: 170 242|100 240|042|170 276|110 240 22; =M10; M0M10; DUP; =Q11; M0M10N; [ Q11 Algol Directory
6603/1: 170 316|203 055 267 =Q12; J12≥Z; [ Q12 DTR
[ There is more writing, but photo is too indistinct
[ == Page 115
6604/0: 171 264|033|224 155 265 25; I11; NOT; J11=Z;
6605/0: 142 260|110 300|164 061|164 271|223 155 224 NC11; M0M12N; SHL+24; SHL-36; J35=Z;
6606/5: 243 235 216 J24C9Z; [ hand annotation: error ca .....
6607/2: 243 275 216 J24C11Z;
6607/5: 304 000 003|300 015 176|202 337 263|215 320 005 SET3; V6; JS12P295; JS18P295; [ hand annotation SET2
6611/5: 171 204|203 055 216|171 210|164 373|304 000 003|222 035 216 I8; J24≥Z; C8; SHL-3; SET3; J27=;
6614/2: 304 000 007|222 035 216 SET7; J27=;
6615/2: 202 337 334|203 275 216 JS171P295; J24;
6616/2: 052 27; ERASE;
6616/3: 171 270|213 320 140 24; C11; JS30P295;
6617/2: 205 275 305 J19;
6617/5: 167 363|202 055 225 SHC-7; J1≥Z;
6620/4: 203 335 273 JS13;
6621/1: 200 275 227 J2;
6621/4: 042|301 015 176|200 336 246 21; DUP; =V6; JS1P295;
6622/5: 205 275 304 J17;
6623/2: 204 275 201 J22;
6623/5: 052|200 360 000 20; ERASE; EXIT1;
6624/3: 171 304|220 055 227 35; I12; J2<Z;
6625/2: 171 204|224 055 242 1; I8; J34<Z;
6626/1: 153 233|205 335 275 IM9TOQ11; JS14;
6627/0: 304 000 004 2; SET4;
6627/3: 203 335 303 3; JS16;
6630/0: 171 302|164 367|164 013|170 302|100 300 M12; SHL-5; SHL+5; =M12; M0M12;
6631/4: 170 336|027|172 330|265 335 233 =Q13; NEG; =+C13; J4C13NZ;
6633/0: 151 313|203 335 303 M12TOQ11; JS16;
6633/5: 171 336|101 300 4; Q13; =M0M12;
6634/3: 300 016 200|170 356|100 340|170 376 5; V3P295; =Q14; M0M14; =Q15;
6636/0: 262 375 247 6; J8C15NZ;
[ == Page 116
6636/3: 100 360|171 350|027|033|200 155 247 M0M15; C14; NEG; NOT; J7≠Z;
6640/0: 170 356|041|033|101 360|157 357 =Q14; ZERO; NOT; =M0M15; Q14TOQ15;
6641/2: 201 335 251 JS9;
6641/5: 151 353|203 275 303 M14TOQ11; J16;
6642/4: 240 275 227|240 235 227|171 210|026|042|042|164 041|011|164 041|011
34; J2C11Z; J2C9Z; C8; ABS; DUP; DUP; SHL16; OR; SHL16; OR;
6645/3: 304 000 010|200 220 000|200 275 227 SET8; OUT; J2; (LABEL OUT8 STREAM);
6647/0: 170 376 7; =Q15;
6647/2: 140 360|143 360|143 340|260 355 236 8; M+I15; DC15; DC14; J6C14NZ;
6650/5: 141 360 M-I15;
6651/1: 100 360|101 240|110 360|111 240|300 016 200 9; M0M15; =M0M10; M0M15N; =M0M10N; V3P295;
6653/0: 167 041|027|033|167 341|301 016 200 SHC+16; NEG; NOT; SHC-16; =V3P295;
6654/3: 241 275 265 J23C11Z;
6655/0: 300 015 175|171 270|026|067|042 V5; C11; ABS; FRB; DUP;
6656/2: 164 351|221 155 260 SHL-12; J10=Z;
6657/1: 304 004 000|164 015|011 SETB2000; SHL+6; OR;
6660/1: 304 004 020|011|164 061|300 015 171|164 321 10; SETB2020; OR; SHL+24; V1; SHL-24;
6662/0: 166 061|301 015 171|052|300 015 173|041|301 015 170 SHLD+24; =V1; ERASE; V3; ZERO; =V0;
6664/1: 304 000 010|200 220 000 SET8; OUT; [ newline inserted here for clarity
6665/1: 200 360 000 23; EXIT1;
6665/4: 171 310|026|170 210|203 335 273|203 275 234 11; C12; ABS; =C8; JS13; J5;
6667/3: 205 335 275|240 315 204 12; JS14; J25C12Z;
6670/3: 171 262|223 055 234 M11; J5<Z;
6671/2: 171 304|027|033|170 322|100 320 I12; NEG; NOT; =M13; M0M13;
6672/4: 164 301|203 275 227 SHL-32; J3;
6673/3: 041|033|311 002 174|300 015 174|170 376 13; ZERO; NOT; =W0; V4; =Q15;
6675/1: 154 217|130 370 C8TOQ15; MLWQ15;
6675/5: 171 310|026|042|225 155 223 14; C12; ABS; DUP; J20=Z;
6677/0: 304 000 006|210 322 134 SET6; JS1P113;
6700/0: 171 262|203 115 302 15; M11; J26≤Z;
6700/5: 300 016 176|111 260|171 262|301 016 176 V1P295; =M0M11N; M11; =V1P295;
[ == Page 117
6702/3: 171 264|170 262|152 013 26; I11; =M11; I0TOQ11;
6703/3: 171 262|220 115 300 16; M11; J15>Z;
6704/2: 200 360 000 EXIT1;
6704/5: 304 000 225|210 260 265 17; SET149; JP299;
6705/5: 304 000 226|210 260 265 19; SET150; JP299;
=== Start P293V18; at address 3546/6732
P293V18; (PROCEDURE OPEN);
V-store at 06711 = 001 340 063 000 000 000 V2=B0036 0063 0000 0000; (S);
V-store at 06712 = 001 340 065 000 000 000 V3=B0036 0065 0000 0000; (U);
V-store at 06713 = 000 000 015 327 015 331 V4=Q0/AV16/AV18;
V-store at 06714 = 000 010 000 001 015 317 V5=Q8/1/AV8;
V-store at 06715 = 004 020 101 004 202 010 V6=B0101 0101 0110 1010;
V-store at 06716 = 004 020 101 004 242 212 V7=B0101 0101 0112 1212;
V-store at 06717 = 000 004 007 303 007 302 V8=Q4/AV1P263/AV0P263; (CLASS 0);
V-store at 06720 = 000 004 007 303 007 302 V9=Q4/AV1P263/AV0P263; (CLASS 1);
V-store at 06721 = 000 022 010 076 010 074 V10=Q18/AV2P264/AV0P264; (CLASS 2);
V-store at 06722 = 000 004 006 376 006 375 V11=Q4/AV1P261/AV0P261; (CLASS 3);
V-store at 06723 = 377 377 377 377 377 377 V12=-1; (CLASS 4);
V-store at 06724 = 000 004 006 072 006 071 V13=Q4/AV1P259/AV0P259; (CLASS 5);
V-store at 06725 = 377 377 377 377 377 377 V14=-1; (CLASS 6);
V-store at 06726 = 000 004 006 376 006 375 V15=Q4/AV1P261/AV0P261; (CLASS 7);
V-store at 06730 = 034 170 144 000 000 000 V17=B0707 4144 0000 0000; (AD);
V-store at 06731 = 000 000 000 000 000 000 V18=0;
6732/0: 042|301 015 307 DUP; =V0;
6732/4: 042|200 336 246 1; DUP; JS1P295;
6733/2: 204 275 335 J20;
6733/5: 304 016 202|205 036 014 22; SETAV5P295; J13≠;
6734/5: 052|052|200 360 000 ERASE; ERASE; EXIT1;
[ == Page 118
6735/4: 170 316|042|170 270|213 320 140 20; =Q12; DUP; =C11; JS30P295;
6737/0: 205 276 015 J14;
6737/3: 042|170 250|164 373|042|167 371 DUP; =C10; SHL-3; DUP; SHC-4;
6740/5: 225 056 016 J15<Z;
6741/2: 042|041|166 131|162 251|052 21; DUP; ZERO; SHLD+44; SHAD-44; ERASE;
6742/3: 042|170 362|300 015 314|170 356|171 350 DUP; =M15; V5; =Q14; C14;
6744/1: 036 -;
6744/2: 205 056 017 J16≥Z;
6744/5: 100 376|042|225 056 020 M14M15; DUP; J17<Z;
6745/5: 170 356|100 340|033|225 156 020 =Q14; M0M14; NOT; J17=Z;
6747/1: 153 013|042|167 377|205 055 350 IM0TOQ11; DUP; SHC-1; J19≥Z;
6750/3: 142 260 NC11;
6750/5: 171 276|101 300|205 336 022 19; Q11; =M0M12; JS2;
6752/0: 042|167 377|225 055 367 DUP; SHC-1; J5<Z;
6753/0: 042|225 155 367 DUP; J5=Z;
6753/4: 304 000 005|210 322 134 SET5; JS1P113;
6754/4: 170 250|100 340|103 360 =C10; M0M14; =M0M15Q;
6755/4: 152 352|171 344|304 377 376|170 351|170 342 I14TOQ10; I14; SET-2; =RC14; =M14;
6757/3: 171 356|103 360|041|103 360|151 372 Q14; =M0M15Q; ZERO; =M0M15Q; M15TOQ10;
6761/0: 300 015 312 4; V3;
6761/3: 171 250|300 015 307|042|225 155 366 11; C10; V0; DUP; J24=Z;
6763/0: 066|202 336 002 CAB; JS12;
6763/4: 171 256|111 300|300 016 200|167 041|033 26; Q10; =M0M12N; V3P295; SHC+16; NOT;
6765/2: 027|167 341|301 016 200|200 360 000 NEG; SHC-16; =V3P295; EXIT1;
6766/5: 052|052|052|204 275 363 24; ERASE; ERASE; ERASE; J26;
6767/5: 151 372|304 000 004|170 330|100 340|171 344 5; M15TOQ10; SET4; =C13; M0M14; I14;
6771/4: 170 322|100 320|103 360|143 320|243 335 374 6; =M13; M0M13; =M0M15Q; DC13; J7C13Z;
6773/3: 041|166 041|204 275 371 ZERO; SHLD+16; J6;
6774/3: 033|065|042|164 373|225 156 000 7; NOT; REV; DUP; SHL-3; J8=Z;
[ == Page 119
6775/5: 042|223 155 377 DUP; J25=Z;
6776/3: 304 000 005|210 322 134 SET5; JS1P113;
6777/3: 170 250|033|170 244|200 275 361 25; =C10; NOT; =I10; J4;
7000/5: 052|170 244|300 015 311|203 275 361 8; ERASE; =I10; V2; J11;
7002/2: 301 015 331|304 033 261|170 222|300 015 316|200 336 011 12; =V18; SETAV17L; =M9; V7; JS9;
7004/4: 105 220|300 015 315|200 336 011 =M0M9H; V6; JS9;
7006/0: 115 220|300 015 313|041|301 015 327|304 000 010|200 220 000 =M0M9HN; V4; ZERO; =V16; SET8; OUT;
7010/3: 200 360 000 EXIT1;
7011/0: 065|067|042|164 351|222 156 013 9; REV; FRB; DUP; SHL-12; J10=Z;
7012/2: 304 004 000|164 015|011 SETB2000; SHL+6; OR;
7013/2: 304 004 020|011|164 061|200 360 000 10; SETB2020; OR; SHL+24; EXIT1;
7014/5: 304 000 171|210 260 265 13; SET121; JP299;
7015/5: 304 000 172|210 260 265 14; SET122; JP299;
7016/5: 304 000 173|210 260 265 15; SET123; JP299;
7017/5: 304 000 174|210 260 265 16; SET124; JP299;
7020/5: 304 000 175|210 260 265 17; SET125; JP299;
7021/5: 304 000 176|210 260 265 18; SET126; JP299;
7022/5: 300 016 177|170 376 2; V2P295; =Q15;
7023/4: 171 370|171 350|036|042|205 056 032 23; C15; C14; -; DUP; J3≥Z;
7025/1: 052|171 356|202 336 264 ERASE; Q14; JS2P295;
7026/1: 042|170 364|033|027|170 362 DUP; =I15; NOT; NEG; =M15;
7027/2: 170 356|304 000 037|170 370|171 376|042 =Q14; SET31; =C15; Q15; DUP;
7031/0: 171 364|170 362|101 360|170 376|204 276 023 I15; =M15; =M0M15; =Q15; J23;
7032/5: 170 370|171 364|170 322|100 320|170 276 3; =C15; I15; =M13; M0M13; =Q11;
7034/3: 171 350|042|172 262|172 270|171 276 C14; DUP; =+M11; =+C11; Q11;
7036/0: 101 320|157 375|171 350|172 322|171 336 =M0M13; Q15TOQ13; C14; =+M13; Q13;
7037/4: 301 016 177|144 360|200 360 000 =V2P295; I15=+1; EXIT1;
[ == Page 120
=== Start P294V12; at address 3630/7056
P294V12; (READ);
V-store at 07043 = 152 115 074 045 346 215 V2=B3244647411363215;
V-store at 07044 = 043 166 111 037 002 054 V3=B1067311107601054;
V-store at 07045 = 117 254 176 167 152 123 V4=B2372617635665123;
V-store at 07046 = 127 162 066 342 017 101 V5=B2567106670407501;
V-store at 07047 = 331 126 271 240 320 035 V6=B6625327150150035;
V-store at 07051 = 000 000 000 003 051 141 V8=B624541;
V-store at 07052 = 220 000 000 000 000 000 V9=B4400000000000000;
V-store at 07053 = 004 020 101 004 242 212 V10=B0101010101121212;
V-store at 07054 = 220 000 000 001 004 020 V11=B4400000000202020;
V-store at 07055 = 000 002 000 001 016 051 V12=Q2/1/AV8;
7056/0: 201 336 267 JS4P295;
7056/3: 156 007|156 010|304 000 012|041|203 216 060 CI0TOQ7; CI0TOQ8; SET10; ZERO; J1NV;
7060/2: 033 NOT;
7060/3: 301 016 050|157 011|041|033|065 1; =V7; Q0TOQ9; ZERO; NOT; REV;
7061/5: 171 344|170 162|205 276 070 I14; =M7; J8;
7063/0: 143 220 *2; DC9;
7063/2: 043|034|202 156 066 3; DUPD; ×D; J5≠Z;
7064/1: 065|052|177 220 REV; ERASE; J2C9NZS;
7064/5: 042|171 202|056|201 216 070 4; DUP; M8; +; J7NV;
7066/0: 143 220 DC9;
7066/2: 143 160|260 216 155 5; DC7; J24C8NZ;
7067/1: 304 000 001|172 230|065 6; SET1; =+C9; REV;
7070/1: 012|052|140 220 7; PERM; ERASE; M+I9;
7070/5: 204 336 344|201 276 171 8; JS6P295; J34;
7071/5: 171 162|171 344|036|205 156 171 M7; I14; -; J35≠Z;
7073/1: 043|170 202|036|202 056 100 23; DUPD; =M8; -; J10≥Z;
7074/2: 065|042|261 176 067 REV; DUP; J6C7NZ;
7075/1: 145 160|265 216 076 I7=-1; J9C8NZ;
[ == Page 121
[ Page 121
7076/0: 171 202|221 156 067 M8; J6=Z;
7076/5: 202 056 063 9; J3≥Z;
7077/2: 033|154 011|205 276 064 NOT; C0TOQ9; J4;
7100/2: 042|171 202|036|033|042 10; DUP; M8; -; NOT; DUP;
7101/2: 221 116 113 J15>Z;
7101/5: 145 160|263 216 161 I7=-1; J25C8NZ;
7102/4: 223 156 111 J14=Z;
7103/1: 065|042|205 056 104 REV; DUP; J11≥Z;
7104/0: 244 236 104 J13C9Z;
7104/3: 033 NOT;
7104/4: 027 13; NEG;
7104/5: 171 204|205 056 105 11; I8; J12≥Z;
7105/4: 027 NEG;
7105/5: 152 010|301 016 041|171 236|301 016 042|157 011 12; I0TOQ8; =V0; Q9; =V1; Q0TOQ9;
7107/5: 143 200|041|033|065|154 007 DC8; ZERO; NOT; REV; C0TOQ7;
7111/0: 205 276 070 J8;
7111/3: 171 224|205 156 162 14; I9; J26≠Z;
7112/2: 144 220|205 276 070 I9=+1; J8;
7113/1: 304 000 266|222 036 120 15; SET182; J17=;
7114/1: 304 000 306|204 036 121 SET198; J18≠;
7115/1: 052|171 204|145 200 ERASE; I8; I8=-1;
7116/0: 200 156 164 16; J27≠Z;
7116/3: 145 160|065|042|201 056 165 I7=-1; REV;DUP; J28≥Z;
7117/4: 065|205 276 070 REV; J8;
7120/2: 052|171 204|144 200|200 276 116 17; ERASE; I8; I8=+1; J16;
7121/4: 052|171 164|225 156 070 18; ERASE; I7; J8=Z;
7122/4: 171 202|304 000 236|221 036 171 M8; SETB236; J34=;
7124/0: 304 000 240|221 036 171 SETB240; J34=;
7125/0: 304 000 256|221 036 171 SETB256; J34=;
[ == Page 122
[ Page 122
7126/0: 052 ERASE;
7126/1: 052|042|204 056 127 36; ERASE; DUP; J19≥Z;
7127/0: 241 236 166 J29C9Z;
7127/3: 033 NOT;
7127/4: 171 222|171 224|056|027|033 19; M9; I9; +; NEG; NOT;
7130/5: 221 156 167 J30=Z;
7131/2: 171 204|202 056 132 I8; J20≥Z;
7132/1: 027 NEG;
7132/2: 243 216 134 20; J21C8Z;
7132/5: 300 016 042|170 236|172 230|300 016 041 V1; =Q9; =+C9; V0;
7134/3: 171 230|171 222|036|171 202|205 337 135 21; C9; M9; -; M8; JS10P295;
7136/1: 201 337 110 JS8P295;
7136/4: 300 016 043|034|162 005|043|016 22; V2; ×D; SHAD+2; DUPD; ROUND;
7140/0: 042|170 216|041|065|053 DUP; =Q8; ZERO; REV; -D;
7141/0: 050|042|042|035|161 363 CONT; DUP; DUP; ×; SHA-7;
7142/0: 042|300 016 044|035|300 016 045|056 DUP; V3; ×; V4; +;
7143/3: 065|300 016 046|056|300 016 047|065 REV; V5; +; V6; REV;
7145/0: 060|056|065|161 371|043 ÷; +; REV; SHA-4; DUPD;
7146/0: 056|012|036|161 003|060 +; PERM; -; SHA+1; ÷;
7147/0: 065|042|041|024|045 REV; DUP; ZERO; FLOAT; FIX;
7147/5: 027|170 230|052|164 220|035 NEG; =C9; ERASE; SHLC9; ×;
7151/0: 171 216|304 000 060|056|171 230|036 Q8; SET48; +; C9; -;
7152/3: 212 320 230|221 216 170 JS163P295; J33V;
7153/3: 300 016 050|161 141|052|200 360 000 V7; SHA+48; ERASE; EXIT1;
7155/0: 052|304 000 177 24; ERASE; SET127;
7155/4: 066|052 31; CAB; ERASE;
7156/0: 300 016 055|012|300 016 053|310 043 053|067 32; V12; PERM; V10; Y11M2; FRB;
7157/5: 300 016 054|011|301 016 052|210 260 265 V11; OR; =V9; JP299;
7161/3: 052|052|304 000 200|200 276 156 25; ERASE; ERASE; SET128; J32;
[ == Page 123
[ page 123
7162/5: 052|304 000 201|200 276 156 26; ERASE; SET129; J32;
7164/0: 052|304 000 202|200 276 156 27; ERASE; SET130; J32;
7165/1: 304 000 203|204 276 155 28; SET131; J31;
7166/1: 304 000 204|200 276 156 29; SET132; J32;
7167/1: 304 000 205|200 276 156 30; SET133; J32;
7170/1: 304 000 206|200 276 156 33; SET134; J32;
7171/1: 052|205 276 070 34; ERASE; J8;
7171/5: 171 162|033|027|170 344 35; M7; NOT; NEG; =I14;
7172/5: 171 164|221 156 073 I7; J23=Z;
7173/4: 170 202|201 276 126 =M8; J36;
=== Start P295V40; at address 3750/7246
V-store at 07175 = 367 337 175 367 337 175 P295V40; V0=B7575757575757575;
V-store at 07176 = 377 377 377 377 377 377 V1=-1;
V-store at 07200 = 000 000 000 001 016 201 V3=Q0/1/AV4;
V-store at 07201 = 000 004 000 002 016 202 V4=Q4/2/AV5;
V-store at 07212 = 377 377 377 377 377 377 V13=-1;
V-store at 07232 = 000 004 000 001 022 176 V29=Q4/1/AW2;
V-store at 07235 = 000 001 010 011 007 311 V32=Q1/AV71P263/AV7P263;
V-store at 07240 = 000 000 016 241 016 241 V35=Q0/AV36/AV36;
V-store at 07241 = 377 377 377 377 377 377 V36=-1;
V-store at 07242 = 000 000 016 243 016 245 V37=Q0/AV38/AV40;
1; (FIND DEVICE P IN DIRECTORY); [ entry 1
7246/0: 171 356|065 Q14; REV;
7246/3: 300 016 200|170 376|100 360|170 356 V3; =Q15; M0M15; =Q14;
7250/0: 245 376 255 45; J47C15Z;
7250/3: 264 356 251 J46C14NZ;
7251/0: 100 340|170 356 M0M14; =Q14;
7251/4: 102 340|143 360|164 301|164 101|161 301 46; M0M14Q; DC15; SHL-32; SHL+32; SHA-32;
[ == Page 124
[ page 124
7253/2: 026|200 036 250 ABS; J45≠;
7254/0: 052|141 340|171 342|065|170 356|202 360 001 ERASE; M-I14; M14; REV; =Q14; EXIT2;
7255/5: 052|260 356 263 47; ERASE; J48C14NZ;
7256/3: 171 342|202 336 264 M14; JS2;
7257/2: 170 362|170 342|146 360|304 000 017|170 370 =M15; =M14; I15=+2; SET15; =C15;
7261/1: 171 376|101 340|041|033|301 360 036 Q15; =M0M14; ZERO; NOT; =E30M15;
7262/4: 157 376 Q15TOQ14;
7263/0: 171 356|065|170 356|200 360 000 48; Q14; REV; =Q14; EXIT1;
2; (SEARCH FOR A FREE BUFFER); [ entry 2
7264/2: 210 260 236 28; JP297;
7264/5: 300 016 176|042|170 342|110 340|301 016 176 29; V1; DUP; =M14; M0M14N; =V1;
7266/4: 200 360 000 EXIT1;
4; (INITIALIZE FETCH BASIC SYMBOL); [ entry 4
7267/1: 202 336 275 JS42;
7267/4: 041|301 016 222|200 360 000 ZERO; =V21; EXIT1;
3; (INITIALIZE FETCH NEXT CHARACTER); [ entry 3
7270/5: 202 336 275 JS42;
7271/2: 300 016 222|225 056 274 49; V21; J43<Z;
7272/2: 240 336 274 J52C13Z;
7272/5: 212 320 166 JS200;
7273/2: 157 015|154 016 Q0TOQ13; C0TOQ14;
7274/0: 041|033|301 016 222 52; ZERO; NOT; =V21;
7274/5: 200 360 000 43; EXIT1;
7275/2: 200 336 246 42; JS1;
7275/5: 211 260 164 J217;
7276/2: 170 242|100 240|042|232 040 167 =M10; M0M10; DUP; J202<Z;
7277/4: 170 276|171 262|202 116 321 =Q11; M11; J40≤Z;
7300/5: 110 260|304 000 002|167 365 M0M11N; SET2; SHC-6;
7302/0: 221 036 321 J36=;
[ == Page 125
[ page 125
7302/3: 170 376|100 360|301 016 213|140 360|171 376 =Q15; M0M15; =V14; M+I15; Q15;
7304/2: 301 016 214 =V15;
7304/5: 110 240|170 376|041|171 370|200 056 307 41; M0M10N; =Q15; ZERO; C15; J44≥Z;
7306/3: 033|142 360 NOT; NC15;
7307/0: 301 016 222|154 372|171 364|042|301 016 221 44; =V21; C15TOQ10; I15; DUP; =V20;
7310/5: 042|041|065|304 010 076|015|224 156 312|033 DUP; ZERO; REV; SETAV2P264; NEV; J240=Z; NOT;
7312/4: 301 016 236 240; =V33;
7313/1: 027|033|170 342|171 362|100 340 NEG; NOT; =M14; M15; M0M14;
7314/3: 164 341|164 041|011|301 016 215 SHL-16; SHL+16; OR; =V16;
7315/5: 145 360|140 360|102 360|170 336|102 360|170 356 I15=-1; M+I15;M0M15Q; =Q13; M0M15Q; =Q14;
7317/5: 100 360|301 016 223|200 360 000 M0M15; =V22; EXIT1;
7321/1: 052 36; ERASE;
7321/2: 041|042|301 016 213|301 016 214|205 276 304 40; ZERO; DUP; =V14; =V15; J41;
5; (FETCH NEXT CHARACTER); [ entry 5
7323/1: 204 337 145 JS57;
7323/4: 203 276 335 J216;
7324/1: 042|167 377|042|170 362|104 376 DUP; SHC-1; DUP; =M15; M14M15H;
7325/3: 065|203 056 326 REV; J63≥Z;
7326/1: 164 031 SHL+12;
7326/3: 041|166 011|042|224 156 336 63; ZERO; SHLD+4; DUP; J39=Z;
7327/4: 033|027|167 373|164 377|203 156 334 NOT; NEG; SHC-3; SHL-1; J66≠Z;
7331/1: 047|162 261|050|042|172 342 STR; SHAD-40; CONT; DUP; =+M14;
7332/2: 052 38; ERASE;
7332/3: 171 342|300 016 221|036|164 005|011 64; M14; V20; -; SHL+2; OR;
7334/0: 200 360 000 EXIT1;
7334/3: 052 66; ERASE;
7334/4: 154 016|203 276 332 65; C0TOQ14; J64;
7335/3: 052|304 000 075|204 276 334 216; ERASE; SETB75; J65;
[ == Page 126
[ page 126
7336/4: 052|047|162 261|050|042 39; ERASE; STR; SHAD-40; CONT; DUP;
7337/4: 033|222 156 343 NOT; J37=Z;
7340/2: 171 350|222 036 332 C14; J38=;
7341/1: 170 350|300 016 216|033|027|301 016 216 =C14; V17; NOT; NEG; =V17;
7342/5: 203 276 332 J64;
7343/2: 262 356 332 37; J38C14NZ;
7343/5: 170 350|203 276 332 =C14; J64;
6; (FETCH BASIC SYMBOL); [ entry 6
7344/4: 171 344|301 016 216 I14; =V17;
7345/3: 001|202 337 047 74; VR; JS75;
7346/1: 200 277 046 J69;
7346/4: 042|201 056 350 DUP; J76≥Z;
7347/2: 161 271|200 277 046 SHA-36; J69;
7350/1: 042|164 005|161 003|225 057 036 76; DUP; SHL+2; SHA+1; J77<Z;
7351/3: 225 216 352 J78V;
7352/0: 171 324|224 057 037 I13; J79<Z;
7352/5: 171 322|301 016 217|171 316|301 016 237|300 016 215 78; M13; =V18; Q12; =V34; V16;
7355/0: 164 341|170 303|145 300|145 340|144 320 SHL-16; =RM12; I12=-1; I14=-1; I13=+1;
7356/4: 104 014|143 300|164 025|065|201 276 365 M12M0H; DC12; SHL+10; REV; J80;
7360/2: 171 310|027|167 377|042|170 362 81; C12; NEG; SHC-1; DUP; =M15;
7361/4: 104 374|065|200 056 363 M12M15H; REV; J82≥Z;
7362/4: 164 031 SHL+12;
7363/0: 143 300|200 360 000 82; DC12; EXIT1;
7363/5: 052 123; ERASE;
7364/0: 052 83; ERASE;
7364/1: 202 337 047 84; JS75;
7364/4: 205 277 045 J68;
7365/1: 042|164 011|164 261 80; DUP; SHL+4; SHL-40;
7366/0: 304 000 236|225 036 363 SETB236; J123=;
[ == Page 127
[ page 127
7367/0: 304 000 240|225 036 363 SETB240; J123=;
7370/0: 304 000 256|225 036 363 SETB256; J123=;
7371/0: 052|171 324|167 375|203 056 373 ERASE; I13; SHC-2; J85≥Z;
7372/2: 042|033|164 245|220 156 364 DUP; NOT; SHL-46; J83=Z;
7373/3: 265 336 377 85; J86C13NZ;
7374/0: 042|300 016 215|170 376|105 337|171 322 DUP; V16; =Q15; =M15M13H; M13;
7375/4: 033|027|042|170 322|171 370 NOT; NEG; DUP; =M13; C15;
7376/5: 036|225 056 377 -; J86<Z;
7377/3: 151 015 M0TOQ13;
7377/5: 041|166 011|170 370|041|033 86; ZERO; SHLD+4; =C15; ZERO; NOT;
7401/0: 027|164 360|167 371|042|170 376 NEG; SHLC15; SHC-4; DUP; =Q15;
7402/2: 066|161 375|054|223 157 024 CAB; SHA-2; AND; J87=Z;
7403/3: 042|164 261|164 121|202 336 360 88; DUP; SHL-40; SHL+40; JS81;
7404/5: 015|041|166 021|200 157 017 NEV; ZERO; SHLD+8; J89≠Z;
7406/0: 065|052|042|202 057 007 REV; ERASE; DUP; J90≥Z;
7407/0: 143 300 DC12;
7407/2: 164 003|171 370|033|164 107|167 003 90; SHL+1; C15; NOT; SHL+35; SHC+1;
7410/5: 171 324|164 377|011|164 003|170 324 I13; SHL-1; OR; SHL+1; =I13;
7412/2: 041|166 003|221 156 364 ZERO; SHLD+1; J84=Z;
7413/2: 202 336 360 JS81;
7413/5: 164 271|170 344|171 324|042|167 375 SHL-36; =I14; I13; DUP; SHC-2;
7415/2: 222 057 021 J91<Z;
7415/5: 033|027|170 324|201 276 364 NOT; NEG; =I13; J84;
7417/0: 203 057 024 89; J87≥Z;
7417/3: 202 336 360 JS81;
7420/0: 164 271|027|170 310|203 277 003 SHL-36; NEG; =C12; J88;
7421/2: 152 354|052|171 322|301 016 217|042 91; I14TOQ12; ERASE; M13; =V18; DUP;
7422/5: 164 245|224 157 030 SHL-46; J92=Z;
[ == Page 128
[ page 128
7423/4: 152 015|201 276 364 I0TOQ13; J84;
7424/3: 171 324|304 000 001|015|171 370|164 355 87; I13; SET1; NEV; C15; SHL-10;
7426/1: 011|164 133|204 157 030 OR; SHL+45; J92≠Z;
7427/1: 171 322|027|033|301 016 217|152 354 M13; NEG; NOT; =V18; I14TOQ12;
7430/4: 052|171 322|300 016 217|042|170 322 92; ERASE; M13; V18; DUP; =M13;
7432/1: 036|042|201 057 034 -; DUP; J93≥Z;
7433/0: 300 016 215|164 301|172 330 V16; SHL-32; =+C13;
7434/1: 172 330|171 304|300 016 237|170 316|042 93; =+C13; I12; V34; =Q12; DUP;
7435/5: 032|222 057 042 MAX; J94<Z;
7436/3: 164 111 SHL+36;
7436/5: 152 015|204 217 041 77; I0TOQ13; J95NV;
7437/4: 300 016 216|170 344|164 011|164 261|202 360 001 79; V17; =I14; SHL+4; SHL-40; EXIT2;
7441/4: 052|203 276 345 95; ERASE; J74;
7442/2: 001|164 245|042|171 324|054 94; VR; SHL-46; DUP; I13; AND;
7443/3: 164 377|203 157 045 SHL-1; J96≠Z;
7444/2: 164 037|170 324|203 276 345 SHL+15; =I13; J74;
7445/3: 033|042 96; NOT; DUP;
7445/5: 052 68; ERASE;
7446/0: 300 016 216|170 344|200 360 000 69; V17; =I14; EXIT1;
7447/2: 242 337 064 75; (FETCH CASELESS CHARACTERS); J97C13Z;
7447/5: 300 016 215|170 376|104 337|143 320|242 337 054 V16; =Q15; M15M13H; DC13; J98C13Z;
7451/5: 171 322|033|027|042|170 322 M13; NOT; NEG; DUP; =M13;
7453/0: 171 370|036|202 117 054 C15; -; J98≤Z;
7454/0: 151 015 M0TOQ13;
7454/2: 202 360 001 98; EXIT2;
7454/5: 017|171 350|205 037 102 *99; C14; J101≠;
7455/5: 017|052|202 277 064 *100; ERASE; J97;
7456/4: 017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017|017
*; DUMMY; *DUMMY; *DUMMY; *DUMMY;
7462/1: 017|017|017|017|017|304 000 377|212 260 170 *; SETB377; J203;
[ == Page 129
[ page 129
7464/0: 172 342 *; =+M14;
7464/2: 204 337 145 97; JS57;
7464/5: 205 277 106 J102;
7465/2: 167 377|042|170 362|104 376|065 SHC-1; DUP; =M15; M14M15H; REV;
7466/4: 203 057 067 J103≥Z;
7467/1: 164 031 SHL+12;
7467/3: 042|221 057 072 103; DUP; J104<Z;
7470/1: 041|166 011|174 000|047|162 261 ZERO; SHLD+4; =LINK; STR; SHAD-40;
7471/3: 050|202 377 055 CONT; EXITAR99;
7472/1: 164 003|042|223 057 075 104; SHL+1; DUP; J105<Z;
7473/1: 263 357 074 J106C14NZ;
7473/4: 164 377|202 360 001 SHL-1; EXIT2;
7474/3: 164 267 106; SHL-37;
7474/5: 041|204 277 077 109; ZERO; J107;
7475/3: 164 267|171 350|220 037 056 105; SHL-37; C14; J100=;
7476/4: 042|304 004 000|036|065 DUP; SETB2000; -; REV;
7477/4: 171 350|033|225 157 101 107; C14; NOT; J108=Z;
7500/4: 170 350|164 111|202 360 001 =C14; SHL+36; EXIT2;
7501/5: 052|170 350|210 260 177 108; ERASE; =C14; J204;
7502/5: 171 350|033|220 117 056 101; C14; NOT; J100>Z;
7503/5: 042|170 350|033|222 157 064 DUP; =C14; NOT; J97=Z;
7505/0: 300 016 216|033|027|301 016 216|202 277 064 V17; NOT; NEG; =V17; J97;
7506/5: 042|033|205 157 074 102; DUP; NOT; J109≠Z;
7507/4: 200 360 000 EXIT1;
7; 8; (PRESERVE FETCH NEXT BASIC SYMBOL/NEXT CHARACTER); [ entry 7 [ entry 8
7510/1: 110 240|042|170 363|141 360|171 336 M0M10N; DUP; =RM15; M-I15; Q13;
7511/4: 101 360|141 360|171 356|101 360|170 376 =M0M15; M-I15; Q14; =M0M15; =Q15;
7513/2: 300 016 222|204 057 114 V21; J67≥Z;
7514/2: 142 360 NC15;
[ == Page 130
[ page 130
7514/4: 300 016 221|170 364|171 376|111 240|300 016 214|170 376|141 360
67; V20; =I15; Q15; =M0M10N; V15; =Q15; M-I15;
7517/2: 171 262|201 117 123 M11; J21≤Z;
7520/1: 171 262|171 362|036|033|222 157 122 M11; M15; -; NOT; J35=Z;
7521/4: 171 376|111 260 Q15; =M0M11N;
7522/2: 300 016 213|101 360 35; V14; =M0M15;
7523/1: 171 276|101 240|200 360 000 21; Q11; =M0M10; EXIT1;
9; (RETAIN CHARACTER); [ entry 9
7524/2: 164 125|041|300 016 213|166 365|066 SHL+42; ZERO; V14; SHLD-6; CAB;
7525/5: 011|065|042|200 157 130 OR; REV; DUP; J34≠Z;
7526/5: 052|301 016 213|200 360 000 ERASE; =V14; EXIT1;
7530/0: 301 016 213|300 016 214|170 376|141 360|171 262 34; =V14; V15; =Q15; M-I15; M11;
7532/0: 171 362|036|033|230 140 200 M15; -; NOT; J205=Z;
7533/1: 171 370|033|027|170 370|101 360 C15; NOT; NEG; =C15; =M0M15;
7534/3: 171 376|301 016 214|200 360 000 Q15; =V15; EXIT1;
10; (RETAIN BASIC SYMBOL); [ entry 10
7535/5: 304 001 000|011|164 111|300 016 215|170 376 SETB400; OR; SHL+36; V16; =Q15;
7537/4: 245 337 143 J33C13Z;
7540/1: 171 370|171 330|036|210 100 201 C15; C13; -; J206≤Z;
7541/3: 171 370|171 322|223 157 143 C15; M13; J32=Z;
7542/4: 052|171 322|027|033 ERASE; M13; NEG; NOT;
7543/3: 170 322 32; =M13;
7543/5: 171 330|033|027|170 330|105 337 33; C13; NOT; NEG; =C13; =M15M13H;
7545/1: 200 360 000 EXIT1;
57; (FETCH CHARACTER);
7545/4: 041|300 016 213 ZERO; V14;
7546/2: 041|166 015|012|011|042 58; ZERO; SHLD+6; PERM; OR; DUP;
7547/2: 224 157 155 J60=Z;
7547/5: 301 016 213|300 016 223|214 320 105 =V14; V22; JS140;
7551/2: 201 277 154 J59;
[ == Page 131
[ page 131
7551/5: 041|042|301 016 213|301 016 214|304 000 075 ZERO; DUP; =V14; =V15; SETB75;
7553/4: 224 037 154 J62=;
7554/1: 202 360 001 59; EXIT2;
7554/4: 164 365|033|200 360 000 62; SHL-6;NOT; EXIT1;
7555/4: 052|300 016 214|170 376|262 377 160 60; ERASE; V15; =Q15; J61C15NZ;
7557/1: 200 337 163 JS50;
7557/4: 164 365|033|027 SHL-6; NOT; NEG;
7560/2: 102 360|171 376|301 016 214|202 277 146 61; M0M15Q; Q15; =V15; J58;
7562/0: 204 337 224 51; JS70;
7562/3: 204 337 236 JS73;
7563/0: 171 264|223 117 166 50; I11; J53>Z;
7563/5: 171 264|220 157 162 I11; J51=Z;
7564/4: 171 264|033|234 140 212 I11; NOT; J210=Z;
7565/4: 152 013|200 277 162 I0TOQ11; J51;
7566/3: 171 264|170 362|100 360|170 376|171 270 53; I11; =M15; M0M15; =Q15; C11;
7570/1: 042|304 000 024|036|304 000 033|066 DUP; SET20; -; SET27; CAB;
7571/4: 036|011|220 057 203 -; OR; J168<Z;
7572/3: 120 370|205 357 213 MBTQ15; J169NTR; [h/w LH mark
7573/2: 300 016 236|220 157 203 V33; J168=Z;
7574/2: 041|301 016 236|300 010 074|033|225 157 217 ZERO; =V33; V0P264; NOT; J178=Z;
7576/1: 304 010 076 SETAV2P264;
7576/4: 042|301 016 221|170 343|143 340|141 340 167; DUP; =V20; =RM14; DC14; M-I14;
7600/2: 102 340|164 341|300 016 215|164 101|065 M0M14Q; SHL-16; V16; SHL+32; REV;
7602/0: 166 041|301 016 215|052 SHLD+16; =V16; ERASE;
7603/0: 121 360|230 340 203 168; PARQ15; J208TR;
7603/5: 100 360 M0M15;
7604/1: 042|221 157 207 196; DUP; J197=Z;
7604/5: 041|166 015|304 000 075|015|201 157 204 ZERO; SHLD+6; SETB75; NEV; J196≠Z;
7606/3: 052|202 277 221 ERASE; J54;
[ == Page 132
[ page 132
7607/1: 052|204 337 224 197; ERASE; JS70;
7607/5: 204 337 236 55; JS73;
7610/2: 100 260|170 376|171 364|170 363|304 000 036 56; M0M11; =Q15; I15; =RM15; SET30;
7612/1: 170 370|171 376|301 016 214|200 360 000 =C15; Q15; =V15; EXIT1;
7613/5: 300 016 236|200 157 203 169; V33; J168≠Z;
7614/5: 041|033|301 016 236|300 006 247|033 ZERO; NOT; =V33; V0P260; NOT;
7616/2: 225 157 217 J178=Z;
7616/5: 304 006 251|204 277 176 SETAV2P260; J167;
7617/5: 304 000 240|210 260 265 178; SET160; JP299;
7620/5: 052|052|052 149; ERASE; ERASE; ERASE;
7621/2: 171 262|225 157 207 54; M11; J55=Z;
7622/1: 300 016 176|111 260|171 262|301 016 176|151 013 V1; =M0M11N; M11; =V1; M0TOQ11;
7624/1: 205 277 207 J55;
7624/4: 204 337 227 70; JS72;
7625/1: 300 016 175|101 360|120 364|221 357 241|125 360 177; V0; =M0M15; MLBQ15; J175TR; PREQ15;
7627/1: 200 360 000 EXIT1;
7627/4: 171 262|224 117 232 72; M11; J71>Z;
7630/3: 171 336|171 356|202 336 264 Q13; Q14; JS2;
7631/4: 170 262|170 356|170 336 =M11; =Q14; =Q13;
7632/4: 171 262|042|304 000 002|056|170 364 71; M11; DUP; SET2; +; =I15;
7634/1: 304 000 037|056|170 362|154 257|171 376 SET31; +; =M15; C10TOQ15; Q15;
7635/5: 101 260|200 360 000 =M0M11; EXIT1;
7636/4: 171 262|171 264|170 262|170 264|171 276 73; M11; I11; =M11; =I11; Q11;
7640/2: 101 240|200 360 000 =M0M10; EXIT1;
7641/1: 171 316|154 374|211 320 137 175; Q12; C15TOQ12; JS174;
7642/2: 136 310|171 310|300 016 242|170 316|041 MRWDQ12; C12; V37; =Q12; ZERO;
7644/0: 301 016 245|170 310|211 320 137 =V40; =C12; JS174;
7645/2: 124 300|211 320 137|300 016 245 MFRQ12; JS174; V40;
[ == Page 133
[ page 133
7646/4: 300 016 244|304 000 004|200 220 000 176; V39; SET4; OUT;
7650/1: 171 310|304 000 006|200 220 000 C12; SET6; OUT;
7651/3: 110 240|170 316|170 310|171 316|111 240 M0M10N; =Q12; =C12; Q12; =M0M10N;
7653/1: 154 312|211 320 137|171 310|300 016 242|170 316|170 310 C12TOQ10; JS174; C12; V37; =Q12; =C12;
7655/3: 124 300|300 016 245|027|033|224 037 246 MFRQ12; V40; NEG; NOT; J176=;
7657/1: 154 317|052|170 316|201 277 225 C12TOQ15; ERASE; =Q12; J177;
19; (INITIALIZE OUTPUT BASIC SYMBOL AND CHARACTER); [ entry 19
7660/3: 300 016 235|301 016 231|041|042|033 V32; =V28; ZERO; DUP; NOT;
7662/0: 170 230|301 016 233|200 360 000 =C9; =V30; EXIT1;
7663/2: 042|200 336 246 12;11; DUP; JS1; [ entry 11 [ entry 12 open output stream
7664/0: 212 260 163 J201;
7664/3: 170 202|052|100 200|170 236|240 237 267 =M8; ERASE; M0M8; =Q9; J154C9Z;
7666/1: 171 230|200 057 302 C9; J146≥Z;
7667/0: 110 200|170 376|156 370|100 360|301 016 231 154; M0M8N; =Q15; CI15TOQ8; M0M15; =V28;
7670/5: 110 360|041|166 031|164 031|166 031 M0M15N; ZERO; SHLD+12; SHL+12; SHLD+12;
7672/2: 301 016 234|041|166 031|170 230|167 031 =V31; ZERO; SHLD+12; =C9; SHC+12;
7674/0: 301 016 233|300 360 002|301 016 226|300 360 003|301 016 227 =V30; E2M15; =V25; E3M15; =V26;
7676/3: 171 222|204 117 347 M9; J148≤Z;
7677/2: 110 220|042|301 016 225|170 376|100 360 M0M9N; DUP; =V24; =Q15; M0M15;
7701/0: 301 016 224|200 360 000 =V23; EXIT1;
7702/0: 171 222|033|230 140 202 146; M9; NOT; J207=Z;
7703/0: 304 000 241|210 260 265 SET161; JP299;
13; (OUTPUT CHARACTER); [ entry 13
7704/0: 300 016 226|214 320 105 V25; JS140;
7705/0: 200 277 363 J129;
7705/3: 300 016 234|164 321|170 230 V31; SHL-24; =C9;
7706/4: 171 204|201 057 326 147; I8; J180≥Z;
7707/3: 242 217 334 J171C8Z;
7710/0: 042 DUP;
[ == Page 134
[ page 134
7710/1: 215 320 100 JS144;
7710/4: 203 277 320 J181;
7711/1: 171 210|164 373|304 000 001|223 037 323 C8; SHL-3; SET1; J182=;
7712/5: 304 000 005|223 037 323|052|052 SET5; J182=; ERASE; ERASE;
7714/1: 041|300 016 224|166 365|301 016 224|215 320 000 ZERO; V23; SHLD-6; =V23; JS134;
7716/1: 141 360|100 360|164 365|166 015|103 360 M-I15; M0M15; SHL-6; SHLD+6; =M0M15Q;
7717/5: 052|205 277 334 255; ERASE; J135;
7720/3: 171 210|164 373|304 000 001|223 037 323 181; C8; SHL-3; SET1; J182=;
7722/1: 304 000 005|015|205 157 317 SET5; NEV; J255≠Z;
7723/2: 042 DUP;
7723/3: 052|304 000 075|015|222 157 334 182; ERASE; SETB75; NEV; J171=Z;
7724/5: 300 016 225|170 376|204 277 367 V24; =Q15; J219;
7726/1: 215 320 100 180; JS144;
7726/4: 205 277 334 J135;
7727/1: 100 200|170 376|171 370|026 M0M8; =Q15; C15; ABS;
7730/2: 042|304 000 062|036|304 000 071|066|036 DUP; SET50; -; SET57; CAB; -;
7732/0: 011|222 057 334 OR; J171<Z;
7732/4: 041|300 016 224|214 320 001 ZERO; V23; JS130;
7733/5: 205 277 334 J135;
7734/2: 215 320 000 171; JS134;
7734/5: 052|171 316|100 220|170 316|141 360 135; ERASE; Q12; M0M9; =Q12; M-I15;
7736/2: 151 374|171 204|220 057 342 M15TOQ12; I8; J136<Z;
7737/3: 121 300|230 340 203 PARQ12; J208TR;
7740/2: 122 300|232 340 111 METQ12; J179TR;
7741/1: 131 300|202 277 345 MWEQ12; J137;
7742/0: 171 210|111 220|171 222|033|027 136; C8; =M0M9N; M9; NOT; NEG;
7743/2: 170 304|154 014|171 316|304 000 010|200 220 000 =I12; C0TOQ12; Q12; SET8; OUT;
7745/2: 170 316|171 224|171 222|170 224|042 137; =Q12; I9; M9; =I9; DUP;
7746/5: 170 222|224 117 353 =M9; J139>Z;
[ == Page 135
[ page 135
7747/4: 171 222|223 157 351 148; M9; J138=Z;
7750/3: 171 222|033|230 140 202 M9; NOT; J207=Z;
7751/3: 171 336|171 356|202 336 264 138; Q13; Q14; JS2;
7752/4: 170 222|170 356|170 336 =M9; =Q14; =Q13;
7753/4: 171 222|042|304 000 002|056|170 364 139; M9; DUP; SET2; +; =I15;
7755/1: 304 000 037|056|170 362|154 217|171 376 SET31; +; =M15; C8TOQ15; Q15;
7756/5: 101 220|171 364|170 363|304 000 036|170 370 =M0M9; I15; =RM15; SET30; =C15;
7760/4: 171 376|301 016 225|304 000 002|301 016 224|200 360 000 132; Q15; =V24; SET2; =V23; EXIT1;
7763/0: 300 016 227|214 320 105 129; V26; JS140;
7764/0: 201 277 372 J131;
7764/3: 304 000 034|201 037 367 SETB34; J133≠;
7765/3: 261 217 372 J131C8NZ;
7766/0: 304 000 003|011|201 277 372 SETB3; OR; J131;
7767/1: 215 320 100 133; JS144;
7767/4: 245 377 334 219; J135C15Z;
7770/1: 052|200 360 000 ERASE; EXIT1;
7770/5: 171 210|205 157 373 172; C8; J166≠Z;
7771/4: 201 277 367 J133;
7772/1: 171 230|225 157 370 131; C9; J172=Z;
7773/0: 143 220|261 237 367 142; DC9; J133C9NZ;
7773/5: 300 016 233|300 016 230|304 000 002|215 320 005 166; V30; V27; SET2; JS18;
7775/5: 301 016 230|300 016 233|231 020 000 =V27; V30; J165=;
7777/2: 042|042|214 320 021 DUP; DUP; JS122;
10000/1: 052|200 277 373 165; ERASE; J142;
10000/5: 041|033|300 016 224 134; ZERO; NOT; V23;
10001/4: 162 015|214 200 001 130; SHAD+6; J130NV;
10002/3: 300 016 225|170 376|103 360|052|171 376 V24; =Q15; =M0M15Q; ERASE; Q15;
10004/1: 301 016 225|200 360 000 =V24; EXIT1;
17; (OUTPUT CASE CHARACTER); [ entry 17
[ == Page 136
[ page 136
10005/1: 042|214 260 021 DUP; J122;
18; (OUTPUT EDITING SYMBOL); [ entry 18
10005/5: 304 000 004|036|171 230|210 040 014 SET4; -; C9; J14≥Z;
110; (OUTPUT BASIC SYMBOL);
10007/2: 041|301 016 220|304 000 002|301 016 224|300 016 232 ZERO; =V19; SET2; =V23; V29;
10011/3: 301 016 225|210 320 014|215 320 000|300 016 220|200 360 000 =V24; JS14; JS134; V19; EXIT1;
10014/0: 042|042|304 000 377|036|230 100 204|211 320 056 14;DUP;DUP;SET255;-;J209>Z;JS124; [ entry 14
10016/0: 210 260 204 J209;
10016/3: 065|052|042|211 040 035 REV; ERASE; DUP; J115≥Z;
10017/3: 167 011 SHC+4;
10017/5: 041|166 005|300 016 233|235 020 026 116; ZERO; SHLD+2; V30; J111=; [ entry 116
10021/2: 042|033 DUP; NOT;
10021/4: 301 016 233|304 000 010|036|042|211 320 056 122; =V30; SET8; -; DUP; JS124;
10023/3: 212 260 207 J214;
10024/0: 065|052|164 015|164 255|212 260 027 REV; ERASE; SHL+6; SHL-42; J121;
10025/3: 300 016 233|033|301 016 233|042 113; V30; NOT; =V30; DUP;
10026/5: 052|164 255 111; ERASE; SHL-42;
10027/2: 171 230|231 040 032 121; C9; J112<Z;
10030/1: 200 337 304 JS13;
10030/4: 300 016 233|233 040 025 114; V30; J113<Z;
10031/4: 200 360 000 EXIT1;
10032/1: 300 016 220|033|027|301 016 220|215 320 100 112; V19; NOT; NEG; =V19; JS144;
10034/0: 250 360 201 J206C15Z;
10034/3: 052|214 260 030 ERASE; J114;
10035/1: 164 271|042|164 373|042|300 016 231 115; SHL-36; DUP; SHL-3; DUP; V28;
10036/4: 164 341|170 363|172 362|164 007|036 SHL-16; =RM15; =+M15; SHL+3; -;
10040/1: 164 007|102 360|171 376|301 016 217|065 SHL+3; M0M15Q; Q15; =V18; REV;
10041/5: 170 370|041|166 021|166 360|304 000 377 =C15; ZERO; SHLD+8; SHLDC15; SETB377;
10043/3: 054|301 016 230|041|033|027 AND; =V27; ZERO; NOT; NEG;
[ == Page 137
[ page 137
10044/4: 167 360|011 SHCC15; OR;
10045/1: 042|164 021|235 140 051 117; DUP; SHL+8; J119=Z;
10046/1: 042|215 320 017 DUP; JS116;
10046/5: 164 021 SHL+8;
10047/1: 300 016 230|027|033|042|301 016 230 120; V27; NEG; NOT; DUP; =V27;
10050/4: 211 140 045 J117≠Z;
10051/1: 052 ERASE;
10051/2: 200 360 000 118; EXIT1;
10051/5: 167 021|300 016 217|170 376|102 360|171 376 119; SHC+8; V18; =Q15; M0M15Q; Q15;
10053/4: 301 016 217|042|164 021|066|011 =V18; DUP; SHL+8; CAB; OR;
10055/0: 065|215 320 017 REV; JS116;
10055/4: 211 260 047 J120;
10056/1: 167 377|042|164 003|161 377|300 016 231 124; SHC-1; DUP; SHL+1; SHA-1; V28;
10057/5: 170 362|171 362|164 003|056|170 362 =M15; M15; SHL+1; +; =M15;
10061/2: 104 360|065|214 040 062 M0M15H; REV; J125≥Z;
10062/2: 164 031 SHL+12;
10062/4: 042|164 271|231 140 064 125; DUP; SHL-36; J126=Z;
10063/4: 202 360 001 EXIT2;
10064/1: 200 360 000 126; EXIT1;
15; 16; (PRESERVE STATE OF OUTPUT CHARACTER AND BASIC SYMBOL); [ entry 15 [ entry 16
10064/4: 100 200|164 301|211 140 070 M0M8; SHL-32; J153≠Z;
10065/5: 042|202 337 334 DUP; JS171;
10066/3: 211 320 070|041|204 335 221|200 360 000 173; JS153; ZERO; JS21P292; EXIT1;
10070/1: 110 200|170 376|110 360|300 016 233|166 351 153; M0M8N; =Q15; M0M15N; V30; SHLD-12;
10072/0: 052|171 230|166 351|052|167 321 ERASE; C9; SHLD-12; ERASE; SHC-24;
10073/2: 111 360|300 016 231|101 360|300 016 225|042 =M0M15N; V28; =M0M15; V24; DUP;
10075/1: 111 220|170 376|300 016 224|101 360|100 200 =M0M9N; =Q15; V23; =M0M15; M0M8;
10077/0: 164 301|170 230|171 236|101 200|200 360 000 SHL-32; =C9; Q9; =M0M8; EXIT1;
[ == Page 138
[ page 138
10100/5: 001|042|167 363|300 016 224|162 015 144; VR; DUP; SHC-7; V23; SHAD+6;
10102/2: 301 016 224|052|215 200 110 =V23; ERASE; J145NV;
10103/3: 300 016 225|170 376|300 016 224|103 360|204 277 360 V24; =Q15; V23; =M0M15Q; J132;
10105/4: 041|166 015|066|065|233 020 110 140; ZERO; SHLD+6; CAB; REV; J141=;
10107/0: 065|042|214 140 105 REV; DUP; J140≠Z;
10107/5: 052|200 360 000 ERASE; EXIT1;
10110/3: 065|052 141; REV; ERASE;
10110/5: 202 360 001 145; EXIT2;
10111/2: 131 300|211 320 137|171 310|300 016 240|170 316 179; MWEQ12; JS174; C12; V35; =Q12;
10113/2: 170 310|130 310|211 320 137 =C12; MLWQ12; JS174;
10114/3: 136 310|171 310|300 016 242|170 316|041|301 016 245 MRWDQ12; C12; V37; =Q12; ZERO; =V40;
10116/4: 170 310|211 320 137|124 300|211 320 137|300 016 244|300 016 245
=C12; JS174; MFRQ12; JS174; V39; V40;
10121/2: 171 310|304 000 006|200 220 000 C12; SET6; OUT;
10122/4: 041|304 000 004|200 220 000 ZERO; SET4; OUT;
10123/5: 110 200|170 316|170 310|171 316 M0M8N; =Q12; =C12; Q12;
10125/1: 111 200|211 320 137|171 310|300 016 242|170 316 =M0M8N; JS174; C12; V37; =Q12;
10127/1: 154 310|124 300|033|027|301 016 245|301 016 244 C12TOQ8; MFRQ12; NOT; NEG; =V40; =V39;
10131/1: 304 000 001|170 302|211 320 137 SET1; =M12; JS174;
10132/3: 136 300|304 016 245|170 302|211 320 137 MBSKQ12; SETAV40; =M12; JS174;
10134/1: 130 300 MWQ12;
10134/3: 304 002 016|170 302|211 320 137 SET526; =M12; JS174;
10135/5: 130 304|211 320 137 MWIPEQ12; JS174;
10136/4: 202 277 345 J137;
10137/1: 121 300|230 340 203 174; PARQ12; J208TR;
10140/0: 200 360 000 EXIT1;
30; (DECIMAL INTEGER TO CORRESPONDING BINARY
OCTAL REPRESENTATION); [ entry 30
10140/3: 300 016 175|033|042|164 005|042 V0; NOT; DUP; SHL+2; DUP;
10141/5: 012|011|066|067|043 PERM; OR; CAB; FRB; DUPD;
[ == Page 139
[ page 139
10142/4: 054|210 140 144 AND; J31≠Z;
10143/2: 013|202 360 001 TOB; EXIT2;
10144/0: 200 360 000 31; EXIT1;
10144/3: 170 350|255 340 146 150; =C14; J152C14Z; [ entry 150 [ output spaces
10145/2: 042|215 320 005 151; DUP; JS18;
10146/0: 143 340|272 340 145 DC14; J151C14NZ;
10146/5: 052|200 360 000 152; ERASE; EXIT1;
10147/3: 042|202 337 263 155; DUP; JS12; [ entry 155 [h/w from P299
10150/1: 304 000 002|215 320 005|214 320 064 SET2; JS18; JS16;
10151/4: 304 377 330|170 170 156; SET-40; =C7;
10152/3: 042|066|042|164 160 157; DUP; CAB; DUP; SHLC7;
10153/2: 214 320 214|304 000 057|024|066 JS212; SET47; FLOAT; CAB;
10154/4: 304 056 001|164 037|304 006 000|011|065 SETB27001; SHL+15; SETB3000; OR; REV;
10156/2: 171 170|311 002 174|200 334 153 C7; =W0; JSP291;
10157/4: 310 002 174|170 170 W0; =C7;
10160/3: 253 160 162 J158C7Z;
10161/0: 304 000 010|172 170|065|213 260 152 SET8; =+C7; REV; J157;
10162/3: 052|052|200 360 000 158; ERASE; ERASE; EXIT1;
10163/2: 052|042|231 140 165 201; ERASE; DUP; J215=Z;
10164/1: 304 000 230|210 260 265 217; SET152; JP299;
10165/1: 042|200 335 332 215; DUP; JSP293;
10165/5: 202 277 263 J11;
10166/2: 304 000 227|210 260 265 200; SET151; JP299;
10167/2: 304 000 231|210 260 265 202; SET153; JP299;
10170/2: 054|201 337 110|171 270|065|170 376 203; AND; JS8; C11; REV; =Q15;
10171/5: 171 344|171 176|171 216|171 236|171 376|214 320 214 I14; Q7; Q8; Q9; Q15; JS212;
10174/0: 215 320 317|170 236|170 216|170 176 JS3P299; =Q9; =Q8; =Q7;
10175/3: 065|201 336 267|170 344|202 277 064 REV; JS4; =I14; J97;
10177/0: 304 000 232|210 260 265 204; SET154; JP299;
[ == Page 140
[ page 140
10200/0: 304 000 233|210 260 265 205; SET155; JP299;
10201/0: 304 000 234|210 260 265 206; SET156; JP299;
10202/0: 304 000 235|210 260 265 207; SET157; JP299;
10203/0: 304 000 236|210 260 265 208; SET158; JP299;
10204/0: 052|214 320 064|171 230|026|065 209; ERASE; JS16; C9; ABS; REV;
10205/2: 214 320 214|215 320 320|202 337 263|200 360 000 JS212; JS4P299; JS12; EXIT1;
10207/2: 052|214 320 064|171 230|026|065 214; ERASE; JS16; C9; ABS; REV;
10210/4: 214 320 214|215 320 320|202 337 263|214 260 030 JS212; JS4P299; JS12; J114;
10212/4: 304 000 237|210 260 265 210; SET159; JP299;
10213/4: 304 000 050|210 260 265 211; SET40; JP299;
10214/4: 164 121|164 261|300 016 175|033|042 212; SHL+40; SHL-40; V0; NOT; DUP;
10216/1: 164 005|042|012|011|012 SHL+2; DUP; PERM; OR; PERM;
10217/1: 065|067|013|200 360 000 REV; FRB; TOB; EXIT1;
10220/1: 300 016 200|170 376|255 360 227 160; V3; =Q15; J161C15Z; [ entry 160 [h/w from P299
10221/3: 171 370|027|033|235 140 227 162; C15; NEG; NOT; J161=Z;
10222/4: 100 360|170 356|140 340|100 340|164 301|164 101|161 301|026 170; M0M15; =Q14; M+I14; M0M14; SHL-32; SHL+32; SHA-32; ABS;
10225/1: 200 335 177 JSP292;
10225/4: 300 016 200|170 376|143 360|274 360 222 V3; =Q15; DC15; J170C15NZ;
10227/2: 202 360 001 EXIT2;
10227/5: 200 360 000 161; EXIT1;
10230/2: 065|042|235 140 234 163; REV; DUP; J164=Z; [ entry 163
10231/1: 041|024|047|012|041 ZERO; FLOAT; STR; PERM; ZERO;
10232/0: 162 021|066|056|162 361|042 SHAD+8; CAB; +; SHAD-8; DUP;
10233/1: 234 040 234 J127<Z;
10233/4: 050|065|050 CONT; REV; CONT;
10234/1: 200 360 000 128; EXIT1;
10234/4: 052 127; ERASE;
10234/5: 052|052|041|211 260 234 164; ERASE; ERASE; ZERO; J128;
[ == Page 141
=== Start P297V-1; at address 4254/10236
10236/0: 171 376|300 000 001|164 061|164 321|304 000 001|036|170 362 P297; Q15; E1; SHL 24; SHL -24; SET 1; -; =M15;
10240/3: 100 360|304 000 040|036|164 367|164 013 M0M15; SET 32; -; SHL -5; SHL 5;
10242/1: 042|101 360|304 377 340|172 030|171 030 DUP; =M0M15; SET -32; =+C1; C1;
10243/5: 232 040 245 J1<Z;
10244/2: 065|170 376|200 360 000 REV; =Q15; EXIT 1;
10245/2: 304 000 001|200 323 033 1; SET 1; JSP5;
=== Start P299V13; at address 4277/10265
V-store at 10247 = 000 000 000 000 000 000 P299V13; V0=0; (DEVICE NO);
V-store at 10250 = 000 000 116 000 306 100 V1=B0000011600143100; (INT FORMAT);
V-store at 10251 = 000 273 337 014 071 251 V2=B0013573703034651;
V-store at 10252 = 215 215 050 235 021 014 V3=B4330645047210414; ([[c]FAIL*]); [ [[c]FAIL ]
V-store at 10253 = 024 027 216 235 000 000 V4=B0501361647200000;
V-store at 10254 = 215 215 050 235 024 216 V5=B4330645047212216; ([[c]I*CH*]);
V-store at 10255 = 016 023 216 235 000 000 V6=B0341161647200000;
V-store at 10256 = 215 215 050 235 032 216 V7=B4330645047215216; ([[c]O*CH*]);
V-store at 10257 = 016 023 216 235 000 000 V8=B0341161647200000;
V-store at 10260 = 215 216 216 036 044 027 V9=B4330721607422027; ([**SYLL]); [ [ SYLL]
V-store at 10261 = 027 235 000 000 000 000 V10=B0571640000000000;
V-store at 10262 = 000 003 376 001 060 100 V11=B0000177600230100; (SYLL FORMAT);
V-store at 10263 = 000 000 000 000 000 000 V12=0;
V-store at 10264 = 000 171 241 246 300 000 V13=B0007464151540000; (FAIL);
10265/0: 170 376|041 1; =Q15; ZERO;
10265/3: 171 030|304 000 100|036|235 040 322 C1; SET 64; -; J11<Z; (IF NO BUFFER SPACE);
10267/0: 052|230 300 270 5; ERASE; J6EJ;
10267/4: 173 000 LINK;
10270/0: 210 240 267 6; J5NEN;
10270/3: 171 376|042|304 020 252|041|311 000 263|304 020 263|170 365 Q15; DUP; SETAV3; ZERO; =V12; SETAV12; =RI15;
[^ ^[ _FAIL on monitor
10273/0: 304 020 264|170 362|171 376|304 000 010|200 220 000|066|170 376
SETAV13; =M15; Q15; SET8; OUT; CAB; =Q15;
[^ ^]
[ == Page 142
(PRINT FAIL ON MONITOR);
10275/4: 211 320 314 JS8;
10276/1: 171 102|304 000 006|034|050|304 000 060 M4; SET6; ×D; CONT; SET48;
10277/5: 171 110|036|164 373|056 C4; -; SHL-3; +;
10300/5: 304 020 260|310 000 247|200 334 037|304 000 057|024 SETAV9; V0; JSP288; SET47; FLOAT;
10303/0: 310 000 262|310 000 247|200 334 153 V11; V0; JSP291;
10304/3: 200 324 306 JSP31;
10305/0: 300 000 000|304 020 000|054|231 140 312 E0; SETB10000; AND; J9=Z;
10306/4: 171 022|171 064|036|170 030|145 020 M1; I3; -;=C1; I1=-1;
10310/1: 312 023 052|310 000 247|213 320 147|271 020 310 10; Y10M1Q; V0; JS155P295; J10C1NZ;
10312/1: 211 320 220 9; JS160P295;
10312/4: 017|017|017 DUMMY; DUMMY; DUMMY;
10313/1: 041|174 000 ZERO; =LINK;
10313/4: 200 325 335 JSP128;
10314/1: 310 000 247|200 334 037|304 000 057|024|310 000 250 8; V0; JSP288; SET47; FLOAT; V1;
10316/2: 310 000 247|200 334 153|200 360 000 V0; JSP291; EXIT1;
10317/5: 304 020 254|211 260 314 3; SETAV5; J8;
10320/5: 304 020 256|211 260 314 4; SETAV7; J8;
10321/5: 304 020 252|211 260 314 7; SETAV3; J8;
10322/5: 304 023 140|300 000 001|164 061|164 321|304 000 001|036 11; SET AY64; E1; SHL 24; SHL -24; SET 1; -;
10325/1: 170 342|101 340|304 000 100|170 030|210 260 267 =M14; =M0M14; SET64; =C1; J5;
=== Start P113V75; at address 4388/10444
V-store at 10336 = 017 017 017 017 017 017 P113V75; V6=B360741703607417;
V-store at 10365 = 034 054 351 267 133 041 V29=B0702635155655441;
V-store at 10366 = 322 120 200 277 135 034 V30=B6445020057656434;
V-store at 10367 = 034 052 156 303 135 034 V31=B0702515660656434;
V-store at 10410 = 000 000 020 370 021 007 V48=Q0/AV32/AV47;
V-store at 10412 = 000 044 052 054 062 066 V50=B2205213031066;
V-store at 10413 = 001 047 053 055 061 065 V51=B0022345313230465;
[ == Page 143
V-store at 10414 = 000 000 260 230 015 100 V52=B0000026046006500;
V-store at 10416 = 312 315 043 364 000 000 V54=B6254644375000000;
V-store at 10425 = 010 171 241 246 300 021 V61=B0207464151540021;
[h/w horizontal rule here
10444/0: 041|033|311 001 043|212 322 022 100; ZERO;NOT;=V75;JS12;
10445/2: 173 000|311 000 331|310 000 365|311 000 370 LINK; =V1; V29; =V32;
10447/1: 304 140 000|215 322 000 SETB60000; JS4;
10450/1: 311 000 331|310 000 366|311 000 371 =V1; V30; =V33;
10451/4: 310 001 010|170 376|131 360|214 322 162|214 261 051 154; V48; =Q15; TWEQ15; JS150; J154;
10453/5: 310 000 372|210 322 130|311 000 364 V34; JS69; =V28;
10455/2: 300 000 002|164 015|304 000 003|166 365|052 173; E2; SHL+6; SETB03; SHLD-6; ERASE;
10457/1: 311 000 370|300 000 003|311 000 371|300 000 007|311 000 373 =V32; E3; =V33; E7; =V35;
10461/4: 041|311 000 372|304 000 002|311 000 374|304 020 370 ZERO; =V34; SETB02; =V36; SETAV32;
10463/5: 170 365|304 020 374|170 362|310 000 364|170 370 =RI15; SETAV36; =M15; V28; =C15;
10465/5: 130 360|214 322 162|212 261 055 PWQ15; JS150; J173;
10467/1: 310 000 367|311 000 370 V31; =V32;
10470/1: 310 001 010 153; V48;
10470/4: 170 376|131 360|214 322 162|211 261 070|310 000 371|210 322 130
=Q15; TWEQ15; JS150; J153; V33; JS69;
10473/2: 311 000 363 =V27;
10473/5: 041|311 001 023 70; ZERO; =V59;
10474/3: 041|311 001 011|211 322 101 ZERO; =V49; JS92;
10475/4: 041 42; ZERO;
10475/5: 052 43; ERASE;
10476/0: 212 322 053|215 261 075|210 261 100|215 261 075 158; JS35; J43; J44; J43;
10500/0: 304 000 004|054|164 053|041 44; SETB4; AND; SHL+21; ZERO;
10501/1: 041 46; ZERO;
10501/2: 052 45; ERASE;
10501/3: 212 322 053|210 261 104|211 261 111|011 157; JS35; J47; J49; OR;
10503/1: 164 007|213 261 101 SHL+3; J157;
10504/0: 012|164 373|304 037 377|054 47; PERM; SHL-3; SETB17777; AND;
[ == Page 144
10505/1: 011|065|304 000 017|212 021 114 OR; REV; SETB17; J50≠;
10506/3: 052 ERASE;
10506/4: 212 322 053|212 261 114|211 261 111|164 033|011 48; JS35; J50; J49; SHL+13; OR;
10510/4: 214 261 106 J48;
10511/1: 042|164 127|164 247 49; DUP; SHL+43; SHL-45;
10512/0: 065|167 377|232 041 113 REV; SHC-1; J51<Z;
10513/0: 164 011 SHL+4;
10513/2: 164 041|011|214 261 106 51; SHL+16; OR; J48;
10514/2: 304 000 035|036|215 141 075 50; SETB35; -; J43≠Z;
10515/3: 310 001 023|170 343 V59; =RM14;
10516/2: 313 341 031|171 342|311 001 023|210 261 076 =V65M14Q; M14; =V59; J158;
10520/1: 052|304 000 003|311 000 330|213 261 122 52; ERASE; SET3; =V0; J60;
10521/5: 017|212 321 144 *58; JS59;
10522/3: 304 021 122|170 362|100 360|311 001 020 60; SETAR58; =M15; M0M15; =V56;
10524/1: 310 001 023|170 351 V59 ; =RC14;
10525/0: 211 261 133 J57;
10525/3: 041|310 341 031|042|164 101|164 301 99; ZERO; V65M14; DUP; SHL+32; SHL-32;
10527/0: 310 001 020|211 322 050|164 021|211 322 050|164 041 V56; JS56; SHL+8; JS56; SHL+16;
10531/1: 211 322 050|052|052|065|164 061 JS56; ERASE; ERASE; REV; SHL+24;
10532/3: 011 OR;
10532/4: 313 341 031 =V65M14Q;
10533/1: 273 341 125 57; J99C14NZ;
10533/4: 310 001 023|170 351|214 261 137 73; V59; =RC14; J72;
10535/0: 312 341 031|042|164 101|164 301|310 000 331 71; V65M14Q; DUP; SHL+32; SHL-32; V1;
10536/5: 015|233 141 306 NEV; J76=Z;
10537/3: 052 ERASE;
10537/4: 270 341 135 72; J71C14NZ;
10540/1: 310 001 011|310 000 330|304 000 003|036|011 91; V49; V0; SET3; -; OR;
10542/0: 211 141 146 J74≠Z;
[ == Page 145
10542/3: 310 000 331|174 000|211 322 036|202 360 000 V1; =LINK; JS13; EXIT;
10544/2: 212 322 022|173 000|311 000 331 59; JS12; LINK; =V1;
10545/4: 214 261 133 J73;
10546/1: 310 000 331|311 001 024|214 321 367 74; 140; V1; =V60; JS141;
10547/4: 042|042|311 000 337|041|311 001 017 DUP; DUP; =V7; ZERO; =V55;
10551/1: 164 365|042|231 141 162 SHL-6; DUP; J15=Z;
10552/1: 211 322 010 JS8;
10552/4: 042|213 141 171 DUP; J17≠Z;
10553/2: 052|042|164 361|304 000 177|015 ERASE; DUP; SHL-8; SETB177; NEV;
10554/4: 212 141 162 J159≠Z;
10555/1: 041|033|311 001 017|304 277 377|215 322 000 ZERO; NOT; =V55; SETB137777; JS4;
10557/0: 164 107|164 273|311 000 334|304 061 000|056 SHL+35; SHL-35; =V4; SETB30400; +;
10560/5: 164 021|212 321 205 SHL+8; JS18;
10561/4: 065|052 REV; ERASE;
10562/0: 041 14; ZERO;
10562/1: 052 15; ERASE;
10562/2: 310 000 336|065 159; V6; REV;
10563/0: 166 361|041|210 021 163 16; SHLD-8; ZERO; J16≠; [ close output stream
10564/0: 052|304 021 167|170 362|042|101 360 ERASE; SETAR10; =M15; DUP; =M0M15;
10565/3: 101 360|211 322 036 =M0M15; JS13;
10566/2: 017|017|017|017|017 *10; DUMMY;
10567/1: 017|017|017|017|017|212 322 022|304 000 056|210 261 223 *11; JS12; SETB56; J21;
10571/3: 211 322 010 17; JS8;
10572/0: 210 141 162 J14≠Z;
10572/3: 041|033|311 001 017 ZERO; NOT; =V55;
10573/2: 042|164 351|304 010 011|231 021 162 DUP; SHL-12; SETB4011; J15=;
10574/5: 304 017 177|054 SETB7577; AND;
10575/3: 304 010 017|235 021 212 SETB4017; J19=;
10576/3: 304 010 057|235 021 212 SETB4057; J19=;
[ == Page 146
10577/3: 304 017 017|054|304 010 015|015|212 141 203 SETB7417; AND; SETB4015; NEV; J162≠Z;
10601/2: 304 240 000|215 322 000 SETB120000; JS4;
10602/2: 174 000|304 140 000|015 =LINK; SETB60000; NEV;
10603/2: 212 321 205|065|164 301|311 000 334|212 261 162 162; JS18; REV; SHL-32; =V4; J159;
10605/2: 041|065|166 351|167 363|166 377 18; ZERO; REV; SHLD-12; SHC-7; SHLD-1; [ output CRLF
10606/4: 167 011|166 373 SHC+4; SHLD-3;
10607/2: 304 021 221|164 101|065|166 007|167 371 SETAR9; SHL+32; REV; SHLD+3; SHC-4;
10611/0: 166 003|167 017|166 031|065|052|200 360 000 SHLD+1; SHC+7; SHLD+12; REV; ERASE; EXIT1;
10612/5: 041|066 19; ZERO; CAB;
10613/1: 166 351|164 363|166 377|052|164 273 SHLD-12; SHL-7; SHLD-1; ERASE; SHL-35;
10614/4: 065|167 365|232 041 216 REV; SHC-6; J20<Z;
10615/4: 304 140 000|011 SETB60000; OR;
10616/2: 173 000|311 000 331 20; LINK; = V1;
10617/1: 215 322 000|311 000 334|213 261 221 JS4; =V4; J93;
10620/4: 017|017|212 322 022 *9; JS12;
10621/3: 310 000 334 93; V4;
10622/0: 311 000 331|304 000 052 =V1; SETB52;
10623/0: 164 031|310 001 027|210 041 225 21; SHL+12; V63; J96≥Z;
10624/2: 304 015 000|011 SETB6400; OR;
10625/0: 310 001 030|214 041 226 96; V64; J97≥Z;
10626/0: 304 000 066|011 SETB66; OR;
10626/4: 164 075|042|310 000 341|066|311 000 341 97; SHL+30; DUP; V9; CAB; =V9;
10630/2: 015|164 031 NEV; SHL+12;
10630/5: 041|310 000 337 ZERO; V7;
10631/3: 166 361|041|213 021 231 98; SHLD-8; ZERO; J98≠;
10632/3: 052|311 000 337 ERASE; =V7;
10633/1: 310 001 011|231 141 237 V49; J133=Z;
10634/1: 310 000 335|167 373|235 041 237 V5; SHC-3; J120<Z;
10635/3: 310 001 017|215 141 237 V55; J120≠Z;
[ == Page 147
10636/3: 042|215 141 237 DUP; J120≠Z;
10637/1: 052|214 261 133 133; ERASE; J73;
10637/5: 052|304 020 370|161 003|170 363|310 001 024|042 120; ERASE; SETAV32; SHA+1; =RM15; V60; DUP;
10641/5: 164 107|164 375|304 000 005|210 322 013 SHL+35; SHL-2; SET5; JS22;
10643/3: 164 031|065|164 101|164 247|304 003 320 SHL+12; REV; SHL+32; SHL-45; SETB1720;
10645/1: 011|011|042|107 360|164 061 OR; OR; DUP; =M0M15QH; SHL+24;
10646/2: 107 360|041|107 360|310 000 337|042 =M0M15QH; ZERO; =M0M15QH; V7; DUP;
10647/5: 164 245|215 322 016 SHL-46; JS24;
10650/4: 042|230 141 254 DUP; J121=Z;
10651/2: 027|033|215 322 016 NEG; NOT; JS24;
10652/1: 042|233 141 254 DUP; J122=Z;
10652/5: 215 322 016 JS24;
10653/2: 052|215 261 254 ERASE; J123;
10654/0: 107 360|041 121; =M0M15QH; ZERO;
10654/3: 107 360 122; =M0M15QH;
10654/5: 052|310 000 341|107 360 123; ERASE; V9; =M0M15QH;
10655/5: 310 000 342|304 000 004|043|036|235 041 257 V10; SET4; DUPD; -; J124<Z;
10657/4: 065 REV;
10657/5: 052|170 351 124; ERASE; =RC14;
10660/2: 270 341 262 J138C14NZ;
10660/5: 041|210 261 275 130; ZERO; J127;
10661/3: 041|107 360 125; ZERO; =M0M15QH;
10662/0: 312 340 343|042|304 000 010|210 322 013 138; V11M14Q; DUP; SET8; JS22;
10663/4: 042|107 360|164 061|107 360|164 061 DUP; =M0M15QH; SHL+24; =M0M15QH; SHL+24;
10665/1: 304 000 010|210 322 013|042|107 360|164 061 SET8; JS22; DUP; =M0M15QH; SHL+24;
10667/0: 107 360|273 341 261 =M0M15QH; J125C14NZ;
10667/5: 171 342|304 000 004|036|215 141 260 126; M14; SET4; -; J130≠Z;
10671/2: 041|107 360 ZERO; =M0M15QH;
10671/5: 310 000 342|304 000 012|036|042|212 041 305 137; V10; SET10; -; DUP; J129≥Z;
[ == Page 148
10673/4: 052|310 000 342|304 000 020|011 ERASE; V10; SETB20; OR;
10675/0: 164 031|304 000 002|011|164 061|107 360 127; SHL+12; SETB2; OR; SHL+24; =M0M15QH;
10676/4: 171 362|167 377|213 041 300 M15; SHC-1; J128≥Z;
10677/5: 041|033|107 360 ZERO; NOT; =M0M15QH;
10700/3: 171 362|164 377|170 363|141 360|304 020 370 128; M15; SHL-1; =RM15; M-I15; SETAV32;
10702/2: 170 364|310 000 364|170 370|130 360|214 322 162 =I15; V28; =C15; PWQ15; JS150;
10704/2: 215 261 237|214 261 133 J120; J73;
10705/2: 304 004 120|011|210 261 275 129; SETB2120; OR; J127;
10706/3: 042|042|311 000 332 76; DUP; DUP; =V2;
10707/2: 164 061|210 041 312 SHL+24; J79≥Z;
10710/1: 141 340|211 322 106|304 160 264|213 261 312 M-I14; JS78; SETB70264; J80;
10712/0: 304 160 260 79; SETB70260;
10712/3: 164 075|065|042|164 107|164 375 80; SHL+30; REV; DUP; SHL+35; SHL-2;
10713/5: 304 000 005|210 322 013|066|011|311 000 370 SET5; JS22; CAB; OR; =V32;
10715/4: 042|164 101|164 247|304 003 320|011 DUP; SHL+32; SHL-45; SETB1720; OR;
10717/1: 164 015|065|042|164 063|164 247 SHL+6; REV; DUP; SHL+25; SHL-45;
10720/3: 042 DUP;
10720/4: 210 141 323 J81≠Z;
10721/1: 052|052|304 000 034|011|164 075 ERASE; ERASE; SETB34; OR; SHL+30;
10722/3: 211 261 332 J82;
10723/0: 164 007|170 370|310 001 012|164 360|164 261 81; SHL+3; =C15; V50; SHLC15; SHL-40;
10724/5: 066|164 015|011|065|164 073 CAB; SHL+6; OR; REV; SHL+29;
10726/0: 164 247|164 007|170 370|310 001 013|164 360 SHL-45; SHL+3; =C15; V51; SHLC15;
10727/5: 164 261|065|164 015|011|164 015|304 000 075 SHL-40; REV; SHL+6; OR; SHL+6; SETB75;
10731/4: 011|164 031 OR; SHL+12;
10732/1: 311 000 371 82; =V33;
10732/4: 310 001 010|170 376|171 364|033|027|170 362 152; V48; =Q15; I15; NOT; NEG; =M15;
10734/3: 310 000 371|164 031|164 255|304 000 034|015|211 141 340 V33; SHL +12; SHL -42; SET B34; NEV; J174≠Z;
10736/5: 131 360 TWEQ15;
[ == Page 149
10737/1: 214 322 162|214 261 332 JS150; J152;
10740/1: 310 000 364 174; V28;
10740/4: 170 370|304 000 002|310 000 371|164 365|164 015|011|311 000 371
=C15; SETB2; V33; SHL-6; SHL+6; OR; =V33;
10743/2: 310 000 370|164 031|164 351|311 000 370|130 360|214 322 162|214 261 332|310 000 371
V32; SHL+12; SHL-12; =V32; PWQ15; JS150; J152; V33;
10746/5: 164 335|164 111|041|166 015|065 SHL-18; SHL+36; ZERO; SHLD+6; REV;
10750/1: 164 255|042|167 377|214 041 351 SHL-42; DUP; SHC-1; J83≥Z;
10751/3: 065 REV;
10751/4: 311 000 335|042 83; =V5; DUP;
10752/2: 212 142 127 J84≠Z;
10752/5: 052 ERASE;
10753/0: 310 000 335|304 000 066|215 021 355 85; V5; SETB66; J87≠;
10754/3: 052|213 241 354|041|200 220 000 86; ERASE; J86NEN; ZERO; OUT;
10755/5: 304 000 054|214 021 363 87; SETB54; J90≠;
10756/5: 310 001 023|170 351|213 261 362 V59; =RC14; J89;
10760/1: 312 341 031|042|233 141 362|141 340|211 322 106 88; V65M14Q; DUP; J89=Z;M-I14; JS78;
10762/1: 140 340 M+I14;
10762/3: 052|271 341 360 89; ERASE; J88C14NZ;
10763/1: 215 261 073 J70;
10763/4: 304 000 044|230 021 366 90; SETB44; J134=;
10764/4: 304 000 052|230 021 366 SETB52; J134=;
10765/4: 052|041 ERASE; ZERO;
10766/0: 311 001 011|041|311 000 330|211 261 140 134; =V49; ZERO; =V0; J91;
10767/4: 310 000 330|304 000 003|231 021 373 141; V0; SET3; J2=;
10771/1: 042|033|027|311 000 330 DUP; NOT; NEG; =V0;
10772/1: 304 020 332|215 261 374 SETAV2; J3;
10773/1: 052|310 000 331|041|166 107|065 2; ERASE; V1; ZERO; SHLD+35; REV;
10774/3: 164 273 SHL-35;
10774/5: 170 362|164 007|170 370 3; =M15; SHL+3; =C15;
10775/5: 100 360|164 360|164 261 M0M15; SHLC15; SHL-40;
[ == Page 150
10776/5: 304 040 000|215 322 000|311 000 331|200 360 000 SETB20000; JS4; =V1; EXIT1;
11000/5: 310 000 331|056|042|041|166 107|066|304 000 006 4; V1; +; DUP; ZERO; SHLD+35; CAB; SET6;
11002/5: 065|215 042 004 REV; J5≥Z;
11003/3: 056|166 033|027|033|213 262 006 +; SHLD+13; NEG; NOT;J6;
11004/5: 043|036|230 042 007 5; DUPD; -; J7<Z;
11005/4: 036|166 033|033|027 -; SHLD+13; NOT; NEG;
11006/3: 166 347|041 6; SHLD-13; ZERO;
11007/0: 052|166 273|052 7; ERASE; SHLD-35; ERASE;
11007/4: 200 360 000 EXIT1;
11010/1: 214 321 367|066|164 021|011|042 8; JS141; CAB; SHL+8; OR; DUP;
11011/3: 311 000 337|065|027|033|200 360 000 =V7; REV; NEG; NOT; EXIT1;
11013/0: 170 370|041 22; =C15; ZERO;
11013/3: 017|017|017|164 007|304 000 002|011|166 007|143 360 *23; SHL+3; SETB2; OR; SHLD+3; DC15;
11015/4: 177 360 J23C15NZS;
11016/0: 065|052|200 360 000 REV; ERASE; EXIT1;
11016/5: 065|042|164 021|065|164 377|304 000 003 24; REV; DUP; SHL+8; REV; SHL-1; SET3;
11020/3: 210 322 013|164 075|107 360|065 JS22; SHL+30; =M0M15QH; REV;
11021/5: 200 360 000 EXIT1;
11022/2: 234 242 027 12; J63EN;
11022/5: 311 000 343|171 376|311 000 333|304 000 017|170 371 =V11; Q15; =V3; SET15; =RC15;
11025/0: 233 242 026 61; J62EN;
11025/3: 313 360 344|270 362 025 =V12M15Q; J61C15NZ;
11026/3: 171 362|033|027|214 262 030 62; M15; NOT; NEG; J64;
11027/4: 171 376|311 000 333|041 63; Q15; =V3; ZERO;
11030/4: 311 000 342|171 356|311 001 026|041 64; =V10; Q14; =V62; ZERO; [ | Preserve Nests
11032/1: 231 202 033|212 262 033 J75V; J94; [ | TR, VR
11033/1: 033 75; NOT;
11033/2: 311 001 030 94; =V64; (OVERFLOW);
11033/5: 041 ZERO;
[ == Page 151
11034/0: 230 342 035|211 262 035 J95TR; J108;
11035/0: 033 95; NOT;
11035/1: 311 001 027 108; =V63; (TEST REGISTER);
11035/4: 200 360 000 EXIT1;
11036/1: 310 000 342|042|233 142 042 13; V10; DUP; J67=Z;
11037/2: 027|033|042|170 370|170 362 NEG; NOT; DUP; =C15; =M15;
11040/3: 145 360|215 262 041 I15=-1; J66;
11041/2: 312 360 343 65; V11M15Q;
11041/5: 272 362 041 66; J65C15NZ;
11042/2: 041 ZERO;
11042/3: 052|310 001 026|170 356|310 000 333|170 376 67; ERASE; V62; =Q14; V3; =Q15;
11044/2: 310 001 027|002 V63; =TR; (restore test register);
11045/0: 001|310 001 030|161 141|052 VR; V64; SHA+48; ERASE; (restore overflow);
11046/1: 310 000 342|234 142 047 V10; J68=Z;
11047/1: 310 000 343 V11;
11047/4: 200 360 000 68; EXIT1;
11050/1: 164 261|212 322 115|051|012|164 021 56; SHL-40; JS53; REVD; PERM; SHL+8;
11051/4: 011|012|065|310 001 020|200 360 000 OR; PERM; REV; V56; EXIT1;
11053/1: 052 41; ERASE;
11053/2: 310 001 021|310 001 022 35; V57; V58;
11054/2: 170 350|274 342 064 =C14; J37C14NZ;
11055/1: 310 001 020 V56;
11055/4: 170 376|272 362 062 =Q15; J36C15NZ;
11056/3: 310 001 010|170 376|310 000 363|170 370|125 360|214 322 162|213 262 056
155; V48; =Q15; V27; =C15; PREQ15; JS150; J155;
11061/3: 304 000 020|170 371 SET16; =RC15;
11062/2: 052|312 360 370|171 376|311 001 020|304 000 010 36; ERASE; V32M15Q; Q15; =V56; SET8;
11064/2: 170 350 =C14;
11064/4: 041|166 015 37; ZERO; SHLD+6;
11065/1: 143 340|171 350|311 001 022 DC14; C14; =V58;
[ == Page 152
11066/2: 065|311 001 021|304 000 017|230 022 104 REV; =V57; SETB17; J38=;
11070/0: 042|304 000 020|036|231 042 053 DUP; SETB20; -; J41<Z;
11071/2: 042|304 000 032|036|230 042 105 DUP; SETB32; -; J40<Z;
11072/4: 042|304 000 040|036|230 042 104 DUP; SETB40; -; J38<Z;
11074/0: 042|304 000 041|036|231 042 053 DUP; SETB41; -; J41<Z;
11075/2: 042|304 000 073|036|233 042 104 DUP; SETB73; -; J39<Z;
11076/4: 304 000 075|211 022 053 SETB75; J41≠;
11077/4: 211 322 101|173 000|052|211 261 120 JS92; LINK; ERASE; J52;
11101/1: 310 000 363|170 371|140 360|120 361 92; V27; =RC15; M+I15; MANUALQ15;
11102/4: 041|311 001 022|041|311 001 020 ZERO; =V58; ZERO; =V56;
11104/0: 200 360 000 38; EXIT1;
11104/3: 202 360 001 39; EXIT2;
11105/0: 304 000 020|036|200 360 001 40; SETB20; -; EXIT3;
11106/1: 042|164 101|164 301|065|042 78; DUP; SHL+32; SHL-32; REV; DUP;
11107/2: 211 322 113|164 021|211 322 113|164 041|211 322 113 JS77; SHL+8; JS77; SHL+16; JS77;
11111/3: 012|052|052|041 PERM; ERASE; ERASE; ZERO;
11112/1: 311 341 031|200 360 000 =V65M14; EXIT1;
11113/1: 164 261|066|065|212 322 115|052 77; SHL-40; CAB; REV; JS53; ERASE;
11114/3: 065|042|200 360 000 REV; DUP; EXIT1;
11115/2: 065|042|042|164 347|304 000 005 53; REV; DUP; DUP; SHL-13; SET5;
11116/4: 036|215 142 120 -; J54≠Z;
11117/2: 164 107|164 273|033|027|213 262 121 SHL+35; SHL-35; NOT; NEG; J55;
11120/5: 304 040 000|056 54; SETB20000; +;
11121/3: 012|042|164 347|164 007|170 370 55; PERM; DUP; SHL-13; SHL+3; =C15;
11122/5: 164 107|164 273|170 362|100 360 SHL+35; SHL-35; =M15; M0M15;
11124/1: 167 360|041|166 021|012|065 SHCC15; ZERO; SHLD+8; PERM; REV;
11125/2: 166 361|052|142 360|167 360 SHLD-8; ERASE; NC15; SHCC15;
11126/3: 101 360|200 360 000 =M0M15; EXIT1;
11127/2: 052|210 261 353 84; ERASE; J85;
[ == Page 153
11130/0: 164 255|304 000 020|036|042|304 000 005 69; SHL-42; SETB20; -; DUP; SET5;
11131/4: 200 220 000|065|164 061|011|200 360 000 OUT; REV; SHL+24; OR; EXIT1;
11133/2: 017|017|017|017|212 322 022 *1; JS12;
11134/3: 041|170 343|310 000 343|304 000 005|232 022 150 ZERO; =RM14; V11; SET5; J161=;
11136/3: 304 000 006|036|214 142 143 SET6; -; J163≠Z;
11137/4: 310 000 344|164 061|310 340 363|164 061|231 022 145 V12; SHL+24; V27M14; SHL+24; J160=;
11141/5: 140 340|310 340 363|164 061|231 022 145 M+I14; V27M14; SHL+24; J160=;
11143/3: 052 172; ERASE;
11143/4: 211 322 036 163; JS13;
11144/1: 200 220 000|200 360 000 OUT; EXIT1;
11145/1: 052|310 340 363|164 005|164 375|311 340 363 160; ERASE; V27M14; SHL+2; SHL-2; =V27M14;
11147/0: 211 322 036|052 JS13; ERASE;
11147/4: 052|200 360 000 ERASE; EXIT1;
11150/2: 052|310 000 344|310 340 363|164 007|164 313 161; ERASE; V12; V27M14; SHL+3; SHL-27;
11152/1: 234 022 154 J164=;
11152/4: 140 340|310 340 363|164 007|164 313|213 022 143 M+I14; V27M14; SHL+3; SHL-27; J172≠;
11154/4: 052|310 340 363|164 003|234 042 143 164; ERASE; V27M14; SHL+1; J163<Z;
11156/1: 310 340 363|041|033|027|167 375 V27M14; ZERO; NOT; NEG; SHC-2;
11157/3: 011|042|311 340 363|164 061|164 321 OR; DUP; =V27M14; SHL+24; SHL-24;
11161/0: 311 000 344|211 322 036 =V12; JS13;
11162/0: 052|200 360 000 ERASE; EXIT1;
11162/4: 121 360|210 342 172 150; PARQ15; J151NTR;
11163/3: 120 361|171 370|304 000 020|011|167 365 MANUALQ15; C15; SETB20; OR; SHC-6;
11165/1: 310 001 014|166 031|311 001 015|052 V52; SHLD+12; =V53; ERASE;
11166/4: 304 021 015|170 364|304 021 016|170 362|154 017 SETAV53; =I15; SETAV54; =M15; C0TOQ15;
11170/4: 131 360|214 322 162|200 360 000 TWEQ15; JS150; EXIT1;
11172/0: 202 360 001 151; EXIT2;
=== Start P-1V-1; at address 4731/11173
Finished
11172/3: 017|017|017 *139; FINISH;
Reached end of file