22 lines
399 B
Plaintext
22 lines
399 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION _DWord_To_BoolArray :ARRAY [0..31] OF BOOL
|
|
VAR_INPUT
|
|
i_DWord : DWORD ;
|
|
END_VAR
|
|
VAR
|
|
i : INT ;
|
|
mAuxDWord : DWORD ;
|
|
END_VAR
|
|
|
|
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
mAuxDWord := i_DWord ;
|
|
FOR i:=0 TO 31 DO
|
|
mAuxDWord := SHR (i_DWord, i) ;
|
|
_DWord_To_BoolArray[i] := DWORD_TO_BOOL (mAuxDWord MOD 2) ;
|
|
END_FOR
|
|
END_FUNCTION
|