.TITLE	STAGE2
	.IDENT	/AUG80/
; STAGE 2 VARIABLES
;
	.PSECT	$$COR
LCOR::	
	.PSECT	$$CORE
LCORE::
	.PSECT	$$REG
.BLKW	100.
REGP0::.WORD	0.
REGP1::.WORD	1.
REGP2::.WORD	2.
REGP3::.WORD	3.
REGP4::.WORD	0
REGP5::.WORD	10.
REGP6::.WORD	0
REGP7::.WORD	4
REGP8::.WORD	LCOR
REGP9::.WORD	LCORE-4
REGPA::.WORD	0
REGPB::.WORD	0
REGPC::.WORD	0
REGPD::.WORD	0
REGPE::.WORD	0
REGPF::.WORD	0
REGPG::.WORD	0
REGPH::.WORD	0
REGPI::.WORD	0
REGPJ::.WORD	0
REGPK::.WORD	0
REGPL::.WORD	0
REGPM::.WORD	0
REGPN::.WORD	0
REGPO::.WORD	0
REGPP::.WORD	0
REGPQ::.WORD	0
REGPR::.WORD	0
REGPS::.WORD	0
REGPT::.WORD	0
REGPU::.WORD	0
REGPV::.WORD	0
REGPW::.WORD	0
REGPX::.WORD	0
REGPY::.WORD	0
REGPZ::.WORD	0
REGV0::.WORD	0.
REGV1::.WORD	1.
REGV2::.WORD	2.
REGV3::.WORD	3.
REGV4::.WORD	4.
REGV5::.WORD	5.
REGV6::.WORD	6.
REGV7::.WORD	7.
REGV8::.WORD	8.
REGV9::.WORD	9.
REGVA::.WORD	0
REGVB::.WORD	0
REGVC::.WORD	0
REGVD::.WORD	0
REGVE::.WORD	0
REGVF::.WORD	0
REGVG::.WORD	0
REGVH::.WORD	0
REGVI::.WORD	0
REGVJ::.WORD	0
REGVK::.WORD	0
REGVL::.WORD	0
REGVM::.WORD	0
REGVN::.WORD	0
REGVO::.WORD	0
REGVP::.WORD	0
REGVQ::.WORD	0
REGVR::.WORD	0
REGVS::.WORD	0
REGVT::.WORD	0
REGVU::.WORD	0
REGVV::.WORD	0
REGVW::.WORD	0
REGVX::.WORD	0
REGVY::.WORD	0
REGVZ::.WORD	0
REGF0::.WORD	0.
REGF1::.WORD	1.
REGF2::.WORD	2.
REGF3::.WORD	3.
REGF4::.WORD	0
REGF5::.WORD	0
REGF6::.WORD	0
REGF7::.WORD	0
REGF8::.WORD	0
REGF9::.WORD	0
REGFA::.WORD	0
REGFB::.WORD	0
REGFC::.WORD	0
REGFD::.WORD	0
REGFE::.WORD	0
REGFF::.WORD	0
REGFG::.WORD	0
REGFH::.WORD	0
REGFI::.WORD	0
REGFJ::.WORD	0
REGFK::.WORD	0
REGFL::.WORD	0
REGFM::.WORD	0
REGFN::.WORD	0
REGFO::.WORD	0
REGFP::.WORD	0
REGFQ::.WORD	0
REGFR::.WORD	0
REGFS::.WORD	0
REGFT::.WORD	0
REGFU::.WORD	0
REGFV::.WORD	0
REGFW::.WORD	0
REGFX::.WORD	0
REGFY::.WORD	0
REGFZ::.WORD	0
	.PSECT	$$FLUB
FLUB::
	MOV	REGF0,REGFI	;FLG I = 0
	MOV	#1,REGVI		; VAL I = 1 + 0
	CLR	REGPI		; PTR I = 0 + 0
	MOV	REGVI,R1	;READ NEXT I
	CALL	RDLINE		;
	MOV	R1,REGFI	;
	CMP	REGFI,REGF0	;TO 98 IF FLG I NE 0
	BNE	M1001		;
	BR	M1002		;
M1001:	JMP	L98		;
M1002:				;
	CALL	RDCH		;VAL A = CHAR
	MOV	R1,REGVA	;
	MOV	REGP8,REGPA	;PTR A = 8 +0
	MOV	REGPA,R5	;STO A = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	MOV	REGF2,REGFB	;FLG B = 2
	CALL	RDCH		;VAL B = CHAR
	MOV	R1,REGVB	;
	CALL	RDCH		;VAL C = CHAR
	MOV	R1,REGVC	;
	MOV	REGP9,REGPC	;PTR C = 9 +0
	CALL	RDCH		;VAL D = CHAR
	MOV	R1,REGVD	;
	CALL	RDCH		;VAL E = CHAR
	MOV	R1,REGVE	;
	MOV	REGVE,REGPE	;PTR E = VAL E
	CALL	RDCH		;VAL F = CHAR
	MOV	R1,REGVF	;
	MOV	REGPA,R5		; PTR F = A + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPF	;
	MOV	REGPF,R5	;STO F = 0
	MOVB	REGF0,(R5)+	;
	MOVB	REGV0,(R5)+	;
	MOV	REGP0,(5)	;
	CLR	REGVG		; VAL G = 0 + 0
	MOV	REGP5,R5	; PTR H = 5 * 7
	MUL	REGP7,R5	;
	MOV	R5,REGPH	;
	MOV	REGF1,REGFJ	;FLG J = 1
	CLR	REGPJ		; PTR J = 0 + 0
	MOV	REGF1,REGFL	;FLG L = 1
	MOV	REGV0,R5	; VAL L = 0 - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVL	;
	CLR	REGPL		; PTR L = 0 + 0
	CALL	RDCH		;VAL M = CHAR
	MOV	R1,REGVM	;
	CLR	REGPM		; PTR M = 0 + 0
	MOV	REGF0,REGFN	;FLG N = 0
	CALL	RDCH		;VAL N = CHAR
	MOV	R1,REGVN	;
	MOV	REGF0,REGFO	;FLG O = 0
	CALL	RDCH		;VAL O = CHAR
	MOV	R1,REGVO	;
	CALL	RDCH		;VAL P = CHAR
	MOV	R1,REGVP	;
	CALL	RDCH		;VAL Q = CHAR
	MOV	R1,REGVQ	;
	CALL	RDCH		;VAL R = CHAR
	MOV	R1,REGVR	;
	CLR	REGPR		; PTR R = 0 + 0
	MOV	REGP7,R5		; PTR 4 = 7 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP4	;
	MOV	REGPF,R5		; PTR 8 = F + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	MOV	#M101,REGPD	;TO 01 BY D
	JMP	L01		;
M101:				;REF LABEL
L01:			;LOC 01
	MOV	REGPA,R5	;GET I = A
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	MOV	REGVI,R1	;READ NEXT I
	CALL	RDLINE		;
	MOV	R1,REGFI	;
	CMP	REGFI,REGF0	;TO 00 IF FLG I NE 0
	BNE	M1021		;
	BR	M1022		;
M1021:	JMP	L00		;
M1022:				;
	MOV	REGPC,REGPI	;PTR I = C +0
	CLR	REGVY		; VAL Y = 0 + 0
	MOV	REGPC,REGPY	;PTR Y = C +0
	CMP	REGPM,REGP0	;TO 02 IF PTR M = 0
	BNE	M103		;
	JMP	L02		;
M103:				;
	MOV	REGPM,R5	; PTR M = M - 1
	SUB	REGP1,R5	;
	MOV	R5,REGPM	;
	JMP	L01		;TO 01
L02:			;LOC 02
	MOV	REGPI,REGP9	;PTR 9 = I +0
	CALL	RDCH		;VAL I = CHAR
	MOV	R1,REGVI	;
	MOV	REGP9,R5	; PTR I = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPI	;
	CMP	REGP8,REGPI	;TO 97 IF PTR 8 GE I
	BGE	M1041		;
	BR	M1042		;
M1041:	JMP	L97		;
M1042:				;
	MOV	REGP9,R5	;STO 9 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	CMP	REGVI,REGVL	;TO 04 IF VAL I = L
	BNE	M105		;
	JMP	L04		;
M105:				;
	CMP	REGVI,REGVA	;TO 03 IF VAL I = A
	BNE	M106		;
	JMP	L03		;
M106:				;
	MOV	REGVY,R5		; VAL Y = Y + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVY	;
	CMP	REGVI,REGVB	;TO 02 IF VAL I NE B
	BNE	M1071		;
	BR	M1072		;
M1071:	JMP	L02		;
M1072:				;
	MOV	REGPI,REGPB	;PTR B = I +0
	MOV	REGP9,R5	;STO 9 = B
	MOVB	REGFB,(R5)+	;
	MOVB	REGVB,(R5)+	;
	MOV	REGPB,(5)	;
	JMP	L02		;TO 02
L03:			;LOC 03
	MOV	REGPI,REGP9	;PTR 9 = I +0
	CALL	RDCH		;VAL I = CHAR
	MOV	R1,REGVI	;
	MOV	REGP9,R5	; PTR I = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPI	;
	MOV	REGP9,R5	;STO 9 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	CMP	REGP8,REGPI	;TO 97 IF PTR 8 GE I
	BGE	M1081		;
	BR	M1082		;
M1081:	JMP	L97		;
M1082:				;
	CMP	REGVI,REGVL	;TO 03 IF VAL I NE L
	BNE	M1091		;
	BR	M1092		;
M1091:	JMP	L03		;
M1092:				;
L04:			;LOC 04
	MOV	REGP9,R5	; PTR U = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR V = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPV	;
	MOV	REGPV,R5	;STO V = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPV,R5	; PTR U = V - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,REGP9	;PTR 9 = U +0
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M1101		;
	BR	M1102		;
M1101:	JMP	L97		;
M1102:				;
	MOV	REGPA,R5	;GET W = A
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGF0,REGFY	;FLG Y = 0
	MOV	REGPA,REGPZ	;PTR Z = A +0
	MOV	#M111,REGPB	;TO 58 BY B
	JMP	L58		;
M111:				;REF LABEL
	CMP	REGFB,REGF2	;TO 50 IF FLG B = 2
	BNE	M112		;
	JMP	L50		;
M112:				;
	CMP	REGFY,REGF0	;TO 56 IF FLG Y = 0
	BNE	M113		;
	JMP	L56		;
