**
**	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.
**

	csect	text,0,0,1,2

	xref	_StackNewSetPointer

	xdef	_StackOldSetPointer
	xdef	_NewSetPointer

_StackOldSetPointer:
	movem.l	a2/a6/d2/d3,-(sp)
	move.l	_IntuitionBase(a4),a6
	movem.l	20(sp),a0/a1
	movem.l	28(sp),d0/d1/d2/d3
	move.l	_OldSetPointer(a4),a2
	jsr	(a2)
	movem.l	(sp)+,a2/a6/d2/d3
	rts

_NewSetPointer:
	move.l	a6,-(sp)
	movem.l	d0/d1/d2/d3,-(sp)
	movem.l	a0/a1,-(sp)

	jsr	_StackNewSetPointer

	add.l	#24,sp

	move.l	(sp)+,a6
	rts

	csect	__MERGED,DATA

	xref	_IntuitionBase
	xref	_OldSetPointer

	end