[ good1to12.txt [ -- David H ST 0;TL99999; V 111; W 5; YA 33; YB31; YC31; RESTART; J 113; J 114; PROGRAM; (ENTRY TO TRANSLATOR); V0=B 0120 4000 0100 0000; V1=B 0000 0011 0200 2704; V2=B 7216 6344 5212 6244; V3=B 3206 6144 1202 4044; V4=B 5400 0000 1242 7046; V5=B 5502 1040 0000 0000; V6=Q 0 / AYB0 / AYB31; V7=Q 0 / AYC0 / AYC31; V8=B 4000 5102 4170 3607; V9=B 3631 7572 4170 3607; V10=B 2210 3607 4170 3607; V11=B 2610 3607 4170 3607; V12=B 2410 3607 4170 3607; V13=B 6730 3607 4170 3607; V14=B 6330 3607 4170 3607; V15=B 4170 3607 4170 3607; V16=B 4170 3607 4170 3607; V17=B 4170 3607 4170 3607; V18=B 4170 3607 4170 3607; V19=B 4150 3607 4170 3607; V20=B 4170 4607 4170 3607; V21=B 4170 3607 4170 3607; V22=B 4170 3607 4170 3607; V23=B 6411 6607 4170 3607; V24=B 5530 3607 4170 3607; V25=B 4170 3607 4170 3607; V26=B 4174 0661 4030 3607; V27=B 4170 3607 4170 3607; V28=B 4210 3607 4170 3607; V29=B 6550 3607 4170 3607; V30=B 4174 1202 5050 3607; V31=B 4170 6607 4170 3607; V32=B 4170 3607 4170 3607; V33=B 4170 3607 4170 3607; V34=B 4170 3607 4170 3607; V35=B 4170 3607 4170 3607; V36=B 5550 3607 4170 3607; V37=B 4170 3607 4170 3607; V38=B 4170 3663 4470 3607; V39=B 4170 3607 4170 3607; V40=B 2064 0607 4170 3607; V41=B 5414 0360 4170 3607; V42=B 4170 3607 4170 3607; V43=B 4170 3607 4170 3607; V44=B 4170 3607 4170 3607; V45=B 4370 3607 4170 3607; V46=B 4173 4607 4170 3607; V47=B 4170 3607 4170 3607; V48=B 4171 6207 4170 3607; V49=B 4172 2607 4170 3607; V50=B 4170 3607 4170 3607; V51=B 4170 3607 4170 3607; V52=B 4170 3607 4170 3607; V53=B 4171 2607 4170 3607; V54=B 4310 3607 4170 3607; V55=B 4170 3616 4170 3607; V56=B 4170 3607 4170 3607; V57=B 4170 3607 4170 3607; V58=B 4175 0641 4430 3607; V59=B 4170 2207 4170 3607; V60=B 4170 3607 4170 3607; V61=B 4170 3607 4170 3607; V62=B 4173 1222 6450 3607; V63=B 4170 3607 4170 3607; V64=B 4171 4207 4170 3607; V65=B 4130 3607 4170 3607; V66=B 4170 3607 4170 3607; V67=B 4172 3207 4170 3607; V68=B 4174 3207 4550 3607; V69=B 4171 2207 4170 3607; V70=B 4174 1643 4070 3607; V71=B 0271 4607 4170 3607; V72=B 7777 0202 0202 0203; V73=0; V74=0; V75=0; V76=0; V77=B 0207 6750 4564 6364; V78=B 5756 4500 4154 4757; V79=B 5400 6462 4156 6354; V80=B 4164 5762 0202 0202; V81=0; V82=B0207624156174554; V83=B1720202055202063; V84=B7777000063517245; V85=B0207604162516471; V86=B 0046 4151 5400 5156; V87=B 0064 5164 5445 0707; V88=B 0207 0707 5765 6434; V89=0; V90=B2320213636656065; V91=B0702550253556720; V92=Q 0/-1/4896; V93=0; V94=B 0000 0024 1703 6141; V95=B 0521 0001 0040 0000; V96=B 4612 1030 0111 4000; V97=B 1100 0400 0600 2000; V98=B 5042 2011 0600 0630; V99=B 0741 0037 0000 0000; V100=B 4601 2420 0020 0000; V101=B 4601 2436 0400 4400; V102=B 1100 4430 0031 4242; V103=B 0000 0170 1703 6141; V104=B 0000 0004 0000 0100; V105= 0; (TEMP STORE USED BY CODE BODY); V106=B 0660 1400 0022 0400; V107=B 5040 6033 0000 0000; V108=B 0402 1424 0760 0630; V109=B 0421 2031 0501 7023; (ENTRY TO TRANSLATOR CONTINUED); E2; SHL-24; SHL+24; =V111; 102; ZERO; =V74P31; ZERO; =V4P33; ZERO; =V6P33; ZERO; =V7P53; ZERO; =V0P55; ZERO; =V0P5; ZERO; =V0P4; ZERO; =V1P4; ZERO; =V5P53; SETAV88; =RI7; SETAV89; =M7; SET-1; =C7; SET-1; =V4P114; Q7; JSP114; (TYPE OUT); V89; E0; SET1; AND; J107NEZ; (JUMP IF SIMULATOR REQUIRED); SET3; =V28P113; SET2; SET5; OUT; =V27P113; (OPERATOR TO TYPE 10,30 OR N AND END MESSAGE); SHL-36; SETB2120; J95=; (IF REF TABLES ON PUNCH); SETB2320; -; J109!=Z; (IF NO REF TABLES); SET5; DUP; =V4P33; 95; ERASE; SET1; =V6P33; (SET REF TABLES OUTPUT MARKER); 109; SET3; OUT; =V93; SET9; OUT; =V110; E1; SHL24; SHL-24; NEG; NOT; SETAW0; -; =RC1; 103; ZERO; =W0M1Q; J103C1NZ; V64P32; DUP; =YC31; =YB31; V6; =Q7; V28P113; SHL32; SHL-32; =YA28; V27P113; SHL32; SHL-32; DUP; =C7; =YA27; PREQ7; V7; DUP; =YA22; =Q1; PARQ7; C7TOQ1; PREQ1; V6; =YA23; YB1; DUP; YB0; DUP; PERM; SHLD-24; =E2; =E3; =V73; =V74; (TRANSFER IDENT); SETAV72; =RI7; SETAV74; =M7; 119; Q7; JSP114; SETB377; DUP; =M2; =YA4; Q0TOQ4; Q0TOQ5; Q0TOQ6; Q0TOQ8; SET8; =RI9; E1; SHL24; SHL-24; NEG; NOT; SETAY2; -; DUP; =M12; =RC15; SET-3; =I12; SET1996; =RC13; SET3; =M13; Q0TOQ14; SETAY2000; =M14; SETB604; =YA2; SET1; DUP; DUP; =Q1; =YA11; =YA21; SETB4000; =YA18; J115NTR; SETAV85; =I3; SETAV87; =M3; YA28; =C3; Q3; JSP114; (PRINT MESSAGE IF PARITY FAIL IN TITLE OF ALGOL PROG.); 115; YB31; V64P32; -; J1!=Z; (JUMP TO FAIL IF ALGOL TITLE TOO LONG); SET5; JSP1; DUP; SETB46; NEV; SETB267; AND; J2=Z; (JUMP IF DELIMITER = BEGIN OR : ); 1; V120P29; V121P29; JS13P50; (TYPE FAIL AND PRINT NO BEGIN); 2; ZERO; SETB656; SHLD-8; SHL32; M12; +; DUP; JSP44; SET120; =YA4; SET102; -; J5!=Z; (JUMP TO OUT IF DELIMITER != : ); C0TOQ11; SETB4410; =YA0; 3; JSP3; SET1; ZERO; JSP47; SET5; JSP1; SET46; J4=; (JUMP IF DELIMITER = BEGIN); SET102; -; J3=Z; (jump if delimiter = :); J1; 107; ERASE; JSP113; J109; 4; ERASE; ZERO; SETB1135; SHLD-9; JSP36; ZERO; =YA0; ZERO; =YA8; (RETURN TO OUT); (MAIN LOOP); 5; J105EN; SETB777; J7; 105; SET5; JSP1; SETB157; J6!=; SET133; J7; 6; JSP101; DUP; SETB37; AND; *; JSP100; (TREE); J8; J7; SET45; 7; JP5; JSP6; J5; YA0; J18; J39; J7; YA0; J17; SETB2004; YA0; JSP16; J5; J9; J7; ERASE; M14M15; DUP; SHC8; JSP21; J5; JSP25; J5; C1; DUMMY; J67; JSP20; J5; JSP2; J5; SET45; J7; C1; J7=Z; (JUMP IF MARKER L NOT SET); DUP; ZERO; ZERO; JSP52; 16; ERASE; J11C14NZ; Q4; SHL8; SHL-40; SETB157; -; J90*NEZ; (IF FINAL END NOT FOLLOWED BY END MESSAGE); YA28; =RC6; YA26; J112*NEZ; (IF FAIL SET); YA33; J157=Z; (IF NO CODE PROCEDURES); SET61; E0; SETB40; AND; J7=Z; ERASE; V106; SET5; JS1P12; YA33; NEG; NOT; JSP13; SETB230; JSP12; ZERO; YA33; 156; REV; SETB41; JSP12; DUP; JSP13; V107; SET3; JS1P12; DUP; SET302; +; JSP13; SETB230; JSP12; NOT; NEG; REV; NEG; NOT; DUP; J156*NEZ; ERASE; ERASE; V108; SET6; JS1P12; V109; SET6; JS1P12; SETB114276; SHL32; SET2; JS1P12; JS7P12; 157; M13; DUP; =RC3; =Y2; YA11; =Y1; YA10; =Y0; E0; SETB20; AND; J97!=Z; V74; =Y-1; V73; =Y-2; M13TOQ3; I3=-1; SET3; =+C3; V92; =Q6; M3; =+M6; 96; Y0M3Q; =M0M6Q; J96C3NZ; J112; 97; SETAV73; =I6; SETAV76; =M6; Q6; JSP114; SETAW0; DUP; =I6; =M6; C6; E0; SETB10; AND; J108=Z; (JUMP FOR OUTPUT OF BINARY OBJECT PROGRAM); 101; Y0M3Q; JSP125; ERASE; C3; J101>=Z; ERASE; SETB75; =W0; Q6; JSP114; (OUTPUT OBJ. PROG. INSYLL. OCTAL); C0TOQ6; Q6;JSP114; J121; 108; Y0M3Q; =W0; Q6; JSP114; C3; J108>=Z; ERASE; C0TOQ6; J121; 112; YA28; =C6; 121; SETAW1; =I6; SETAW5; =M6; SET3; OUT; V93; -; SHA-24; SET60; /I; JSP127; V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W2; SET9; OUT; V110; -; SHA-24; SET60; /I; JSP127; V2P127; SHL+6; REV; JSP127; V2P127; SHL+24; V83; OR; OR; =W3; V82; =W1; V84; =W4; I1; JSP127; V2P127; SHL+6; SETB02; =W5; W5; OR; =W5; J91C6Z; Q6; JSP114; C0TOQ6; 91; Q6; JSP114; SETB10; DUP; DUP; SHL16; OR; SHL16; OR; SET8; OUT; V4P33; =C6; J120C6Z; Q6; JSP114; SETB30; DUP; DUP; SHL16; OR; SHL16; OR; SET8; OUT; 120; YA27; SET6; OUT; V75P113; J122=Z; YA28; SET6; OUT; 122; YA26; E0; SETB20; AND; OR; J102!=Z; (IF FAIL SET OR NOT LOAD AND GO); V90; V91; SHL+24; SHL-24; V111; OR; (CONTROL ROUTINE IDENT); SET1; OUT; (ENTER CONTROL ROUTINE); 90; V100P29; V101P29; JS13P50; (if no end message after prog); (OWN); 17; YA1; OR; J7NEZ; (jump to fail if T or D != 0); =YA1; JSP30; J5; (SWITCH); 18; YA1; OR; J7!=Z; (jump if T or D != 0 ); ERASE; SETB2410; =YA0; SETB410; =YA2; JSP30; J5; (RIGHT ROUND BRACKET ); 20; REV; ERASE; J24!=Z; (jump if PROC = 1 ); M1; J22=Z; (JUMP IF E = 0); SET85; 21; J7; 22; SET1; JSP41; SET2; JSP37; SET86; M14M15; ZERO; SHLD8; REV; SHL-24; =YA7; SET115; -; J21!=Z; (JUMP TO FAIL IF TS !=BRACKET); ERASE; M-I15; SET1; =+C15; 23; J5; 24; JSP57; 25; C0TOQ11; 26; M14M15; DUP; SHL-40; SET115; J28=; (JUMP IF TS=LEFT BRACKET); DUP; SETB201; DUP; CAB; AND; NEV; SET87; REV; J21!=Z; ERASE; M2; -; J27!=Z; SHL-24; =M11; Y1M11; =Q3; I3; SET1; JSP45; DUP; =I3; Q3; DUP; J3263); ERASE; C0TOQ11; ZERO; NOT; =YA8; ZERO; JSP35; SET120; J41!=; (JUMP IF DELIMITER != SEMI COLON); YA0; SETB4005; OR; =YA0; ERASE; SET2; ZERO; JSP47; M12; =YA12; Y2M11; =Y2M12; Y1M11; =Y1M12; Y0M11; SHL-1; SHL1; =Y0M12Q; ZERO; SETB2025; SHLD-8; JSP34; YA17; SET10; SHLD40; SET7; JSP34; ZERO; =YA25; (PH := 0); ZERO; =YA0; SET5; JSP1; J66; (TO CHECK DELIMITER = KDF9); 41; SET115; REV; J7!=; ERASE; YA0; SETB3777; AND; SETB1004; OR; =YA0; JSP46; =W0; M11; =W1; M12; =YA12; Y2M11; =Y2M12; YA15; =Y0M12Q; SET1; =YA7; 42; SET1; DUP; =+C11; JSP1; JSP46; SET92; REV; J7!=Z; (FAIL IF X!=0); ERASE; SET63; YA9; SET3; +; DUP; C14; SHL10; +; SHL16; ZERO; NOT; CONT; =Y1M11; DUP; NEG; NOT; =YA9; SETB176000; AND; J7!=Z; (FAIL IF L+3>1023); ERASE; YA15; ZERO; NOT; CONT; =Y0M11; SET125; J43=; SET123; -; J42=Z; (JUMP IF DEL =,); SET93; J7; 43; ERASE; SET1; JSP45; SETB47000; SHL16; +; SHL16; =M14M15; W1; =M11; SET2; W0; DUP; J44!=Z; (JP IF X=0); ZERO; =Y0M11; 44; M2; JSP47; SETB2025; SHL24; C11; +; ZERO; SHLD16; JSP34; Y2M11; DUP; SET10; SHLD40; SET7; JSP34; YA12; =M3; =Y2M3; Y1M11; =Y1M3; Y0M11; SHL-1; SHL1; =Y0M3; ZERO; =YA7; ZERO; =YA0; SET120; ZERO; JSP1; J7!=; (FAIL IF DELIMITER != SEMI COLON); SET-1; =YA25; (PH := -1); ZERO; JSP1; SET65; J46!=; (JUMP IF DEL != VALUE); 45; ERASE; SET1; JSP1; JSP46; ERASE; SET94; Y0M11; DUPD; J7>=Z; (FAIL IF F COL =0); ERASE; ZERO; CONT; SETB400; SHL24; +; =Y0M11; ERASE; SET123; J45=; (JUMP IF DEL = ,); SET95; REV; SET120; -; J7!=Z; (FAIL IF DEL= OTHER); ERASE; ZERO; JSP1; 46; DUP; SETB37; AND; J47!=Z; (JUMP IF DEL!=SCALAR); SHL-1; SETB4624; +; J49; 47; SET129; J48!=; (JUMP IF DEL!=STRING); SHL-6; J49; 48; DUP; SHL-3; J55=Z; (JUMP IF DEL = SPECIFIER); REV; J56=Z; SET96; J7; (FAIL IF DEL!=SPECIFIER IN SPEC. PART); 55; SHL4; =C3; V0; V1; SHLDC3; SHL-32; REV; ERASE; 49; =YA0; SET5; JSP1; SET97; C1; J7=Z; SHL-11; SET105; REV; J58=Z; ERASE; Y0M12; ZERO; NOT; CONT; =Y0M12; SET160; 64; SHL40; 60; SET1; JSP34; J57; [ good14.txt [ -- David H 61; V2; 62; REV; SHL-1; SETB30; DUPD; AND; =C3; REV; SHL-7; AND; DUP; DUP; +; +; =+C3; SHLC3; J60; 63; DUP; SETB12; AND; J65!=Z; DUP; SHL-9; V3; REV; J62!=Z; ERASE; DUP; SETB400; AND; SHL3; OR; V4; J62; 65; SHL-6; V5; J62; 66; ZERO; =V5P53; SET33; J6!=; (CODE BODY); ERASE; YA33; J151!=Z; (if not first code procedure); ZERO; =V0P12; SET6; =V1P12; SETB21; JSP12; SETB35; JSP12; SETB32; JSP12; SETB31; JSP12; SETB37; JSP12; SETB236; JSP12; SETB36; JSP12; SETB23; JSP12; SETB20; JSP12; SETB20; JSP12; SETB37; JSP12; 151; Q12TOQ11; YA12; =M11; Y1M11; SHL10; SHL-46; SETB2171; +; SHL8; YA33; NOT; NEG; DUP; =YA33; OR; SHL16; SET16; JS89; OR; SET11; JS89; SHL8; OR; SET14; JS89; +; ZERO; SHLD16; JSP34; (compile DOWN instr.); Y0M11; ZERO; =Y2M11Q;SHL24; SHL-40; DUP; =V105; J155=Z; (if no parameters); ZERO; DUP; 124; Y1M11; DUP; =Q6; SHL-34; SETB100000; =C6; SETB21102; J150!=; [ good15to28.txt [ typist: Graham T (== Page 15 ==) SETB100001; =C6; Y0M11; SHL15; J126=Z; ZERO; CONT; =Q6; J142C6NZ; (if parameter = scalar/label); JS148; Y0M11; J136>=Z; V96; SET5; JS1P12; V97; SET5; JS1P12; J136; 142; SETB242; J146!=; (if LS != =); C6; SHC-1; J140=Z; V98; SET6; JS1P12; 143; V99; SET3; JS1P12; I6; JSP13; DUP; V100; CAB; SETB25; -; J144=Z; ERASE; V101; 144; SET5; JS1P12; J128; 145; SETB242; JSP12; JS148; J128; 146; SETB25; J147!=; C6; SHC-1; J140>=Z; Y0M11; SHL15; J143>=Z; JS148; (== Page 17 ==) SETB230; JSP12; SET14; JS149; V100; SETB400; +; J144; 147; C6; SHC-1; J140=Z; SETB177776; =C6; Y0M11; J126>=Z; SHL-39; DUP; SET2; AND; DUP; +; OR; SETB14; AND; V103; OR; I6; SHL32; OR; DUP; SHC-8; SET6; JSP34; V104; NEV; REV; NOT; NEG; REV; J125; 152; DUP; SHL8; J153=Z; (fail if y=0); ERASE; M-I15; SET1; =+C15; YA2; SETB7677; AND; =YA2; M2TOQ1; ZERO; =YA13; M14M15; SHL-4; M2; AND; DUP; DUP; M-I15; SET1; =+C15; SET2; +; YA9; +; C14; SHL10; +; SHL8; +; SHL24; SETB2031; SHLD-8; (== Page 20 ==) 85; JSP34; DUP; =I11; =C3; SET1; =C1; 86; M14M15; =YA3; M-I15; SET1; =+C15; SET3; ZERO; JSP47; DC3; J86C3NZ; SET62; YA1; J87!=Z; (if D!=0); NOT; NEG; YA9; I11; +; DUP; =YA9; SET2; +; J88; 87; YA11; I11; +; DUP; =YA11; 88; SETB6000; AND; J7!=Z; (fail if L or Lp overlength); ERASE; J5; (return to OUT); (STRING); 92; SET1; =YA32; YA7; J7=Z; (fail if PROC=0); YA5; SETB 163; NEV; SETB 367; AND; J7!=Z; (fail if LD!=(/, )); C1; J7!=Z; (fail if m!=0); ERASE; I14; J93=Z; (if i at new word); ZERO; SET6; I14; -; JSP34; 93; YA15; =V1P4; I1; SETB703; SHL16; OR; ZERO; SHLD24; JSP36; DUP; =V0P4; JSP4; 94; SHL40; SET1; JSP34; YA32; J99=Z; (if s=0); 110; JSP7; SET1; =V0P4; ZERO; =YA7; JSP31; SETB235; J98!=; (IF !=CLOSINGQUOTE); YA32; NEG; NOT; =YA32; J94; 98; SETB215; J94!=; (if!= opening quote); YA32; NOT; NEG; =YA32; J94; 99; ZERO; =V0P4; ZERO; =V1P4; SET1; =YA7; I14; J100=Z; (if i at new word); ZERO; SET6; I14; -; JSP34; 100; ZERO; JSP1; ZERO; =YA2; SET123; -; J5=Z; (to OUT if del=,); YA4; SET125; -; J25=Z; (right round bracket entry 2); SET128; J7; (fail if del = other); (RESTART ); 113; SET134; J117; (== Page 21 ==) 114; SET136; 117; ZERO; NOT; STR; ERASE; SET2; =M1; =M0M1H; (RESET T/L); ZERO; =V5P53; ZERO; =V1P4; (clear extra fail information markers); JP29; P1V2; (B.C.R); V0=F 10.0; V1=F 1.0; C0TOQ1; Q0TOQ10; ZERO; =V2; 1; JSP31; 2; W3; J35!=Z; (if char != letter/digit/./@); [ @ is for subscript 10 36; DUP; SET65; -; J10=Z; (if char = digit/./@); (IDENTIFIER); SET8; =C2; SET1; =C1; 12; Q10; SHL6; +; =Q10; JSP31; W3; J41!=Z;(if char!=letter/digit/./@); DUP; SET63; -; J40=Z; (if char = digit); ERASE; M2; J19!=Z; (if MAX=1); Q10; DUP; SHL2; +; SHL1; +; DUP; SETB200; SHL32; -; J18>Z; (if N0>2^39); [ ^ for up =Q10; I2; J17!=Z; (if Exp!=0); (== Page 23 ==) 16; J17C2Z; (if Point=0); SET1; =+Q15; 17; =I11; YA6; Q15; =YA6; =Q15; JSP31; YA6; Q15; =YA6; =Q15; J15; 18; SET1; =M2; 19; ERASE; SET-1; =+Q15; J16; 20; J22!=Z; (IF CHAR!=.); ERASE; I2; J21!=Z; (fail if Exp!=0); J21C2NZ; (fail if Point!=0); DC2; J17; 21; SET113; 37; YA6; =Q15; JP5; 22; I11; SET63; J21=; (if LC=.); SETB122; NEV; SETB337; AND; J21=Z; (fail if LC=+/-); SET11; -; J24!=Z; (if char!=@); I2; J21!=Z; (fail if Exp!=0); M0TOQ2; SET1; =YA3; I11; J23=Z; (IF LC = blank); Q10; =YA3; 23; Q0TOQ10; I2=1;J17; 24; I11; SET64; -; J25!=Z; (if LC!=@); SET82; J17=; (if char =+); SET114; J21!=; (fail if char != -); I2=-1; J17; 25; I2; J27!=Z; (if Exp!=0); J29C2NZ; SET121; M2; J37!=Z; (if MAX!=0); ERASE; SET1; Q10; SHL-1; J26!=Z; (IF N0!=0/1); ERASE; SET3; Q10; -; 26; SETB377; =M2; YA6; =Q15; =YA6; SET122; J6V; ERASE; REV; =I11; J2; 27; I2; J28>Z; (if Sign=0); Q10; NEG; =Q10; 28; Q10; NEG; =+Q15; YA3; =Q10; 29; C0TOQ2; V0; V1; Q15; DUP; J30>=Z; (if Dec>=0); NEG; DC2; 30; DUP; J33=Z; 31; DUP; SHC-1; J32>=Z; PERM; DUPD; ERASE; xF; CAB; 32; SHL-1; DUP; J33=Z; CAB; DUP; xF; PERM; J31; 33; ERASE; REV; ERASE; J34C2NZ; V1; REV; %F; 34; Q10; SET47; FLOAT; xF; =Q10; ZERO; J26; (== Page 24 ==) P2; (BEGIN); M1; J1=Z; YA7; J1!=Z; J1C1NZ; YA14; J1!=Z; JSP38; ZERO; =YA8; M14M15; SHL-40; SETB20; NEV; SETB277; AND; J1=Z; SHC-8; SET1; JSP36; EXIT1; 1; JP5; P3V0; (TRACE a routine to update line nos and compile trace ); V0=B 7700 7700 7700 7700; YA3; SET10; SHLD40; SET7; JSP34; 1; Q6; YA3; DUP; =YA17; ZERO; =YA16; V6P33; J5=Z; V4P33; =C6; J4C6NZ; YA28; =C6; 4; SETAV2P29; =I6; SETAV3P29; =M6; JS20P29; YA28; V4P33; J3=Z; ERASE; V0; DUP; V2P29; OR; =V2P29; V3P29; OR; =V3P29; V4P33; 3; =C6; Q6; JSP114; =Q6; EXIT1; 5; ERASE; ERASE; EXIT1; P4V1; (CONVERT from Whetstone TO Kidsgrove internal code); V0=0; V1=0; V0; J1=Z; (if no conversion required); W3; J3!=Z; (if char!= letter/digit); (== Page 25 ==) DUP; SET53; -; J2>=Z; SET11; +; 1; EXIT1; 2; DUP; SET63; -; J3>=Z; (if char != digit); SET53; -; J1; 3; SET111; J4!=; (if end message inside string or code body); SET133; JP5; 4; DUP; SETB77; AND; =M3; SETB300; AND; SHL-3; =C3; V8P0M3; SHLC3; SHL-40; SET135; J1!=; (if legal char); JP5; P5V0; (SCAN); V0=0; (used as end comment marker); JSP29; ERASE; (print error message); V2P1; J1=Z; LINK; ERASE; J8P1; ( to BCR if fail in comment); 1; JS1P7; (clear SJNS); YA32; J110P0!=Z; (to STRING if fail within string); JSP7; ZERO; =V0P4; V0; DUP; J12P0>Z; (to END if fail in end comment); ERASE; JS4P29; 3; ZERO; =YA29; (to clear identifier store); YA4; 4; SETB157; J5!=; (if delimiter != end message); SET133; JP5; 5; SETB127; J7!=; (if delimiter != {); [ underlined [ used as open quote YA32; NOT; NEG; =YA32; (S:= S+1); 6; ERASE; SET4; JSP1; J4; 7; SETB117; J8!=; (if delimiter != }); [ underlined ] used as close quote YA32; J6=Z; YA32; NEG; NOT; =YA32; J6; (S:=S-1 unless S=0); 8; YA32; J6!=Z; (if s != 0); SETB170; J9=; (if delimiter = semi colon); (== Page 26 ==) SETB271; AND; SETB50; J6!=; (if delimiter = other); 9; ERASE; SETB170; =YA5; (LD := semi colon); SET1; DUP; =M1; =YA8; (E := V := 1); ZERO; =YA13; ZERO; =YA14; (ARITH := F := 0); ZERO; =YA7; ZERO; =YA0; (PROC := D := 0); ZERO; =YA30; ZERO; =Y2M12Q; (SV := item[NL] :=0); ZERO; =YA1; (T := 0); SETB604; =YA2; SETB377; =M2; (ABG(TYPE) := 1); YA4; SETB56; J6P0=; (OUT2 if delimiter = begin); SETB150; -; J12!=Z; SET-1; =YA8; (V := -1); J10P0; (END ENTRY 2); 12; YA25; DUP; J10=Z; (if T=other); ERASE; YA7; J4!=Z; (if PROC!=0); SET49; M1; J2!=Z; (if E=1); ERASE; 4; J8C1NZ; (if m=1); J6; 5; SET3; JSP40; 6; JSP55; SET1; JSP36; ZERO; =YA7; EXIT1; 7; ERASE; J5C1Z; (if m=0); JSP38; SET1; JSP40; 8; YA2; DUP; SET50; REV; SHC-4; J2=Z; SET129; JP5; 3; J4C1NZ; SET9; JP5; 4; ERASE; ERASE; ERASE; SET-1; JSP40; SETB4410; =YA0; JSP38; C0TOQ11; SET1; ZERO; JSP47; ZERO; =YA0; JP3; P17V1; ( := ); V0=B 2420 0001 0760 0000; V1=B 2605 1400 0011 2000; (first word in main loop); M1; J1=Z; (if E=0); YA0; DUP; J3=Z; (if T=0); SETB2010; DUP; CAB; NEV; AND; J2=Z; (if bF(T)=1); DUP; +; 1; JP5; 2; ERASE; C14; SET1; +; DUP; =C14; DUP; SHL41; J163); M0TOQ1; JSP43; SET1; DUP; SET14; SHL40; SET4; JSP45; SHL8; +; REV; JSP36; DUP; =C11; ZERO; JSP47; SHL34; V0; +; SET6; JSP34; EXIT1; 3; YA14; J4=Z; (if F=0); JSP41; YA5; SET11; -; J6!=Z; (if LD!=for); Y1M11; SETB10; SHC-8; OR; =Y1M11; 6; ERASE; SET1; JSP45; M14M15; DUP; SHL-40; SET11; [ good32.txt [ -- Brian W REV; J1!=; (if TS!=for); ERASE; DUP; SET2; JSP45; SHL8; +; =M14M15; SHL-8; SET-2; JSP63; ZERO; JSP54; V1; SET5; JSP34; SET1; DUP; DUP; NEG; JSP45; SET148; SHL24; +; SHL16; REV; JSP36; M0TOQ1; =YA13; EXIT1; 4; SET55; YA7; J1!=Z; (if PROC!=0); =YA30; JSP38; JSP41; DUP; M14M15; SHL-40; NEV; SETB277; AND; J5!=Z; (if TS!=ST/STA); ERASE; SET80; 5; SHL40; SET2; +; SET1; JSP36; EXIT1; P18; (COMMA 9/4/63); YA7; J2=Z; (if PROC=0); JSP57; ZERO; =YA2; 1; ERASE; EXIT1; 2; YA14; J3=Z; (if F=0); JSP62; SET1; DUP; SETB54224; SHL32; DUP; SET2; JSP34; SHL8; SET-1; JSP45; SHL16; +; REV; JSP36; =YA13; SETB704; =YA2; EXIT1; 3; YA0; DUP; SET8; AND; J7=Z; ERASE; ERASE; SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40; SET76; J4!=; (if TS!=[); ERASE; SETB400; SHL24; +; =M14M15; EXIT1; 4; SET14; -; SET79; REV; J6=Z; (if TS=switch begin); 5; JP5; 6; ERASE; DUP; SHL-24; SHL8; SET31; +; SHL24; SETB3033; SHLD-8; JSP34; SHL8; SET-3; JSP45; REV; ZERO; JSP54; SETB7000; SHL8; SET-5; JSP45; +; SHL16; SET-2; JSP45; +; SHL8; =M14M15; EXIT1; 7; ZERO; J8!=; (if T!=0); [ good33.txt [ -- Brian W ERASE; JSP59; EXIT1; 8; SETB4004; DUP; CAB; NEV; AND; J9!=Z; (if aG(T)!=1); C0TOQ11; ERASE; SET80; M1; J5=Z; (if E=0); ERASE; ZERO; ZERO; JSP47; EXIT1; 9; M14M15; DUP; SHL-40; DUP; SETB31; NEV; SETB373; AND; J10!=Z; (if TS!= MSF/MOSF); ERASE; DC1; SET81; J5C1NZ; (if m!=1); ERASE; YA3; =M14M15; SET16; +; SET1; JSP36; ERASE; EXIT1; 10; REV; ERASE; SET27; J12!=; (if TS != UJ); SHL2; YA1; J5=Z; (if D=0); SETB435; 11; ZERO; SHLD40; JSP36; ERASE; ERASE; EXIT1; 12; SETB216; NEV; SETB237; AND; J13!=Z; (if TS=other); SET108; YA1; J5!=Z; (if D=1); SETB431; J11; 13; JSP59; EXIT1; P19; (IF); (first word in main loop); SETB155; NEV; SETB355; AND; J4=Z; ((if LD=)/]); SET1; JSP40; M1; J5=Z; (if E=0); YA0; DUP; J3!=Z; (if T!=0); ERASE; JSP38; 1; JSP55; 2; SHC-8; YA13; SHL16; YA2; +; SHL16; M1; +; SET2; JSP36; ZERO; =YA13; M0TOQ1; SETB604; =YA2; EXIT1; 3; SHC-11; J1=Z; (if n <= 63); 1; JP5; 2; ERASE; M14M15; ZERO; NOT; SHL16; YA9; +; SHL16; YA12; +; =M14M15; SHL8; DUP; SET4; DUP; =YA9; JSP45; REV; ZERO; JSP54; SHL-8; V0; SET9; JSP34; SET-4; JSP45; SHL16; SET110; SHC-8; +; YA24; SHL4; OR; SET1; JSP36; ZERO; =YA24; M2TOQ1; ZERO; =YA13; ZERO; =YA14; SETB604; =YA2; M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; EXIT1; P25; (FOR); DUP; +; J2C1Z; (if m=0); 1; JP5; 2; YA14; J1!=Z; (if F!=0); ZERO; NOT; JSP40; JSP38; ZERO; SETB1433; SHLD-8; JSP34; SHC-9; I14; SHL13; I1; +; SHL24; +; SET1; DUP; =YA14; JSP36; SETB704; =YA2; EXIT1; P26V0; (semi colon); V0=B 0121 5400 0000 1134; ERASE; YA0; DUP; J10=Z; (if T=0); SETB7017; AND; SETB4004; J9=; (if aG(T)=1); SETB2004; J7=; (if bG(T)=1); SETB2010; -; SET30; REV; J2=Z; (if bF(type[I])=1); 1; JP5; 2; ERASE; SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40; SET14; J1!=; (if TS!=switch begin); ERASE; SET4; JSP45; SHL16; V0; +; ZERO; SHLD8; JSP34; M-I15; SET1; =+C15; DC14; M2TOQ1; [ good37.txt [ -- Brian W SETB604; =YA2; SHL8; DUP; SET-2; JSP45; REV; ZERO; JSP54; SHC16; SHL16; 3; DUP; J6!=Z; (if x!=0); ERASE; 4; ZERO; =YA0; 5; EXIT1; 6; ZERO; NOT; JSP45; REV; ZERO; JSP54; YA19; J3; 7; ERASE; SET13; J1C1NZ; (if m!=0); SET127; YA5; -; J1!=Z; (if LD!=] ); JSP37; 8; ZERO; =YA1; J4; 9; ERASE; C0TOQ11; ZERO; ZERO; JSP47; J8; 10; ERASE; JSP39; 13; SET1; JSP37; JSP58; SET78; J11!=; (if TS != proc begin); ZERO; JSP52; EXIT1; 11; SETB356; J12=; (fail if TS = for begin (BL)); REV; ERASE; SETB16; NEV; SETB37; AND; J5=Z; (if TS = other); 12; SET33; JP5; P29V135; (ERR); V0=B 0202 0746 4151 5400; V1=B 0000 0002 5451 5645; V2=0; V3=0; V4=B 4306 3243 4406 3254; V5=B 4506 3241 4706 3263; V6=B 5006 3260 0000 0000; V7=B 6451 5756 0051 4445; V8=B 5664 5146 5145 6200; V9=B 0000 0000 0106 3246; [ good38.txt [ -- Brian W V10=B 6445 6200 0000 0000; V11=B 0000 0000 5206 3254; V12=B 0006 1725 0000 0000; V13=B 4400 0000 0006 3107; V14=B 0206 3247 0306 3244; V15=B 5664 0007 0707 0707; V16=B 0700 5766 4562 5445; V17=B 5647 6450 7777 7777; V18=B 0406 3263 0000 0000; V19=B 0000 0000 0062 4554; V20=B 5432 4232 0532 5332; V21=B 0054 5156 4500 7777; V22=B 0000 0000 0606 3257; V23=B 0707 0707 0707 0707; V24=B 4532 5632 6407 0707; V25=B 5407 0707 0707 0707; V26=B 7107 0707 0707 0707; V27=B 5506 3242 0000 0000; V28=B 4332 5007 0707 0707; V29=B 3244 3265 3262 3245; V30=B 0000 0000 6057 6351; V31=B 4132 6232 7107 0707; V32=B 0000 0000 0706 3251; V33=B 3241 3256 0707 0707; V34=B 5607 0707 0707 0707; V35=B 4507 0707 0707 0707; V36=B 0000 0000 5606 3266; V37=B 5407 0707 0707 0707; V38=B 4732 4532 6207 0707; [ good39.txt [ -- Brian W V39=B 5632 4707 0707 0707; V40=B 4507 0707 0707 0707; V41=B 0207 4445 5451 5551; V42=B 0006 2107 0000 0000; V43=B 0000 0000 0006 3222; V44=B 0207 7777 7751 4445; V45=B 0007 3507 0000 0000; V46=B 0630 0754 5156 4500; V47=B 0006 2407 0006 3221; V48=B 0632 6432 6232 6532; V49=B 4507 0707 0707 0707; V50=B 0632 4632 4132 5432; V51=B 6332 4507 0707 0707; V52=B 1006 3262 1232 4132; V53=0; V54=0; V55=B 0006 1707 0000 0000; V56=B 1406 3245 1506 3245; V57=B 0207 4357 5663 6441; V58=B 0000 0000 1606 3264; V59=B 0000 0000 0075 0707; V60=B 0700 5156 4143 4345; V61=B 0007 3607 0006 3007; V62=B 6363 5142 5445 0707; V63=B 0006 3224 0000 0000; V64=B 0007 3407 0000 0000; V65=B 0000 0000 0006 3707; V66=B 6006 3265 0006 3107; V67=B 2106 3245 0006 2207; [ good40.txt V68=B 6106 3251 6206 3263; V69=B 0632 5732 6207 0707; V70=B 0632 5700 3264 3257; V71=B 0632 5707 0707 0707; V72=B 0632 6432 4532 6007; V73=B 0744 3246 3231 7777; V74=B 0632 6732 5607 0707; V75=B 0632 4607 0707 0707; V76=B 0632 4532 4132 5407; V77=B 0006 2607 0000 0000; V78=B 0754 3247 3257 3254; V79=B 0006 2307 0000 0000; V80=B 0632 5632 4407 0707; V81=B 0632 5432 6332 4507; V82=B 0632 5032 4532 5607; V83=B 2206 3251 0000 0000; V84=B 0000 0000 2332 4532; V85=B 0632 6132 6607 0707; V86=B 0632 5532 6007 0707; V87=B 0770 3251 3264 7777; V88=B 0632 6207 0707 0707; V89=B 0632 5632 4407 0707; V90=B 0632 5732 6407 0707; V91=B 0000 0000 0006 3607; V92=B 0207 7777 5451 5645; V93=B 0007 1707 0000 0000; V94=B 0700 5657 6400 6563; V95=B 0006 3223 0000 0000; V96=B 4544 0244 4543 5441; [ good41.txt [ -- Roderick McL V97=B 0207 4556 4400 4357; V98=B 5555 4556 6407 0707; V99=B 2406 3257 0000 0000; V100=B 0207 5657 7500 4146; V101=B 6445 6200 6062 5747; V102=B 5451 5645 0000 0000; V103=B 0632 5732 5532 5532; V104=B 0632 4132 4232 4532; V105=B 0632 6232 6232 4132; V106=B 6245 4400 5756 0007; V107=B 0632 6732 5132 6432; V108=B 3262 3257 3243 3245; V109=B 0006 2007 0000 0000; V110=B 0632 5132 4232 6232; V111=B 0006 2507 0000 0000; V112=B 0657 3257 3254 3245; V113=B 0632 4532 4732 5132; V114=B 0632 4132 5432 6532; V115=B 2506 3241 0000 0000; V116=B 0632 5632 6432 5132; V117=B 0632 5632 6432 4532; V118=B 0632 6432 6232 5132; V119=B 0632 5032 5132 5432; V120=B 0207 5657 0006 3242; V121=B 3245 3247 3251 3256; V122=0; V123=0; V124=B 0207 6556 5356 5767; V125=B 0006 2707 0000 0000; [ good42.txt [ -- Roderick McL V126=B 0207 5344 4631 0064; V127=B 0006 3507 0000 0000; V128=B 5757 0063 5541 5454; V129=B 5600 4350 4162 0707; V130=B 6306 3267 0000 0000; V131=B 2606 3256 0000 0000; V132=B 0020 2020 0000 0000; V133=0; V134=B 0207 4245 4341 6563; V135=B 4500 5746 0077 7777; (ERR CONT,D); (print error message); YA4; SETB377; -; J6!=Z; (to print NO begin); J1P0; 6; Q6; =V122; JS2P5; YA28; =C6; Q6; JSP114; (output fail); DUP; JS10; SHL30; V1; OR; =V2; JS25; (output fail no line etc); Q3; =V133; YA4; =M6; SETAV4; =M3; M3M6H; (del table look up); SETAV3; =M6; V41; =V2; DUP; SHL-42; J9!=Z; (for rest of del); SHL-18; V10; OR; =V3; 1; Q6; JSP114; YA29; J11=Z; (if no ident to output); V44; =V2; V8; =V3; Q6; JSP114; YA29; JS20; Q6; JSP114; ZERO; =YA29; J11; 9; ZERO; SHLD6; REV; SHL-24; V10; OR; SET6; OR; =V3; Q6; JSP114; V23; =V3; DUP; =M3; V68M3; =V2; SHC-6; J1>=Z; SET-35; =+M3; V24M3; =V3; J1; 10; JSP127; V2P127; EXIT1; [ good43.txt [ -- Roderick McL 11; V5P53; J19=Z; V134; =V2; V135; =V3; Q6; JSP114; V5P53; =M11; Y2M11; JS20; Q6; JSP114; SETAV53P29; =I6; SETAV54P29; =M6; SET2; SETB170700; Q6; =V0P50; JS12P50; ZERO; =V5P53; J5; 19; V1P4; J5=Z; V134; =V2; V135; =V3; Q6; JSP114; V1P4; SHL-1; JS10; V102; OR; =V2; I6; =M6; Q6; JSP114; ZERO; =V1P4; 5; V133; =Q3; SET133; J26!=; J5P50; (if end message inside prog); 26; SET6; J27=; (if object prog > 8K); SET132; J27=; (if parity fail); SET 61; J27=; SET134; J27=; (even restart); SET136; J27=; (odd restart); E0; SETB7700; AND; J3=Z; (if no extra fail information); E0; DUP; =V2; SETB170000; AND; SETB5100; OR; =E0; JSP101; V2; =E0; 3; ZERO; =YA7; V122; =Q6; EXIT1; 27; J3P50; 4; ZERO; =YA17; ZERO; =YA29; C14; V0P55; -; =C14; ZERO; =V0P55; YA26; SET20; -; J3P50>=Z; (end prog if more than 20 fails); SET1; =YA24; (R:=1); 13; M14M15; SHC-4; SHL-36; SETB16; J15!=; (if TS != switch begin); DC14; (N:=N-1); 14; ERASE; M-I15; SET1; =+C15; (SP := SP -1); J13; 15; SETB7437; AND; SETB16; J14!=; (if TS != BEGIN etc); ERASE; EXIT1; 20; Q3; =V123; SET9; =C3; ZERO; =V2; ZERO; =V3; ZERO; 21; V3; V2; SHLD12; =V2; OR; =V3; ZERO; SHLD6; DC3; DUP; J22!=Z; ERASE; SETB707; J21C3NZ; ERASE; ERASE; [ good44.txt [ -- Brian W YA28; =C6; V123; =Q3; EXIT1; 22; DUP; SET27; -; J23>=Z; SETB740; +; J21; 23; DUP; SET53; -; J24>=Z; SETB606; +; J21; 24; SETB633; +; J21; 25; (output fail no line no etc); SETAV2; =I6; SETAV3; =M6; YA15; SHL-1; JS10; SHL24; YA17; J8=Z; V19; OR; =V3; Q6; JSP114; V21; =V2; YA16; SHL-1; JS10; SHL+30; V30; OR; =V3; Q6; JSP114; V7; =V2; V8; =V3; Q6;JSP114; YA17; V4P33; C6; -; J7=Z; JS20; Q6; JSP114; EXIT1; 7; Q6; REV; JS4P3; EXIT1; 8; =V3; Q6; JSP114; EXIT1; P30; (DEC); J1C1NZ; (if m!=0); M1; J3NEZ; (if E=1); 1; SET10; 2; JP5; 3; YA8; DUP; J4!=Z; (if V!=0); ZERO; JSP44; 4; SET34; REV; J2=Z; (if A2!=letter); 4; ERASE; JSP32; ERASE; (UPDATE BUFFER); Q4; SHL-32; SETB377; AND; ZERO; J17=; (IF A2=BLANK[A2]); DUP; SET53; -; J4=Z; (if buffer>dict[a]); J10C10NZ; (if a!=x); J14; 20; JSP32; ERASE; 12; (to clear rest of u/lined chars at a fail); ERASE; ERASE; Q4; SHL8; SHL-40; DUP; DUP; SETB200; NEV; SETB260; AND; J20=Z; DUP; SETB340; NEV; SETB360; AND; J20=Z; ERASE; SET126; J2; 13; M-I10; 14; I10=1; V0M10Q; V0M10; REV; 15; DUP; SHL-40; PERM; REVD; -; J12!=Z; (fail if cell[b]!=char); SHLD8; DUP; SHL-40; J16=Z; (if cell[b]=blank); JSP32; PERM; J15; 16; ERASE; ERASE; V0M10; SETB3777; AND; W3; =Q10; J7; P32V64; (UPDATE BUFFER) V0=B3707600000100601; V1=0; V2=B3707600000100601; V3=B3707600000100601; V4=B3707600000100601; V5=0; V6=B3707600000100601; V7=B3707600000100601; V8=0; V9=0; V10=0; V11=0; V12=0; V13=0; [ good48.txt [ -- Roderick McL V14=0; V15=B 5446 3000 0010 0601; V16=B 1535 1000 0010 0601; V17=B 1544 6000 0010 0527; V18=B 1567 7400 0010 0517; V19=B 1611 3000 0010 0666; V20=B 1625 3000 0010 0566; V21=B 1655 3000 0010 0601; V22=B 1671 1000 0010 0601; V23=B 1717 1000 0010 0601; V24=B 1727 1400 0010 0601; V25=B 1747 6400 0014 2601; V26=B 3707 6000 0010 0601; V27=B 2007 6000 0010 0601; V28=B 3607 4000 0010 0601; V29=B 2457 3000 0010 0601; V30=B 3452 7400 0010 0601; V31=B 1767 5400 0010 0601; V32=0; V33=B 0021 5400 0014 2357; V34=B 0041 6000 0014 1756; V35=B 0061 6400 0010 0755; V36=B 0101 7000 0014 1354; V37=B 0121 7400 0014 0753; V38=B 0142 0000 0014 0352; V39=B 0162 0400 0010 7751; V40=B 0202 1000 0010 0750; V41=B 0222 1400 0010 7347; V42=B 0242 2000 0010 0746; V43=B 0262 2400 0010 6745; V44=B 0302 3000 0010 6344; V45=B 0322 3400 0010 5743; V46=B 0342 4000 0010 5342; V47=B 0362 4400 0010 4741; V48=B 0402 5000 0010 0740; V49=B 0422 5400 0010 0717; V50=B 0442 6000 0010 4316; V51=B 0462 6400 0010 3715; V52=B 0502 7000 0010 3314; V53=B 0522 7400 0010 0713; V54=B 0543 0000 0010 0712; V55=B 0563 0400 0010 0711; V56=B 0603 1000 0010 2710; V57=B 0623 1400 0010 2307; V58=B 0643 2000 0010 0706; V59=0; V60=0; V61=B 3707 6000 0010 0601; V62=0; V63=0; V64=B 7575 7575 7575 7575; I6; SHC-12; J11>=Z; JSP33; 11; ZERO; YA20; J10!=Z; 1; ERASE; [ good49.txt [ -- Roderick McL 2; J4C6NZ; J3C8NZ; YA22; DUP; SHL-16; =M6; YA23; =YA22; =YA23; YA27; =C7; PARQ7; J19NTR; SET132; JP5; 19; YA23; =Q7; M0M7; V64; NEV; SET8; =C7; 17; ZERO; SHLD6; J20=Z; DC7; J17C7NZ; YA22; =Q7; V64; =M0M7; YA27; =C7; PREQ7; 20; ERASE; SET32; =RC8; 3; M6M8Q; =Q7; SET8; =C6; 4; DC6; Q7; DUP; SHL6; =Q7; SHL-42; SET7; J5!=; I0TOQ9; J1; 5; SET6; J6!=; SET8; =I9; J1; 6; SET26; J7!=; =YA21; SET32; =C9; J2; 7; DUP; J8=Z; SET4; J12!=; 8; ERASE; J2C9Z; SET131; Q5; SETB164741; NEV; SHL32; J9=Z; 18; ERASE; SET130; 9; SET32; =YA21; 10; C0TOQ9; Q5; Q4; SHLD8; DUP; =Q4; SHL-40; PERM; OR; =Q5; I6; SHL1; =I6; EXIT1; 12; SET61; J13!=; =YA20; SETB157; J9; 13; SET2; J14=; SET3; J15!=; 14; YA21; J1=Z; ZERO; =YA21; SET1; =+I6; J8; 15; =M9; I9; =+C9; V0M9; SHLC9; SHL-40; SET124; J18=; DUP; J9!=Z; I9; NEG; =+C9; J1; P33V6; (store); V0=0; V1=0; V2=B 0702 2020 2020 2020; V3=0; V4=0; [ good50.txt [ -- Brian W V5=0; V6=0; C2; =V5; Q3; =V3; YA26; J1!=Z; (no store output if FAIL set); V0P4; J3!=Z; (if not a string or code body compile DUMMY); ZERO; SETB474; SHLD-8; JSP34; 3; V6; J1=Z; SETAV0; =I3; SETAV1; =M3; YA15; SHL-1; JSP127; V2P127; SHL30; SHL-12; YA16; SHL-1; JSP127; V2P127; SHL30; SHL-30; OR; V2; OR; YA28; V4; J2=Z; (if output to punch); ERASE; SHL6; SHL-6; (remove CN char); V4; 2; =C3; =V0; I1; SET6; xD; CONT; I14; +; JSP127; V2P127; V0P127; OR; =V1; Q3; JSP114; 1; V3; =Q3; V5; =C2; SET2; DUP; YA15; +; =YA15; YA16; +; =YA16; EXIT1; P34; (COMPILE); =C2; Y0M13; Q6; =W2; I14; SET6; -; SHL3; =C6; SHLC6; 1; SET6; =C6; (no of sylls in N1 to compile); 2; SHC8; =Q3; (last word of object prog); SHC8; DUP; SETB377; AND; Q3; +; DC2; DC6; I14; NOT; NEG; SET6; J4!=; (if space left in current word); ERASE; SET1; =+I1; I1; SHL-13; J6=Z; SET6; JP5; (IF OBJ PROG >8K); 6; =Y0M13Q; (store full object prog word); [ good51.txt [ -- Roderick McL J3C13NZ; (if room between object prog and stack); SET-1; JSP35; 3; ZERO; DUP; 4; =I14; J5C2NZ; (if more sylls to compile); SET6; I14; -; SHL3; =C2; SHLC2; =Y0M13; ERASE; W2; =Q6; EXIT1; 5; J2C6NZ; (if more sylls in N1); REV; ERASE; J1; P35V0; (MOVE STACK); V0=0; Q6; =V0; DUP; J7Z; I12; =+C15; C15; J6>Z; 1; SET32; (no of words the stack is moved); DUP; =+C15; NEG; DUP; =+C13; C13; 2; J3>=Z; JS2P5; SET6; V126P29; V128P29; JS15P50; (KDF9 too small); 3; M14; +; =M6; M15; DUP; =C6; 4; J5=Z; M14M15; =M6M15; M15; NEG; NOT; DUP; =M15; J4; 5; C6; =M15; M6TOQ14; 6; V0; =Q6; EXIT1; 7; ERASE; SET32; (no of words the stack is moved); DUP; DUP; =C13; NEG; =+C15; C15; J2; P36; (STACK); =C2; 1; J2C15NZ; (if room to add another word to stack); SET1; JSP35; 2; =M14M15QN; DC2; J1C2NZ; (if more words to stack); EXIT1; P37; (UNSTACK 18/2/63); =I2; [ good52.txt [ -- Roderick McL 1; M15; J2=Z; M14M15; DUP; =Q3; SETB17; AND; DUP; I2; -; J3>=Z; ERASE; 2; EXIT1; 3; SET13; J7!=; 4; ERASE; CM0TOQ3; Q3; 5; DUP; JSP54; YA19; DUP; J5!=Z; ERASE; 6; M-I15; SET1; =+C15; J1; 7; Q3; REV; SET12; J10=; SET8; J9!=; I2; J11!=; 8; JP5; 9; ERASE; DUP; SHL-40; SETB151; NEV; SETB373; AND; J4=Z; J12; 10; J11C2Z; ERASE; SHL8; SET53; C2; J8Z; J3=Z; EXIT1; 1; ERASE; SET13; JSP37; M1; J2=Z; YA5; SET120; -; J3=Z; 2; SET7; JP5; 3; ZERO; NOT; =YA8; EXIT1; P39; (END STATE 6/2/63); SET53; YA5; SET127; -; YA30; OR; J6=Z; ERASE; ZERO; =YA30; JSP38; SET1; DUP; JSP40; M1; J3!=Z; JSP41; M2TOQ1; ZERO; =YA13; 1; SETB604; =YA2; 2; EXIT1; 3; J4C1NZ; ERASE; EXIT1; 4; SET4; C1; J5>Z; 6; JP5; 5; =YA2; JSP41; ZERO; SETB524; SHLD-8; JSP34; SET111; Y1M11; DUP; J7>=Z; [ good53-64.txt [ -- Graham T [== Page 53 SHL15; J6>=Z; ERASE; J1; 7; SETB400; SHL24; OR; =Y1M11; ERASE; C0TOQ11; Y0M11; JSP48; =Y0M11; J1; P40; (EXP 22/1/63); M1; J4=Z; DUP; =C2; SET12; JSP37; M14M15; SHC8; SETB20; NEV; SETB277; AND; J2=Z; NEG; NOT; J3<=Z; YA7; J3!=Z; 1; SET9; JP5; 2; DUP; J4<=Z; M0TOQ1; ERASE; 3; EXIT1; 4; J3>=Z; SET35; JP5; P41V5; (TAKE 26/3/63); V0=B 0144 3010 0304 7016; V1=B 0006 4511 3324 6400; V2=B 3024 1400 3124 2400; V3=B 0002 4411 1320 6400; V4=B 1120 1400 1120 2400; V5=0; Q6; =V5; DUP; =C2; C2TOQ10; J4C1NZ; YA5; SET125; J3!=; ERASE; DUP; J2=Z; ERASE; 1; V5; =Q6; EXIT1; 30; SHL-32; SETB5000; AND; J27=Z; 28; SET111; 2; JP5; 3; SET127; -; SET12; REV; J2!=Z; JSP37; ERASE; YA2; ZERO; JSP56; J1; 4; SET5; SET125; YA5; -; J2=Z; SET127; YA5; -; J2=Z; ERASE; C1; J7>=Z; SET1; REV; SET129; YA2; SETB10; AND; J2!=Z; ERASE; J2=Z; ZERO; YA6; DUP; SHL3; DUP; SET24; REV; J5>=Z; YA13; J2!=Z; 5; -; =C6; SHL-1; J6!=Z; ERASE; SET6;+; ZERO; REV; YA3; 6; V0; SHLC6; SHLD40; CAB; JSP34; ERASE; J1; [ -- Graham T [== Page 54 7; JSP46; DUP; J27=Z; DUPD; ERASE; J27!=Z; DUP; YA4; SET76; -; J30=Z; SHL5; J28=Z; 24; SHLD24; SET60; +; SHL16; SET4; J9; 29; SET9; YA18; SHL-8; OR; 8; SHLD40; SET3; 9; SET1; JSP45; =I6; JSP34; YA2; C6; DUP; SHL-10; C10; OR; J10!=Z; JSP60; REV; ERASE; J11; 10; REV; YA18; +; REV; JSP42; 11; =C6; M6; J12!=Z; I6; =M6; SETB777; C10; +; SHL16; YA15; +; J13; 12; Y0M11; C0TOQ11; J13C10Z; JSP48; 13; Q6; =Y1M11; SETB2004; DUP; YA0; NEV; AND; J14!=Z; SET1; OR; 14; =Y0M11; J1; 15; SET54; SETB2004; DUP; YA0; NEV; AND; J2=Z; ERASE; YA2; PERM; REV; J16=Z; DUP; SHL-41; SETB100; -; SETB4001; REV; J25=Z; NEG; NOT; 25; SHL32; OR; 16; DUP; JSP56; C6; SETB170; AND; Y0M11; DUP; SETB400; SHL16; OR; =Y0M11; SHL-44; -; =C3; C6; J22C10Z; DUP; SHL38; SET23; REV; J2=Z; C6; SHL37; J26>=Z; SETB45; J18; 26; V3; V4; SHLDC3; REV; ERASE; SHL-40; SET3; J18!=; J21; [ DH put blank line in here to conform to normal Usercode layout [ suspect that this is the reason for the annotation P42; (COMPARE); (== note pencil annotation, possibly moving some instructions to this line? ==) DUPD; OR; DUP; PERM; J2=;PERM; J5=; [ but annotation here may be more significant 1; SET111; JP5; 2; PERM; ERASE; ERASE; 3; REV; 4; ERASE; EXIT1; 5; CAB; J3=Z;REV; DUP; SHL-9; J1!=Z; REV; DUP; SETB777; AND; CAB; -; J1!=Z;DUP; SHL-10; DUP; J4=Z; NEG; NOT; J1=Z;NOT; NEG; EXIT1; P43; (GENERATE); M14M15; SHL-40; SET27; -; DUMMY; J1=Z; SETB6433; SHC-8; SET1; DUPD; JSP45; SHL16; +; REV; JSP36; SET3; JSP34; 1; EXIT1; P44V0; (BLOCK BEGIN 11/3/63); V0=B4401540000050400; J7!=Z; M14M15; DUP; SHL-40; SETB256; J3#; (if TS != begin (bl)); ERASE; 1; ERASE; 2; SET1; =YA8; EXIT1; [ -- Graham T [== Page 56 3; M-I15; SET1; =+C15; SET46; -; J5=Z; SET52; 4; JP5; 5; DUP; SHL8; J6=Z; SET6; +; REV; NEG; NOT; REV; J3; 4; SHL13; +; EXIT1; P46; (ENTRY 26/1/63); YA12; =M11; Q12; YA3; J4; 1; M-I12; Y2M12; J3=; 4; M12; M11; -; J1!=Z; 2; ZERO; JSP35; REV; =Q12; M12TOQ11; ZERO; =Y0M12; ZERO; =Y1M12; =Y2M12Q; ZERO; EXIT1; 3; ERASE; M12TOQ11; =Q12; Y1M11; EXIT1; P47; (DECL 7/3/63); J1!=Z; SET15; C1; NEG; NOT; J2!=Z; ERASE; JSP46; [ -- Graham T [== Page 57 1; M11; =V5P53; Q6; =W0; DUP; =Q6; DUP; J13=Z; J3>Z; SET36; 2; JP5; 3; Y0M11; DUP; SHC-1; SET19; REV; J2=Z; SET161; J6; 18; C15; SETB4410; J19!=; ERASE; SET193; J9; 19; DUP; SETB1011; AND; J20!=Z; DUP; SHL-9; J21!=Z; 20; SETB170; AND; NEG; =C3; V2; V3; SHLDC3; ERASE; SHL40; SHL-24; M15; J7; 21; DUP; SHL42; SHC2; REV; SHL-11; DUP; DUP; +; +; +; SHL3; =C3; V4; SHLC3; SHL-40; J6; 22; C15; PERM; ERASE; DUPD; SHL5; J31=Z; 30; SET40; J3; 31; SETB5000; AND; J30!=Z; 32; ERASE; DUP; SETB2200; AND;J30=Z; DUP; SETB1001; AND; J23!=Z; DUP; SHL-9; J25!=Z; 23; M3; M11; -; J29!=Z; DUP; SHL39; J29>=Z; Q14; SET1; OR; =Y0M11; 24; V7; J5; 25; Q14; J26=Z; ERASE; SET37; J6; 27; V8; J5; 28; SET38; J3; 29; SET26; J3; P50V0; (print message); V0=0; Q6; =V0; JS10; V92P29; =V2P29; JS25P29; SET1; J2=; SET6; J2=; 1; JS10; SETAV2P29; =I6; SETAV3P29; =M6; V44P29; =V2P29; V8P29; =V3P29; Q6; JSP114; DUPD; SET3; -; J14=Z; JS20P29; Q6; JSP114; 2; JS10; SETAV53P29; =I6; SETAV54P29; =M6; Q6; JSP114; SET2; J9!=; V122P29; [ -- Graham T [== Page 60 12; =V53P29; Y0M11; SHL32; SHL-33; JSP127; V2P127; V102P29; OR; =V54P29; Q6; JSP114; 9; V0; =Q6; SET5; -; J3>=Z; EXIT1; 3; JSP7; 4; JSP32; SETB157; J3!=; 5; JSP7; J112P0; 10; YA28; =C6; SET3; J11!=; V4P33; J11=Z; V4P33; =C6; 11; EXIT1; 13; =V54P29; =V53P29; SET6; JS2P5; J2; 14; Q6; REV; JS4P3; J2; 15; =V54P29; =V53P29; JP50; P51; DUP; SHL-13; SHL3; REV; SETB17777; AND; I13TOQ6; =M6; Y3M6Q; Y3M6; REV; CAB; =C6; EXIT1; P52; (end block); J1!=Z; ZERO; SETB560; 1; SHLD-8; JSP34; 2; ZERO; JSP53; 5; DUPD; ERASE; SHC-5; SHL-47; =YA24; (restore R); M-I15; SET1; =+C15; C14; SHL10; YA9; +; M14M15; DUP; =Q3; SHA-32; =YA8; I3; =YA9; M3; =YA12; M-I15; SET1; =+C15; DC14; PERM; J3!=Z; ERASE; M14M15; SET13; JSP37; J4C14NZ; ZERO; SETB775; SHLD-8; JSP34; 4; SET3; JSP63; 3; ZERO; JSP54; EXIT1; [ -- Graham T [== Page 61 P53V7; (COLLAPSE); V0=B7777740000177777; V1=0; V2=0; V3=0; V4=0; V5=0; V6=0; V7=0; V7; J18!=Z; YA24; J18!=Z; YA12; M12; -; J19=Z; (if NL=NLP); Q6; =V1; M-I15; SET1; =+C15; M14M15Q; =Q3; =C3; YA12; =M6; I12TOQ6; IM6TOQ11; Y2M11; J1=Z; Y1M11; SHL7; J1>=Z; Y0M11; SHC-1; J1=Z; ERASE; J5C3Z; YA12; =M11; 3; M-I11; Y2M11; J4!=; Q3; =V4; ZERO; V60P29; V62P29; JS15P50; V4; =Q3; 4; M3; M11; -; J3!=Z; M1TOQ11; 5; Y0M11; SHL-24; M2; AND; J6!=Z; Y1M11; SHL-33; SETB42204; -; J6=Z; YA26; J6!=Z; Q6; =V0P50; V94P29; =V53P29; V96P29; =V54P29; V106P29; =V122P29; Q3; =V4; SET2; JS1P50; V4; =Q3; 6; ERASE; J1; 7; SET1; =V7; (COLL := 1); ERASE; C14; NEG; NOT; J8!=Z; JSP61; J1; 8; Y1M11; Y0M11; CAB; YA12; =M11; 9; M-I11; Y2M11; J11=; M3; M11; -; J9!=Z; M1TOQ11; REV; SETB177776; AND; M6; M11; -; J10!=Z; [ -- Graham T [== Page 62 M+I6; =Y0M11; ERASE; ERASE; J1; 10; =Y0M6; =Y2M6; =Y1M6; M+I6; J1; 11; ERASE; SHL-16; M2; AND; =C11; Q6; =V2; Q3; =V3; Y0M11; JSP48; SETB400; SHL16; OR; DUP; =Y0M11; REV; =Q3; Y1M11; DUP; =Q6; J13=Z; JP5; 2; SETB12100; +; SHL34; SET3; JSP34; JSP36; YA4; SET76; J3=; M0TOQ1; 3; ERASE; 4; EXIT1; P56; (compare type cols); J1!=Z; Y1M11; DUP; =Q6; 1; STR; DUP; J3=Z; PERM; SHL-32; JSP42; 2; SHL32; Q6; CONT; SHL-32; =C6; Q6; =Y1M11; EXIT1; 3; ERASE; SHL-32; JSP60; J2; P57V4; (ACT. OP.); V0=B 0015 3400 0010 0623; V1=B 0015 7400 6660 0000; V2=B 6134 6711 4130 6611; V3=B 4170 3613 4370 7617; V4=0; Q6; =V4; M1; J5!=Z; M14M15; SHL-40; SETB36; NEV; SETB37; AND; J1!=Z; SETB644; =YA2; 1; SET1; DUP; JSP41; DUP; +; DUP; JSP37; M14M15; SHL-40; SET207; -; J7!=Z; =M1; 2; ZERO; SETB534; SHLD-8; 3; JSP34; DC14; V0P55; NEG; NOT; =V0P55; 4; V4; =Q6; EXIT1; 5; YA5; SET127; J6!=; ERASE; SETB30134; SHL32; SET2; SET5; J7C1NZ; ERASE; (FAIL 5 IF M!=Z); [ -- Graham T [== Page 64 M-I15; SET1; =+C15; J3; 6; SETB163; NEV; SETB367; AND; SET28; REV; J8=Z; 7; JP5; 8; NOT; NEG; J7C1Z; ERASE; C1; J19=Z; SET161; 14; =C6; Q6; SHL-16; J11; 15; C6; SETB4410; J16!=; ERASE; C0TOQ6; Q6; DUP; =I6; SHL-18; =M6; SET193; =C6; Q6; SHL8; J12; 16; DUP; SETB1011; AND; J17!=Z; DUP; SHL-9; J18!=Z; 17; SETB170; AND; NEG; =C3; V0; V1; SHLDC3; ERASE; J10; 18; DUP; SHL42; SHC2; REV; SHL-11; DUP; DUP; +; +; +; SHL3; NEG; =C3; V2; SHLC3; J14; 19; YA3; SET6; JSP34; YA6; SET3; -; SHL3; =C3; V3; SHLC3; SHL16; I1; NEG; NOT; I14; SHL13; +; +; J11; P58; (FS END); M15; J3P50=Z; (end prog if SP = 0); 1; M14M15; DUP; SHL-40; SET110; J2=; EXIT1; 2; ERASE; DUP; SHC-5; SHL-47; =YA24; (restore R); DUP; SET1; JSP45; REV; SET-3; JSP63; ZERO; JSP54; DUP; ZERO; SETB564; DUP; JSP52; SET1; JSP37; J1; P59; SET1; DUP; JSP41; JSP37; M14M15; DUP; SHL-40; SET76; -; DUP; J2=Z; NEG; NOT; J4=Z; SET56; [ good65.txt [ -- Graham T (== Page 65 ==) [ THE NEXT 5 PAGES INCLUDE A LOT OF PENCILLED ANNOTATION, NOT RECORDED HERE 1; JP5; 2; ERASE; REV; SET102; J1=; ERASE; 3; SETB400; SHL24; +; =M14M15; EXIT1; 4; SHC-5; DUP; PERM; J6Z; NEG; NOT; SETB300; SHL8; +; J1; [ good70.txt [ -- Graham T (== Page 70 ==) 2; DUP; SETB300; SHL8; -; DUP; J3>=Z; ERASE; SHL16; EXIT1; 3; REV; ERASE; NOT; NEG; J2; P100; (TREE S.R.); LINK; +; =LINK; EXIT1; P101V5; (EXTRA INFORMATION ROUTINE); V1=B0207070707202020; V2=0; V3=B0707070707070207; V4=B0707070707070707; V5=5; Q3; =V0; E0; SETB100; AND; J3!=Z; ZERO; 1; ERASE; 2; V0; =Q3; EXIT1; 3; DUP; JSP127; V2P127; V1; OR; =V2; C0TOQ3; SETAV2; DUP; =I3; =M3; Q3; JSP114; E0; SETB7000; AND; SHL-9; DUP; J1=Z; I3; SET3; -; =RC3; V4P33; DUP; J4!=Z; ERASE; YA28; 4; Y3M3Q; JSP125; J12=Z; SET5; =V5; 10; C3; J4>=Z; 11; =C3; NEG; NOT; DUP; J1=Z; SETB26463; JS9; C3; M14M15; JSP125; ERASE; ERASE; NEG; NOT; DUP; J1=Z; C3; M12; SET3; +; =M3; 5; Y2M3; JSP125; ERASE; V4; =V1P125; Y1M3; JSP125; ERASE; Y0M3; JSP125; ERASE; V3; =V1P125; YA12; M3; -; J6=Z; SET3; =+M3; J5; [ good71.txt [ -- Brian W 6; ERASE; NEG; NOT; DUP; J1=Z; M15; DUP; =C3; =M3; YA28; 7; J8C3Z; M14M3; JSP125; ERASE; DC3; C3; =M3; J7; 8; =C3; NEG; NOT; DUP; J1=Z; SETB26366; JS9; C3; YA0; SHL16; YA2; +; SHL16; YA9; +; JSP125; ERASE; YA12; SHL16; YA10; +; SHL16; YA11; +; JSP125; ERASE; YA3; JSP125; ERASE; Q1; JSP125; ERASE; Q14; JSP125; ERASE; =C3; J1; 9; SHL+30; =V2; SETAV2; DUP; =I3; =M3;Q3; JSP114; EXIT1; 12; V5; NEG; NOT; DUP; =V5; J10!=Z; =C3; J1; P125V5; (syllabic octal routine); V0=B2020203620202036; V1=B0707070707070207; V2=0; V3=0; V4=0; V5=0; Q15; =V5; SET3; =RC15; DUPD; 1; ZERO; SHLD2; SHL3; SHLD3; SHL3; SHLD3; SHL10; SHLD2; SHL3; SHLD3; SHL3; SHLD3; SHL6; V0; OR; =V2M15Q; J1C15NZ; ERASE; =C15; SETAV1; =I15; SETAV4; =M15; Q15; JSP114; V5; =Q15; EXIT1; P127V3; (binary to integer routine); V0=B 2020 2020 2020 2020; Q15; =V3; ZERO; =V1; ZERO; =V2; DUP; J3>=Z; SET999; JP5; 3; ZERO; REV; SET8; =C15; 1; SET10; DIVI; CAB; +; SHC-6; REV; DUP; DC15; J2=Z; J1C15NZ; REV; V0; +; =V2; J3; 2; ERASE; V0; +; C15; DUP; +; DUP; DUP; +; +; NEG; =C15; SHLC15; V2; J4!=Z; =V2; J5; 4; V0; +; =V1; [ good72.txt [ -- Graham T (== Page 72 ==) 5; V3; =Q15; EXIT1; P113V75; V6=B360741703607417; V29=B0702635155655441; V30=B6445020057656434; V31=B0702515660656434; V48=Q0/AV32/AV47; V50=B2205213031066; V51=B0022345313230465; V52=B0000026046006500; V54=B6254644375000000; V61=B0207464151540021; 100; SET-1; =V75; JS12; LINK; =V1; V29; =V32; SETB60000; JS4; =V1; V30; =V33; 154; V48; =Q15; TWEQ15; JS150; J154; V34; JS69; =V28; 173; E2; SHL+6; SETB03; SHLD-6; ERASE; =V32; E3; =V33; E7; =V35; ZERO; =V34; SETB02; =V36; SETAV32; =RI15; SETAV36; =M15; V28; =C15; PWQ15; JS150; J173; V31; =V32; 153; V48; =Q15; TWEQ15; JS150; J153; V33; SHL+3; SHL-45; SET5; OUT; =V27; 70; ZERO; =V59; ZERO; =V49; JS92; 42; ZERO; [ good73.txt [ -- Graham T (== Page 73 ==) 43; ERASE; 158; JS35; J43; J44; J43; 44; SETB4; AND; SHL+21; ZERO; 46; ZERO; 45; ERASE; 157; JS35; J47; J49; OR; SHL+3; J157; 47; PERM; SHL-3; SETB17777; AND; OR; REV; SETB17; J50!=; ERASE; 48; JS35; J50; J49; SHL+13; OR; J48; 49; DUP; SHL+43; SHL-45; REV; SHC-1; J51=Z; SETB6400; OR; 96; V64; J97>=Z; SETB66; OR; 97; SHL+30; DUP; V9; CAB; =V9; [ good76.txt [ -- Graham T (== Page 76 ==) NEV; SHL+12; ZERO; V7; 98; SHLD-8; ZERO; J98!=; ERASE; =V7; V49; J133=Z; V5; SHC-3; J120=Z; ERASE; V10;SETB20; OR; 127; SHL+12; SETB2; OR; SHL+24; =M0M15QH; M15; SHC-1; J128>=Z; ZERO; NOT; =M0M15QH; 128; M15; SHL-1; =RM15; M-I15; SETAV32; =I15; V28; =C15; PWQ15; JS150; J120; J73; 129; SETB2120; OR; J127; 76; DUP; DUP; =V2; SHL+24; J79>=Z; M-I14; JS78; SETB70264; J80; 79; SETB70260; 80; SHL+30; REV; DUP; SHL+35; SHL-2; SET5; JS22; CAB; OR; =V32; DUP; SHL+32; SHL-45; SETB1720; OR; SHL+6; REV; DUP; SHL+25; SHL-45; DUP; J81!=Z; ERASE; ERASE; SETB34; OR; SHL+30; J82; 81; SHL+3; =C15; V50; SHLC15; SHL-40; CAB; SHL+6; OR; REV; SHL+29; [ good78.txt [ -- Graham T (== Page 78 ==) SHL-45; SHL+3; =C15; V51; SHLC15; SHL-40; REV; SHL+6; OR; SHL+6; SETB75; OR; SHL+12; 82; =V33; 152; V48; =Q15; I15; NOT; NEG; =M15; V33; SHL +12; SHL -42; SET B34; NEV; J174!=Z; TWEQ15; JS150; J152; 174; V28; =C15; SETB2; V33; SHL-6; SHL+6; OR; =V33; V32; SHL+12; SHL-12; =V32; PWQ15; JS150; J152; V33; SHL-18; SHL+36; ZERO; SHLD+6; REV; SHL-42; DUP; SHC-1; J83>=Z; REV; 83; =V5; DUP; J84!=Z; ERASE; 85; V5; SETB66; J87!=; 86; ERASE; J86NEN; ZERO; OUT; 87; SETB54; J90!=; V59; =RC14; J89; 88; V65M14Q; DUP; J89=Z;M-I14; JS78; M+I14; 89; ERASE; J88C14NZ; J70; 90; SETB44; J134=; SETB52; J134=; ERASE; ZERO; 134; =V49; ZERO; =V0; J91; [ good79.txt [ -- Brian W 141; V0; SET3; J2=; DUP; NOT; NEG; =V0; SETAV2; J3; 2; ERASE; V1; ZERO; SHLD+35; REV; SHL-35; 3; =M15; SHL+3; =C15; M0M15; SHLC15; SHL-40; SETB20000; JS4; =V1; EXIT1; 4; V1; +; DUP; ZERO; SHLD+35; CAB; SET6; REV; J5>=Z; +; SHLD+13; NEG; NOT;J6; 5; DUPD; -; J7=Z; SET-1; =V3; 1; SET8; =C13; SET-1; M0M14Q; ZERO; 2; J5C13Z; SHLD+6; DC13; SETB02; J4=; ZERO; J3=; DUP; SETB07; -; J12<=Z; 3; SHL+42; CAB; SHLD+6; PERM; J2; 4; SET-1; =V4; C15; SET5; -; J12!=Z; ERASE; 17; REV; =M0M13Q; SET7; C13; -; =C13; SETB77; 18; J19C13Z; SHL+6; SETB77; OR; DC13; J18; 19; SHL-6; OR; M-I14; =M0M14; C14; NOT; NEG; =C14; Q15; Q14; Q13; JS8; =Q13; =Q14; =Q15; J11; 12; ERASE; SETB77; J3; 5; CAB; =M0M13Q; ERASE; ERASE; J6C14Z; J1; 6; C15; V4; J13!=Z; DUP; SET5; -; J14=Z; [ good84.txt [ -- David H 13; J8>Z; 10; C15TOQ13; M-I13; SETAV6; =I13; Q13; SET8; OUT; SET-1; =V4; V3; J7=Z; M0M13; =M0M15; ZERO; =V3; 7; V0; =Q15; V1; =Q14; V2; =Q13; EXIT1; 8; SET-62; =M0M13Q; SETB30; =V6; J10; 9; ERASE; 15; M0M14Q; =M0M13Q; J15C14NZ; SETB10; =V6; J10; 14; ERASE; M13; =V5; J7; *139; FINISH;