home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol141 / osborne.z80 < prev    next >
Encoding:
Text File  |  1984-04-29  |  465 b   |  29 lines
  1. ;Utility to get data to PIP on an OSBORNE 1
  2. ;
  3.     ORG    103H
  4.     JP    GETCHAR
  5. ; PUTCHAR not implemented at present
  6.     ORG    109H
  7. CHAR:    DS    1
  8. ;
  9.     ORG    4000H
  10. GETCHAR: DI        ;Lock out trouble
  11.     XOR    A
  12.     OUT    0,A
  13.     LD    (0EF08H),A
  14. ; Now have switched in other bank, let's get data
  15. LP1:    LD    A,(2A00H)
  16.     AND    01
  17.     JR    Z,LP1
  18.     LD    A,(2A01H)
  19.     LD    C,A    ;Save char
  20. ;Switch normal RAM back again
  21.     LD    A,1
  22.     OUT    1,A
  23.     LD    (0EF08H),A
  24. ;Mem back in, stash char
  25.     LD    A,C
  26.     LD    (9),A    ;Put char at PIP's input locn
  27.     EI
  28.     RET
  29. ;