home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
keyboard
/
getkey
/
getkey.asm
next >
Wrap
Assembly Source File
|
1988-11-26
|
794b
|
30 lines
page 66,132
title 'getkey.asm - a dbase iii inkey()/readkey() substitute'
comment ~
usage: load getkey
call getkey <char_parameter>
waits for a keypress (no echo) and returns ascii char.
~
codeseg segment byte public 'code'
gkey proc far
org 00h
assume cs:codeseg
start:
mov ah,7 ;function to wait no echo
int 21h ;use dos
cmp al,0 ;is scan
je extend ;get 2nd byte
jmp done
;
extend:
int 21h ;skip 0 byte
done:
mov byte ptr ds:[bx],al ;return parm
ret
;
gkey endp
codeseg ends
end start