home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / KBPLACE.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  4.7 KB  |  231 lines
  1. ;
  2. ; Name        kbplace -- Place one keystroke in keyboard buffer.
  3. ;
  4. ; Synopsis    ercode = kbplace(at_head,value,scan);
  5. ;
  6. ;        int  ercode      0 if successful, 1 if buffer full.
  7. ;        int  at_head      KB_HEAD if keystroke is to be placed
  8. ;                    at head of queue,
  9. ;                  KB_TAIL if at tail.
  10. ;        char value      ASCII value of keystroke (0 if
  11. ;                    not an ASCII character).
  12. ;        char scan      Scan code of keystroke.
  13. ;
  14. ; Description    This function places one keystroke at the head or tail
  15. ;        of the BIOS type-ahead buffer if there is room for it.
  16. ;
  17. ;        KBPLACE assumes that the BIOS type-ahead buffer is at
  18. ;        the standard location of 0x40:0x1e.  It will probably
  19. ;        malfunction otherwise.
  20. ;
  21. ;        The BIOS keyboard buffer is arranged as a circular queue
  22. ;        of fifteen pairs of bytes (plus one pair for overhead).
  23. ;        For extended key sequences the character value is 0 and
  24. ;        the scan code is as described in the IBM Technical
  25. ;        Reference.  For ASCII characters, on the other hand, the
  26. ;        first byte of the pair is the ASCII code for the
  27. ;        character and the second is the keystroke's scan code
  28. ;        (if the key was generated by a normal scan code) or 0
  29. ;        (if the key was generated by ALT plus the numeric ASCII
  30. ;        code on the numeric keypad).  For instance,
  31. ;
  32. ;            pressing 'a' generates character 65, scan code 30,
  33. ;
  34. ;        but
  35. ;
  36. ;            pressing ALT + 65 generates character 65, scan code 0.
  37. ;
  38. ;        (Virtually all application programs treat those two
  39. ;        cases identically.)
  40. ;
  41. ; Returns    ercode          0 if successful, 1 if buffer full.
  42. ;
  43. ; Version    3.0 (C)Copyright Blaise Computing Inc. 1986
  44.  
  45.      name       kbplace
  46.  
  47.      LONGPROG  = 0            ; initialize constants for
  48.      LONGDATA  = 0            ; Pass1 of the assembler
  49.  
  50.      include   compiler.mac     ; Specifies the C compiler
  51.  
  52. popff     macro                ;; Simulate POPF instruction
  53.      local    do_call,do_iret
  54.  
  55.      jmp      short do_call
  56.  
  57. do_iret:
  58.      iret                ;; Pop IP, CS, flags.
  59.  
  60. do_call:
  61.      push    cs            ;; Push CS
  62.      call    do_iret         ;; Push IP & jump.
  63.  
  64.      endm
  65.  
  66.      if LAT200 or LAT210 or LAT300
  67.      include  dos.mac
  68.      LONGPROG = LPROG
  69.      LONGDATA = LDATA
  70.  
  71.      pseg
  72.      public   kbplace
  73.      if      LPROG
  74.      x   equ  6            ; parameter offset
  75. kbplace  proc      far
  76.      else
  77.      x   equ  4
  78. kbplace  proc      near
  79.      endif
  80.      a   equ  0
  81.      b   equ  2
  82.      c   equ  4
  83.      endif
  84.  
  85.      if CI201A
  86.      include  model.h
  87.      include  prologue.h
  88.      LONGPROG = @bigmodel
  89.      LONGDATA = @bigmodel
  90.  
  91.      public   kbplace
  92.      if      @bigmodel
  93.      x   equ  6            ; parameter offset
  94. kbplace  proc      far
  95.      else
  96.      x   equ  4
  97. kbplace  proc      near
  98.      endif
  99.      a   equ  0
  100.      b   equ  2
  101.      c   equ  4
  102.      endif
  103.  
  104.      if MSC300
  105.      include  dos.mac
  106.      LONGPROG = LPROG
  107.      LONGDATA = LDATA
  108.  
  109.      pseg      kbplace
  110.      public   _kbplace
  111.      if      LPROG
  112.      x   equ  6            ; parameter offset
  113. _kbplace proc      far
  114.      else
  115.      x   equ  4
  116. _kbplace proc      near
  117.      endif
  118.      a   equ  0
  119.      b   equ  2
  120.      c   equ  4
  121.      endif
  122.  
  123. KB_HEAD  equ    1
  124. KB_TAIL  equ    0
  125.  
  126. at_head  equ    word ptr [bp + x + a]    ; Addresses of arguments
  127. value     equ    byte ptr [bp + x + b]
  128. scan     equ    byte ptr [bp + x + c]
  129.  
  130. buffer_head   equ word ptr ds:1ah
  131. buffer_tail   equ word ptr ds:1ch
  132. kb_buffer     equ          1eh
  133. kb_buffer_end equ          3eh
  134.  
  135. ;   Beginning of actual code
  136.  
  137.      push    bp
  138.      mov    bp,sp
  139.  
  140.      push    ds
  141.  
  142.      pushf                ; Save interrupt state.
  143.  
  144.      mov    ax,40h            ; Segment address of BIOS data
  145.      mov    ds,ax
  146.      assume ds:nothing
  147.  
  148.      cli                ; Disable interrupts.
  149.  
  150.      cmp    at_head,KB_TAIL
  151.      je    try_at_tail
  152.  
  153.      mov    bx,buffer_head
  154.      dec    bx            ; Tentatively step head back.
  155.      dec    bx
  156.      cmp    bx,kb_buffer
  157.      jae    k5h
  158.                     ; Went past beginning of buffer,
  159.      mov    bx,kb_buffer_end-2  ; so wrap to end.
  160. k5h:
  161.                     ; Now BX has new head pointer.
  162.      cmp    bx,buffer_tail
  163.      je    no_room
  164.  
  165.      mov    al,value
  166.      mov    ah,scan
  167.      mov    [bx],ax         ; Store value & scan code
  168.                     ; at buffer head.
  169.      mov    buffer_head,bx        ; New head pointer.
  170.  
  171.      jmp    short success
  172.  
  173. try_at_tail:
  174.      mov    bx,buffer_tail
  175.      mov    cx,bx
  176.      inc    cx            ; Tentatively advance new tail.
  177.      inc    cx
  178.      cmp    cx,kb_buffer_end
  179.      jb    k5
  180.                     ; Went past end of buffer,
  181.      mov    cx,kb_buffer        ; so wrap to beginning.
  182. k5:
  183.                     ; Now CX has new tail.
  184.      cmp    cx,buffer_head
  185.      je    no_room
  186.  
  187.      mov    al,value
  188.      mov    ah,scan
  189.      mov    [bx],ax         ; Store value & scan code
  190.                     ; at buffer tail.
  191.      mov    buffer_tail,cx        ; New tail pointer.
  192.  
  193. success:
  194.      xor    ax,ax
  195.      jmp    short exit
  196.  
  197. no_room:
  198.      mov ax,1
  199.  
  200. exit:
  201.      popff                ; Restore interrupt state.
  202.  
  203.      if MSC300
  204.      cld                ; Expected by MS C 3.0.
  205.      endif
  206.  
  207.      pop    ds
  208.  
  209.      pop    bp
  210.      ret
  211.  
  212.      if MSC300
  213. _kbplace endp
  214.      else
  215. kbplace  endp
  216.      endif
  217.  
  218.      if LAT200 or LAT210 or LAT300
  219.      endps
  220.      endif
  221.  
  222.      if CI201A
  223.      include  epilogue.h
  224.      endif
  225.  
  226.      if MSC300
  227.      endps      kbplace
  228.      endif
  229.  
  230.      end
  231.