rusavtomatika.com

macro_command main()

short src[4]

//используйте GetData вместо хардкода
src[3]=0x3fd4
src[2]=0x1893
src[1]=0x74bc
src[0]=0x6a7f

short dst[2]

int sign
sign = src[3] & 0x8000

int expn
expn = (src[3]>>4) & 0x7FF

if ( ( (expn & 0x700) <> 0) and ( (expn & 0x700) <> 0x700 ) ) then
   //ПОТЕРЯ ЭКСПОНЕНТЫ!
end if


if (expn & 0x400) <> 0 then
   expn = (expn & 0x7F) | 0x80
else
   expn = expn & 0x7F
end if

int mantis
mantis = ((src[3]&15)<<19) | (src[2]<<3) | (src[1]>>13)

dst[1] = sign | (expn<<7) | (mantis>>16)
dst[0] = mantis

//сохраняем результат в LW0/LW1
SetData(dst[0], "Local HMI", LW, 0, 2)

end macro_command

   unsigned short srcf32[2]
   unsigned short destf64[4]
   
   //чтение float32 из LW40/LW41
   GetData(srcf32[0], "Local HMI", LW, 40, 2)
   
   unsigned short signf32
   unsigned int mantisf32
   unsigned short expf32
   signf32 = srcf32[1] & 0x8000
   expf32 = (srcf32[1] >> 7) & 0xFF
   expf32 = (expf32-127+1023) & 0x7FF
   mantisf32 = srcf32[0] | ((srcf32[1] & 0x7F)<<16)
      
   destf64[3] = signf32 | (expf32 << 4) | (mantisf32 >> 19)
   destf64[2] = mantisf32 >> 3
   destf64[1] = mantisf32 << 13
   destf64[0] = 0
   
   //запись float64 в LW50/LW51/LW52/LW53   
   SetData(destf64[0], "Local HMI", LW, 50, 4)