incdir	'include:'
	include	'libs/exec.i'
	include	'exec/exec.i'

	movem.l	d1-d7/a0-a6,-(a7)
	move.l	4,a6
	move.l	#8,d0
	move.l	#MEMF_FAST,d1
	jsr	AllocMem(a6)
	tst.l	d0
	beq.s	reset
	move.l	d0,a1
	move.l	#8,d0
	jsr	FreeMem(a6)
end	movem.l	(a7)+,d1-d7/a0-a6
	moveq	#0,d0
	rts

reset	move.l	#32,d0
	move.l	#MEMF_PUBLIC+MEMF_CLEAR,d1
	jsr	AllocMem(a6)
	tst.l	d0
	beq.s	.exit
	move.l	d0,a0
	move.l	d0,a1
	move.w	#20,d7
	lea	nameascii,a2
.loop	move.b	(a2)+,(a0)+
	dbra	d7,.loop
	move.l	#$400000,d0
	move.l	#MEMF_PUBLIC+MEMF_FAST+MEMF_24BITDMA,d1
	move.l	#10,d2
	lea	$200000,a0
	jsr	AddMemList(a6)
.exit	rts
;.exit	lea	reset2(pc),a5
;	jsr	-30(a6)

;reset2	lea	2.w,a0
;	reset
;	jmp	(a0)


nameascii
	dc.b	'personal added memory',0