3、寄存器源程序alarm-reg.txt

该数字闹钟包括以下几个组成部分: (1) 显示屏,由6个七段数码管组成,用于显示当前时间(时 分 秒)或设置的闹钟时间 (2) KEY键:用于输入新的时间或新的闹钟时间时,对每位输入数字的确认 (3)

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
PACKAGE P_ALARM IS
SUBTYPE T_DIGITAL IS INTEGER RANGE 0 TO 9;
SUBTYPE T_SHORT IS INTEGER RANGE 0 TO 65535;
TYPE T_CLOCK_TIME IS ARRAY(5 DOWNTO 0)OF T_DIGITAL;
TYPE T_DISPLAY IS ARRAY (5 DOWNTO 0)OF T_DIGITAL;
END PACKAGE P_ALARM;
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE WORK.P_ALARM.ALL;
ENTITY ALARM_REG IS
  PORT(NEW_ALARM_TIME:IN T_CLOCK_TIME;
       LOAD_NEW_A:IN STD_LOGIC;
       CLK:IN STD_LOGIC;
       RESET:IN STD_LOGIC;
       ALARM_TIME:OUT T_CLOCK_TIME);
       END ALARM_REG;
ARCHITECTURE ART OF ALARM_REG IS
  BEGIN
  PROCESS(CLK,RESET)IS
  BEGIN
    IF RESET='1'THEN
    ALARM_TIME(5)<=0;
    ALARM_TIME(4)<=0;
    ALARM_TIME(3)<=0;
    ALARM_TIME(2)<=0;
    ALARM_TIME(1)<=0;
    ALARM_TIME(0)<=0;
  ELSE
    IF RISING_EDGE(CLK)THEN
    IF LOAD_NEW_A='1' THEN
      ALARM_TIME<=NEW_ALARM_TIME;
    ELSIF LOAD_NEW_A/='0'THEN
   ASSERT FALSE REPORT "UNCERTAIN LOAD_NEW_ALARM CONTROL!"
    SEVERITY WARNING;
  END IF;
END IF;
END IF;
END PROCESS;
END ARCHITECTURE ART;