home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SCST.Z80 < prev    next >
Text File  |  2000-06-30  |  896b  |  43 lines
  1. ;
  2. ; SYSLIB Module Name:  SCST
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    cst
  8.  
  9. ;
  10. ;  CST --
  11. ;    CONSOLE STATUS ROUTINE
  12. ;    INPUT STATUS OF CON: IN REG A
  13. ;    RDA IF 0, NOT RDA IF 1
  14. ;
  15. PUTRG    MACRO
  16.     PUSH    BC    ; SAVE BC, DE, HL
  17.     PUSH    DE
  18.     PUSH    HL
  19.     ENDM
  20. GETRG    MACRO
  21.     POP    HL    ; RESTORE HL, DE, BC
  22.     POP    DE
  23.     POP    BC
  24.     ENDM
  25.  
  26. CST:
  27.     PUTRG            ; SAVE REGISTERS
  28.     LD    HL,(JTABL)    ; GET ADDRESS OF JUMP TABLE
  29.     LD    L,CS$OFF    ; CONSOLE STATUS ADR
  30. CST1:    LD    DE,CST1R    ; SET UP RET ADR
  31.     PUSH    DE        ; ... ON STACK
  32.     JP    (HL)        ; RUN ROUTINE
  33. CST1R:    CPL            ; FLIP FLAGS
  34.     AND    1        ; SET FLAGS -- 0 MEANS RDA
  35.     GETRG            ; RESTORE REGISTERS
  36.     RET
  37.  
  38. BOOT    EQU    0    ; CP/M BOOT ADDRESS
  39. JTABL    EQU    BOOT+1    ; CP/M JUMP TABLE ADDRESS
  40. CS$OFF    EQU    6    ; CONSOLE STATUS OFFSET
  41.  
  42.     END
  43.