(* Copyright (C) 1992, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: Card.m3                                               *)
(* Last Modified On Mon Mar  2 10:31:42 PST 1992 By kalsow     *)
(*      Modified On Thu Jul 27 17:38:00 1989 By muller         *)

MODULE Card;

IMPORT SubrangeType, Target, Tipe, Int;

PROCEDURE Initialize () =
  BEGIN
    T := SubrangeType.New (0, Target.MAXINT, Int.T);
    Tipe.Define ("CARDINAL", T, TRUE);
  END Initialize;

BEGIN
END Card.