Nixyri/ghidra
1
0
Fork 0
mirror of https://github.com/NationalSecurityAgency/ghidra.git synced 2024-11-15 16:42:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

GP-3621: Fixed 6x09 left-shift instruction flags

Browse Source
This commit is contained in:
ghidorahrex 2023-07-10 14:29:37 +00:00
parent 75fb5bf79b
commit 8cd3a31afa
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Ghidra/Processors/MC6800/data/languages/6x09.sinc
View File

@ -434,6 +434,15 @@ macro complement(op)
setNZFlags(op);
}
# Signed shift right.
# P-code INT_SRIGHT.
macro arithmeticShiftRight(op)
{
$(C) = op & 1;
op = (op s>> 1);
setNZFlags(op);
}
macro logicalShiftRight(op)
{
$(C) = op & 1;
@ -450,31 +459,25 @@ macro rotateRightWithCarry(op)
setNZFlags(op);
}
macro logicalShiftLeft(op)
{
local tmp = (op >> 7);
$(C) = tmp;
op = op << 1;
$(V) = tmp ^ (op >> 7);
setNZFlags(op);
}
macro rotateLeftWithCarry(op)
{
local carryIn = $(C);
$(C) = op >> 7;
local tmp = (op >> 7);
$(C) = tmp;
op = (op << 1) | carryIn;
$(V) = tmp ^ (op >> 7);
setNZFlags(op);
}
# Signed shift right.
# P-code INT_SRIGHT.
macro arithmeticShiftRight(op)
{
$(C) = op & 1;
op = (op s>> 1);
setNZFlags(op);
}
macro logicalShiftLeft(op)
{
$(C) = (op >> 7);
op = op << 1;
$(Z) = (op == 0);
$(N) = (op >> 7);
}
macro increment(op)
{
$(V) = (op == 0x7F);
@ -1204,7 +1207,7 @@ macro PushEntireState()
:ADDB OP1 is (op=0xCB | op=0xDB | op=0xEB | op=0xFB) ... & OP1
{
setHFlag(A, OP1);
setHFlag(B, OP1);
addition(B, OP1);
}