*20
	STC FUN
	JMP RW
	LDA I
	701
	STC 16
	LDA I
	7300
	STC 17
	JMP 16
RW,	CLR
	LDA I
	CLR
	STC 20
	LDA I
	NOP
	STC 21
	LDA I
FUN,	0
	SAE I
	2261
	SKP
	JMP ONE
	SAE I
	2260
	SKP
	JMP ZERO
	SAE I
	2202
	SKP
	JMP BOTH
	JMP 20
BOTH,	CLR
	SET I 10
	0
	XSK I 10
	JMP .-1
	LDA I
	14
	AXO
	MTB I 0
	4000
	LDA I
	14
	AXO
	MTB I 10
	4000
	LDA I
	17
	AXO
	MTB I 10
	4300
	CLR
	HLT
ONE,	CLR
	SET I 10
	0
	XSK I 10
	JMP .-1
	LDA I
	14
	AXO
	MTB I 10
	4000
	LDA I
	17
	AXO
	MTB I 10
	4000
	CLR
	HLT
ZERO,	CLR
	SET I 10
	0
	XSK I 10
	JMP .-1
	LDA I
	14
	AXO
	MTB I 00
	4000
	LDA I
	17
	AXO
	MTB I 10
	4300
	CLR
	HLT