IF reset='0' THEN

　　count:=0;

　　clk19200hz:='0';

　　ELSIF f10MHz'EVENT AND f10MHz='1' THEN

　　IF count=260 THEN

　　count:=0;clk19200hz:= NOT clk19200hz;

　　ELSE

　　count:=count+1;

　　END IF;

　　END IF;

　　baud_rate=clk19200hz;

　　END PROCESS;發(fā)送模塊e#2. 發(fā)送模塊

　　發(fā)送部分采用狀態(tài)機(jī)t_state 進(jìn)行編程，共設(shè)兩個(gè)值：t-start 和t_shift，分別表示發(fā)送開(kāi)始以及發(fā)送保持狀態(tài)。復(fù)位鍵按下時(shí)設(shè)置到t-start 狀態(tài)，并將發(fā)送數(shù)據(jù)位設(shè)為“1”， 發(fā)送的數(shù)據(jù)位數(shù)計(jì)數(shù)為0，在t-start 狀態(tài)，狀態(tài)機(jī)將處于這一個(gè)狀態(tài)并等待波特率計(jì)數(shù)信號(hào)的電平上升沿到來(lái)。上升沿到來(lái)時(shí)，依據(jù)t_state 狀態(tài)的不同值做不同處理，如果是t-start 開(kāi)始狀態(tài)則先讀待發(fā)送的數(shù)據(jù)，并發(fā)送開(kāi)始位“0”，然后將狀態(tài)轉(zhuǎn)到發(fā)送保持t_shift 狀態(tài)，在發(fā)送保持t_shift 狀態(tài)，不斷判斷發(fā)送的數(shù)據(jù)位數(shù)是否滿8 位，如果滿了則回歸t-start 狀態(tài)，否則繼續(xù)發(fā)送，保持在t_shift 狀態(tài)，為避免干擾將其余情況下的狀態(tài)自動(dòng)跳轉(zhuǎn)到t-start 狀態(tài)。程序如下：

　　PROCESS(baud_rate,reset,data)

　　-- 數(shù)據(jù)發(fā)送部分

　　VARIABLE t_no:INTEGER RANGE 0 TO 8;

　　-- 發(fā)送的數(shù)據(jù)各位的位序號(hào)

　　VARIABLE txds:STD_LOGIC;

　　VARIABLE dtmp:STD_LOGIC_VECTOR(7

　　DOWNTO 0);

　　BEGIN

　　IF reset='0' THEN

　　t_state=t_start;

　　txds:='1';

　　t_no:=0;

　　ELSIF baud_rate'event AND baud_rate='1' THEN

　　CASE t_state IS

　　WHEN t_start=>

　　dtmp:=data;

　　txds:='0'; -- 發(fā)送開(kāi)始

　　t_state=t_shift;

　　WHEN t_shift=> IF t_no=d_len THEN

　　txds:='1'; -- 發(fā)送結(jié)束

　　t_no:=0;

　　t_state=t_start;