org	49152

; Caleidoscope

loop	ld	d,$59		; point to mid of screen
	ld	a,h		; keep HL in 8K ROM
	and	#1f
	ld 	h,a
	out	(254),a		; also border as caleido
	inc	l		; delay repeating pattern 
	inc	l		; 1 write = 3 changes
	ldi			; set colour
delay	djnz	delay		; delay
	jr	loop		; next field