27 lines
489 B
Plaintext
27 lines
489 B
Plaintext
|
_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
|