home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MKEY10.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  2KB  |  67 lines
  1.     page    66,132
  2. ;******************************** MKEY10.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. comment 
  13. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(MOUSE/KEY)
  14. KEY_PUT - put key back into BIOS buffer
  15. ;
  16. ; inputs:  ax = key
  17. ; output:  none
  18. ; 
  19. ; Note: If keyboard buffer is full then the key will be ignored.
  20. ;* * * * * * * * * * * * * *
  21. 
  22. ;-----------------------
  23. key_head    equ    1ah        ;next get location
  24. key_tail    equ    1ch        ;next put location
  25. key_buf_top_ptr    equ    80h        ;location of key buffer in seg 40h
  26. key_buf_end_ptr    equ    82h        ;location of key buffer end
  27. ;-----------------------
  28.     public    key_put
  29. KEY_PUT    proc    far
  30.     apush    bx,ds
  31.     mov    bx,40h                ;setup
  32.     mov    ds,bx                ;  the segment
  33. ;
  34. ; check if room for another key, will key_tail + 2 = key_head?
  35. ;    
  36.     mov    bx,word ptr ds:[key_tail]
  37.     add    bx,2
  38.     cmp    bx,word ptr ds:[key_buf_end_ptr]
  39.     jb    KEY_PUT_1            ;jmp if no overflow
  40.     mov    bx,word ptr ds:[key_buf_top_ptr]
  41. KEY_PUT_1:
  42.     cmp    bx,word ptr ds:[key_head]    ;check if head=tail (no room)
  43.     je    KEY_PUT_exit            ; jmp if no room
  44.     push    bx                ;save stuff ptr
  45. ;
  46. ; convert this key to bios format
  47. ;
  48.     cmp    ah,0                ;check if normal ascii key
  49.     je    KEY_PUT_2            ; jmp if normal ascii
  50.     mov    ah,al                ;put scan code back in -ah-
  51.     mov    al,0                ;put flag in -al-
  52. KEY_PUT_2:        
  53. ;
  54. ; put this key at current tail location
  55. ;
  56.     mov    bx,word ptr ds:[key_tail]
  57.     mov    word ptr ds:[bx],ax        ;store this key
  58.     pop    bx
  59.     mov    word ptr ds:[key_tail],bx    ;store new tail
  60. KEY_PUT_exit:
  61.     apop    ds,bx
  62.     retf    
  63. KEY_PUT    endp        
  64.  
  65. LIBSEG    ENDS
  66.     end
  67.