.TITLE	NOALF
	.IDENT	/V01.00/

START:	CMP	@#300,#175412		;KEYBOARD ISR IN ROM?
	BEQ	10$			;YES, INSTALL HANDLER
	MOV	#START,R1		;NO, FREE MEMORY & EXIT
	JMP	@#176300		;
10$:	MOV	#KBINT,@#300		;SET KEYBOARD INTERRUPT HANDLER
	RETURN				;RETURN

KBINT:	MOVB	@#177702,@7200
	BMI	20$
	MOV	R0,-(SP)
	MOV	#KEYTAB,R0
10$:	CMPB	(R0)+,@7200
	BEQ	30$
	INC	R0
	TSTB	@R0
	BNE	10$
	MOV	(SP)+,R0
	TSTB	@7200
20$:	JMP	@#175412+6
30$:	TSTB	@R0
	BNE	40$
	MOV	(SP)+,R0
	RTI
40$:	INC	@#7200
	BIC	#10,@#7200
	INC	@#7060
	MOVB	(R0)+,@7200
	MOV	(SP)+,R0
	JMP	@#175412+10

KEYTAB:	.BYTE	005,205
	.BYTE	025,205
	.BYTE	125,205
	.BYTE	126,206
	.BYTE	127,207
	.BYTE	130,210
	.BYTE	131,211
	.BYTE	145,205
	.BYTE	146,206
	.BYTE	147,207
	.BYTE	150,210
	.BYTE	165,205
	.BYTE	166,206
	.BYTE	167,207
	.BYTE	170,210
	.BYTE	106,0
	.WORD	0

	.END	START