; Ooze32

; interesting looking effect found accidentally
; when trying to do something else

; by Vince `deater` Weaver <vince@deater.net>

; zero page
GBASL	= $26
GBASH	= $27
YY	= $69
ROW_SUM = $70

HGR_X           = $E0
HGR_XH          = $E1
HGR_Y           = $E2
HGR_COLOR       = $E4
HGR_PAGE        = $E6

OUTL = $FD
OUTH = $FE
LINE = $FF

; soft-switches
FULLGR	= $C052
PAGE1	= $C054

; ROM routines

HGR2	= $F3D8
HGR	= $F3E2
HPOSN	= $F411		; (Y,X),(A)  (values stores in HGRX,XH,Y)

WAIT    = $FCA8                 ;; delay 1/2(26+27A+5A^2) us

	;================================
	; Clear screen and setup graphics
	;================================
ooze32:

	jsr	HGR		; set hi-res 140x192, page2, fullscreen
				; A and Y both 0 at end

forever:
	sta	OUTL
	sta	LINE

	lda	#$d0
	sta	OUTH


line_loop:
	lda	LINE
	jsr	HPOSN		; (Y,X),(A)  (values stores in HGRX,XH,Y)

	; first top right
	ldy	#0
out_loop:
	lda	(OUTL),Y
	sta	(GBASL),Y

	dey
	bne	out_loop

	inc	LINE
	bne	line_loop

end:
	bpl	forever