home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / signals / t / p2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-19  |  800 b   |  43 lines
  1. PROGRAM P2;
  2.  
  3.  
  4. USES
  5.         PortSig;
  6.  
  7.  
  8. CONST
  9.         PortADR = 763;         (* COM2-Base 2F8H + 3 *)
  10.  
  11. VAR
  12.         sig     : PortSIGNAL;
  13.         count1,
  14.         count2  : CARDINAL;
  15.  
  16. BEGIN
  17.   count1 := 0;
  18.   sig := SignalInit( PortADR, f_P2);
  19.  
  20.   Write('P2: Waiting for Signal... ');
  21.   REPEAT
  22.     INC( count1);
  23.     count2 := 0;
  24.     REPEAT
  25.       IF SignalReceived( sig) THEN BEGIN
  26.         INC( count2);
  27.         Write('Signal received.');
  28.         ClearOwnSignal( sig);
  29.         Write('P2: Waiting for Signal... ');
  30.  
  31.         IF count2 < 5 THEN BEGIN
  32.           SendSignalTo( sig, f_P1);
  33.           WriteLn('  Signal sent to P1.');
  34.         END;
  35.       END;
  36.  
  37.     UNTIL count2 = 5;
  38.     WriteLn('-- inner Loop ended.');
  39.   UNTIL count1 = 2;
  40.  
  41.   SignalDone( sig);
  42. END (* P2 *).
  43.