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

1.3 KiB

// Block Type: FC
// Block Name (Original): BlenderCtrl_All Auto
// Block Number: 2036
// Original Network Languages: STL

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

VAR_TEMP
  Dim_HMI_Device : Int;
  PDim_HMI_Device : DWord;
  Dim_HMI_PID : Int;
  PDim_HMI_PID : DWord;
END_VAR

BEGIN

  // Network 1: Devices (Original Language: STL)
  //   DEVICE

  // --- BEGIN STL Network 1 ---
   
     	AUF	"HMI_Device"
     	L_DBLG
     	T	"Dim_HMI_Device"
     	L	P#0.0
     	L	"Dim_HMI_Device"
     	SLD	3
     	ADD_D
     	T	"PDim_HMI_Device"
     	L	P#0.0
     	LAR1_ACCU1
     M100:   		SET
     	S	DBX[AR1,P#0.0]
     	R	DBX[AR1,P#0.1]
     	ADDAR1	P#2.0
     	TAR1_ACCU1
     	L	"PDim_HMI_Device"
     	LT_D
     	JC	M100
   
  // --- END STL Network 1 ---

  // Network 2: PID (Original Language: STL)

  // --- BEGIN STL Network 2 ---
   
     	AUF	"HMI_PID"
     	L_DBLG
     	T	"Dim_HMI_PID"
     	L	P#0.0
     	L	"Dim_HMI_PID"
     	SLD	3
     	ADD_D
     	T	"PDim_HMI_PID"
     	L	P#0.0
     	LAR1_ACCU1
     M101:   		SET
     	R	DBX[AR1,P#2.0]
     	R	DBX[AR1,P#3.0]
     	L	0.0
     	T	DBD[AR1,P#28.0]
     	ADDAR1	P#76.0
     	TAR1_ACCU1
     	L	"PDim_HMI_PID"
     	LT_D
     	JC	M101
   
  // --- END STL Network 2 ---

END_FUNCTION