29 lines
621 B
Plaintext
29 lines
621 B
Plaintext
#! /home/drjury/stephan/icarus/lib/ivl/../../bin/vvp
|
|
:vpi_time_precision + 0;
|
|
:vpi_module "system";
|
|
S_ftest .scope module, "ftest";
|
|
V_ftest.a .net "a", 0, 0, C<0>;
|
|
V_ftest.b .net "b", 0, 0, C<0>;
|
|
V_ftest._L4 .net "_L4", 0, 0, C<1>;
|
|
|
|
fofu .force V_ftest.a, C<1> ;
|
|
|
|
.scope S_ftest;
|
|
T_0 ;
|
|
|
|
%force fofu, 1 ;
|
|
|
|
%delay 1;
|
|
%load 8, V_ftest.b[0];
|
|
%cmp/u 8, 0, 1;
|
|
%inv 6, 1;
|
|
%mov 8, 6, 1;
|
|
%jmp/0xz T_0.0, 8;
|
|
%vpi_call "$display", "FAILED: %b %b", V_ftest.a, V_ftest.b;
|
|
%jmp T_0.1;
|
|
T_0.0 ;
|
|
%vpi_call "$display", "PASSED: %b %b", V_ftest.a, V_ftest.b;
|
|
T_0.1 ;
|
|
%end;
|
|
.thread T_0;
|