home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c010 / 1.ddi / FLILIB3.ZIP / FLISRC3.ZIP / JKEYIS.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-29  |  384 b   |  20 lines
  1.  
  2.     dosseg
  3.     .model    large
  4.     .code
  5.  
  6. ;_dos_key_is() - returns 1 if a key is ready to read from keyboard, 0 otherwise
  7.     public _dos_key_is
  8. _dos_key_is proc far
  9.     mov ah,1
  10.     int 16h
  11.     jz ret0
  12.     jmp retit
  13. ret0:
  14.     xor ax,ax
  15. retit:
  16.     ret
  17. _dos_key_is endp
  18.  
  19. END
  20.