home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.uni-stuttgart.de/pub/systems/acorn/
/
Acorn.tar
/
Acorn
/
acornet
/
dev
/
forth
/
tile.spk
/
!Tile
/
test
/
semaphores
< prev
next >
Wrap
Text File
|
1992-04-18
|
798b
|
59 lines
.( Loading Multi-tasking semaphore test...) cr
#include <tile$lib>.multitask
.( *** start of multi-tasking demo ***) cr
multi-tasking
0 SEMAPHORE synch
16 16 task.type TASK-1
task.body
." ** t1 waiting **" cr
synch wait
." ** t1 terminated **" cr
task.end
.( ** t1 scheduled **) cr
TASK-1 t1
who cr
t1 .task cr
16 16 task.type TASK-2
task.body
20 0 do
100 delay who cr
loop
." ** t2 terminated **" cr
task.end
.( ** t2 scheduled **) cr
TASK-2 t2
who cr
t2 .task cr
16 16 task.type TASK-3
task.body
1000 delay
." ** t3 signaling ** " cr
synch signal
." ** t3 waiting for t2 **" cr
t2 join who cr
." ** t3 terminated **" cr
task.end
.( ** t3 scheduled **) cr
TASK-3 t3
who cr
t3 .task cr
.( ** main waiting for t3 **) cr
who cr
t3 join
who cr
forth only