*	WriteLn.asm (of PCQ Pascal runtime library)
*	Copyright (c) 1989 Patrick Quaid

*	Just write a line feed to a text file.

	SECTION	ONE

	XREF	_p%DOSBase
	XREF	_LVOWrite

	XDEF	_p%writeln
_p%writeln

	move.l	#eoln,d2
	moveq	#1,d3
	move.l	4(sp),d1
	move.l	_p%DOSBase,a6
	jsr	_LVOWrite(a6)
	rts

	SECTION	TWO
eoln	dc.b	10,0
	END