home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / sysutl / mimic.lbr / MIMIC.ASM next >
Encoding:
Assembly Source File  |  1987-08-25  |  512 b   |  20 lines
  1. ;
  2. ; MIMIC - keystrokes to screen - by Barry A. Cole  860115
  3. ;  Useful for testing screen codes.  All codes valid except for nul(ignored)
  4. ;  and control C(exit).
  5. ;
  6. BDOS    EQU    5
  7.     ORG    100H
  8. START:    MVI    C,6        ; Console in via BDOS call
  9.     MVI    E,0FFH        ; This is input
  10.     CALL    BDOS
  11.     ORA    A        ; Set flags
  12.     JZ    START        ; No character received, retry
  13.     CPI    'C'-40H        ; Control C to exit
  14.     RZ            ; Yep
  15.     MOV    E,A        ; Get character
  16.     MVI    C,6        ; And output it
  17.     CALL    BDOS
  18.     JMP    START        ; Start over
  19.     END    START
  20.