tbstd8980.vhd

TDS510仿真器 的硬件电路和软件VHDL代码和大家共享.有兴趣可以自己动手做

        Test <= cnt_ld;
        Host(wr,6,"00001000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Test <= CTRS;
        Host(rd,2);
        WAIT FOR 40 ns;
        Test <= TDO_buf;
        Host(wr,4,"00100000");
        WAIT FOR 40 ns;
        Host(wr,4,"00010000");
        WAIT FOR 40 ns;
        Host(wr,4,"00001000");
        WAIT FOR 40 ns;
        Host(wr,4,"00000100");
        WAIT FOR 40 ns;

        Test <= TDOS;
        Host(rd,2);
        ASSERT (T_D = "01100000")
            REPORT "T_D is " & to_hex_str(T_D) & "should be 01100000"
            SEVERITY ERROR; 
        WAIT FOR 40 ns;

        Test <= tlr_rti;
        Host(wr,3,"00010010");
        WAIT FOR 2 us;
        Test <= cnt_ld;
        Host(wr,6,"00001000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= tlr_tlr;
        Host(wr,3,"00000010");
        WAIT FOR 2 us;
        Test <= cnt_ld;
        Host(wr,6,"00000100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= rti_pdr;
        Host(wr,3,"00100010");
        WAIT FOR 1500 ns;
        Test <= reset;
        T_RSTNeg <= 'L';
        WAIT FOR 40 ns;
        T_RSTNeg <= 'H';
        WAIT FOR 40 ns;
        Test <= CDIV;
        Host(wr,1,"00000000");
        WAIT FOR 120 ns;
        Test <= cnt_ld;
        Host(wr,6,"00000100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= rti_pir;
        Host(wr,3,"00110010");
        WAIT FOR 1 us;
        Test <= reset;
        T_RSTNeg <= 'L';
        WAIT FOR 40 ns;
        T_RSTNeg <= 'H';
        WAIT FOR 40 ns;
        Test <= CDIV;
        Host(wr,1,"00000000");
        WAIT FOR 120 ns;
        Test <= cnt_ld;
        Host(wr,6,"00000100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= tlr_pdr;
        Host(wr,3,"00100010");
        WAIT FOR 1 us;
        Test <= reset;
        T_RSTNeg <= 'L';
        WAIT FOR 40 ns;
        T_RSTNeg <= 'H';
        WAIT FOR 40 ns;
        Test <= CDIV;
        Host(wr,1,"00000000");
        WAIT FOR 120 ns;
        Test <= cnt_ld;
        Host(wr,6,"00000100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= tlr_pir;
        Host(wr,3,"00110010");
        WAIT FOR 1 us;

        Test <= cnt_ld;
        Host(wr,6,"00010000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= pir_shdr_pdr;
        Host(wr,3,"00101001");
        WAIT FOR 40 ns;

        Test <= TDO_buf;
        Host(wr,4,"00100001");
        WAIT FOR 40 ns;
        Host(wr,4,"00010011");
        WAIT FOR 40 ns;
        Host(wr,4,"10001001");
        WAIT FOR 40 ns;
        Host(wr,4,"10001010");
        WAIT FOR 40 ns;

        WAIT FOR 1500 ns;

        Test <= TDI_buf;
        Host(rd,5);
        WAIT FOR 240 ns;

        Test <= TDI_buf;
        Host(rd,5);
        WAIT FOR 240 ns;

        Test <= cnt_ld;
        Host(wr,6,"00010000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Test <= pdr_shir_tlr;
        Host(wr,3,"00001000");
        WAIT FOR 40 ns;

        Test <= TDO_buf;
        Host(wr,4,"01111110");
        WAIT FOR 40 ns;
        Host(wr,4,"10010011");
        WAIT FOR 40 ns;
        Host(wr,4,"10001001");
        WAIT FOR 40 ns;
        Host(wr,4,"10000001");
        WAIT FOR 40 ns;

        WAIT FOR 2 us;

        Test <= tlr_iirs_rti;
        Host(wr,6,"00001000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Host(wr,3,"00011010");
        WAIT FOR 40 ns;

        Host(wr,4,"10001001");
        WAIT FOR 40 ns;
        Host(wr,4,"10000001");
        WAIT FOR 40 ns;

        Host(rd,2);
        WAIT FOR 1 us;
        WAIT FOR 100 ns;

        Test <= rti_idrs_rti;
        Host(wr,6,"00001000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Host(wr,3,"00011011");
        WAIT FOR 40 ns;

        Host(rd,2);
        WAIT FOR 1 us;
        WAIT FOR 100 ns;

        Test <= asp;
        Host(wr,6,"00001100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Host(wr,0,"00000001");
        WAIT FOR 40 ns;

        Host(wr,3,"00010100");
        WAIT FOR 40 ns;

        -- Host(wr,4,"01101110");
        -- WAIT FOR 40 ns;
        -- Host(wr,4,"10010011");
        -- WAIT FOR 40 ns;
        Host(wr,4,"10001001");
        WAIT FOR 40 ns;
        Host(wr,4,"10000001");
        WAIT FOR 40 ns;

        WAIT FOR 1200 ns;
        Host(rd,2);
        WAIT FOR 200 ns;

        Test <= asp_in;
        Host(wr,6,"00001100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Host(wr,3,"00010011");
        WAIT FOR 40 ns;

        WAIT FOR 1200 ns;
        Host(rd,2);
        WAIT FOR 200 ns;

        Test <= asp_out;
        Host(wr,6,"00001100");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;
        Host(wr,6,"00000000");
        WAIT FOR 40 ns;

        Host(wr,3,"00010101");
        WAIT FOR 40 ns;

        Host(wr,4,"10001001");
        WAIT FOR 40 ns;
        Host(wr,4,"11000011");
        WAIT FOR 40 ns;

        WAIT FOR 1200 ns;
        Host(rd,2);
        WAIT FOR 200 ns;

        Test <= dc;
        Host(wr,0,"00000010");
        WAIT FOR 40 ns;

        Host(wr,7,"00000000");
        WAIT FOR 40 ns;
        Host(rd,7);
        WAIT FOR 40 ns;

        Host(wr,7,"00000001");
        WAIT FOR 40 ns;
        Host(rd,7);
        WAIT FOR 40 ns;

        Host(wr,7,"00000011");
        WAIT FOR 40 ns;
        Host(rd,7);
        WAIT FOR 40 ns;

        Host(wr,7,"00000101");
        WAIT FOR 40 ns;
        Host(rd,7);
        WAIT FOR 40 ns;

        Test <= done;
        WAIT;
    END PROCESS stim;
END test_1;