|
|
|
|
@@ -76,8 +76,7 @@ PROGRAM _CYCLIC
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
//SGC is already little endian
|
|
|
|
|
//ludUnixTimeUTC := H_TO_NDINT (gudUnixTimeUTC);
|
|
|
|
|
ludUnixTimeUTC := H_TO_NDINT (gudUnixTimeUTC);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (gudUnixTimeUTC), 4);
|
|
|
|
|
//INTERVAL
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_INTERVAL), 2);
|
|
|
|
|
@@ -90,7 +89,7 @@ PROGRAM _CYCLIC
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$1E'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0A'), 1);
|
|
|
|
|
//PLUGIN
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_PLUGIN), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
@@ -350,6 +349,261 @@ PROGRAM _CYCLIC
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//PLUGIN_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_PLUGIN_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$07'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('02'), 3);
|
|
|
|
|
//TYPE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$10'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('temperature'), 12);
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t01'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp1 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp1) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t02'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp2 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp2) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t03'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp3 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp3) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t04'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp4 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp4) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t05'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp5 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp5) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t06'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp6 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp6) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t07'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp7 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp7) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//TYPE_INSTANCE
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_TYPE_INSTANCE), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$08'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('t08'), 4);
|
|
|
|
|
//VALUES
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (PT_VALUES), 2);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$0f'), 1); //15, 24, 33, 42, 51, 60
|
|
|
|
|
//valuecount
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR ('$01'), 1);
|
|
|
|
|
//Value 1
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (VT_GAUGE), 1);
|
|
|
|
|
IF giOven2Temp8 < 32767 THEN
|
|
|
|
|
lrValue := INT_TO_REAL (giOven2Temp8) / 10.0;
|
|
|
|
|
ELSE
|
|
|
|
|
lrValue := 0;
|
|
|
|
|
END_IF;
|
|
|
|
|
memcpy (ADR (ldValue), ADR (lrValue), 4);
|
|
|
|
|
ldValue1 := 0;
|
|
|
|
|
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
|
|
|
|
|
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
|
|
|
|
|
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue1), 4);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 3 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 2 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) + 1 , 1);
|
|
|
|
|
ludNextAdr := memcpy (ludNextAdr, ADR (ldValue2) , 1);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
enStep := enSTEP_SEND;
|
|
|
|
|
|
|
|
|
|
//==========================================
|
|
|
|
|
@@ -362,7 +616,7 @@ PROGRAM _CYCLIC
|
|
|
|
|
|
|
|
|
|
IF luiStatus = 0 THEN
|
|
|
|
|
TON_Delay.IN := 1;
|
|
|
|
|
TON_Delay.PT := t#30s;
|
|
|
|
|
TON_Delay.PT := t#10s;
|
|
|
|
|
enStep := enSTEP_WAIT;
|
|
|
|
|
ELSIF luiStatus <> ERR_FUB_BUSY THEN
|
|
|
|
|
enStep := enSTEP_ERROR;
|
|
|
|
|
|