19 lines
423 B
Plaintext
19 lines
423 B
Plaintext
&ACCESS RV
|
|
DEFFCT INT REAL_TO_Output (rVal:IN )
|
|
DECL REAL rVal
|
|
DECL INT Offset,Ret
|
|
DECL INT INTS[4]
|
|
DECL CHAR Bytes[4]
|
|
Offset=0
|
|
Ret=0
|
|
CAST_TO(Bytes[],Offset,rVal)
|
|
INTS[1] = Bytes[1]
|
|
INTS[2] = Bytes[2]
|
|
INTS[2] = INTS[2]*256
|
|
INTS[3] = Bytes[3]
|
|
INTS[3] = INTS[3]*65536
|
|
INTS[4] = Bytes[4]
|
|
INTS[4] = INTS[4]*16777216
|
|
Ret=INTS[1]+INTS[2]+INTS[3]+INTS[4]
|
|
RETURN Ret
|
|
ENDFCT |
