; IINKEY.ASM
.MODEL SMALL
include	msystem.mac
include	key.m
.CODE
;------ Читать символ с клавиатуры, если он там есть
func	iinkey,,,,public
	mov	AX, 40h
	mov	ES, AX
	xor	AX, AX
	repeat
	 if$	<<<BX ES:[1Ah]> ne ES:[1Ch]>>
	  mov	ES:[1Ch], BX
	  mov	AX, ES:[BX]
	 endif$
	until	<AX ne 0>
	if$	<AH ae 71>
	 xor	AL, AL
	endif$
	mov	word ptr cs:key_AL, AX
	mov	cs:key_mouse, 00h
endf	<word>

END