-- Copyright © 1993 by  McGraw-Hill, Inc. and Zainalabedin Navabi

-- FIGURE 9.11 




-- DECLARATION OF PAR_UTILITIES PACKAGE OF PAR_LIBRARY :

LIBRARY cmos;
USE cmos.basic_utilities.ALL;
--
PACKAGE par_utilities IS
  FUNCTION "XOR" (a, b : qit) RETURN qit ;
  --
  FUNCTION "AND" (a, b : qit_vector) RETURN qit_vector;
  FUNCTION "OR" (a, b : qit_vector) RETURN qit_vector;
  FUNCTION "NOT" (a : qit_vector) RETURN qit_vector;
  --
  SUBTYPE nibble IS qit_vector (3 DOWNTO 0);
  SUBTYPE byte IS qit_vector (7 DOWNTO 0);
  SUBTYPE twelve IS qit_vector (11 DOWNTO 0);
  --
  SUBTYPE wired_nibble IS wired_qit_vector (3 DOWNTO 0);
  SUBTYPE wired_byte IS wired_qit_vector (7 DOWNTO 0);
  SUBTYPE wired_twelve IS wired_qit_vector (11 DOWNTO 0);
  --
  SUBTYPE ored_nibble IS ored_qit_vector (3 DOWNTO 0);
  SUBTYPE ored_byte IS ored_qit_vector (7 DOWNTO 0);
  SUBTYPE ored_twelve IS ored_qit_vector (11 DOWNTO 0);
  --
  CONSTANT zero_4 : nibble := "0000";
  CONSTANT zero_8 : byte := "00000000";
  CONSTANT zero_12 : twelve := "000000000000";
  --
  FUNCTION add_cv (a, b : qit_vector; cin : qit) RETURN qit_vector;
  FUNCTION sub_cv (a, b : qit_vector; cin : qit) RETURN qit_vector;
  --
  FUNCTION set_if_zero (a : qit_vector) RETURN qit;
  --
END par_utilities;
--