listchar 15
	nolist
	incdir	"df0:include/"
	include	hardware/custom.i
	include	exec/exec_lib.i
;	list

sysbase	equ	4

openlib	equ	-408
closelib equ	-414
open	equ	-30
load	equ	-42
close	equ	-36
save	equ	-48

ip1	equ	$0064
ip2	equ	$0068
ip3	equ	$006c
ip4	equ	$0070
ip5	equ	$0074
ip6	equ	$0078
ip7	equ	$007c

start
	move.l #690000,d7
wait_for_drive
	move.w d7,custom+color01
	sub.l #1,d7
	bne wait_for_drive

	move.w	#$100-3-1,d7
	move.l	#boot_prog,a0
loop
	move.l	(a0)+,d0
	sub.l	d0,dos_7+8
	bcc	ok
	subq.w	#1,dos_7+6
ok	
	dbf d7,loop	

	move.w	#($1600*2)-1,d7
	lea	dos_7,a0
	lea 	$60000,a1
shift_it
	move.b	(a0)+,(a1)+
	dbf d7,shift_it
	rts

dos_7	dc.w	$444f,$5300,$37fc,$bb2f,$83b3,$f1d0

boot_prog	
	
	bsr	set_copper
here
	bra	here

set_copper
	move.l #custom,a0
	lea 	setscreen,128(a0)
	move.l $88(a0),d0
	move.w #$ffff,custom+dmaconw
	move.w #$7fff,custom+intena
	move.w #$8000+$4000+$8,custom+intena
	rts


setscreen	dc.w $0100,$4200
		dc.w $0102,$0000
		dc.w $0108,$0000
		dc.w $0092,$0038
		dc.w $0094,$00d0
		dc.w $008e,$2c81
		dc.w $0090,$f4c1
		dc.w $00e0,$0004
		dc.w $00e2,$0000
		dc.w $0180,$0000
		dc.w $ffff,$fffe

workspace	equ	$40000
screen		equ	start