; (4,a7)  - dst str
; (8,a7)  - format str
; (12,a7) - list

	xdef	_StringF
	xdef	_VStringF

_VStringF
_StringF	movem.l	a2-a3/a6,-(a7)
	movea.l	(4+12,a7),a3
	movea.l	(8+12,a7),a0
	lea	(12+12,a7),a1
	lea	(copychar,pc),a2
	movea.l	4.w,a6
	jsr	(-522,a6)
	move.l	a3,d0
	movem.l	(a7)+,a2-a3/a6
	rts

copychar	move.b	d0,(a3)+
	rts