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

*	This writes boolean values.  The write routines are so much
*	simpler than the read routines....

	SECTION	ONE

	XREF	_p%DOSBase
	XREF	outbuffer
	XREF	_LVOWrite
	XREF	_p%padout

	XDEF	_p%writebool
_p%writebool:

	tst.b	d0
	beq.s	1$
	move.l	#TrueText,d2
	moveq	#4,d3
	bra.s	2$
1$	move.l	#FalseText,d2
	moveq	#5,d3
2$	move.l	6(sp),d1
	move.w	4(sp),d0
	ext.l	d0
	sub.l	d3,d0
	ble.s	3$
	jsr	_p%padout
3$	move.l	_p%DOSBase,a6
	jsr	_LVOWrite(a6)
	rts

	SECTION	TWO,DATA
TrueText	dc.b	'TRUE'
FalseText	dc.b	'FALSE'
	END