home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MKEY11.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  973b  |  37 lines
  1.     page    66,132
  2. ;******************************** MKEY11.ASM *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    key_check:far
  14.     extrn    key_read:far
  15. comment 
  16. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  17. KEY_IF_READY - get next key waiting from keyboard
  18. ;
  19. ; inputs:    none
  20. ; 
  21. ; output:    AX = 0 if no key waiting
  22. ;            AX = keycode
  23. ;* * * * * * * * * * * * * *
  24. 
  25.     PUBLIC    KEY_IF_READY
  26. KEY_IF_READY    PROC    FAR
  27.     CALL    KEY_CHECK        ;returns 0=no key  1=KEY WAITING
  28.     OR      AL,AL
  29.     JZ      kir_exit
  30.     JMP     KEY_READ        ;returns al=key  ah=0(normal key) 1(extended)
  31. kir_exit:
  32.     RETF
  33. KEY_IF_READY    ENDP
  34.  
  35. LIBSEG    ENDS
  36.     end
  37.