[ 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; DUMMY; JSP17; J5;
		JSP9; J5;
		JSP14; J5;
		JSP22; J5;
		JSP24; J5;
		JSP10; J5;
		SET127; J92;
		JSP26; J5;
		J7C1NZ; YA5; JSP19; J5;
		JSP18; J5;
		JSP23; J5;
		YA7; J20;
		JSP11; J5;
		SET1; J81;
(SCALAR);
8;		SET27; YA0; J7!=Z; (JUMP TO FAIL IF T!=0);
		ERASE; SHL-1; SETB4624; +; =YA0;
		JSP30; J5; (RETURN TO OUT);
(END);
9;		YA0; J7!=Z; (FAIL IF T != 0);
		ERASE; JSP39; (END STATE);
10;		SET1; JSP37; JSP58; SET206; J14!=; (IF TS != PROC BEGIN(BL));
		SET1; JSP53;
		M-I15; SET1; =+C15; M14M15; =YA12; (RESTORE NL);
		ERASE; ZERO; CONT; =M14M15; (REMOVE BL FROM TS);
11;		ZERO; SET1; =V0P5; (SET END COMMENT MARKER);
		SET1; =YA30; (SV := 1);
12;		SET4; JSP1; SETB157; J106=; DUP; SETB150; NEV; SETB356;
		AND; J13=Z; (JUMP IF DELIMITER = END,ELSE OR SEMI COLON);
		REV; J12*NEZ; (JUMP IF NOT FIRST TIME ROUND LOOP);
		SET1; V97P29; V98P29; JS15P50; (PRINT END COMMENT); J12;
106;	SET133; JP5;
13;		ZERO; =V0P5; (CLEAR END COMMENT MARKER);
		REV; ERASE; C0TOQ1; SETB151; J6*NE; (OUT2 IF DELIMITER *NE ELSE);
		YA24; J6=Z; M14M15; SHC8; SETB7777; AND; SETB555; -; J6=Z;
		(OUT2 IF TS=THENS); ERASE; J5; (OUT);
14;		SET174; -; J15*NEZ; (JUMP IF TS*NEBEGIN BL);
		DUP; ZERO; ZERO; JSP52; J19;
15;		STR; ERASE; DUP; SHL-40; SET46;
		-; SET18; REV; J7*NEZ; (JUMP IF TS = OTHER);
		M-I15; SET1; =+C15;
		ERASE;
19;		DUP; SHL8; J16>=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;
		J32<Z; M3; J32!=Z; (JUMP IF USED ENTRY); REV; =M3; Q3;
32;		=Y1M11; ERASE; SHL32; M2; SHLD-8; ERASE;
27;		SET4; JSP34; M-I15; SET1; DUP; =+C15; =+C11; J26;
28;		SHC-8; -; SHL-16; =YA7; M-I15; SET1; =+C15; M14M15;
		=Q3; M3TOQ1; I3; =YA2; C3; =YA13; M-I15; SET1; =+C15;
		M14M15; =YA3; M-I15; SET1; =+C15; SET13; JSP37; SET1;
		JSP45; JSP46; M11; =V5P53; Q6; =W0; DUP; =Q6;
		J35!=Z; (JUMP IF X != 0); DUP; =M6; YA15;
		=RM3; C11; =I3; Q3;
29;		SETB2004; DUP; YA0; AND; NEV; J30!=Z; SET1; OR;
30;		SETB400; SHL16; OR; =Y0M11; SETB1004; M1; J31!=Z; (IF E=1);
		Q6; J31<Z; (IF DECLARED ENTRY);
		YA2; OR;
31;		SET88; Q6; SHL-32; SETB6013; AND; J7!=Z; (IF ABFH OR J = 1);
		ERASE; SHL32; Q6; OR; DUP; =Q6; J36<Z; (IF DECLARED ENTRY);
		Q6TOQ3; =I6;
33;		SET19;
34;		=C3; C11; SHL8; =M3; Q3; SHL8; SET4; JSP34; Q6;
		=Y1M11; M1; ZERO; =V5P53; W0; =Q6; J5=Z; ZERO; SETB524;
		SHLD-8; JSP34; ZERO; JSP1; DUP;
		SETB150; NEV; SETB356; AND; SET89; REV; J7!=Z;
		(JUMP TO FAIL IF DELIMITER != END,ELSE OR SEMI COLON);
		ERASE; J6;
35;		Y0M11; DUP; =Q3; JSP48; J29;
36;		ERASE; M1; J37!=Z; (JUMP IF E=1); SET90; Q6; SHL7; J7GEZ; ERASE;
37;		Q3; J38<Z; (JUMP IF F COL =1); M6; =I3; J33;
38;		I6TOQ3; SET51; J34;
(PROCEDURE);
39;		SET1; =YA25; (PH := 1);
		JSP30; ERASE; SET91; YA1; J7!=Z; (FAIL IF D != 0);
		YA0; SETB4004; DUPD;
		NEV; AND; J40=Z; J7!=Z; DUP;
40;		ERASE; ERASE; JSP43; SET1; JSP1; SET1;
		JSP45; SETB47000; SHL16; +; SHL16;
		YA24; SHL4; OR; ZERO; =YA24; (R := 0);
		SETB400; SHL8; YA9; +; SHL16; YA12;
		+; SET2; JSP36; JS1P3;
		ZERO; =YA9; C14; NOT; NEG; DUP;
		=C14; DUP; SHC-7; J7<Z; (FAIL IF N>63); 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; (FAIL IF M=-1); ERASE;
		J52C1NZ; (JUMP IF M=1); SET98; SETB4004; DUP; YA0; NEV; AND;
		J7!=Z; ERASE; YA0; SETB4000; NOT; AND; REV; SET4;
		J50=; (JUMP IF DEL=PROCEDURE); SET99; REV; SET2; -; J7!=Z;
		(FAIL IF DEL!=ARRAY); ERASE; SETB2000; OR; DUP;
50;		ERASE; =YA0;



[ good13.txt 
[ -- David H

51;   SET1; JSP1;
52;   JSP46; DUP; SET94; REV; J7=Z; (fail if non-formal specified);
   ERASE; DUP; ZERO; CONT; SHL-32; SET100; REV; J7!=Z;
   (fail if type col =0); ERASE; YA0; DUP; PERM; SHL32; OR;
   =Y1M11; SETB2010; DUPD; NEV; AND; SET1; REV; J53=Z;
   ERASE; M2; DUP; CAB; SHL-11;
   J53=Z; ERASE; ZERO;
53;   SHL16; Y0M11; OR; =Y0M11; ERASE; SET120;
   J54=; SET123; -; J51=Z; SET101; J7;

   (procedure cont'd);
54;   ERASE; ZERO; = YA0; ERASE; ZERO; SET5; JSP1; J46C1Z; REV; ERASE;
   (to test if del=specifier);
56; M12; =W0; YA12; =M12;
   ZERO; = YA25; (PH := 0);
57;   M+I12; M12; DUP; =V5P53; W0; -; J66=Z;  (jump if I=NLP);
   Y1M12; ZERO; CONT;
   SHL-32; DUP; SET103; REV; J58=Z; ERASE;
   Y0M12; J63<Z; (if f col = 1);
   DUP; SHL-9; J59!=Z; SET105;
58;   W0; = M12; JP5;
59;   DUP; SHC-4; J61>=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; ERASE; V94;
        I6; SHL32; OR;
125;    SHC-8; SET6; JSP34; NOT; NEG; DUP;
126;    ERASE; DUPD; NEG; NOT; =I6; =M6;
        Q6; =Y1M11Q; REV; NOT; NEG;
        DUP; PERM; V105; -; J124<Z; (if f<X);
        ERASE; ERASE;
155;    SET1; =V0P4;
        SETB33; JSP12; YA33; SET301; +; JSP13;
        SETB41; DUP; JSP12;
127;    ERASE; JSP31; DUP; JSP12; DUP; SET9; -; J127<=Z;
        SETB230; J111!=; ZERO; REV;
129;    JSP31;
158;    SETB204; J132!=; CAB; NOT; NEG;
154;    PERM;
130;    REV; ERASE; DUP;
131;    JSP12; J129;
132;    SETB224; J133!=; CAB; DUP; J154=Z;
        NEG; NOT; J154;
133;    CAB; DUP; J154!=Z; PERM;
        SETB236; J131=; (if symbol = space);
        SETB256; J131=; (if symbol = tab);
        SETB240; J135!=; (if symbol != newline);
134;    REV; ERASE; SETB230; REV; J131;
135;    SETB360; J138!=; (if symbol != EXIT);
        ERASE; V95; SET4; JS1P12;
136;    SETB230; J137!=; (to fail if LS != semi colon);
128;    JSP31; SETB230; J130=; (if symbol = semi colon);
        SETB240; J134=; (if symbol = newline);

(== Page 16 ==)

137;    SET138; JP5;
138;    SETB300; J139!=; (if symbol != ALGOL);
        ERASE; SETB230; -; J137!=Z;
        ERASE; ZERO; =V0P4;
        YA12; =M12; M14M15; DUP; JS5P52;
        ZERO; JSP1; SETB170; -; J137!=Z;
        J5; (out);
139;    SETB215; J160=; SETB230; J130=; JSP31; SETB215; J159=;
        DUPD; ERASE; JSP12; CAB; ERASE; J158;
159;    ERASE; REV;
160;    ERASE; ZERO; =V0P4;
        SET1; JSP1; SET1; =V0P4;
        SETB117; -; J141=Z;
140;    SET141; JP5;
141;    JSP46; DUP; J140>=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;
        Y0M11; J145>=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; SET-1; =+I6;
        SETB230; J137!=; Y0M11; J143<Z; JS148; J128;
148;    SET13;
149;    SETB44; JSP12; M6; DUP; +; +; JSP13;
        SETB14002; SHL32; SET2; JS1P12; EXIT1;
89;     SET-1; JSP1; SETB262; -; J111!=Z;
        YA3; DUP; J111<Z;
        DUP; PERM; -; J111<Z;
        EXIT1;
111;    SET137; JP5;
150;    SHC-10; DUP; J152>=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; SHL1; DUP; J126<Z;
153;    SET142; JP5;


(LEFT SQUARE BRACKET );

67;     SET1; -; J7!=Z; (FAIL IF M!=1); SET5; YA5;
        SETB175; NEV; SETB375; AND;
        J7=Z; ERASE; YA0; J70!=Z; (JUMP IF T!=0); JSP38; DUP;
68;     ERASE; JSP55; SETB2000; =YA18; ZERO; JSP41;
        Y1M11; SETB2000; SHL32; OR; =Y1M11; SETB4000;
        =YA18; SHL8; SET1; +; SHL16; M11; +; SHL12; YA7;
        +; SHL4; YA13; SHL16; YA2; +; SHL16;

(== Page 18 ==)

        M1; +; ZERO; =YA7;
69;     SET2; JSP36; M0TOQ1; SETB704; =YA2; SET1; =YA13; J5;
        (return to OUT);
70;     M14M15; DUP; SHL-40; SET25; J71!=; (jump if TS!=MSF); ERASE;
        YA3; =M14M15; SET16; +;
        REV; NOT; NEG; SHL35; NOT; NEG; SHL5; REV; J69;
71;     SET29; -; J68!=Z; (jump if TS=other); YA3; =M14M15; SHL-4;
        NOT; NEG; REV; ERASE;

(OWN ARRAY);
        C0TOQ11; Q12; =W0; I12=+1; I11=+1;
72;     SET1; =M12;
73;     Q12; W0; =Q12; SET5; JSP1; REV; =Q12;
        J74C1NZ; SETB337; SETB122; DUPD; YA5;
        NEV; AND; SET69; REV; J104=Z; (fail if LD=+/-);
        NOT; NEG; REVD; AND; CAB; NEV; J104!=Z; (fail if del!=+/-);
        ERASE; J73;
74;     SET71; C1; SHL-1; J104=Z; (fail if m=1); NOT; NEG; YA6;
        DUP; PERM; J104<=Z; (fail if constant != integer);ERASE; DUP;
        SHL-1; J75!=Z; (jump if TIC0 or TIC1);
        ERASE; YA3; SET12;SHLD40; SET7; J77;
75;     SHL15; =C2; SETB47016; SHL32; J76C2Z; SHL8;
76;     SET1;
77;     JSP34; SET102; J79!=; (if del != :);
        YA3; NEG; YA5; SET114; -; J78!=Z; (if LD != -);
        NEG; ZERO; SETB462; SHLD-8; JSP34;
78;     =+M12; ERASE; SET-1; =+I12; I12; J73=Z; (if y=0 );
        SET73; J104; (fail);
79;     SETB173; DUPD; NEV; AND; SET74; REV; J104!=Z; (if del =other);

(== Page 19 ==)

        ERASE; YA3; YA5; SET114; -; J80!=Z; (if LD!=-);
        NEG; ZERO; SETB462; SHLD-8; JSP34;
80;     =+M12; SET1; =+C11; SET75; M12; NOT; SHL-16; I12;                 [ badly printed label
        SET1; -; OR; J104=Z; (if y=1 or d<1); ERASE; I11; M12; xD;
        CONT; =I11; I12=+1; SET127; -; J72!=Z; (if del != ]);
         M2; AND; DUP; I11; xD; CONT; C11; +; YA10; +; =YA10; DUP;
        DUP; NEG; NOT; YA11; +; SHL8; +; SHL24;
        SETB2035; SHLD-8; W0; =Q12; J85;
104;    (replace Q12 and jump to fail); W0; =Q12; JP5;
(RIGHT SQUARE BRACKET);
81;     DUP; JSP41; JSP37; ERASE; M14M15; DUP;
        SHL-40; SET76; J84!=; (if TS != [ );
        ERASE; DUP; SHL-16; DUP; =V5P53;
        =M11; SHL8; ZERO; SHLD8; =C11; SHL27;
        SHC1; =YA7; M-I15; SET1; =+C15; M14M15; =Q3; M3TOQ1;
        I3; =YA2; C3; =YA13; M-I15; SET1; =+C15; Y0M11;
        JSP48; =Y0M11; SETB2010; DUP; Y1M11;
        SHL-32; NEV; AND; J82!=Z; (if bF(type col) = 1);
        C11; NEG; NOT; J82=Z; (if X=1);  SET106; J7;
82;     M1; J83!=Z; (if E=1); ZERO; SETB464; SHLD-8; JSP34;
123;    ZERO; =V5P53; J5; (return to OUT);
83;     SETB30064; SHL32; SET12; +; SET1; JSP36; J123; (OUT);
84;     SET77; REV; J7!=; (FAIL IF TS=other);
        ERASE; DUP; SHL-5; =C11; SHC-5; SET78; REV;
        J7>=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 = letter/digit/./@);
35;     DUP; SHL-8; J4!=Z; (if comment/true/false);
        YA4; =YA5; DUP; =YA4; REV; DUP; NOT; NEG; SHL-2;
        J3!=Z; (if p=4 or 5); C1; -; SET116; REV; J6!=Z; (fail if m!=p);
3;      ERASE; Q10; =YA3; EXIT1;
4;      SHL-9; DUP; J9!=Z; (if true/false); ERASE;
        ZERO; V0P5; J35!=Z; ERASE;
        YA4; DUP; =YA5; ZERO; =YA4; SET1; =V2;
        C1; CAB; =C1; J5!=Z; (if m != 0);
        SET46; J7=; (if delimiter = begin);
        SET120; J7=; (if LD = semi colon);
5;      ERASE; SET117; JSP5;
6;      JP5;
7;      ERASE;
8;      SET1; =V2; JSP31; ZERO; =V2;
        SETB157; J38=; (fail if end message in comment);
        SET120; -; J8!=Z; (if char != semi colon);
        YA5; =YA4; C1; JP1;

(== Page 22 ==)


9;      REV; SET4; J39!=; REV; ERASE; J1;
39;     REV; SET2; -; DUP; =Q10; NEG; NOT;
        =YA6; SET118; J6C1NZ; (fail if m!=0); ERASE; DC1; J1;
38;     SET133; JP5;
10;     REV; SET4; J11!=; (if p!=4); REV; ERASE; J1;
11;     SET119; J6C1NZ; (fail if m!=0); ERASE; REV; DUP;
        SET53; -; J14>=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 = letter/digit);
41;     Q10; =YA29; J2;
40;     DC2; J12C2NZ; (if l!=0); V6P33; J13=Z; (if no output);
        Q10; SET3; V16P29; V17P29; JS15P50;(print identifier overlength);
        ERASE;
13;     ERASE; JSP31; W3; J41!=Z; (if char!=letter/digit/./@);
        DUP; SET63; -; J13<Z; (if char = letter/digit);
        J41;

(NUMBER);
14;     VR; I11; REV; DC1;
        Q0TOQ2; Q15; =YA6; I0TOQ11; Q0TOQ15;
15;     W3; J24!=Z; (if char!=letter/digit/./@); DUP; SET53; -; DUP;
        SET119; REV; J37<Z; (fail if char = letter); ERASE;
         DUP; SET10; -; DUP; J20>=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 PH = -1);
        J13!=Z;
        JS13P26; (semi colon entry 2);
        J5P0; (out);
13;     SET-1; (PH := -1);
10;     =YA25; (restore PH);
        SET5; JSP1;
        J11C1NZ; (if m != 0);
        SETB101; J6=; (if delimiter = value);
        DUP; SHL43; J6=Z; (if delimiter = scalar);
        SETB201; J6=; (if delimiter = string);
        DUP; SHL-3; J6=Z; (if delimiter = specifier);
11;     ZERO; =YA25; (PH := 0);
        J6P0; (OUT2);
2;      (print FAIL and set FAIL marker);
        SETAV0P29; DUP; =RI6; =M6; Q6; JSP114;
        YA26; NOT; NEG; =YA26; EXIT1;

(== Page 27 ==)

P6;     (ARRAY);
        ERASE; JSP30; SET13; JSP37; YA0; DUP; J2!=Z; (IF T!=0);
        ERASE; SETB2704; =YA0; YA1; J1=Z; (if D=0);
        SET67; JP5;
1;      ZERO; SETB431; SHLD-8; JSP36; EXIT1;
2;      DUP; SETB4004; OR; J3=; (if Ag(T)=1);
        SET68; JP5;
3;      SETB2000; -; =YA0; YA1; J1=Z; (if D=0);
        ZERO; SETB1527; SHLD-8;
        JSP34; ZERO; SETB1035; SHLD-8; DUP; NEG; JSP45; SHL16;
        SETB6433; SHC-8; +; REV; JSP36; EXIT1;
P7;     (clear nest and or SJNS);
        J1EN; ERASE; JP7;
1;      LINK;
2;      J3EJ; LINK; ERASE; J2;
3;      =LINK; EXIT1;
P8;     (used by RELATION, LOGICAL, and ARITH OP);
        SET43; YA13; J7P0!=Z; (to fail if ARITH != 0);
        ERASE;
1;      ZERO; REV; YA2; DUP; SHC-4;
        J3<Z; (to fail if col F of TE set);
        JSP42; (COMPARE TE );
        YA4; SET242; -; J2!=Z; (if delimiter != %);
        SETB20; OR;
2;      =YA2; SET3; JSP40; (EXP 3);
        EXIT1;
3;      SET65; JP5; (fail 65);

P9V0;   (ARITH OP 19/2/63);

(== Page 28 ==)

        V0=B 0000 1256 5246 2000;
        SETB704; JS1P8;J6C1Z; (if m=0);
        JSP55;
2;      SET1; JSP41;
3;      YA2; SETB757; AND; =YA2; DUP; SHL-3; NEG; =C3;
        V0; SHLC3; SETB17; AND; DUP; JSP37; REV; SHL40; +;
4;      SET1; JSP36;
5;      EXIT1;
6;      YA5; SET127; J7!=; (fail if LD!= ]);
        M0TOQ1; ERASE; J2;
7;      SET125; J8!=; (if LD!=right round bracket);
        ERASE; J3;
8;      SETB22; NEV; SETB37; AND; J10!=Z; (if LD=other);
        SET41;
9;      JP5;
10;     JSP55; SET114; J1!=; (if del!= -);
        ERASE; SETB5062; SHC-8; J4;
1;      SET82; -; J5=Z; (if del= +);
        SET42; JP5;
P10;    (RELATION);
        SHL40; SET8; +;
        SETB704; JSP8;
        JSP55; SET1; JSP41; DUP; JSP37; SET1; JSP36;
        M0TOQ1; EXIT1;
P11;    (LOGICAL);
        SETB604; JSP8;
        JSP55;
        SET254; J2=; (if del=not);
        SET1; JSP41; DUP; SHL-5; JSP37;

[ good29.txt 
1;		DUP; SHL-5; REV; SHL40; +; SET1; JSP36; SETB604;
		=YA2; M0TOQ1; EXIT1;
2;		J3C1NZ; (fail if m!=0);
		YA5; SET254; J3=; (fail if LD=not);
		DUP; SETB22; NEV; SETB33;
		AND; J3=Z; (fail if LD=arith/rel op.);
		SETB175; NEV; SETB375; AND; J1!=Z; (if LD!=closing bracket);
3;		SET44; JP5;
P12V1;	(add to code);
		V0=0; V1=6;
		C0TOQ3; DUP; J3;
1;		=C3;
2;		DC3; ZERO; SHLD8;
3;		V0; OR; V1; NEG; NOT; DUP;
		J5=Z;
		=V1; SHL8; =V0;
4;		J2C3NZ;
8;		ERASE; EXIT1;
5;		=V0; SET6; =V1;
6;		YA28; REV; JSP125;
		ERASE; ERASE; J4;
7;		V1; SET6; J8=;
		NEG; NOT; SHL3; =C3;
		V0; DUP; SHLC3; C0TOQ3; J6;
		
P13;	(convert binary to characters and add to code);
		SET4; =C3;
		ZERO; REV;
1;		SET10; %I;

[ good30.txt 
[ -- Brian W

		CAB; OR; SHC-8;
		REV; DC3; DUP; J2=Z;
		J1C3NZ;
		SET143; JP5;
2;		ERASE; SET4; C3; -;
		JS1P12;
		EXIT1;
P14;	(left round bracket);
		SHL24; YA7; +; SHL16; C1; J1<Z; (if m=2);
		YA5; SETB175; NEV; SETB375; AND; J3!=Z; (if LD!=closing bracket);
1;		SET47;
2;		JP5;
3;		YA0; DUP; J7=Z; (if T=0);
		SHC-11; SET48; REV; J2>=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; (if F(TYPE)=1);
		ERASE; JSP55; ZERO; SETB1433; SHLD-8; JSP34; YA13;
		SHL16; +; SHL16; M1; +; YA3; SETB6433; SHC-8;
		SET-2; JSP45; SHL16; +; SET4; JSP36; M2TOQ1;
		SET1; =YA7; ZERO; =YA13; ZERO; =YA2; EXIT1;
P16;	(COLON);
		(first word of this routine in main loop);
		
[ good31.txt 
[ -- Roderick McL

	DUP; J2=Z; (if T=0);
	DUPD; ERASE; NEV; AND; J1=Z; (if BG(T)=1);
	SET51; JP5;
1;	JP59;
2;	M1; J4=Z; (if E =0, to fail 35 in exp);
	C1; J3>=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; J1<Z; (if N>63);
	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 b(T)=1);

[ good34.txt 
[ -- Brian W

		SET58;
4;		JP5;
5;		YA5; SETB22; NEV; SETB23; AND; J2!=Z; (if LD=arith/log op);
		DUP; +; JP5;
		
P20;	(THEN);
		M1; J2!=Z; (if E=1);
		M14M15; SHL-40; DUP; SETB51; NEV; SETB257; AND;
		J5=Z; (if TS= if/else);
		SETB36; NEV; SETB37; AND; J1!=Z; (if TS=other);
DUP;
5;		ERASE; SETB40; YA2; OR; =YA2;
1;		SET1; DUP; JSP41; SET2; JSP37; M14M15; SHL-40; SET57; -;
		J3=Z; (if TS=if);
		SET59;
2;		JP5;
3;		M-I15; =+C15; M14M15; =Q3; C3; =YA13; I3; =YA2; M3TOQ1;
		SHC-8; SET1; JSP45; SHL16; +; M1;
		J4=Z; (if E=0);
		NOT; NEG;
4; 		=M14M15; ZERO; SETB1427; SHLD-8; JSP34; EXIT1;
P21;	(ELSE);
		(first word in main loop);
		SETB7777; AND; SETB555; -; J4=Z; (if TS=thens);
		SHL-40; SETB36; NEV; SETB37; AND; J1!=Z; (if TS=other);
		SETB40; YA2; OR; =YA2;
1; 		SET1; DUP; JSP41; NOT; NEG; JSP37; M14M15; DUP; SHL-40;
		SET109; -; J2=Z; (if TS=thens/thene);
		SET60; JP5;
[ good35.txt 
[ -- Brian W

2;		DUP; SET3; JSP45; CAB; ZERO; JSP54; ZERO; SETB1433;
		SHLD-8; JSP34; SETB17; AND; DUP; J3=Z; (if TS=thenE);
		M2TOQ1; SETB604; =YA2; ZERO; =YA13;
3;		NEG; SETB1151; SHC-8; +; SET-2; JSP45;
		SHL16; +; =M14M15; EXIT1;
4;		JSP39; J2;
P22;	(GO TO);
		J1C1Z; (if m=0);
		JP5;
1;		=YA30; ZERO; NOT; JSP40; JSP38; SETB1024;
		SHC-8; SET1; JSP36; M0TOQ1; SETB410; =YA2; EXIT1;
P23;	(FOR ELEMENT);
		SET82; YA14; J2!=Z; (if F=1);
1;		JP5;
2;		ERASE; SET1; JSP41; SET2; JSP37; M14M15; =Q3; SET83;
		C3; SETB112000; -; J1!=Z; (if TS!=FORS1);
		ERASE; M3; J6=Z; (if a!=-1);
		DUP; SET124; -;
3;		SET84; REV; J1!=Z; (if del!=until and a=-1);
		ERASE; ERASE; SET244; SHC-8;
4;		=M14M15; SET1;
5;		SETB54364; SHL32; REV; JSP34; EXIT1;
6;		SET124; J3=; (if del=until and a!=-1);
		SET252; J7=; (if del=while);
		ERASE; SETB20; =M3; Q3; =M14M15; SET2; J5;
7;		SETB604; =YA2; ZERO; =YA13; SET40; I3; DUP;
		SETB17777; AND; =M3; SHL-10; SETB70; AND;
		-; =C3; DUP; SHLC3; Y3M3; OR; =Y3M3; SHC-8; J4;
P24V0;	(DO);
		
[ good36.txt 
[ -- Brian W

		V0=B 2605 5400 0005 2400;
		JSP62; C14; NOT; NEG; DUP; =C14; DUP; SHC-7;
		J2>=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; ERASE; EXIT1;
P31V74;			(READ);
V0=B7376135400000000;	V1=222;
V2=B7374731673743400;V3=2;
V4=B7356575171761000;	V5=46;
V6=B7356074171165757;	V7=B7040000000000040;
V8=B7336074370765742;	V9=B6300000000000400;
V10=B7316040000000000;	V11=21;
V12=B7276231572600000;	V13=105;

[ good45.txt 
[ -- Roderick McL

	V14=B 7276 1354 0000 0000; V15=104;
	V16=B 7274 7712 0000 0000; V17=126;
	V18=B 7256 7744 6336 5400; V19=1030;
	V20=B 7256 0716 0000 0000; V21=11;
	V22=B 7236 0714 7020 0000; V23=20;
	V24=B 7236 0603 6316 0400; V25=20;
	V26=B 7176 5000 0000 0000; V27=57;
	V28=B 7176 1740 0000 0000; V29=158;
	V30=B 7176 1314 7276 4753; V31=B 6340 0000 0000 0200;
	V32=B 7116 7756 7276 2000; V33=1;
	V34=B 7116 3756 6356 7716; V35=B 6160 0000 0000 0400;
	V36=B 7056 0714 0000 0000; V37=254;
	V38=B 7034 7000 0000 0000; V39=190;
	V40=B 7034 4742 0000 0000; V41=37;
	V42=B 7014 7341 7336 5754; V43=B 6274 7353 0000 0004;
	v44=B 6356 5757 7100 0000; V45=96;
	V46=B 6336 5751 7076 5742; V47=B 6300 0000 0000 0007;
	V48=B 6334 6353 7000 0000; V49=28;
	V50=B 6334 6316 7176 1351; V51=129;
	V52=B 6334 4747 6316 6750; V53=3;
	V54=B 6316 4353 7040 0000; V55=109;
	V56=B 6314 7313 7260 0000; V57=517;
	V58=B 6276 1314 7176 2000; V59=124;
	V60=B 6256 7744 6276 5400; V61=65;
	V62=B 6236 4347 7116 5400; V63=252;
	V64=B 6110 6217 4230 6000; V65=97;
	V66=B 6076 0741 7116 5757; V67=B 7040 0000 0000 0040;
	V68=B 6030 2616 4140 0000; V69=161;
	V70=B 4334 1300 6120 0000; V71=33;
[ good46.txt 
[ -- Brian W

V72=B4316375663567716;	V73=B6160000000000400;
V74=0;
		
		(READ CONTD);
		V74;=Q6; ZERO; =W3;
1;		JSP32; DUP; J3!=Z; (if char != blank);
		 ERASE; J1;
17;		ERASE;
11;		SET124;
2;		REV; ERASE;
18;		Q6; =V74; JP5;
3;		SET125; J6!=; (if char!=closing round bracket);
		YA7; J5=Z; (if PROC=0);
		Q4; SHL-32; SETB377; AND; ZERO; J17=; (if A2=blank);
		SET53; -; J5>=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 A2=LETTER[A2]);
		SET102; -; J21!=Z; (IF CHAR!=:[-]);
		JSP32; ERASE; ([-]);
		Q4; SHL-32; SETB377; AND; ZERO; J17=;
		SET115; -; J21!=Z;
		JSP32; ERASE; SET123;
5;		Q6; =V74; JP4;
21;		SET125; J18;
6;		SET102; J8!=; (if char != :);
		Q4; SHL-32; SETB377; AND; SET214; -; J5!=Z; (if A2 != =);
		ERASE; JSP32; ERASE; SET16;
7;		SET1; =W3; J5;

[ good47.txt 
[ -- Brian W

8;		DUP; SETB200; NEV; SETB260; AND; J9=Z; (if underlined char);
		DUP; SETB340; NEV; SETB360; AND; J5!=Z; (if char = other);
		
		(DICT);
9;		SET130; J19!=; NOT; NEG; J18;
19;		Q10; =W3; SET36; =RC10; I10=2;
10;		Q4; V0M10Q; -; J13>=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; J7<Z; J1>Z; 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; J8<Z;
11;	ERASE;
12;	SET1; JSP34; J6;
P38;	(BEGIN STATE 26/1/63);
	YA8; DUP; J1>Z; 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;
27;      DUP; =Q6; DUP; J15<Z; SHL-16; SHL32; REV; J29=Z; SET72;
        YA2; SETB374; AND; J24=Z; YA2; SHC-4; J8>=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; ERASE; SHC-1;
        J20<Z; V1; V2;
        SHLDC3; REV; ERASE; SHL-40; SET67; J18!=; SHC-8; C0TOQ6;
        Q6; DUP; SHL24; REV; SHL-10; +; +; SET4;
17;     JSP34; J1;
18;     =C6; Q6; SHL8;
19;     SET3; JSP34; J1;
20;     SET25; C6; SETB400; AND; M1; OR; J2=Z; ERASE;SETB51563;

[ -- Graham T
[== Page 55

        Y0M11; J18<Z; SHL-8;
21;     =I6; Q6; SHL24; J19;
22;     SETB1001; AND; J23=Z; SET26; M11; YA12; -; J2!=Z; ERASE;
        Y0M11; SET1; OR; =Y0M11;
23;     Y0M11; J26>=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; M14M15; DUP; SHL-40; SET78; -; J9=Z; ERASE;
6;      ZERO; NOT; CONT; YA24; SHL4; OR;
        ZERO; =YA24; (R := 0);
        SET-1; SHL16; YA9; +; SHL16; YA12; +;
7;      SETB6433; SHC-8; SET2; JSP45; SHL16; +; SET3; JSP36;
        C14; NOT; NEG; DUP; =C14; DUP; SHC-7; J4<Z; ERASE; ZERO;
        =YA9; ZERO; V0; SET7; JSP34;
8;      M12; =YA12; ZERO; JSP35; ZERO; =Y2M12Q; J2;
9;      YA12; =M14M15; ZERO; NOT; CONT; SET1; JSP36; ERASE; J8;

P45;    (i + contents of N1);
        I14; +; I1;
1;      REV; DUP; SET6; -; DUP; J2<Z; PERM; ERASE;
        NOT; NEG; J1;
2;      ERASE;
3;      DUP; J4>=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; ERASE; JSP48; I6TOQ3;
4;      ZERO; YA0; C6; JSP42; =C6; SHL-16;
        SHL16; YA15; +; DUP; =Y0M11; REV; YA1; J11!=Z; YA9; REV;
        SET3; J10=;
        J9=Z; ERASE; ZERO; JSP45; =M6; ZERO;
5;      C14; SHL10; +;
6;      =I6; Q6; ZERO; NOT; CONT; DUP; =Y1M11;
        I3; W0; =Q6; J8!=Z;
7;      ERASE; ERASE;
14;     ZERO; =V5P53; EXIT1;
8;      ZERO; JSP49; J14;
9;      DUP; NOT; NEG; =YA9; SET3; +; DUP; SETB176000;
        AND; J5=Z;SET63; JP5;
10;     ERASE; C3; SET2; +; +; J5;
11;     YA11; REV; SET3; -; J12!=Z; C3; +; NEG; NOT; J6;
12;     DUP; NOT; NEG; DUP; =YA11; SETB176000;
        AND; J6=Z; SET62; JP5;
13;     =I3; C11; SHL16; J4;
P48;    (DIM);
        C11; NOT; NEG; SETB177400; AND; J2!=Z;   (== Last opcode manually annotated ==)
        SHC24; DUP; SHL-40; C11; J3!=;
1;      ERASE; SHC-24;
2;      EXIT1;
3;      NOT; NEG; SETB177400; AND; J4!=Z; SET31; JP5;
4;      SHL8; C11; SHLD-8; J1;
P49V9;  (UNCHAIN 29/1/63 );

[ -- Graham T
[== Page 58

        V0=B 3226 0555 0006 2400; V1=B2224 1515 0004 2400;
        V2=B 0015 3400 0010 0623; V3=B0015 7400 6660 0000;
        V4=B 4230 6605 6234 6705; V5=B0000 0000 7777 7777;
        V6=B 0000 0377 7777 7777; V7=B0220 0015 0000 2400;
        V8=B 1220 0055 0002 2400; V9=0;
        =M3; Q6; =W3; Q3; =V9;  Q15; =W0; Q14; =W1; STR; ERASE; =Q15; =Q14;
1;      I3; DUP; J2!=Z; ERASE; W1; =Q14; W0; =Q15;
        V9; =Q3; W3; =Q6; EXIT1;
2;      SHL16; SET-1; JSP63; SHL-16; JSP51; SHLDC6;
        REV; ERASE; DUP; SHL8; SHL-32; =I3; DUP; J17<Z; DUP; SHL-44;
        DUP; J22=Z;
        SHL-1; J14=Z; C15; DUP; SHL-11; J4!=Z; SET17;
3;      W0; =Q15; W1; =Q14; JP5;
4;      DUP; SHC-1; J10<Z; REV; ERASE; V0;
        Q14; J5<Z; ERASE; V1;
5;      REV; SHL42; SHC3; SHL3; =C3; SHLC3; SHL-40; SET67; J9=;
6;      SHL16; I15;
7;      SHL32; SHL-32; +; ZERO; V5; SET24;
8;      C6; -; =C6; SHLDC6; NOT; REV; NOT; Y3M6; M-I6; AND; REV;
        Y3M6; AND; CAB; ZERO; REV; SHLDC6; CAB; OR;
        =Y3M6Q; OR; =Y3M6; J1;
9;      SHL24; I15; SHL32; SHC6; +; M15; SHL32; SHL-24; +;
        ZERO; V6; SET16; J8;
10;     SHC-9; J11<Z; SHL24; SHL-40; SET84; J28!=;
11;     ERASE; Q14; J13<Z; SET83;
12;     SHL16; M15; J7;
13;     SET115; J6;
14;     C15; DUP; SHL-10; SET39; REV; J3!=Z; ERASE; SHC-9;
        J15<Z; SHL32; SHL-40; SET84; J28!=;

[ -- Graham T
[== Page 59

15;     ERASE; Q14; J16<Z; SET19; SHL16; M15; J7;
16;     SET51; J6;
17;     ERASE; Q14; J18>=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; SHC-11; J32>=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; SETB2410; J24!=; ERASE; SET3; SHL16; M15; J7;
26;     DUP; SHL37; J27>=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; YA26; J1!=Z; SET66; M11; =V5; JP5;
1;      M+I11; M11; M12; -; J2!=Z; M6TOQ12;
        ZERO; =V7; (COLL := 0);
        M2TOQ1; V1; =Q6; ZERO; =V5; EXIT1;
2;      M11TOQ1; Y2M11; J1=Z; (if name cols = 0);
        Y2M11; Y1M11; DUP; M11; =V5; J7>=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; ERASE;
        ZERO; SETB777; DUP; C6; AND; REV; C3; AND; JSP42;
        ZERO; C6; SHL-9; C3; SHL-9; JSP42; SHL9; OR; =C6;
        Q3; Q6; DUPD; V0;
        DUP; NOT; CAB; AND; SHL-16; CAB;
        SHL16; ZERO; JSP54; DUP; CAB; AND; PERM;
        NOT; AND; OR; =Y1M11;
12;     V2; =Q6; V3; =Q3; M1TOQ11; J1;
13;     C6; DUP; SETB7000;
        AND; J17!=Z; C3; SHL-10; DUP; J14!=Z; ERASE; SETB1000; J16;
14;     SHL-1; J15!=Z; SET111; JP5;
15;     SETB4001;
16;     OR; DUP; =C6; Q6; =Y1M11;
17;     DUP; C3; REV; JSP42; ERASE; Q6; V3; SHL32; SHL-32; JSP49; J12;
18;     YA12; =M12; (NLP := NL);
19;     ZERO; =V5; ZERO; =V7; ERASE; EXIT1;
P54V1;  (prog[ ]:=y 15/2/63);
V0=B 0000 0000 0017 7777;   V1=0;
        Q6; =V1; J1=Z; I14; SHL13; I1; +; REV;
1;      SHL16; SHC3; DUP; SHL3; =C3; SHL-35; =RM6;
        Y3M6Q; Y3M6; REV; DUPD; SHLDC3; SHL-32; SHL16; =YA19;
        ERASE; ZERO; V0; SET32; C3; -; =C3; SHLDC3; NOT; CAB;
        AND; PERM; NOT; AND; CAB; ZERO; REV; SHLDC3; PERM;
        OR; =Y3M6; OR;  M-I6;  =Y3M6; V1; =Q6; EXIT1;
P55V0;  (IMP SR 4/2/63);

[ -- Graham T
[== Page 63

        V0=0;
        YA7; J4=Z; YA5; SET115; J1=; SET123; J3!=;
1;      ERASE; SETB317; SHL3; I14; +; SHL13; I1; +; SHL24;
        SET1; DUP; C14; +; DUP; =C14; V0; NOT; NEG; =V0;

        DUP; SHL41; J2>=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; JSP46; DUP; J13<Z;
        J9!=Z; SETB777; SHL16; YA15; +; =Y0M11;
9;      M2; M11TOQ6;
10;     =I6; Q6;
11;     SHL24;
12;     SET1; JSP36; J4;
13;     ZERO; CONT; =Q6; Y0M11; SETB400; SHL16; OR; DUP; =Y0M11;
        J15>=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; J6<Z; SET123; J1=; ERASE; ZERO; NOT;
5;      CONT; SHC5; =M14M15; EXIT1;
6;      SET123; REV; J1!=; ERASE; NOT; NEG; ZERO; J5;
P60;    (COMPARE USED ENTRIES );
        DUP; ZERO; REVD; SETB777; AND; JSP42;
        OR; EXIT1;
P61V49;         (LIBRARY);
        V0=B 0000 0000 5543 4150;   V1=B 0000 3750 5643 3754;
        V2=B 0000 0000 0033 3455;   V3=B 0000 0000 5553 5456;
        V4=B 0000 0000 0055 4350;   V5=B 0000 0000 0035 5155;
        V6=B 0000 0000 0000 4650;   V7=B 0000 0000 0037 6252;
        V8=B 0000 3354 3556 3350;   V9=B 0000 0000 5152 3750;
        V10=B 0000 0000 5437 3336; V11=B 0000 4051 5447 3356;
        V12=B 0000 0061 5443 5637; V13=B 6154 4356 3756 3762;
        V14=B 3551 5263 5637 6256; V15=B 0000 0035 4651 5537;
        V16=B 5437 3336 3451 5146; V17=B 6154 4356 3734 5151;
        V18=B 0520 4002 0032 4000; V19=0;
        V20=B 2002 0226 4;         V21=B 2002 0224 4;
        V22=B 4004 0225 4;         V23=B 0000 0000 5637 5556;
        V24=0;                     V25=B 0700 5657 6400 4445;
        V26=B 4354 4162 4544 0000; V27=B 6563 4544 0057 5600;
        V28=B 0000 5157 5652 5756; V29=B 0000 0000 4043 5036;
        V30=B 5437 3336 3443 5033; V31=B 5437 3336 3354 5433;
        V32=B 6154 4356 3733 5454; V33=B 6154 4356 3734 4350;
        V34=B 0000 0000 0041 3352; V35=B 0000 0000 0056 3334;
        V36=B 4350 5637 5435 4233; V37=B 0000 5437 6143 5036;

[ good66.txt 
[ -- Graham T
(== Page 66 ==)

        V38=B 3633 5633 5545 4352; V39=B 0000 0000 5545 4352;
        V40=B 0000 3542 3354 4350; V41=B 0035 4233 5451 5756;
        V42=B 4350 3433 5543 3555; V43=B 5157 5634 3355 4335;
        V44=B 0000 0000 0034 5635; V45=B 0000 0000 0037 5661;
        V46=B 5306 4264 1060 0000; V47=B 1001 0022 54;
        V48=B0050 3761 4643 5037; V49=B 0000 0055 5233 3537;

        Q3; =V24; DUP; V0; J1=; (if x=sign);
        V1; J4!=; (if x!=entier);
1;      SHL38; SHL-40;
2;      SETB1724;
3;      ZERO; REV; Y1M11; SHL-32; JSP42; Y1M11; =Q3;
        SETB100000; OR; =C3; Y0M11; I14; SHL13; I1; +;
        Q3; SHL-16; SHL16; OR; DUP; =Y1M11; ZERO; JSP49;
        YA3; CAB; =YA3; JSP3; =YA3; V19; REV; V18; +;
                DUP; SHL24; SHL-40; =C11; Y0M11; JSP48; ERASE;
        SET10; JSP34;
        JSP33; SET-2; DUP; YA15; +; =YA15; YA16; +; =YA16;
23;     ZERO; =V19; V24; =Q3; EXIT1;
4;      V2; J8!=; (if x!=abs);
5;      SHL38;
6;      SHL-40;
7;      SETB1704; J3;
8;      V3; J10!=; (if x!=sqrt);
9;      SHL39; J6;
10;     V4; J5=; (if x=sin);
        V5; J5=; (if x=cos);
        V6; J5=; (if x=ln);
        V8; J5=; (if x=arctan);


[ good67.txt 
[ -- Graham T

(== Page 67 ==)

        V7; J11!=; (if x!=exp);
        SHL40; J6;
11;     ERASE; V10; J12!=; (if x!=read);
        SETB2157; J7;
12;     V11; J13!=; (if x!=format);
        SETB6356; J2;
13;     V16; J14!=; (if x!=read boolean);
        SETB2231;
43;     SETB1644; J3;
14;     V23; J24!=; (if x!=test);
        SETB2004; J2;
24;     V9; J16!=; (if x!=open);
        SETB2372;
15;     SETB1004; J3;
16;     V15; J17!=; (if x!=close);
        SETB2257; J15;
17;     V13; J18!=; (if x!=write text);
        SETB256;
28;     SHC-8; =V19; V20; J15;
18;     V17; J19!=; (if x!=write boolean);
        SET1; SHC-8; =V19; V21; J15;
19;     V12; J21!=; (if x!=write);
        SETB124013;
20;     SHL32; =V19; V22; J15;
21;     V14; J25!=; (if x!=copy text);
        SETB132053; J20;
22;     Q6; =V0P50; JS2P5; (print FAIL);
        V25; =V53P29; V26; =V54P29;
        V27; =V122P29; SET2; JS1P50;


[ good68.txt 
[ -- Roderick McL

	=YA26; J23;
25;	V28; J26!=; (if x!=output);
	V20; ZERO; SETB6022; SHLD-8; REV; =V19; -; J15;
26;	V29; J27!=; (if x!=find);
	SETB17; J28;
27;	V30; J30!=; (if x!=read binary);
	SETB132026;
29;	SHL32; =V19; V22; SET68; -; J15;
30;	V31; J31!=; (if x!=read array);
	SETB132034; J29;
31;	V33; J32!=; (if x!=write binary);
	SETB132036; J29;
32;	V32; J33!=; (if x!=write array);
	V46; =V19; V47; J15;
33;	V34; J47!=; (if x!=gap);
	SETB47;
34;	SHC-8; =V19; V20; SETB10; -; J15;
35;	V35; J36!=; (if x!=tab);
	SETB07; J34;
36;	V39; J37!=; (if x!=skip);
	SETB66; J34;
37;	V41; J38!=; (if x!=char out);
	SETB71; J34;
38;	V43; J39!=; (if x!=out basic symbol);
	SETB73; J34;
39;	V36; J40!=; (if x!=interchange);
	SETB2054; J15;
40;	V37; J41!=; (if x!=rewind);
	SETB2057; J15;



[ good69.txt 
[ -- Roderick McL

41;	V38; J42!=; (if x!=data skip);
	SETB2065; J15;
42;	V44; J44!=; (if x!=btc);
	SETB2102; J43;
44;	V45; J45!=; (if x!=etw);
	SETB2104; J43;
45;	V40; J46!=; (if x!=char in);
	SETB2067; J2;
46;	V42; J22!=; (if x!=in basic symbol);
	SETB2070; J2;
47;	V48; J48!=; (if x!=newline);
	SETB140; J34;
48;	V49; J35!=; (if x!=space);
	SETB137; J34;

P62;	M14M15; SHL-40; SETB35; AND; SETB34; NEV; J1!=Z; YA2; SETB40; OR; =YA2;
1;	SET1; JSP41; SET2; JSP37; M14M15; DUP; SHL-40; SET76; J5=; SET148;
	J6=; SETB364; NEV; SETB367; AND; SET107; REV; J3=Z;
2;	JP5;
3;	ERASE; ERASE;
4;	ERASE; M-I15; SET1; =+C15; SET110; M14M15;
	SHL-40; SET11; -; J2!=Z; ERASE; EXIT1;
5;	ERASE; SETB400; SHL24; +; =M14M15; SET21; J2=; ERASE; LINK; ERASE; EXIT1;
6;	ERASE; DUP; SHC-5; SET112; REV; J2<Z; ERASE;
	SET40; REV; SHL-16; DUP; SETB17777;
	AND; =M3; SHL-10; SETB70; AND; -; =C3; Y3M3; SET124; SHLC3; -; =Y3M3; J4;
P63;	SHL13; REV; SHL16; SHL-32; +;
1;	DUP; J2>Z; 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;
        SHL+4;
51;     SHL+16; OR; J48;
50;     SETB35; -; J43!=Z;
        V59; =RM14;
        =V65M14Q; M14; =V59; J158;
52;     ERASE; SET3; =V0; J60;
*58;    JS59;
60;     SETAR58; =M15; M0M15; =V56;
        V59; =RC14;
        J57;
99;     ZERO; V65M14; DUP; SHL+32; SHL-32;
        V56; JS56; SHL+8; JS56; SHL+16;
        JS56; ERASE; ERASE; REV; SHL+24;
        OR;
        =V65M14Q;

[ good74.txt 
[ -- Brian W

57;		J99C14NZ;
73;		V59; =RC14; J72;
71;		V65M14Q; DUP; SHL+32; SHL-32; V1;
		NEV; J76=Z;
		ERASE;
72;		J71C14NZ;
91;		V49; V0; SET3; -; OR;
		J74!=Z;
		V1; =LINK; JS13; EXIT;
59;		JS12; LINK; =V1;
		J73;
74; 140;		V1; =V60; JS141;
		DUP; DUP; =V7; ZERO; =V55;
		SHL-6; DUP; J15=Z;
		JS8;
		DUP; J17!=Z;
		ERASE; DUP; SHL-8; SETB177; NEV;
		J159!=Z;
		ZERO; NOT; =V55; SETB137777; JS4;
		SHL+35; SHL-35; =V4; SETB30400; +;
		SHL+8; JS18;
		REV; ERASE;
14;		ZERO;
15;		ERASE;
159;	V6; REV;
16;		SHLD-8; ZERO; J16!=;
		ERASE; SETAR10; =M15; DUP; =M0M15;
		=M0M15; JS13;
*10;	DUMMY;

[ good75.txt 
[ -- Graham T

(== Page 75 ==)

*11;    JS12; SETB56; J21;
17;     JS8;
        J14!=Z;
        ZERO; NOT; =V55;
        DUP; SHL-12; SETB4011; J15=;
        SETB4017; J19=;
        SETB4057; J19=;
        SETB7617; AND; SETB4015; NEV; J162!=Z;
        SETB120000; JS4;
        =LINK; SETB60000; NEV;
162;    JS18; REV; SHL-32; =V4; J159;
18;     ZERO; REV; SHLD-12; SHC-7; SHLD-1;
        SHC+4; SHLD-3;
        SETAR9; SHL+32; REV; SHLD+3; SHC-4;
        SHLD+1; SHC+7; SHLD+12; REV; ERASE; EXIT1;
19;     ZERO; CAB;
        SHLD-12; SHL-7; SHLD-1; ERASE; SHL-35;
        REV; SHC-6; J20<Z;
        SETB60000; OR;
20;     LINK; = V1;
        JS4; =V4; J93;
*9;     JS12;
93;     V4;
        =V1; SETB52;
21;     SHL+12; V63; J96>=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;
        V55; J120!=Z;
        DUP; J120!=Z;
133;    ERASE; J73;
120;    ERASE; SETAV32; SHA+1; =RM15; V60; DUP;
        SHL+35; SHL-2; SET5; JS22;
        SHL+12; REV; SHL+32; SHL-45; SETB1720;
        OR; OR; DUP; =M0M15QH; SHL+24;
        =M0M15QH; ZERO; =M0M15QH; V7; DUP;
        SHL-46; JS24;
        DUP; J121=Z;
        NEG; NOT; JS24;
        DUP; J122=Z;
        JS24;
        ERASE; J123;
121;    =M0M15QH; ZERO;
122;    =M0M15QH;
123;    ERASE; V9; =M0M15QH;
        V10; SET4; DUPD; -; J124<Z;
        REV;
124;    ERASE; =RC14;
        J138C14NZ;
130;    ZERO; J127;
125;    ZERO; =M0M15QH;

[ good77.txt 
[ -- Graham T

(== Page 77 ==)

138;    V11M14Q; DUP; SET8; JS22;
        DUP; =M0M15QH; SHL+24; =M0M15QH; SHL+24;
        SET8; JS22; DUP; =M0M15QH; SHL+24;
        =M0M15QH; J125C14NZ;
126;    M14; SET4; -; J130!=Z;
        ZERO; =M0M15QH;
137;    V10; SET10; -; DUP; J129>=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;
		-; SHLD+13; NOT; NEG;
6;		SHLD-13; ZERO;
7;		ERASE; SHLD-35; ERASE;
		EXIT1;
8;		JS141; CAB; SHL+8; OR; DUP;
		=V7; REV; NEG; NOT; EXIT1;
22;		=C15; ZERO;
*23;	SHL+3; SETB2; OR; SHLD+3; DC15;
		J23C15NZS;
		REV; ERASE; EXIT1;
24;		REV; DUP; SHL+8; REV; SHL-1; SET3;
		JS22; SHL+30; =M0M15QH; REV;
		EXIT1;
12;		J63EN;
		=V11; Q15; =V3; SET15; =RC15;
61;		J62EN;
		=V12M15Q; J61C15NZ;
		
[ good80.txt 
[ -- Brian W

62;		M15; NOT; NEG; J64;
63;		Q15; =V3; ZERO;
64;		=V10; Q14; =V62; ZERO;
		J75V; J94;
75;		NOT;
94;		=V64; (OVERFLOW);
		ZERO;
		J95TR; J108;
95;		NOT;
108;	=V63; (TEST REGISTER);
		EXIT1;
13;		V10; DUP; J67=Z;
		NEG; NOT; DUP; =C15; =M15;
		I15=-1; J66;
65;		V11M15Q;
66;		J65C15NZ;
		ZERO;
67;		ERASE; V62; =Q14; V3; =Q15;
		V63; =TR; (restore test register);
		VR; V64; SHA+48; ERASE; (restore overflow);
		V10; J68=Z;
		V11;
68;		EXIT1;
56;		SHL-40; JS53; REVD; PERM; SHL+8;
		OR; PERM; REV; V56; EXIT1;
41;		ERASE;
35;		V57; V58;
		=C14; J37C14NZ;
		V56;
		
[ good81.txt 
[ -- Roderick McL

	=Q15; J36C15NZ;
155;	V48; =Q15; V27; =C15; PREQ15; JS150; J155;
	SET16; =RC15;
36;	ERASE; V32M15Q; Q15; =V56; SET8;
	=C14;
37;	ZERO; SHLD+6;
	DC14; C14; =V58;
	REV; =V57; SETB17; J38=;
	DUP; SETB20; -; J41<Z;
	DUP; SETB32; -; J40<Z;
	DUP; SETB40; -; J38<Z;
	DUP; SETB41; -; J41<Z;
	DUP; SETB73; -; J39<Z;
	SETB75; J41!=;
	JS92; LINK; ERASE; J52;
92;	V27; =RC15; M+I15; MANUALQ15;
	ZERO; =V58; ZERO; =V56;
38;	EXIT1;
39;	EXIT2;
40;	SETB20; -; EXIT3;
78;	DUP; SHL+32; SHL-32; REV; DUP;
	JS77; SHL+8; JS77; SHL+16; JS77;
	PERM; ERASE; ERASE; ZERO;
	=V65M14; EXIT1;
77;	SHL-40; CAB; REV; JS53; ERASE;
	REV; DUP; EXIT1;
53; 	REV; DUP; DUP; SHL-13; SET5;
	-; J54!=Z;
	SHL+35; SHL-35; NOT; NEG; J55;
[ good82.txt 
[ -- Roderick McL

54;	SETB20000; +;
55;	PERM; DUP; SHL-13; SHL+3; =C15;
	SHL+35; SHL-35; =M15; M0M15;
	SHCC15; ZERO; SHLD+8; PERM; REV;
	SHLD-8; ERASE; NC15; SHCC15;
	=M0M15; EXIT1;
84;	ERASE; J85;
69;	SHL-42; SETB20; -; DUP; SET5; OUT;
	REV; SHL+42; OR; EXIT1;
	ZERO; =RM14; V11; SET5; J161=;
	SET6; -; J163!=Z;
	V12; SHL+24; V27M14; SHL+24; J160=;
	M+I14; V27M14; SHL+24; J160=;
172;	ERASE;
163;	JS13;
	OUT; EXIT1;
160;	ERASE; V27M14; SHL+2; SHL-2; =V27M14;
	JS13; ERASE;
	ERASE; EXIT1;
161;	ERASE; V12; V27M14; SHL+3; SHL-27;
	J164=;
	M+I14; V27M14; SHL+3; SHL-27; J172!=;
164;	ERASE; V27M14; SHL+1; J163<Z;
	V27M14; ZERO; NOT; NEG; SHC-2;
	OR; DUP; =V27M14; SHL+24; SHL-24;
	=V12; JS13;
	ERASE; EXIT1;
150; 	PARQ15; J151NTR;
	MANUALQ15; C15; SETB20; OR; SHC-6; 

[ good83.txt 
[ -- Roderick McL + Brian W

	V52; SHLD+12; =V53; ERASE;
	SETAV53; =I15; SETAV54; =M15; C0TOQ15;
	TWEQ15; JS150; EXIT1;
151;	EXIT2;

P114V72;	(OUT 8);
	(1 param-q str in normal output format);
	Q15; =V0; Q14; =V1; Q13; =V2;
	=Q15; Q15TOQ14; M-I14; M14; NOT; NEG; DUP; DUP;
	=RC14; =RC13; I15; =M14; SETAV40; DUP; =M13;
20;	M0M14Q; =M0M13Q; J20C13NZ;
	=RM14; =C14; ZERO; =V6; V4; J11!=Z;
	C15; SET5; -; J16!=Z; V5; =RM13; J1;
16; 	Q15; Q14; Q13; SET5; =C15; V5; =RM13; JS8;
	ZERO; =V6; =Q13; =Q14; =Q15;
11;	ZERO; =V4; SETAV7; =RM13; C15; SET3; J9=;
	J1>=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;