M113:				;
	MOV	REGP9,R5	;STO 9 = 1
	MOVB	REGF1,(R5)+	;
	MOVB	REGV1,(R5)+	;
	MOV	REGP1,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - H
	SUB	REGPH,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = J
	MOVB	REGFJ,(R5)+	;
	MOVB	REGVJ,(R5)+	;
	MOV	REGPJ,(5)	;
	MOV	REGP9,R5		; PTR J = 9 + H
	ADD	REGPH,R5		;
	MOV	R5,REGPJ	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = C
	MOVB	REGFC,(R5)+	;
	MOVB	REGVC,(R5)+	;
	MOV	REGPC,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = D
	MOVB	REGFD,(R5)+	;
	MOVB	REGVD,(R5)+	;
	MOV	REGPD,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = K
	MOVB	REGFK,(R5)+	;
	MOVB	REGVK,(R5)+	;
	MOV	REGPK,(5)	;
	MOV	REGPU,REGPK	;PTR K = U +0
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = R
	MOVB	REGFR,(R5)+	;
	MOVB	REGVR,(R5)+	;
	MOV	REGPR,(5)	;
	CLR	REGPR		; PTR R = 0 + 0
	MOV	REGP9,R5	; PTR C = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPC	;
	CMP	REGP8,REGPC	;TO 97 IF PTR 8 GE C
	BGE	M1141		;
	BR	M1142		;
M1141:	JMP	L97		;
M1142:				;
	MOV	#M115,REGPD	;TO 05 BY D
	JMP	L05		;
M115:				;REF LABEL
L05:			;LOC 05
	MOV	REGPC,REGP9	;PTR 9 = C +0
	CLR	REGPY		; PTR Y = 0 + 0
L06:			;LOC 06
	CMP	REGPM,REGP0	;TO 07 IF PTR M = 0
	BNE	M116		;
	JMP	L07		;
M116:				;
	MOV	REGPK,R5		; PTR Z = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPZ	;
	MOV	REGPK,R5	;GET K = K
	MOVB	(R5)+,REGFK	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVK	;
	MOV	(R5),REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGVI,REGV1	;TO 08 IF VAL I = 1
	BNE	M117		;
	JMP	L08		;
M117:				;
	MOV	REGPM,R5	; PTR M = M - 1
	SUB	REGP1,R5	;
	MOV	R5,REGPM	;
	MOV	REGPZ,R5	;GET Z = Z
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
	CMP	REGFZ,REGF3	;TO 06 IF FLG Z NE 3
	BNE	M1181		;
	BR	M1182		;
M1181:	JMP	L06		;
M1182:				;
	MOV	REGPY,R5		; PTR Y = Y + 1
	ADD	REGP1,R5		;
	MOV	R5,REGPY	;
	CMP	REGVZ,REGV7	;TO 06 IF VAL Z = 7
	BNE	M119		;
	JMP	L06		;
M119:				;
	MOV	REGPY,R5	; PTR Y = Y - 1
	SUB	REGP1,R5	;
	MOV	R5,REGPY	;
	CMP	REGVZ,REGV8	;TO 06 IF VAL Z NE 8
	BNE	M1201		;
	BR	M1202		;
M1201:	JMP	L06		;
M1202:				;
	MOV	REGPY,R5	; PTR Y = Y - 1
	SUB	REGP1,R5	;
	MOV	R5,REGPY	;
	CMP	REGPY,REGP0	;TO 06 IF PTR Y GE 0
	BGE	M1211		;
	BR	M1212		;
M1211:	JMP	L06		;
M1212:				;
	CMP	REGPR,REGP0	;TO 06 IF PTR R = 0
	BNE	M122		;
	JMP	L06		;
M122:				;
	MOV	REGPR,R5	; PTR U = R - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;GET Y = U
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF1	;TO 49 IF FLG Y NE 1
	BNE	M1231		;
	BR	M1232		;
M1231:	JMP	L49		;
M1232:				;
	MOV	REGPR,REGPC	;PTR C = R +0
	MOV	REGPR,R5	;GET R = R
	MOVB	(R5)+,REGFR	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVR	;
	MOV	(R5),REGPR	;
	JMP	L05		;TO 05
L07:			;LOC 07
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGFI,REGF2	;TO 09 IF FLG I = 2
	BNE	M124		;
	JMP	L09		;
M124:				;
	CMP	REGFI,REGF3	;TO 22 IF FLG I = 3
	BNE	M125		;
	JMP	L22		;
M125:				;
	MOV	REGP9,R5	; PTR I = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPI	;
	MOV	REGP9,R5	;STO 9 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	MOV	REGPI,REGP9	;PTR 9 = I +0
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M1261		;
	BR	M1262		;
M1261:	JMP	L97		;
M1262:				;
	CMP	REGFI,REGF0	;TO 07 IF FLG I = 0
	BNE	M127		;
	JMP	L07		;
M127:				;
	MOV	REGPC,R5	; PTR Y = C - 9
	SUB	REGP9,R5	;
	MOV	R5,REGPY	;
	MOV	REGPY,R5	; PTR Y = Y / 7
	SXT	R4		;
	DIV	REGP7,R4	;
	MOV	R4,REGPY	;
	MOV	REGPY,R5	; PTR Y = Y - 1
	SUB	REGP1,R5	;
	MOV	R5,REGPY	;
	MOV	REGPY,REGVY	;VAL Y = PTR Y
	MOV	REGPC,REGPY	;PTR Y = C +0
	CMP	REGVI,REGV1	;TO 04 IF VAL I NE 1
	BNE	M1281		;
	BR	M1282		;
M1281:	JMP	L04		;
M1282:				;
L08:			;LOC 08
	MOV	REGPJ,R5	; PTR 9 = J - H
	SUB	REGPH,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET J = 9
	MOVB	(R5)+,REGFJ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVJ	;
	MOV	(R5),REGPJ	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET C = 9
	MOVB	(R5)+,REGFC	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVC	;
	MOV	(R5),REGPC	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET D = 9
	MOVB	(R5)+,REGFD	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVD	;
	MOV	(R5),REGPD	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET K = 9
	MOVB	(R5)+,REGFK	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVK	;
	MOV	(R5),REGPK	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET R = 9
	MOVB	(R5)+,REGFR	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVR	;
	MOV	(R5),REGPR	;
	JMP	@REGPD		;RETURN BY D
L09:			;LOC 09
	MOV	REGPJ,R5		; PTR V = J + I
	ADD	REGPI,R5		;
	MOV	R5,REGPV	;
	CMP	REGVI,REGV6	;TO 21 IF VAL I = 6
	BNE	M129		;
	JMP	L21		;
M129:				;
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGVI,REGV7	;TO 45 IF VAL I = 7
	BNE	M130		;
	JMP	L45		;
M130:				;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M131		;
	JMP	L23		;
M131:				;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGVI,REGV0	;TO 11 IF VAL I = 0
	BNE	M132		;
	JMP	L11		;
M132:				;
	CMP	REGVI,REGV1	;TO 10 IF VAL I = 1
	BNE	M133		;
	JMP	L10		;
M133:				;
	CMP	REGVI,REGV2	;TO 12 IF VAL I = 2
	BNE	M134		;
	JMP	L12		;
M134:				;
	CMP	REGVI,REGV4	;TO 15 IF VAL I = 4
	BNE	M135		;
	JMP	L15		;
M135:				;
	MOV	REGPY,REGPX	;PTR X = Y +0
	CMP	REGVI,REGV3	;TO 20 IF VAL I = 3
	BNE	M136		;
	JMP	L20		;
M136:				;
	MOV	REGVY,REGPN	;PTR N = VAL Y
	CMP	REGVI,REGV5	;TO 18 IF VAL I = 5
	BNE	M137		;
	JMP	L18		;
M137:				;
	CMP	REGVY,REGV1	;TO 23 IF VAL Y NE 1
	BNE	M1381		;
	BR	M1382		;
M1381:	JMP	L23		;
M1382:				;
	MOV	REGVX,REGPN	;PTR N = VAL X
	CMP	REGVI,REGV8	;TO 18 IF VAL I = 8
	BNE	M139		;
	JMP	L18		;
M139:				;
	MOV	#"CO,R2	;MESSAGE CONV TO 4
	MOV	#"NV,R3	;
	MOV	REGV4,R1	;
	CALL	MESSAGE		;
	MOV	R1,REGF4	;
	MOV	#M140,REGPB	;TO 94 BY B
	JMP	L94		;
M140:				;REF LABEL
	JMP	L07		;TO 07
L10:			;LOC 10
	MOV	REGP9,R5		; PTR V = 9 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPF,R5	;GET W = F
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGPF,REGPZ	;PTR Z = F +0
	MOV	#M141,REGPB	;TO 58 BY B
	JMP	L58		;
M141:				;REF LABEL
	CMP	REGFY,REGF1	;TO 07 IF FLG Y NE 1
	BNE	M1421		;
	BR	M1422		;
M1421:	JMP	L07		;
M1422:				;
	MOV	REGF0,REGFI	;FLG I = 0
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
L11:			;LOC 11
	CMP	REGVY,REGV0	;TO 07 IF VAL Y = 0
	BNE	M143		;
	JMP	L07		;
M143:				;
	MOV	REGPX,R5	;GET I = X
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	MOV	REGP9,R5	; PTR X = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPX	;
	MOV	REGP9,R5	;STO 9 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGPX,REGP9	;PTR 9 = X +0
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	CMP	REGVY,REGV0	;TO 07 IF VAL Y = 0
	BNE	M144		;
	JMP	L07		;
M144:				;
	MOV	REGPI,R5	;GET X = I
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGP9,R5	; PTR I = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPI	;
	MOV	REGP9,R5	;STO 9 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	MOV	REGPI,REGP9	;PTR 9 = I +0
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M1451		;
	BR	M1452		;
M1451:	JMP	L97		;
M1452:				;
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	JMP	L11		;TO 11
L12:			;LOC 12
	MOV	REGF2,REGFB	;FLG B = 2
	MOV	REGPF,R5	;GET W = F
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGPF,REGPZ	;PTR Z = F +0
	MOV	#M146,REGPB	;TO 58 BY B
	JMP	L58		;
M146:				;REF LABEL
	MOV	REGF0,REGFB	;FLG B = 0
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGFY,REGF1	;TO 11 IF FLG Y = 1
	BNE	M147		;
	JMP	L11		;
M147:				;
	MOV	REGP8,REGPY	;PTR Y = 8 +0
	MOV	REGF1,REGFY	;FLG Y = 1
	MOV	REGPL,R5		; PTR L = L + 1
	ADD	REGP1,R5		;
	MOV	R5,REGPL	;
	MOV	REGPL,REGPX	;PTR X = L +0
	MOV	REGP9,R5		; PTR W = 9 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPW	;
	CLR	REGVY		; VAL Y = 0 + 0
