_clkfreq = 80_000_000
_clkmode = xtal1 + pll8x
obj
  term: "isxtv"
  f: "sxfile"

pub CheckFreeCogs | i, x
  x~
  repeat 8
    i := cognew( @nada, 0 )
    if i < 0
      quit
    x |= |< i
  repeat i from 0 to 7
    if x & |< i
      term.str( string("free ") )
      cogstop( i )
    else
      term.str( string("busy ") )
  term.out( 13 )
  f.Open( string("sphinx.bin"), "R" )
  f.Execute( 0 )

dat  
              org       0
nada
              jmp       #nada