DEVICETYPE SenecaZ8AI NAMED "Seneca Z-8AI" TYPEID 21011
IS 
%
% Typdefinition för Seneca modul Z-8AI till ABELKO Webmaster Pro.
%
% Denna modul har 8 analoga ingångar.
%
% Att notera vid Single ended anslutning:
% Kanal 1 ansluts plint  1-2
% Kanal 2 ansluts plint  3-2
% Kanal 3 ansluts plint  4-5
% Kanal 4 ansluts plint  6-5
% Kanal 5 ansluts plint  9-8
% Kanal 6 ansluts plint  7-8
% Kanal 7 ansluts plint 12-11
% Kanal 8 ansluts plint 10-11
%
% Hur man installerar typdefinitionerna och driftsätter modulerna finns 
% beskrivet i användarmanualen, kapitel 18.7.
%
% Datablad för modulerna hittar man på Senecas hemsida: 
% http://www.seneca.it/htm/automation.htm.
%
  PARAMETER
    Id :"Address";
  PUBLIC
    AI_1 :"AI1"  ["V"];
    AI_2 :"AI2"  ["V"];
    AI_3 :"AI3"  ["V"];
    AI_4 :"AI4"  ["V"];
    AI_5 :"AI5"  ["V"];
    AI_6 :"AI6"  ["V"];
    AI_7 :"AI7"  ["V"];
    AI_8 :"AI8"  ["V"];
%     OOR_1 :"OutOfRange AI1";
%     OOR_2 :"OutOfRange AI2";
%     OOR_3 :"OutOfRange AI3";
%     OOR_4 :"OutOfRange AI4";
%     OOR_5 :"OutOfRange AI4";
%     OOR_6 :"OutOfRange AI4";
%     OOR_7 :"OutOfRange AI4";
%     OOR_8 :"OutOfRange AI4";
  PRIVATE
  BAUDRATE 38400;
  CHECKSUM MODBUS SWAPPED;

  TELEGRAM ReadInputs NAMED "Read Inputs" IS
    QUESTION
      DATA[0] := BYTE(Id);
      DATA[1] := HEX(03);
      DATA[2] := HEX(00);
      DATA[3] := HEX(01);
      DATA[4] := HEX(00);
      DATA[5] := HEX(09);
    ANSWER SIZE 23
      DATA[0] = BYTE(Id);
      DATA[1] = HEX(03);
      DATA[2] = HEX(12);
%       DATA[3] -> RWORD(
%         IF (DATA AND 1)>0   THEN OOR_1:=1; ELSE OOR_1:=0;  ENDIF;
%         IF (DATA AND 2)>0   THEN OOR_2:=1; ELSE OOR_2:=0;  ENDIF;
%         IF (DATA AND 4)>0   THEN OOR_3:=1; ELSE OOR_3:=0;  ENDIF;
%         IF (DATA AND 8)>0   THEN OOR_4:=1; ELSE OOR_4:=0;  ENDIF;
%         IF (DATA AND 16)>0  THEN OOR_5:=1; ELSE OOR_5:=0;  ENDIF;
%         IF (DATA AND 32)>0  THEN OOR_6:=1; ELSE OOR_6:=0;  ENDIF;
%         IF (DATA AND 64)>0  THEN OOR_7:=1; ELSE OOR_7:=0;  ENDIF;
%         IF (DATA AND 128)>0 THEN OOR_8:=1; ELSE OOR_8:=0;  ENDIF;
%       );
      DATA[5]  -> RWORD(AI_1 := DATA/1000;);
      DATA[7]  -> RWORD(AI_2 := DATA/1000;);
      DATA[9]  -> RWORD(AI_3 := DATA/1000;);
      DATA[11] -> RWORD(AI_4 := DATA/1000;);
      DATA[13] -> RWORD(AI_5 := DATA/1000;);
      DATA[15] -> RWORD(AI_6 := DATA/1000;);
      DATA[17] -> RWORD(AI_7 := DATA/1000;);
      DATA[19] -> RWORD(AI_8 := DATA/1000;);
    
    TIMEOUT 300
  END;

END;