mirror/ghidra
1
0
Fork 0
mirror of https://github.com/NationalSecurityAgency/ghidra.git synced 2026-09-28 17:11:11 -09:00
Code Issues Packages Projects Releases Wiki Activity

Implement 68000 PACK and UNPK opcodes.

Browse Source
This commit is contained in:
Alessandro Gatti
2022-05-03 04:19:03 +02:00
parent 0b66c9873a
commit 63e615e793
1 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Ghidra/Processors/68000/data/languages/68000.sinc
View File

@@ -1574,7 +1574,16 @@ macro negResFlags(result) {
:ori "#"^d8,"CCR" is opbig=0 & op37=7 & op02=4; d8 { packflags(SR); SR=SR|d8; unpackflags(SR); } :ori "#"^d8,"CCR" is opbig=0 & op37=7 & op02=4; d8 { packflags(SR); SR=SR|d8; unpackflags(SR); }
:ori "#"^d16,SR is SR; opbig=0x00 & d8base=0x7c; d16 { packflags(SR); SR=SR|d16; unpackflags(SR); } :ori "#"^d16,SR is SR; opbig=0x00 & d8base=0x7c; d16 { packflags(SR); SR=SR|d16; unpackflags(SR); }
:pack Tyb,Txb,"#"d16 is op=8 & op48=20 & Txb & Tyb; d16 unimpl :pack Txw,Tyw,"#"d16 is op=8 & op48=20 & Txw & Tyw & rmbit=0; d16 {
local value = (Txw & 0x0F0F) + d16;
Tyw = (Tyw & 0xFF00) | ((value & 0x0F00) >> 4) | (value & 0x000F);
}
:pack Txw,Tyb,"#"d16 is op=8 & op48=20 & Txw & Tyb & rmbit=1; d16 {
local value = (Txw & 0x0F0F) + d16;
local result:2 = ((value & 0x0F00) >> 4) | (value & 0x000F);
Tyb = result:1;
}
:pea eaptr is (opbig=0x48 & op67=1 & $(CTL_ADDR_MODES))... & eaptr { SP = SP-4; *SP = eaptr; } :pea eaptr is (opbig=0x48 & op67=1 & $(CTL_ADDR_MODES))... & eaptr { SP = SP-4; *SP = eaptr; }
@@ -1803,7 +1812,15 @@ ptestLevel: "#"^mregn is mregn { export *[const]:1 mregn; }
:unlk regan is opbig=0x4e & op37=11 & regan { SP = regan; regan = *SP; SP = SP+4; } :unlk regan is opbig=0x4e & op37=11 & regan { SP = regan; regan = *SP; SP = SP+4; }
:unpk Tyb,Txb,"#"^d16 is op=8 & Txb & op48=24 & Tyb; d16 unimpl :unpk Txw,Tyw,"#"^d16 is op=8 & Txw & op48=24 & Tyw & rmbit=0; d16 {
Tyw = (Tyw & 0xF0F0) | ((((zext(Txw) & 0x00F0) << 4) | (zext(Txw) & 0x000F)) + d16);
}
:unpk Txb,Tyw,"#"^d16 is op=8 & Txb & op48=24 & Tyw & rmbit=1; d16 {
local source:2 = zext(Txb);
source = (((source & 0x00F0) << 4) | (source & 0x000F)) + d16;
Tyw = (Tyw & 0xF0F0) | source;
}
# Floating Point Instructions # Floating Point Instructions