-- FILE NAME:        waves_device_SN54S138.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_y0 => return "Y0" ;
            when TP_y1 => return "Y1" ;
            when TP_y2 => return "Y2" ;
            when TP_y3 => return "Y3" ;
            when TP_y4 => return "Y4" ;
            when TP_y5 => return "Y5" ;
            when TP_y6 => return "Y6" ;
            when TP_y7 => return "Y7" ;
            when TP_a => return "A" ;
            when TP_b => return "B" ;
            when TP_c => return "C" ;
            when TP_g1 => return "G1" ;
            when TP_g2a => return "G2A" ;
            when TP_g2b => return "G2B" ;
        end case ;
    end ;

    function header (input: Integer) return String is
    begin
        case input is
            when 1 => return "--                Y Y Y Y Y Y Y Y A B C G G G" ;
            when 2 => return "--                0 1 2 3 4 5 6 7 . . . 1 2 2" ;
            when 3 => return "--                . . . . . . . . . . . . A B" ;
            when others => return "--                . . . . . . . . . . . . . ." ;
        end case ;
    end ;
    

end Waves_Device ;