-- FILE NAME:                 waves_device_SN54LS112.vhd
--
--                                   DISCLAIMER
--
--        This code is the sole property of the Institute for Technology
--        Development (ITD), Jackson, Mississippi, and is distributed for
--        the purpose of providing examples of VHDL models written to
--        modeling standards.  This code may not be used for commercial
--        purposes, and may not be redistributed without permission from
--        the Institute for Technology Development.  ITD assumes no 
--        responsibility for errors, omissions, uses made, or decisions
--        based on its use.  No warranties, expressed or implied, are given.
--
--        This is a modified IEEE WAVES package.  It was written specifically
--        to describe the test pins of the model being tested.
--
--        ------------------------------------------------------------------

library WAVES_STANDARD ;
use WAVES_STANDARD.Waves_Standard.all ;
package body Waves_Device is

    function Pin_Name (Pin : Test_Pins) return String is
    begin
        case Pin is
        when TP_q1  => return "Q1" ;
        when TP_qb1 => return "QB1" ;
        when TP_q2  => return "Q2" ;
        when TP_qb2 => return "QB2" ;
        when TP_clk1    => return "CLK1" ;
        when TP_j1  => return "J1" ;
        when TP_k1  => return "K1" ;
        when TP_pr1 => return "PR1" ;
        when TP_clr1    => return "CLR1" ;
        when TP_clk2    => return "CLK2" ;
        when TP_j2  => return "J2" ;
        when TP_k2  => return "K2" ;
        when TP_pr2 => return "PR2" ;
        when TP_clr2    => return "CLR2" ;
    end case ;
    end ;

    function header (input: Integer) return String is
    begin
        case input is
            when 1 => return "--                Q Q Q Q C J K P C C J K P C" ;
            when 2 => return "--                1 B 2 B L 1 1 R L L 2 2 R L" ;
            when 3 => return "--                . 1 . 2 K . . 1 R K . . 2 R" ;
            when 4 => return "--                . . . . 1 . . . 1 2 . . . 2" ;
            when others => return "--                . . . . . . . . . . . . . ." ;
        end case ;
    end ;
    

end Waves_Device ;