PACKAGE my gsim logic IS TYPE my_qsim_state Is(X,0,1,2), SUBTYPE my qsim value Is qsim state state RANGE'X TO 1 TYPE my_qsim_12state IS(SXR, SXZ, SXS SXI SOR SOZ. SOI, SIR SIZ, SIS, SID; FUNCtION my gsim state from(val: my qsim 12state) RETURN my qsim state END my gsim logic, USE my qsim logic. ALL, ENTITY and2 gate IS GENERIC(OutI rs, Outl fl: time: =0 ns) PORT (inO, inl: IN my qsim 12state outl: OUT my qsim 12state) END and2 gatePACKAGE my_qsim_logic IS TYPE my_qsim_state IS (‘X’, ‘0’, ‘1’, ‘Z’); SUBTYPE my_qsim_value IS qsim_state_state RANGE ‘X’ TO ‘1’; TYPE my_qsim_12state IS (SXR, SXZ, SXS, SXI, S0R, S0Z, S0S, S0I, S1R, S1Z, S1S, S1I); FUNCTION my_qsim_state_from (val: my_qsim_12state) RETURN my_qsim_state; END my_qsim_logic; USE my_qsim_logic. ALL; ENTITY and2_gate IS GENERIC (Out1_rs, Out1_fl : time := 0 ns); PORT (in0, in1 : IN my_qsim_12state; out1 : OUT my_qsim_12state); END and2_gate;