Firebee/m68k-bdm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial push

Browse Source
This commit is contained in:
Bernd Mueller
2026-06-17 13:44:30 +02:00
commit adfd70813f
372 changed files with 146450 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

684
m683xx/bdm-load/tpudis.c Normal file
View File

@@ -0,0 +1,684 @@
/*******************************************************************
TPUDB Project to Create Free Motorola 683xx TPU Debugger
tpudis.c - TPU microcode disassembler
(C) Copyright 2000 by Wouter Vlothuizen - Original Author
e-mail: wouter@vlothuizen.demon.nl
This package can be copied and modified under
GNU General Public License with all its conditions.
See file GPL for details. Under this license nobody can
distribute this work and any derived work without full source code
for all modules compiled and linked into executable.
*******************************************************************/
#include <stdio.h>
#include <stdlib.h>
#define TRUE 1
#define FALSE 0
static FILE *f;
static unsigned long inst;
void
Error (char *s)
{
fprintf (stderr, "\ntpudis: %s\n", s);
exit (1);
}
#define put(x) s=x
#define I(h,l) ( (inst>>(l)) & (((1<<((h)+1-(l))))-1) )
void
T1ABS (void)
{
char *s=NULL;
switch (I (28, 25))
{
case 0:
put ("plow");
break;
case 1:
put ("phi");
break;
case 2:
put ("dec");
break;
case 3:
put ("chan");
break;
case 4:
put ("#0 special");
break;
case 5:
put ("{Illegal T1ABS: 5}");
break;
case 6:
put ("{Illegal T1ABS: 6}");
break;
case 7:
put ("#0");
break;
case 8:
put ("p");
break;
case 9:
put ("a");
break;
case 10:
put ("sr");
break;
case 11:
put ("diob");
break;
case 12:
put ("tcr1");
break;
case 13:
put ("tcr2");
break;
case 14:
put ("ert");
break;
case 15:
put ("#0");
break;
default:
Error ("T1ABS decoding error");
}
fprintf (f, "%s + ", s);
}
void
T3ABD (void)
{
char *s=NULL;
switch (inst >> 21 & 0xF)
{
case 0:
put ("a");
break;
case 1:
put ("sr");
break;
case 2:
put ("ert");
break;
case 3:
put ("diob");
break;
case 4:
put ("phi");
break;
case 5:
put ("{Illegal T3ABD: 5}");
break;
case 6:
put ("plow");
break;
case 7:
put ("p");
break;
case 8:
put ("link");
break;
case 9:
put ("chan");
break;
case 10:
put ("dec");
break;
case 11:
put ("dec&chan");
break;
case 12:
put ("tcr1");
break;
case 13:
put ("tcr2");
break;
case 14:
put ("{Illegal T3ABD: 14}");
break;
case 15:
put ("Nil");
break;
default:
Error ("T3ABD decoding error");
}
fprintf (f, "AU %s :=", s);
}
void
SHF (void)
{
char *s=NULL;
switch (inst >> 19 & 3)
{
case 0:
s = "<<";
break;
case 1:
s = ">>";
break;
case 2:
s = "R>";
break;
case 3:
s = "";
break;
default:
Error ("SHF decoding error");
}
fprintf (f, "%s ", s);
}
void
T1BBSetc (void)
{
char *s=NULL;
switch (inst >> 14 & 7)
{
case 0:
s = "p";
break;
case 1:
s = "a";
break;
case 2:
s = "sr";
break;
case 3:
s = "diob";
break;
case 7:
s = "#0";
break;
case 4:
case 5:
case 6:
s = "{Illegal T1BBS}";
break;
default:
Error ("T1BBS decoding error");
}
fprintf (f, "%s%s%s ",
inst & (1L << 12) ? "" : "!", s, inst & (1L << 13) ? "" : " + 1");
}
void
SRCCCL (void)
{
if (~inst & (1L << 18))
fprintf (f, ", ensr");
if (~inst & (1L << 17))
fprintf (f, ", cc");
}
void
T1BBI (void)
{
fprintf (f, "#$%2lx", inst >> 9 & 0xFF);
}
void
DECEND (void)
{
char *s=NULL;
switch (inst & 3)
{
case 0:
s = "DEC_RTS";
break;
case 1:
s = "DEC_RPT";
break;
case 2:
s = "end";
break;
case 3:
return;
default:
Error ("DECEND decoding error");
}
fprintf (f, "%s", s);
}
void
IOMetc (int rwPos)
{
char *fm=NULL;
int aid=0;
switch (inst >> 9 & 7)
{
case 0:
fm = "RAM p %s @prm%d ; ";
aid = inst >> 2 & 7;
break;
case 1:
fm = "RAM p %s by_diob ; ";
break;
case 2:
fm = "RAM p %s @$%x ; ";
aid = inst >> 2 & 0x7F;
break;
case 4:
fm = "RAM diob %s @prm%d ; ";
aid = inst >> 2 & 7;
break;
case 5:
fm = "RAM diob %s by_diob ; ";
break;
case 6:
fm = "RAM diob %s @$%x ; ";
aid = inst >> 2 & 0x7F;
break;
case 3:
case 7:
return;
default:
Error ("IOM decoding error");
}
fprintf (f, fm, inst & (1L << rwPos) ? "->" : "<-", aid);
}
void
CJCetc (void)
{
char *s=NULL;
if (I (29, 16) == 0x3FFF)
return;
switch (inst >> 26 & 0xF)
{
case 0:
s = "LESS_THAN";
break;
case 1:
s = "LOW_SAME";
break;
case 2:
s = "V";
break;
case 3:
s = "N";
break;
case 4:
s = "C";
break;
case 5:
s = "Z";
break;
case 6:
s = "cflg1";
break;
case 7:
s = "cflg0";
break;
case 8:
s = "TDL";
break;
case 9:
s = "MRL";
break;
case 10:
s = "LSL";
break;
case 11:
s = "SEQ1";
break;
case 12:
s = "SEQ0";
break;
case 13:
s = "PSL";
break;
case 14:
s = "{Illegal branch}";
break;
case 15:
s = "false";
break;
default:
Error ("CJC decoding error");
}
fprintf (f, "if %s = %s then goto $%lx%s; ",
s,
inst & (1L << 8) ? "true" : "false",
inst >> 16 & 0x1FF, inst & (1L << 25) ? "" : ", flsh");
}
void
NMAetc (void)
{
char *s=NULL;
switch (inst >> 26 & 3)
{
case 0:
s = "jmp";
break;
case 1:
s = "jsr";
break;
case 2:
s = "rts";
break;
case 3:
return;
default:
Error ("NMA decoding error");
}
fprintf (f, "%s%s $%lx ; ", s, inst & (1L << 25) ? "" : " ,flsh",
inst >> 16 & 0x1FF);
}
void
TBS (void)
{
char *s=NULL;
switch (I (15, 12))
{
case 0:
s = "in_mtcr1_ctcr1";
break;
case 1:
s = "in_mtcr2_ctcr1";
break;
case 2:
s = "in_mtcr1_ctcr2";
break;
case 3:
s = "in_mtcr2_ctcr2";
break;
case 4:
s = "out_mtcr1_ctcr1";
break;
case 5:
s = "out_mtcr2_ctcr1";
break;
case 6:
s = "out_mtcr1_ctcr2";
break;
case 7:
s = "out_mtcr2_ctcr2";
break;
case 8:
case 9:
case 10:
case 11:
case 12:
case 13:
case 14:
case 15:
return;
default:
Error ("TBS decoding error");
}
fprintf (f, "tbs:=%s ", s);
}
void
ERWTDLMRL (void)
{
if (~inst & (1L << 29))
fprintf (f, "write_mer ");
if (~inst & (1L << 18))
fprintf (f, "neg_tdl ");
if (~inst & (1L << 17))
fprintf (f, "neg_mrl ");
}
void
PSC (void)
{
char *s=NULL;
switch (I (7, 6))
{
case 0:
s = "PAC";
break;
case 1:
s = "high";
break;
case 2:
s = "low";
break;
case 3:
return;
default:
Error ("PSC decoding error");
}
fprintf (f, "pin:=%s ", s);
}
void
PAC (void)
{
char *s=NULL;
switch (I (11, 9))
{
case 0:
s = "off";
break;
case 1:
s = "high";
break;
case 2:
s = "low";
break;
case 3:
s = "h+l";
break;
case 4:
case 5:
case 6:
case 7:
return;
default:
Error ("PAC decoding error");
}
fprintf (f, "pac:=%s ", s);
}
void
FLC (int pos) /* at position 5 or 15 */
{
char *s=NULL;
fprintf (f, "chan ");
switch (I (pos, pos - 2))
{
case 0:
s = "clr cflg0";
break;
case 1:
s = "set cflg0";
break;
case 2:
s = "clr cflg1";
break;
case 3:
s = "set cflg1";
break;
case 4:
case 5:
case 6:
case 7:
return;
default:
Error ("FLC decoding error");
}
fprintf (f, "%s ", s);
}
void
LSL (int pos) /* at position 8 or 12 */
{
if (~inst & (1L << pos))
fprintf (f, "neg_lsr ");
}
void
CIR (void)
{
if (~inst & (1L << 2))
fprintf (f, "pir ");
}
void
CCM (void)
{
if (~inst & (1L << 2))
fprintf (f, "by_p ");
}
void
MTD (void)
{
char *s=NULL;
switch (I (1, 0))
{
case 0:
s = "en";
break;
case 1:
s = "ds";
break;
case 2:
case 3:
return;
default:
Error ("MTD decoding error");
}
fprintf (f, "%ssr ", s);
}
void
sep (void)
{
fprintf (f, "; ");
}
void
DisInst (unsigned long i, FILE * fp)
{
f = fp;
inst = i;
if (inst != 0xffffffff)
switch (inst >> 30 & 3) /* type of instruction */
{
case 0: /* format 1 */
T3ABD ();
SHF ();
T1ABS ();
T1BBSetc ();
SRCCCL ();
sep ();
IOMetc (29);
DECEND ();
break;
case 1: /* format 2 */
T3ABD ();
SHF ();
T1ABS ();
T1BBSetc ();
sep ();
FLC (5);
ERWTDLMRL ();
PAC ();
LSL (8);
PSC ();
CIR ();
sep ();
DECEND ();
break;
case 2: /* format 3 */
CJCetc ();
FLC (5);
TBS ();
PAC ();
PSC ();
CCM ();
MTD ();
break;
case 3:
if (inst & (1L << 29)) /* format 5 */
{
T3ABD ();
SHF ();
T1ABS ();
T1BBI ();
SRCCCL ();
sep ();
FLC (5);
LSL (8);
CIR ();
sep ();
}
else /* format 4 */
{
NMAetc ();
FLC (15);
LSL (12);
sep ();
IOMetc (28);
}
DECEND ();
break;
default:
Error ("format decoding error");
}
fprintf (f, "\n");
}
#if 0
void
EntryPoint (unsigned int ep)
{
int pc;
pc = ep & 0x1FF;
if (ep >> 9 & 3 == 0)
{
fprintf (f, "Error in EntryPoint format\n");
}
else
{
fprintf (f, "PreLoad=%d ME=%d PPD=%4s PC=$%03x\n",
ep >> 13 & 7,
ep & (1L << 12) ? 1 : 0, ep & (1L << 11) ? "DIOB" : "P", pc);
epCnt[pc]++;
}
}
#endif