26 lines
541 B
Plaintext
26 lines
541 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection\/FillingHead' *)
|
|
(* @SYMFILEFLAGS := '59392' *)
|
|
PROGRAM Dword_To_Bytes
|
|
VAR_INPUT
|
|
i_Dword : DWORD ;
|
|
END_VAR
|
|
VAR_OUTPUT
|
|
o_Bytes_0 : BYTE ;
|
|
o_Bytes_1 : BYTE ;
|
|
o_Bytes_2 : BYTE ;
|
|
o_Bytes_3 : BYTE ;
|
|
END_VAR
|
|
VAR
|
|
mAuxShl : DWORD ;
|
|
END_VAR
|
|
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
mAuxShl := i_Dword ;
|
|
o_Bytes_0 := DWORD_TO_BYTE(i_Dword) ;
|
|
o_Bytes_1 := DWORD_TO_BYTE(SHL(mAuxShl, 8)) ;
|
|
o_Bytes_2 := DWORD_TO_BYTE(SHL(mAuxShl, 8)) ;
|
|
o_Bytes_3 := DWORD_TO_BYTE(SHL(mAuxShl, 8)) ;
|
|
END_PROGRAM
|