home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / code / graphics / flilib / flisrc / jkeyis.asm < prev    next >
Encoding:
Assembly Source File  |  1995-05-19  |  299 b   |  21 lines
  1. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  2.  
  3.     ASSUME  CS: _TEXT 
  4.  
  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. _TEXT    ENDS
  20. END
  21.