CON

  _clkmode      = xtal1 + pll16x
  _xinfreq      = 5_000_000

PUB start

  cognew(@waves, 0)

DAT

              org       0

waves         mov       dira,dira0
              mov       ctra,ctra0
              mov       frqa,frqa0
              mov       vcfg,vcfg0
              mov       vscl,vscl0
:loop         waitvid   colors,pixels
              jmp       #:loop

dira0         long      1
ctra0         long      %00001 << 26 | %111 << 23
frqa0         long      $1000_0000
vcfg0         long      %01 << 29 | 1
vscl0         long      1 << 12 | 18
colors        long      $100
pixels        long      %111110000111110000