section ste,code_c
	incdir	df1:
	opt c-
	include gamemacros
	
	
	killsys
	Move.w	#%1000011111000000,$dff096
	lea		custom,a5
	blitwait
	move.l	#$01000000,bltcon0(a5)
	move.l	#-1,bltafwm(a5)
	move.w	#0,bltdmod(a5)
	move.l	#$70000,bltdpth(a5)
	move.w	#16*64+22,bltsize(a5)
	move.l	#newcop,$dff080
mouse:
	move.l	vposr(a5),d0			
	and.l	#$1ff00,d0
	cmp.l	#$00100,d0	
	bne.s	mouse
	move.w	#$00f,$dff180
	eor.l	#$5000,as
	eor.l	#$5000,screen

	
	bsr		clear
	bsr		scroller
	bsr		sine
	move.w	#$000,$dff180

	btst	#6,$bfe001
	bne		mouse
	ressys
	clr.l	d0
	rts
clear
	move.l	screen,a1					; dst
	blitwait
	move.l	#$01f00000,bltcon0(a5)
	move.l	#-1,bltafwm(A5)
	move.w	#0,bltdmod(a5)
	move.l	a1,bltdpth(A5)
	move.w	#117*64+22,bltsize(a5)

	Movem.l	a0-a6/d0-d7,-(a7)		
	Movem.l	RegFiller(pc),a1-a6/d0-d7
	move.l	screen,a0
	add.w	#9548,a0
	Rept	80				
	Movem.l	a1-a6/d0-d7,-(a0)
	Endr					
	Movem.l	(a7)+,a0-a6/d0-d7
	Rts
RegFiller
	Dcb.l	16,0
	
scroller
	move.l	#-1,bltafwm(a5)
	tst.l	scrolled
	bne		scrollon
	move.l	#15,scrolled
	clr.l	d0
	move.l	scrollerptr,a0
	move.b	(a0)+,d0
	cmp.b	#255,d0
	bne.s	scrollfin
	move.l	#scroll,a0
	move.b	(a0)+,d0
scrollfin
	move.l	a0,scrollerptr
	sub.b	#32,d0
	add.w	d0,d0
	lea		scrolltab(pc),a0
	move.w	(a0,d0),d0
	add.l	#font,d0
	blitwait
	move.l	#$09f00000,bltcon0(a5)
	move.w	#38,bltamod(a5)	
	move.w	#42,bltdmod(a5)	
	move.l	d0,bltapth(a5)
	move.l	#$70000,bltdpth(a5)
	move.w	#16<<6!1,bltsize(a5)
scrollon	
	blitwait
	move.w	#00,bltamod(a5)
	move.w	#00,bltdmod(a5)
	move.l	#$70000,bltdpth(a5)
	move.l	#$70002,bltapth(a5)
	move.l	#$f9f00000,bltcon0(a5)
	move.w	#16<<6!22,bltsize(a5)
	sub.l	#1,scrolled
	rts
sinmac	macro
	add.w	(a2),d6
	move.l	d7,(a3)								; fnt
	move.l	d6,(a4)								; dst
	move.l	d6,(a6)								; dst
	move.w	(a1)+,(a0)							; mask
	move.w	d0,(a5)								; size
	sub.w	(a2),d6
	add.w	d1,a2
	endm

sine
	move.l	#$70000,d7							; src
	move.l	screen,d6							; dst
	lea		locktab,a1
	add.l	#12,sinptr
	and.l	#$7fe,sinptr	
	lea		sin,a2
	add.l	sinptr,a2
	blitwait
	move.w	#42,bltamod(a5)						; fnt modula
	move.w	#42,bltcmod(a5)						; dst modula
	move.w	#42,bltdmod(a5)						; dst modula
	move.l	#$0bfa0000,Bltcon0(a5)
	move.l	#-1,bltafwm(a5)						; mask 
	move.w	#16*64+1,d0
	move.w	#4,d1
	move.w	#2,d5
	lea		bltapth(a5),a3
	lea		bltcpth(a5),a4
	lea		bltdpth(a5),a6
	lea		bltafwm(a5),a0
	lea		bltsize(a5),a5
	rept	22
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	sinmac	
	add.w	d5,d7
	add.w	d5,d6
	endr
	lea		custom,a5
	rts
newcop:
	cmove	bpl1mod,0
	cmove	bpl2mod,0
	cmove	diwstrt,$2c81
	cmove	diwstop,$2cc1
	cmove	ddfstrt,$28
	cmove	ddfstop,$d0
;	cmove	color00,$0000
	cmove	color01,$0fff
	cmove	bplcon0,$1200
	cmove	bpl1pth,$0007
