section	ddp,code_c

doio     = -456

boot:	dc.b	"DOS",0
	dc.l	0
	dc.l	880
go:	bra.s	go2
	dc.b	"TWAR"
go2:
	movem.l	d0-d7/a0-a6,-(a7)

	move.w	#0,d7

claim:	move.l	4,a6
	move.l	#250*1000,d0
	move.l	#$10001,d1
	jsr	-198(a6)			; alloc
	move.l	d0,$80
	add.l	#1,d7
	cmp.l	#50,d7
	beq	halfmeg
	cmp.l	#$80000,d0
	blt	claim

	movem.l	(a7)+,d0-d7/a0-a6

	move.l	#$c000,36(a1)		; 36 = length
	move.l	#$70000,40(a1)		; 40 = data
	move.l	#$c2000,44(a1)		; 44 = where
	jsr	doio(a6)

	nop
	jsr	$70000
	
halfmeg:
	move.w	$dff006,$dff180
	bra	halfmeg

	dcb.b	2000,0