L13:			;LOC 13
	MOV	REGPX,R5	; PTR V = X / 5
	SXT	R4		;
	DIV	REGP5,R4	;
	MOV	R4,REGPV	;
	MOV	REGPV,R5	; PTR Z = V * 5
	MUL	REGP5,R5	;
	MOV	R5,REGPZ	;
	MOV	REGPX,R5	; PTR X = X - Z
	SUB	REGPZ,R5	;
	MOV	R5,REGPX	;
	MOV	REGPX,REGVX	;VAL X = PTR X
	MOV	REGPV,REGPX	;PTR X = V +0
	MOV	REGPW,R5	; PTR W = W - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPW	;
	MOV	REGPW,R5	;STO W = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGVY,R5		; VAL Y = Y + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVY	;
	CMP	REGP8,REGPW	;TO 97 IF PTR 8 GE W
	BGE	M1481		;
	BR	M1482		;
M1481:	JMP	L97		;
M1482:				;
	CMP	REGPX,REGP0	;TO 13 IF PTR X NE 0
	BNE	M1491		;
	BR	M1492		;
M1491:	JMP	L13		;
M1492:				;
L14:			;LOC 14
	MOV	REGPW,R5	;GET X = W
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGPW,R5		; PTR W = W + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPW	;
	MOV	REGVX,R5		; VAL X = X + E
	ADD	REGVE,R5		;
	MOV	R5,REGVX	;
	MOV	REGP8,R5		; PTR X = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPX	;
	MOV	REGP8,R5	;STO 8 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGPX,REGP8	;PTR 8 = X +0
	CMP	REGP9,REGPW	;TO 14 IF PTR 9 GE W
	BGE	M1501		;
	BR	M1502		;
M1501:	JMP	L14		;
M1502:				;
	MOV	REGP8,R5	;STO 8 = 0
	MOVB	REGF0,(R5)+	;
	MOVB	REGV0,(R5)+	;
	MOV	REGP0,(5)	;
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M1511		;
	BR	M1512		;
M1511:	JMP	L97		;
M1512:				;
	MOV	REGPU,R5	;STO U = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGF0,REGFI	;FLG I = 0
	JMP	L11		;TO 11
L15:			;LOC 15
	MOV	#M152,REGPP	;TO 74 BY P
	JMP	L74		;
M152:				;REF LABEL
	CMP	REGPN,REGP0	;TO 18 IF PTR N GE 0
	BGE	M1531		;
	BR	M1532		;
M1531:	JMP	L18		;
M1532:				;
	MOV	REGP9,R5	; PTR O = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPO	;
	CMP	REGP8,REGPO	;TO 97 IF PTR 8 GE O
	BGE	M1541		;
	BR	M1542		;
M1541:	JMP	L97		;
M1542:				;
	MOV	REGP9,R5	;STO 9 = O
	MOVB	REGFO,(R5)+	;
	MOVB	REGVO,(R5)+	;
	MOV	REGPO,(5)	;
	MOV	REGPO,REGP9	;PTR 9 = O +0
	MOV	REGP0,R5	; PTR N = 0 - N
	SUB	REGPN,R5	;
	MOV	R5,REGPN	;
	JMP	L18		;TO 18
L16:			;LOC 16
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF1	;TO 17 IF FLG Y = 1
	BNE	M155		;
	JMP	L17		;
M155:				;
	MOV	REGPV,R5	; PTR V = V - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPV	;
	CMP	REGVY,REGVI	;TO 16 IF VAL Y NE I
	BNE	M1561		;
	BR	M1562		;
M1561:	JMP	L16		;
M1562:				;
	MOV	REGPY,REGPN	;PTR N = Y +0
	JMP	L18		;TO 18
L17:			;LOC 17
	MOV	REGPV,R5		; PTR Y = V + H
	ADD	REGPH,R5		;
	MOV	R5,REGPY	;
	CMP	REGPY,REGPJ	;TO 23 IF PTR Y = J
	BNE	M157		;
	JMP	L23		;
M157:				;
	MOV	REGPL,R5		; PTR L = L + 1
	ADD	REGP1,R5		;
	MOV	R5,REGPL	;
	MOV	REGPL,REGPI	;PTR I = L +0
	MOV	REGPV,R5	;STO V = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	MOV	REGPV,R5	; PTR V = V - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPV	;
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	MOV	REGF1,REGFY	;FLG Y = 1
	MOV	REGPV,R5	;STO V = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPL,REGPN	;PTR N = L +0
L18:			;LOC 18
	MOV	REGPN,R5	; PTR Y = N / 5
	SXT	R4		;
	DIV	REGP5,R4	;
	MOV	R4,REGPY	;
	MOV	REGPY,R5	; PTR Z = Y * 5
	MUL	REGP5,R5	;
	MOV	R5,REGPZ	;
	MOV	REGPN,R5	; PTR X = N - Z
	SUB	REGPZ,R5	;
	MOV	R5,REGPX	;
	MOV	REGF0,REGFX	;FLG X = 0
	MOV	REGPX,REGVX	;VAL X = PTR X
	MOV	REGPY,REGPN	;PTR N = Y +0
	MOV	REGVG,R5		; VAL G = G + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVG	;
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	MOV	REGP8,R5	;STO 8 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	CMP	REGPN,REGP0	;TO 18 IF PTR N NE 0
	BNE	M1581		;
	BR	M1582		;
M1581:	JMP	L18		;
M1582:				;
L19:			;LOC 19
	MOV	REGP8,R5	;GET X = 8
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGP8,R5	; PTR 8 = 8 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP8	;
	MOV	REGVG,R5	; VAL G = G - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVG	;
	MOV	REGVX,R5		; VAL X = X + E
	ADD	REGVE,R5		;
	MOV	R5,REGVX	;
	MOV	REGP9,R5	; PTR X = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPX	;
	MOV	REGP9,R5	;STO 9 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGPX,REGP9	;PTR 9 = X +0
	CMP	REGVG,REGV0	;TO 19 IF VAL G NE 0
	BNE	M1591		;
	BR	M1592		;
M1591:	JMP	L19		;
M1592:				;
	JMP	L07		;TO 07
L20:			;LOC 20
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	CMP	REGVY,REGVL	;TO 20 IF VAL Y NE L
	BNE	M1601		;
	BR	M1602		;
M1601:	JMP	L20		;
M1602:				;
	CMP	REGFX,REGF1	;TO 07 IF FLG X = 1
	BNE	M161		;
	JMP	L07		;
M161:				;
	MOV	REGP9,R5	; PTR X = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPX	;
	CMP	REGP8,REGPX	;TO 97 IF PTR 8 GE X
	BGE	M1621		;
	BR	M1622		;
M1621:	JMP	L97		;
M1622:				;
	MOV	REGP9,R5	;STO 9 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGPX,REGP9	;PTR 9 = X +0
	JMP	L07		;TO 07
L21:			;LOC 21
	MOV	REGP9,R5	;STO 9 = L
	MOVB	REGFL,(R5)+	;
	MOVB	REGVL,(R5)+	;
	MOV	REGPL,(5)	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPC,R5	; PTR Y = C - 9
	SUB	REGP9,R5	;
	MOV	R5,REGPY	;
	MOV	REGPY,R5	; PTR Y = Y / 7
	SXT	R4		;
	DIV	REGP7,R4	;
	MOV	R4,REGPY	;
	MOV	REGF0,REGFY	;FLG Y = 0
	MOV	REGPY,REGVY	;VAL Y = PTR Y
	MOV	REGPC,REGPY	;PTR Y = C +0
	MOV	REGPV,R5	;STO V = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGP9,R5	; PTR C = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPC	;
	JMP	L05		;TO 05
L22:			;LOC 22
	MOV	REGPJ,REGPV	;PTR V = J +0
	CMP	REGPI,REGP0	;TO 16 IF PTR I = 0
	BNE	M163		;
	JMP	L16		;
M163:				;
	CMP	REGVI,REGV9	;TO 08 IF VAL I = 9
	BNE	M164		;
	JMP	L08		;
M164:				;
	MOV	REGPV,R5		; PTR V = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	CMP	REGVI,REGV1	;TO 32 IF VAL I = 1
	BNE	M165		;
	JMP	L32		;
M165:				;
	CMP	REGVI,REGV2	;TO 32 IF VAL I = 2
	BNE	M166		;
	JMP	L32		;
M166:				;
	CMP	REGVI,REGV3	;TO 33 IF VAL I = 3
	BNE	M167		;
	JMP	L33		;
M167:				;
	CMP	REGVI,REGV4	;TO 42 IF VAL I = 4
	BNE	M168		;
	JMP	L42		;
M168:				;
	CMP	REGVI,REGV5	;TO 36 IF VAL I = 5
	BNE	M169		;
	JMP	L36		;
M169:				;
	CMP	REGVI,REGV6	;TO 39 IF VAL I = 6
	BNE	M170		;
	JMP	L39		;
M170:				;
	CMP	REGVI,REGV7	;TO 43 IF VAL I = 7
	BNE	M171		;
	JMP	L43		;
M171:				;
	CMP	REGVI,REGV8	;TO 47 IF VAL I = 8
	BNE	M172		;
	JMP	L47		;
M172:				;
	CMP	REGVI,REGV0	;TO 23 IF VAL I NE 0
	BNE	M1731		;
	BR	M1732		;
M1731:	JMP	L23		;
M1732:				;
	RTS	PC		;TO MAINLINE
L23:			;LOC 23
	MOV	#"CO,R2	;MESSAGE CONV TO 4
	MOV	#"NV,R3	;
	MOV	REGV4,R1	;
	CALL	MESSAGE		;
	MOV	R1,REGF4	;
	MOV	#M174,REGPB	;TO 94 BY B
	JMP	L94		;
M174:				;REF LABEL
	JMP	L07		;TO 07
L32:			;LOC 32
	MOV	REGPK,R5	;GET X = K
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	#3,REGVW		; VAL W = 3 + 0
	CMP	REGFX,REGF1	;TO 24 IF FLG X = 1
	BNE	M175		;
	JMP	L24		;
M175:				;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGVX,R5	; VAL W = X - E
	SUB	REGVE,R5	;
	MOV	R5,REGVW	;
	MOV	REGPK,R5	;GET X = K
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGFX,REGF1	;TO 24 IF FLG X = 1
	BNE	M176		;
	JMP	L24		;
M176:				;
	MOV	REGVW,R1	;REWIND W
	CALL	REWIND		;
	MOV	R1,REGFW	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
L24:			;LOC 24
	CMP	REGVI,REGV2	;TO 31 IF VAL I = 2
	BNE	M177		;
	JMP	L31		;
M177:				;
	MOV	REGP9,R5	;STO 9 = L
	MOVB	REGFL,(R5)+	;
	MOVB	REGVL,(R5)+	;
	MOV	REGPL,(5)	;
	MOV	REGPC,REGPX	;PTR X = C +0
	CMP	REGPC,REGP9	;TO 57 IF PTR C NE 9
	BNE	M1781		;
	BR	M1782		;