as
	cmove	bpl1ptl,$2000
	end_copper
screen
	dc.l	$72000
scrolled
	dc.l	0	
scrollerptr
	dc.l	scroll
scroll
	dc.b	"FUCK OFF ",255
 even
	
scrolltab
	;		      ! " # $ %  &  '  (  )  *  +  ,  -  .  /  0  1  2  3
	dc.w	0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38
	dc.w	(16*40),2+(16*40),4+(16*40),6+(16*40),8+(16*40),10+(16*40)
	dc.w	12+(16*40),14+(16*40),16+(16*40),18+(16*40),20+(16*40),22+(16*40)
	dc.w    24+(16*40),26+(16*40),28+(16*40),30+(16*40),32+(16*40),34+(16*40)
	dc.w    36+(16*40),38+(16*40)
	dc.w	(16*80),2+(16*80),4+(16*80),6+(16*80),8+(16*80),10+(16*80)
	dc.w	12+(16*80),14+(16*80),16+(16*80),18+(16*80),20+(16*80),22+(16*80)
	dc.w    24+(16*80),26+(16*80),28+(16*80),30+(16*80),32+(16*80),34+(16*80)
	dc.w    36+(16*80),38+(16*80)
font:
	incbin	df1:gfx/font.bin	
locktab
	rept	23
	dc.w	$8000
	dc.w	$4000
	dc.w	$2000
	dc.w	$1000
	dc.w	$800
	dc.w	$400
	dc.w	$200
	dc.w	$100
	dc.w	$80
	dc.w	$40
	dc.w	$20
	dc.w	$10
	dc.w	$8
	dc.w	$4
	dc.w	$2
	dc.w	$1
	endr	
sinptr
	dc.l	0
