*20
	SEGMNT 0
	NOLIST
	*20
AAHERE,	CLR
	HLT
	RSW
	BCL I
	7000
	BSE I
	4000
	STC BLKSET
	LDF 1
	JMP RDSET
	LDF 2
	JMP RDSET
	LDF 3
	JMP RDSET
	LDF 4
	JMP RDSET
	LDF 5
	JMP RDSET
	LDF 6
	JMP RDSET
	LDF 7
	JMP RDSET
/
	
	LDA I
	20
	ESF		/I/O PRESET
        LDF 1
	SET I 1
	3777
	SET I 2
	1377
	SET I 3
	-400
	LDA I 1
	STA I 2
	XSK I 3
	JMP .-3
	JMP IELD-10
COMPR,  JMP CMPSET
	LDF 2
	JMP CMPSET
	LDF 3
	JMP CMPSET
	JMP DISPLA
	LDF 4
	JMP CMPSET
	LDF 5
	JMP CMPSET
	LDF 6
	JMP CMPSET
	LDF 7
	JMP CMPSET
	JMP DISPLA
/
CMPSET,	LDA
	0
	STC RET3
	SET I 1
	3777		/Q1DF1
	JMP COMP
	SET I 1
	2377
	JMP COMP	/Q2DF1 W Q4IF0
	SET I 1
	2777
	JMP COMP	/Q3DF1
	SET I 1
	3377		/Q4DF1
	JMP COMP
	LDA I
RET3,	0
	STC 0
	JMP 0
/
RDSET,	LDA
	0
	STC RET5
	SET I 17
	4000
	JMP SET1
	JMP READ
	SET I 17
	5000
	JMP SET1
	JMP READ
	SET I 17
	6000
	JMP SET1
	JMP READ
	SET I 17
	7000
	JMP SET1
	JMP READ
	LDA I
RET5,	0
	STC 0
	JMP 0
/
SET1,	LDA 
	0
	STC RET6
	LDA
	BLKSET
	BCL I
	7000
	BSE
	17
	STC BLKSET
	LDA I
RET6,	0
	STC 0
	JMP 0
/
READ,	LDA
	0
	STC RET7
	STD
	JMP .-1
	RDC I U
BLKSET,	0
	LDA
	BLKSET
	ADA I
	20
	STC BLKSET
	LDA I
RET7,	0
	STC 0
	JMP 0
/
COMP,	LDA 
	0
	STC RET1
	SET I 2
	1377
	LDA I 1
	COM
	ADA I 2		/SUB Q2DF1 FROM Q4IF0
	APO
	JMP .+4
	LDA 2
	STA 1
	JMP .+3
	LDA 1
	STA 2
	DJR
	XSK 2
	JMP .-13
	LDA I
RET1,	0
	STC 0
	JMP 0
/
DISPLA,	LDF 1
	SAM 6
	STA I
LEVEL,	0
	JMP DISIT
	LDF 2
        JMP DISIT
	LDF 3
	JMP DISIT
	JMP DISIT-3
	LDF 4
	JMP DISIT
	LDF 5
	JMP DISIT-3
	JMP DISIT
	LDF 6
	JMP DISIT
	LDF 7 
	JMP DISIT
	SNS I 5
	JMP AAHERE
	JMP DISPLA
/
DISIT,  LDA
	0
	STC RET4
	SAM 5
	STC HORIZ
	SET I 1
	3777
	JMP DIS3D
	SET I 1
	2377
	JMP DIS3D
	SET I 1
	2777
	JMP DIS3D
	SET I 1
	3377
	JMP DIS3D
	LDA I
RET4,	0
	STC 0
	JMP 0
/
	LIST
DIS3D,	LDA
	0
	STC RET8
	SNS 4
	JMP KDELT-1
	LDA I
	0001
	ATR
	SET I 10
	-100
	SET I 5
	0
	LDA
	LEVEL
	DIS 5
	XSK I 4
	JMP .-1
	XSK I 10
	JMP .-3
	LDA I
KDELT,	34
	ADM
	LEVEL
	SET I 5
	-200
	SET I 6
HORIZ,	0
LOOP,	LDA
	LEVEL
	XSK I 6
	XSK I 1
	ADA I 1
	DIS I 6
	SNS 4
	JMP .+7
	SET I 10
DTIME,	-40
	XSK I 4
	JMP .-1
	XSK I 10
	JMP .-3
	XSK I 5
	JMP LOOP
	SNS 4
	JMP RET8-3
	CLR
	ATR		/PICK UP PEN
	SET I 10
	-100
	XSK I 4
	JMP .-1
	XSK I 10
	JMP .-3
	LDA
	LEVEL
	DIS I 10
	SET I 10
	-100
	XSK I 4
	JMP .-1
	XSK I 10
	JMP .-3
	CLR
	ATR		/PICKUP PEN
	LDA I
RET8,	0
	STC 0
	JMP 0
/
	NOLIST
	CLR
	LSW
	BCL I 
	7770
	BSE I
	0640
	STA 
	IELD
IELD,	0
	SNS I 1
	JMP .+5
	SET I 2
	3777
	SAM 1
	JMP DISLOP
	SET I 2
	2377
	SNS I 2
	JMP .+3
	SAM 2
	JMP DISLOP
	SET I 2
	2777
	SNS I 3
	JMP .+3
	SAM 3
	JMP DISLOP
	SET I 2
	3377
	SNS I 4
	JMP .+3
	SAM 4
	JMP DISLOP
	SNS I 0
	JMP COMPR
	JMP IELD-10
/
DISLOP,	STA I
DTEM,	0
	LDA 
	0
	STC DRET
	SET I 3
	-200
	LDA
	DTEM
	XSK I 2
	ADA I 2
	DIS 2
	XSK I 3
	JMP .-6
	LDA I
DRET,	0
	STC 0
	JMP 0