M1781:	JMP	L57		;
M1782:				;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGFI,REGF1	;TO 25 IF FLG I NE 1
	BNE	M1791		;
	BR	M1792		;
M1791:	JMP	L25		;
M1792:				;
	MOV	REGPK,R5	; PTR K = K - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPK	;
	JMP	L23		;TO 23
L25:			;LOC 25
	MOV	REGVI,REGPZ	;PTR Z = VAL I
	MOV	REGPZ,R5	; PTR Z = Z - E
	SUB	REGPE,R5	;
	MOV	R5,REGPZ	;
	CMP	REGPZ,REGP5	;TO 28 IF PTR Z GE 5
	BGE	M1801		;
	BR	M1802		;
M1801:	JMP	L28		;
M1802:				;
	CMP	REGP0,REGPZ	;TO 28 IF PTR 0 GE Z
	BGE	M1811		;
	BR	M1812		;
M1811:	JMP	L28		;
M1812:				;
	MOV	REGVI,REGVX	;VAL X = I +0
	MOV	REGPZ,R5	; PTR Z = Z * 7
	MUL	REGP7,R5	;
	MOV	R5,REGPZ	;
	MOV	REGPJ,R5		; PTR Y = J + Z
	ADD	REGPZ,R5		;
	MOV	R5,REGPY	;
	MOV	REGPY,R5	;GET Y = Y
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF3	;TO 27 IF FLG Y = 3
	BNE	M182		;
	JMP	L27		;
M182:				;
	MOV	REGPY,R5	;GET Z = Y
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
L26:			;LOC 26
	CMP	REGVY,REGV0	;TO 27 IF VAL Y = 0
	BNE	M183		;
	JMP	L27		;
M183:				;
	MOV	REGVZ,R1	;CHAR = VAL Z
	CALL	WRCH		;
	MOV	R1,REGFZ	;
	MOV	REGPZ,R5	;GET Z = Z
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGVI,REGVX	;TO 26 IF VAL I = X
	BNE	M184		;
	JMP	L26		;
M184:				;
	JMP	L25		;TO 25
L27:			;LOC 27
	MOV	REGVF,R1	;CHAR = VAL F
	CALL	WRCH		;
	MOV	R1,REGFF	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGVI,REGVX	;TO 27 IF VAL I = X
	BNE	M185		;
	JMP	L27		;
M185:				;
	JMP	L25		;TO 25
L28:			;LOC 28
	CMP	REGFI,REGF1	;TO 57 IF FLG I = 1
	BNE	M186		;
	JMP	L57		;
M186:				;
	MOV	REGVI,R1	;CHAR = VAL I
	CALL	WRCH		;
	MOV	R1,REGFI	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	JMP	L25		;TO 25
L31:			;LOC 31
	MOV	REGPA,R5	;GET I = A
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGPC,REGP9	;TO 29 IF PTR C = 9
	BNE	M187		;
	JMP	L29		;
M187:				;
	MOV	REGPC,R5	;GET X = C
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVX,R5	; VAL I = X - E
	SUB	REGVE,R5	;
	MOV	R5,REGVI	;
	MOV	REGPA,R5	;STO A = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	CMP	REGPX,REGP9	;TO 29 IF PTR X = 9
	BNE	M188		;
	JMP	L29		;
M188:				;
	MOV	REGVI,R1	;REWIND I
	CALL	REWIND		;
	MOV	R1,REGFI	;
	CMP	REGFI,REGF0	;TO 98 IF FLG I NE 0
	BNE	M1891		;
	BR	M1892		;
M1891:	JMP	L98		;
M1892:				;
L29:			;LOC 29
	MOV	REGPV,R5	;GET X = V
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGVX,REGV0	;TO 05 IF VAL X = 0
	BNE	M190		;
	JMP	L05		;
M190:				;
	CMP	REGFX,REGF3	;TO 05 IF FLG X = 3
	BNE	M191		;
	JMP	L05		;
M191:				;
	MOV	REGPX,REGPY	;PTR Y = X +0
	MOV	REGVI,R1	;READ NEXT I
	CALL	RDLINE		;
	MOV	R1,REGFI	;
	CMP	REGFI,REGF1	;TO 05 IF FLG I = 1
	BNE	M192		;
	JMP	L05		;
M192:				;
	CMP	REGFI,REGF0	;TO 98 IF FLG I NE 0
	BNE	M1931		;
	BR	M1932		;
M1931:	JMP	L98		;
M1932:				;
L30:			;LOC 30
	CMP	REGVX,REGV0	;TO 05 IF VAL X = 0
	BNE	M194		;
	JMP	L05		;
M194:				;
	MOV	REGVX,R5	; VAL X = X - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVX	;
	MOV	REGPY,R5	;GET Y = Y
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CALL	RDCH		;VAL Z = CHAR
	MOV	R1,REGVZ	;
	CMP	REGVY,REGVZ	;TO 30 IF VAL Y = Z
	BNE	M195		;
	JMP	L30		;
M195:				;
	MOV	REGVW,R1	;WRITE NEXT W
	CALL	WRLINE		;
	MOV	R1,REGFW	;
	CMP	REGFW,REGF0	;TO 29 IF FLG W = 0
	BNE	M196		;
	JMP	L29		;
M196:				;
	JMP	L98		;TO 98
L33:			;LOC 33
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M197		;
	JMP	L23		;
M197:				;
	CMP	REGVY,REGV0	;TO 05 IF VAL Y = 0
	BNE	M198		;
	JMP	L05		;
M198:				;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGF2,REGFB	;FLG B = 2
	MOV	REGPF,R5	;GET W = F
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGPF,REGPZ	;PTR Z = F +0
	MOV	#M199,REGPB	;TO 58 BY B
	JMP	L58		;
M199:				;REF LABEL
	MOV	REGF0,REGFB	;FLG B = 0
	MOV	REGFY,REGFW	;FLG W = Y
	MOV	REGPU,REGPW	;PTR W = U +0
	MOV	REGPY,REGPZ	;PTR Z = Y +0
	MOV	REGPV,R5		; PTR V = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M200		;
	JMP	L23		;
M200:				;
	MOV	REGPY,REGPX	;PTR X = Y +0
	MOV	REGF1,REGFZ	;FLG Z = 1
	MOV	REGVY,REGVZ	;VAL Z = Y +0
	CMP	REGFW,REGF1	;TO 35 IF FLG W NE 1
	BNE	M2011		;
	BR	M2012		;
M2011:	JMP	L35		;
M2012:				;
	MOV	REGPW,R5	;STO W = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	CMP	REGVY,REGV0	;TO 05 IF VAL Y = 0
	BNE	M202		;
	JMP	L05		;
M202:				;
L34:			;LOC 34
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGPZ,REGPW	;PTR W = Z +0
	MOV	REGPW,R5	;GET Z = W
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
	MOV	REGVX,REGVZ	;VAL Z = X +0
	MOV	REGPW,R5	;STO W = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	CMP	REGPZ,REGP0	;TO 35 IF PTR Z = 0
	BNE	M203		;
	JMP	L35		;
M203:				;
	CMP	REGVY,REGV0	;TO 34 IF VAL Y NE 0
	BNE	M2041		;
	BR	M2042		;
M2041:	JMP	L34		;
M2042:				;
	JMP	L05		;TO 05
L35:			;LOC 35
	MOV	REGP8,REGPZ	;PTR Z = 8 +0
	MOV	REGPW,R5	;STO W = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2051		;
	BR	M2052		;
M2051:	JMP	L97		;
M2052:				;
	MOV	REGPZ,REGPW	;PTR W = Z +0
	MOV	REGPX,R5	;GET Z = X
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
	MOV	REGPZ,REGPX	;PTR X = Z +0
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	CMP	REGVY,REGVL	;TO 35 IF VAL Y NE L
	BNE	M2061		;
	BR	M2062		;
M2061:	JMP	L35		;
M2062:				;
	MOV	REGPW,R5	;STO W = 0
	MOVB	REGF0,(R5)+	;
	MOVB	REGV0,(R5)+	;
	MOV	REGP0,(5)	;
	JMP	L05		;TO 05
L36:			;LOC 36
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGFI,REGF0	;TO 23 IF FLG I NE 0
	BNE	M2071		;
	BR	M2072		;
M2071:	JMP	L23		;
M2072:				;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	MOV	REGPV,R5		; PTR V = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPV,R5	;GET Z = V
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M208		;
	JMP	L23		;
M208:				;
	CMP	REGFZ,REGF3	;TO 23 IF FLG Z = 3
	BNE	M209		;
	JMP	L23		;
M209:				;
	MOV	REGPV,R5		; PTR V = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	CMP	REGVY,REGVZ	;TO 41 IF VAL Y NE Z
	BNE	M2101		;
	BR	M2102		;
M2101:	JMP	L41		;
M2102:				;
	CMP	REGVY,REGV0	;TO 38 IF VAL Y = 0
	BNE	M211		;
	JMP	L38		;
M211:				;
	MOV	REGPZ,REGPX	;PTR X = Z +0
L37:			;LOC 37
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGPY,R5	;GET Y = Y
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGVX,REGVY	;TO 41 IF VAL X NE Y
	BNE	M2121		;
	BR	M2122		;
M2121:	JMP	L41		;
M2122:				;
	MOV	REGVZ,R5	; VAL Z = Z - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVZ	;
	CMP	REGVZ,REGV0	;TO 37 IF VAL Z NE 0
	BNE	M2131		;
	BR	M2132		;
M2131:	JMP	L37		;
M2132:				;
L38:			;LOC 38
	CMP	REGVI,REGVE	;TO 05 IF VAL I NE E
	BNE	M2141		;
	BR	M2142		;
M2141:	JMP	L05		;
M2142:				;
	JMP	L42		;TO 42
L39:			;LOC 39
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	CMP	REGFI,REGF0	;TO 23 IF FLG I NE 0
	BNE	M2151		;
	BR	M2152		;
M2151:	JMP	L23		;
M2152:				;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M216		;
	JMP	L23		;
M216:				;
	MOV	#M217,REGPP	;TO 74 BY P
	JMP	L74		;
M217:				;REF LABEL
	MOV	REGPN,REGPI	;PTR I = N +0
	MOV	REGPJ,R5		; PTR V = J + 4
	ADD	REGP4,R5		;
	MOV	R5,REGPV	;
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M218		;
	JMP	L23		;
M218:				;
	MOV	#M219,REGPP	;TO 74 BY P
	JMP	L74		;
M219:				;REF LABEL
	MOV	REGPJ,R5		; PTR V = J + 4
	ADD	REGP4,R5		;
	MOV	R5,REGPV	;
	MOV	REGPV,R5		; PTR V = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPN,R5	; PTR N = N - I
	SUB	REGPI,R5	;
	MOV	R5,REGPN	;
	CMP	REGPN,REGP0	;TO 38 IF PTR N = 0
	BNE	M220		;
	JMP	L38		;
