URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [monitor/] [monitor/] [common/] [disasm.c] - Blame information for rev 59

Details | Compare with Previous | View Log


/*
 * disasm.c -- disassembler
 */
 
 
#include "common.h"
#include "stdarg.h"
#include "romlib.h"
#include "instr.h"
#include "disasm.h"
 
 
static char instrBuffer[100];
 
 
static void disasmN(char *opName, Word immed) {
  if (immed == 0) {
    sprintf(instrBuffer, "%-7s", opName);
  } else {
    sprintf(instrBuffer, "%-7s %08X", opName, immed);
  }
}
 
 
static void disasmRH(char *opName, int r1, Half immed) {
  sprintf(instrBuffer, "%-7s $%d,%04X", opName, r1, immed);
}
 
 
static void disasmRHH(char *opName, int r1, Half immed) {
  sprintf(instrBuffer, "%-7s $%d,%08X", opName, r1, (Word) immed << 16);
}
 
 
static void disasmRRH(char *opName, int r1, int r2, Half immed) {
  sprintf(instrBuffer, "%-7s $%d,$%d,%04X", opName, r1, r2, immed);
}
 
 
static void disasmRRS(char *opName, int r1, int r2, Half immed) {
  sprintf(instrBuffer, "%-7s $%d,$%d,%s%04X", opName, r1, r2,
          SIGN(16) & immed ? "-" : "+",
          SIGN(16) & immed ? -(signed)SEXT16(immed) : SEXT16(immed));
}
 
 
static void disasmRRR(char *opName, int r1, int r2, int r3) {
  sprintf(instrBuffer, "%-7s $%d,$%d,$%d", opName, r1, r2, r3);
}
 
 
static void disasmRRB(char *opName, int r1, int r2, Half offset, Word locus) {
  sprintf(instrBuffer, "%-7s $%d,$%d,%08X", opName,
          r1, r2, (locus + 4) + (SEXT16(offset) << 2));
}
 
 
static void disasmJ(char *opName, Word offset, Word locus) {
  sprintf(instrBuffer, "%-7s %08X", opName,
          (locus + 4) + (SEXT26(offset) << 2));
}
 
 
static void disasmJR(char *opName, int r1) {
  sprintf(instrBuffer, "%-7s $%d", opName, r1);
}
 
 
char *disasm(Word instr, Word locus) {
  Byte opcode;
  Instr *ip;
 
  opcode = (instr >> 26) & 0x3F;
  ip = instrCodeTbl[opcode];
  if (ip == NULL) {
    disasmN("???", 0);
  } else {
    switch (ip->format) {
      case FORMAT_N:
        disasmN(ip->name, instr & 0x03FFFFFF);
        break;
      case FORMAT_RH:
        disasmRH(ip->name, (instr >> 16) & 0x1F, instr & 0x0000FFFF);
        break;
      case FORMAT_RHH:
        disasmRHH(ip->name, (instr >> 16) & 0x1F, instr & 0x0000FFFF);
        break;
      case FORMAT_RRH:
        disasmRRH(ip->name, (instr >> 16) & 0x1F,
                  (instr >> 21) & 0x1F, instr & 0x0000FFFF);
        break;
      case FORMAT_RRS:
        disasmRRS(ip->name, (instr >> 16) & 0x1F,
                  (instr >> 21) & 0x1F, instr & 0x0000FFFF);
        break;
      case FORMAT_RRR:
        disasmRRR(ip->name, (instr >> 11) & 0x1F,
                  (instr >> 21) & 0x1F, (instr >> 16) & 0x1F);
        break;
      case FORMAT_RRX:
        if ((opcode & 1) == 0) {
          /* the FORMAT_RRR variant */
          disasmRRR(ip->name, (instr >> 11) & 0x1F,
                    (instr >> 21) & 0x1F, (instr >> 16) & 0x1F);
        } else {
          /* the FORMAT_RRH variant */
          disasmRRH(ip->name, (instr >> 16) & 0x1F,
                    (instr >> 21) & 0x1F, instr & 0x0000FFFF);
        }
        break;
      case FORMAT_RRY:
        if ((opcode & 1) == 0) {
          /* the FORMAT_RRR variant */
          disasmRRR(ip->name, (instr >> 11) & 0x1F,
                    (instr >> 21) & 0x1F, (instr >> 16) & 0x1F);
        } else {
          /* the FORMAT_RRS variant */
          disasmRRS(ip->name, (instr >> 16) & 0x1F,
                    (instr >> 21) & 0x1F, instr & 0x0000FFFF);
        }
        break;
      case FORMAT_RRB:
        disasmRRB(ip->name, (instr >> 21) & 0x1F,
                  (instr >> 16) & 0x1F, instr & 0x0000FFFF, locus);
        break;
      case FORMAT_J:
        disasmJ(ip->name, instr & 0x03FFFFFF, locus);
        break;
      case FORMAT_JR:
        disasmJR(ip->name, (instr >> 21) & 0x1F);
        break;
      default:
        printf("illegal entry in instruction table\n");
        break;
    }
  }
  return instrBuffer;
}

