26 lines
490 B
Plaintext
26 lines
490 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION OR_ArrayBool : BOOL
|
|
VAR_INPUT
|
|
i_ArrayPtr : DWORD ;
|
|
i_UpBound : INT ;
|
|
END_VAR
|
|
VAR
|
|
i : INT ;
|
|
mArrayPointer : POINTER TO BOOL ;
|
|
END_VAR
|
|
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_UpBound>191 THEN
|
|
i_UpBound := 191 ;
|
|
END_IF
|
|
OR_ArrayBool := FALSE ;
|
|
mArrayPointer := i_ArrayPtr ;
|
|
FOR i:=0 TO i_UpBound DO
|
|
mArrayPointer := i_ArrayPtr + i ;
|
|
OR_ArrayBool := OR_ArrayBool OR mArrayPointer^ ;
|
|
END_FOR;
|
|
END_FUNCTION
|