29 lines
544 B
Plaintext
29 lines
544 B
Plaintext
|
|
(* @PATH := '\/TASK0_VOID' *)
|
|
(* @SYMFILEFLAGS := '4096' *)
|
|
FUNCTION ConvertReal : MFM_Real_Struct
|
|
VAR_INPUT
|
|
mIn_ValueFromMFM : ARRAY[0..4] OF BYTE;
|
|
END_VAR
|
|
VAR
|
|
i : INT;
|
|
p : UDINT;
|
|
mPoint : POINTER TO BYTE;
|
|
mTemp : REAL;
|
|
mTempReal : MFM_Real_Struct ;
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
mPoint := ADR(mTemp);
|
|
FOR i := 3 TO 0 BY -1
|
|
DO
|
|
mPoint^ := mIn_ValueFromMFM[i] ;
|
|
p := mPoint ;
|
|
p := p + 1 ;
|
|
mPoint := p ;
|
|
END_FOR
|
|
|
|
ConvertReal.Analog_Value := mTemp;
|
|
ConvertReal.Value_State := mIn_ValueFromMFM[4] ;
|
|
|
|
END_FUNCTION
|