****	CRLF Output
**
**	Function:
**		Print <CR> and <LF> on CON:
**	Inputs: -none-
**	Outputs: -none-
**	Registers affected: -none-
**	Routines called: COUT
**	Special error conditions: -none-
*
	.globl	crlf
	.globl	cout
	.text
crlf:	move.l	d1,-(a7)	* save d1
	moveq	#$0d,d1
	jsr	cout		* <CR>
	moveq	#$0a,d1
	jsr	cout		* <LF>
	move.l	(a7)+,d1	* restore d1
	rts
	.end