-- ############################################################################ -- # Project : VHDL-Modellbibliothek # -- # # -- # Filename : fog_sync_counter.vhd # -- # # -- # Schaltung : synchroner Auf-/Abwaertszaehler mit festvorgegebener # -- # oberer Grenze (Modulo Zaehler) # -- # # -- # Modell : fog_sync_counter # -- # # -- # Designer : Wolfgang Sehr; ueberarbeitet von Stefan Schmechtig # -- # Abteilung : Lehrstul fuer rechnergestuetzten Schaltungsentwurf # -- # Datum : 22.02.1995 # -- ############################################################################ -- ############################################################################ -- # IEEE PACKAGES # -- ############################################################################ Library IEEE; use IEEE.std_logic_1164.all; use IEEE.std_logic_arith.all; -- ############################################################################ -- ############################################################################ -- # PROJECT - SPEZIFISCHE PACKAGES # -- ############################################################################ use WORK.local.all; -- ############################################################################ ENTITY fog_sync_counter IS GENERIC (MAX: INTEGER := @MAX); -- MAX: hoechster zulaessiger -- Wert fuer den Zaehler- -- inhalt PORT (takt : IN STD_LOGIC; reset : IN STD_LOGIC; mode : IN STD_LOGIC; zaehlwert : OUT UNSIGNED(LOG_2(MAX) DOWNTO 0); null_detect : OUT STD_LOGIC ); -- takt : Taktsignal -- : -- reset : asynchrones Ruecksetzsignal -- : -- mode : Port zum Auswaehlen des Zaehlmodus: -- : o mode = '1': Aufwaerts zaehlen -- : o mode = '0': Abwaerts zaehlen -- : -- zaehlwert : Ausgangssignal fuer den aktuellen -- : Zaehlerinhalt -- : -- null_detect : zeigt an, dass der Zaehlerinhalt den -- : Wert 0 besizt END fog_sync_counter; ARCHITECTURE verhalten OF fog_sync_counter IS SIGNAL zaehlwert_intern : UNSIGNED(LOG_2(MAX) DOWNTO 0); -- zaehlwert_intern : Signal mit selben Inhalt wie dar Ausgangs- -- : port 'zaehlwert'; Ausgangsports koennen -- : nicht gelesen werden BEGIN PROCESS(zaehlwert_intern) -- ------------------------------------------------------------- -- Bestimmung des asynchronen Ausgangssignals 'null_detect' -- ------------------------------------------------------------- VARIABLE null_detect_var : STD_LOGIC; BEGIN IF (zaehlwert_intern = CONV_UNSIGNED(0, zaehlwert_intern'LENGTH)) THEN null_detect_var := '1'; ELSE null_detect_var := '0'; END IF; null_detect <= null_detect_var; END PROCESS; PROCESS(takt, reset) VARIABLE zaehlwert_intern_var : UNSIGNED(LOG_2(MAX) DOWNTO 0); BEGIN IF (takt='1') AND (takt'EVENT) THEN zaehlwert_intern_var := zaehlwert_intern; IF (reset = '1') THEN zaehlwert_intern_var := CONV_UNSIGNED(0, zaehlwert'LENGTH); ELSE IF (mode = '1') AND (CONV_INTEGER(zaehlwert_intern_var) < MAX) THEN zaehlwert_intern_var := zaehlwert_intern_var + 1; ELSIF (mode = '0') AND (CONV_INTEGER(zaehlwert_intern) < MAX) THEN zaehlwert_intern_var := zaehlwert_intern_var - 1; ELSE zaehlwert_intern_var := CONV_UNSIGNED(0, zaehlwert_intern'LENGTH); END IF; END IF; zaehlwert_intern <= zaehlwert_intern_var; END IF; END PROCESS; zaehlwert <= zaehlwert_intern; END verhalten; CONFIGURATION CFG_fog_sync_counter OF fog_sync_counter IS FOR verhalten END FOR; END CFG_fog_sync_counter;