home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MKEY09.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  3KB  |  111 lines
  1.     page    66,132
  2. ;******************************** MKEY09.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_if_ready:far
  14.     extrn    lib_info:byte
  15.     extrn    breakflag:byte
  16. comment 
  17. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  18. FLUSH_KEYBOARD - clears the keyboard's 'type-ahead' buffer
  19. ;
  20. ; inputs:  none
  21. ; output:  none
  22. ;* * * * * * * * * * * * * *
  23. 
  24.     PUBLIC    FLUSH_KEYBOARD
  25. FLUSH_KEYBOARD    PROC    FAR
  26.     call    KEY_IF_READY    ;returns 0=no key  1=KEY_CHECK
  27.     OR      AX,AX
  28.     JNZ     FLUSH_KEYBOARD
  29.     RETF
  30. FLUSH_KEYBOARD    ENDP
  31.  
  32.  
  33. comment 
  34. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  35. KEY_CHECK - check if a key is waiting in the keyboard buffer.
  36. ;
  37. ; inputs:    none
  38. ; 
  39. ; output:    AX = 0 if no key waiting
  40. ;            AX = 1 if key waiting
  41. ;            
  42. ; note:      if key is found in buffer it is left there and the AX register
  43. ;            is set to one.
  44. ;* * * * * * * * * * * * * *
  45. 
  46.     PUBLIC    KEY_CHECK
  47. KEY_CHECK    PROC    FAR
  48.     cmp    cs:breakflag,0
  49.     je    kwa_cont
  50.     mov    ax,3
  51.     jmp    kwa_exit
  52. kwa_cont:    
  53.     mov    ah,11h            ;preload code for enhanced keyboard
  54.     cmp    lib_info.key_type,0    ;check if old style keyboard
  55.     jne    kwa_read        ; jmp if enhanced keyboard
  56.     mov    ah,01            ;get code for old style keyboard
  57. kwa_read:
  58.     int    16h
  59.     mov    ax,0
  60.     jz    kwa_exit        ;jmp if no key waiting
  61.     inc    ax
  62. kwa_exit:
  63.     retf    
  64. KEY_CHECK    ENDP
  65. comment 
  66. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  67. KEY_READ - returns next key pressed
  68. ;
  69. ; inputs:  none
  70. ; output:    if AH = 0  AL = ASCII key code
  71. ;            if AH = 1  AL = scan code
  72. ;* * * * * * * * * * * * * *
  73. 
  74.     PUBLIC    KEY_READ
  75. KEY_READ    PROC    FAR
  76. key_wait:    
  77.     call   KEY_CHECK
  78.     cmp     cs:breakflag,0
  79.     jne     break_occured        ;jmp if break key
  80.     or      ax,ax
  81.     jz    key_wait            ;jmp if no key found
  82.         
  83. KEY_READ1:
  84.     mov    ah,10h            ;preload code for enhanced keyboard
  85.     cmp    lib_info.key_type,0    ;check if old style keyboard
  86.     jne    KEY_READ2            ; jmp if enhanced keyboard
  87.     mov    ah,0
  88. KEY_READ2:    
  89.     int    16h            ;read the keyboard
  90.     cmp    al,0e0h            ;check if extended key flag
  91.     jne    KEY_READ3            ;  jmp if not extended key flag
  92.     mov    al,0
  93. KEY_READ3:
  94.     cmp    al,0            ;check if ascii is available for key
  95.     jne    KEY_READ5            ; jmp if ascii code present
  96.     mov    al,ah            ;put scan code in -al-
  97.     mov    ah,1            ;put flag in -ah-, scan code in -al-
  98.     jmp    KEY_READ_exit
  99.     
  100. break_occured:
  101.     mov     ax,0103h    ;get code for ctrl-c
  102.     jmp     KEY_READ_exit
  103. KEY_READ5:
  104.     mov    ah,0            ;normal ascii in -al-, set flag
  105. KEY_READ_exit:
  106.     retf                
  107. KEY_READ    ENDP
  108.  
  109. LIBSEG    ENDS
  110.     end
  111.