; d1 - fh
; d2 - char

	xdef	_Out

_Out	movem.l	d2-d3/a6,-(a7)
	lea	(.buff,pc),a0
	move.b	d2,(a0)
	move.l	a0,d2
	moveq	#1,d3
	move.l	_DOSBase,a6
	jsr	(-48,a6)		; Write()
	movem.l	(a7)+,d2-d3/a6
	rts

.buff	dc.b	0,0

	xref	_DOSBase