
-- cift2.occ -- CIF test 2, occam bits

#INCLUDE "cif.module"

#PRAGMA EXTERNAL "PROC CIF.first.process (CHAN INT out!) = 1024"
#PRAGMA EXTERNAL "PROC CIF.second.process (CHAN INT in?, out!) = 1024"
#PRAGMA EXTERNAL "PROC CIF.third.process (CHAN INT in?, CHAN BYTE out!) = 2048"

PROC cift2 (CHAN BYTE kyb?, scr!, err!)
  CHAN INT c, d:
  PAR
    CIF.first.process (c!)
    CIF.second.process (c?, d!)
    CIF.third.process (d?, scr!)
    SEQ
      SKIP
:

