include "doorsos.h"
	xdef	_main
	xdef	_comment
	xdef	_ti89
	xdef	_ti92plus	
_main
	moveq.w	#6,d5
	lea	doorsos::ROM_base+$180000,a4
\look	add.l	#$10000,a4
	cmp.w	#$FFFF,(a4)
	beq	\makemem
	dbra	d5,\look
	bra	\no
\makemem
	move.l	a4,-(a7)
	jsr	doorsos::ArchiveErase
	addq.l #4,a7

	move.l #2,-(a7)
	move.l a4,-(a7)
	pea	buf(pc)
	jsr	doorsos::ArchiveWrite
	lea	12(a7),a7
	dbra	d5,\look
\no	rts

buf dc.w $FFFE
_comment	dc.b	"Get 64K Archive memory !",0
    end