home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NANNWS12.ARC / WHATKEYA.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-09-11  |  838 b   |  36 lines
  1. ; PCKEY() function for Clipper WHATKEY program
  2. ;
  3. ; Keyboard i/o ROM routine, waits for keypress and returns
  4. ; 2 bytes, a scan code and an ASCII code (or a 00)
  5. ; See Assembly Language Primer for the IBM PC&XT, R. Lafore,
  6. ;  the Waite Group, pp. 277-279
  7. ; and Programmer's Guide to the IBM PC, P. Norton,
  8. ;  Microsoft Press, pp. 134-136,204
  9. ;
  10. PUBLIC    PCKEY
  11. EXTRN    _PARNI:FAR
  12. EXTRN    _RETNI:FAR
  13. PRO_NAM    SEGMENT
  14.     ASSUME    CS:PRO_NAM
  15. PCKEY    PROC    FAR    
  16.     PUSH    BP    ;STANDARD SAVES ETC.
  17.     MOV    BP,SP
  18.     PUSH    DS
  19.     PUSH    ES
  20.  
  21.            MOV    AH,0    ;READ CHARACTER FUNCT
  22.     INT    16H    ;KEYBOARD I/O ROM CALL    
  23.             ;LEAVES DESIRED 2-BYTE RESULT IN AX
  24.             ;CONSISTING OF SCAN CODE - ASCII VALUE
  25.  
  26.     POP    ES    ;STANDARD RESTORES BEFORE CALLING _RETs
  27.     POP    DS
  28.     POP    BP
  29.     PUSH    AX
  30.     CALL    _RETNI
  31.     ADD    SP,2
  32.      RET
  33. PCKEY    ENDP
  34. PRO_NAM    ENDS
  35.     END        ;END OF ASSEMBLY
  36.