opt c+,d+

; ***********standard equates************

custom 	= $dff000
bplcon0	= $100
bplcon1	= $102
bplcon2	= $104
bpl1mod 	= $108
ddfstrt	= $092
ddfstop	= $094
diwstrt	= $08e
diwstop	= $090
vposr	= $004
colour00	= $180
colour01	= $182
colour02 	= $184
colour03	= $186
dmacon	= $096
cop1lch	= $080
copjmp1 	= $088

; ************************************

	lea custom,a0
	move.w #$1200,bplcon0(a0)
	move.w #$0,bplcon1(a0)
	move.w #$0,bpl1mod(a0)
	move.w #$0038,ddfstrt(a0)
	move.w #$00d0,ddfstop(a0)
	move.w #$2c81,diwstrt(a0)
	move.w #$f4c1,diwstop(a0)
	move.w #$0f00,colour00(a0)
	move.w #$0ff0,colour01(a0)

;
; fill bit-plane with $ff00ff00 to produce stripes
;

	move.l #$21000,a1
	move.l #$00000000,d0
	move.w #2000,d1

loop:	move.l d0,(a1)+
	subq.w #1,d1
	bne loop

;
; set copper list at $20000
;
poop:	
	move.l #$20000,a1
	lea copperl,a2
cloop:	move.l (a2),(a1)+
	cmpi.l #$fffffffe,(a2)+
	bne cloop
	
;
; point copper at copper list
;

	move.l #$20000,cop1lch(a0)
	move.w copjmp1(a0),d0

;
; start DMA
;

	move.w #$8380,dmacon(a0)

;
; try and make the fuckin thing move !!!
;
	addq.w #2,ch1
	addq.w #2,ch2
	addq.w #2,ch3
	addq.w #2,ch4
	addq.w #2,ch5
	addq.w #2,ch6
	addq.w #2,ch7
	addq.w #2,ch8
	addq.w #2,ch9
	addq.w #2,cha
	addq.w #2,chb
	addq.w #2,chc
	addq.w #2,chd
	addq.w #2,che
	addq.w #2,chf
	
	bra poop



;
; this is the data for the copper list
;
copperl:
	dc.w $00e0,$0002
	dc.w $00e2,$1000
	dc.w $0180,$0000
ch1:	dc.w $9601,$ff00
	dc.w $0180,$022f
ch2:	dc.w $9801,$ff00
	dc.w $0180,$044f
ch3:	dc.w $9a01,$ff00
	dc.w $0180,$066f
ch4:	dc.w $9c01,$ff00
	dc.w $0180,$088f
ch5:	dc.w $9e01,$ff00
	dc.w $0180,$0aaf
ch6:	dc.w $a001,$ff00
	dc.w $0180,$0ccf
ch7:	dc.w $a201,$ff00
	dc.w $0180,$0fff
ch8:	dc.w $a401,$ff00
	dc.w $0180,$0ccf
ch9:	dc.w $a601,$ff00
	dc.w $0180,$0aaf
cha:	dc.w $a801,$ff00
	dc.w $0180,$088f
chb:	dc.w $aa01,$ff00
	dc.w $0180,$066f
chc:	dc.w $ac01,$ff00
	dc.w $0180,$044f
chd:	dc.w $ae01,$ff00
	dc.w $0180,$022f
che:	dc.w $b001,$ff00
	dc.w $0180,$000f
chf:	dc.w $b201,$ff00
	dc.w $0180,$0000
	dc.w $ffff,$fffe