CON _clkmode = xtal1 + pll16x _XinFREQ = 5_000_000 pub main | x x := 0 repeat 64 byte[$7f40 + x] := cpr[x] byte[$7f80 + x] := cpg[x] byte[$7fc0 + x] := cpb[x] x++ cognew(@loop, 0) dat org 0 loop mov dira,pin ' main frame genaration call #reset2 mov temp3,pixel mov temp4,zero vv mov adtemp2,adf add adtemp2,temp4 rdbyte pt,adtemp2 wrbyte pt,addr4 call #cindex call #color call #oindex call #color call #clock2 add temp4,inc djnz temp3,#vv jmp #loop color rdbyte on,addr1 ' frame generation sub tjz on,#ot mov outa,r o djnz on,#o ot mov outa,one rdbyte on,addr2 tjz on,#ot2 mov outa,g o1 djnz on,#o1 ot2 mov outa,one rdbyte on,addr3 tjz on,#ot3 mov outa,b o2 djnz on,#o2 ot3 mov outa,one color_ret ret cindex rdbyte temp,addr4 mov adtemp,adr add adtemp,temp rdbyte temp2,adtemp wrbyte temp2,addr1 rdbyte temp,addr4 mov adtemp,adg add adtemp,temp rdbyte temp2,adtemp wrbyte temp2,addr2 rdbyte temp,addr4 mov adtemp,adb add adtemp,temp rdbyte temp2,adtemp wrbyte temp2,addr3 cindex_ret ret oindex wrbyte zero,addr4 oindex_ret ret clock2 mov outa,clk2 mov outa,one clock2_ret ret reset2 mov outa,reset mov outa,one reset2_ret ret pin long 31 addr1 long $7ef0 addr2 long $7ef4 addr3 long $7ef8 addr4 long $7efc adr long $7f40 adg long $7f80 adb long $7fc0 adf long $7f00 r long 6 g long 5 b long 3 on long 0 one long 7 temp long 0 adtemp long 0 temp2 long 0 pixel long 64 temp3 long 0 adtemp2 long 0 pt long 0 reset long 31 clk2 long 15 zero long 0 temp4 long 0 inc long 1 dat ' ' cpr long 000,100,100,100,100,100,080,040,020,000,000,000,000,000,000,010,040,100,100,100,100,060,020,020 long 020,020,050,030,020,050,010,010,040,010,040,050,100,002,003,008,020,000,000,020,000,020,040,002 long 008,030,000,020,001,010,005,030,010,005,005,050,001,010,040,100 cpg long 000,000,020,040,060,080,100,100,100,100,100,100,060,020,000,000,000,000,000,000,010,010,010,010 long 100,060,020,010,030,010,020,010,010,020,070,100,030,010,005,001,000,020,000,020,020,000,040,020 long 001,001,030,000,010,010,050,010,002,001,010,100,001,010,040,100 cpb long 000,000,000,000,000,000,000,000,000,000,010,100,100,100,100,100,100,100,060,020,010,010,010,030 long 020,020,001,000,000,001,000,030,020,050,090,040,080,000,000,000,000,000,040,000,020,020,002,010 long 001,001,010,001,001,001,010,002,000,000,000,010,001,010,040,100