Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O.../Source/source/CIP_FlipFlop.md

5.1 KiB

// Block Type: FC
// Block Name (Original): CIP FlipFlop
// Block Number: 1812
// Original Network Languages: LAD, STL

FUNCTION "CIP_FlipFlop" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_INOUT
  mStep : Int;
  mTime : Int;
  mTransition : Bool;
END_VAR

VAR_TEMP
  Buffer : Bool;
  mProdTankMinLevel : Bool;
  mFlipFlop : Bool;
  mOverPress : Bool;
  mDummy : Bool;
  mPresetTimer : Int;
  sp : Real;
  mUnderPress : Bool;
  sp_1 : Real;
  __PlcmigTempFillBits_14B0 : Array[0..7] of Bool;
END_VAR

BEGIN

  // Network 1: STEP CONTROL (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	L	"mStep"
     	JL	LEND
     	JU	ST00
     	JU	ST01
     	JU	ST02
     	JU	ST03
     	JU	ST04
     	JU	ST05
     	JU	ST06
     	JU	ST07
     	JU	ST08
     	JU	ST09
     	JU	ST10
     	JU	ST11
     	JU	ST12
     	JU	ST13
     	JU	ST14
     	JU	ST15
     LEND:   		JU	FULL
     FULL:   		L	0
     	T	"mStep"
     	JU	END
   
  // --- END STL Network 1 ---

  // Network 2: STEP 00 First Valve open Flip Flop (Original Language: LAD)

  "gSP_AVN314" := TRUE;

  // Network 3: STEP 00 First Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 3 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 3 ---

  // Network 4: STEP 01 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 4 ---
   
     
     ST01:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 4 ---

  // Network 5: STEP 02 Second Valve open Flip Flop (Original Language: LAD)

  "gSP_AVM323" := TRUE;

  // Network 6: STEP 02 Second Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 6 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 6 ---

  // Network 7: STEP 03 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 7 ---
   
     ST03:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 7 ---

  // Network 8: STEP 04 Third Valve open Flip Flop (Original Language: LAD)

  "gSP_AVM322" := TRUE;

  // Network 9: STEP 04 Third Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 9 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 9 ---

  // Network 10: STEP 05 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 10 ---
   
     ST05:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 10 ---

  // Network 11: STEP 06 Fourth Valve open Flip Flop (Original Language: LAD)

  "gSP_AVP316" := TRUE;

  // Network 12: STEP 06 Fourth Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 12 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 12 ---

  // Network 13: STEP 07 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 13 ---
   
     ST07:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 13 ---

  // Network 14: STEP 08 FifthValve open Flip Flop (Original Language: LAD)

  "gSP_AVP344" := TRUE;

  // Network 15: STEP 08 FifthValve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 15 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 15 ---

  // Network 16: STEP 09 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 16 ---
   
     ST09:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 16 ---

  // Network 17: STEP 10 Sixth Valve open Flip Flop (Original Language: LAD)

  "gSP_AVM315" := TRUE;

  // Network 18: STEP 10 Sixth Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 18 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 18 ---

  // Network 19: STEP 11 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 19 ---
   
     ST11:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 19 ---

  // Network 20: STEP 12 Seventh Valve open Flip Flop (Original Language: LAD)

  "gSP_AVM353" := TRUE;

  // Network 21: STEP 12 Seventh Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 21 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 21 ---

  // Network 22: STEP 13 Pause Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 22 ---
   
     ST13:   		CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 22 ---

  // Network 23: STEP 14 Eighth Valve open Flip Flop (Original Language: LAD)

  "gSP_AVM369" := TRUE;

  // Network 24: STEP 14 Eighth Valve open Flip Flop (Original Language: STL)

  // --- BEGIN STL Network 24 ---
   
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 24 ---

  // Network 25: STEP 13 done (Original Language: LAD)

  "gCIP_FlipFlopDone" := "AUX FALSE";

  // Network 26: END (Original Language: STL)

  // --- BEGIN STL Network 26 ---
   
     END:    		NOP_0
   
  // --- END STL Network 26 ---

END_FUNCTION