mirror of
https://github.com/hoglet67/AtomBusMon.git
synced 2024-09-27 18:56:28 +00:00
z80: fix a T80 build error on Spartan 3
Change-Id: I6fca1eea44e1cc8e244d3d892ee25e0b7fea9eac
This commit is contained in:
parent
f710f7a20f
commit
ddaa266c12
@ -734,7 +734,7 @@ begin
|
||||
F(Flag_N) <= DI_Reg(7);
|
||||
F(Flag_C) <= ioq(8);
|
||||
F(Flag_H) <= ioq(8);
|
||||
ioq := (ioq and x"7") xor ('0'&BusA);
|
||||
ioq := (ioq and ('0'&x"07")) xor ('0'&BusA);
|
||||
F(Flag_P) <= not (ioq(0) xor ioq(1) xor ioq(2) xor ioq(3) xor ioq(4) xor ioq(5) xor ioq(6) xor ioq(7));
|
||||
end if;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user