; Doug's Programming Language  -- DPL, Version 2.22
; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
;--------------------------------
; _INKY - READ A KEY, IF ONE IS AVAILABLE
;
SUBPGM	_INKY
BEGIN	_INKY
;
; CALL FOR A KEY
;
	MOV	AH,01H		; CHECK THE BIOS KEY READY FUNCTION
	INT	16H
	JNE	@INKY_05	; KEY FOUND
	OR	DL,DL		; SHOULD WE WAIT?
	JNZ	_INKY		; YES...
	SUB	AX,AX
	MOV	STATUS,AX	; DEFAULT TO NO KEY FOUND
	RET
;
@INKY_05:
	MOV	AH,00H		; FETCH THE KEY
	INT	16H
	OR	AL,AL		; IS THIS ASCII?
	JE	@INKY_10	; NO, LEAVE IN AH
	SUB	AH,AH		; CLEAR THE SCAN CODE...
;
@INKY_10:
	MOV	STATUS,01	; SET STATUS FOR CHAR FOUND
	RET
;
ENDPGM	_INKY
;