Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O&U - SAE196 (cip integrato)/Source/source/CarboWaterLine_Seq.md

// Block Type: FC
// Block Number: 1802
// Original Network Languages: LAD, STL

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

VAR_INOUT
  mStep_Number : Int;
  mTimer : Int;
  mTransition : Bool;
END_VAR

VAR_TEMP
  mAuxTimer : Int;
  __PlcmigTempFillBits_2B0 : Array[0..7] of Bool;
END_VAR

BEGIN

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

  // --- BEGIN STL Network 1 ---
   
     	L	"mStep_Number"
     	JL	LEND
     	JU	ST00
     	JU	ST01
     	JU	ST02
     LEND:   		JU	FULL
     FULL:   		L	0
     	T	"mStep_Number"
     	JU	END
   
  // --- END STL Network 1 ---

  // Network 2: STEP 00 (Original Language: LAD)
  //   Step 0: Wait To Carbonate Water Line

  IF "AUX FALSE" THEN
    "gSP_RVN301" := TRUE;
  END_IF;

  IF "AUX FALSE" AND "Disable_Bit" THEN
    "gSP_AVM322" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_PPN301" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_AVM326" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_CarboPipe_En" := TRUE;
  END_IF;

  IF "AUX FALSE" THEN
    "gSP_AVN328" := TRUE;
  END_IF;

  // Network 3: STEP 00 (Original Language: LAD)

  IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
    "gSP_PPN305" := TRUE;
  END_IF;

  IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
    "gSP_RVN301_1" := TRUE;
  END_IF;

  // Network 4: STEP 00 (Original Language: LAD)

  SEL_I(G := Eq("HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_CoolerControl", 1) OR Eq("HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_CoolerControl", 3), IN0 := 0, IN1 := 0);

  // Network 5: STEP 00 (Original Language: STL)

  // --- BEGIN STL Network 5 ---
   
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_2B0"[0]
     	BLD	103
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_2B0"[1]
     	BLD	103
     	A	"Procedure_Variables".CarboWaterLine.Wait
     	=	"__PlcmigTempFillBits_2B0"[2]
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBits_2B0"[3]
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 5 ---

  // Network 6: STEP 01 (Original Language: LAD)
  //   Step 1: Wait To Carbonate Water Line

  IF "AUX TRUE" THEN
    "gSP_RVN301" := TRUE;
  END_IF;

  IF "AUX TRUE" THEN
    "gSP_PPN301" := TRUE;
  END_IF;

  IF "AUX TRUE" THEN
    "gSP_AVM326" := TRUE;
  END_IF;

  IF "AUX TRUE" THEN
    "gSP_CarboPipe_En" := TRUE;
  END_IF;

  IF "AUX TRUE" THEN
    "gSP_AVN328" := TRUE;
  END_IF;

  // Network 7: STEP 01 (Original Language: LAD)

  IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
    "gSP_PPN305" := TRUE;
  END_IF;

  IF "HMI_Blender_Parameters"."Processor_Options"."Blender_OPT"."_DoubleDeair" THEN
    "gSP_RVN301_1" := TRUE;
  END_IF;

  // Network 8: STEP 01 (Original Language: STL)

  // --- BEGIN STL Network 8 ---
   
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_2B0"[0]
     	BLD	103
     	A	"AUX TRUE"
     	=	"__PlcmigTempFillBits_2B0"[1]
     	BLD	103
     	A	"Procedure_Variables".CarboWaterLine.Wait
     	=	"__PlcmigTempFillBits_2B0"[2]
     	BLD	103
     	A	CLK_0.5S
     	=	"__PlcmigTempFillBits_2B0"[3]
     	BLD	103
     	CALL	"_StepMove"
     	A	_Statusword_?
     	JC	END
   
  // --- END STL Network 8 ---

  // Network 9: STEP 02 (Original Language: LAD)
  //   Water Line Carbonation Completed

  IF "AUX TRUE" THEN
    "Procedure_Variables"."CarboWaterLine"."Done" := TRUE;
  END_IF;

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

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

END_FUNCTION