28 lines
586 B
Plaintext
28 lines
586 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION MoveArray : BOOL
|
|
VAR_INPUT
|
|
i_InArrayPtr : DWORD ;
|
|
i_OutArrayPtr : DWORD ;
|
|
i_UpBound : INT ;
|
|
END_VAR
|
|
VAR
|
|
i : INT ;
|
|
mInArrayPointer : POINTER TO BOOL ;
|
|
mOutArrayPointer : POINTER TO BOOL ;
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_UpBound>0 AND i_UpBound<=191 THEN
|
|
FOR i:=0 TO i_UpBound DO
|
|
mInArrayPointer := i_InArrayPtr + i ;
|
|
mOutArrayPointer := i_OutArrayPtr + i ;
|
|
mOutArrayPointer^ := mInArrayPointer^ ;
|
|
END_FOR;
|
|
MoveArray := TRUE ;
|
|
ELSE
|
|
MoveArray := FALSE ;
|
|
END_IF
|
|
END_FUNCTION
|