18 lines
390 B
Plaintext
18 lines
390 B
Plaintext
|
|
(* @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
|