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
;
	
	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)

poop:	bra poop



;
; this is the data for the copper list
;
copperl:
	dc.w $00e0,$0002
	dc.w $00e2,$1000
	dc.w $0180,$0000
	dc.w $0182,$0000
	dc.w $9601,$ff00
	dc.w $0180,$022f
	dc.w $9801,$ff00
	dc.w $0180,$044f
	dc.w $9a01,$ff00
	dc.w $0180,$066f
	dc.w $9c01,$ff00
	dc.w $0180,$088f
	dc.w $9e01,$ff00
	dc.w $0180,$0aaf
	dc.w $a001,$ff00
	dc.w $0180,$0ccf
	dc.w $a201,$ff00
	dc.w $0180,$0fff
	dc.w $a401,$ff00
	dc.w $0180,$0ccf
	dc.w $a601,$ff00
	dc.w $0180,$0aaf
	dc.w $a801,$ff00
	dc.w $0180,$088f
	dc.w $aa01,$ff00
	dc.w $0180,$066f
	dc.w $ac01,$ff00
	dc.w $0180,$044f
	dc.w $ae01,$ff00
	dc.w $0180,$022f
	dc.w $b001,$ff00
	dc.w $0180,$000f
	dc.w $b201,$ff00
	dc.w $0180,$0000
	dc.w $ffff,$fffe