Taqoz Reloaded v2.8 - detecting busy / idle cogs

bob_g4bby

It's sometimes useful to know how many cogs are currently available (say) to run some multi-cog dsp code. The following code requires the assembler be present in memory:-

--- checks whether cog n is idle (idle=1) or busy (idle=0)
code COGIDLE                        ( n -- idle )
    cogid a wc
    if_c mov a #0
    if_nc mov a #1
    ret
end

--- displays the status of all cogs
pub COGS?                        ( -- )
    CRLF
    8 0 DO
        I COGIDLE
        ." Cog" I . ." = "
        IF
            ." idle"
        ELSE
            ." busy"
        THEN
        CRLF
    LOOP
;

--- returns the number of cogs that are currently idle
pub COGSIDLE                    ( -- n )
0
8 0 DO
    I COGIDLE +
LOOP
;

Running COGS? will normally result in:-

TAQOZ# COGS? ---
Cog0 = busy
Cog1 = idle
Cog2 = idle
Cog3 = idle
Cog4 = idle
Cog5 = idle
Cog6 = idle
Cog7 = busy
 ok

Taqoz is running in cog 0 with a VGA screen driver running in cog 7. We could launch our dsp code to run in the remaining 6 cogs.

Christof Eb.

Thank you! That is useful!
Christof

Christof Eb.

Hi, combined that with what I have had:

: .cogs ( -- ) \ print the words running in cogs
   8 0 do
      crlf i . space 
      i cogidle if 
         ." idle"
      else
         i task w@ ?dup if 
            cfa>nfa .nfa 
         else
            ." code"
         then
      then
   loop
;

bob_g4bby

That's better!