_TEXT	SEGMENT  BYTE PUBLIC 'CODE'

	ASSUME  CS: _TEXT 


;_dos_key_is() - returns 1 if a key is ready to read from keyboard, 0 otherwise
	public _dos_key_is
_dos_key_is proc far
	mov ah,1
	int 16h
	jz ret0
	jmp retit
ret0:
	xor ax,ax
retit:
	ret
_dos_key_is endp

_TEXT	ENDS
END