Line No.	Rev	Author	Line
1	59	hellwig	`/*`
2			`* disasm.c -- disassembler`
3			`*/`
4
5
6			`#include "common.h"`
7			`#include "stdarg.h"`
8			`#include "romlib.h"`
9			`#include "instr.h"`
10			`#include "disasm.h"`
11
12
13			`static char instrBuffer[100];`
14
15
16			`static void disasmN(char *opName, Word immed) {`
17			`if (immed == 0) {`
18			`sprintf(instrBuffer, "%-7s", opName);`
19			`} else {`
20			`sprintf(instrBuffer, "%-7s %08X", opName, immed);`
21			`}`
22			`}`
23
24
25			`static void disasmRH(char *opName, int r1, Half immed) {`
26			`sprintf(instrBuffer, "%-7s $%d,%04X", opName, r1, immed);`
27			`}`
28
29
30			`static void disasmRHH(char *opName, int r1, Half immed) {`
31			`sprintf(instrBuffer, "%-7s $%d,%08X", opName, r1, (Word) immed << 16);`
32			`}`
33
34
35			`static void disasmRRH(char *opName, int r1, int r2, Half immed) {`
36			`sprintf(instrBuffer, "%-7s $%d,$%d,%04X", opName, r1, r2, immed);`
37			`}`
38
39
40			`static void disasmRRS(char *opName, int r1, int r2, Half immed) {`
41			`sprintf(instrBuffer, "%-7s $%d,$%d,%s%04X", opName, r1, r2,`
42			`SIGN(16) & immed ? "-" : "+",`
43			`SIGN(16) & immed ? -(signed)SEXT16(immed) : SEXT16(immed));`
44			`}`
45
46
47			`static void disasmRRR(char *opName, int r1, int r2, int r3) {`
48			`sprintf(instrBuffer, "%-7s $%d,$%d,$%d", opName, r1, r2, r3);`
49			`}`
50
51
52			`static void disasmRRB(char *opName, int r1, int r2, Half offset, Word locus) {`
53			`sprintf(instrBuffer, "%-7s $%d,$%d,%08X", opName,`
54			`r1, r2, (locus + 4) + (SEXT16(offset) << 2));`
55			`}`
56
57
58			`static void disasmJ(char *opName, Word offset, Word locus) {`
59			`sprintf(instrBuffer, "%-7s %08X", opName,`
60			`(locus + 4) + (SEXT26(offset) << 2));`
61			`}`
62
63
64			`static void disasmJR(char *opName, int r1) {`
65			`sprintf(instrBuffer, "%-7s $%d", opName, r1);`
66			`}`
67
68
69			`char *disasm(Word instr, Word locus) {`
70			`Byte opcode;`
71			`Instr *ip;`
72
73			`opcode = (instr >> 26) & 0x3F;`
74			`ip = instrCodeTbl[opcode];`
75			`if (ip == NULL) {`
76			`disasmN("???", 0);`
77			`} else {`
78			`switch (ip->format) {`
79			`case FORMAT_N:`
80			`disasmN(ip->name, instr & 0x03FFFFFF);`
81			`break;`
82			`case FORMAT_RH:`
83			`disasmRH(ip->name, (instr >> 16) & 0x1F, instr & 0x0000FFFF);`
84			`break;`
85			`case FORMAT_RHH:`
86			`disasmRHH(ip->name, (instr >> 16) & 0x1F, instr & 0x0000FFFF);`
87			`break;`
88			`case FORMAT_RRH:`
89			`disasmRRH(ip->name, (instr >> 16) & 0x1F,`
90			`(instr >> 21) & 0x1F, instr & 0x0000FFFF);`
91			`break;`
92			`case FORMAT_RRS:`
93			`disasmRRS(ip->name, (instr >> 16) & 0x1F,`
94			`(instr >> 21) & 0x1F, instr & 0x0000FFFF);`
95			`break;`
96			`case FORMAT_RRR:`
97			`disasmRRR(ip->name, (instr >> 11) & 0x1F,`
98			`(instr >> 21) & 0x1F, (instr >> 16) & 0x1F);`
99			`break;`
100			`case FORMAT_RRX:`
101			`if ((opcode & 1) == 0) {`
102			`/* the FORMAT_RRR variant */`
103			`disasmRRR(ip->name, (instr >> 11) & 0x1F,`
104			`(instr >> 21) & 0x1F, (instr >> 16) & 0x1F);`
105			`} else {`
106			`/* the FORMAT_RRH variant */`
107			`disasmRRH(ip->name, (instr >> 16) & 0x1F,`
108			`(instr >> 21) & 0x1F, instr & 0x0000FFFF);`
109			`}`
110			`break;`
111			`case FORMAT_RRY:`
112			`if ((opcode & 1) == 0) {`
113			`/* the FORMAT_RRR variant */`
114			`disasmRRR(ip->name, (instr >> 11) & 0x1F,`
115			`(instr >> 21) & 0x1F, (instr >> 16) & 0x1F);`
116			`} else {`
117			`/* the FORMAT_RRS variant */`
118			`disasmRRS(ip->name, (instr >> 16) & 0x1F,`
119			`(instr >> 21) & 0x1F, instr & 0x0000FFFF);`
120			`}`
121			`break;`
122			`case FORMAT_RRB:`
123			`disasmRRB(ip->name, (instr >> 21) & 0x1F,`
124			`(instr >> 16) & 0x1F, instr & 0x0000FFFF, locus);`
125			`break;`
126			`case FORMAT_J:`
127			`disasmJ(ip->name, instr & 0x03FFFFFF, locus);`
128			`break;`
129			`case FORMAT_JR:`
130			`disasmJR(ip->name, (instr >> 21) & 0x1F);`
131			`break;`
132			`default:`
133			`printf("illegal entry in instruction table\n");`
134			`break;`
135			`}`
136			`}`
137			`return instrBuffer;`
138			`}`

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [monitor/] [monitor/] [common/] [disasm.c] - Blame information for rev 59