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

*	Write a character array to a text file.

	SECTION	ONE

	XREF	_p%DOSBase
	XREF	_LVOWrite
	XREF	_p%padout

	XDEF	_p%writecharray
_p%writecharray:

	move.l	d0,d2
	move.l	6(sp),d1
	move.w	4(sp),d0
	ext.l	d0
	sub.l	d3,d0
	ble.s	1$
	jsr	_p%padout
1$	move.l	_p%DOSBase,a6
	jsr	_LVOWrite(a6)
	rts

	END