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;發送模塊e#2. 發送模塊

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

　　PROCESS(baud_rate,reset,data)

　　-- 數據發送部分

　　VARIABLE t_no:INTEGER RANGE 0 TO 8;

　　-- 發送的數據各位的位序號

　　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'; -- 發送開始

　　t_state=t_shift;

　　WHEN t_shift=> IF t_no=d_len THEN

　　txds:='1'; -- 發送結束

　　t_no:=0;

　　t_state=t_start;