title	NL
	subttl	Module from library C_6 : NL
	maclib	SYSEQU.LIB

; FILE:	NL.MAC
; DATE: 820820:1352
; FOR:	Write CRLF to std output

; Write CR then LF to standard output

	entry	nl

	ext	stdout,nlf

nl:
	push	bc
	ld	b,a
	ld	a,(stdout)	; Get channel
	ld	c,a
	call	nlf		; Give CR.LF
	ld	a,b
	pop	bc
	ret

	end