home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / modula2 / mod2src.arc / INFINITE.MOD < prev    next >
Text File  |  1987-02-08  |  2KB  |  54 lines
  1.                                      (* Chapter 15 - Program 4 *)
  2. MODULE Infinite;                    (* Infinite Coroutine loop *)
  3.  
  4. FROM InOut IMPORT WriteCard, WriteString, WriteLn;
  5.  
  6. FROM SYSTEM IMPORT WORD, PROCESS, ADR, SIZE,
  7.                    NEWPROCESS, TRANSFER;
  8.  
  9. VAR  main, Process1, Process2 ,Process3 : PROCESS;
  10.      WorkSpace1, WorkSpace2, WorkSpace3 : ARRAY[1..300] OF WORD;
  11.      Index : CARDINAL;
  12.  
  13. PROCEDURE MainProcess;
  14. BEGIN
  15.    LOOP
  16.       WriteString('Main Process');
  17.       (* This may check the printer and send another character  *)
  18.       (* for printing if it is ready.                           *)
  19.       TRANSFER(Process1,Process2);
  20.       WriteLn;
  21.    END;
  22. END MainProcess;
  23.  
  24. PROCEDURE SubProcess;
  25. BEGIN
  26.    LOOP
  27.       WriteString(' SubProcess');
  28.       (* This may check to see if there are any additional      *)
  29.       (* characters to be read from the keyboard.               *)
  30.       TRANSFER(Process2,Process3);
  31.    END;
  32. END SubProcess;
  33.  
  34. PROCEDURE ThirdProcess;
  35. BEGIN
  36.    LOOP
  37.       WriteString(' ThirdProcess');
  38.       (* This may check to see if there was another update in    *)
  39.       (* the clock requiring service by the system.              *)
  40.       TRANSFER(Process3,Process1);
  41.    END;
  42. END ThirdProcess;
  43.  
  44. BEGIN   (* Main Module Body *)
  45.    NEWPROCESS(MainProcess,ADR(WorkSpace1),SIZE(WorkSpace1),
  46.               Process1);
  47.    NEWPROCESS(SubProcess,ADR(WorkSpace2),SIZE(WorkSpace2),
  48.               Process2);
  49.    NEWPROCESS(ThirdProcess, ADR(WorkSpace3),SIZE(WorkSpace3),
  50.               Process3);
  51.    TRANSFER(main,Process1);
  52.    (* Note that we never return here, we stay in the status loop *)
  53. END Infinite.
  54.