tb_uart.vhw

一种实现计算机接口rs232与FPGA通信的基于VHDL语言设计的一段非常简洁的程序

                WAIT FOR 200 ns;
                txdbuf_in <= "01110101";
                -- -------------------------------------
                -- -------------  Current Time:  32485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01110110";
                -- -------------------------------------
                -- -------------  Current Time:  32685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01110111";
                -- -------------------------------------
                -- -------------  Current Time:  32885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111000";
                -- -------------------------------------
                -- -------------  Current Time:  33085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111001";
                -- -------------------------------------
                -- -------------  Current Time:  33285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111010";
                -- -------------------------------------
                -- -------------  Current Time:  33485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111011";
                -- -------------------------------------
                -- -------------  Current Time:  33685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111100";
                -- -------------------------------------
                -- -------------  Current Time:  33885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111101";
                -- -------------------------------------
                -- -------------  Current Time:  34085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111110";
                -- -------------------------------------
                -- -------------  Current Time:  34285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "01111111";
                -- -------------------------------------
                -- -------------  Current Time:  34485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000000";
                -- -------------------------------------
                -- -------------  Current Time:  34685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000001";
                -- -------------------------------------
                -- -------------  Current Time:  34885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000010";
                -- -------------------------------------
                -- -------------  Current Time:  35085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000011";
                -- -------------------------------------
                -- -------------  Current Time:  35285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000100";
                -- -------------------------------------
                -- -------------  Current Time:  35485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000101";
                -- -------------------------------------
                -- -------------  Current Time:  35685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000110";
                -- -------------------------------------
                -- -------------  Current Time:  35885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10000111";
                -- -------------------------------------
                -- -------------  Current Time:  36085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001000";
                -- -------------------------------------
                -- -------------  Current Time:  36285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001001";
                -- -------------------------------------
                -- -------------  Current Time:  36485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001010";
                -- -------------------------------------
                -- -------------  Current Time:  36685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001011";
                -- -------------------------------------
                -- -------------  Current Time:  36885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001100";
                -- -------------------------------------
                -- -------------  Current Time:  37085ns
                WAIT FOR 200 ns;
                xmit_cmd_p_in <= '0';
                txdbuf_in <= "10001101";
                -- -------------------------------------
                -- -------------  Current Time:  37285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001110";
                -- -------------------------------------
                -- -------------  Current Time:  37485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10001111";
                -- -------------------------------------
                -- -------------  Current Time:  37685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010000";
                -- -------------------------------------
                -- -------------  Current Time:  37885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010001";
                -- -------------------------------------
                -- -------------  Current Time:  38085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010010";
                -- -------------------------------------
                -- -------------  Current Time:  38285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010011";
                -- -------------------------------------
                -- -------------  Current Time:  38485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010100";
                -- -------------------------------------
                -- -------------  Current Time:  38685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010101";
                -- -------------------------------------
                -- -------------  Current Time:  38885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010110";
                -- -------------------------------------
                -- -------------  Current Time:  39085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10010111";
                -- -------------------------------------
                -- -------------  Current Time:  39285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011000";
                -- -------------------------------------
                -- -------------  Current Time:  39485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011001";
                -- -------------------------------------
                -- -------------  Current Time:  39685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011010";
                -- -------------------------------------
                -- -------------  Current Time:  39885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011011";
                -- -------------------------------------
                -- -------------  Current Time:  40085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011100";
                -- -------------------------------------
                -- -------------  Current Time:  40285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011101";
                -- -------------------------------------
                -- -------------  Current Time:  40485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011110";
                -- -------------------------------------
                -- -------------  Current Time:  40685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10011111";
                -- -------------------------------------
                -- -------------  Current Time:  40885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100000";
                -- -------------------------------------
                -- -------------  Current Time:  41085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100001";
                -- -------------------------------------
                -- -------------  Current Time:  41285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100010";
                -- -------------------------------------
                -- -------------  Current Time:  41485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100011";
                -- -------------------------------------
                -- -------------  Current Time:  41685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100100";
                -- -------------------------------------
                -- -------------  Current Time:  41885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100101";
                -- -------------------------------------
                -- -------------  Current Time:  42085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100110";
                -- -------------------------------------
                -- -------------  Current Time:  42285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10100111";
                -- -------------------------------------
                -- -------------  Current Time:  42485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101000";
                -- -------------------------------------
                -- -------------  Current Time:  42685ns
                WAIT FOR 200 ns;
                rxd <= '0';
                txdbuf_in <= "10101001";
                -- -------------------------------------
                -- -------------  Current Time:  42885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101010";
                -- -------------------------------------
                -- -------------  Current Time:  43085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101011";
                -- -------------------------------------
                -- -------------  Current Time:  43285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101100";
                -- -------------------------------------
                -- -------------  Current Time:  43485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101101";
                -- -------------------------------------
                -- -------------  Current Time:  43685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101110";
                -- -------------------------------------
                -- -------------  Current Time:  43885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10101111";
                -- -------------------------------------
                -- -------------  Current Time:  44085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110000";
                -- -------------------------------------
                -- -------------  Current Time:  44285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110001";
                -- -------------------------------------
                -- -------------  Current Time:  44485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110010";
                -- -------------------------------------
                -- -------------  Current Time:  44685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110011";
                -- -------------------------------------
                -- -------------  Current Time:  44885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110100";
                -- -------------------------------------
                -- -------------  Current Time:  45085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110101";
                -- -------------------------------------
                -- -------------  Current Time:  45285ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110110";
                -- -------------------------------------
                -- -------------  Current Time:  45485ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10110111";
                -- -------------------------------------
                -- -------------  Current Time:  45685ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10111000";
                -- -------------------------------------
                -- -------------  Current Time:  45885ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10111001";
                -- -------------------------------------
                -- -------------  Current Time:  46085ns
                WAIT FOR 200 ns;
                txdbuf_in <= "10111010";