M220:				;
	CMP	REGPN,REGP0	;TO 40 IF PTR N GE 0
	BGE	M2211		;
	BR	M2212		;
M2211:	JMP	L40		;
M2212:				;
	CMP	REGVI,REGVO	;TO 05 IF VAL I = O
	BNE	M222		;
	JMP	L05		;
M222:				;
	JMP	L41		;TO 41
L40:			;LOC 40
	CMP	REGVI,REGVN	;TO 05 IF VAL I = N
	BNE	M223		;
	JMP	L05		;
M223:				;
L41:			;LOC 41
	CMP	REGVI,REGVE	;TO 05 IF VAL I = E
	BNE	M224		;
	JMP	L05		;
M224:				;
L42:			;LOC 42
	MOV	REGPV,R5	;GET Y = V
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF3	;TO 23 IF FLG Y = 3
	BNE	M225		;
	JMP	L23		;
M225:				;
	CMP	REGVY,REGV0	;TO 05 IF VAL Y = 0
	BNE	M226		;
	JMP	L05		;
M226:				;
	MOV	#M227,REGPP	;TO 74 BY P
	JMP	L74		;
M227:				;REF LABEL
	MOV	REGPN,REGPM	;PTR M = N +0
	JMP	L05		;TO 05
L43:			;LOC 43
	MOV	REGPC,R5	; PTR Y = C - 9
	SUB	REGP9,R5	;
	MOV	R5,REGPY	;
	MOV	REGPY,R5	; PTR Y = Y / 7
	SXT	R4		;
	DIV	REGP7,R4	;
	MOV	R4,REGPY	;
	MOV	REGPY,REGVY	;VAL Y = PTR Y
	CMP	REGVY,REGV0	;TO 07 IF VAL Y = 0
	BNE	M228		;
	JMP	L07		;
M228:				;
	MOV	REGPC,REGPY	;PTR Y = C +0
	MOV	#M229,REGPP	;TO 74 BY P
	JMP	L74		;
M229:				;REF LABEL
	MOV	REGF1,REGFY	;FLG Y = 1
	CLR	REGVY		; VAL Y = 0 + 0
	MOV	REGPN,R5		; PTR Y = N + 1
	ADD	REGP1,R5		;
	MOV	R5,REGPY	;
	MOV	REGPC,R5	;STO C = R
	MOVB	REGFR,(R5)+	;
	MOVB	REGVR,(R5)+	;
	MOV	REGPR,(5)	;
	MOV	REGPR,REGPZ	;PTR Z = R +0
	MOV	REGPC,REGPR	;PTR R = C +0
	MOV	REGPC,R5	; PTR C = C - 4
	SUB	REGP4,R5	;
	MOV	R5,REGPC	;
	MOV	REGPC,R5	;STO C = K
	MOVB	REGFK,(R5)+	;
	MOVB	REGVK,(R5)+	;
	MOV	REGPK,(5)	;
L44:			;LOC 44
	MOV	REGPR,REGPC	;PTR C = R +0
	MOV	REGPZ,REGPR	;PTR R = Z +0
	MOV	REGPY,R5	; PTR Y = Y - 1
	SUB	REGP1,R5	;
	MOV	R5,REGPY	;
	CMP	REGP0,REGPY	;TO 05 IF PTR 0 GE Y
	BGE	M2301		;
	BR	M2302		;
M2301:	JMP	L05		;
M2302:				;
	MOV	REGPC,REGPR	;PTR R = C +0
	MOV	REGPC,R5	; PTR C = C - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPC	;
	MOV	REGPC,R5	;STO C = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPC,R5	; PTR C = C - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPC	;
	MOV	REGPC,R5	;GET K = C
	MOVB	(R5)+,REGFK	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVK	;
	MOV	(R5),REGPK	;
	MOV	REGPC,R5	; PTR C = C - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPC	;
	JMP	L05		;TO 05
L45:			;LOC 45
	MOV	REGP9,R5	;STO 9 = L
	MOVB	REGFL,(R5)+	;
	MOVB	REGVL,(R5)+	;
	MOV	REGPL,(5)	;
	MOV	REGPC,R5	; PTR W = C - 9
	SUB	REGP9,R5	;
	MOV	R5,REGPW	;
	MOV	REGPW,R5	; PTR W = W / 7
	SXT	R4		;
	DIV	REGP7,R4	;
	MOV	R4,REGPW	;
	MOV	REGF0,REGFW	;FLG W = 0
	MOV	REGPW,REGVW	;VAL W = PTR W
	MOV	REGPC,REGPW	;PTR W = C +0
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGF2,REGFB	;FLG B = 2
	CLR	REGPB		; PTR B = 0 + 0
	MOV	REGF0,REGFU	;FLG U = 0
	MOV	REGVR,REGVU	;VAL U = R +0
	MOV	REGP7,REGPU	;PTR U = 7 +0
	MOV	REGF1,REGFZ	;FLG Z = 1
	CLR	REGVZ		; VAL Z = 0 + 0
	CLR	REGPZ		; PTR Z = 0 + 0
	MOV	REGP9,R5	; PTR X = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPX	;
L46:			;LOC 46
	MOV	REGVZ,R5		; VAL Z = Z + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVZ	;
	MOV	REGP9,R5	;STO 9 = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = U
	MOVB	REGFU,(R5)+	;
	MOVB	REGVU,(R5)+	;
	MOV	REGPU,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = B
	MOVB	REGFB,(R5)+	;
	MOVB	REGVB,(R5)+	;
	MOV	REGPB,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGPK,R5		; PTR K = K + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPK	;
	MOV	REGPK,R5	;GET I = K
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	MOV	REGPX,R5	; PTR I = X - 9
	SUB	REGP9,R5	;
	MOV	R5,REGPI	;
	MOV	REGP9,R5	;STO 9 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	MOV	REGP9,REGPX	;PTR X = 9 +0
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2311		;
	BR	M2312		;
M2311:	JMP	L97		;
M2312:				;
	CMP	REGFI,REGF1	;TO 46 IF FLG I NE 1
	BNE	M2321		;
	BR	M2322		;
M2321:	JMP	L46		;
M2322:				;
	MOV	REGP9,R5	;STO 9 = B
	MOVB	REGFB,(R5)+	;
	MOVB	REGVB,(R5)+	;
	MOV	REGPB,(5)	;
	MOV	REGF0,REGFB	;FLG B = 0
	MOV	REGP9,REGPZ	;PTR Z = 9 +0
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGVM,REGVU	;VAL U = M +0
	MOV	REGP9,R5	;STO 9 = U
	MOVB	REGFU,(R5)+	;
	MOVB	REGVU,(R5)+	;
	MOV	REGPU,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = R
	MOVB	REGFR,(R5)+	;
	MOVB	REGVR,(R5)+	;
	MOV	REGPR,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = C
	MOVB	REGFC,(R5)+	;
	MOVB	REGVC,(R5)+	;
	MOV	REGPC,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = V
	MOVB	REGFV,(R5)+	;
	MOVB	REGVV,(R5)+	;
	MOV	REGPV,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGP9,R5	; PTR R = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPR	;
	MOV	REGPR,R5	;STO R = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	MOV	REGPR,R5	; PTR 9 = R - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = W
	MOVB	REGFW,(R5)+	;
	MOVB	REGVW,(R5)+	;
	MOV	REGPW,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 4
	SUB	REGP4,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;STO 9 = K
	MOVB	REGFK,(R5)+	;
	MOVB	REGVK,(R5)+	;
	MOV	REGPK,(5)	;
	MOV	REGPZ,R5	; PTR Z = Z - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPZ	;
	JMP	L48		;TO 48
L47:			;LOC 47
	CMP	REGPR,REGP0	;TO 05 IF PTR R = 0
	BNE	M233		;
	JMP	L05		;
M233:				;
	MOV	REGPR,R5	;GET Z = R
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
L48:			;LOC 48
	MOV	REGPR,R5	; PTR U = R - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;GET Y = U
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	CMP	REGFY,REGF1	;TO 44 IF FLG Y = 1
	BNE	M234		;
	JMP	L44		;
M234:				;
	CMP	REGFY,REGF3	;TO 49 IF FLG Y = 3
	BNE	M235		;
	JMP	L49		;
M235:				;
	CMP	REGVY,REGV0	;TO 49 IF VAL Y = 0
	BNE	M236		;
	JMP	L49		;
M236:				;
	MOV	REGPU,R5	;STO U = 0
	MOVB	REGF0,(R5)+	;
	MOVB	REGV0,(R5)+	;
	MOV	REGP0,(5)	;
	MOV	REGPU,R5	; PTR U = U - 4
	SUB	REGP4,R5	;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;GET K = U
	MOVB	(R5)+,REGFK	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVK	;
	MOV	(R5),REGPK	;
	MOV	REGPU,REGPV	;PTR V = U +0
	MOV	REGPU,R5	; PTR 9 = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	MOV	REGP9,REGPC	;PTR C = 9 +0
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	#M237,REGPB	;TO 99 BY B
	JMP	L99		;
M237:				;REF LABEL
	MOV	REGPR,R5		; PTR Y = R + 4
	ADD	REGP4,R5		;
	MOV	R5,REGPY	;
	MOV	REGPY,R5	;GET W = Y
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGPR,R5	; PTR Y = R - 4
	SUB	REGP4,R5	;
	MOV	R5,REGPY	;
	CMP	REGP8,REGPY	;TO 97 IF PTR 8 GE Y
	BGE	M2381		;
	BR	M2382		;
M2381:	JMP	L97		;
M2382:				;
	MOV	REGPY,R5	;GET Y = Y
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	MOV	REGPW,R5	;STO W = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	JMP	L05		;TO 05
L99:			;LOC 99
	CMP	REGVZ,REGV1	;TO 60 IF VAL Z NE 1
	BNE	M2391		;
	BR	M2392		;
M2391:	JMP	L60		;
M2392:				;
	MOV	REGF0,REGFX	;FLG X = 0
	MOV	REGVY,R5	; VAL X = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVX	;
	MOV	#1,REGVY		; VAL Y = 1 + 0
	MOV	REGPU,R5		; PTR U = U + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPU,R5		; PTR U = U + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;STO U = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	JMP	@REGPB		;RETURN BY B
L49:			;LOC 49
	CMP	REGFY,REGF1	;TO 44 IF FLG Y = 1
	BNE	M240		;
	JMP	L44		;
