**
**	FracBlank - AmigaDOS 2.04 commodities utility screenblanker
**
**	Copyright © 1991-1992 by Olaf `Olsen' Barthel
**		All Rights Reserved
**
**	Cosmic flame fractal code derived from xlock source code
**
**	Copyright © 1988-1991 by Patrick J. Naughton.
**

CALL	macro
	xref	_LVO\1
	jsr	_LVO\1(a6)
	endm

	csect	text,0,0,1,2

	xdef	_SPrintf

_SPrintf:
	movem.l	a2/a3/a6,-(sp)

	move.l	 4+12(sp),a3
	move.l	 8+12(sp),a0
	lea	12+12(sp),a1
	lea	stuffchar(pc),a2

	move.l	(4).w,a6
	CALL	RawDoFmt

	movem.l	(sp)+,a2/a3/a6

	rts

stuffchar:
	move.b	d0,(a3)+
	rts

	xdef	_Atol

_Atol:	move.l	a0,d1

	move.l	d2,-(sp)
	move.l	a6,-(sp)

	pea.l	0

	lea.l	(sp),a0
	move.l	a0,d2

	move.l	_DOSBase(a4),a6

	CALL	StrToLong

	tst.l	d0

	bmi.b	1$

	move.l	(sp),d0

	add.w	#4,sp
	move.l	(sp)+,a6
	move.l	(sp)+,d2

	rts

1$	moveq	#0,d0

	add.w	#4,sp
	move.l	(sp)+,a6
	move.l	(sp)+,d2

	rts

	csect	__MERGED

	xref	_DOSBase

	end