section	"text",code

	xdef	__dofmt
pch:
	move.b	d0,(a3)+
	rts
__dofmt:
	movem.l	a3/a6,-(sp)
	move.l	a2,a3
	lea	pch(pc),a2
	move.l	4,a6
	jsr	-522(a6)
	movem.l	(sp)+,a3/a6
	rts

	END