(* @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