CON _clkmode = xtal1 + pll1x _XinFREQ = 5_000_000 OBJ text : "light engine asm" adc : "adc object" pub main text.main adc.go repeat palette pub palette | x, z repeat 1 z := 0 x := (byte[$7ee0] >> 0) & 63 repeat z from 0 to x byte[$7f00 + z] := (byte[$7ee0] >> 0) & 63 z := 0 repeat z from 0 to 63 byte[$7f00 + z] := 0