home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol090 / srin.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  730 b   |  44 lines
  1. ;
  2. ; SYSLIB Module Name:  SRIN
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    RIN
  8. ; Module External References:
  9. ;    None
  10. ;
  11.  
  12. ;
  13. ;  RIN -- 
  14. ;    READER INPUT ROUTINE
  15. ;    INPUT CHARACTER FROM RDR: INTO REG A
  16. ;    AFFECT ONLY REG A AND FLAGS
  17. ;    
  18. PUTRG    MACRO
  19.     PUSH    B    ; SAVE BC, DE, HL
  20.     PUSH    D
  21.     PUSH    H
  22.     ENDM
  23. GETRG    MACRO
  24.     POP    H    ; RESTORE HL, DE, BC
  25.     POP    D
  26.     POP    B
  27.     ENDM
  28.  
  29. RIN::
  30.     PUTRG        ; SAVE REGISTERS
  31.     LHLD    JTABL    ; GET ADDRESS OF JUMP TABLE
  32.     MVI    L,R$OFF    ; READER INPUT ADR
  33.     LXI    D,RRET1    ; SET UP RET ADR
  34.     PUSH    D    ; ... ON STACK
  35.     PCHL
  36. RRET1:    GETRG        ; RESTORE REGISTERS
  37.     RET
  38.  
  39. BOOT    EQU    0    ; CP/M BOOT ADDRESS
  40. JTABL    EQU    BOOT+1    ; CP/M JUMP TABLE ADDRESS
  41. R$OFF    EQU    15H    ; READER INPUT OFFSET
  42.  
  43.     END
  44.