;	TITLE	"SLCRLF - Syslib 4.0"
	NAME	('LCRLF')
;=================================================================
;   The Libraries, Version 4, (C) 1989 by Alpha Systems Corp.
;-----------------------------------------------------------------
; Author  : Richard Conn
; Date    :
; Version : 1.1
; Module  : SLCRLF
; Abstract: This module contains the routine LCRLF which prints
;	a Carriage Return/Line Feed combination to the currently
;	logged LST: device.  No registers are affected and no
;	status is returned.
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		LCRLF

; From SYSLIB Get..

	EXT		LOUT

; Definitions

LF	EQU	10		; Line Feed Character
CR	EQU	13		; Carriage Return Character

	.Z80
	CSEG
;===============================================================
; NAME - LCRLF
; Entry: - No parameters passed
; Exit : - No status returned
; Uses : - None
; Special Requirements: None
;===============================================================

LCRLF:	PUSH	AF		; Save Reg A and flags
	LD	A,CR		; Print <cr>
	CALL	LOUT
	LD	A,LF		; Print <lf>
	CALL	LOUT
	POP	AF		; Restore Reg A and flags
	RET

	END