home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol089 / scst.mac < prev    next >
Text File  |  1984-04-29  |  840b  |  46 lines
  1. ;
  2. ; SYSLIB Module Name:  SCST
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    CST
  8. ; Module External References:
  9. ;    None
  10. ;
  11.  
  12. ;
  13. ;  CST --
  14. ;    CONSOLE STATUS ROUTINE
  15. ;    INPUT STATUS OF CON: IN REG A
  16. ;    RDA IF 0, NOT RDA IF 1
  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. CST::
  30.     PUTRG        ; SAVE REGISTERS
  31.     LHLD    JTABL    ; GET ADDRESS OF JUMP TABLE
  32.     MVI    L,CS$OFF    ; CONSOLE STATUS ADR
  33. CST1:    LXI    D,CST1R    ; SET UP RET ADR
  34.     PUSH    D    ; ... ON STACK
  35.     PCHL        ; RUN ROUTINE
  36. CST1R:    CMA        ; FLIP FLAGS
  37.     ANI    1    ; SET FLAGS -- 0 MEANS RDA
  38.     GETRG        ; RESTORE REGISTERS
  39.     RET
  40.  
  41. BOOT    EQU    0    ; CP/M BOOT ADDRESS
  42. JTABL    EQU    BOOT+1    ; CP/M JUMP TABLE ADDRESS
  43. CS$OFF    EQU    6    ; CONSOLE STATUS OFFSET
  44.  
  45.     END
  46.