-- FILE NAME: waves_device_SN54S11_.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 Waves_Device is type Test_Pins is ( TP_y1, TP_y2, TP_y3, TP_a1, TP_b1, TP_c1, TP_a2, TP_b2, TP_c2, TP_a3, TP_b3, TP_c3) ; constant Device_Id : String := "SN54S11" ; type Direction_List is array (Integer'val(1) to Integer'val(Test_Pins'Pos(Test_Pins'High) + 1)) of Direction ; constant Pin_Direction : Direction_List := ( Test_Pins'Pos(TP_y1) + 1 to Test_Pins'Pos(TP_y3) + 1 => RESPONSE, Test_Pins'Pos(TP_a1) + 1 to Test_Pins'Pos(TP_c3) + 1 => STIMULUS) ; function Pin_Name (Pin : Test_Pins) return String; constant Num_Lines : Integer := 3; -- the number of lines in the header function header (input : Integer) return String ; end Waves_Device ;