M240:				;
	MOV	REGPR,R5		; PTR R = R + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPR	;
	MOV	REGPR,R5	;GET Y = R
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	MOV	REGPR,R5		; PTR R = R + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPR	;
	MOV	REGPR,R5	;GET W = R
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGPW,R5	;STO W = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPR,R5		; PTR R = R + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPR	;
	MOV	REGPR,R5	;GET C = R
	MOVB	(R5)+,REGFC	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVC	;
	MOV	(R5),REGPC	;
	MOV	REGPR,R5		; PTR R = R + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPR	;
	MOV	REGPR,R5	;GET R = R
	MOVB	(R5)+,REGFR	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVR	;
	MOV	(R5),REGPR	;
	JMP	L05		;TO 05
L50:			;LOC 50
	MOV	REGF1,REGFY	;FLG Y = 1
	MOV	REGVL,REGVY	;VAL Y = L +0
	MOV	REGP8,R5	; PTR 8 = 8 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP8	;
	JMP	L54		;TO 54
L51:			;LOC 51
	CALL	RDCH		;VAL I = CHAR
	MOV	R1,REGVI	;
	MOV	REGP8,R5	;STO 8 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	CMP	REGVI,REGVC	;TO 52 IF VAL I = C
	BNE	M241		;
	JMP	L52		;
M241:				;
	CMP	REGVI,REGVD	;TO 52 IF VAL I = D
	BNE	M242		;
	JMP	L52		;
M242:				;
	MOV	REGVI,R5	; VAL I = I - E
	SUB	REGVE,R5	;
	MOV	R5,REGVI	;
	MOV	REGF3,REGFZ	;FLG Z = 3
	CALL	RDCH		;VAL Z = CHAR
	MOV	R1,REGVZ	;
	MOV	REGVZ,R5	; VAL Z = Z - E
	SUB	REGVE,R5	;
	MOV	R5,REGVZ	;
	MOV	REGVI,REGPZ	;PTR Z = VAL I
	MOV	REGP8,R5	;STO 8 = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	CMP	REGP0,REGPZ	;TO 52 IF PTR 0 GE Z
	BGE	M2431		;
	BR	M2432		;
M2431:	JMP	L52		;
M2432:				;
	CMP	REGPZ,REGP5	;TO 52 IF PTR Z GE 5
	BGE	M2441		;
	BR	M2442		;
M2441:	JMP	L52		;
M2442:				;
	MOV	REGF2,REGFZ	;FLG Z = 2
	MOV	REGPZ,R5	; PTR Z = Z * 7
	MUL	REGP7,R5	;
	MOV	R5,REGPZ	;
	MOV	REGP8,R5	;STO 8 = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
L52:			;LOC 52
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2451		;
	BR	M2452		;
M2451:	JMP	L97		;
M2452:				;
	CALL	RDCH		;VAL I = CHAR
	MOV	R1,REGVI	;
	MOV	REGP8,R5	;STO 8 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	CMP	REGVI,REGVD	;TO 51 IF VAL I = D
	BNE	M246		;
	JMP	L51		;
M246:				;
	CMP	REGVI,REGVL	;TO 53 IF VAL I = L
	BNE	M247		;
	JMP	L53		;
M247:				;
	CMP	REGVI,REGVC	;TO 52 IF VAL I NE C
	BNE	M2481		;
	BR	M2482		;
M2481:	JMP	L52		;
M2482:				;
L53:			;LOC 53
	MOV	REGP8,REGPY	;PTR Y = 8 +0
	MOV	REGPU,R5	;STO U = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGP8,REGPU	;PTR U = 8 +0
L54:			;LOC 54
	MOV	REGPA,R5	;GET I = A
	MOVB	(R5)+,REGFI	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVI	;
	MOV	(R5),REGPI	;
	MOV	REGVI,R1	;READ NEXT I
	CALL	RDLINE		;
	MOV	R1,REGFI	;
	CMP	REGFI,REGF0	;TO 98 IF FLG I NE 0
	BNE	M2491		;
	BR	M2492		;
M2491:	JMP	L98		;
M2492:				;
	CALL	RDCH		;VAL I = CHAR
	MOV	R1,REGVI	;
	CLR	REGPI		; PTR I = 0 + 0
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	MOV	REGP8,R5	;STO 8 = I
	MOVB	REGFI,(R5)+	;
	MOVB	REGVI,(R5)+	;
	MOV	REGPI,(5)	;
	CMP	REGVI,REGVD	;TO 51 IF VAL I = D
	BNE	M250		;
	JMP	L51		;
M250:				;
	CMP	REGVI,REGVC	;TO 52 IF VAL I NE C
	BNE	M2511		;
	BR	M2512		;
M2511:	JMP	L52		;
M2512:				;
	MOV	REGP8,REGPY	;PTR Y = 8 +0
	MOV	REGPU,R5	;STO U = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGP8,R5	;STO 8 = 1
	MOVB	REGF1,(R5)+	;
	MOVB	REGV1,(R5)+	;
	MOV	REGP1,(5)	;
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2521		;
	BR	M2522		;
M2521:	JMP	L97		;
M2522:				;
	CALL	RDCH		;VAL I = CHAR
	MOV	R1,REGVI	;
	CMP	REGVI,REGVC	;TO 55 IF VAL I NE C
	BNE	M2531		;
	BR	M2532		;
M2531:	JMP	L55		;
M2532:				;
	MOV	REGF0,REGFB	;FLG B = 0
L55:			;LOC 55
	JMP	@REGPD		;RETURN BY D
L56:			;LOC 56
	MOV	#3,REGVW		; VAL W = 3 + 0
	MOV	REGPC,REGPX	;PTR X = C +0
L57:			;LOC 57
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVX,R1	;CHAR = VAL X
	CALL	WRCH		;
	MOV	R1,REGFX	;
	CMP	REGFX,REGF1	;TO 57 IF FLG X NE 1
	BNE	M2541		;
	BR	M2542		;
M2541:	JMP	L57		;
M2542:				;
	MOV	REGVW,R1	;WRITE NEXT W
	CALL	WRLINE		;
	MOV	R1,REGFW	;
	CMP	REGFW,REGF0	;TO 98 IF FLG W NE 0
	BNE	M2551		;
	BR	M2552		;
M2551:	JMP	L98		;
M2552:				;
	CMP	REGVX,REGVL	;TO 55 IF VAL X = L
	BNE	M256		;
	JMP	L55		;
M256:				;
	MOV	REGVX,R1	;CHAR = VAL X
	CALL	WRCH		;
	MOV	R1,REGFX	;
	JMP	L57		;TO 57
L58:			;LOC 58
	MOV	REGPW,R5		; PTR Z = W + Z
	ADD	REGPZ,R5		;
	MOV	R5,REGPZ	;
	CMP	REGPW,REGP0	;TO 60 IF PTR W NE 0
	BNE	M2571		;
	BR	M2572		;
M2571:	JMP	L60		;
M2572:				;
	CMP	REGFB,REGF2	;TO 71 IF FLG B = 2
	BNE	M258		;
	JMP	L71		;
M258:				;
L59:			;LOC 59
	CMP	REGPV,REGP9	;TO 70 IF PTR V GE 9
	BGE	M2591		;
	BR	M2592		;
M2591:	JMP	L70		;
M2592:				;
	MOV	REGPV,R5	;GET Z = V
	MOVB	(R5)+,REGFZ	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVZ	;
	MOV	(R5),REGPZ	;
	MOV	REGPQ,R5	;GET Y = Q
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGFZ,REGF2	;TO 63 IF FLG Z = 2
	BNE	M260		;
	JMP	L63		;
M260:				;
	CMP	REGFZ,REGF3	;TO 64 IF FLG Z = 3
	BNE	M261		;
	JMP	L64		;
M261:				;
	MOV	REGPQ,R5		; PTR V = Q + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPV,R5		; PTR Q = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPQ	;
L60:			;LOC 60
	MOV	REGPZ,R5	;GET W = Z
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	CMP	REGFW,REGF1	;TO 69 IF FLG W = 1
	BNE	M262		;
	JMP	L69		;
M262:				;
	CMP	REGFW,REGF2	;TO 62 IF FLG W = 2
	BNE	M263		;
	JMP	L62		;
M263:				;
	CMP	REGVY,REGV0	;TO 58 IF VAL Y = 0
	BNE	M264		;
	JMP	L58		;
M264:				;
	CMP	REGVX,REGVW	;TO 58 IF VAL X NE W
	BNE	M2651		;
	BR	M2652		;
M2651:	JMP	L58		;
M2652:				;
	CMP	REGPW,REGP0	;TO 61 IF PTR W = 0
	BNE	M266		;
	JMP	L61		;
M266:				;
	CMP	REGFX,REGF3	;TO 61 IF FLG X = 3
	BNE	M267		;
	JMP	L61		;
M267:				;
	CMP	REGFB,REGF2	;TO 61 IF FLG B = 2
	BNE	M268		;
	JMP	L61		;
M268:				;
	MOV	REGPV,R5	; PTR Q = V - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPQ	;
	MOV	REGPQ,R5	; PTR V = Q - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPV	;
	CMP	REGP8,REGPV	;TO 97 IF PTR 8 GE V
	BGE	M2691		;
	BR	M2692		;
M2691:	JMP	L97		;
M2692:				;
	MOV	REGPQ,R5	;STO Q = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPW,R5		; PTR W = W + Z
	ADD	REGPZ,R5		;
	MOV	R5,REGPW	;
	MOV	REGPV,R5	;STO V = W
	MOVB	REGFW,(R5)+	;
	MOVB	REGVW,(R5)+	;
	MOV	REGPW,(5)	;
L61:			;LOC 61
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	MOV	REGPX,REGPY	;PTR Y = X +0
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGPZ,R5		; PTR Z = Z + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPZ	;
	JMP	L60		;TO 60
L62:			;LOC 62
	CMP	REGFX,REGF2	;TO 61 IF FLG X = 2
	BNE	M270		;
	JMP	L61		;
M270:				;
	CMP	REGFB,REGF2	;TO 58 IF FLG B = 2
	BNE	M271		;
	JMP	L58		;
M271:				;
	MOV	REGPV,R5	; PTR Q = V - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPQ	;
	MOV	REGPQ,R5	; PTR V = Q - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPV	;
	CMP	REGP8,REGPV	;TO 97 IF PTR 8 GE V
	BGE	M2721		;
	BR	M2722		;
M2721:	JMP	L97		;
M2722:				;
	MOV	REGPQ,R5	;STO Q = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGF2,REGFZ	;FLG Z = 2
	MOV	REGPV,R5	;STO V = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	MOV	REGF3,REGFX	;FLG X = 3
	JMP	L58		;TO 58
