*20
START,	LDA I
	3777
	STC BLK
	LDA I
	LDF 7
	STC DF
	SFA
	BSE I
	100
	ESF
	SET I 17
	3777
	LDF 3
	STA I 17
	XSK 17
	JMP .-2
	LDF 4
	STA I 17
	XSK 17
	JMP .-2
	LDF 5
	STA I 17
	XSK 17
	JMP .-2
	LDF 6
	STA I 17
	XSK 17
	JMP .-2
	LDF 7
	STA I 17
	XSK 17
	JMP .-2
	JMP CHBL
CLK,	SET I 13
	-400
	RSW
	ROL 3
	BCL I
	7770
	AZE
	JMP .+5
	LDA I
	NOP
	STC SCL
	JMP .+4
	BSE I
	ROL
	STC SCL
	LDA I
	1
SCL,	0000
	COM
	STC NT
	PDP
	PMODE
	CLA
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD NT
	CLAB
	CLA
	TAD K200
	CLEN
	CLA
	TAD K203
	CLEN
	LINC
	LMODE
	JMP LDISP
WAIT1,	JMP CHBL
	SAM 10
	PDP
	PMODE
	CLSA
	CLA
	TAD K300
	CLEN
	CLA
	TAD K2500
	CLLR
WAIT2,	CLA
	CLSK
	JMP .-1
	CLSA
	LINC
	LMODE
	SAM 10
	STA I 17
	XSK I 13
	SKP
	JMP CLK
	PDP
	PMODE
	JMP WAIT2
K100,	100
K200,	200
K203,	203
K300,	300
K2500,	2500
NT,	-4
	LMODE
LDISP,	SAM 0
	SAM 0
	STC Y
	SET I 15
	777
	LDA
	BLK
	STC 10
MORE,	LDA I 10
	ADA I
Y,	0000
	DIS I 15
	SNS I 0
	JMP SAMP
	IOB
	PMODE
	IOF
	LMODE
	SNS 1
	JMP NCHBL
	XSK I 6
	JMP NCHBL
	XSK I 7
	SKP
	JMP CHBL
NCHBL,	SNS I 2
	JMP STR
	SNS I 3
	JMP RED
	XSK I 15
	JMP MORE
	JMP LDISP
SAMP,	IOB
	PMODE
	ION
	LMODE
	XSK I 15
	JMP MORE
	JMP LDISP
CHBL,	LDA
	0
	STC EXIT
	LDA
	BLK
	SAE I
	3777
	JMP IBLK
	LDA I
	1777
	STC BLK
	LDA
	DF
	SAE I
	LDF 7
	JMP IDF
	LDA I
	LDF 2
	STC DF
IDF,	LDA I
	1
	ADM
	DF
IBLK,	LDA I
	400
	ADM
	BLK
DF,	0000
	SET I 6
	7777
	SAM 4
	SAM 4
	BCL I
	7000
	SCR 6
	ADA I
	1
	COM
	STC 7
	LDA I
BLK,	0000
	STC 17
EXIT,	0000
STR,	LDA
	BLK
	ROL 1
	ADA I
	1000
	BSE I
	4000
	BCL I
	777
	STC .+5
	RSW
	BCL I
	7000
	ADA I
	0000
	STC .+2
	WRI 10
	0000
	JMP 0
RED,	LDA
	BLK
	ROL 1
	ADA I
	1000
	BSE I
	4000
	BCL I
	777
	STC .+5
	RSW
	BCL I
	7000
	ADA I
	0000
	STC .+2
	RDE 10
	0000
	JMP 0
	SEGMNT 0
	*40
	0000
	IOB
	PMODE
	RMF
	LMODE
	JMP WAIT1