home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol263 / slib3.lqr / SSCOUT.Z80 < prev    next >
Encoding:
Text File  |  1986-03-23  |  768 b   |  37 lines
  1. ;
  2. ; SYSLIB Module Name:  SSCOUT
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    csout
  8.  
  9. ;
  10. ;  CSOUT --
  11. ;    CONSOLE OUTPUT ROUTINE WITH CONTROL CHARACTER PROCESSING
  12. ;        TO CON: OR LST:
  13. ;    OUTPUT CHAR IN REG A
  14. ;    AFFECT NO REGISTERS OR FLAGS
  15. ;
  16.     EXT    SCTLFL
  17.     EXT    CCOUT,CLOUT
  18.  
  19. CSOUT:
  20.     PUSH    AF    ; SAVE REGS
  21.     PUSH    BC
  22.     LD    C,A    ; SAVE CHAR IN C
  23.     LD    A,(SCTLFL)    ; GET FLAG
  24.     LD    B,A    ; ... IN B
  25.     AND    80H    ; LST:?
  26.     LD    A,C    ; GET CHAR
  27.     CALL    NZ,CLOUT    ; CHAR TO LST:
  28.     LD    A,B    ; GET FLAG
  29.     AND    1    ; CON:?
  30.     LD    A,C    ; GET CHAR
  31.     CALL    NZ,CCOUT    ; CHAR TO CON:
  32.     POP    BC    ; RESTORE REGS
  33.     POP    AF
  34.     RET
  35.  
  36.     END
  37.