home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scin.mac < prev    next >
Text File  |  1984-04-29  |  776b  |  44 lines
  1. ;
  2. ; SYSLIB Module Name:  SCIN
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CIN
  8. ; Module External References:
  9. ;    None
  10. ;
  11.  
  12. ;
  13. ;  CIN -- 
  14. ;    CONSOLE INPUT ROUTINE
  15. ;    INPUT CHARACTER FROM CON: 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. CIN::
  30.     PUTRG        ; SAVE REGISTERS
  31.     LHLD    JTABL    ; GET ADDRESS OF JUMP TABLE
  32.     MVI    L,CI$OFF    ; CONSOLE INPUT ADR
  33.     LXI    D,CRET1    ; SET UP RET ADR
  34.     PUSH    D    ; ... ON STACK
  35.     PCHL
  36. CRET1:    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. CI$OFF    EQU    9    ; CONSOLE INPUT OFFSET
  42.  
  43.     END
  44.