Return to vars.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.7, 1998/12/11 22:54:32 | version 1.8, 1998/12/19 13:43:18 |
---|---|
Line 55 Create main-task has? OS [IF] 100 [ELSE | Line 55 Create main-task has? OS [IF] 100 [ELSE |
main-task | main-task |
UNLOCK tup ! LOCK | UNLOCK tup ! LOCK |
Variable udp | Variable udp \ user area size? -anton |
AUser next-task main-task next-task ! | AUser next-task main-task next-task ! |
AUser prev-task main-task prev-task ! | AUser prev-task main-task prev-task ! |