Advertisement
Guest User

Untitled

a guest
Jan 5th, 2019
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 0.99 KB | None | 0 0
  1. tpON(IN:=xON , PT:= tTIME_ON, Q=>, ET=> );
  2. tpOFF(IN:=xOFF , PT:= tTIME_OFF, Q=> , ET=> );
  3. xON_OUT:=tpON.Q AND NOT xSTATE AND NOT xERROR;
  4. xOFF_OUT:=tpOFF.Q AND xSTATE;
  5. ftON(CLK:=tpON.Q , Q=> );
  6. ftOFF(CLK:=tpOFF.Q , Q=> );
  7. rsTIME_OUT(SET:=ftON.Q AND NOT xSTATE , RESET1:=ftOFF.Q AND xSTATE , Q1=> );
  8. rsSTATE_EXPECTED(SET:= , RESET1:= , Q1=> );
  9. ftENABLE(CLK:=xEnable , Q=> );
  10.  
  11.  
  12.  
  13. IF xENABLE AND NOT xERROR AND NOT xTIME_OUT  THEN
  14.     IF  NOT tpon.q AND NOT tpoff.Q THEN
  15.         IF xLOCAL_CONTROL THEN
  16.                 IF NOT xVISU_CONTROL THEN
  17.                     IF NOT xSTATE THEN
  18.                         xON:=xLOCAL_CONTROL_ON;
  19.                         rsSTATE_EXPECTED.SET:=xLOCAL_CONTROL_ON;
  20.  
  21.                     ELSE
  22.                         xOFF:=xLOCAL_CONTROL_OFF;
  23.                         rsSTATE_EXPECTED.RESET1:=xLOCAL_CONTROL_OFF;
  24.                     END_IF
  25.                 ELSE
  26.                     xON:=xLOCAL_CONTROL_ON OR xVISU_CONTROL_ON;
  27.                     xOFF:=xLOCAL_CONTROL_OFF OR xVISU_CONTROL_OFF;
  28.                 END_IF
  29.         ELSE
  30.             xON:=xREMOTE_CONTROL_ON;
  31.             xOFF:=xREMOTE_CONTROL_OFF;
  32.         END_IF
  33.     END_IF
  34. ELSE
  35.     xON_OUT:=FALSE;
  36.     xOFF_OUT:=FALSE;
  37. END_IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement