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