BLUEBAR

start:

lea	copper,a0		;adr till coplista i a0
move.l 	a0,$dff080		;adr till coplista i cop1lch 
move 	$dff088,d0		;copjmp restart i d0
move 	#$83a0,$dff096		;enable dma
move.w	#$0020,$dff096		;enable dma


interupt:
cmp.b	#$10,$dff006		;read ver & hor beam position
bne	wait			
and	#1,$dff004		;read vertical msb 
beq	interupt	        ;resultat=0 hoppa tillbaka


wait:
btst	#6,$bfe001		;testa v musknapp
bne	interupt		;inte det ?,hoppa till interupt

move.l	4,a6			;avsluta
lea	gfxname,a1
jsr	-408(a6)
move.l	d0,a1
move.l	38(a1),$dff080
jsr	-414(a6)
rts

gfxname:
dc.b	'graphics.library',0
even


copper:
dc.w	$0100,$1200,$0180,$0000		;svart i color00
dc.w	$008e,$2c81,$0090,$f4c1
dc.w	$0092,$0038,$0094,$00d0
dc.w	$00e0,$0006,$00e2,$0000		;data till bplpth1,2
dc.w	$c10f,$fffe,$0180,$000f		;wait for line and reload cl		
dc.w	$c20f,$fffe,$0180,$000e
dc.w	$c30f,$fffe,$0180,$000d
dc.w	$c40f,$fffe,$0180,$000c
dc.w	$c50f,$fffe,$0180,$000b
dc.w	$c60f,$fffe,$0180,$000a
dc.w	$c70f,$fffe,$0180,$0009
dc.w	$c80f,$fffe,$0180,$0008
dc.w	$c90f,$fffe,$0180,$0007
dc.w	$d00f,$fffe,$0180,$0006
dc.w	$d10f,$fffe,$0180,$0005
dc.w	$d20f,$fffe,$0180,$0004
dc.w	$d30f,$fffe,$0180,$0003
dc.w	$d40f,$fffe,$0180,$0002
dc.w	$d50f,$fffe,$0180,$0001
dc.w	$d60f,$fffe,$0180,$0000
dc.w 	$ffff,$fffe			;wait for impossible