depth=1      ; depth
width=20     ; width in words (320/(8*2))
height=256   ; height in lines

; INPUT
; a6=$dff000
; d0=screen addr

fill:	addi.w #[[width*height]*depth]-2,d0
.bwait:	btst #6,$2(a6)
	bne.b .bwait
	move.l d0,$50(a6)
	move.l d0,$54(a6)
	clr.l $64(a6)
	move.l #$09f0000a,$40(a6)
	move.w #[depth*height*64]+[width/2],$58(a6)
	rts