--
-- idprom.tdf
-- decode 5 address bits into ID PROM data
-- begun January 2002 by Bill Ashmanskas, U. Chicago / CDF
--

title "ID PROM";

subdesign idprom
(
  addr[4..0]	: input;
  dip[2..0]	: input;
  data[7..0]	: output;
)

begin
  case addr[] is
    when  0 => data[] = H"30";
    when  1 => data[] = H"30";
    when  2 => data[] = H"30";
    when  3 => data[7..4] = H"3"; data[3] = GND; data[2..0] = dip[];
    when  4 => data[] = H"20";
    when  5 => data[] = H"30";
    when  6 => data[] = H"37";
    when  7 => data[] = H"33";
    when  8 => data[] = H"20";
    when  9 => data[] = H"43";
    when 10 => data[] = H"44";
    when 11 => data[] = H"46";
    when 12 => data[] = H"20";
    when 13 => data[] = H"53";
    when 14 => data[] = H"56";
    when 15 => data[] = H"54";
    when 16 => data[] = H"20";
    when 17 => data[] = H"47";
    when 18 => data[] = H"68";
    when 19 => data[] = H"6f";
    when 20 => data[] = H"73";
    when 21 => data[] = H"74";
    when 22 => data[] = H"42";
    when 23 => data[] = H"75";
    when 24 => data[] = H"73";
    when 25 => data[] = H"74";
    when 26 => data[] = H"65";
    when 27 => data[] = H"72";
    when 28 => data[] = H"20";
    when 29 => data[] = H"76";
    when 30 => data[] = H"30";
    when 31 => data[] = H"30";
  end case;
end;