23 lines
414 B
Plaintext
23 lines
414 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection\/FillingHead' *)
|
|
(* @SYMFILEFLAGS := '59392' *)
|
|
PROGRAM Word_To_Bytes
|
|
VAR_INPUT
|
|
i_Word : WORD ;
|
|
END_VAR
|
|
VAR_OUTPUT
|
|
o_Bytes_0 : BYTE ;
|
|
o_Bytes_1 : BYTE ;
|
|
END_VAR
|
|
VAR
|
|
mAuxShl : WORD ;
|
|
END_VAR
|
|
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
mAuxShl := i_Word ;
|
|
o_Bytes_0 := WORD_TO_BYTE(i_Word) ;
|
|
mAuxShl := SHR(mAuxShl, 8) ;
|
|
o_Bytes_1 := WORD_TO_BYTE(mAuxShl) ;
|
|
END_PROGRAM
|