Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

M68k a line trap support for at least Classic Mac, Apple Lisa, and Sharp X68000 #7126

Draft
wants to merge 4 commits into
base: master
Choose a base branch
from
Draft

M68k a line trap support for at least Classic Mac, Apple Lisa, and Sharp X68000 #7126

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
312b57f
mac-style and lisa-style a-line traps for m68k
hippietrail Oct 29, 2024
c2c7f67
@elif
hippietrail Oct 30, 2024
d7cdbd5
add sharp x68000 f-line trap support
hippietrail Oct 31, 2024
280e808
Merge branch 'NationalSecurityAgency:master' into m68k-a-line-trap
hippietrail Nov 5, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
61 changes: 61 additions & 0 deletions Ghidra/Processors/68000/data/languages/68000.ldefs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -69,4 +69,65 @@
<external_name tool="DWARF.register.mapping.file" name="68000.dwarf"/>
<external_name tool="qemu" name="qemu-m68k"/>
</language>

<language processor="68000"
endian="big"
size="32"
variant="MacTrap"
version="1.1"
slafile="mactrap.sla"
processorspec="68000.pspec"
manualindexfile="../manuals/68000.idx"
id="68000:BE:32:MacTrap">
<description>Motorola 32-bit MacTrap</description>
<compiler name="default" spec="68000.cspec" id="default"/>
<compiler name="register" spec="68000_register.cspec" id="register"/>
<external_name tool="gnu" name="m68k"/>
<external_name tool="IDA-PRO" name="68000"/>
<external_name tool="IDA-PRO" name="68040"/>
<external_name tool="IDA-PRO" name="68K"/>
<external_name tool="DWARF.register.mapping.file" name="68000.dwarf"/>
<external_name tool="qemu" name="qemu-m68k"/>
</language>

<language processor="68000"
endian="big"
size="32"
variant="LisaTrap"
version="1.1"
slafile="lisatrap.sla"
processorspec="68000.pspec"
manualindexfile="../manuals/68000.idx"
id="68000:BE:32:LisaTrap">
<description>Motorola 32-bit LisaTrap</description>
<compiler name="default" spec="68000.cspec" id="default"/>
<compiler name="register" spec="68000_register.cspec" id="register"/>
<external_name tool="gnu" name="m68k"/>
<external_name tool="IDA-PRO" name="68000"/>
<external_name tool="IDA-PRO" name="68040"/>
<external_name tool="IDA-PRO" name="68K"/>
<external_name tool="DWARF.register.mapping.file" name="68000.dwarf"/>
<external_name tool="qemu" name="qemu-m68k"/>
</language>

<language processor="68000"
endian="big"
size="32"
variant="X68KTrap"
version="1.1"
slafile="x68ktrap.sla"
processorspec="68000.pspec"
manualindexfile="../manuals/68000.idx"
id="68000:BE:32:X68KTrap">
<description>Motorola 32-bit X68KTrap</description>
<compiler name="default" spec="68000.cspec" id="default"/>
<compiler name="register" spec="68000_register.cspec" id="register"/>
<external_name tool="gnu" name="m68k"/>
<external_name tool="IDA-PRO" name="68000"/>
<external_name tool="IDA-PRO" name="68040"/>
<external_name tool="IDA-PRO" name="68K"/>
<external_name tool="DWARF.register.mapping.file" name="68000.dwarf"/>
<external_name tool="qemu" name="qemu-m68k"/>
</language>

</language_definitions>
10 changes: 10 additions & 0 deletions Ghidra/Processors/68000/data/languages/68000.sinc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -85,7 +85,9 @@ define token instr (16)
op01 = (0,1)
op02 = (0,2)
op03 = (0,3)
op07 = (0,7)
op08 = (0,8)
op011 = (0,11)
op015 = (0,15)
op34 = (3,4)
op35 = (3,5)
Expand Down Expand Up @@ -882,6 +884,14 @@ macro rotateRightExtended(count, register, width) {

with : extGUARD=1 {

@ifdef MACTRAP
:atrapm "#"op011 is op=10 & op011 unimpl
@elif defined(LISATRAP)
:atrapl "#"t is op=10 & op011; opx015 [ t = op011 * 65536 + opx015; ] unimpl
@elif defined(X68KTRAP)
:ftrap "#"op07 is opbig=255 & op07 unimpl
@endif # X68KTRAP

:abcd Tyb,Txb is op=12 & op48=16 & Tyb & Txb {
CF = carry(Txb,carry(Tyb,XF));
Txb = Txb + Tyb + XF;
Expand Down
2 changes: 2 additions & 0 deletions Ghidra/Processors/68000/data/languages/lisatrap.slaspec
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
@define LISATRAP ""
@include "68000.sinc"
2 changes: 2 additions & 0 deletions Ghidra/Processors/68000/data/languages/mactrap.slaspec
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
@define MACTRAP ""
@include "68000.sinc"
2 changes: 2 additions & 0 deletions Ghidra/Processors/68000/data/languages/x68ktrap.slaspec
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
@define X68KTRAP ""
@include "68000.sinc"