;how to do a ColdCapture by Shagratt/LSD

	opt	o+,w-

	section reset,code

	include	system
	include	exec/execbase.i

Go:	move.l	#1024,d0
	move.l	#MEMF_CLEAR+MEMF_FAST,d1
	CALLEXEC	AllocMem
	beq	.err
	move.l	d0,Mem
	
	move.l	Mem,a0
	lea	resetcode,a1
	move.w	#256,d0
.copy	move.l	(a1)+,(a0)+
	dbf	d0,.copy

	move.l	Mem,a0
	move.l	4,a6
	move.l	a0,CoolCapture(a6)

	moveq.l	#0,d1
	lea	34(a6),a0
	move.w	#$16,d0
.calc1	add.w	(a0)+,d1
	dbf	d0,.calc1
	not.w	d1
	move.w	d1,82(a6)
	
	lea	resetnow,a5
	CALLEXEC	Supervisor
.err	rts

resetnow:	lea	2,a0
	reset
	jmp	(a0)
	
resetcode:	movem.l	d0-d7/a0-a6,-(a7)

	move.w	#$8000,d0
.again	move.w	$dff006,$dff180
	dbf	d0,.again
			
.nomore	movem.l	(a7)+,d0-d7/a0-a6
	rts

Mem:	dc.l	0