(* @PATH := '\/Functions_Collection\/FillingHead' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION Bytes_To_Dword : DWORD
VAR_IN_OUT
	i_Byte_0					: BYTE ;
END_VAR
VAR
	i							: INT ;
	mPtr						: POINTER TO BYTE ;
END_VAR


(* @END_DECLARATION := '0' *)
mPtr := ADR(i_Byte_0) ;
Bytes_To_Dword := BYTE_TO_WORD(i_Byte_0) ;
FOR i:=1 TO 3 DO
	mPtr := mPtr + 1 ;
	Bytes_To_Dword := SHL(Bytes_To_Dword, 8 ) OR BYTE_TO_WORD(mPtr^) ;
END_FOR
END_FUNCTION