*20
START,	CLR
	LSW
	BCL I
	700
	BSE I
	100
	STC CCR
	BSE I
	300
	STC CER
	SNS 0
	JMP .+3
	LDA I
	0001
	STC HOLE1
	JMP HOLE
	SNS I
	JMP .+5
	LDA I
	ROL 1
	STC DIR
	JMP .+4
	LDA I
	ROR 1
	STC DIR
	LDA I
BIT,	0001
DIR,    0000
	STC BIT
	PDP
	PMODE
	CLA
	TAD CCR+4000
	CLLR
	LAS
	CMA
	CLAB
	CLA
	TAD CER+4000
	CLEN
	CLA
	TAD BIT+4000
	CLSK
	JMP .-1
	DCA BIT
	CLSA
	CLA
	LINC
	LMODE
	JMP START
CER,	0000
CCR,	0000
HOLE1,	0000
HOLE2,	0000
HOLE,	CLR
	ADD HOLE2
	COM
	ADD HOLE1
	AZE I
	JMP 0
	LDA
	HOLE1
	STC HOLE2
	LDA BIT
	COM
	STC BIT
	JMP 0
	0000