home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / signals / t / px.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1993-01-19  |  597 b   |  37 lines
  1. PROGRAM PX;
  2.  
  3.  
  4. USES
  5.         PortSig;
  6.  
  7.  
  8. CONST
  9.         PortADR = 763;         (* COM2-Base 2F8H + 3 *)
  10.  
  11. VAR
  12.         sig     : PortSIGNAL;
  13.  
  14. VAR v : CARDINAL;
  15.  
  16. PROCEDURE FlagByParam( VAR f : PortFLAG);
  17. VAR  code : INTEGER;
  18. BEGIN
  19.   VAL( ParamStr( 1), v, code);
  20.   IF (code <> 0) OR (v < 1) OR (v > 7) THEN BEGIN
  21.     v := 0;
  22.   END;
  23.   f := PortFLAG( v);
  24. END (* FlagByParam *);
  25.  
  26. VAR flag : PortFLAG;
  27.  
  28. BEGIN
  29.   sig := SignalInit( PortADR, f_P0);
  30.  
  31.   FlagByParam( flag);
  32.   SendSignalTo( sig, flag);
  33.   WriteLn('  Signal sent to P', v, '.');
  34.  
  35.   SignalDone( sig);
  36. END (* PX *).
  37.