22 lines
387 B
Plaintext
22 lines
387 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION _Word_To_BoolArray :ARRAY [0..15] OF BOOL
|
|
VAR_INPUT
|
|
i_Word : WORD ;
|
|
END_VAR
|
|
VAR
|
|
i : INT ;
|
|
mAuxWord : WORD ;
|
|
END_VAR
|
|
|
|
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
mAuxWord := i_Word ;
|
|
FOR i:=0 TO 15 DO
|
|
mAuxWord := SHR (i_Word, i) ;
|
|
_Word_To_BoolArray[i] := WORD_TO_BOOL (mAuxWord MOD 2) ;
|
|
END_FOR
|
|
END_FUNCTION
|