-- NewFIFODriver.sak
-- last edited by Suzuki: 28-Nov-81 22:45:19 

DIRECTORY
  FIFO: TYPE, 
  SakuraRT: TYPE, 
  SimIO: TYPE;

NewFIFODriver: MONITOR
  IMPORTS FIFO, SakuraRT, SimIO
  
  = BEGIN
  Reader: PROC
       [DataAv: SakuraRT.Handle, DataOut: SakuraRT.Handle, ReadReq: SakuraRT.Handle] = {
    data: CARDINAL;
    {ENABLE {ABORTED => GO TO Aborted};
     SimIO.WF0["  Reader started.*n"]; 
     THROUGH [0..30) DO
         SakuraRT.Delay[20]; 
         WHILE NOT (SakuraRT.GetBool[DataAv] = TRUE) DO
           SakuraRT.StandardDelay[]
           ENDLOOP; 
         SakuraRT.Put[ReadReq, NEW[BOOLEAN _ TRUE]]; 
         data _ SakuraRT.GetCard[DataOut]; 
         SimIO.WF1["%u  ", @data]; 
         SakuraRT.Delay[10]; 
         SakuraRT.Put[ReadReq, NEW[BOOLEAN _ FALSE]]
         ENDLOOP; 
     SimIO.WF0["  Reader terminated.*n"]; 
     SakuraRT.ProcessEnd[]}
    EXITS
      Aborted => SakuraRT.Abort[]}; 
  
  Writer: PROC [SpaceAv: SakuraRT.Handle, 
                WriteReq: SakuraRT.Handle, 
                DataIn: SakuraRT.Handle] = {
    i: CARDINAL;
    {ENABLE {ABORTED => GO TO Aborted};
     SimIO.WF0[" Writer started.*n"]; 
     FOR i IN [0..30) DO
         SakuraRT.Delay[20]; 
         WHILE NOT (SakuraRT.GetBool[SpaceAv] = TRUE) DO
           SakuraRT.StandardDelay[]
           ENDLOOP; 
         SakuraRT.Put[DataIn, NEW[CARDINAL _ i]]; 
         SakuraRT.Put[WriteReq, NEW[BOOLEAN _ TRUE]]; 
         SimIO.WF1["%u-  ", @i]; 
         SakuraRT.Delay[10]; 
         SakuraRT.Put[WriteReq, NEW[BOOLEAN _ FALSE]]
         ENDLOOP; 
     SimIO.WF0[" Writer terminated.*n"]; 
     SakuraRT.ProcessEnd[]}
    EXITS
      Aborted => SakuraRT.Abort[]}; 
  
  Start: PROC [Init, ReadReq, WriteReq: SakuraRT.Handle] = {
    {ENABLE {ABORTED => GO TO Aborted};
     SakuraRT.Put[ReadReq, NEW[BOOLEAN _ FALSE]]; 
     SakuraRT.Put[WriteReq, NEW[BOOLEAN _ FALSE]]; 
     SakuraRT.Delay[10]; 
     SakuraRT.Put[Init, NEW[BOOLEAN _ TRUE]]; 
     SakuraRT.Delay[5]; 
     SakuraRT.Put[Init, NEW[BOOLEAN _ FALSE]]; 
     SakuraRT.ProcessEnd[]}
    EXITS
      Aborted => SakuraRT.Abort[]};
  
  SimIO.Start[]; 
  {init: SakuraRT.Handle _ SakuraRT.Create[]; 
   write: SakuraRT.Handle _ SakuraRT.Create[]; 
   read: SakuraRT.Handle _ SakuraRT.Create[]; 
   in: SakuraRT.Handle _ SakuraRT.Create[]; 
   space: SakuraRT.Handle _ SakuraRT.Create[]; 
   data: SakuraRT.Handle _ SakuraRT.Create[]; 
   out: SakuraRT.Handle _ SakuraRT.Create[]; 
   fifo, reader, writer, start: PROCESS; 
   SakuraRT.IncCurrent[];
   fifo _ FORK FIFO.FIFOFunc[size: 100, 
                             Init: init, 
                             WriteRequest: write, 
                             ReadRequest: read, 
                             DIn: in, 
                             SpaceAv: space, 
                             DataAv: data, 
                             DOut: out];SakuraRT.CatalogProcId[fifo]; 
   SakuraRT.IncCurrent[];
   reader _ FORK Reader[DataAv: data, DataOut: out, ReadReq: read];
   SakuraRT.CatalogProcId[reader]; 
   SakuraRT.IncCurrent[];
   writer _ FORK Writer[SpaceAv: space, WriteReq: write, DataIn: in];
   SakuraRT.CatalogProcId[writer]; 
   SakuraRT.IncCurrent[];
   start _ FORK Start[Init: init, ReadReq: read, WriteReq: write];
   SakuraRT.CatalogProcId[start]; 
   SakuraRT.DecCurrent[]; 
   SakuraRT.Join[fifo]; 
   SakuraRT.Join[reader]; 
   SakuraRT.Join[writer]; 
   SakuraRT.Join[start]; 
   SakuraRT.IncCurrent[]}; 
  SimIO.Stop[]
  END.