【正文】 hen st1=if zf=39。039。then q=1000。tx=st2。ts=s2。else ts=s1。tx=st0。end if。when st2=if zf=39。039。then q=1010。tx=st3。ts=s2。else ts=s1。tx=st0。end if。when st3=if zf=39。039。then q=0010。tx=st4。ts=s2。else ts=s1。tx=st0。end if。when st4=if zf=39。039。then q=0110。tx=st5。ts=s2。else ts=s1。tx=st0。end if。when st5=if zf=39。039。then q=0100。tx=st6。ts=s2。else ts=s1。tx=st0。end if。when st6=if zf=39。039。then q=0101。tx=st7。ts=s2。else ts=s1。tx=st0。end if。when st7=if zf=39。039。then q=0001。tx=st0。ts=s2。else ts=s1。tx=st0。end if。when others=null。end case。when others=null。end case。end if。end if。end process。q1=q。end Behavioral。library IEEE。use 。use 。use 。 Unment the following lines to use the declarations that are provided for instantiating Xilinx primitive ponents.library UNISIM。use 。entity kzmk isport(clk:in std_logic。 clr:in std_logic。 hw:in std_logic。 xlorld:in std_logic_vector(4 downto 0)。箱內(nèi)或樓道。 lc1:in std_logic_vector(4 downto 0)。到答樓城。 zf:out std_logic。 y:out std_logic。 kmt:out std_logic_vector(1 downto 0)。 tz:out std_logic_vector(2 downto 0)。 en:out std_logic)。end kzmk。architecture Behavioral of kzmk istype ts is(st0,st1,st2,st3,st4,st5,st7,st9,st10,st11,st12,st13,st15,st17,st3ab,st3ac,st18,st19,st20,st21,st22,st23,st27,st28,st29,st35,st36,st37,st3a,st3b,st3c,st3d,st3e,st3f)。signal st:ts。signal ys:std_logic。signal qq,qqq:std_logic_vector(4 downto 0)。signal km:std_logic。signal yxj:std_logic。優(yōu)先級(jí)判斷。O為上升優(yōu)先signal ksjs:std_logic。signal endj:std_logic。signal clrr1,clrr2:std_logic。signal kmt1,kmt2:std_logic_vector(1 downto 0)。signal q:std_logic_vector(7 downto 0)。signal lc:std_logic_vector(4 downto 0)。beginlc=not lc1。process(clk,clr)beginif clr=39。139。then st=st0。yxj=39。039。ksjs=39。039。elsif clk39。event and clk=39。139。then case st iswhen st0=km=39。139。ksjs=39。039。en=39。039。tz=001。if (xlorld=00000or xlorld=00001)then st=st0。else st=st1。yxj=39。039。end if。when st1=if hw=39。139。then zf=39。139。en=39。139。yxj=39。039。st=st3ac。km=39。039。end if。when st3ac= if lc=00010then st=st2。else st=st3ac。end if。等待到達(dá)2樓； when st2=tz=010。if xlorld(1)=39。139。then st=st3。else st=st35。end if。when st3=km=39。139。en=39。039。ksjs=39。139。if ys=39。039。then st=st3。else st=st4。end if。when st4=ksjs=39。039。if yxj=39。039。then st=st5。else st=st3a。end if。when st5=if xlorld(4 downto 2)/=000and hw=39。139。 then st=st7。else st=st3a。end if。when st7=zf=39。139。en=39。139。st=st9。km=39。039。when st9=if lc=00100then st=st10。else st=st9。end if。when st10=tz=011。if xlorld(2)=39。139。then st=st11。else st=st36。end if。when st11=km=39。139。en=39。039。ksjs=39。139。if ys=39。039。then st=st11。else st=st12。end if。when st12=ksjs=39。039。if yxj=39。039。then st=st13。else st=st3c。end if。when st13=if xlorld(4 downto 3)/=00and hw=39。139。 then st=st15。else st=st3c。end if。when st15=zf=39。139。en=39。139。st=st17。km=39。039。when st17=if lc01000then st=st17。else st=st18。end if。when st18=tz=100。if xlorld(3)=39。139。then st=st19。else st=st37。end if。when st19=km=39。139。en=39。039。ksjs=39。139。if ys=39。039。then st=st19。else st=st20。end if。when st20=ksjs=39。039。if yxj=39。039。then st=st21。else st=st3d。end if。when st21=if xlorld(4)/=39。039。 and hw=39。139。then st=st22。else st=st3d。end if。when st22=zf=39。139。en=39。139。st=st23。km=39。039。when st23=if lc=10000then st=st27。else st=st23。end if。when st27=km=39。139。tz=101。en=39。039。ksjs=39。139。if ys=39。039。then st=st27。else st=st28。end if。whenst28=ksjs=39。039。ifxlorld(3 downto 0)/=0000and hw=39。139。then zf=39。039。en=39。139。yxj=39。139。st=st29。km=39。039。 else st=st28。end if。when st29=if lc=01000then st=st18。else st=st29。end if。when st35=if yxj=39。139。then st=st3a。else st=st5。end if。when st3a=if xlorld(0)/=39。039。and hw=39。139。 then zf=39。039。en=39。139。st=st3b。km=39。039。else yxj=39。039。st=st5。end if。when st3b=if lc=00001then st=st3ab。else st=st3b。end if。when st36=if yxj=39。139。then st=st3c。else st=st13。end if。when st3c=if xlorld(1 downto 0)/=00and hw=39。139。 then zf=39。039。en=39。139。yxj=39。139。st=st3e。km=39。039。else yxj=39。039。 st=st13。 end if。when st3e=if lc=00010then st=st2。else st=st3e。end if。when st37=if yxj=39。139。then st=st3d。else st=st21。end if。when st3d=if xlorld(2 downto 0)/=000and hw=39。139。 then st=st3f。zf=39。039。en=39。139。yxj=39。139。km=39。039。else yxj=39。039。st=st21。end if。when st3f=if lc=00100then st=st10。else st=st3f。end if。 when st3ab=ksjs=39。139。en=39。039。if ys=39。039。then st=st3ab。else st=st0。end if。when others=null。end case。end if。end process。process(clk,ksjs)beginif clk39。event and clk=39。139。then if ksjs=39。039。then ys=39。039。q=00000000。else if q=11111111then ys=39。139。q=00000001。else q=q+1。ys=39。039。end if。end if。end if。end process。process(clk)beginif clk39。event and clk=39。139。then if km=39。139。then clrr2=39。139。clrr1=39。039。else clrr1=39。139。clrr2=39。039。end if。end if。end process。process(clk,clrr1)beginif clk39。event and clk=39。139。then if clrr1=39。139。then qq=00000。else if qq=11111then kmt1=00。 else qq=qq+1。kmt1=10。end if。end if。end if。 end process。 process(clk,clrr2)beginif clk39。event and clk=39。139。then if clrr2=39。139。then qqq=00000。else if qqq=11111then kmt2=00。 else qqq=qqq+1。kmt2=01。end if。end if。end if。 end process。y=ksjs。kmt=00when clr=39。139。else kmt1 or kmt2。end Behavioral。library ieee。use