程序错误，求救

淼森

下面程序中有错误，新手，不知如何解决，求解答
9 ~4 g6 p3 c5 d: e0 ilibrary ieee;
use ieee.std_logic_1164.all;
: w0 X; `/ U+ ?, j7 j. H$ J3 Nuse ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;
- \! S( C8 L6 J2 \" N, m8 @
entity mycounter_60 is
    port(clk,clr,en,bcd1wr,bcd10wr:in std_logic;
         din:in std_logic_vector(3 downto 0);
         bcd1: out std_logic_vector(3 downto 0);
0 }5 o% i$ O# ]% D; ?  @         co: out std_logic;
         bcd10: out std_logic_vector(2 downto 0));
, r" q% a; B! J8 Fend mycounter_60;
4 J) A1 r2 H& u- M
architecture art2 of mycounter_60 is
signal bcd1n:std_logic_vector(3 downto 0);
! O: `7 d; I) y, T1 _+ Hsignal bcd10n:std_logic_vector(2 downto 0);
begin
( Z/ N, ]9 W* I& V( l# V$ I    PROCESS(clk,clr,en,bcd1wr) is
    begin
8 t0 u: I- \: w% P) k  p4 C$ I        if(clr='0') then
' X0 Y6 f' V- Q9 A6 \9 Y            bcd1n<=(others=>'0');
            bcd10n<=(others=>'0');
        elsif(clk'event and clk='1') then
( q" J% D6 _% f$ s% E            if(bcd1wr='1' and en='1') then
                bcd1n<=din;
6 @/ U, e  W+ d            elsif(en='1') then
; O0 _1 L: d5 g% H8 N6 r4 j                bcd1n<=bcd1n+1;
                if(bcd1n>=9) then
                    bcd1n<="0000";
                end if;
            end if;
& y. u& o5 t* g        end if;
8 c+ a; x4 k# c& [+ s    end process;
9 R/ y/ G: G% s% ^1 H   
7 x$ }1 H  c, o6 j6 U" O    process(bcd10wr,en,bcd1n) is
* t& y' U6 Y% j+ r7 Y. T    begin
! Y- e# _% A" X$ O) R        if(bcd10wr='1' and en='1') then
            bcd10n<=din(2 downto 0);
        elsif(bcd1n=9 and en='1') then
            bcd10n<=bcd10n+1;
* T: U, @  U! l' Y; y7 [2 ]6 Q+ q            if(bcd10n=5) then
                bcd10n<="000";
                co<='1';
            else
) w+ t& w2 Y6 f                co<='0';
            end if;
        end if;
3 k9 }9 B5 V& S4 A8 P% C% t9 x8 e    end process;
   
8 o7 r; F/ `6 x4 X  Q    bcd1<=bcd1n;
    bcd10<=bcd10n;
% x% }7 r( i; }! L# j+ K2 Yend art2;

% _7 K' c6 e) |# b- x2 H" y非常感谢

alec4050

这些都是小错误，希望细心一点
library ieee;
9 @, v* }  v7 p* Luse ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsigned.all;
1 n! q/ V8 f  c# F1 aentity  mycounter_60   is
port(  clk,clr,en,bcd1wr,bcd10wr :in std_logic;
        din:in std_logic_vector(3 downto 0);
        cout std_logic;
       bcd1 ut std_logic_vector(3 downto 0);
0 |4 `% o  v; H7 O3 T' P        bcd10 ut std_logic_vector(2 downto 0)
+ l! P/ `3 q& E4 H       );
end;
architecture behav of  mycounter_60   is
signal bcd1n:std_logic_vector(3 downto 0);
3 [, |: a# i" b* E$ a8 a+ Q( Xsignal bcd10n:std_logic_vector(2 downto 0);

2 R" _! O( }/ obegin
$ _, V. e$ _  m1 y$ l- X   process(bcd1wr,clr,en,clk)
; l8 W# t/ [- P' m  |" V   begin
if(clr='0')then
  @( G8 k0 p. l0 Z" S6 X" W! z% `bcd1n<=(others=>'0');
  \* B/ P2 H1 [$ U) Z
elsif(clk'event and clk='1')then
0 R8 O7 ?( Y2 J% @if (bcd1wr='1' and en='1')then
bcd1n<=din;
: @# B2 Y) ~+ m. g: eelsif (en='1')then
bcd1n<=bcd1n+1;
if (bcd1n>=9)then
+ ~( n- C8 B  `. k+ W& Obcd1n<="0000";
  z1 T9 d; N" z
  F: _8 ?* t9 w& _9 X, S6 n& yend if;
end if;
end if;
+ W, p' o! Y# \# [end process;

* V! L  @3 Y  |
process(bcd10wr,en)
" K8 K& Y  R5 q9 q6 n, ]8 ]; U) lbegin
if(clr='0')then
bcd10n<=(others=>'0');
; b0 n7 U: ^4 i$ d$ D; [5 {if(bcd10wr='1' and en='1')then
bcd10n<=din(2 downto 0);
% t8 O" Y& O, k6 p% Pelsif(bcd1n=9 and en='1') then
bcd10n<=bcd10n+1;
' j8 _6 U: ^) P- G' xif(bcd10n=5) then
* J1 e+ u4 H3 z" Q* n1 mbcd10n<="000";
. |" L. K3 u- o; r. I; |co<='1';
. S1 J  o& n# F9 Oelse
7 G9 @: k: |3 i1 w, {co<='0';
end if;
" x' ~& b9 E3 F6 R+ j, Send if;
& \% \: g& B9 E' E+ kend if;
end process;

7 A3 T7 ?* d# m/ r/ t7 vbcd1<=bcd1n;
; |1 h5 G# Q' N5 J4 @bcd10<=bcd10n;
% w$ l, ^- S* N$ e: l7 M: [* ^! q" lend behav;