OpenCores
URL https://opencores.org/ocsvn/tinycpu/tinycpu/trunk

Subversion Repositories tinycpu

[/] [tinycpu/] [trunk/] [testbench/] [core_tb.vhd] - Diff between revs 27 and 28

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 27 Rev 28
Line 117... Line 117... 
    wait for 10 ns;
 
    wait for 10 ns;
 
    assert(MemAddr = x"0102") report "fetcher is not incrementing address" severity error;
 
    assert(MemAddr = x"0102") report "fetcher is not incrementing address" severity error;
 
    assert(DebugIR = x"00F1" and DebugR0 /= x"12") report "IR is not correct. Execution occurs during first fetch";
 
    assert(DebugIR = x"00F1" and DebugR0 /= x"12") report "IR is not correct. Execution occurs during first fetch";
 
    MemIn <= x"0056";
 
    MemIn <= x"0056";
 
    wait for 10 ns;
 
    wait for 10 ns;
 
    assert(DebugR0 = x"F1") report "loaded value of R0 is not correct" severity error;
 
    assert(DebugR0 = x"56") report "loaded value of R0 is not correct" severity error;
 
    MemIn <= x"0E50"; --mov IP, 0x50
 
    MemIn <= x"0E50"; --mov IP, 0x50
 
    wait for 10 ns;
 
    wait for 10 ns;
 
    assert( MemAddr = x"0150") report "mov to IP doesn't work" severity error; --DebugIP uses regOut, so it won't be updated until next clock cycle actually, but it's correct.
 
    assert( MemAddr = x"0150") report "mov to IP doesn't work" severity error; --DebugIP uses regOut, so it won't be updated until next clock cycle actually, but it's correct.
 
    MemIn <= x"0020"; --mov r0, 0x20
 
    MemIn <= x"0020"; --mov r0, 0x20
 
    wait for 10 ns;
 
    wait for 10 ns;
 
    assert (MemAddr = x"0152" and DebugIP=x"50") report "fetching is wrong after move to IP" severity error; --DebugIP uses regOut, Fetchaddress uses regIn, so this is correct
 
    assert (MemAddr = x"0152" and DebugIP=x"52") report "fetching is wrong after move to IP" severity error; --DebugIP uses regOut, Fetchaddress uses regIn, so this is correct
 
    MemIn <= x"0160"; --mov r0,0x60 if TR is set
 
    MemIn <= x"0160"; --mov r0,0x60 if TR is set
 
    wait for 10 ns; --wait until register write happens
 
    wait for 10 ns; --wait until register write happens
 
    assert(DebugR0 = x"20") report "mov to r0 is wrong after move to IP" severity error;
 
    assert(DebugR0 = x"20") report "mov to r0 is wrong after move to IP" severity error;
 
    MemIn <= x"1050"; --mov [r0], 0x50 (r0 is 0x20)
 
    MemIn <= x"1050"; --mov [r0], 0x50 (r0 is 0x20)
 
    wait for 10 ns;
 
    wait for 10 ns;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.