> -- Роман М. писал(а):
> [Можно ли взглянуть на интерфейс в КП полностью?
Ахтунг.
Много букав.
## Код:
```
MODULE AsduTmaccess ["tmaccess"];      
   
   TYPE
      
      tAdrTm* = RECORD [untagged]  (* Адрес ТМ *)
         ch*:    SHORTINT;
         rtu*:   SHORTINT;
         point*: SHORTINT;
         
      END;
      
      tStatusPoint* = RECORD [untagged]
         status*:  SHORTINT;
         flags*:  CHAR;
    END;
      
   
      tAnalogPoint* = RECORD [untagged]
        asFloat*: SHORTREAL;
        asCode*:  SHORTINT;
        Flags*:   CHAR;
        Units*:   ARRAY 10 OF SHORTCHAR;
    END;

   PROCEDURE tmInit*['_tmInit@8'](IN ServerName, LocalName: 
                                                ARRAY OF SHORTCHAR): SHORTINT;

   PROCEDURE tmClose*['_tmClose@0'](): SHORTINT;
   
   PROCEDURE tmStatus*['_tmStatus@12'](Ch, RTU, Point: SHORTINT):SHORTINT;
   
   
   PROCEDURE tmSetStatus*['_tmSetStatus@24'](Ch, RTU, Point: SHORTINT; 
                                          Value: BYTE; 
                                          Time: ARRAY OF SHORTCHAR;
                                          Hund: SHORTINT): SHORTINT;   
                                                                                    
   PROCEDURE tmAnalog*['_tmAnalog@20'] (Ch, RTU, Point: SHORTINT; 
                                                Time: ARRAY OF SHORTCHAR; 
                                                RetroNum: SHORTINT): 
                                                SHORTREAL;
   
   PROCEDURE tmSetAnalog*['_tmSetAnalog@20']
                                             (Ch, RTU, Point: SHORTINT;
                                             Value: SHORTREAL;
                                             Time: ARRAY OF SHORTCHAR):
                                             SHORTINT;   

                                                   
   PROCEDURE tmAnalogFull*['_tmAnalogFull@24'] (Ch, RTU, Point: SHORTINT;
                                                VAR ap: tAnalogPoint; 
                                                Time: ARRAY OF SHORTCHAR; 
                                                RetroNum: SHORTINT): 
                                                SHORTREAL ;
                                                   
   
   PROCEDURE tmStatusFull*['_tmStatusFull@16']
                                          (Ch, RTU, Point: SHORTINT;
                                          VAR SP: tStatusPoint):SHORTINT;
         
END AsduTmaccess.
```


Сейчас буду пробовать упрощать.
По большому счёту, я эти типы понавводил чтобы приблизиться к оригиналу на Delphi

Что совсем неприятно -- пишу один к одному на Delphi --  всё работает, зараза такая...
Строго говоря, 5 из 6 процедур работают.
Мне нужна теперь только tmAnalog, либо tmAnalogFull.

При попытке выполнить tmAnalog вывод:tmAnalog= 3.402823466385289E+38
При попытке выполнить tmAnalogFull вылетает отладчик с милым сообщением:undefined real result  (81E3, 37E)