(* @PATH := '\/Functions_Collection\/FillingHead' *) (* @SYMFILEFLAGS := '0' *) FUNCTION Bytes_To_Word : WORD 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) +1; Bytes_To_Word := BYTE_TO_WORD(i_Byte_0) ; Bytes_To_Word := SHL(Bytes_To_Word, 8 ) OR BYTE_TO_WORD(mPtr^) ; END_FUNCTION