home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / kbdin.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.1 KB  |  39 lines
  1. ********************************************************************
  2.  
  3. *                          KBDIN                                   *
  4.  
  5. ********************************************************************
  6.  
  7.                   name kbdin
  8.                   entry kbdin
  9.                   ext charin
  10.  
  11. BIOS equ 5
  12. CHECK equ 0Bh   ;BIOS function code for check-console-keyboard
  13.  
  14. ;FUNCTION:checks the keyboard.If a key has been struck
  15. ;returns with ASCII in A,else A=0.
  16.  
  17. ;CALLS:CHARIN
  18.  
  19. KBDIN:            push h
  20.                   push d
  21.                   push b
  22.                   mvi c,CHECK
  23.                   call BIOS   ;now if a key was
  24.                               ;struck,A(0)=1
  25.                   rrc         ;so rotate A(0) into
  26.                               ;carry & check.
  27.                   jrc yes 
  28.                   xra a       ;if not,clear A
  29. kbdex:            pop b       ;& depart.
  30.                   pop d
  31.                   pop h
  32.                   ret  
  33. yes:              call CHARIN ;ifso get ASCII
  34.                   jmpr kbdex
  35.  
  36.                   end kbdin
  37.  
  38. ********************************************************************
  39.