FUNCTION FC10: VOID

VAR_TEMP

Source : ANY;

Target : ANY;

END_VAR

BEGIN

LAR1 P#Source;

L B#16#10;
T LB[AR1,P#0.0];

L B#16#02;
T LB[AR1,P#1.0];

L 10;
T LW[AR1,P#2.0];

L 22;
T LW[AR1,P#4.0];
L P#DBX11.0;
T LD[AR1,P#6.0];

LAR1 P#Target;

L B#16#10;
T LB[AR1,P#0.0];

L B#16#02;
T LB[AR1,P#1.0];

L 10;
T LW[AR1,P#2.0];

L 33;
T LW[AR1,P#4.0];
L P#DBX202.0;
T LD[AR1,P#6.0];

CALL SFC 20 (
SRCBLK := Source,
RET_VAL := MW 12,
DSTBLK := Target
);
END_FUNCTION