; ********** KEYBOARD INPUT SUBROUTINE **********
; IF DEBOUNCE DELAY IS LESS THAN ELAPSED TIME, SCANS KEYBOARD
; AND STORES POSSIBLE INPUT CHARACTER IN CIRCULAR INPUT BUFFER.
; 	ENTRY:	NO PARAMETERS.
;	EXIT:	NO PARAMETERS.
;			ALL REGISTERS SAVED.
; **************************************************

.ORG	0000h

		LD	SP,	0080h	; ADDED FOR TESTING PURPOSES.
		
INPUT:	PUSH	AF		; SAVE REGISTERS.
		LD	A,	(387Fh)	; READS ALL KEYBOARD ROWS AND MERGES ALL COLUMN BITS.
		OR 	A			; TEST FOR ANY KEY.
		JP	Z,	INPO65	
		PUSH	BC
		PUSH	HL
		LD	HL,	(TSLC)	; GET TIME SINCE LAST CHARACTER.
		LD	BC,	DBDEL	; MINIMUM DELAY.

.END