Kidsgrove Algol Compiler - Brick 01
This assembler listing has hot links for all references to P-routines.
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.
The original source was in the form of a single PDF file for each brick.
Here is the
PDF file for brick 01.
Hot links to images of individual pages are embedded in the text.
Loaded 54716 bytes for KAB01.txt
L77 not available
L77 not available
Warning: YG0 is out of range, only 0 YG-stores specified
This is L77
Relocated 5
Finished
Reached end of file
=============== Second pass
===========================
6310 W0 = E3272
10200 Y0 = E4224
6310 YB0 = E3272
6350 YF0 = E3304
6400 YL0 = E3328
6500 YS0 = E3392
6540 YU0 = E3424
6600 YV0 = E3456
6700 YW0 = E3520
7000 YX0 = E3584
7100 YY0 = E3648
7200 YZ0 = E3712
0/0: 200 266 163 [ original source of the next page -- eXperimantal version
ST11104; TL 1000;START1600;
V 50;
YA ; YB 31; YC ;
YD ; YE ; YF 23;
YG ; YH ; YJ ;
YK; YL63; YM;
YN ; YP ; YQ ;
YR ; YS 31; YT ;
YU31; YV63; YW63;
YX 63; YY 63; YZ 511;
4/0: 202 266 344|202 266 344 RESTART; J6; J6;
PROGRAM;
V-store at 03100 = 026 046 061 054 064 061 V0=B0542306113032061;
V-store at 03101 = 236 236 236 236 236 236 V1=B4751723647517236;
V-store at 03102 = 016 000 016 037 242 003 V2=QAYX0/AYX31/B121003;
V-store at 03103 = 016 040 016 077 242 021 V3=QAYX32/AYX63/B121021;
V-store at 03104 = 016 100 016 137 000 000 V4=QAYY0/AYY31/0;
V-store at 03105 = 016 140 016 177 000 000 V5=QAYY32/AYY63/0;
V-store at 03106 = 000 001 000 001 014 351 V6=Q1/1/AYF1;
V-store at 03107 = 000 010 000 004 000 022 V7=Q8/4/18;
V-store at 03122 = 005 012 013 301 321 010 V18=B0120501360350410;
V-store at 03123 = 000 037 000 001 014 310 V19=Q31/1/AYB0;
V-store at 03124 = 016 200 017 177 000 000 V20=QAYZ0/AYZ255/0;
V-store at 03125 = 017 200 020 177 000 000 V21=QAYZ256/AYZ511/0;
3163/0: 304 000 377|041|033|304 000 024|170 371|200 333 377 SETB377; ZERO; NOT; SET20; =RC15; JS3P8;
3165/1: 304 000 141|170 065|304 000 001|170 103 8; SET97; =RI3; SET1; =RM4;
3166/5: 304 053 055|042|170 136 SETAZ50; DUP; =Q5;
3167/5: 304 020 200|042|170 036|036 SETAY0; DUP; =Q1; -;
3171/0: 170 051|145 040|154 006|157 015 =RC2; I2=-1; C0TOQ6; Q0TOQ13;
3172/2: 041|170 343|041|301 013 300 ZERO; =RM14; ZERO; =V0P7;
3173/3: 300 006 103|300 006 102|200 320 106 V3; V2; JSE70; (CHANNEL 3); [B121003;
3175/0: 202 266 344 J6;
3175/3: 052|300 006 102|300 006 103|200 320 106 ERASE; V2; V3; JSE70; (MONITOR); [B121021;
3177/1: 202 266 344 J6;
3177/4: 300 006 125|300 006 124|204 333 361|041|200 333 305 V21; V20; JS1P7; ZERO; JSP7;
3201/5: 304 000 006|170 070|200 334 231 SET6; =C3; JS4P754; (OPEN CH. 7);
3203/1: 304 000 106|200 320 106 SETB106; JSE70; (CH. 6 OPEN ETC.); [B106;
3204/1: 204 266 337 J3;
3204/4: 164 023|202 046 206 SHL+9; J173≥Z;
3205/3: 304 000 002|170 070 SET2; =C3;
3206/2: 320 013 074|220 046 274 173; Z35; J169<Z;
(UNDER POST CONTROL);
3207/2: 304 000 011|200 220 000|161 321|164 061|304 000 003 SET9; OUT; SHA-24; SHL+24; SET3;
3211/3: 200 220 000|161 321|166 061|321 013 075|052 OUT; SHA-24; SHLD+24; =Z34; ERASE;
V-store at 03135 = 015 140 015 176 240 002 V29=QAYU0/AYU30/B120002;
3213/2: 300 006 135|200 320 106 V29; JSE70; (OPEN READ PPT); [B120002;
3214/2: 204 266 337 J3;
3214/5: 304 140 002|200 320 106 SETB60002; JSE70; (CLOSE PPT); [B60002;
3215/5: 204 266 337 J3;
3216/2: 170 376|100 360|164 255|304 000 075|015 =Q15; M0M15; SHL-42; SETB75; NEV;
3220/0: 220 154 174 JP100=Z; (INITIAL EM);
3220/3: 300 015 140|041|166 061 YU0; ZERO; SHLD+24;
3221/3: 304 001 302|164 031|015 SETB0702; SHL+12; NEV;
3222/3: 304 015 002|015|204 146 264 SETB6402; NEV; J244≠Z;(IF NOT CN CRLF T CRLF);
3223/4: 304 000 004|170 371|042|164 321|311 000 201|041|033 SET4; =RC15; DUP; SHL-24; =Y1; ZERO; NOT;
3225/5: 065 237; REV;
3226/0: 041|166 015|042|304 000 020|036|224 046 264 238; ZERO; SHLD+6; DUP; SETB20; -; J244<Z;
[ original source of the next page
3227/5: 304 000 034|224 026 264|304 000 036|015|042|222 146 232|033 SETB34; J244=; SETB36; NEV; DUP; J236=Z; NOT;
3232/2: 066|166 015|065|052|143 360|265 366 225 236; CAB; SHLD+6; REV; ERASE; DC15; J237C15NZ;
3234/0: 301 375 176|171 362|201 146 240 =YU30M15; M15; J239≠Z;
3235/2: 140 360|304 000 010|170 370|300 015 141|042|311 000 202|200 266 226
M+I15; SET8; =C15; YU1; DUP; =Y2; J238;
3240/1: 171 070|304 000 002|015|221 146 270 239; C3; SET2; NEV; J172=Z;
3241/4: 300 006 135|304 177 004|015|200 320 106 V29; SETB77404; NEV; JSE70; (FIND TEXT); [B120002; B77404; NEV; i.e. B157406;
3243/2: 201 266 267 J174;
3243/5: 300 006 105|300 006 104|201 331 316 V5; V4; JS6P1; (OPEN CH.6-PRINT TITLE-IDENT TO Z44-45);
3245/2: 201 266 340 J4;
3245/5: 201 331 360 JS7P1; (CLOSE CH.6);
3246/2: 201 266 340 J4;
3246/5: 320 013 062|164 075|164 255|304 000 041|036 Z45; SHL+30; SHL-42; SET33; -;
3250/4: 320 013 071|304 000 001|164 115|066|042|221 146 273 Z38; SET1; SHL+38; CAB; DUP; J243=Z;(IF ALGOL);
3252/5: 304 000 024|036|204 146 264 SET20; -; J244≠Z;(IF NOT U);
3254/0: 033|065|042|164 031|204 046 264 NOT; REV; DUP; SHL+12; J244≥Z;(IF U/C COMP. PERMIT BIT
3255/2: 054|321 013 071 NOT SET); AND; =Z38;(REMOVE KIDSGROVE MARKER);
3256/0: 203 334 221 JS3P754; (CLOSE CH.7);
3256/3: 304 006 024 SETB3024; (USERCODE COMPILER);
3257/0: 204 333 330 171; JS4P7; (CLOSE CH.5);
3257/3: 304 260 141|167 003|200 320 106 SETB130141; SHC+1; JSE70; (CLOSE CH.3); [B130141; SHC+1; i.e. B060303;
3260/5: 204 266 337 J3;
3261/2: 204 266 346 J7; (FETCH BRICK);
3261/5: 304 261 343|167 003|200 320 106 170; SETB130743; SHC+1; JSE70; (CLOSE CH.7-2LB-MOVE START); [B130743; SHC+1; i.e. B061707;
3263/1: 204 266 337 J3;
3263/4: 304 006 125|200 266 257 SETB3125; J171; (PHASE CONTROL );
3264/4: 304 000 145 244; SET101; (FAIL 001/01, CALL MESSAGE INVALID);
3265/1: 170 365|304 000 200|170 362|171 376|200 260 106 175; =RI15; SETB200; =M15; Q15; JE70; [B200;
3267/1: 304 000 311|201 266 265 174; SET201; J175; (FAIL 002/01, TEXT NOT ON TEXT TAPE);
3270/1: 304 015 140|201 331 332 172; SETAYU0; (ADDRESS OF P.T. IDENTIFIER); JS26P1;
3271/1: 201 266 340 J4;
3271/4: 320 013 071|304 000 001|164 115|042 Z38; SET1; SHL+38; DUP;
3273/1: 052|011|321 013 071 243; ERASE; OR; =Z38; (SET KIDSGROVE WORKER); [sic, but it should have been MARKER
3274/0: 320 013 127|164 341|164 041|321 013 127 169; Z8; SHL-16; SHL+16; =Z8; (INITIAL BLOCK COUNT);
3275/4: 300 014 236|170 376|141 360|320 013 063|101 360|320 013 062 V0P755; =Q15; M-I15; Z44; =M0M15; Z45;
3300/1: 200 334 242|204 266 337 234; JSP755; J3;
3301/1: 300 014 236|164 301|304 000 035|036|220 146 304 V0P755; SHL-32; SET29; -; J235=Z;(IF IND. BL. NOW TRANS.);
3303/1: 041|033|201 266 300 ZERO; NOT; J234; (377.S);
3304/0: 041|033|164 321|042|301 015 176 235; ZERO; NOT; SHL-24; DUP; =YU30;
3305/2: 167 365|301 015 177 SHC-6; =YU31; (MASK FOR FIND CONTROL);
3306/1: 300 000 002|164 365|164 015|304 000 031|011 E2; SHL-6; SHL+6; SETB31; OR;
3310/0: 301 015 140|300 000 003|164 015|304 000 027|166 365 =YU0; E3; SHL+6; SETB27; SHLD-6;
3312/1: 052|301 015 141|300 006 135|304 177 002 ERASE; =YU1; V29; SETB77402;
3313/5: 015|200 320 106 NEV; JSE70; (FIND CONTROL ); [B120002; SETB77402; NEV; i.e. B157400;
3314/3: 204 266 337 J3;
3315/0: 300 006 105|300 006 104|203 331 357 V5; V4; JS8P1;
3316/3: 201 266 340 J4;
1; (COPY CONTROL FROM CH.8 BUFFER TO CH.7 BUFFER-TO E.M.);
3317/0: 041|203 331 363 ZERO; JS27P1; (FETCH NEXT BLOCK, SUMCHECK LOST);
3317/4: 201 266 340 J4;
3320/1: 300 014 236|170 376|304 000 001|172 370|141 360 V0P755; =Q15; SET1; =+C15; M-I15; (30/1/AB);
3322/1: 102 320|042|164 101|164 261 246; M0M13Q; DUP; SHL+32; SHL-40;
3323/2: 304 000 276|015|223 146 331 SETB276; NEV; J245=Z;(IF E.M.);
3324/3: 103 360|261 366 322|102 320|103 360|100 320|101 360 247; =M0M15Q; J246C15NZ; M0M13Q; =M0M15Q; M0M13; =M0M15;
3326/4: 320 013 127|033|027|321 013 127 Z8; NOT; NEG; =Z8;
3330/0: 200 334 265|204 266 337|200 266 317 JS11P755;(TRANSFER BLOCK CH.7); J3; J1;
3331/3: 304 000 377|164 021|011 245; (E.M. FOUND); SETB377; SHL+8; OR; (DELETE E.M.);
3332/3: 103 360|241 366 334|102 320|203 266 332 249; =M0M15Q; J248C15Z; M0M13Q; J249;
3334/1: 205 334 253|204 266 337 248; JS10P755; (FORM NEW CHECK SUM FOR,AND TRANSFER,E.M. BL);J3;
3335/1: 304 217 177|167 343|042|301 015 300|301 015 340 SETB107577; SHC-15; DUP; =YW0; =YW32;(1ST WORDS OF
3337/1: 204 266 350 CH.7 BUFFERS); J242;
[ original source of the next page
3337/4: 304 002 133 3; SET603;
3340/1: 304 001 054|036|200 334 023 4; SET300; -; JSP9;
3341/2: 304 004 022|320 013 070|204 046 346 162; SETB2022; Z39; J7≥Z;
3342/5: 052|304 002 001|164 017|200 320 106 ERASE; SETB1001; SHL+7; JSE70; [B1001; SHL+7; i.e. B200;
3344/2: 320 013 070|047|052|041|033 6; Z39; STR; ERASE; ZERO; NOT;
3345/3: 050|321 013 070|304 006 125 CONT; =Z39; SETB3125;
3346/4: 170 364|304 336 010|170 362|171 376|200 260 106 7; =I15; SETB157010; =M15; Q15; JE70; [B157010; brick change
242; (N.B. FIRST WORD OF GEN. U/C WILL START NEW CH.7 BLOCK);
3350/4: 320 013 071|164 011|047|301 014 241 Z38; SHL+4; STR; =V3P755;(≠O IF TEXT PRINTOUT REQ.);
3352/1: 052 ERASE;
3352/2: 205 331 362 JS9P1; (CLOSE CH. 8);
3352/5: 201 266 340 J4;
3353/2: 300 006 105|300 006 104|171 070|204 331 317 V5; V4; C3; JS5P1; (OPEN TEST CHANNEL);
3355/1: 201 266 340 J4;
3355/4: 304 000 301|164 101|033|027|321 013 126 SET193; SHL+32; NOT; NEG; =Z9;
3357/2: 300 006 122|203 333 105 V18; JS1P4;
3360/2: 300 006 132|200 333 305 V26; JSP7;
3361/2: 304 001 214|171 042|170 130|103 045 SETB614; M2; =C5; =M5M2Q;
3362/5: 041|170 143|041|170 171 ZERO; =RM6; ZERO; =RC7;
3363/5: 141 160 M-I7;
3364/1: 304 200 000|170 070 SETB100000; =C3;
3365/0: 200 331 215 32; JSP1; (OLD READERS START HERE);
3365/3: 203 267 131 J23;
3366/0: 171 024|200 146 374 I1; J10≠Z;
3366/5: 304 000 214|201 027 043 SETB214; J11≠; (INITIAL BS NOT BEGIN);
3367/5: 154 006|143 140 C0TOQ6; DC6;
3370/3: 320 013 071|164 011|220 046 373|041|301 014 022|200 266 374 Z38; SHL+4; J5<Z; ZERO; =V5P9; J10;
3373/0: 300 006 134|301 014 350 5; V28; =YF0;
V-store at 03134 = 377 037 052 075 071 377 V28=B7761745217234777;
3374/0: 042|164 365|170 370|242 370 221 10; DUP; SHL-6; =C15; J12C15Z; (ALPHA);
3375/2: 143 360|241 367 137 DC15; J13C15Z; (DECLARATORS);
3376/1: 304 000 200|224 027 331 SETB200; J31=; (COMMENT);
3377/1: 304 000 217|221 027 137 SETB217; J13=; (OWN);
3400/1: 042|304 000 017|054 DUP; SET15; AND;
3401/0: 167 377|042 66; SHC-1; DUP;
3401/3: 170 362|164 251|170 370|300 366 110|042 =M15; SHL-44; =C15; V8M15; DUP;
3403/1: 164 360|171 370|172 370|065|142 360 SHLC15; C15; =+C15; REV; NC15;
3404/4: 164 360|174 000|042|204 047 024 SHLC15; =LINK; DUP; J14≥Z;
3406/0: 065|042|164 371|304 000 007|054 REV; DUP; SHL-4; SET7; AND;
3407/2: 170 370|260 367 012 =C15; J15C15NZ; (NOT OPENING BRACKETS);
3410/1: 042|200 333 260 DUP; JSP6;
3410/5: 201 267 044 J16;
3411/2: 065|204 267 024 REV; J14;
3412/0: 042|171 024|015|304 000 217|054 15; DUP; I1; NEV; SETB217; AND;
3413/2: 201 147 045 J17≠Z;
3413/5: 171 024|164 361|056|143 360|065 I1; SHL-8; +; DC15; REV;
3415/1: 300 006 127|300 006 126|262 367 021|052|052 V23; V22; J39C15NZ; ERASE; ERASE;
3417/0: 065|204 333 267 REV; JS1P6;
3417/4: 201 267 046 J19;
3420/1: 065|300 006 131|300 006 130 REV; V25; V24;
3421/2: 042|164 301|172 030|066|047 39; DUP; SHL-32; =+C1; CAB; STR;
3422/3: 162 011|161 005|170 370|012|166 360 SHAD+4; SHA+2; =C15; PERM; SHLDC15;
3424/0: 052|162 371|052 ERASE; SHAD-4; ERASE;
3424/4: 164 003|047|166 003|201 047 027 14; SHL+1; STR; SHLD+1; J18≥Z;
3426/0: 042|171 076|015|221 047 047 DUP; Q3; NEV; J20<Z;
3427/1: 164 003|047|166 003|002|047 18; SHL+1; STR; SHLD+1; =TR; STR;
3430/2: 225 347 031 J37TR;
[ original source of the next page
3430/5: 171 076|047|065|052|015 Q3; STR; REV; ERASE; NEV;
3431/5: 171 076|164 007|042|205 047 034 37; Q3; SHL+3; DUP; J164≥Z;
3433/1: 164 003|164 377|304 376 300|200 334 023 SHL+1; SHL-1; SET-320; JSP9;
3434/5: 164 373|065|050 164; SHL-3; REV; CONT;
3435/3: 170 076|164 003|042|204 047 037 =Q3; SHL+1; DUP; J21≥Z;
3436/5: 065|042|170 110|065 REV; DUP; =C4; REV;
3437/4: 164 003|042|204 047 041 21; SHL+1; DUP; J22≥Z;
3440/4: 065|042|200 333 305 REV; DUP; JSP7;
3441/3: 065 REV;
3441/4: 164 003|204 047 042 22; SHL+1; J38≥Z;
3442/3: 052 ERASE;
3442/4: 202 360 000 38; EXIT; (TREE ON CLASS OPERATIONS);
3443/1: 304 377 366|201 266 340 11; SET-10; J4;
3444/1: 304 377 365|201 266 340 16; SET-11; J4;
3445/1: 304 377 364|201 266 340 17; SET-12; J4;
3446/1: 304 377 363|201 266 340 19; SET-13; J4;
3447/1: 304 376 306|200 334 023 20; SET-314; JSP9;
3450/1: 201 267 027 J18;
3450/4: 304 376 306|200 334 023 153; SET-314; JSP9;
3451/4: 042|304 000 040|164 021|011|200 333 260 DUP; SETB40; SHL+8; OR; JSP6;
3453/2: 201 267 044 J16;
3453/5: 304 004 000|171 024|011|170 024 156; SETB2000; I1; OR; =I1;
3455/1: 052 155; ERASE;
3455/2: 200 331 215|203 267 131|041|033|200 333 305 154; JSP1; J23; ZERO; NOT; JSP7;
3457/1: 304 000 214|225 027 073 SETB214; J158=;
3460/1: 304 000 230|224 027 076 SETB230; J159=;
3461/1: 304 000 245|224 027 076 SETB245; J159=;
3462/1: 304 000 120|223 027 071 SETB120; J161=;
3463/1: 304 000 234|015|202 147 055 SETB234; NEV; J154≠Z;
3464/2: 204 333 267|201 267 046|171 024|164 113|221 110 024 JS1P6; J19; I1; SHL+37; J47>Z;
3466/3: 171 024|304 104 214|015|202 147 055 I1; SETB42214; NEV; J154≠Z;
3470/0: 204 333 267|201 267 046|202 267 055 JS1P6; J19; J154;
3471/3: 171 076|164 007|041|033 161; Q3; SHL+3; ZERO; NOT;
3472/3: 166 373|052|170 076 SHLD-3; ERASE; =Q3;
3473/2: 201 267 137 J13;
3473/5: 171 076|164 007|041|033|166 373 158; Q3; SHL+3; ZERO; NOT; SHLD-3;
3475/1: 052|170 076|304 000 040|200 267 351 ERASE; =Q3; SETB40; J123;
3476/4: 171 024|304 001 000|054|200 146 374 159; I1; SETB400; AND; J10≠Z;
3500/1: 201 267 055 J155;
3500/4: 143 360|260 370 174 112; DC15; J143C15NZ; (NOT ARRAY);
3501/3: 143 020|304 000 211|204 027 111 DC1; SETB211; J140≠;
3502/5: 142 020|154 032|001|171 030|161 125 NC1; C1TOQ10; VR; C1; SHA+42;
3504/2: 164 277|221 210 300 SHL-33; J144V; (TOO MANY ELS.IN SEG.);
3505/1: 200 334 112 JSP16;
3505/4: 204 270 301 J42;
3506/1: 100 245|011|101 245|042 M5M10; OR; =M5M10; DUP;
3507/1: 154 001 142; C0TOQ1;
3507/3: 171 076|164 007|164 373|170 076 Q3; SHL+3; SHL-3; =Q3;
3510/5: 041|066|205 267 352 ZERO; CAB; J138;
3511/4: 264 027 176|205 267 311 140; J108C1NZ; J141;
3512/4: 171 024|304 000 013|015|200 147 363 89; I1; SETB13; NEV; J41≠Z;
3514/1: 204 333 267 JS1P6;
3514/4: 201 267 044 J16;
3515/1: 304 000 001|170 250|171 362|033 SET1; =C10; M15; NOT;
3516/3: 027|001|161 123|202 270 277 NEG; VR; SHA+41; J88;
3517/4: 102 220 26; M0M9Q;
3520/0: 200 333 305 25; JSP7;
3520/3: 264 227 117 J26C9NZ;
3521/0: 041|304 000 020|200 267 001 ZERO; SET16; J66;
[ original source of the next page
3522/1: 200 333 100 24; JSP4;
3522/4: 200 267 132 J150;
3523/1: 205 267 127 J28;
3523/4: 001|042|161 101|052|304 002 235 VR; DUP; SHA+32; ERASE; SETB1235;
3525/0: 222 207 130 J27V;
3525/3: 052|304 004 235|065 ERASE; SETB2235; REV;
3526/2: 164 101|011|304 000 021|200 267 001 29; SHL+32; OR; SET17; J66;
3527/5: 304 001 235 28; SETB635;
3530/2: 065|200 334 124 27; REV; JSP45;
3531/0: 202 267 126 J29;
V-store at 03120 = 025 027 006 374 006 374 V16=QB12427/AR10/AR10;
3531/3: 201 266 340 23; J4;
3532/0: 304 001 054|036|200 334 023|041 150; SET300; -; JSP9; ZERO;
3533/2: 052|200 331 215|201 266 340|042|304 000 013 151; ERASE; JSP1; J4; DUP; SETB13;
3535/1: 036|202 107 133 -; J151≤Z;
3535/5: 041|304 004 235 ZERO; SETB2235;
3536/3: 065|202 267 126 REV; J29;
3537/1: 171 076|041|033|166 005|033 13; Q3; ZERO; NOT; SHLD+2; NOT;
3540/2: 203 147 305 J101≠Z; (DECLARATOR NOT IN BLOCK HEAD);
3540/5: 200 047 164 J102≥Z; (SECOND AND SUBSEOUENT DECLARATORS);
3541/2: 151 007|241 047 044 M0TOQ7; J16C2Z;
3542/1: 304 340 000|172 070|202 333 341 SETB160000; =+C3; JS2P7;
3543/3: 042|164 123|220 047 146 DUP; SHL+41; J103<Z; (BEGIN FOR STATEMENT);
3544/3: 304 000 040|015|304 340 000|172 024 SETB40; NEV; SETB160000; =+I1;
3546/0: 171 024|304 375 377|054|170 024 103; I1; SETB176777; AND; =I1;
3547/2: 001|171 170|027|033|042 VR; C7; NEG; NOT; DUP;
3550/2: 170 170|027|042|170 062|161 117|164 363|011 =C7; NEG; DUP; =M3; SHA+39; SHL-7; OR;
3552/1: 171 142|033|027|042|170 142 M6; NOT; NEG; DUP; =M6;
3553/2: 161 121|164 343|011|220 207 307 SHA+40; SHL-15; OR; J104V;
3554/4: 042|200 333 305 DUP; JSP7;
3555/2: 171 130|170 362|100 365|170 216|171 042 C5; =M15; M5M15; =Q8; M2;
3557/0: 170 204|171 216|101 365|170 376|171 124 =I8; Q8; =M5M15; =Q15 ; I5;
3560/4: 170 370|152 017|171 042|042|170 130 =C15; I0TOQ15; M2; DUP; =C5;
3562/1: 170 124|171 376|103 045 =I5; Q15; =M5M2Q;
3563/1: 171 162|200 146 365 M7; J32≠Z;
3564/0: 042|171 162|033|054|164 125 102; DUP; M7; NOT; AND; SHL+42;
3565/1: 223 047 305 J101<Z; (SPECIFIER IN BLOCK HEAD);
3565/4: 042|164 373|304 000 010|036|170 370 DUP; SHL-3; SET8; -; =C15;
3567/1: 171 162|264 367 272 M7; J105C15NZ;
3570/0: 304 376 377|054 SETB177377; AND;
3570/4: 304 377 237|054 116; SETB177637; AND;
3571/2: 203 147 305 117; J101≠Z;
3571/5: 171 162 106; M7;
3572/1: 011|170 162|200 331 215 111; OR; =M7; JSP1;
3573/1: 203 267 131 J23;
3573/4: 042|164 365|170 370|240 367 202 DUP; SHL-6; =C15; J107C15Z; (ALPHA);
3575/0: 171 162|224 047 176 M7; J108<Z; (NON-ALPHA AFTER COMMA);
3575/5: 143 360|241 367 137 DC15; J13C15Z; (COMPOUND DECLARATOR);
3576/4: 304 376 301|200 334 023 108; SET-319; JSP9;
3577/4: 203 270 311 J157;
3600/1: 304 376 300|200 334 023 163; SET-320; JSP9;
3601/1: 052|041|205 267 236 ERASE; ZERO; J113;
3602/0: 042|304 000 014|036|224 047 176 107; DUP; SET12; -; J108<Z; (NUMERIC);
3603/2: 304 000 037|170 050|171 122|172 042|171 056 SET31; =C2; M5; =+M2; Q2;
3605/1: 200 333 037 JSP3; (PACK IDENTIFIER);
3605/4: 201 266 340 J4;
3606/1: 171 124|170 050|171 356|171 056|200 333 224 I5; =C2; Q14; Q2; JSP5;
3610/0: 205 267 236 J113;
[ original source of the next page
3610/3: 001 VR;
3610/4: 042|304 376 377|054 DUP; SETB177377; AND;
3611/3: 304 000 140|015|201 147 200 SETB140; NEV; J163≠Z;
3612/4: 066|052|171 162|304 001 377|054 CAB; ERASE; M7; SETB777; AND;
3614/0: 304 001 140|224 027 221 SETB540; J130=;
3615/0: 011|304 000 030|171 162|054 OR; SETB30; M7; AND;
3616/1: 304 000 020|015|222 150 136 SETB20; NEV; J128=Z;
3617/2: 171 144|042|033|027|170 144 I6; DUP; NOT; NEG; =I6;
3620/3: 164 101|011 SHL+32; OR;
3621/0: 171 102|164 061 M4; SHL+24;
3621/4: 011|101 345|170 356|171 162|164 117 130; OR; =M5M14; =Q14; M7; SHL+39;
3623/1: 047|033|172 030|157 222|052 STR; NOT; =+C1; Q9TOQ2; ERASE;
3624/2: 304 000 246|222 027 262 SETB246; J131=;
3625/2: 304 000 230|015|204 147 176 SETB230; NEV; J108≠Z; (NOT SEMICOLON);
3626/3: 304 000 140|170 162|264 027 313 SETB140; =M7; J149C1NZ; (SPECIFICATION NOT COMPLETE);
3627/5: 304 000 230 SETB230;
(END OF PROCEDURE HEADING);
3630/2: 042|170 110|200 333 305 133; DUP; =C4; JSP7;
3631/2: 304 200 000|170 070 SETB100000; =C3;
3632/1: 171 062|170 130 M3; =C5;
3632/5: 151 006|154 007 M0TOQ6; C0TOQ7;
3633/3: 304 101 214|200 333 260 SETB40614; JSP6;
3634/3: 201 267 044 J16;
3635/0: 304 000 314|171 102|164 121|011|200 267 146 SETB314; M4; SHL+40; OR; J103;
3636/5: 012|170 356|170 056 113; PERM; =Q14; =Q2;
3637/4: 171 042|171 122|027 M2; M5; NEG;
3640/3: 172 042|171 022|036|042|170 050 =+M2; M1; -; DUP; =C2;
3641/5: 221 047 044 J16<Z;
3642/2: 203 150 144 J118≠Z;
3642/5: 171 162|167 125|047|225 050 142 M7; SHC+42; STR; J127<Z;
3644/1: 042|164 015|223 047 245 DUP; SHL+6; J145<Z;
3645/1: 154 001 C0TOQ1;
3645/3: 164 003|200 047 252 145; SHL+1; J119≥Z; (NOT PROCEDURE, SWITCH);
3646/2: 171 162|164 131|200 050 146 M7; SHL+44; J109≥Z; (PROCEDURE);
3647/3: 304 000 265|204 027 176 SETB265; J108≠;
3650/3: 200 334 112 JSP16;
3651/0: 204 270 301 J42;
3651/3: 304 000 013 SETB13;
3652/0: 171 144|042|033|027|170 144 119; I6; DUP; NOT; NEG; =I6;
3653/1: 164 021|171 102|011|164 061 SHL+8; M4; OR; SHL+24;
3654/2: 171 162|304 001 377|054|011|042 126; M7; SETB777; AND; OR; DUP;
3655/4: 103 045|200 333 305 =M5M2Q; JSP7; (OUTPUT CODEWORD);
3656/3: 171 162|304 000 130|015|221 147 107 M7; SETB130; NEV; J142=Z;
3660/0: 304 000 246|200 027 310 139; SETB246; J110≠; (TERMINATOR NOT C0MMA);
3661/0: 143 020|304 000 253|200 333 305 DC1; SETB253; JSP7;
3662/2: 052|171 162|304 200 000|201 267 172 131; ERASE; M7; SETB100000; J111;
3663/5: 222 047 265 134; J135<Z;
3664/2: 200 331 215|203 267 131 JSP1; J23;
3665/2: 304 000 234|224 027 176 135; SETB234; J108=;
3666/2: 304 000 245|224 027 176 SETB245; J108=;
3667/2: 304 000 230|205 027 263 SETB230; J134≠;
3670/2: 304 300 000|170 070|204 333 267 SETB140000; =C3; JS1P6;
3671/4: 201 267 046 J19;
3672/1: 205 267 312 J147;
3672/4: 153 052|143 360|264 367 277 105; IM2TOQ10; DC15; J114C15NZ;
3673/5: 042|164 133|205 147 275 DUP; SHL+45; J136≠Z;
3674/5: 171 162|033|027|170 162 M7; NOT; NEG; =M7;
3675/5: 304 376 377|054 136; SETB177377; AND;
3676/3: 304 377 270|054 115; SETB177670; AND;
[ original source of the next page
3677/1: 204 267 170 J116;
3677/4: 143 360|243 367 276 114; DC15; J115C15Z; (*PROCEDURE);
3700/3: 143 360|244 367 170 DC15; J116C15Z; (*SWITCH);
3701/2: 304 377 374|172 370|244 367 170 SET-4; =+C15; J116C15Z; (*LABEL , *STRING);
3702/4: 304 377 376|172 370|263 367 305 SET-2; =+C15; J101C15NZ; (NOT *OWN);
3704/0: 065|052|304 001 000|065|202 267 171 REV; ERASE; SETB400; REV; J117;
3705/3: 304 376 302|200 334 023|203 270 311 101; SET-318; JSP9; J157;
3707/0: 304 377 357|201 266 340 104; SET-17; J4;
3710/0: 171 162|167 365|164 247 110; M7; SHC-6; SHL-45;
3711/0: 170 370|264 367 100 =C15; J112C15NZ;
3711/5: 304 000 230|204 027 176 141; SETB230; J108≠;
3712/5: 151 007|200 333 305 147; M0TOQ7; JSP7;
3713/4: 200 331 215 149; JSP1;
3714/1: 203 267 131 J23;
3714/4: 304 000 200|200 026 374 148; SETB200; J10≠;
3715/4: 052|200 331 215 34; ERASE; JSP1;
3716/2: 203 267 131 J23;
3716/5: 304 000 230|204 027 315 SETB230; J34≠;
3717/5: 052|204 267 313 ERASE;J149;
3720/3: 052|200 266 365 30; ERASE; J32;
V-store at 03110 = 000 100 047 321 207 331 V8=QB100/AR58/AR31;
V-store at 03115 = 000 000 007 337 007 337 V13=Q0/AR35/AR35;
V-store at 03111 = 107 107 006 365 006 365 V9=QB43507/AR32/AR32;
58; (ARITHMETIC OPERATORS);
3721/1: 042|304 000 301|036|225 050 052 DUP; SETB301; -; J82<Z;
3722/3: 245 110 052 J82C4Z;
3723/0: 171 110|304 000 377|054|304 000 235|220 027 331 C4; SETB377; AND; SETB235; J59=;
3725/0: 304 000 224|220 027 331 SETB224; J59=;
3726/0: 304 000 232|220 027 331 SETB232; J59=;
3727/0: 304 000 233|220 027 331 SETB233; J59=;
3730/0: 052|304 000 040|056|042 ERASE; SETB40; +; DUP;
3731/0: 052|205 270 052 59; ERASE; J82;
3731/4: 304 000 160|054|042|201 147 340 31; SETB160; AND; DUP; J33≠Z;
3733/0: 052|171 110|304 000 214|224 027 315 ERASE; C4; SETB214; J34=;
3734/3: 304 000 230|224 027 315 SETB230; J34=;
3735/3: 304 376 305|200 334 023|204 267 315 SET-315; JSP9; J34;
3737/0: 052|304 377 361|201 266 340 35; ERASE; SET-15; J4;
3740/1: 304 000 040|223 027 320 33; SETB40; J30=;
3741/1: 304 000 060|224 030 350 SETB60; J200=;
3742/1: 200 267 337 J35;
V-store at 03117 = 000 144 047 137 207 342 V15=QB144/AR13/AR36;
3742/4: 304 000 216|220 027 337 36; SETB216; J35=;
3743/4: 203 267 320 J30;
V-store at 03116 = 004 104 250 322 047 344 V14=QB2104/AR50/AR40;
3744/1: 304 000 214|200 027 363 40; SETB214; J41≠;
3745/1: 171 076|204 047 050 Q3; J153≥Z;
3746/0: 171 070|304 140 000|011|170 070 C3; SETB60000; OR; =C3;
3747/2: 171 024|167 357|222 047 355 I1; SHC-9; J43<Z;
3750/3: 304 000 040 SETB40;
3751/0: 043|304 000 360|054 123; DUPD; SETB360; AND;
3751/5: 011|171 102|164 121|011 OR; M4; SHL+40; OR;
3752/5: 200 333 305 138; JSP7;
3753/2: 164 021|011 SHL+8; OR;
3753/5: 200 333 260|201 267 044|200 266 365 JSP6; J16; J32;
3755/2: 052|171 024|042 43; ERASE; I1; DUP;
3756/0: 304 376 377|054|170 024 SETB177377; AND; =I1;
3757/0: 304 101 214|015|200 146 365 SETB40614; NEV; J32≠Z;
3760/1: 304 340 000|172 070 SETB160000; =+C3;
3761/0: 151 007|200 266 365 M0TOQ7; J32;
3761/5: 052|204 333 267 63; ERASE; JS1P6;
[ original source of the next page
3762/3: 201 267 046 J19;
3763/0: 171 024|304 002 225|225 027 361 41; I1; SETB1225; J63=; (CLEAR *THENS);
3764/2: 304 000 131|225 027 361 SETB131; J63=; (CLEAR LABELS);
3765/2: 042|221 147 046 DUP; J19=Z;
3766/0: 304 001 237|054|304 000 214|015|223 147 372 SETB637; AND; SETB214; NEV; J44=Z;
3767/5: 171 024|304 000 017|054|304 000 014|015 I1; SETB17; AND; SETB14; NEV;
3771/3: 201 147 045 J17≠Z;
3772/0: 304 000 234 SETB234;
3772/3: 304 000 230|225 030 132 44; SETB230; J61=;
3773/3: 171 024|164 351|164 011|011 I1; SHL-12; SHL+4; OR;
3774/4: 171 024|164 361|304 000 373|054 I1; SHL-8; SETB373; AND;
3776/0: 304 000 040|221 030 016 SETB40; J45=;
3777/0: 304 000 142|221 030 016 SETB142; J45=;
4000/0: 304 000 143|221 030 016 SETB143; J45=;
4001/0: 065|042|241 047 044 REV; DUP; J16C2Z;
4001/5: 171 124|170 362|100 365 I5; =M15; M5M15;
4002/5: 170 216|171 210|042|171 042 =Q8; C8; DUP; M2;
4004/0: 171 024|304 360 377|054 I1; SETB170377; AND;
4005/0: 304 100 214|015|201 150 012 SETB40214; NEV; J137≠Z;
4006/1: 052|170 222|100 225 ERASE; =M9; M5M9;
4007/0: 041|166 041|065 ZERO; SHLD+16; REV;
4007/4: 041|166 041|170 170 ZERO; SHLD+16; =C7;
4010/3: 164 341|171 042|166 341 SHL-16; M2; SHLD-16;
4011/3: 052|101 225|042 ERASE; =M5M9; DUP;
4012/1: 170 210|170 124|171 216 137; =C8; =I5; Q8;
4013/1: 101 365|164 101|011 =M5M15; SHL+32; OR;
4014/0: 103 045 =M5M2Q;
4014/2: 171 062|164 101|011 M3; SHL+32; OR;
4015/1: 171 142|164 063|011 M6; SHL+25; OR;
4016/0: 065 REV;
4016/1: 065 45; REV;
4016/2: 171 102|164 121|011|200 333 305 M4; SHL+40; OR; JSP7;
4017/4: 204 333 267 JS1P6;
4020/1: 201 267 046 J19;
4020/4: 171 024|164 113|221 047 055 I1; SHL+37; J155<Z;
4021/5: 041|065|166 377 ZERO; REV; SHLD-1;
4022/3: 304 000 040|015|225 147 263 SETB40; NEV; J134=Z;
4023/4: 220 047 363 J41<Z;
4024/1: 200 331 215 47; JSP1;
4024/4: 205 270 031 J48;
4025/1: 304 000 230|220 026 374 SETB230; J10=;
4026/1: 304 000 234|220 026 374 SETB234; J10=;
4027/1: 304 000 245|220 026 374 SETB245; J10=;
4030/1: 052|201 270 024 ERASE; J47;
4030/5: 304 002 150|201 266 340 49; SET616; J4;
4031/5: 042|304 000 002|056|223 047 131 48; DUP; SET2; +; J23<Z; [ layout altered by DHo to put label at LH edge
4033/1: 052|171 024|205 150 030 ERASE; I1; J49≠Z;
4034/1: 300 006 132|304 000 020|011 V26; SETB20; OR;
4035/2: 200 333 305 JSP7;
4035/5: 204 333 330 JS4P7;
4036/2: 304 000 240|200 333 373 SETB240; JSP8;
4037/2: 203 334 221 JS3P754;
4037/5: 304 001 234|101 045 SETB634; =M5M2;
4040/4: 171 042|164 101|100 120 M2; SHL+32; M0M5;
4041/4: 011|101 120 OR; =M0M5;
4042/1: 304 260 141|167 003|200 320 106 SETB130141; SHC+1; JSE70; [B130141; SHC+1; i.e. B060303; (CLOSE CH.3);
4043/3: 017|017|017 DUMMY; DUMMY; DUMMY;
4044/0: 201 331 360 JS7P1;
4044/3: 017|017|017 DUMMY; DUMMY; DUMMY;
[ original source of the next page
4045/0: 320 013 126|320 013 127|166 041|167 341|321 013 127 Z9; Z8; SHLD+16; SHC-16; =Z8;
4047/1: 052 ERASE; (COPY OF FIRST FREE LABEL NUMBER);
4047/2: 202 266 341 J162;
V-store at 03133 = 000 000 004 022 336 010 V27=Q0/B2022/B157010;
V-store at 03132 = 001 000 000 000 001 214 V26=Q256/0/B614;
V-store at 03126 = 000 001 000 000 110 300 V22=Q1/0/B44300;
V-store at 03127 = 110 310 310 314 210 300 V23=B2214431063104300;
V-store at 03130 = 000 000 000 000 133 340 V24=Q0/0/B55740;
V-store at 03131 = 133 350 332 334 233 360 V25=B2676433267115760;
4047/5: 304 000 204|205 030 053 80; SETB204; J81≠;
4050/5: 265 110 052 J82C4NZ; (LAST BS NOT AN IDENTIFIER );
4051/2: 304 007 000|172 024|304 000 007|056 SETB3400; =+I1; SET7; +;
4052/5: 304 000 007|201 270 131 82; SET7; J62;
4053/5: 304 000 224|225 030 052 81; SETB224; J82=; (CLOSING EXPRESSION BRACKET );
4054/5: 171 362|200 334 175 M15; JSP15;
4055/4: 204 270 056 J83;
4056/1: 205 270 133 J84;
4056/4: 042|223 047 131 83; DUP; J23<Z;
4057/2: 220 107 337 J35>Z; (INVALID PARAMETER COMMENT);
4057/5: 304 007 204|200 333 260 SETB3604; JSP6;
4060/5: 201 267 044 J16;
4061/2: 170 030|052|304 000 246 =C1; ERASE; SETB246;
4062/2: 200 266 374 J10;
V-store at 03112 = 300 000 250 062 250 047 V10=QB140000/AR90/AR80;
( ROUND BRACKETS . IF . THEN . ELSE );
4062/5: 304 000 265|205 030 064 90; SETB265; J91≠; (NOT := );
4063/5: 304 000 107|201 270 131 SETB107; J62;
4064/5: 042|164 371|304 000 010|036|170 370 91; DUP; SHL-4; SET8; -; =C15;
4066/2: 263 370 076 J92C15NZ; ( NOT IF );
4066/5: 304 000 027|065|041|171 076|204 050 072 SETB27; REV; ZERO; Q3; J93≥Z;
4070/3: 052|304 000 131|200 333 260 ERASE; SETB131; JSP6;
4071/4: 201 267 046 J19;
4072/1: 304 000 002 SET2; (STATEMENT IF);
4072/4: 043|056|012|164 021|056|200 333 260 93; DUPD; +; PERM; SHL+8; +; JSP6;
4074/1: 201 267 044 J16;
4074/4: 065|201 270 131 REV; J62;
4075/2: 052|204 333 267 78; ERASE; JS1P6;
4076/0: 201 267 046 J19; (DENEST LABELS);
4076/3: 171 024|304 000 377|054|304 000 131|222 030 075 92; I1; SETB377; AND; SETB131; J78=;
4100/3: 304 000 020|056|201 027 045 SETB20; +; J17≠;
4101/4: 171 024|204 333 267 I1; JS1P6; (DENEST LAST *IF OR *THEN);
4102/3: 201 267 046 J19;
4103/0: 164 361|042|164 005|304 000 027|011 SHL-8; DUP; SHL+2; SETB27; OR;
4104/3: 012|065|042|012 PERM; REV; DUP; PERM;
4105/1: 304 000 375|054|304 000 245|015|204 150 072 SETB375; AND; SETB245; NEV; J93≠Z;
4107/0: 011|065|201 270 131 OR; REV; J62;
V-store at 03113 = 000 000 007 337 250 107 V11=Q0/AR35/AR120;
(FOR ETC);
4107/5: 304 000 206|203 030 113 120; SETB206; J121≠;
4110/5: 171 076|047|065|170 076|201 047 047 Q3; STR; REV; =Q3; J20≥Z;
4112/2: 042|200 333 260 DUP; JSP6;(FOR TO BRACKET STACK);
4113/0: 201 267 044 J16;
4113/3: 171 024|304 000 206|015|202 150 122 121; I1; SETB206; NEV; J124≠Z;
4115/0: 304 000 326|204 030 126 SETB326; J122≠;
4116/0: 204 333 267|201 267 046 JS1P6; J19;
4117/0: 304 000 214|304 000 143|066 SETB214; SETB143; CAB;
4120/1: 304 007 351|174 000 SETAR123; =LINK;
4121/0: 304 000 137|164 121|204 267 024 SETB137; SHL+40; J14;
[ original source of the next page
4122/2: 304 000 246|201 027 045 124; SETB246; J17≠;
4123/2: 052|171 024|042|164 361|056 ERASE; I1; DUP; SHL-8; +;
4124/3: 304 000 017|054|304 000 240|011|304 000 001 SETB17; AND; SETB240; OR; SET1;
4126/2: 172 030 =+C1;
4126/4: 304 000 107|201 270 131 122; SETB107; J62;
V-store at 03114 = 004 304 010 260 210 127 V12=QB2304/AR70/AR60;
(GO TO,SEMICOLON,SQUARE BRACKETS,COLON);
4127/4: 304 000 230|224 027 112 60; SETB230; J89=;
4130/4: 304 000 163 SETB163;
4131/1: 164 121|304 006 365|174 000|204 267 024 62; SHL+40; SETAR32; =LINK; J14;
4132/5: 304 000 033|201 270 131 61; SETB33; J62;
84; (CLOSING BRACKET ACTION);
4133/5: 012|052|304 006 374|174 000 PERM; ERASE; SETAR10; =LINK;
4135/0: 304 000 007|164 121|204 267 024 SET7; SHL+40; J14;
4136/2: 171 064|042|033|027|170 064 128; I3; DUP; NOT; NEG; =I3;
4137/3: 042|164 121|065|304 000 300|036 DUP; SHL+40; REV; SET192; -;
4140/5: 204 107 221 J130≤Z;
4141/2: 304 376 277|200 334 023 SET-321; JSP9;
4142/2: 204 267 221 J130;
4142/5: 167 255|304 177 277|054|042|222 147 254 127; SHC-42; SETB77677; AND; DUP; J126=Z;
4144/3: 304 376 300|200 334 023|203 270 311 118; SET-320; JSP9; J157;
4146/0: 304 100 214|200 333 260 109; SETB40214; JSP6;
4147/0: 201 267 044 J16;
4147/3: 171 102|171 164|033|027|042 M4; I7; NOT; NEG; DUP;
4150/4: 170 164|042|304 000 140|036|202 110 153 =I7; DUP; SET96; -; J132≤Z;
4152/2: 304 376 277|200 334 023 SET-321; JSP9;
4153/2: 042|170 102 132; DUP; =M4;
4153/5: 164 021|011|164 101|171 162 SHL+8; OR; SHL+32; M7;
4155/0: 304 001 377|054|011|042 SETB777; AND; OR; DUP;
4156/0: 164 133|223 150 160 SHL+45; J125=Z;
4156/5: 171 144|042|033|027|170 144 I6; DUP; NOT; NEG; =I6;
4160/0: 164 025|011 SHL+10; OR;
4160/3: 241 047 044|042|103 045|200 333 305 125; J16C2Z; DUP; =M5M2Q; JSP7;
4162/0: 241 047 044|304 000 254|164 101|171 170 J16C2Z; SETB254; SHL+32; C7;
4163/4: 166 341|052|171 124|166 341 SHLD-16; ERASE; I5; SHLD-16;
4164/5: 052|171 130|170 062 ERASE; C5; =M3;
4165/4: 171 042|042|170 130|170 124 M2; DUP; =C5; =I5;
4166/5: 103 045|304 000 230|222 027 230 =M5M2Q; SETB230; J133=;
4170/1: 304 000 204|015|204 147 176 SETB204; NEV; J108≠Z;
4171/2: 304 000 213|200 333 305 SETB213; JSP7;
4172/2: 304 200 140|151 007|154 001 SETB100140; M0TOQ7; C0TOQ1;
4173/3: 205 267 171 J106;
4174/0: 304 377 375|172 370|264 366 337 143; SET-3; =+C15; J3C15NZ;
4175/2: 304 000 224|015|204 147 176 SETB224; NEV; J108≠Z;
4176/3: 200 334 175 JSP15;
4177/0: 201 270 217 J146;
4177/3: 304 000 230|015|204 147 176 SETB230; NEV; J108≠Z;
4200/4: 304 000 233|200 333 305 SETB233; JSP7;
4201/4: 143 020|142 020|171 030|041|166 125 DC1; NC1; C1; ZERO; SHLD+42;
4203/1: 200 147 307|164 341|171 130|170 362 J104≠Z; SHL-16; C5; =M15;
4204/4: 152 057|141 360|100 365|011|101 365 I2TOQ15; M-I15; M5M15; OR; =M5M15;
4206/1: 304 020 000|172 070|304 000 140|170 162 SETB10000; =+C3; SETB140; =M7;
4207/5: 157 051 Q2TOQ9;
4210/1: 200 331 215|203 267 131 166; JSP1; J23;
4211/1: 304 000 200|200 030 215 SETB200; J167≠;
4212/1: 052|200 331 215 168; ERASE; JSP1;
4212/5: 203 267 131 J23;
4213/2: 304 000 230|201 030 212 SETB230; J168≠;
[ P3; J4;
4224/1: 304 014 310|042|170 223|036|170 230 SETAYB0; DUP; =RM9; -; =C9;
4225/4: 304 000 271|203 030 227 SETB271; J65≠;
4226/4: 171 076|224 050 240 Q3; J64<Z;
4227/3: 042|304 000 265|015|304 000 100|065 65; DUP; SETB265; NEV; SETB100; REV;
4231/0: 204 150 232 J68≠Z;
4231/3: 304 002 000|011|200 267 120 67; SETB1000; OR; J25;
4232/4: 065|042|012 68; REV; DUP; PERM;
4233/1: 304 000 211|015|200 147 120 SETB211; NEV; J25≠Z; (NOT [);
4234/2: 171 076|167 011|047|033|164 017 Q3; SHC+4; STR; NOT; SHL+7;
4235/4: 170 210|041|033|050|167 371 =C8; ZERO; NOT; CONT; SHC-4;
4236/5: 170 076|240 207 120 =Q3; J25C8Z; (INNER [);
4237/4: 205 333 351 JS6P7; (HOLD);
4240/1: 200 267 120 J25;
4240/4: 052|304 000 131|042|164 117|171 142 64; ERASE; SETB131; DUP; SHL+39; M6;
4242/1: 166 363|052|171 062|166 361|052 SHLD-7; ERASE; M3; SHLD-8; ERASE;
4243/3: 171 102|166 361|052|320 013 126|167 041 M4; SHLD-8; ERASE; Z9; SHC+16;
4245/1: 042|033|027|167 341|321 013 126 DUP; NOT; NEG; SHC-16; =Z9;
4246/3: 166 341|052|171 056 SHLD-16; ERASE; Q2; (LABEL DECN. CODEWORD);
4247/2: 241 047 044 69; J16C2Z;
4247/5: 102 220|103 045|262 230 247 M0M9Q; =M5M2Q; J69C9NZ;
4251/0: 170 376|171 124|170 370|171 122|172 362 =Q15; I5; =C15; M5; =+M15;
4252/4: 171 356|171 376|200 333 224 Q14; Q15; JSP5;
4253/5: 202 270 255 J79;
4254/2: 052 ERASE;
4254/3: 170 356|203 270 144 77; =Q14; J118;
4255/2: 203 150 254 79; J77≠Z;
4255/5: 170 356|241 047 044 =Q14; J16C2Z;
4256/4: 042|103 045|041|065|205 267 352 DUP; =M5M2Q; ZERO; REV; J138;
4260/0: 304 000 211|203 030 263|154 201 70; SETB211; J71≠; C8TOQ1;
4261/2: 304 001 000|172 024 SETB400; =+I1;
4262/1: 033|027 NOT; NEG;
4262/3: 200 333 305|200 266 365 72; JSP7; J32;
4263/3: 304 000 232|201 030 274 71; SETB232; J73≠;
4264/3: 171 362|203 050 262 M15; J72≥Z;
4265/2: 200 333 305 JSP7;
4265/5: 200 331 215 JSP1;
4266/2: 203 267 131 J23;
4266/5: 304 000 265|203 030 271 SETB265; J74≠;
4267/5: 205 333 334 JS5P7;
4270/2: 304 002 000|011|202 333 326 SETB1000; OR; JS3P7;
4271/3: 204 333 356 74; JS7P7;
4272/0: 171 076|167 011|047|052|167 371 Q3; SHC+4; STR; ERASE; SHC-4;
4273/2: 170 076|200 266 374 =Q3; J10;
4274/1: 304 000 231|203 030 262 73; SETB231; J72≠;
4275/1: 171 362|065|042|200 333 305 M15; REV; DUP; JSP7;
4276/2: 065|161 377|001|161 125 REV; SHA-1; VR; SHA+42;
4277/2: 164 323|204 210 303 88; SHL-23; J76NV;
4300/1: 304 376 275|200 334 023 144; SET-323; JSP9;
4301/1: 203 270 311 J157;
4301/4: 304 377 372|201 266 340 42; SET-6; J4;
[ original source of the next page
4302/4: 200 334 112 75; JSP16;
4303/1: 204 270 301 J42;
4303/4: 042|100 245|011|103 245|264 250 302 76; DUP; M5M10; OR; =M5M10Q; J75C10NZ;
4305/1: 052|304 300 000|170 070|304 000 231|205 027 311 ERASE; SETB140000; =C3; SETB231; J141≠;
4307/1: 052|200 331 215 ERASE; JSP1;
4307/5: 203 267 131 J23;
4310/2: 143 020|142 020|200 267 260 DC1; NC1; J139;
4311/3: 171 024|042|304 000 377|054 157; I1; DUP; SETB377; AND;
4312/4: 304 000 214|015|042|066 SETB214; NEV; DUP; CAB;
4313/4: 164 351|304 000 004|015|011|222 150 317|225 147 053 SHL-12; SET4; NEV; OR; J160=Z; J156=Z;
4315/5: 204 333 267|201 267 046|203 270 311 JS1P6; J19; J157;
4317/2: 052|171 162|164 125 160; ERASE; M7; SHL+42;
4320/1: 151 007|225 047 053 M0TOQ7; J156<Z;
4321/0: 100 020|304 004 000|011|101 020 M0M1; SETB2000; OR; =M0M1;
4322/2: 205 267 053 J156;
4322/5: 042|304 000 100|054|225 150 325 50; DUP; SETB100; AND; J51=Z; (NOT *TRUE OR *FALSE);
4324/1: 304 000 040|036|304 000 107|201 270 131 SETB40; -; SETB107; J62;
4325/5: 304 000 001|065|154 010 51; SET1; REV; C0TOQ8;
4326/5: 304 000 215|224 030 333 SETB215; J54=; ([);
4327/5: 052|052|304 376 274|200 334 023 ERASE; ERASE; SET-324; JSP9;
4331/1: 203 270 311 J157;
4331/4: 200 333 260 52; JSP6; ([ TO BRACKET STACK);
4332/1: 201 267 044 J16;
4332/4: 200 331 215 53; JSP1; (FETCH NEXY ABS);
4333/1: 203 267 131 J23;
4333/4: 042|066|041|166 021|170 230 54; DUP; CAB; ZERO; SHLD+8; =C9;
4334/5: 011|240 230 341 OR; J56C9Z;
4335/3: 200 334 136 JS6P45;
4336/0: 263 210 340 J55C8NZ;
4336/3: 143 200|164 101|304 000 215|011|200 333 305 DC8; SHL+32; SETB215; OR; JSP7;
4340/2: 041 ZERO;
4340/3: 052|171 230 55; ERASE; C9; (MARKER FOR OUTPUT);
4341/0: 065|304 000 377|222 030 347 56; REV; SETB377; J57=;
4342/1: 304 000 215|224 030 331 SETB215; J52=; ([);
4343/1: 304 000 235|015|204 150 332 SETB235; NEV; J53≠Z; (NOT ]);
4344/2: 204 333 267 JS1P6;
4344/5: 201 267 044 J16;
4345/2: 171 024|304 000 215|015|224 150 332 I1; SETB215; NEV; J53=Z; (NOT LAST ]);
4346/5: 304 000 377 SETB377;
4347/2: 244 230 333 57; J54C9Z; (FILL LAST OUTPUT WORD WITH DUMMY ABS);
4347/5: 052|052|200 266 365 ERASE; ERASE; J32;
200; (CODE BODIES);
(V30= LAST D LIST ENTRY);
V-store at 03137 = 027 024 031 026 230 242 V31=B0561 2031 0551 4242; [027 024 031 026 230 242 LINK;=
V-store at 03140 = 044 000 030 002 034 230 V32=B1100 0030 0041 6230; [044 000 030 002 034 230 Y0M2Q;
V-store at 03141 = 000 001 000 001 006 146 V33=Q1/1/AV38;
V-store at 03142 = 000 004 000 001 006 143 V34=Q4/1/AV35;
V-store at 03143 = 236 030 321 024 002 230 V35=B4741 4321 0500 1230; [236 030 321 024 002 230 M-I2;
V-store at 03144 = 236 044 000 030 002 230 V36=B4742 2000 0600 1230; [236 044 000 030 002 230 Y0M2;
V-store at 03145 = 242 027 024 031 026 230 V37=B5041 3424 0621 3230; [242 027 024 031 026 230 =LINK;
V-store at 03146 = 020 043 024 037 001 230 V38=B0402 1424 0760 0630; [020 043 024 037 001 230 EXIT1;
V-store at 03147 = 240 033 000 230 377 377 V39=B5001 5400 4617 7777; [240 033 000 230 377 377 P0;
V-store at 03150 = 025 036 033 000 000 000 V40=B0521 7033 0000 0000; [025 036 033 000 000 000 JSP000
4350/4: 052|171 076|200 051 026 ERASE; Q3; J201≥Z;
4351/4: 171 024|304 101 214|015|200 151 026 I1; SETB40614; NEV; J201≠Z;
4353/1: 141 040|100 045|042|301 006 136|164 301 M-I2; M5M2; DUP; =V30; SHL-32;
[ original source of the next page
4354/5: 170 251|157 057|154 257|171 122|172 362 =RC10; Q2TOQ15; C10TOQ15; M5; =+M15;
4356/3: 171 356|171 376|200 333 224 Q14; Q15; JSP5; (CHECK FORMAL LIST);
4357/4: 224 150 361 J202=Z;
4360/1: 304 376 157|200 334 023 216; SET-401; JSP9; (FORMALS INVALID IN CODE);
4361/1: 203 270 311 J157;
4361/4: 170 356|241 370 360 202; =Q14; J216C15Z;
4362/3: 171 362|204 150 363 M15; J203≠Z; (NOT STARRED);
4363/2: 152 012 I0TOQ10; (SET STARRED FUNCTION MARKER);
4363/4: 304 000 004|170 270|304 000 241 203; SET4; =C11; SETB241; (CODE SPEC SEPARATOR);
4365/0: 304 000 241|015|200 151 027 204; SETB241; NEV; J205≠Z; (WRONG SEPARATOR);
4366/1: 200 331 215 JSP1;
4366/4: 203 267 131 J23;
4367/1: 042|304 000 011|036|220 111 027 DUP; SET9; -; J205>Z; (NONNUMERIC);
4370/3: 200 333 100 JSP4; (NUMBER READ);
4371/0: 200 271 027 J205; (FAIL);
4371/3: 200 271 027 J205; (FLOATING POINT);
4372/0: 065|143 260|260 270 365 REV; DC11; J204C11NZ;
4373/0: 304 000 237|036|026|304 000 007|036|200 151 027 SET159; -; ABS; SET7; -; J205≠Z; (WRONG TERMINATOR);
4375/0: 304 000 041|164 121|171 102|304 240 033 SETB41; SHL+40; M4; SETB120033;
4376/4: 164 101|304 000 002|154 013|200 334 103 SHL+32; SET2; C0TOQ11; JSP14; (P<LEVEL>V<VSTORES>);
4400/2: 200 271 027 J205;
4400/5: 304 000 016|036|220 111 027 SET14; -; J205>Z; (TOO MANY SJNS);
4402/0: 041|166 131|200 151 027 ZERO; SHLD+44; J205≠Z; (TOO MANY QS);
4403/0: 065|166 371|200 151 027 REV; SHLD-4; J205≠Z; (TOO MANY NS);
4404/0: 171 102|166 341|052|304 000 216|011 M4; SHLD-16; ERASE; SETB216; OR;
4405/3: 304 000 001|164 053|011|200 333 305 SET1; SHL+21; OR; JSP7; (CODE WORD);
4407/0: 171 244|223 151 012 I10; J207=Z; (*FUNCTION);
4407/5: 300 006 137|200 334 210 V31; JSP754;
4410/5: 300 006 140|200 334 210 V32; JSP754; (LINK≠Y0M2Q/);
4411/5: 143 260|143 260 DC11; DC11;
4412/3: 304 000 236|201 334 220 207; SETB236; JS1P754; (SP BEFORE INSTRUCTION);
4413/3: 200 331 215 JSP1;
4414/0: 203 267 131 J23;
4414/3: 304 000 360|203 031 030 SETB360; J210≠; (NOT *EXIT);
4415/3: 052|300 006 141|170 236|171 244|221 151 020 ERASE; V33; =Q9; I10; J209=Z;
4417/2: 300 006 142|170 236 V34; =Q9;
4420/1: 102 220 209; M0M9Q;
4420/3: 200 334 210 223; JSP754;
4421/0: 200 334 076 JSP13;
4421/3: 261 231 020 J209C9NZ;(OUTPUT APPROPRIATE SEQUENCE);
4422/0: 200 331 215 211; JSP1;
4422/3: 203 267 131 J23;
4423/0: 304 000 237|036|026|304 000 007|036|223 151 012 SET159; -; ABS; SET7; -; J207=Z; (TERMINATOR);
4425/0: 304 376 155|203 271 027 212; SET-403; J165;
4426/0: 304 376 160|203 271 027 201; SET-400; J165;
4427/0: 304 376 156 205; SET-402;
4427/3: 200 334 023 165; JSP9;
4430/0: 203 270 311 J157;
4430/3: 304 000 300|201 031 036 210; SETB300; J231≠; (NOT *ALGOL);
4431/3: 052|300 006 147|200 334 210 ERASE; V39; JSP754; (P0/);
4432/4: 300 006 136|103 045 V30; =M5M2Q;
4433/3: 200 331 215 JSP1;
4434/0: 203 267 131 J23;
4434/3: 304 000 230|220 026 374 SETB230; J10=;
4435/3: 052|200 271 025 ERASE; J212;
4436/1: 042|304 000 012|036|200 051 046 231; DUP; SET10; -; J213≥Z; (NOT DIGIT);
4437/3: 304 000 240|201 334 220 SETB240; JS1P754;
4440/3: 154 013|202 271 042 C0TOQ11; J214; (NEWLINE FOR LABEL);
4441/2: 200 331 215 208; JSP1;
[ original source of the next page
4441/5: 203 267 131 J23;
4442/2: 042|201 334 220 214; DUP; JS1P754;
4443/0: 304 000 237|036|026|304 000 007|036|202 151 041 SET159; -; ABS; SET7; -; J208≠Z;
4445/0: 200 334 076 JSP13;
4445/3: 203 271 012 J207; (SKIP TO END OF INSTRUCTION);
4446/0: 304 000 204|224 031 063 213; SETB204; J215=; (OPENING BRACKET);
4447/0: 151 012|304 000 242|225 031 057 M0TOQ10; SETB242; J217=; (=);
4450/2: 304 000 025|201 031 053 SETB25; J218≠; (NOT J);
4451/2: 304 000 001 SET1;
4451/5: 170 242|200 331 215 219; =M10; JSP1;
4452/4: 203 267 131 J23;
4453/1: 304 000 215|220 031 074 218; SETB215; J220=; (FORMAL INSTRUCTION);
4454/1: 171 242|222 151 042 M10; J214=Z; (1 ABS READ);
4455/0: 065|201 334 220 REV; JS1P754;
4455/4: 171 242|222 051 042 M10; J214<Z; (NOT A JUMP);
4456/3: 304 000 001|170 270|202 271 042 SET1; =C11; J214;
4457/5: 041|033|205 271 051 217; ZERO; NOT; J219;
4460/4: 052|170 356|304 376 153|200 334 023 226; ERASE; =Q14; SET-405; JSP9;
4462/1: 203 270 311 J157;
222; (USERCODE COMMENTS);
4462/4: 200 331 215 JSP1;
4463/1: 203 267 131 J23;
4463/4: 042|201 334 220 215; DUP; JS1P754;
4464/2: 304 000 204|205 031 066 SETB204; J221≠; (NOT OPENING BRACKET);
4465/2: 200 333 260 JSP6;
4465/5: 201 267 044 J16;
4466/2: 204 271 062 J222;
4466/5: 304 000 224|015|204 151 062 221; SETB224; NEV; J222≠Z; (NOT CLOSING BRACKET);
4470/0: 204 333 267 JS1P6;
4470/3: 201 267 044 J16;
4471/0: 171 024|304 101 214|015|204 151 062 I1; SETB40614; NEV; J222≠Z; (DENEST);
4472/3: 304 000 230|201 334 220 SETB230; JS1P754;
4473/3: 200 271 022 J211;
4474/0: 052|171 242|221 151 075 220; ERASE; M10; J206=Z;
4475/0: 052 ERASE;
4475/1: 200 331 215 206; JSP1;
4475/4: 203 267 131 J23;
4476/1: 042|304 000 100|036|220 051 101 DUP; SETB100; -; J224<Z; (ALPHA NUMERIC);
4477/3: 304 376 154|200 334 023 225; SET-404; JSP9;
4500/3: 203 270 311 J157;
4501/0: 042|304 000 014|036|223 051 077 224; DUP; SETB14; -; J225<Z; (NONALPHA);
4502/2: 157 051|304 000 037|170 050|171 122|172 042 Q2TOQ9; SET31; =C2; M5; =+M2;
4504/1: 171 056|200 333 037 Q2; JSP3; (READ FORMAL IDENTIFIER);
4505/0: 201 266 340 J4;
4505/3: 170 376|171 362|171 022|036|221 047 044 =Q15; M15; M1; -; J16<Z;
4507/1: 304 000 235|015|203 151 077 SETB235; NEV; J225≠Z; (NOT [);
4510/2: 154 242|171 356|171 056|200 333 224 C10TOQ2; Q14; Q2; JSP5;
4511/5: 204 271 060 J226; (FORMAL NOT IN LIST);
4512/2: 065|170 356|157 222|042|304 000 377 REV; =Q14; Q9TOQ2; DUP; SETB377;
4513/5: 054|304 000 171|015|027|033 AND; SETB171; NEV; NEG; NOT;
4515/0: 171 242|027|033|015|200 051 025 M10; NEG; NOT; NEV; J212≥Z;
4516/2: 171 242|205 111 134 M10; J227≤Z; (NOT J[FORMAL]);
4517/1: 304 000 002|171 244|036|304 000 030|164 121 SET2; I10; -; SETB30; SHL+40;
4521/0: 171 370|027|304 230 044|164 101 C15; NEG; SETB114044; SHL+32;
4522/2: 304 000 355|300 006 150|304 000 003|200 334 103 SET237; V40; SET3; JSP14;
4524/2: 200 271 027 J205; (JSP237/Y<FORMAL>M1/);
4524/5: 200 334 076 JSP13;
4525/2: 164 117|224 051 130 SHL+39; J229<Z; (CALL BY VALUE);
4526/1: 304 000 316|300 006 150|304 000 003|202 334 110 SET206; V40; SET3; JS1P14;
4530/1: 200 271 027 J205; (JSP206/);
[ original source of the next page
4530/4: 304 000 337|304 025 033|164 101|304 000 002|202 334 110 229; SET223; SETB12433; SHL+32; SET2; JS1P14;
4533/0: 200 271 027 J205; (JP223/);
4533/3: 304 000 001|170 270|200 271 022 SET1; =C11; J211;
227; (FETCH OR STORE);
4534/5: 042|304 000 030|054|171 242|054 DUP; SETB30; AND; M10; AND;
4536/1: 200 151 025 J212≠Z; (STORE TO NON<TYPE> FORMAL);
4536/4: 304 001 370|054|304 000 140|015|223 151 146 SETB770; AND; SETB140; NEV; J230=Z;
4540/3: 304 000 002|171 244|036|304 000 030|164 121 SET2; I10; -; SETB30; SHL+40;
4542/2: 171 370|027|304 236 044|171 242|161 025 C15; NEG; SETB117044; M10; SHA+10;
4544/0: 036 -; (<SP:=>Y<FORMAL>M<1;2>/);
4544/1: 164 101|304 000 002|200 334 103 233; SHL+32; SET2; JSP14;
4545/3: 200 271 027 J205;
4546/0: 200 271 022 J211;
230; (<TYPE> FORMALS BY NAME);
4546/3: 304 000 002|171 244|036|304 000 030|164 121 SET2; I10; -; SETB30; SHL+40;
4550/2: 171 370|171 242|056|027 C15; M10; +; NEG;
4551/2: 304 230 044|164 101|304 000 352|300 006 150 SETB114044; SHL+32; SET234; V40;
4553/1: 304 000 003|200 334 103 SET3; JSP14;
4554/1: 200 271 027 J205; (JSP234/Y<F:F+1>M1);
4554/4: 200 334 076 JSP13;
4555/1: 304 000 316|300 006 150|304 000 003|202 334 110 SET206; V40; SET3; JS1P14;
4557/1: 200 271 027 J205; (JSP206/);
4557/4: 171 242|223 051 163 M10; J228<Z; (STORE);
4560/3: 304 000 354|300 006 150|304 000 003|202 334 110 SET236; V40; SET3; JS1P14;
4562/3: 200 271 027 J205; (JSP236/);
4563/0: 200 271 022 J211;
4563/3: 304 000 003|304 242 030|164 101|304 000 002|202 334 110 228; SET3; SETB121030; SHL+32; SET2; JS1P14;
4565/5: 200 271 027 J205; (=M3/);
4566/2: 304 000 353|300 006 150|304 000 003|202 334 110 SET235; V40; SET3; JS1P14;
4570/2: 200 271 027 J205; (JSP235/);
4570/5: 304 000 003|304 000 030|164 121|041 SET3; SETB30; SHL+40; ZERO;
4572/2: 304 242 044|201 271 144 SETB121044; J233; (=Y0M3/);
=== Start P1V16; at address 2445/4615
P1V16; (FETCH ABS WITH LIBRARY EXTRODION);
(NORMAL ENTRY-FETCHS 1 ABS TO N1*D47);
(ENTRY 6-INITIALISE CHANNEL 6,BUFFERS IN N1 AND N2);
(ENTRY 8-INITIALSE CHANNEL 8);
(ENTRY 2-INITIALISE CHANNEL 2);
(ENTRY 3-START ROD FROM LIBRARY AO);
(ENTRY 4-CLOSE CHANNEL,NUMBER IN N1);
(ENTRY 7-CLOSE CHANNEL 6);
(ENTRY 9-CLOSE CHANNEL 8);
(NORMAL EXIT-EXIT2);
(FAILURE EXIT-EXIT1,N1=FAILURE NUMBER);
(-1 EM,-2 INITIAL EM,-3 PANACEA);
(-4 INVALID BS OF POST BLOCK NUMCHECK FAILURE);
(-5 INVALID CRLF ON 5-CHANNEL);
(-7 INVALID LIBRARY CALL);
V-store at 04602 = 000 000 007 013 040 225 V6=B0702620225; (CNCRRCRL);
V-store at 04603 = 050 242 212 050 242 212 V7=B1212121212121212;
V-store at 04604 = 000 000 000 101 004 020 V8=B20202020;
V-store at 04605 = 011 206 011 210 337 000 V9=QAV10/AV12/B157400;
V-store at 04610 = 377 377 377 377 377 377 V12=-1; (MASH FOR LIBRARY FIND); [ sic -- did it mean HASH
V-store at 04611 = 377 360 000 000 000 000 V13=B7777000000000000;
V-store at 04612 = 015 000 015 037 000 000 V14=QAYL0/AYL31/0;
V-store at 04613 = 015 040 015 077 000 000 V15=QAYL32/AYL63/0;
V-store at 04614 = 000 000 000 000 000 000 V16=0; [ V-store added by DHo -- see below
4615/0: 300 011 175|042|170 370|164 301|304 000 002 16; V1; DUP; =C15; SHL-32; SET2;
4616/5: 015|221 151 376 NEV; J74=Z;
4617/3: 300 011 174 24; V0; (PORTIAL WORD AT ABS); [ sic
[ original source of the next page
4620/0: 041|166 021 14; ZERO; SHLD+8;
4620/3: 065|042|200 151 237 15; REV; DUP; J10≠Z; (ABS REMAINING);
4621/2: 052|263 331 235 ERASE; J13C13NZ; (NOT END OF LINE);
4622/0: 264 371 224 J23C15NZ; (NOT END OF BLOCKS);
4622/3: 171 350|203 331 363|200 360 000 11; C14; JS27; EXIT1;
4623/5: 304 000 036|170 370 SET30; =C15; (RESET BLOCKS WORD COUNT);
4624/4: 143 360|102 320|041|166 021|027 23; DC15; M0M13Q; ZERO; SHLD+8; NEG;
4626/0: 033|167 123|042|200 051 232 NOT; SHC+41; DUP; J22≥Z;
4627/1: 164 005|164 253|042|172 322|027 SHL+2; SHL-43; DUP; =+M13; NEG;
4630/3: 172 370|052|243 371 222 =+C15; ERASE; J11C15Z; (BUFFERNOW EMPTY);
4631/3: 204 271 224 J23; (SKIP N DUMMY LINE);
4632/0: 167 005|042|166 253|065|205 031 233 22; SHC+2; DUP; SHLD-43; REV; J28≠;
4633/3: 143 140 DC6;
4633/5: 042|170 330 28; DUP; =C13; (LINE WORD COUNT);
4634/2: 027|172 370|011|200 271 220 NEG; =+C15; OR; J14;
4635/3: 164 121|102 320|166 261|203 271 220 13; SHL+40; M0M13Q; SHLD-40; J15;
4637/0: 301 011 174|171 370|200 331 242 10; =V0; C15; JS40;
4640/2: 304 000 377|203 032 067 SETB377; J17≠;
4641/2: 052|200 271 215 ERASE; J16;
4642/0: 164 101|300 011 175|164 341|166 041|301 011 175 40; SHL+32; V1; SHL-16; SHLD+16; =V1;
4644/0: 052|200 360 000 ERASE; EXIT1;
29; (END OF LIBRARY ROUTINE,RESORT TO PREVIOUS CHANNEL AFTER);
(LOST LIBRARY REGREST,RED NEXT REQREST OTHERWISE); [ sic - are these original typos for REQUEST, or jargon?
4644/4: 052|304 140 000|200 320 106 ERASE; SETB60000; JSE70; (CLOSE CHANNEL 8); [B60000;
4645/5: 201 271 315 J20;
4646/2: 300 011 176|301 011 174|300 011 177|301 011 175|300 011 200 V2; =V0; V3; =V1; V4;
4650/5: 170 336|300 011 201|170 356|300 011 214|167 013 =Q13; V5; =Q14; V16; SHC+5; [ originally this flag was in Q3, which is also used elsewhere - DHo
4652/5: 164 003|047|002|167 365|301 011 214 SHL+1; STR; =TR; SHC-6; =V16;
4654/2: 200 351 215 J16NTR; (AFTER LOST LIBRARY REQUEST IN SEGMENT);
4654/5: 304 000 320 SETB320;
4655/2: 304 000 320|205 031 312 35; SETB320; J18≠; (NOT LIBRARY);
4656/2: 300 011 214|164 013|224 051 264 V16; SHL+5; J30<Z; (LIBRARY CALL IN LIBRARY ROUTINE); [ originally in Q3 -- DHo
4657/4: 052|200 331 215 ERASE; JSP1;
4660/2: 200 360 000 EXIT1;
4660/5: 042|164 365|204 151 264 DUP; SHL-6; J30≠Z; (INITIAL BS NOT ALPHARUSERIC);
4661/5: 200 331 215 JSP1;
4662/2: 201 271 265 J31;
4662/5: 042|304 000 012|036|224 051 267 DUP; SET10; -; J32<Z; (NEXT BS0-9);
4664/1: 042 DUP; (FAILURE PATH,LIBRARY CALLS);
4664/2: 052 33; ERASE;
4664/3: 052 34; ERASE;
4664/4: 304 377 371 30; SET-7;
4665/1: 065|052|200 360 000 31; REV; ERASE; EXIT1;
4666/0: 304 000 014|304 000 230|041|201 271 271 3; SET12; SETB230; ZERO; J38;
(CALL LIBRARY A0);
4667/4: 200 333 100 32; JSP4; (READ LIBRARY NUMBER);
4670/1: 203 271 264 J34; (NUMBER REED FAIL);
4670/4: 202 271 264 J33; (FLOABING POINT);
4671/1: 300 011 203|065|067|300 011 204|011 38; V7; REV; FRB; V8; OR;
4672/4: 041|166 061|202 151 264 ZERO; SHLD+24; J33≠Z; (NUMBER>9999);
4673/4: 066|300 011 202|056|166 045|301 011 206 CAB; V6; +; SHLD+18; =V10;
4675/2: 301 011 207|041|033|065|304 000 246 =V11; ZERO; NOT; REV; SETB246;
4676/5: 220 031 301 J36=; (TERMINATOR COMMA);
4677/2: 304 000 230|015|204 151 264 SETB230; NEV; J30≠Z; (INCALID TERMINATOR);
[ original source of the next page
4700/3: 164 003|042 SHL+1; DUP;
4701/0: 065|164 135|164 367|300 011 214|011 36; REV; SHL+46; SHL-5; V16; OR; [ originally in Q3 -- DHo
4702/3: 301 011 214|300 011 174|301 011 176|300 011 175|301 011 177 =V16; V0; =V2; V1; =V3;
4705/0: 171 336|301 011 200|171 356|301 011 201|300 011 205 Q13; =V4; Q14; =V5; V9;
4707/1: 200 320 106 JSE70; (FIND LIBRARY TECT); [ sic surely a typo for TEXT [B157400;
4707/4: 204 271 264 J30;
4710/1: 052|300 011 212|300 011 213|203 331 357 ERASE; V14; V15; JS8P1;
4711/5: 200 360 000 EXIT1; (INITIALISE LIBRARY READ);
4712/2: 200 271 215 J16; (FETCH FIRST ABS);
4712/5: 200 334 051 18; JSP11; (CHECK ABS FOR EDITING SYMBOLS);
4713/2: 200 271 215 J16; (IGNORE EDIBIG SYBMOLOS);
4713/5: 042|200 333 373 DUP; JSP8; (ABS TO CVNT LINE BUFFER);
4714/3: 202 360 001 EXIT2;
4715/0: 052 19; ERASE; (PANACEA FAILURS); [ sic surely a typo for FAILURE
4715/1: 304 377 375|200 360 000 20; SET-3; EXIT1;
4716/1: 304 000 006|204 271 317 6; SET6; J5; (OPEN CHANNEL 6);
4717/1: 304 000 002 2; SET2; (OPEN CHENNEL 2); [ sic surely a typo for CHANNEL
4717/4: 042|164 101|301 011 175|170 351 5; DUP; SHL+32; =V1; =RC14;
4721/0: 170 376|304 242 100|171 350|011|170 362 =Q15; SETB121100; C14; OR; =M15;
4722/4: 171 376|200 320 106 Q15; JSE70; (INITIATE CHANND); [B121100; C14; OR;
4723/3: 201 271 315 J20;
4724/0: 171 350|304 000 002|015|202 151 327 C14; SET2; NEV; J41≠Z;
4725/3: 202 332 161 JS11P2; (STORE START ADDRESS,INITIALISE CHARCTER FETCH); [ sic CHARACTER
4726/0: 304 012 250|170 343|204 271 356 SETAV35P10; =RM14; J42;
4727/2: 304 000 001|164 121|301 011 174|263 151 356 41; SET1; SHL+40; =V0; J25C6NZ;
4731/1: 320 013 074|223 051 356 Z35; J25<Z;
4732/1: 170 362|145 360|153 375|304 000 014|172 322 26; =M15; I15=-1; IM15TOQ13; SET12; =+M13;
4734/0: 304 377 302|103 320 SETB177702; =M0M13Q;
4734/5: 304 000 007|172 362|300 000 007|103 320|041 SET7; =+M15; E7; =M0M13Q; ZERO;
4736/4: 103 320|304 000 006|170 330 =M0M13Q; SET6; =C13;
4737/5: 102 360|304 000 002|015|103 320 M0M15Q; SET2; NEV; =M0M13Q;
4741/1: 017|017|017|017|017|102 360|103 320 *43; M0M15Q; =M0M13Q;
4742/4: 017|017|177 320 *; J43C13NZS;
4743/2: 041|103 320|102 360|042|321 013 062 ZERO; =M0M13Q; M0M15Q; DUP; =Z45;
4744/5: 103 320|100 360|042|321 013 063|164 061 =M0M13Q; M0M15; DUP; =Z44; SHL+24;
4746/3: 164 321|103 320|041|101 320|304 000 015 SHL-24; =M0M13Q; ZERO; =M0M13; SET13;
4750/1: 172 322|171 362|170 324|304 340 303|170 330 =+M13; M15; =I13; SETB160303; =C13;
4752/0: 171 336|167 041|200 320 106 Q13; SHC+16; JSE70; (PRINT TITLE); [SETB160303;
4753/1: 201 271 315 J20;
4753/4: 154 015|304 377 365|172 322|171 336|304 000 010 C0TOQ13; SET-11; =+M13; Q13; SET8;
4755/4: 200 220 000|143 140 OUT; DC6;
4756/3: 052 25; ERASE;
4756/4: 157 015|202 360 001 42; Q0TOQ13; EXIT2; (END OF OPEN);
4757/3: 041|204 271 317 8; ZERO; J5; (OPEN CHANNEL 8);
4760/1: 304 000 006 7; SET6; (CLOSE CHANNEL 6);
4760/4: 304 140 000|011|200 320 106 4; SETB60000; OR; JSE70; [B60000; OR;
4761/5: 201 271 315 J20;
4762/2: 202 360 001 EXIT2;
4762/5: 041|204 271 360 9; ZERO; J4; (CLOSE CHANNEL 8);
27; (FETCH NEXT BLOCKS,SUMCHECK LOST);
4763/3: 304 340 000|011|200 320 106 SETB160000; OR; JSE70; [B160000; OR;
4764/4: 200 271 315 J19;
[ original source of the next page
4765/1: 170 336|304 000 036|170 371|151 337|041 =Q13; SET30; =RC15; M13TOQ15; ZERO;
4766/5: 042 DUP;
4767/0: 102 360|047|057 *12; M0M15Q; STR; +D;
4767/4: 017|017|177 360 *; J12C15NZS;
4770/2: 100 360|164 301|047|057 M0M15; SHL-32; (BLOCK NO.); STR; +D;
4771/2: 140 340|164 041|171 342|166 341|052 M+I14; SHL+16; M14; SHLD-16; ERASE;
4772/5: 102 360|015|065|100 360|015 M0M15Q; NEV; REV; M0M15; NEV;
4774/0: 011|201 151 375 OR; J21≠Z; (SUM SEEPERCE CHECK FAIL); [ sic
4774/4: 202 360 001 EXIT2;
4775/1: 304 377 374|200 360 000 21; SET-4; EXIT1; (SUM,SEQUENCE FAIL);
4776/1: 001|204 332 077 74; (FETCH ABS FROM CHENNEL 2); VR; JS75; [ sic
4776/5: 201 272 077 J69;
4777/2: 042|205 052 000 DUP; J76≥Z;
5000/0: 161 271|201 272 077 SHA-36; J69; (EM; EXIT1 WITH N1=-1 OR-2);
5000/5: 042|164 005|161 003|220 052 066 76; DUP; SHL+2; SHA+1; J77<Z; (T OR S);
5002/1: 223 212 003 J78V; (NOT ALPHA);
5002/4: 171 324|225 051 312 I13; J18<Z; (ALPHA SEQUENCE);
5003/3: 171 322|200 331 242|171 316|301 011 174|300 012 205 78; M13; JS40; Q12; =V0; V0P10;
5005/4: 164 341|170 303|145 300|145 340|144 320 SHL-16; =RM12; I12=-1; I14=-1; I13=+1;
5007/2: 104 014|143 300|164 025|065|201 272 016 M12M0H; DC12; SHL+10; REV; J80;
(INITIALISE BS FELCH ENTER LOOP);
81; (QUARTER WORD FETCH WITH INCREMENT);
5011/0: 171 310|027|167 377|042|170 362 C12; NEG; SHC-1; DUP; =M15;
5012/2: 104 374|065|204 052 013 M12M15H; REV; J82≥Z;
5013/2: 164 031 SHL+12;
5013/4: 143 300|200 360 000 82; DC12; EXIT1; (M12 LOSE ADDRESS,C12-CUNENT);
123; (START OF RAIN LOOP,ABS READ);
5014/3: 200 333 373 JSP8; (BS TO LINE BUFFER);
5015/0: 052 83; ERASE;
5015/1: 204 332 077 84; JS75; (FETCH NEXT CHARACTER);
5015/4: 200 272 077 J68;
5016/1: 042|164 011|164 261|200 334 051 80; DUP; SHL+4; SHL-40; JSP11;
5017/3: 200 272 015 J83; (EDITING SYMBOLS IN COMPOUND BS);
5020/0: 052|171 324|167 375|203 052 022 ERASE; I13; SHC-2; J85≥Z; (NL=FALSE);
5021/2: 042|033|164 245|220 152 015 DUP; NOT; SHL-46; J83=Z; (T IN ABS);
5022/3: 265 332 026 85; J86C13NZ; (CHARACTER BOUGHT FROM BUFFER);
5023/0: 042|300 012 205|170 376|105 337|171 322 DUP; V0P10; =Q15; =M15M13H; M13;
5024/4: 033|027|042|170 322|171 370 NOT; NEG; DUP; =M13; C15;
5025/5: 036|225 052 026 -; J86<Z; (STON CHARACTER IN BUFFER AND);
5026/3: 151 015 M0TOQ13; (INCORRECT POINLIR WITH ENDAVOID CARRY);
5026/5: 041|166 011|170 370|041|033 86; ZERO; SHLD+4; =C15; ZERO; NOT;
5030/0: 027|164 360|167 371|042|170 376 NEG; SHLC15; SHC-4; DUP; =Q15;
5031/2: 066|161 375|054|223 152 053 CAB; SHA-2; AND; J87=Z; (CURRENT);
(CHARACTER ROTA VALID SUCCESSOR); [ sic NOT A VALID SUCCESSOR ?
5032/3: 042|164 261|164 121|200 332 011 88; DUP; SHL-40; SHL+40; JS81;
5033/5: 015|041|166 021|200 152 046 NEV; ZERO; SHLD+8; J89≠Z;
(CHARACTER NOT THE NEXT IN THE UNECT PARTIAL BS);
5035/0: 065|052|042|202 052 036 REV; ERASE; DUP; J90≥Z;
5036/0: 143 300 DC12; (SKIP NEXT ENTRY IN TABLE);
5036/2: 164 003|171 370|033|164 107|167 003 90; SHL+1; C15; NOT; SHL+35; SHC+1;
5037/5: 171 324|164 377|011|164 003|170 324 I13; SHL-1; OR; SHL+1; =I13;
(NL:=NL OR NOT ALPHARUMERC,END:=FALSE); [ sic
5041/2: 041|166 003|221 152 015 ZERO; SHLD+1; J84=Z; (NOT END CH BS);
5042/2: 200 332 011 JS81;
5042/5: 164 271|170 344|171 324|042|167 375 SHL-36; =I14; I13; DUP; SHC-2;
5044/2: 222 052 050 J91<Z; (NL=TRUE);
5044/5: 033|027|170 324|201 272 015 NOT; NEG; =I13; J84; (END:=TRUE);
[ original source of the next page
5046/0: 203 052 053 89; J87≥Z; (NO NOU ALTERATIVES TO TRY); [ sic
5046/3: 200 332 011 JS81; (FETCH ADDRESS OF NEXT TRY);
5047/0: 164 271|027|170 310|203 272 032 SHL-36; NEG; =C12; J88;
91; (POTENTIAL END OF BS CONTAINING NO-ALPHA CHARACTERS);
5050/2: 152 354|052|171 322|200 331 242 I14TOQ12; ERASE; M13; JS40; (MOVE);
5051/4: 042|164 245 (BUFFER LOSE ADDRESS); DUP; SHL-46;
5052/1: 224 152 057 J92=Z; (NO VALID SUCCESSOR SUIT WITH BS);
5052/4: 152 015|201 272 015 I0TOQ13; J84; (NL:=FERD:=ID:=FALSE);
87; (EXIT PATH,FINAL CHECKS AND BUFFER UPDATING);
5053/3: 171 324|304 000 001|015|171 370|164 355 I13; SET1; NEV; C15; SHL-10;
5055/1: 011|164 133|204 152 057 OR; SHL+45; J92≠Z; (NL OR ROT END OR ALPHA);
5056/1: 171 322|027|033|200 331 242|152 354 M13; NEG; NOT; JS40; I14TOQ12;
5057/4: 052|171 322|300 011 175|170 322|171 322 92; ERASE; M13; V1; =M13; M13;
5061/2: 036|042|202 052 063 -; DUP; J93≥Z;
5062/1: 300 012 205|164 301|172 330 V0P10; SHL-32; =+C13; (FESET BUFFER POINTERS);
5063/2: 172 330|171 304|300 011 174|170 316|042 93; =+C13; I12; V0; =Q12; DUP;
5065/0: 032|223 052 073 MAX; J94<Z; (NO BS READ);
5065/4: 164 111 SHL+36;
5066/0: 152 015|205 212 072 77; I0TOQ13; J95NV; (INITIAL TERMINATOR);
5066/5: 164 011|164 261 79; SHL+4; SHL-40;
5067/3: 304 000 276|202 031 255 17; SETB276; J35≠; (NOT EM);
5070/3: 300 011 214|164 013|224 051 244 V16; SHL+5; J29<Z; (EM IN LIBRARY ROUTINE); [ originally in Q3 -- DHo
5071/5: 052|041|033|200 360 000 ERASE; ZERO; NOT; EXIT1;
5072/5: 052|201 271 376 95; ERASE; J74; (IGNORE INITIAL TERMINATORS);
94; (NO BS READ:FAIL IF N0N ALPHA CHARACTERS HERE);
(OCCURED,OTHERWISE SET ID AND OUTPUT FIRST OF);
(SEQUENCE OF ALPHA BS);
5073/3: 001|164 245|042|171 324|054 VR; SHL-46; DUP; I13; AND;
5074/4: 164 377|204 152 076 SHL-1; J96≠Z; (NL SET:FAIL-4);
5075/3: 164 037|170 324|201 271 376 SHL+15; =I13; J74;
5076/4: 033|042 96; NOT; DUP; (FAILURE NUMBER);
5077/0: 052 68; ERASE;
5077/1: 200 360 000 69; EXIT1; (FAILURE EXIT FROM BS READ);
75; (FETCH CASELESS CHARACTER FROM INPUT DEVICE OR);
5077/4: 241 332 123 (INTERVAL CHARACTER BUFFER); J110C13Z; (BUFFER EMPTY);
5100/1: 300 012 205|170 376|104 337|143 320|244 332 104 V0P10; =Q15; M15M13H; DC13; J98C13Z;
5102/1: 171 322|033|027|042|170 322 M13; NOT; NEG; DUP; =M13;
5103/2: 171 370|036|204 112 104 C15; -; J98≤Z;
5104/2: 151 015 M0TOQ13; (UPDATE BUFFER PRINTER CYCLICLY);
5104/4: 202 360 001 98; EXIT2;
5105/1: 017|017|017|017|017|171 350|204 032 142 *99; C14; J101≠; (0:NEW LINE);
5106/5: 017|052|202 272 115 *100; ERASE; J97; (01:IGNORE);
5107/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;
5113/1: 017|017|017|017|017|304 000 377|200 272 147 *; SETB377; J203; (2-6:INVALID,MORNING ORD IGNORE);
5115/0: 172 342 *; =+M14; (7:CASE);
5115/2: 200 332 153 97; JSP2; (FETCH CHARACTER);
5115/5: 204 272 145 J102;
5116/2: 167 377|042|170 362|104 376|065 SHC-1; DUP; =M15; M14M15H; REV;
5117/4: 203 052 120 J103≥Z;
5120/1: 164 031 SHL+12; (QUARTER WORD FETCH FROM A TABLE);
5120/3: 042|224 052 125 103; DUP; J104<Z; (EXTERNAL CHARACTER);
5121/1: 041|166 011|174 000|047|162 261 ZERO; SHLD+4; =LINK; STR; SHAD-40;
5122/3: 050|202 372 106 CONT; EXITAR99; (TREE ON INTERNAL TYPE);
[ original source of the next page
5123/1: 171 350|161 351|222 152 115 110; (ENTRY); C14; SHA-12; J97=Z;
5124/2: 171 350|304 007 377|054|164 111 C14; SETB3777; AND; SHL+36;
5125/4: 164 003|042|220 052 131 104; SHL+1; DUP; J105<Z; (MULTIPLE);
5126/4: 260 352 130 J106C14NZ; (LOST CHARACTER A MULTIPLE);
5127/1: 164 377|202 360 001 SHL-1; EXIT2; (CASELESS CHARACTER *D11);
5130/0: 164 267 106; SHL-37;
5130/2: 041|201 272 133 109; ZERO; J107; (CLEAR MULTIPLE);
5131/0: 164 267|171 350|220 032 107 105; SHL-37; C14; J100=; (IGNORE REPEATS);
5132/1: 042|304 004 000|036|065 DUP; SETB2000; -; REV;
5133/1: 171 350|033|222 152 135 107; C14; NOT; J108=Z;
5134/1: 170 350|164 111|202 360 001 =C14; SHL+36; EXIT2; (SET MULTIPLE IN C14);
5135/2: 011|304 020 000|011|171 350|065 108; OR; SETB10000; OR; C14; REV;
5136/4: 170 350|167 377|204 052 141 =C14; SHC-1; J204≥Z; (VALID RELINE);
5137/5: 171 350|161 377|304 376 317|036|200 334 023 C14; SHA-1; SET-305; -; JSP9;
5141/4: 304 000 240|202 360 001 204; SETB240; EXIT2; (NUV LINE);
5142/4: 171 350|033|220 112 107 101; C14; NOT; J100>Z;
5143/4: 042|170 350|033|222 152 115 DUP; =C14; NOT; J97=Z;
5144/5: 143 140|202 272 115 DC6; J97; (COUNT LINES);
5145/4: 042|033|202 152 130 102; DUP; NOT; J109≠Z;
5146/3: 200 360 000 EXIT1;
5147/0: 054|027|200 334 023 203; AND; NEG; JSP9;
5147/5: 202 272 115 J97; (WARNING MESSAGE,IGNORE CHARACTER);
(END OF BASIC SYMBOL FETCH);
=== Start P2V1; at address 2667/5153
5153/0: 041|300 012 151 P2V1; ZERO; V0;
5153/4: 041|166 015|012|011|042 3; ZERO; SHLD+6; PERM; OR; DUP;
5154/4: 224 152 163 J9=Z; (WORD EMPTY FETCH NEXT);
5155/1: 065|304 000 075|223 032 157 REV; SETB75; J5=; (EM);
5156/2: 065|301 012 151|202 360 001 REV; =V0; EXIT2; (NORMAL EXIT);
5157/3: 052|300 012 151|220 152 161 5; ERASE; V0; J6=Z;
5160/4: 052|041 ERASE; ZERO;
5161/0: 033 6; NOT;
5161/1: 041 7; ZERO;
5161/2: 301 012 152|304 000 001|164 125|301 012 151 11; =V1; SET1; SHL+42; =V0;
5163/1: 200 360 000 8; EXIT1;
5163/4: 052|300 012 152|170 376|264 372 167 9; ERASE; V1; =Q15; J15C15NZ;
5165/1: 052 ERASE;
5165/2: 304 340 002|200 320 106 10; SETB160002; JSE70; [B160002;
5166/2: 202 272 171 J4;
5166/5: 170 376|304 000 001 =Q15; SET1;
5167/4: 102 360|171 376|301 012 152|204 272 153 15; M0M15Q; Q15; =V1; J3;
5171/2: 304 377 375|201 272 161 4; SET-3; J7;
5172/2: 170 376|304 242 002|170 362|171 376|200 320 106 1; =Q15; SETB121002; =M15; Q15; JSE70; [B121002;
5174/2: 202 272 171 J4;
5174/5: 041|065|202 272 161 ZERO; REV; J11;
5175/4: 304 340 002|200 320 106 14; SETB160002; JSE70; [B160002;
5176/4: 202 272 171 J4;
5177/1: 052 ERASE;
5177/2: 304 000 102|200 320 106 2; SETB102; JSE70; [B102;
5200/2: 202 272 171 J4;
5200/5: 042|221 052 202 DUP; J13<Z;
5201/3: 052|202 360 001 ERASE; EXIT2;
5202/1: 164 007|204 052 175 13; SHL+3; J14≥Z;
5203/0: 304 140 002|200 320 106 SETB60002; JSE70; [B60002;
[ original source of the next page
5204/0: 202 272 171 J4;
5204/3: 202 360 001 EXIT2;
=== Start P10V152; at address 2846/5436
P10V152;
V-store at 05205 = 000 022 012 310 012 206 V0=Q18/AV67/AV1;
V-store at 05247 = 000 022 012 310 000 000 V34=Q18/AV67/0;
V-store at 05250 = 231 346 001 232 006 003 V35=B4636 3001 4640 3003;
V-store at 05251 = 232 346 005 161 001 000 V36=B4656 3005 3420 0400;
V-store at 05252 = 140 206 011 140 246 013 V37=B3010 3011 3012 3013;
V-store at 05253 = 140 306 015 140 351 241 V38=B3014 3015 3016 4641;
V-store at 05254 = 200 010 001 200 050 003 V39=B4000 4001 4002 4003;
V-store at 05255 = 200 110 005 200 150 007 V40=B4004 4005 4006 4007;
V-store at 05256 = 200 210 011 357 370 012 V41=B4010 4011 7377 4012;
V-store at 05257 = 231 211 301 235 030 013 V42=B4630 4701 4721 4013;
V-store at 05260 = 142 010 014 200 330 016 V43=B3040 4014 4015 4016;
V-store at 05261 = 200 370 020 201 030 022 V44=B4017 4020 4021 4022;
V-store at 05262 = 201 070 024 201 130 026 V45=B4023 4024 4025 4026;
V-store at 05263 = 201 170 030 201 230 032 V46=B4027 4030 4031 4032;
V-store at 05264 = 201 270 034 201 330 036 V47=B4033 4034 4035 4036;
V-store at 05265 = 201 370 040 202 030 042 V48=B4037 4040 4041 4042;
V-store at 05266 = 202 070 044 202 126 073 V49=B4043 4044 4045 3073;
V-store at 05267 = 143 306 075 143 341 000 V50=B3074 3075 3076 0400;
V-store at 05270 = 231 346 101 232 006 103 V51=B4636 3101 4640 3103;
V-store at 05271 = 232 346 105 020 007 360 V52=B4656 3105 0400 3760;
V-store at 05272 = 144 206 111 144 246 113 V53=B3110 3111 3112 3113;
V-store at 05273 = 144 306 115 144 352 376 V54=B3114 3115 3116 5376;
V-store at 05274 = 230 031 211 231 231 202 V55=B4601 4611 4631 4602;
V-store at 05275 = 234 051 242 233 031 221 V56=B4702 4642 4661 4621;
V-store at 05276 = 230 111 224 357 366 133 V57=B4604 4624 7377 3133;
V-store at 05277 = 231 211 322 230 351 246 V58=B4630 4722 4616 4646;
V-store at 05300 = 146 010 046 202 170 050 V59=B3140 4046 4047 4050;
V-store at 05301 = 202 230 052 202 270 054 V60=B4051 4052 4053 4054;
V-store at 05302 = 202 330 056 202 370 060 V61=B4055 4056 4057 4060;
V-store at 05303 = 203 030 062 203 070 064 V62=B4061 4062 4063 4064;
V-store at 05304 = 203 130 066 203 170 070 V63=B4065 4066 4067 4070;
V-store at 05305 = 203 230 072 203 270 074 V64=B4071 4072 4073 4074;
V-store at 05306 = 203 330 076 203 366 173 V65=B4075 4076 4077 3173;
V-store at 05307 = 147 306 175 147 341 000 V66=B3174 3175 3176 0400;
V-store at 05310 = 000 057 356 000 140 271 V67=B0002 7756 0006 0271;
V-store at 05311 = 242 100 265 377 070 234 V68=B5044 0265 7763 4234;
V-store at 05312 = 000 240 215 231 300 015 V69=B0012 0215 4634 0015;
V-store at 05313 = 011 330 054 001 000 222 V70=B0235 4054 0020 0222;
V-store at 05314 = 302 300 023 013 042 272 V71=B6054 0023 0262 1272;
V-store at 05315 = 002 077 361 046 240 037 V72=B0043 7761 1152 0037;
V-store at 05316 = 377 023 022 377 023 202 V73=B7761 1422 7761 1602;
V-store at 05317 = 377 022 244 014 323 102 V74=B7761 1244 0315 1502;
V-store at 05320 = 377 023 164 010 143 232 V75=B7761 1564 0206 1632;
V-store at 05321 = 003 077 361 067 240 055 V76=B0063 7761 1572 0055;
V-store at 05322 = 377 023 242 377 022 244 V77=B7761 1642 7761 1244;
V-store at 05323 = 015 322 322 377 022 242 V78=B0335 1322 7761 1242;
V-store at 05324 = 377 023 064 011 122 352 V79=B7761 1464 0225 1352;
V-store at 05325 = 004 257 361 053 300 071 V80=B0112 7761 1274 0071;
V-store at 05326 = 010 123 072 004 157 361 V81=B0205 1472 0106 7761;
V-store at 05327 = 071 057 361 052 057 361 V82=B1622 7761 1242 7761;
V-store at 05330 = 054 057 361 052 057 361 V83=B1302 7761 1242 7761;
V-store at 05331 = 067 100 102 062 057 361 V84=B1564 0102 1442 7761;
V-store at 05332 = 065 100 263 047 240 142 V85=B1524 0263 1172 0142;
V-store at 05333 = 377 023 112 005 257 361 V86=B7761 1512 0132 7761;
V-store at 05334 = 064 057 361 061 057 361 V87=B1502 7761 1422 7761;
V-store at 05335 = 052 057 361 046 057 361 V88=B1242 7761 1142 7761;
V-store at 05336 = 063 100 103 052 057 361 V89=B1464 0103 1242 7761;
[ original source of the next page
V-store at 05337 = 054 057 361 056 057 361 V90=B1302 7761 1342 7761;
V-store at 05340 = 063 100 214 046 240 162 V91=B1464 0214 1152 0162;
V-store at 05341 = 377 023 172 006 357 361 V92=B7761 1572 0156 7761;
V-store at 05342 = 067 057 361 046 057 361 V93=B1562 7761 1142 7761;
V-store at 05343 = 076 100 110 063 057 361 V94=B1744 0110 1462 7761;
V-store at 05344 = 051 100 223 070 240 217 V95=B1224 0223 1612 0217;
V-store at 05345 = 377 023 312 024 217 361 V96=B7761 1712 0510 7761;
V-store at 05346 = 056 057 361 071 057 361 V97=B1342 7761 1622 7761;
V-store at 05347 = 050 057 361 055 100 130 V98=B1202 7761 1324 0130;
V-store at 05350 = 071 057 361 052 240 207 V99=B1622 7761 1252 0207;
V-store at 05351 = 377 023 124 013 143 162 V100=B7761 1524 0266 1562;
V-store at 05352 = 377 022 342 377 023 062 V101=B7761 1342 7761 1462;
V-store at 05353 = 377 022 304 007 243 112 V102=B7761 1304 0172 1512;
V-store at 05354 = 011 237 361 067 300 225 V103=B0231 7761 1574 0225;
V-store at 05355 = 012 063 302 377 023 064 V104=B0243 1702 7761 1464;
V-store at 05356 = 010 362 252 012 317 361 V105=B0217 1252 0254 7761;
V-store at 05357 = 063 240 241 377 022 224 V106=B1472 0241 7761 1224;
V-store at 05360 = 011 303 032 012 217 361 V107=B0234 1432 0250 7761;
V-store at 05361 = 070 057 361 052 100 245 V108=B1602 7761 1244 0245;
V-store at 05362 = 066 057 361 073 100 303 V109=B1542 7761 1664 0303;
V-store at 05363 = 067 240 265 377 022 242 V110=B1572 0265 7761 1242;
V-store at 05364 = 377 022 142 377 023 024 V111=B7761 1142 7761 1424;
V-store at 05365 = 004 023 132 015 077 361 V112=B0101 1532 0323 7761;
V-store at 05366 = 067 057 361 064 057 361 V113=B1562 7761 1502 7761;
V-store at 05367 = 050 057 361 052 057 361 V114=B1202 7761 1242 7761;
V-store at 05370 = 051 057 361 072 057 361 V115=B1222 7761 1642 7761;
V-store at 05371 = 067 057 361 052 100 120 V116=B1562 7761 1244 0120;
V-store at 05372 = 061 240 323 377 022 142 V117=B1432 0323 7761 1142;
V-store at 05373 = 377 022 162 377 022 242 V118=B7761 1162 7761 1242;
V-store at 05374 = 377 023 024 007 222 212 V119=B7761 1424 0171 1212;
V-store at 05375 = 016 057 361 064 057 361 V120=B0342 7761 1502 7761;
V-store at 05376 = 062 057 361 062 057 361 V121=B1442 7761 1442 7761;
V-store at 05377 = 052 057 361 063 057 361 V122=B1242 7761 1462 7761;
V-store at 05400 = 071 100 200 063 240 351 V123=B1624 0200 1472 0351;
V-store at 05401 = 377 023 102 377 023 224 V124=B7761 1502 7761 1624;
V-store at 05402 = 010 062 312 017 057 361 V125=B0203 1312 0362 7761;
V-store at 05403 = 064 057 361 071 057 361 V126=B1502 7761 1622 7761;
V-store at 05404 = 064 100 210 074 240 375 V127=B1504 0210 1712 0375;
V-store at 05405 = 377 022 322 377 022 342 V128=B7761 1322 7761 1342;
V-store at 05406 = 377 023 022 377 022 244 V129=B7761 1422 7761 1244;
V-store at 05407 = 011 143 272 020 217 361 V130=B0226 1672 0410 7761;
V-store at 05410 = 046 057 361 061 057 361 V131=B1142 7761 1422 7761;
V-store at 05411 = 072 057 361 052 100 237 V132=B1642 7761 1244 0237;
V-store at 05412 = 072 241 023 377 023 062 V133=B1652 0423 7761 1462;
V-store at 05413 = 377 023 222 377 022 342 V134=B7761 1622 7761 1342;
V-store at 05414 = 377 023 024 014 142 232 V135=B7761 1424 0306 1232;
V-store at 05415 = 021 217 361 064 100 326 V136=B0430 7761 1504 0326;
V-store at 05416 = 015 241 034 375 200 114 V137=B0332 0434 7730 0114;
V-store at 05417 = 014 241 047 377 021 162 V138=B0312 0447 7761 0562;
V-store at 05420 = 377 021 042 377 021 242 V139=B7761 0442 7761 0642;
V-store at 05421 = 377 021 164 014 001 012 V140=B7761 0564 0300 0412;
V-store at 05422 = 023 017 361 043 057 361 V141=B0460 7761 1062 7761;
V-store at 05423 = 024 057 361 037 100 360 V142=B0502 7761 0764 0360;
V-store at 05424 = 026 241 071 377 020 362 V143=B0552 0471 7761 0362;
V-store at 05425 = 377 021 022 377 020 224 V144=B7761 0422 7761 0224;
V-store at 05426 = 013 003 022 377 022 352 V145=B0260 1422 7761 1352;
V-store at 05427 = 014 277 361 047 057 361 V146=B0313 7761 1162 7761;
V-store at 05430 = 067 057 361 046 057 361 V147=B1562 7761 1142 7761;
V-store at 05431 = 067 057 361 076 100 320 V148=B1562 7761 1744 0320;
V-store at 05432 = 052 240 200 377 022 302 V149=B1252 0200 7761 1302;
[ original source of the next page
V-store at 05433 = 377 023 042 377 022 242 V150=B7761 1442 7761 1242;
V-store at 05434 = 377 023 062 377 023 224 V151=B7761 1462 7761 1624;
V-store at 05435 = 016 000 000 000 000 000 V152=B0340 0000 0000 0000;
=== Start P3V0; at address 2847/5437
V-store at 05436 = 377 003 002 001 000 000 P3V0; V0=B7760140200200000;
5437/0: 300 013 036|012|205 273 047 V0; PERM; J3;
5440/1: 052|202 273 046 4; ERASE; J5;
5440/5: 300 013 036|204 273 046 1; V0; J2;
5441/5: 042|164 377|304 000 005|015|221 153 051 6; DUP; SHL-1; SET5; NEV; J7=Z;
5443/3: 241 373 040 J4C15Z; (31 WORDS FULL; IGNORE);
5444/0: 011|001|161 021|222 213 046 OR; VR; SHA+8; J5V;
5445/1: 033|027|103 360|300 013 036 NOT; NEG; =M0M15Q; V0;
5446/2: 171 376 5; Q15;
5446/4: 200 331 215 2; JSP1;
5447/1: 204 273 065 J13;
5447/4: 065 REV;
5447/5: 170 376|042|164 365|225 153 041 3; =Q15; DUP; SHL-6; J6=Z; (ALPHA);
5451/1: 065|042|223 053 055 7; REV; DUP; J8<Z;
5452/0: 001|304 000 005 VR; SET5;
5452/4: 065|161 021|065|027|033 9; REV; SHA+8; REV; NEG; NOT;
5453/4: 224 213 052 J9V;
5454/1: 164 007|056|033|027|103 360 SHL+3; +; NOT; NEG; =M0M15Q;
5455/2: 042 DUP;
5455/3: 052|304 000 037|171 370|036|042 8; ERASE; SET31; C15; -; DUP;
5456/5: 170 370|042|027|171 364|034 =C15; DUP; NEG; I15; ×D;
5460/0: 050|172 362|143 360|220 113 064 CONT; =+M15; DC15; J10>Z;
5461/2: 203 273 064 J11;
5461/5: 100 360|171 370|161 007|304 000 002|056 12; M0M15; C15; SHA+3; SET2; +;
5463/3: 056|103 360 +; =M0M15Q;
5464/0: 265 373 061 10; J12C15NZ;
5464/3: 140 360|171 376|202 360 001 11; M+I15; Q15; EXIT2;
5465/4: 012|052|052|200 360 000 13; PERM; ERASE; ERASE; EXIT1;
=== Start P4V8; at address 2880/5500
V-store at 05472 = 152 115 074 045 346 216 P4V8; V3=B3244647411363216;
V-store at 05473 = 043 166 111 037 002 054 V4=B1067311107601054;
V-store at 05474 = 117 254 176 167 152 123 V5=B2372617635665123;
V-store at 05475 = 127 162 066 342 017 101 V6=B2567106670407501;
V-store at 05476 = 331 126 271 240 320 035 V7=B6625327150150035;
5500/0: 001|300 013 067|164 367|304 000 001|054 10; VR; V0; SHL-5; SET1; AND;
5501/4: 170 225 =RI9;
5502/0: 157 010|041|033|300 013 067|304 000 020 11; Q0TOQ8; ZERO; NOT; V0; SET16;
5503/4: 054|171 222|011|204 153 120 AND; M9; OR; J2≠Z;
5504/5: 065|204 273 121 REV; J3;
5505/3: 301 013 067|200 360 000 1; =V0; EXIT1;
(MAIN LOOP);
5506/3: 065|052 4; REV; ERASE;
5506/5: 242 213 115 5; J6C8Z;
5507/2: 143 200 DC8;
5507/4: 042|304 000 012|034|223 153 106 7; DUP; SET10; ×D; J4=Z;
5511/0: 304 000 001|172 210|052|065 SET1; =+C8; ERASE; REV;
5512/1: 052|300 013 067|304 000 004|054|171 222 8; ERASE; V0; SET4; AND; M9;
5513/5: 011|204 153 215 OR; J9≠Z;
5514/3: 304 001 000|170 222 13; SET256; =M9;
5515/2: 171 230|225 053 142 6; C9; J14<Z;
5516/1: 171 222|222 113 120 M9; J15>Z;
5517/0: 042|066|056|221 213 112 DUP; CAB; +; J8V;
5520/0: 065 REV;
5520/1: 052 16; ERASE;
5520/2: 140 200 15; M+I8;
5520/4: 200 331 215 2; JSP1;
5521/1: 201 273 216 J12;
[ original source of the next page
5521/4: 042|170 230|300 013 067|164 261|036 3; DUP; =C9; V0; SHL-40; -;
5523/1: 042|042|161 373|036|161 373 DUP; DUP; SHA-3; -; SHA-3;
5524/2: 201 153 131 J17≠Z;
5524/5: 304 000 005|056|171 222|225 153 126 SET5; +; M9; J18=Z;
5526/2: 171 222|054 M9; AND;
5526/5: 042|224 153 152 18; DUP; J19=Z;
5527/3: 065|042|204 053 107 REV; DUP; J7≥Z;
5530/2: 154 010|201 273 120 C0TOQ8; J16;
17; (NON-DIGITS);
5531/1: 052|171 230|042|301 013 077|042 ERASE; C9; DUP; =V8; DUP;
5532/3: 300 013 067|164 021|011|304 000 001|170 230 V0; SHL+8; OR; SET1; =C9;
5534/2: 065 REV;
5534/3: 065|041|166 021|066|065 20; REV; ZERO; SHLD+8; CAB; REV;
5535/3: 143 220|203 033 134 DC9; J20≠;
5536/2: 052|242 233 140 ERASE; J21C9Z;
5537/0: 164 361|171 230|033|201 153 210 SHL-8; C9; NOT; J22≠Z;
5540/2: 167 337|171 222|011|224 053 215 21; SHC-17; M9; OR; J9<Z;
5541/4: 260 233 151 J23C9NZ;
5542/1: 041|033|170 222 ZERO; NOT; =M9;
5542/5: 042|202 053 144 14; DUP; J24≥Z;
5543/3: 240 213 204 J25C8Z;
5544/0: 033 NOT;
5544/1: 027 26; NEG;
5544/2: 171 202|171 204|036|224 053 215 24; M8; I8; -; J9<Z;
5545/4: 171 224|204 053 146 I9; J27≥Z;
5546/3: 027 NEG;
5546/4: 260 233 161 27; J28C9NZ;
5547/1: 171 216|301 013 070|301 013 071|200 273 102 Q8; =V1; =V2; J11; (READ EXPONENT);
5551/0: 171 204|204 153 215 23; I8; J9≠Z;
5551/5: 144 200|204 273 120 I8=+1; J2;
5552/4: 171 210|033|027|170 210 19; C8; NOT; NEG; =C8;
5553/4: 065|042|033|221 153 120 REV; DUP; NOT; J16=Z;
5554/4: 065|201 273 120 REV; J16;
5555/2: 052|300 013 067|304 000 002|054|161 377|171 204 31; ERASE; V0; SET2; AND; SHA-1; I8;
5557/2: 011|171 222|056|205 113 106 OR; M9; +; J5≤Z;
5560/3: 203 273 114 J13;
(OUTPUT CONVERSION TO SFB);
5561/0: 171 222|171 204|011|220 153 220 28; M9;I8; OR; J33=Z;
5562/2: 171 222|205 053 164 M9; J29≥Z;
5563/1: 300 013 070|170 216|172 210|300 013 071 V1; =Q8; =+C8; V2;
5564/5: 171 210|171 202|036|300 013 072|034 29; C8; M8; -; V3; ×D;
5566/2: 162 005|043|016|042|170 236 SHAD+2; DUPD; ROUND; DUP; =Q9;
5567/3: 041|065|053|050|042 ZERO; REV; -D; CONT; DUP;
5570/2: 042|035|161 363|042|300 013 073 DUP; ×; SHA-7; DUP; V4;
5571/4: 035|300 013 074|056|065|300 013 075 ×; V5; +; REV; V6;
5573/1: 056|300 013 076|065|060|056 +; V7; REV; ÷; +;
5574/2: 065|161 371|043|056|012|036 REV; SHA-4; DUPD; +; PERM; -;
5575/3: 161 003|060|065|042|041 SHA+1; ÷; REV; DUP; ZERO;
L77 not available
5576/3: 200 334 165|045|027|170 210|052 JSL77; FIX; NEG; =C8; ERASE;
5577/5: 164 200|035|171 236|304 000 060|056 SHLC8; ×; Q9; SET48; +;
L77 not available
5601/2: 171 210|036|200 334 165|224 213 215 C8; -; JSL77; J9V;
5602/5: 300 013 077|065|202 360 001 30; V8; REV; EXIT2;
(SIGNS AND TERMINATORS);
5604/0: 241 233 144 25; J26C9Z;
5604/3: 171 222|171 224|011|171 204|011 M9; I9; OR; I8; OR;
5605/5: 300 013 067|011|304 000 010|054|224 153 120 V0; OR; SET8; AND; J2=Z;
5607/4: 204 273 215 J9;
5610/1: 052|304 377 372|171 230|161 003|036|042 22; ERASE; SET-6; C9; SHA+1; -;DUP;
5611/5: 222 113 155 J31>Z;
5612/2: 033|065|042|033|171 224 NOT; REV; DUP; NOT; I9;
[ original source of the next page
5613/2: 011|171 210|011|171 204|011 OR; C8; OR; I8; OR;
5614/3: 220 153 217 J32=Z;
5615/0: 065|202 273 155 REV; J31;
5615/4: 304 377 370 9; SET-8;
5616/1: 065|052|200 360 000 12; REV; ERASE; EXIT1;
5617/0: 065|170 224|204 273 120 32; REV; =I9; J2;
5620/0: 300 013 077|065|200 360 001 33; V8; REV; EXIT3;
=== Start P5V1; at address 2964/5624
P5V1; (SEARCH DECLARATION LIST + CODE BODY FORMALS);
5624/0: 042|301 013 222|170 376|171 370|170 343 DUP; =V0; =Q15; C15; =RM14;
5625/4: 145 340|304 377 376|170 371|204 273 241 I14=-1; SET-2; =RC15; J9;
5627/2: 167 375|047|164 253|065|164 377 2; SHC-2; STR; SHL-43; REV; SHL-1;
5630/4: 054|027|172 342 AND; NEG; =+M14; (STEP TO CODE WORD);
5631/2: 300 013 223|170 376|243 373 242 V1; =Q15; J1C15Z; (FORMAL CHECK CANCELLED);
5632/4: 100 345|042|164 133|220 153 240 M5M14; DUP; SHL+45; J10=Z;
5634/0: 304 001 370|054 SETB770; AND;
5634/4: 304 001 140|221 033 241 SETB540; J7=; (<TYPE> FORMAL BY VALUE);
5635/4: 140 360|304 000 140|225 033 240 M+I15; SETB140; J8=; (BY NAME);
5637/0: 304 000 160|201 033 241 SETB160; J7≠;
5640/0: 304 000 002|170 370 10; SET2; =C15; (INVALID CODE BODY FORMAL);
5640/5: 143 360 8; DC15;
5641/1: 052|143 360 7; ERASE; DC15;
5641/4: 171 376|301 013 223 9; Q15; =V1;
5642/3: 140 340|300 013 222|170 376 1; M+I14; V0; =Q15;
5643/4: 171 342|171 122|056|171 362|015 M14; M5; +; M15; NEV;
5645/0: 224 153 255 J5=Z; (ADDRESS OF UNKNOWN IDENTIFIER FOUND IN LIST);
5645/3: 102 345|042|167 377|222 053 252 M5M14Q; DUP; SHC-1; J3<Z; (IDENTIFIER);
5646/5: 042|164 301|042|170 342|224 153 256 DUP; SHL-32; DUP; =M14; J6=Z;
5650/2: 164 125|047|052|161 003|052 SHL+42; STR; ERASE; SHA+1; ERASE;
5651/3: 203 273 242 J1; (END DIGIT TO VR);
5652/0: 102 345 4; M5M14Q;
5652/2: 102 360|202 033 227 3; M0M15Q; J2≠;
5653/1: 167 375|220 053 252 SHC-2; J4<Z;
5654/0: 100 345|300 013 223|170 376|202 360 001 M5M14; V1; =Q15; EXIT2;
5655/4: 300 013 223|170 376|041 5; V1; =Q15; ZERO;
5656/4: 001|200 360 000 6; VR; EXIT1; (N1≠O IMPLIES NOT IN LIST);
=== Start P6V-1; at address 2992/5660
5660/0: 243 053 277 P6; J3C2Z;
5660/3: 171 024|164 101|171 030|166 361|052 I1; SHL+32; C1; SHLD-8; ERASE;
5662/0: 164 377|171 142|166 363|052|171 062 SHL-1; M6; SHLD-7; ERASE; M3;
5663/3: 166 361|052|171 102|166 361|052 SHLD-8; ERASE; M4; SHLD-8; ERASE;
5664/5: 111 020|170 024|154 001|041|033 =M0M1N; =I1; C0TOQ1; ZERO; NOT;
5666/1: 042|172 050|027|172 022|202 360 001 2; DUP; =+C2; NEG; =+M1; EXIT2;
5667/4: 171 024|223 153 277 1; I1; J3=Z;
5670/3: 100 020|171 030|170 362|047|162 017 M0M1; C1; =M15; STR; SHAD+7;
5672/0: 170 102|164 003|047|162 017|170 062 =M4; SHL+1; STR; SHAD+7; =M3;
5673/3: 164 003|047|162 015|170 142|164 005 SHL+1; STR; SHAD+6; =M6; SHL+2;
5675/0: 047|162 017|170 030|164 303|170 024 STR; SHAD+7; =C1; SHL-31; =I1;
5676/3: 304 000 001|201 273 266 SET1; J2;
5677/3: 200 360 000 3; EXIT1;
=== Start P7V4; at address 3013/5705
V-store at 05700 = 000 000 000 000 000 000 P7V4; V0=0; [ output to channel 5, entry 4 is close, 1 and 8 are open
5705/0: 300 013 300|202 053 326 V0; J3≥Z;
5706/0: 300 013 302|171 356|301 013 302|170 356 V2; Q14; =V2; =Q14;
5707/4: 042|221 153 324 DUP; J10=Z;
5710/2: 171 344|225 053 320 I14; J9<Z;
5711/1: 171 350|171 344|034|050|172 342 17; C14; I14; ×D; CONT; =+M14;
5712/3: 142 340|300 013 301|170 376 NC14; V1; =Q15;
5713/4: 260 373 316 12; J11C15NZ;
5714/1: 304 340 005|200 320 106 SETB160005; JSE70; [B160005;
5715/1: 204 266 337 J3P0;
5715/4: 170 376 =Q15;
[ original source of the next page
5716/0: 102 340|103 360|264 353 313 11; M0M14Q; =M0M15Q; J12C14NZ;
5717/1: 171 376|301 013 301|304 013 303|170 343 Q15; =V1; SETAV3; =RM14;
5720/5: 103 340 9; =M0M14Q;
5721/1: 171 356|300 013 302|170 356|301 013 302 16; Q14; V2; =Q14; =V2;
5722/5: 041|033|301 013 300|200 360 000 13; ZERO; NOT; =V0; EXIT1;
5724/1: 141 340|100 340|140 340|205 153 320 10; M-I14; M0M14; M+I14; J9≠Z;
5725/4: 052|201 273 321 ERASE; J16;
5726/2: 300 013 300|042|202 113 340 3; V0; DUP; J19≤Z;
5727/3: 170 362|101 360|205 273 322 =M15; =M0M15; J13;
5730/4: 203 333 346 4; JS20; [ close channel 5
5731/1: 041|301 013 300|304 140 005|170 370|171 376 ZERO; =V0; SETB60005; =C15; Q15;
5733/0: 167 041|200 320 106 SHC+16; JSE70; [B60005
5733/5: 204 266 337 J3P0;
5734/2: 200 360 000 EXIT1;
5734/5: 300 013 302|170 376|171 370|171 364|034 5; V2; =Q15; C15; I15; ×D;
5736/3: 050|172 362|171 364|027|170 364 CONT; =+M15; I15; NEG; =I15;
5737/5: 262 373 343 J14C15NZ;
5740/2: 304 002 141|201 266 340 19; SET609; J4P0;
5741/2: 300 013 302|042|170 376 2; V2; DUP; =Q15;
5742/2: 052|242 373 340 15; ERASE; J19C15Z;
5743/0: 141 360 M-I15;
5743/2: 304 000 001|172 370|100 360|042|222 153 342 14; SET1; =+C15; M0M15; DUP; J15=Z;
5745/1: 171 362|301 013 300|200 360 000 M15; =V0; EXIT1;
5746/3: 300 013 300|202 053 340 20; V0; J19≥Z;
5747/3: 300 013 302|171 356|301 013 302|170 356 V2; Q14; =V2; =Q14;
5751/1: 041|201 273 311 ZERO; J17;
5751/5: 203 333 346 6; JS20;
5752/2: 171 122|171 042|056|041|033 M5; M2; +; ZERO; NOT;
5753/3: 170 365|042|170 362|301 013 300|041 21; =RI15; DUP; =M15; =V0; ZERO;
5755/0: 103 360|171 376|301 013 302|200 360 000 =M0M15Q; Q15; =V2; EXIT1;
5756/4: 203 333 346 7; JS20;
5757/1: 304 013 303|304 000 001|203 273 353 SETAV3; SET1; J21;
5760/4: 304 242 005|201 273 362 8; SETB121005; J18; [ open channel 5 single forward
5761/4: 304 242 105 1; SETB121105; [ open channel 5 double forward
5762/1: 300 013 300|202 153 340 18; V0; J19≠Z;
5763/1: 166 341|052|167 041 SHLD-16; ERASE; SHC+16;
5764/0: 304 013 303|042|301 013 300|170 363 SETAV3; DUP; =V0; =RM15;
5765/3: 041|103 360|171 376|301 013 302|200 320 106 ZERO; =M0M15Q; Q15; =V2; JSE70; [B computed
5767/2: 204 266 337 J3P0;
5767/5: 301 013 301|200 360 000 =V1; EXIT1;
=== Start P8V1; at address 3067/5773
P8V1;
V-store at 05771 = 000 170 000 001 000 000 V0=Q120/1/0;
5773/0: 157 017|304 000 240|220 034 011 Q0TOQ15; SETB240; J1=;
5774/2: 300 013 372|042|204 154 001 V1; DUP; J2≠Z;
5775/3: 033|304 000 024|170 371 NOT; SET20; =RC15;
5776/3: 017|017|017|042|303 374 354 *3; DUP; =YF4M15Q;
5777/4: 017|017|177 360 *; J3C15NZS;
6000/2: 052|300 013 371|042|301 013 372 ERASE; V0; DUP; =V1;
6001/4: 170 376|240 374 014 2; =Q15; J4C15Z;
6002/3: 171 362|167 373|042|170 362|164 255 M15; SHC-3; DUP; =M15; SHL-42;
6004/0: 170 370|300 374 354|167 360|164 021|065 =C15; YF4M15; SHCC15; SHL+8; REV;
6005/4: 166 361|052|142 360|167 360|301 374 354 SHLD-8; ERASE; NC15; SHCC15; =YF4M15;
6007/2: 300 013 372|170 376|143 360|140 360|041 V1; =Q15; DC15; M+I15; ZERO;
6011/0: 052|171 362|042|164 377|054 1; ERASE; M15; DUP; SHL-1; AND;
6012/1: 304 000 002|054|171 376|056|301 013 372 SET2; AND; Q15; +; =V1;
6013/5: 041 ZERO;
6014/0: 052|200 360 000 4; ERASE; EXIT1;
=== Start P9V5; at address 3091/6023
V-store at 06015 = 050 242 212 050 242 212 P9V5; V0=B1212121212121212;
[ original source of the next page
V-store at 06016 = 000 002 000 002 014 351 V1=Q2/2/AYF1;
Warning: YG0 is out of range, only 0 YG-stores specified
V-store at 06017 = 014 350 015 000 270 321 V2=QAYF0/AYG0/B134321;
V-store at 06020 = 377 021 046 056 061 236 V3=B7761044613430636;
V-store at 06021 = 377 027 056 063 052 236 V4=B7761345614625236;
6023/0: 320 013 070|047|041|033|011 Z39; STR; ZERO; NOT; OR;
6024/1: 050|321 013 070 CONT; =Z39;
6024/5: 304 000 204|200 333 373 SETB204; JSP8;
6025/5: 304 000 216|200 333 373 SETB216; JSP8;
6026/5: 304 000 224|200 333 373 SETB224; JSP8;
6027/5: 300 014 020|301 014 350|300 014 021|301 014 352 5; V3; =YF0; V4; =YF2;
6031/5: 300 014 016 V1;
6032/2: 170 376|042|026|300 014 015|300 000 003 6; =Q15; DUP; ABS; V0; E3;
6034/0: 300 000 002|166 255|052 E2; SHLD-42; ERASE;
6035/0: 304 003 317|054|164 045|013|056 SETB1717; AND; SHL+18; TOB; +;
6036/2: 300 014 015|065|067|164 043|171 364 1; V0; REV; FRB; SHL+17; I15;
6037/5: 164 005|162 015|205 214 037 2; SHL+2; SHAD+6; J2NV;
6041/0: 304 000 236|011|103 360|052|244 374 043 SETB236; OR; =M0M15Q; ERASE; J3C15Z;
6042/4: 171 150|027|202 274 036 13; C6; NEG; J1;
6043/4: 300 014 017|170 376|225 054 045 3; V2; =Q15; J7<Z;
6045/0: 304 014 352|170 364 SETAYF2; =I15;
7;
6045/5: 171 376|200 320 106|017|017 4; Q15; JSE70; DUMMY; DUMMY; [B134321; sometimes
6047/0: 041|052|200 360 000 ZERO; ERASE; EXIT1;
=== Start P11V0; at address 3113/6051
P11V0;
6051/0: 304 000 236|224 034 057 SETB236; J1=;
6052/0: 304 000 256|224 034 057 SETB256; J1=;
6053/0: 304 000 240|221 034 055 SETB240; J2=;
6054/0: 041|301 014 050|202 360 001 ZERO; =V0; EXIT2;
6055/1: 300 014 050|204 154 057 2; V0; J1≠Z;
6056/1: 041|033|301 014 050|041|200 333 305 ZERO; NOT; =V0; ZERO; JSP7;
6057/4: 200 333 373|200 360 000 1; JSP8; EXIT1;
=== Start P12V0; at address 3122/6062
P12V0; (OUTPUTS A NUMBER IN N3 AFTER UP TO);
(SIX ABS FROM N2. NUMBER OF ABS IN N1);
V-store at 06061 = 050 242 212 050 240 101 V0=B1212 1212 1212 0101;
6062/0: 203 334 210 JS2P754; (OUTPUT ABS);
6062/3: 042|164 101|164 301|222 034 064 DUP; SHL+32; SHL-32; J1=;
6063/5: 200 360 000 EXIT1; (NUMBER TOO LARGE);
6064/2: 300 014 061|065|067|304 000 006|170 371 1; V0; REV; FRB; SET6; =RC15;
6066/0: 152 017|041 I0TOQ15; ZERO; (LHZ SUPPRESS WHILE I15 = O);
6066/3: 164 005|166 015|143 360|240 374 071 2; SHL+2; SHLD+6; DC15; J3C15Z;
6070/0: 042|164 121|222 154 071 DUP; SHL+40; J4=Z;
6071/0: 144 360 3; I15=+1; (END OF LHZ SUPPRESS);
6071/2: 140 360|263 374 066 4; M+I15; J2C15NZ; (M15 COUNTS SIGNIFICANT D1GITS);
6072/1: 171 362|027|161 007|170 370 M15; NEG; SHA+3; =C15;
6073/2: 166 360|052 SHLDC15; ERASE; (LEFT-JUSTIFY ABS);
6073/5: 171 362|203 334 210 M15; JS2P754;
6074/4: 202 360 001 EXIT2;
=== Start P13V-1; at address 3134/6076
P13; (INSTRUCTIONS PER LINE COUNTER);
6076/0: 242 274 100 J1C11Z; (AFTER A USERCODE LABEL);
6076/3: 143 260|261 274 102 DC11; J2C11NZ;
6077/2: 304 000 240|201 334 220 SETB240; JS1P754; (NEWLINE);
6100/2: 304 000 256|201 334 220 1; SETB256; JS1P754; (TAB);
6101/2: 304 000 005|170 270 SET5; =C11;
6102/1: 200 360 000 2; EXIT1;
=== Start P14V-1; at address 3139/6103
P14; (OUTPUTS SEQUENCES OF ABS AND NUMBERS);
(TERMINATED BY SEMICOLON,SPACE.NORMAL ENTRY);
[ original source of the next page
(PAIRS OF DATA WORDS IN N STORE,NUMBER );
(OF PAIRS IN N1. ENTRY 1: DATA AS FOR P12);
6103/0: 170 210 =C8;
6103/2: 171 210|143 200 4; C8; DC8;
6104/0: 200 334 062 3; JSP12;
6104/3: 200 360 000 EXIT1;
6105/0: 262 214 103 J4C8NZ;
6105/3: 304 230 236|164 101|304 000 002|203 334 210 2; SETB114236; SHL+32; SET2; JS2P754;
6107/2: 200 334 076 JSP13;
6107/5: 202 360 001 EXIT2;
6110/2: 154 010|200 274 104 1; C0TOQ8; J3;
=== Start P16V-1; at address 3146/6112
P16; (FIND CODEWORD DATA;M5=START ADDRESS OF D-LIST);
(Q1O=-/+OR1÷REL.ADD. OF IDENT);
(RESULTS :M10=REL ADD OF CODEWORD);
(FAILURES:EXIT1 IF ADD. OF O WORD);
(USES:2-NESTS.1-SJNS);
6112/0: 100 245|140 240|042|167 377|222 054 114 M5M10; M+I10; DUP; SHC-1; J1<Z;
6113/4: 052|200 360 000 ERASE; EXIT1;
6114/2: 167 375|047|164 253|065|166 377 1; SHC-2; STR; SHL-43; REV; SHLD-1;
6115/4: 054|171 244|034|050|172 242|202 360 001 AND; I10; ×D; CONT; =+M10;EXIT2;
=== Start P45V3; at address 3156/6124
V-store at 06120 = 240 256 041 242 015 230 P45V3; V0=B5012 7041 5040 6630;
V-store at 06121 = 050 242 212 050 242 212 V1=B1212 1212 1212 1212;
V-store at 06122 = 000 000 000 236 236 236 V2=B4751 7236;
V-store at 06123 = 000 000 000 000 000 000 V3=0;
6124/0: 300 014 123|170 371|205 274 127 V3; =RC15; J4;
6125/2: 052|300 375 200|200 360 000 7; ERASE; YV0M15; EXIT1;
6126/3: 302 375 200|222 034 125 5; YV0M15Q; J7=;
6127/3: 140 360 M+I15;
6127/5: 263 374 126 4; J5C15NZ;
6130/2: 304 015 300|304 015 201|036 SETAYW0; SETAYV1; -;
6131/3: 171 362|036|200 114 136 M15; -; J6≤Z;
6132/3: 042|303 375 200|320 013 126|164 101|164 301 DUP; =YV0M15Q; Z9; SHL+32; SHL-32;
6134/2: 303 375 200|171 362|161 377|301 014 123 =YV0M15Q; M15; SHA-1; =V3;
6136/0: 320 013 126|042|033|027|321 013 126 6; Z9; DUP; NOT; NEG; =Z9;
6137/3: 164 101|164 301|042|012|300 014 121|065 SHL+32; SHL-32; DUP; PERM; V1; REV;
6141/1: 067|161 045|300 014 120|042|164 061|012|164 321 FRB; SHA+18; V0; DUP; SHL+24; PERM; SHL-24;
6143/1: 164 005|166 015|164 005|166 015 SHL+2; SHLD+6; SHL+2; SHLD+6;
6144/3: 164 005|166 015|200 334 210|041 SHL+2; SHLD+6; JSP754; ZERO;
6145/5: 166 015|164 005|166 015|065|052 SHLD+6; SHL+2; SHLD+6; REV; ERASE;
6147/1: 166 041|066|065|164 013 SHLD+16; CAB; REV; SHL+5;
6150/1: 166 007|164 013|166 007|200 334 210 SHLD+3; SHL+5; SHLD+3; JSP754;
6151/4: 171 376|012|201 334 160|200 334 210|201 334 160|200 334 210 Q15; PERM; JS1; JSP754; JS1; JSP754;
6154/1: 041|166 007|164 013|166 007|065 ZERO; SHLD+3; SHL+5; SHLD+3; REV;
6155/3: 052|166 341 ERASE; SHLD-16;
6156/0: 052|300 014 122|011|200 334 210 ERASE; V2; OR; JSP754;
6157/2: 170 376|200 360 000 =Q15; EXIT1;
6160/1: 041|304 000 006|170 370 1; ZERO; SET6; =C15;
6161/1: 017|017|017|017|017|164 013|166 007|017|017|143 360|177 360 *2; SHL+5; SHLD+3; *DC15; J2C15NZS;
6163/4: 200 360 000 EXIT1;
This is L77
=== Start P3999V-1; at address 3189/6165
6165/0: 065|042|223 154 171|041|024 L77; REV; DUP; J164=Z; ZERO; FLOAT;
6166/1: 047|012|041|162 021|066 STR; PERM; ZERO; SHAD+8; CAB;
6167/1: 056|162 361|042|222 054 171 +; SHAD-8; DUP; J127<Z;
6170/2: 050|065|050 CONT; REV; CONT;
6170/5: 200 360 000 128; EXIT1;
6171/2: 052 127; ERASE;
6171/3: 052|052|041|205 274 170 164; ERASE; ERASE; ZERO; J128;
[ original source of the next page
=== Start P100V0; at address 3196/6174
V-store at 06173 = 000 000 006 131 336 010 P100V0; V0=Q0/B3131/B157010;
6174/0: 300 014 173|200 260 106 V0; JE70; [B157010;
=== Start P15V-1; at address 3197/6175
6175/0: 154 010|041 P15; C0TOQ8; ZERO;
6175/3: 052|143 200|200 331 215 1; ERASE; DC8; JSP1;
6176/3: 200 360 000 EXIT1;
6177/0: 042|161 003|304 000 113|036|026 DUP; SHA+1; SET75; -; ABS;
6200/2: 304 000 064|036|223 054 175 SET52; -; J1<Z; (ALPHA);
6201/3: 171 210|033|200 154 203 C8; NOT; J2≠Z;
6202/3: 202 360 001 EXIT2; (NOT A PARAMETER COMMENT);
6203/0: 304 000 271|015|200 331 215 2; SETB271; NEV; JSP1;
6204/1: 204 274 205 J3;
6204/4: 304 000 204|015|011|042 SETB204; NEV; OR; DUP;
6205/4: 052|200 360 000 3; ERASE; EXIT1;
=== Start P754V0; at address 3208/6210
P754V0; (OUTPUT ABS TO CANNEL 7 IN POST FORMAT);
(NORMAL ENTRY - 6 ABS IN N1);
(ENTRY 1 - 1 ABS IN N1*D47);
(ENTRY 2 - N ABS IN N2 LEFT-JUSTIFIED);
(N*D47 IN N1.);
(ENTRY 3 - CLOSE NO DATA REQUIRED);
(WRITES ANY PARTIALLY COMPLETED WORDS OUT AND);
(CLOSE THE CHANNEL 7, NO LAST BLOCKS, NO MORE START);
(EXIT - EXIT1 IN THE EVENT OF FAILURE);
(EXITS TO R4PO WITH FAILURE NUMBER PRINTS OUT);
(AS FAIL O13OO. THEN CALLS S95);
6210/0: 304 000 006 SET6;
6210/3: 300 014 207|065 2; V0; REV;
6211/1: 012|166 017|047|002|166 003 11; PERM; SHLD+7; STR; =TR; SHLD+1;
6212/2: 204 354 215 J10NTR; (WORD NOT FULL);
6212/5: 320 013 070|220 054 215|200 334 242|204 274 225 Z39; J12<Z; JSP755; J5;
6214/5: 041 ZERO;
6215/0: 052|304 000 001 12; ERASE; SET1; (NEW WORD FULL MARKER);
6215/4: 066|027|033|042|221 114 211 10; CAB; NEG; NOT; DUP; J11>Z;
6216/5: 052|301 014 207|052|200 360 000 ERASE; =V0; ERASE; EXIT1;
6220/1: 164 121|304 000 001|203 274 210 1; SHL+40; SET1; J2;
6221/3: 300 014 207|027|033|221 154 224 3; (CLOSE); V0; NEG; NOT; J7=Z;
6222/5: 041|033|201 334 220 ZERO; NOT; JS1;
6223/4: 203 274 221 J3;
6224/1: 202 334 272 7; JS3P755;
6224/4: 200 274 226 J6;
6225/1: 200 360 000 EXIT1;
6225/4: 052|052 5; ERASE; ERASE;
6226/0: 173 000|052|041|201 266 340 6; LINK; ERASE; ZERO; J4P0;
6227/1: 304 261 343|167 003|200 320 106 8; SETB130743; SHC+1; JSE70; [B130743;
6230/3: 200 274 226 (CLOSE CH. 7 WRITE 2 LBS); J6;
6231/0: 304 000 001|301 014 207|200 334 266|200 274 226 4; (OPEN); SET1; =V0; JS1P755; J6;
6233/0: 320 013 074|222 054 235 Z35; J13<Z; (POST);
6234/0: 300 000 060|164 101|221 154 227 E48; SHL+32; J8=Z;
6235/2: 200 360 000 13; EXIT1;
=== Start P755V3; at address 3234/6242
P755V3; (32-WORD BLOCKS ABS IN POST FORMAT TO CH.7 MAG. TAPE);
V-store at 06237 = 015 300 015 337 242 107 V1=QAYW0/AYW31/B121107;
V-store at 06240 = 015 340 015 377 000 000 V2=QAYW32/AYW63/0;
9; (NORMAL ENTRY-6 ABS IN N1);
6242/0: 300 014 236|170 376|103 360|240 374 245 V0; =Q15; =M0M15Q; J2C15Z;
6243/4: 171 376|301 014 236|202 360 001 Q15; =V0; EXIT2;
2; (BUFFER FULL);
6245/0: 300 014 241|225 154 253 V3; J10=Z;(IF TEXT PRINTOUT NOT REQ.);
6246/0: 171 376|301 014 241 Q15; =V3;
6246/5: 171 362|042|170 364|304 000 035|036|170 370 M15; DUP; =I15; SET29; -; =C15;
6250/4: 304 270 321|170 362|171 376|200 320 106|203 274 302 SETB134321; =M15; Q15; JSE70; J7; [B134321;
[ original source of the next page
6252/5: 300 014 241|170 376|052 V3; =Q15; ERASE;
10; (ALSO ENTERED PROM R248PO);
6253/5: 171 362|304 000 036|042|170 371|036 M15; SET30; DUP; =RC15; -;
6255/2: 170 362|041|042 =M15; ZERO; DUP;
6256/0: 102 360|047|057 *5; M0M15Q; STR; +D;
6256/4: 017|017|177 360 *; J5C15NZS;
6257/2: 320 013 127|042|033|027|321 013 127 Z8; DUP; NOT; NEG; =Z8;
6260/5: 164 101|164 301|042|051|066 SHL+32; SHL-32; DUP; REVD; CAB;
6262/0: 047|057|042|161 365|200 154 302 STR; +D; DUP; SHA-6; J8≠Z;
6263/2: 164 041|066|166 341|052 SHL+16; CAB; SHLD-16; ERASE;
6264/2: 103 360|103 360 =M0M15Q; =M0M15Q;
6265/0: 304 340 007|200 274 267 11; SETB160007; J4; (ALSO ENTERED FROM R247PO);
1; (OPEN);
6266/0: 300 014 240|300 014 237 V2; V1;
6267/0: 200 320 106 4; JSE70; [B121107;
6267/3: 203 274 302 J7;
6270/0: 033|027|304 000 003|164 101|036 NOT; NEG; SET3; SHL+32; -;
6271/2: 301 014 236|202 360 001 =V0; EXIT2;
3; (CLOSE);
6272/2: 300 014 236|164 301|304 000 035|036|221 154 276 V0; SHL-32; SET29; -; J6=Z;
6274/2: 041|033|200 334 242 ZERO; NOT; JS9;
6275/1: 203 274 302 J7;
6275/4: 202 274 272 J3;
6276/1: 300 014 236|027|033|170 364 6; V0; NEG; NOT; =I15;
6277/2: 304 140 007|170 362|171 376|200 320 106 SETB60007; =M15; Q15; JSE70; [B60007;
6301/0: 203 274 302 J7;
6301/3: 202 360 001 EXIT2;
6302/0: 052|052|052 8; ERASE; ERASE; ERASE;
6302/3: 200 360 000 7; EXIT1; (FAILURE EXIT);
=== Start P-1V-1; at address 3267/6303
Finished
FINISH;
Reached end of file