home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd6.lzh / TST / semaphores.tst < prev    next >
Text File  |  1989-12-23  |  734b  |  56 lines
  1. .( Loading Multi-tasking test...) cr
  2.  
  3. #include multi_tasking.f83
  4.  
  5. .( *** start of multi-tasking demo ***) cr
  6.  
  7. multi-tasking 
  8.  
  9. 0 SEMAPHORE synch 
  10.  
  11. 100 100 task.type TASK-1
  12. task.body
  13.   ." ** t1 waiting **" cr
  14.   synch wait
  15.   ." ** t1 terminated **" cr
  16. task.end
  17.  
  18. .( ** t1 scheduled **) cr
  19. TASK-1 t1
  20. who
  21.  
  22. 100 100 task.type TASK-2
  23. task.body
  24.   20 0 do
  25.     100 delay who 
  26.   loop
  27.   ." ** t2 terminated **" cr
  28. task.end
  29.  
  30. .( ** t2 scheduled **) cr
  31. TASK-2 t2
  32. who
  33.  
  34. 100 100 task.type TASK-3
  35. task.body
  36.   1000 delay
  37.   ." ** t3 signaling ** " cr
  38.   synch signal
  39.   ." ** t3 waiting for t2 **" cr
  40.   t2 join who
  41.   ." ** t3 terminated **" cr
  42. task.end
  43.  
  44. .( ** t3 scheduled **) cr
  45. TASK-3 t3
  46. who 
  47.  
  48. .( ** main waiting for t3 **) cr
  49. who
  50. t3 join
  51. who
  52.  
  53.  
  54. forth only
  55.  
  56.