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