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

;	assemble as 	'boot'

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

boot
	CALLEXEC SuperState
	move.l	#stacktop,sp
	CALLEXEC Disable
	CALLEXEC Forbid

	move.l	#copper,custom+cop1lch
	move.w	custom+copjmp1,d0
	move.w	#set_lo+bltpri+dmaen+bplen+copen+blten+spren+dsken+aud3en+aud2en+aud1en+aud0en,custom+dmaconw
	move.w	#set_hi+bltpri+dmaen+bplen+copen+blten+spren+aud3en+aud2en+aud1en+aud0en,custom+dmaconw
	move.w	#set_lo+all,custom+intena
	move.w	#set_hi+inten+coper,custom+intena
	move.w	#lores+bplns_1+col_en,custom+bplcon0

set_int
	move.l	#int_routine,ip3
	move.l 	#scrap_int,ip1
	move.l 	#scrap_int,ip2
	move.l 	#scrap_int,ip4
	move.l 	#scrap_int,ip5
	move.l 	#scrap_int,ip6
	move.l 	#scrap_int,ip7
	move.w	#$2000,sr
	bchg	#1,left_mouse

	move.l	#$9500,screen_pos
	move.w	#$fff,custom+color00
	move.w	#0,custom+color01

end
	jmp end
	
int_routine
	pushall	d0-d7/a0-a6
	
	btst	#6,left_mouse
	bne	not_up
	sub.l	#80*8,screen_pos
not_up
	btst	#2,right_mouse
	bne	not_down
	add.l	#80*8,screen_pos
not_down
	move.l	screen_pos,d0
	move.w	d0,plane1_lo
	swap	d0
	move.w	d0,plane1_hi
	
end_of_int
	pullall d0-d7/a0-a6
	move.w #set_lo+coper,custom+intreq
scrap_int
	rte
		
screen_pos	dc.l	0

	include	data1.src
	even