FUNCTION FC 5 : INT
TITLE =
VERSION : 0.1
VAR_INPUT
aiData : ARRAY [1 .. 16 ] OF INT ;
END_VAR
VAR_TEMP
idb : INT ;
iLoopCount : INT ;
END_VAR
BEGIN
NETWORK
TITLE =return max value of aiData[1..16]
L P##aiData;
LAR1 ;
L W [AR1,P#0.0];
T #idb;
OPN DB [#idb];
L D [AR1,P#2.0];
LAR1 ;
L W [AR1,P#0.0];
L 15;
LOOP: T #iLoopCount;
TAK ;
L W [AR1,P#2.0];
<I ;
JC ns;
TAK ;
ns: +AR1 P#2.0;
L #iLoopCount;
LOOP LOOP;
TAK ;
T #RET_VAL;
SET ;
SAVE ;
END_FUNCTION