home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / 80X86 / DOS32V33.ZIP / LIB / KEYPOLL.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-10-09  |  1.6 KB  |  80 lines
  1. ;
  2. ;  A keyboard polling routine written by Jason Nunn
  3. ;
  4. ; 
  5. ;
  6. .386
  7. .model flat
  8. .code
  9.  
  10. public key_pressed,get_key
  11.  
  12.  
  13. ;*********************************************************************
  14. ;funciton:       key_pressed
  15. ;
  16. ;Description:   Detects if the BIOS keyboad buffer is empty.
  17. ;
  18. ;Returns:       Carry = 0 if key is empty
  19. ;               Carry = 1 if key is not empty
  20. ;*********************************************************************
  21.  
  22. ;*********************************************************************
  23. ;funciton:       get_key
  24. ;
  25. ;Description:    gets the next key from the BIOS keyboad buffer.
  26. ;                if not availible then waits for one.
  27. ;Returns:       AL = ascii code
  28. ;               AH = scan code
  29. ;*********************************************************************
  30.  
  31. key_pressed Proc
  32.   push   esi
  33.   mov    esi,[Zero_Addr]
  34.   test   esi,esi
  35.   jz     @@fixup_Zero_Addr
  36. @@fixed_Zero_Addr:
  37.  
  38.   add    esi,41ah
  39.   mov    ax,[esi]
  40.   cmp    ax,[word ptr esi+2]
  41.   jne    @@w
  42.   pop    esi
  43.   clc
  44.   ret
  45. @@w:
  46.   movzx  eax,ax
  47.   add    eax,400h
  48.   add    eax,[Zero_Addr]
  49.   mov    ax,[word ptr eax]
  50.   pop    esi
  51.   stc
  52.   ret
  53.  
  54. @@fixup_Zero_Addr:      ; get zero address
  55.   pushad
  56.   mov ax,0ee02h
  57.   int 31h
  58.   neg ebx
  59.   mov [Zero_Addr],ebx
  60.   popad
  61.   mov    esi,[Zero_Addr]
  62.  jmp @@fixed_Zero_Addr
  63. endp
  64.  
  65. Align 4
  66. get_key Proc
  67. @@l:
  68.   call   key_pressed
  69.   jnc    @@l
  70.   mov    eax,0
  71.   int    16h
  72.   mov    [last_get_key],al
  73.   ret
  74. endp
  75.  
  76. Align 4
  77. Zero_Addr             dd 0      ; contains address of linear address 0
  78. last_get_key          db ?
  79.  
  80. end