home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / TSTKBD.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  316 b   |  18 lines
  1.  
  2. DATA_SEG    SEGMENT AT 40H
  3.     ORG    17H
  4. KB_FLAG        DB    ?        ;Status flag for shift keys, etc.
  5. DATA_SEG    ENDS
  6.  
  7.     ASSUME    CS:CODE_SEG,DS:DATA_SEG
  8. CODE_SEG    SEGMENT
  9. BEGIN    PROC    NEAR
  10.     MOV    AX,DATA_SEG
  11.     MOV    DS,AX
  12. AGAIN:    TEST    KB_FLAG,1        ;Right shift key pressed?
  13.     JZ    AGAIN            ;No, keep looking
  14.     INT     20H
  15. BEGIN    ENDP
  16. CODE_SEG    ENDS
  17.     END    BEGIN
  18.