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 / SLIB3.LBR / SSCRLF.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  30 lines
  1. ;
  2. ; SYSLIB Module Name:  SSCRLF
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    scrlf
  8.  
  9.     EXT    SCTLFL
  10.     EXT    CRLF,LCRLF
  11.  
  12. ;
  13. ;  SCRLF -- 
  14. ;    OUTPUT <CRLF> TO CON: OR LST:
  15. ;    AFFECT NO REGISTERS OR FLAGS
  16. ;
  17. SCRLF:
  18.     PUSH    AF    ; SAVE PSW
  19.     LD    A,(SCTLFL)    ; GET CONTROL FLAG
  20.     PUSH    AF    ; SAVE CONTROL FLAG
  21.     AND    80H    ; LST:?
  22.     CALL    NZ,LCRLF
  23.     POP    AF    ; GET CONTROL FLAG
  24.     AND    1    ; CON:?
  25.     CALL    NZ,CRLF
  26.     POP    AF    ; RESTORE PSW
  27.     RET
  28.  
  29.     END
  30.