BACI System: C-- to PCODE Compiler in C, 11:30   1 Oct 2012
Source file: prod-cons.cm  Tue Dec  4 15:01:25 2018
 line  pc
   1    0  semaphore s;
   2    0  semaphore t;
   3    0  int liczba;
   4    0  
   5    0  void kons(){
   6    0  	int i;
   7    0  	for(i=0; i<10; i=i+1){
   8   14  		wait(t);
   9   16  		cout << liczba << endl;
  10   19  		signal(s);
  11   21  	}
  12   22  }
  13   23  
  14   23  void prod(){
  15   23  	int i;
  16   23  	for(i=0; i<10; i=i+1){
  17   37  		wait(s);
  18   39  		liczba=i;
  19   42  		signal(t);
  20   44  	}
  21   45  }
  22   46  
  23   46  main(){
  24   47  	initialsem(s, 1);
  25   50  	initialsem(t, 0);
  26   53  	cobegin{
  27   54  		prod(); kons();
  28   60  	}
  29   61  }