.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		;GET SHARACTER FROM TERMINAL
	CMPB	#106,@7200		;ALF PRESSED?
	BNE	10$			;NO
	INC	#0			;YES, SET ALF FLAG
AFLAG	=	.-2			;
	RTI				;RETURN FROM INTERRUPT

10$:	CMPB	#206,@7200		;KEY FROM ALF ROW RELEASED?
	BNE	20$			;NO
	TST	AFLAG			;YES, WAS ALF PRESSED?
	BEQ	20$			;NO
	CLR	AFLAG			;YES, CLEAR ALF FLAG
	RTI				;RETURN FROM INTERRUPT

20$:	TSTB	@7200			;SET FLAG FOR ROM KEYBOARD ISR
	JMP	@#175412+6		;PASS CONTROL TO ROM ISR

	.END	START