L63:			;LOC 63
	MOV	REGF3,REGFZ	;FLG Z = 3
	MOV	REGPZ,R5		; PTR Z = Z + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPZ	;
	MOV	REGPV,R5	;STO V = Z
	MOVB	REGFZ,(R5)+	;
	MOVB	REGVZ,(R5)+	;
	MOV	REGPZ,(5)	;
	MOV	REGPU,R5		; PTR U = U + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPU	;
	MOV	REGF0,REGFW	;FLG W = 0
	CLR	REGVW		; VAL W = 0 + 0
	MOV	REGPY,REGPW	;PTR W = Y +0
	MOV	REGPU,R5	;STO U = W
	MOVB	REGFW,(R5)+	;
	MOVB	REGVW,(R5)+	;
	MOV	REGPW,(5)	;
	JMP	L60		;TO 60
L64:			;LOC 64
	CMP	REGVY,REGV0	;TO 68 IF VAL Y = 0
	BNE	M273		;
	JMP	L68		;
M273:				;
	CMP	REGVX,REGVR	;TO 68 IF VAL X = R
	BNE	M274		;
	JMP	L68		;
M274:				;
	MOV	REGPU,R5	;GET W = U
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGVW,R5		; VAL W = W + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVW	;
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	MOV	REGPX,REGPY	;PTR Y = X +0
	CMP	REGVX,REGVM	;TO 67 IF VAL X NE M
	BNE	M2751		;
	BR	M2752		;
M2751:	JMP	L67		;
M2752:				;
	CLR	REGVZ		; VAL Z = 0 + 0
L65:			;LOC 65
	MOV	REGVZ,R5		; VAL Z = Z + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVZ	;
L66:			;LOC 66
	CMP	REGVY,REGV0	;TO 68 IF VAL Y = 0
	BNE	M276		;
	JMP	L68		;
M276:				;
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	MOV	REGPX,REGPY	;PTR Y = X +0
	MOV	REGVW,R5		; VAL W = W + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVW	;
	CMP	REGVX,REGVM	;TO 65 IF VAL X = M
	BNE	M277		;
	JMP	L65		;
M277:				;
	CMP	REGVX,REGVR	;TO 66 IF VAL X NE R
	BNE	M2781		;
	BR	M2782		;
M2781:	JMP	L66		;
M2782:				;
	MOV	REGVZ,R5	; VAL Z = Z - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVZ	;
	CMP	REGVZ,REGV0	;TO 66 IF VAL Z NE 0
	BNE	M2791		;
	BR	M2792		;
M2791:	JMP	L66		;
M2792:				;
L67:			;LOC 67
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGPQ,R5	;STO Q = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPU,R5	;STO U = W
	MOVB	REGFW,(R5)+	;
	MOVB	REGVW,(R5)+	;
	MOV	REGPW,(5)	;
	JMP	L60		;TO 60
L68:			;LOC 68
	MOV	REGPU,R5	;STO U = 3
	MOVB	REGF3,(R5)+	;
	MOVB	REGV3,(R5)+	;
	MOV	REGP3,(5)	;
	MOV	REGPU,R5	; PTR U = U - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPU	;
	MOV	REGPQ,R5		; PTR V = Q + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPV,R5		; PTR Q = V + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPQ	;
	JMP	L59		;TO 59
L69:			;LOC 69
	CMP	REGVY,REGV0	;TO 58 IF VAL Y NE 0
	BNE	M2801		;
	BR	M2802		;
M2801:	JMP	L58		;
M2802:				;
	MOV	REGPZ,R5		; PTR U = Z + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPU	;
	MOV	REGPU,R5	;GET Y = U
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
L70:			;LOC 70
	JMP	@REGPB		;RETURN BY B
L71:			;LOC 71
	MOV	REGP8,R5	; PTR W = 8 - Z
	SUB	REGPZ,R5	;
	MOV	R5,REGPW	;
	MOV	REGPZ,R5	;STO Z = W
	MOVB	REGFW,(R5)+	;
	MOVB	REGVW,(R5)+	;
	MOV	REGPW,(5)	;
	CMP	REGVY,REGV0	;TO 73 IF VAL Y = 0
	BNE	M281		;
	JMP	L73		;
M281:				;
L72:			;LOC 72
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	MOV	REGPX,REGPY	;PTR Y = X +0
	CLR	REGPX		; PTR X = 0 + 0
	MOV	REGP8,R5	;STO 8 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGP8,R5		; PTR 8 = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2821		;
	BR	M2822		;
M2821:	JMP	L97		;
M2822:				;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGVY,REGV0	;TO 72 IF VAL Y NE 0
	BNE	M2831		;
	BR	M2832		;
M2831:	JMP	L72		;
M2832:				;
L73:			;LOC 73
	MOV	REGF1,REGFX	;FLG X = 1
	CLR	REGPX		; PTR X = 0 + 0
	MOV	REGP8,R5	;STO 8 = X
	MOVB	REGFX,(R5)+	;
	MOVB	REGVX,(R5)+	;
	MOV	REGPX,(5)	;
	MOV	REGP8,R5		; PTR U = 8 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPU	;
	MOV	REGF0,REGFY	;FLG Y = 0
	MOV	REGPU,REGPY	;PTR Y = U +0
	MOV	REGPU,R5	;STO U = Y
	MOVB	REGFY,(R5)+	;
	MOVB	REGVY,(R5)+	;
	MOV	REGPY,(5)	;
	MOV	REGPU,R5		; PTR 8 = U + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP8	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2841		;
	BR	M2842		;
M2841:	JMP	L97		;
M2842:				;
	JMP	@REGPB		;RETURN BY B
L74:			;LOC 74
	MOV	REGP9,REGPO	;PTR O = 9 +0
	MOV	REGVY,REGVS	;VAL S = Y +0
	MOV	REGPY,REGPS	;PTR S = Y +0
	CLR	REGPT		; PTR T = 0 + 0
	CMP	REGVY,REGV0	;TO 75 IF VAL Y NE 0
	BNE	M2851		;
	BR	M2852		;
M2851:	JMP	L75		;
M2852:				;
	CLR	REGPN		; PTR N = 0 + 0
	JMP	@REGPP		;RETURN BY P
L75:			;LOC 75
	MOV	REGVM,REGVT	;VAL T = M +0
L76:			;LOC 76
	CMP	REGVS,REGV0	;TO 93 IF VAL S = 0
	BNE	M286		;
	JMP	L93		;
M286:				;
	MOV	REGPS,R5	;GET X = S
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGPS,REGPY	;PTR Y = S +0
	CLR	REGVY		; VAL Y = 0 + 0
	CMP	REGVX,REGVM	;TO 77 IF VAL X NE M
	BNE	M2871		;
	BR	M2872		;
M2871:	JMP	L77		;
M2872:				;
	MOV	REGP9,R5	;STO 9 = T
	MOVB	REGFT,(R5)+	;
	MOVB	REGVT,(R5)+	;
	MOV	REGPT,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M2881		;
	BR	M2882		;
M2881:	JMP	L97		;
M2882:				;
	MOV	REGVS,R5	; VAL S = S - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVS	;
	MOV	REGPX,REGPS	;PTR S = X +0
	JMP	L75		;TO 75
L77:			;LOC 77
	CMP	REGVX,REGVN	;TO 78 IF VAL X = N
	BNE	M289		;
	JMP	L78		;
M289:				;
	CMP	REGVX,REGVO	;TO 78 IF VAL X = O
	BNE	M290		;
	JMP	L78		;
M290:				;
	CMP	REGVX,REGVP	;TO 78 IF VAL X = P
	BNE	M291		;
	JMP	L78		;
M291:				;
	CMP	REGVX,REGVQ	;TO 78 IF VAL X = Q
	BNE	M292		;
	JMP	L78		;
M292:				;
	CMP	REGVX,REGVR	;TO 78 IF VAL X = R
	BNE	M293		;
	JMP	L78		;
M293:				;
	MOV	REGVY,R5		; VAL Y = Y + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVY	;
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	CMP	REGVS,REGVY	;TO 77 IF VAL S NE Y
	BNE	M2941		;
	BR	M2942		;
M2941:	JMP	L77		;
M2942:				;
	MOV	REGVR,REGVX	;VAL X = R +0
	MOV	REGVS,R5		; VAL S = S + 1
	ADD	REGV1,R5		;
	MOV	R5,REGVS	;
L78:			;LOC 78
	MOV	REGVX,REGVJ	;VAL J = X +0
	CLR	REGPN		; PTR N = 0 + 0
	MOV	REGVS,R5	; VAL S = S - Y
	SUB	REGVY,R5	;
	MOV	R5,REGVS	;
	MOV	REGVS,R5	; VAL S = S - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVS	;
	MOV	REGPX,REGPS	;PTR S = X +0
	CMP	REGVY,REGV0	;TO 83 IF VAL Y = 0
	BNE	M295		;
	JMP	L83		;
M295:				;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVX,REGPU	;PTR U = VAL X
	MOV	REGPU,R5	; PTR U = U - E
	SUB	REGPE,R5	;
	MOV	R5,REGPU	;
	CMP	REGPU,REGP5	;TO 79 IF PTR U GE 5
	BGE	M2961		;
	BR	M2962		;
M2961:	JMP	L79		;
M2962:				;
	CMP	REGPU,REGP0	;TO 81 IF PTR U GE 0
	BGE	M2971		;
	BR	M2972		;
M2971:	JMP	L81		;
M2972:				;
L79:			;LOC 79
	MOV	REGP9,R5		; PTR V = 9 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGPV	;
	MOV	REGPF,R5	;GET W = F
	MOVB	(R5)+,REGFW	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVW	;
	MOV	(R5),REGPW	;
	MOV	REGF0,REGFY	;FLG Y = 0
	MOV	REGPF,REGPZ	;PTR Z = F +0
	MOV	#M298,REGPB	;TO 58 BY B
	JMP	L58		;
M298:				;REF LABEL
	CMP	REGFY,REGF1	;TO 83 IF FLG Y NE 1
	BNE	M2991		;
	BR	M2992		;
M2991:	JMP	L83		;
M2992:				;
	CMP	REGVY,REGV0	;TO 83 IF VAL Y = 0
	BNE	M300		;
	JMP	L83		;
M300:				;
	MOV	REGPY,R5	;GET X = Y
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGF1,REGFN	;FLG N = 1
	CMP	REGVX,REGVO	;TO 82 IF VAL X = O
	BNE	M301		;
	JMP	L82		;
M301:				;
	MOV	REGF0,REGFN	;FLG N = 0
	MOV	REGPY,REGPX	;PTR X = Y +0
L80:			;LOC 80
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVX,REGPU	;PTR U = VAL X
	MOV	REGPU,R5	; PTR U = U - E
	SUB	REGPE,R5	;
	MOV	R5,REGPU	;
	CMP	REGPU,REGP0	;TO 81 IF PTR U = 0
	BNE	M302		;
	JMP	L81		;
M302:				;
	CMP	REGPU,REGP5	;TO 93 IF PTR U GE 5
	BGE	M3031		;
	BR	M3032		;
