-- Write scan data for IP core
-- for i in 0 to 2718 loop
- for i in 0 to 80 loop
+ for i in 0 to 30 loop
readline(in_file,li);
hread(li, cdata32);
ahbwrite(x"90000000", cdata32, "10", "10", '1', 2, false , ctrl1);
radd := x"a0000000";
-- for i in 0 to 79 loop
for i in 0 to 16 loop
--- for j in 0 to 39 loop
- for j in 0 to 160 loop
+ for j in 0 to 39 loop
+-- for j in 0 to 160 loop
readline(compare_file, lc);
hread(lc, cdata32);
ahbread(radd, cdata32, "10", 2, false, ctrl1);
radd := radd + x"004";
end loop;
--- radd := radd + x"460";
- radd := radd + x"280";
+ radd := radd + x"460";
+-- radd := radd + x"280";
end loop;
ahbtbmidle(true,ctrl1);