.MODEL SMALL
.CODE
;
;Using DOS call #6, return -1 if
;no key hit, else the key. Will
;return nulls properly.
;
	public _iskey

_iskey proc
	push	bp
	mov	ah,6
	mov	dl,0ffh
	int	21h
	mov	ah,0
	jnz	ik1
	mov	ax,-1
ik1:	pop	bp
	ret
_iskey endp

;
;Get the IBM PC shift key states.
;(See ASCII.H)
;
	public _shiftstate

_shiftstate proc
	push	bp
	mov	ah,2
	int	16h	;get AL=bits
	xor	ah,ah	;zap upper bits
	pop	bp
	ret
_shiftstate endp

	end