home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / _INKY.D < prev    next >
Text File  |  1988-07-11  |  768b  |  33 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;--------------------------------
  4. ; _INKY - READ A KEY, IF ONE IS AVAILABLE
  5. ;
  6. SUBPGM    _INKY
  7. BEGIN    _INKY
  8. ;
  9. ; CALL FOR A KEY
  10. ;
  11.     MOV    AH,01H        ; CHECK THE BIOS KEY READY FUNCTION
  12.     INT    16H
  13.     JNE    @INKY_05    ; KEY FOUND
  14.     OR    DL,DL        ; SHOULD WE WAIT?
  15.     JNZ    _INKY        ; YES...
  16.     SUB    AX,AX
  17.     MOV    STATUS,AX    ; DEFAULT TO NO KEY FOUND
  18.     RET
  19. ;
  20. @INKY_05:
  21.     MOV    AH,00H        ; FETCH THE KEY
  22.     INT    16H
  23.     OR    AL,AL        ; IS THIS ASCII?
  24.     JE    @INKY_10    ; NO, LEAVE IN AH
  25.     SUB    AH,AH        ; CLEAR THE SCAN CODE...
  26. ;
  27. @INKY_10:
  28.     MOV    STATUS,01    ; SET STATUS FOR CHAR FOUND
  29.     RET
  30. ;
  31. ENDPGM    _INKY
  32. ;
  33.