sin
	rept	3
	dc.w	200*44,200*44,200*44,200*44,200*44,200*44,200*44,200*44
	dc.w	200*44,200*44,200*44,200*44,200*44,200*44,200*44,200*44
	dc.w	200*44,199*44,199*44,199*44,199*44,199*44,199*44,199*44
	dc.w	199*44,199*44,199*44,199*44,199*44,198*44,198*44,198*44
	dc.w	198*44,198*44,198*44,198*44,198*44,197*44,197*44,197*44
	dc.w	197*44,197*44,197*44,197*44,196*44,196*44,196*44,196*44
	dc.w	196*44,196*44,195*44,195*44,195*44,195*44,195*44,194*44
	dc.w	194*44,194*44,194*44,194*44,193*44,193*44,193*44,193*44
	dc.w	192*44,192*44,192*44,192*44,191*44,191*44,191*44,191*44
	dc.w	190*44,190*44,190*44,190*44,189*44,189*44,189*44,188*44
	dc.w	188*44,188*44,188*44,187*44,187*44,187*44,186*44,186*44
	dc.w	186*44,185*44,185*44,185*44,184*44,184*44,184*44,183*44
	dc.w	183*44,183*44,182*44,182*44,182*44,181*44,181*44,181*44
	dc.w	180*44,180*44,180*44,179*44,179*44,178*44,178*44,178*44
	dc.w	177*44,177*44,177*44,176*44,176*44,175*44,175*44,175*44
	dc.w	174*44,174*44,173*44,173*44,172*44,172*44,172*44,171*44
	dc.w	171*44,170*44,170*44,169*44,169*44,169*44,168*44,168*44
	dc.w	167*44,167*44,166*44,166*44,165*44,165*44,164*44,164*44
	dc.w	163*44,163*44,162*44,162*44,162*44,161*44,161*44,160*44
	dc.w	160*44,159*44,159*44,158*44,158*44,157*44,157*44,156
	dc.w	156*44,155*44,155*44,154*44,153*44,153*44,152*44,152*44
	dc.w	151*44,151*44,150*44,150*44,149*44,149*44,148*44,148*44
	dc.w	147*44,147*44,146*44,146*44,145*44,144*44,144*44,143*44
	dc.w	143*44,142*44,142*44,141*44,141*44,140*44,139*44,139*44
	dc.w	138*44,138*44,137*44,137*44,136*44,135*44,135*44,134*44
	dc.w	134*44,133*44,133*44,132*44,131*44,131*44,130*44,130*44
	dc.w	129*44,128*44,128*44,127*44,127*44,126*44,125*44,125*44
	dc.w	124*44,124*44,123*44,123*44,122*44,121*44,121*44,120*44
	dc.w	120*44,119*44,118*44,118*44,117*44,116*44,116*44,115*44
	dc.w	115*44,114*44,113*44,113*44,112*44,112*44,111*44,110*44
	dc.w	110*44,109*44,109*44,108*44,107*44,107*44,106*44,106*44
	dc.w	105*44,104*44,104*44,103*44,102*44,102*44,101*44,101*44
	dc.w	100*44,99*44,99*44,98*44,98*44,97*44,96*44,96*44
	dc.w	95*44,94*44,94*44,93*44,93*44,92*44,91*44,91*44
	dc.w	90*44,90*44,89*44,88*44,88*44,87*44,87*44,86*44
	dc.w	85*44,85*44,84*44,84*44,83*44,82*44,82*44,81*44
	dc.w	80*44,80*44,79*44,79*44,78*44,77*44,77*44,76*44
	dc.w	76*44,75*44,75*44,74*44,73*44,73*44,72*44,72*44
	dc.w	71*44,70*44,70*44,69*44,69*44,68*44,67*44,67*44
	dc.w	66*44,66*44,65*44,65*44,64*44,63*44,63*44,62*44
	dc.w	62*44,61*44,61*44,60*44,59*44,59*44,58*44,58*44
	dc.w	57*44,57*44,56*44,56*44,55*44,54*44,54*44,53*44
	dc.w	53*44,52*44,52*44,51*44,51*44,50*44,50*44,49*44
	dc.w	49*44,48*44,48*44,47*44,46*44,46*44,45*44,45*44
	dc.w	44*44,44*44,43*44,43*44,42*44,42*44,41*44,41*44
	dc.w	40*44,40*44,39*44,39*44,38*44,38*44,38*44,37*44
	dc.w	37*44,36*44,36*44,35*44,35*44,34*44,34*44,33*44
	dc.w	33*44,32*44,32*44,31*44,31*44,31*44,30*44,30*44
	dc.w	29*44,29*44,28*44,28*44,28*44,27*44,27*44,26*44
	dc.w	26*44,25*44,25*44,25*44,24*44,24*44,23*44,23*44
	dc.w	23*44,22*44,22*44,22*44,21*44,21*44,20*44,20*44
	dc.w	20*44,19*44,19*44,19*44,18*44,18*44,18*44,17*44
	dc.w	17*44,17*44,16*44,16*44,16*44,15*44,15*44,15*44
	dc.w	14*44,14*44,14*44,13*44,13*44,13*44,12*44,12*44
	dc.w	12*44,12*44,11*44,11*44,11*44,10*44,10*44,10*44
	dc.w	10*44,9*44,9*44,9*44,9*44,8*44,8*44,8*44
	dc.w	8*44,7*44,7*44,7*44,7*44,6*44,6*44,6*44
	dc.w	6*44,6*44,5*44,5*44,5*44,5*44,5*44,4*44
	dc.w	4*44,4*44,4*44,4*44,4*44,3*44,3*44,3*44
	dc.w	3*44,3*44,3*44,3*44,2*44,2*44,2*44,2*44
	dc.w	2*44,2*44,2*44,2*44,1*44,1*44,1*44,1*44
	dc.w	1*44,1*44,1*44,1*44,1*44,1*44,1*44,1*44
	dc.w	0*44,0*44,0*44,0*44,0*44,0*44,0*44,0*44
	dc.w	0*44,0*44,0*44,0*44,0*44,0*44,0*44,0*44
	dc.w	0*44,0*44,0*44,0*44,0*44,0*44,0*44,0*44
	dc.w	0*44,0*44,0*44,0*44,0*44,0*44,0*44,0*44
	dc.w	0*44,1*44,1*44,1*44,1*44,1*44,1*44,1*44
	dc.w	1*44,1*44,1*44,1*44,1*44,2*44,2*44,2*44
	dc.w	2*44,2*44,2*44,2*44,2*44,3*44,3*44,3*44
	dc.w	3*44,3*44,3*44,3*44,4*44,4*44,4*44,4*44
	dc.w	4*44,4*44,5*44,5*44,5*44,5*44,5*44,6*44
	dc.w	6*44,6*44,6*44,6*44,7*44,7*44,7*44,7*44
	dc.w	8*44,8*44,8*44,8*44,9*44,9*44,9*44,9*44
	dc.w	10*44,10*44,10*44,10*44,11*44,11*44,11*44,12*44
	dc.w	12*44,12*44,12*44,13*44,13*44,13*44,14*44,14*44
	dc.w	14*44,15*44,15*44,15*44,16*44,16*44,16*44,17*44
	dc.w	17*44,17*44,18*44,18*44,18*44,19*44,19*44,19*44
	dc.w	20*44,20*44,20*44,21*44,21*44,22*44,22*44,22*44
	dc.w	23*44,23*44,23*44,24*44,24*44,25*44,25*44,25*44
	dc.w	26*44,26*44,27*44,27*44,28*44,28*44,28*44,29*44
	dc.w	29*44,30*44,30*44,31*44,31*44,31*44,32*44,32*44
	dc.w	33*44,33*44,34*44,34*44,35*44,35*44,36*44,36*44
	dc.w	37*44,37*44,38*44,38*44,38*44,39*44,39*44,40*44
	dc.w	40*44,41*44,41*44,42*44,42*44,43*44,43*44,44*44
	dc.w	44*44,45*44,45*44,46*44,47*44,47*44,48*44,48*44
	dc.w	49*44,49*44,50*44,50*44,51*44,51*44,52*44,52*44
	dc.w	53*44,53*44,54*44,54*44,55*44,56*44,56*44,57*44
	dc.w	57*44,58*44,58*44,59*44,59*44,60*44,61*44,61*44
	dc.w	62*44,62*44,63*44,63*44,64*44,65*44,65*44,66*44
	dc.w	66*44,67*44,67*44,68*44,69*44,69*44,70*44,70*44
	dc.w	71*44,72*44,72*44,73*44,73*44,74*44,75*44,75*44
	dc.w	76*44,76*44,77*44,77*44,78*44,79*44,79*44,80*44
	dc.w	80*44,81*44,82*44,82*44,83*44,84*44,84*44,85*44
	dc.w	85*44,86*44,87*44,87*44,88*44,88*44,89*44,90*44
	dc.w	90*44,91*44,91*44,92*44,93*44,93*44,94*44,94*44
	dc.w	95*44,96*44,96*44,97*44,98*44,98*44,99*44,99*44
	dc.w	100*44,101*44,101*44,102*44,102*44,103*44,104*44,104*44
	dc.w	105*44,106*44,106*44,107*44,107*44,108*44,109*44,109*44
	dc.w	110*44,110*44,111*44,112*44,112*44,113*44,113*44,114*44
	dc.w	115*44,115*44,116*44,116*44,117*44,118*44,118*44,119*44
	dc.w	120*44,120*44,121*44,121*44,122*44,123*44,123*44,124*44
	dc.w	124*44,125*44,125*44,126*44,127*44,127*44,128*44,128*44
	dc.w	129*44,130*44,130*44,131*44,131*44,132*44,133*44,133*44
	dc.w	134*44,134*44,135*44,135*44,136*44,137*44,137*44,138*44
	dc.w	138*44,139*44,139*44,140*44,141*44,141*44,142*44,142*44
	dc.w	143*44,143*44,144*44,144*44,145*44,146*44,146*44,147*44
	dc.w	147*44,148*44,148*44,149*44,149*44,150*44,150*44,151*44
	dc.w	151*44,152*44,152*44,153*44,154*44,154*44,155*44,155*44
	dc.w	156*44,156*44,157*44,157*44,158*44,158*44,159*44,159*44
	dc.w	160*44,160*44,161*44,161*44,162*44,162*44,162*44,163*44
	dc.w	163*44,164*44,164*44,165*44,165*44,166*44,166*44,167*44
	dc.w	167*44,168*44,168*44,169*44,169*44,169*44,170*44,170*44
	dc.w	171*44,171*44,172*44,172*44,172*44,173*44,173*44,174*44
	dc.w	174*44,175*44,175*44,175*44,176*44,176*44,177*44,177*44
	dc.w	177*44,178*44,178*44,178*44,179*44,179*44,180*44,180*44
	dc.w	180*44,181*44,181*44,181*44,182*44,182*44,182*44,183*44
	dc.w	183*44,183*44,184*44,184*44,184*44,185*44,185*44,185*44
	dc.w	186*44,186*44,186*44,187*44,187*44,187*44,188*44,188*44
	dc.w	188*44,188*44,189*44,189*44,189*44,190*44,190*44,190*44
	dc.w	190*44,191*44,191*44,191*44,191*44,192*44,192*44,192*44
	dc.w	192*44,193*44,193*44,193*44,193*44,194*44,194*44,194*44
	dc.w	194*44,194*44,195*44,195*44,195*44,195*44,195*44,196*44
	dc.w	196*44,196*44,196*44,196*44,196*44,197*44,197*44,197*44
	dc.w	197*44,197*44,197*44,197*44,198*44,198*44,198*44,198*44
	dc.w	198*44,198*44,198*44,198*44,199*44,199*44,199*44,199*44
	dc.w	199*44,199*44,199*44,199*44,199*44,199*44,199*44,199*44
	dc.w	200*44,200*44,200*44,200*44,200*44,200*44,200*44,200*44
	dc.w	200*44,200*44,200*44,200*44,200*44,200*44,200*44,200*44
	endr