FUNCTION FC 5 : VOID
TITLE =
VERSION : 0.1
VAR_INPUT
dwDataToAdd : DWORD ;
iFifoSize : INT ;
dbToUse : BLOCK_DB ;
END_VAR
VAR_TEMP
iLoopCount : INT ;
dwPointerDec : DWORD ;
END_VAR
BEGIN
NETWORK
TITLE =
L P#4.0;
NEGD ;
T #dwPointerDec;
L #iFifoSize;
+ -2;
L P#4.0;
*D ;
LAR1 ;
OPN #dbToUse;
L #iFifoSize;
+ -2;
SHUF: T #iLoopCount;
L DBD [AR1,P#0.0];
T DBD [AR1,P#4.0];
L #dwPointerDec;
+AR1 ;
L #iLoopCount;
LOOP SHUF;
L DBD [AR1,P#0.0];
T DBD [AR1,P#4.0];
L #dwDataToAdd;
T DBD [AR1,P#0.0];
SET ;
SAVE ;
END_FUNCTION