%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for IVT REGO 5002, 5003, 5004, 5005
%
% Settings module:
%       Parity: None
%       Baud:   9600
%       Mode:   RTU
%
% READ Analog input 21-40 (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 IvtRego5005AI2 NAMED "IVTREGO AI21-40" TYPEID 21343 IS

  PARAMETER
    Id :"Adress";

  PUBLIC
  R21 :  "Larm Minnesbatt";  %30021 Larm21, Minnesbatteri dåligt
  R22 :  "Larm Systemlösn";  %30022 Larm22, Ogiltig systemlösning
  R23 :  "Larm Handl. Utg";  %30023 Larm23, Utgång i handläge
  R24 :  "Larm T8Hög Vut" ;  %30024 Larm24, T8 värme ut hög temperatur
  R25 :  "Larm T3Hög ST"  ;  %30025 Larm25, T3 slingtank hög temperatur
  R26 :  "Larm Konden.sil";  %30026 Larm26, Kondensor igensatt sil
  R27 :  "Larm Kondensflö";  %30027 Larm27, Kondensflöde för stort
  R28 :  "Larm Förång.sil";  %30028 Larm28, Förångare igensatt sil
  R29 :  "Larm E21 Gå.Tid";  %30029 Larm29, E21 för kort gångtid
  R30 :  "Larm E11 Låg te";  %30030 Larm30, E11 tillskott låg temperatur
  R31 :  "Larm T9Hög Vin" ;  %30031 Larm31, T9 värme in hög temperatur
  R32 :  "Larm T10LågKBin";  %30032 Larm32, T10 köldbärare in låg temperatur
  R33 :  "Larm T11LågKBut";  %30033 Larm33, T11 köldbärare ut låg temperatur
  R34 :  "Larm G2Överhet.";  %30034 Larm34, G2 överhettad
  R35 :  "AI1-mode (0-4)" ;  %30035 AI1: Används ej, T3 slingtank, T3 regulator, T18 regulator, T18 VPshunt
  R36 :  "Värmepumpstyp"  ;  %30036 Värmepumpstyp: 1F[0], 2F[1]
  R37 :  "Tillskottstyp"  ;  %30037 Tillskottstyp: Ingen[0], El[1], Olja[2], FJV[3]
  R38 :  "Eftervärme VV"  ;  %30038 Eftervärmning VV: Ingen[0], El[1], FJV[2]
  R39 :  "Värme VV steg2" ;  %30039 Värmning VV steg2: Ingen[0], Hetgas[1]
  R40 :  "Värme VV steg1" ;  %30040 Värmning VV steg1: Ingen[0], Värmepump[1]

  PRIVATE

  BAUDRATE 9600;
  CHECKSUM MODBUS SWAPPED;

  TELEGRAM ReadAI1 NAMED "Läs AI21-40" IS
  QUESTION
      DATA[0]  := BYTE(Id);      % Modbus unit address
      DATA[1]  := HEX(04);       % Modbus command "04h" Read registers
      DATA[2]  := RWORD(20);     % 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(R21:= DATA;);  %Larm21  Larmstatus i REGO
    DATA[5]  -> RWORD(R22:= DATA;);  %Larm22  1: Normal /Ej larm
    DATA[7]  -> RWORD(R23:= DATA;);  %Larm23  2: Blockerad
    DATA[9]  -> RWORD(R24:= DATA;);  %Larm24  3: Kvitterad
    DATA[11] -> RWORD(R25:= DATA;);  %Larm25  4: reserverad
    DATA[13] -> RWORD(R26:= DATA;);  %Larm26  5: Återgången
    DATA[15] -> RWORD(R27:= DATA;);  %Larm27  6: reserverad
    DATA[17] -> RWORD(R28:= DATA;);  %Larm28  7: Utlöst
    DATA[19] -> RWORD(R29:= DATA;);  %Larm29
    DATA[21] -> RWORD(R30:= DATA;);  %Larm30
    DATA[23] -> RWORD(R31:= DATA;);  %Larm31
    DATA[25] -> RWORD(R32:= DATA;);  %Larm32
    DATA[27] -> RWORD(R33:= DATA;);  %Larm33
    DATA[29] -> RWORD(R34:= DATA;);  %Larm34
    DATA[31] -> RWORD(R35:= DATA;);  %AI1
    DATA[33] -> RWORD(R36:= DATA;);  %Värmepumpstyp
    DATA[35] -> RWORD(R37:= DATA;);  %Tillskottstyp
    DATA[37] -> RWORD(R38:= DATA;);  %Eftervärmning VV
    DATA[39] -> RWORD(R39:= DATA;);  %Värmning VV steg2
    DATA[41] -> RWORD(R40:= DATA;);  %Värmning VV steg1

    TIMEOUT 1000
  END;
END;