1

(* Following taken directly from the IEC 61131.3 draft standard *)

     2

     3

(*

     4

 * An IEC 61131-3 IL and ST compiler.

     5

 *

     6

 * Based on the

     7

 * FINAL DRAFT - IEC 61131-3, 2nd Ed. (2001-12-10)

     8

 *

     9

 *)

    10

    11

    12

(*

    13

 * This is part of the library conatining the functions

    14

 * and function blocks defined in the standard.

    15

 *

    16

 * Counter function blocks

    17

 * -----------------------

    18

 *)

    19

    20

    21

FUNCTION_BLOCK CTU

    22

  VAR_INPUT

    23

    CU : BOOL;

    24

    R : BOOL;

    25

    PV : INT;

    26

  END_VAR

    27

  VAR_OUTPUT

    28

    Q : BOOL;

    29

    CV : INT;

    30

  END_VAR

    31

  IF R THEN CV := 0 ;

    33

       THEN CV := CV+1;

    34

  END_IF ;

    35

  Q := (CV >= PV) ;

    36

END_FUNCTION_BLOCK

    37

    38

    39

FUNCTION_BLOCK CTD

    40

  VAR_INPUT

    41

    CD : BOOL;

    42

    LD : BOOL;

    43

    PV : INT;

    44

  END_VAR

    45

  VAR_OUTPUT

    46

    Q : BOOL;

    47

    CV : INT;

    48

  END_VAR

    49

  IF LD THEN CV := PV ;

    51

      THEN CV := CV-1;

    52

  END_IF ;

    53

  Q := (CV <= 0) ;

    54

END_FUNCTION_BLOCK

    55

    56

    57

FUNCTION_BLOCK CTUD

    58

  VAR_INPUT

    59

    CU : BOOL;

    60

    CD : BOOL;

    61

    R  : BOOL;

    62

    LD : BOOL;

    63

    PV : INT;

    64

  END_VAR

    65

  VAR_OUTPUT

    66

    QU : BOOL;

    67

    QD : BOOL;

    68

    CV : INT;

    69

  END_VAR

    70

  IF R THEN CV := 0 ;

    71

  ELSIF LD THEN CV := PV ;

    72

  ELSE

    73

    IF NOT (CU AND CD) THEN

    75

      THEN CV := CV+1;

    77

      THEN CV := CV-1;

    78

      END_IF;

    79

    END_IF;

    80

  END_IF ;

    81

  QU := (CV >= PV) ;

    82

  QD := (CV <= 0) ;

    83

END_FUNCTION_BLOCK

    84