22 lines
440 B
Plaintext
22 lines
440 B
Plaintext
|
|
(* @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
|