M3031:	JMP	L93		;
M3032:				;
	CMP	REGP0,REGPU	;TO 93 IF PTR 0 GE U
	BGE	M3041		;
	BR	M3042		;
M3041:	JMP	L93		;
M3042:				;
L81:			;LOC 81
	MOV	REGPN,R5	; PTR N = N * 5
	MUL	REGP5,R5	;
	MOV	R5,REGPN	;
	MOV	REGPN,R5		; PTR N = N + U
	ADD	REGPU,R5		;
	MOV	R5,REGPN	;
L82:			;LOC 82
	MOV	REGVY,R5	; VAL Y = Y - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVY	;
	CMP	REGVY,REGV0	;TO 80 IF VAL Y NE 0
	BNE	M3051		;
	BR	M3052		;
M3051:	JMP	L80		;
M3052:				;
	CMP	REGFN,REGF0	;TO 83 IF FLG N = 0
	BNE	M306		;
	JMP	L83		;
M306:				;
	MOV	REGF0,REGFN	;FLG N = 0
	MOV	REGP0,R5	; PTR N = 0 - N
	SUB	REGPN,R5	;
	MOV	R5,REGPN	;
L83:			;LOC 83
	CMP	REGVJ,REGVR	;TO 92 IF VAL J = R
	BNE	M307		;
	JMP	L92		;
M307:				;
	CMP	REGVT,REGVM	;TO 90 IF VAL T = M
	BNE	M308		;
	JMP	L90		;
M308:				;
	CMP	REGVJ,REGVP	;TO 89 IF VAL J = P
	BNE	M309		;
	JMP	L89		;
M309:				;
	CMP	REGVJ,REGVQ	;TO 89 IF VAL J = Q
	BNE	M310		;
	JMP	L89		;
M310:				;
L84:			;LOC 84
	CMP	REGVT,REGVQ	;TO 87 IF VAL T = Q
	BNE	M311		;
	JMP	L87		;
M311:				;
	CMP	REGVT,REGVP	;TO 86 IF VAL T = P
	BNE	M312		;
	JMP	L86		;
M312:				;
	CMP	REGVT,REGVO	;TO 85 IF VAL T = O
	BNE	M313		;
	JMP	L85		;
M313:				;
	MOV	REGPT,R5		; PTR T = T + N
	ADD	REGPN,R5		;
	MOV	R5,REGPT	;
	JMP	L88		;TO 88
L85:			;LOC 85
	MOV	REGPT,R5	; PTR T = T - N
	SUB	REGPN,R5	;
	MOV	R5,REGPT	;
	JMP	L88		;TO 88
L86:			;LOC 86
	MOV	REGPT,R5	; PTR T = T * N
	MUL	REGPN,R5	;
	MOV	R5,REGPT	;
	JMP	L88		;TO 88
L87:			;LOC 87
	MOV	REGPT,R5	; PTR T = T / N
	SXT	R4		;
	DIV	REGPN,R4	;
	MOV	R4,REGPT	;
L88:			;LOC 88
	MOV	REGVJ,REGVT	;VAL T = J +0
	CMP	REGVJ,REGVR	;TO 76 IF VAL J NE R
	BNE	M3141		;
	BR	M3142		;
M3141:	JMP	L76		;
M3142:				;
	MOV	REGPT,REGPN	;PTR N = T +0
	MOV	REGP9,R5		; PTR 9 = 9 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET T = 9
	MOVB	(R5)+,REGFT	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVT	;
	MOV	(R5),REGPT	;
	JMP	L92		;TO 92
L89:			;LOC 89
	CMP	REGVT,REGVP	;TO 86 IF VAL T = P
	BNE	M315		;
	JMP	L86		;
M315:				;
	CMP	REGVT,REGVQ	;TO 87 IF VAL T = Q
	BNE	M316		;
	JMP	L87		;
M316:				;
L90:			;LOC 90
	MOV	REGP9,R5	;STO 9 = T
	MOVB	REGFT,(R5)+	;
	MOVB	REGVT,(R5)+	;
	MOV	REGPT,(5)	;
	MOV	REGP9,R5	; PTR 9 = 9 - 7
	SUB	REGP7,R5	;
	MOV	R5,REGP9	;
	CMP	REGP8,REGP9	;TO 97 IF PTR 8 GE 9
	BGE	M3171		;
	BR	M3172		;
M3171:	JMP	L97		;
M3172:				;
	MOV	REGVJ,REGVT	;VAL T = J +0
	MOV	REGPN,REGPT	;PTR T = N +0
	JMP	L76		;TO 76
L91:			;LOC 91
	CMP	REGVS,REGV0	;TO 93 IF VAL S NE 0
	BNE	M3181		;
	BR	M3182		;
M3181:	JMP	L93		;
M3182:				;
	JMP	@REGPP		;RETURN BY P
L92:			;LOC 92
	CMP	REGVT,REGVM	;TO 84 IF VAL T NE M
	BNE	M3191		;
	BR	M3192		;
M3191:	JMP	L84		;
M3192:				;
	CMP	REGP9,REGPO	;TO 91 IF PTR 9 = O
	BNE	M320		;
	JMP	L91		;
M320:				;
	MOV	REGP9,R5		; PTR 9 = 9 + 7
	ADD	REGP7,R5		;
	MOV	R5,REGP9	;
	MOV	REGP9,R5	;GET T = 9
	MOVB	(R5)+,REGFT	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVT	;
	MOV	(R5),REGPT	;
	CMP	REGVS,REGV0	;TO 92 IF VAL S = 0
	BNE	M321		;
	JMP	L92		;
M321:				;
	MOV	REGPS,R5	;GET X = S
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVS,R5	; VAL S = S - 1
	SUB	REGV1,R5	;
	MOV	R5,REGVS	;
	MOV	REGPX,REGPS	;PTR S = X +0
	MOV	REGVX,REGVJ	;VAL J = X +0
	CMP	REGVJ,REGVR	;TO 92 IF VAL J = R
	BNE	M322		;
	JMP	L92		;
M322:				;
	CMP	REGVJ,REGVN	;TO 83 IF VAL J = N
	BNE	M323		;
	JMP	L83		;
M323:				;
	CMP	REGVJ,REGVO	;TO 83 IF VAL J = O
	BNE	M324		;
	JMP	L83		;
M324:				;
	CMP	REGVJ,REGVP	;TO 83 IF VAL J = P
	BNE	M325		;
	JMP	L83		;
M325:				;
	CMP	REGVJ,REGVQ	;TO 83 IF VAL J = Q
	BNE	M326		;
	JMP	L83		;
M326:				;
L93:			;LOC 93
	MOV	#"EX,R2	;MESSAGE EXPR TO 4
	MOV	#"PR,R3	;
	MOV	REGV4,R1	;
	CALL	MESSAGE		;
	MOV	R1,REGF4	;
	CLR	REGPN		; PTR N = 0 + 0
	MOV	REGPO,REGP9	;PTR 9 = O +0
	MOV	#M327,REGPB	;TO 94 BY B
	JMP	L94		;
M327:				;REF LABEL
	JMP	@REGPP		;RETURN BY P
L94:			;LOC 94
	MOV	REGPC,REGPX	;PTR X = C +0
	MOV	REGPJ,REGPY	;PTR Y = J +0
	CMP	REGP9,REGPC	;TO 96 IF PTR 9 GE C
	BGE	M3281		;
	BR	M3282		;
M3281:	JMP	L96		;
M3282:				;
	MOV	REGP9,R5	;STO 9 = L
	MOVB	REGFL,(R5)+	;
	MOVB	REGVL,(R5)+	;
	MOV	REGPL,(5)	;
L95:			;LOC 95
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	MOV	REGVX,R1	;CHAR = VAL X
	CALL	WRCH		;
	MOV	R1,REGFX	;
	CMP	REGFX,REGF0	;TO 95 IF FLG X = 0
	BNE	M329		;
	JMP	L95		;
M329:				;
	MOV	REGV4,R1	;WRITE NEXT 4
	CALL	WRLINE		;
	MOV	R1,REGF4	;
	CMP	REGF4,REGF0	;TO 98 IF FLG 4 NE 0
	BNE	M3301		;
	BR	M3302		;
M3301:	JMP	L98		;
M3302:				;
	CMP	REGVX,REGVL	;TO 96 IF VAL X = L
	BNE	M331		;
	JMP	L96		;
M331:				;
	MOV	REGVX,R1	;CHAR = VAL X
	CALL	WRCH		;
	MOV	R1,REGFX	;
	JMP	L95		;TO 95
L96:			;LOC 96
	CMP	REGPY,REGP0	;TO 70 IF PTR Y = 0
	BNE	M332		;
	JMP	L70		;
M332:				;
	MOV	REGPY,R5	; PTR Y = Y - H
	SUB	REGPH,R5	;
	MOV	R5,REGPY	;
	MOV	REGPY,R5	; PTR X = Y - 7
	SUB	REGP7,R5	;
	MOV	R5,REGPX	;
	MOV	REGPY,R5	;GET Y = Y
	MOVB	(R5)+,REGFY	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVY	;
	MOV	(R5),REGPY	;
	MOV	REGPX,R5	;GET X = X
	MOVB	(R5)+,REGFX	;
	MOVB	(R5)+,R4	;
	MOV	R4,REGVX	;
	MOV	(R5),REGPX	;
	JMP	L95		;TO 95
L97:			;LOC 97
	MOV	#"FU,R2	;MESSAGE FULL TO 4
	MOV	#"LL,R3	;
	MOV	REGV4,R1	;
	CALL	MESSAGE		;
	MOV	R1,REGF4	;
	MOV	#M333,REGPB	;TO 94 BY B
	JMP	L94		;
M333:				;REF LABEL
	RTS	PC		;TO MAINLINE
L00:			;LOC 00
	CMP	REGFI,REGF1	;TO 98 IF FLG I NE 1
	BNE	M3341		;
	BR	M3342		;
M3341:	JMP	L98		;
M3342:				;
	CMP	REGFB,REGF2	;TO 98 IF FLG B = 2
	BNE	M335		;
	JMP	L98		;
M335:				;
	CMP	REGPM,REGP0	;TO 98 IF PTR M NE 0
	BNE	M3361		;
	BR	M3362		;
M3361:	JMP	L98		;
M3362:				;
	RTS	PC		;TO MAINLINE
L98:			;LOC 98
	MOV	#"IO,R2	;MESSAGE IOCH TO 4
	MOV	#"CH,R3	;
	MOV	REGV4,R1	;
	CALL	MESSAGE		;
	MOV	R1,REGF4	;
	MOV	#M337,REGPB	;TO 94 BY B
	JMP	L94		;
M337:				;REF LABEL
	RTS	PC		;TO MAINLINE
	.END			;END PROGRAM