Alle COGs Starten
Verfasst: Sa 19. Dez 2015, 00:44
Code: Alles auswählen
CON
Stacklen = 16
VAR
long stack[Stacklen * 8]
byte a
PUB main
repeat a from 0 to 7
if a<>cogid
coginit(a, run, @stack + cogid * Stacklen * 4)
coginit(cogid, run, @stack + cogid * Stacklen * 4)
PRI run
case cogid
0: repeat
1: repeat
2: repeat
3: repeat
4: repeat
5: repeat
6: repeat
7: repeat