%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for IVT REGO 5002, 5003, 5004, 5005
%
% Settings module:
%       Parity: None
%       Baud:   9600
%       Mode:   RTU
%
% READ Analog input 1-20 (Alarms)
% Larmstatus i REGO
% 1: Normal /Ej larm
% 2: Blockerad
% 3: Kvitterad
% 4: reserverad
% 5: Återgången
% 6: reserverad
% 7: Utlöst
%
% Author:  Peter Widetun, ABELKO AB Luleå
% History: 2010-02-12 inital version
%
DEVICETYPE IvtRego5005AI1 NAMED "IVTREGO AI1-20" TYPEID 21342 IS

  PARAMETER
    Id :"Adress";

  PUBLIC
  R01 :  "Givarfel T1 FrL" ;  %30001 Larm01, T1 framledning givarfel
  R02 :  "Givarfel T2 UTE" ;  %30002 Larm02, T2 ute givarfel
  R03 :  "Larm T1Reg.avv." ;  %30003 Larm03, T1 regleravvikelse
  R04 :  "Larm T3Låg SliT" ;  %30004 Larm04, T3 slingtank låg temperatur
  R05 :  "Givarfel T9 Vin" ;  %30005 Larm05, T9 värme in givarfel
  R06 :  "Givarf T10 KBin" ;  %30006 Larm06, T10 köldbärare in givarfel
  R07 :  "Givarf T11 KBut" ;  %30007 Larm07, T11 köldbärare ut givarfel
  R08 :  "Larm elfel KPR"  ;  %30008 Larm08, Kompressor elfel
  R09 :  "Larm G3Överhet." ;  %30009 Larm09, G3 överhettad
  R10 :  "Givarfel T3 ST"  ;  %30010 Larm10, T3 slingtank givarfel
  R11 :  "Larm KPR överh." ;  %30011 Larm11, Kompressor överhettad
  R12 :  "Givarfel T6 Het" ;  %30012 Larm12, T6 hetgas givarfel
  R13 :  "Larm T6Hög HetG" ;  %30013 Larm13, T6 hetgas hög temperatur
  R14 :  "Givarfel T8 Vut" ;  %30014 Larm14, T8 värme ut givarfel
  R15 :  "Larm tryck Förå" ;  %30015 Larm15, Förångare lågt tryck
  R16 :  "Larm tryck Kyla" ;  %30016 Larm16, B31 lågt tryck kyla
  R17 :  "Larm sum E11 TS" ;  %30017 Larm17, E11 tillskott summalarm
  R18 :  "Larm tryck Kond" ;  %30018 Larm18, Kondensor högt tryck
  R19 :  "Larm fasfö. KPR" ;  %30019 Larm19, Kompressor fasföljdfel
  R20 :  "Larm drift G1FL" ;  %30020 Larm20, G1 framledning driftfel

  PRIVATE

  BAUDRATE 9600;
  CHECKSUM MODBUS SWAPPED;

  TELEGRAM ReadAI1 NAMED "Läs AI1-20larm" IS
  QUESTION
      DATA[0]  := BYTE(Id);      % Modbus unit address
      DATA[1]  := HEX(04);       % Modbus command "04h" Read registers
      DATA[2]  := RWORD(0);      % Start address register
      DATA[4]  := RWORD(20);     % Number of registers

  ANSWER SIZE 45
    DATA[0]   = BYTE(Id);      % ID
    DATA[1]   = HEX(04);       % Modbus command "04h" Read registers
    DATA[2]   = BYTE(40);      % Byte count
    DATA[3]  -> RWORD(R01:= DATA;);  % Larm01  Larmstatus i REGO
    DATA[5]  -> RWORD(R02:= DATA;);  % Larm02  1: Normal /Ej larm
    DATA[7]  -> RWORD(R03:= DATA;);  % Larm03  2: Blockerad
    DATA[9]  -> RWORD(R04:= DATA;);  % Larm04  3: Kvitterad
    DATA[11] -> RWORD(R05:= DATA;);  % Larm05  4: reserverad
    DATA[13] -> RWORD(R06:= DATA;);  % Larm06  5: Återgången
    DATA[15] -> RWORD(R07:= DATA;);  % Larm07  6: reserverad
    DATA[17] -> RWORD(R08:= DATA;);  % Larm08  7: Utlöst
    DATA[19] -> RWORD(R09:= DATA;);  % Larm09
    DATA[21] -> RWORD(R10:= DATA;);  % Larm10
    DATA[23] -> RWORD(R11:= DATA;);  % Larm11
    DATA[25] -> RWORD(R12:= DATA;);  % Larm12
    DATA[27] -> RWORD(R13:= DATA;);  % Larm13
    DATA[29] -> RWORD(R14:= DATA;);  % Larm14
    DATA[31] -> RWORD(R15:= DATA;);  % Larm15
    DATA[33] -> RWORD(R16:= DATA;);  % Larm16
    DATA[35] -> RWORD(R17:= DATA;);  % Larm17
    DATA[37] -> RWORD(R18:= DATA;);  % Larm18
    DATA[39] -> RWORD(R19:= DATA;);  % Larm19
    DATA[41] -> RWORD(R20:= DATA;);  % Larm20

    TIMEOUT 1000
  END;
END;