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

start
	move.l	#dos_lib,a1
	CALLEXEC OpenLibrary
	move.l	d0,a6

	move.l	#fname1,d1
	move.l	#1005,d2
	jsr	open(a6)
	move.l	d0,d4
	move.l	d0,d1
	move.l	#$60000-$20,d2
	move.l	#(10*1024)+$20,d3
	jsr	load(a6)
	move.l	d4,d1
	jsr	close(a6)

	move.l	a6,a1
	CALLEXEC CloseLibrary

	lea	$60000,a0
	lea	here,a1
	move.w	#10*1024,d7
shift_boot
	move.b	(a0)+,(a1)+
	dbf	d7,shift_boot

	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 	$70000,a1
shift_it
	move.b	(a0)+,(a1)+
	dbf d7,shift_it
	rts

dos_lib	dc.b	"dos.library",0
	even
fname1	dc.b	"df0:boot",0
	even

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

boot_prog	
	lea	here(pc),a0
	move.l	#$70000,a1
	move.w	#10*1024-1,d7
move_boot
	move.b	(a0)+,(a1)+
	dbf	d7,move_boot
	jmp	$70000
here
	ds.b	10*1024