DEVICETYPE PROCON_MM8VO NAMED "PROCON_MM8VO" TYPEID 21102
IS
%
% Typdefinition för PROCON MOD-MUX modul MM8VO till ABELKO Webmaster Pro.
%
% Denna modul har 8 0-10 V spänningsutgångar.
%
% Hur man installerar typdefinitionerna och driftsätter modulerna finns 
% beskrivet i användarmanualen, kapitel 18.7.
%
% Datablad för modulerna hittar man på Procons hemsida: 
% http://www.proconel.com/modmux.htm
%
% History: 2012-05-02 Changed maxvalue from 4096 to 4095
%
  PARAMETER
    Id :"Address"INT;
    ao1 :"Spänning 1"["V"];
    ao2 :"Spänning 2"["V"];
    ao3 :"Spänning 3"["V"];
    ao4 :"Spänning 4"["V"];
    ao5 :"Spänning 5"["V"];
    ao6 :"Spänning 6"["V"];
    ao7 :"Spänning 7"["V"];
    ao8 :"Spänning 8"["V"];
    
  PUBLIC
  
  PRIVATE
    tmp;
  BAUDRATE 19200;
  CHECKSUM MODBUS SWAPPED;

  TELEGRAM WriteOutputs NAMED "Write Outputs" IS
    QUESTION
      DATA[0] := BYTE(Id);
      DATA[1] := HEX(10);  % kommando 16(10h)
      DATA[2] := HEX(00);  %
      DATA[3] := HEX(01);
      DATA[4] := HEX(00);
      DATA[5] := HEX(08);
      DATA[6] := HEX(10);  
      
      DATA[7] <- RWORD(
        IF ao1 >= 10 THEN tmp:=4095; ELSE tmp := ao1*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[9] <- RWORD(
        IF ao2 >= 10 THEN tmp:=4095; ELSE tmp := ao2*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[11] <- RWORD(
        IF ao3 >= 10 THEN tmp:=4095; ELSE tmp := ao3*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[13] <- RWORD(
        IF ao4 >= 10 THEN tmp:=4095; ELSE tmp := ao4*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[15] <- RWORD(
        IF ao5 >= 10 THEN tmp:=4095; ELSE tmp := ao5*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[17] <- RWORD(
        IF ao6 >= 10 THEN tmp:=4095; ELSE tmp := ao6*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[19] <- RWORD(
        IF ao7 >= 10 THEN tmp:=4095; ELSE tmp := ao7*409.5; ENDIF;
        DATA := tmp;
      );
      DATA[21] <- RWORD(
        IF ao8 >= 10 THEN tmp:=4095; ELSE tmp := ao8*409.5; ENDIF;
        DATA := tmp;
      );
    

    ANSWER SIZE 8
      DATA[0] = BYTE(Id);
      DATA[1] = HEX(10);
      DATA[2] = HEX(00);
      DATA[3] = HEX(01);
      DATA[4] = HEX(00);
      DATA[5] = HEX(08);
      TIMEOUT 500
  END;
END;