cz80, fix flags for OUT[ID]/OT[ID]R

This commit is contained in:
kub 2021-01-22 22:33:23 +01:00
parent bdf7761ef8
commit 31d08e90c8

View file

@ -680,7 +680,7 @@ OP_OUTX:
res = (UINT32)zL + (UINT32)val; res = (UINT32)zL + (UINT32)val;
if (val & SF) F |= NF; if (val & SF) F |= NF;
if (res & 0x100) F |= HF | CF; if (res & 0x100) F |= HF | CF;
F |= SZP[(UINT8)(res & 0x07) - zB] & PF; F |= SZP[(UINT8)(res & 0x07) ^ zB] & PF;
zF = F; zF = F;
RET(12) RET(12)
@ -712,7 +712,7 @@ OP_OTXR:
res = (UINT32)zL + (UINT32)val; res = (UINT32)zL + (UINT32)val;
if (val & SF) F |= NF; if (val & SF) F |= NF;
if (res & 0x100) F |= HF | CF; if (res & 0x100) F |= HF | CF;
F |= SZP[(UINT8)(res & 0x07) - zB] & PF; F |= SZP[(UINT8)(res & 0x07) ^ zB] & PF;
zF = F; zF = F;
if (zB) if (zB)
{ {