--- /dev/null
+/*******************************************************************************
+*
+* File: dasm.c
+* Description: Disassembler for TUMBL binary code.
+* Syntax: mb-dasm [binFilename]
+* if no binFilename specified, defaults to imem.bin in local
+* directory.
+*
+* Author: Huib Lincklaen Arriens
+* Date: August 2010
+*
+* Note: No checks, e.g. on inputfile being a multiple of 4 bytes
+*
+********************************************************************************/
+
+
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <iostream>
+#include <fstream>
+#include <iomanip>
+
+
+// TUMBL Opcodes to be handled explicitely
+#define OP_CMP 0x05
+
+#define OP_MUL 0x10
+#define OP_BS 0x11
+#define OP_IDIV 0x12
+#define OP_FSL 0x13
+#define OP_FP 0x16
+#define OP_MULI 0x18
+#define OP_BSI 0x19
+#define OP_FSLD 0x1B
+
+#define OP_SEXT 0x24
+#define OP_SPR 0x25
+#define OP_BR 0x26 // for br brd brld bra brad brald brk
+#define OP_BRC 0x27 // for beq bne blt ble bgt bge
+#define OP_IMM 0x2C
+#define OP_RTBD 0x2D
+#define OP_BRI 0x2E // for bri brid brlid brai braid
+#define OP_BRCI 0x2F // for beqi bnei blti blei bgti bgei
+
+
+using namespace std;
+
+static const int MAXMEM = 65536;
+
+static const char *opc_Tbl[] =
+ { "add ", "rsub ", "addc ", "rsubc ", "addk ", "x_cmp ", "addkc ", "rsubkc ",
+ "addi ", "rsubi ", "addic ", "rsubic ", "addik ", "rsubik ", "addikc ", "rsubikc ",
+ "mul ", "bs ", "idiv ", "FSLd ", "-- ", "-- ", "FPI ", "-- ",
+ "muli ", "bsi ", "-- ", "FSL ", "-- ", "-- ", "-- ", "-- ",
+ "or ", "and ", "xor ", "andn ", "sext ", "SPR ", "br ", "brc ",
+ "ori ", "andi ", "xori ", "andni ", "imm ", "rtbd ", "bri ", "brci ",
+ "lbu ", "lhu ", "lw ", "-- ", "sb ", "sh ", "sw ", "-- ",
+ "lbui ", "lhui ", "lwi ", "-- ", "sbi ", "shi ", "swi ", "-- " };
+
+static const char *brc_Tbl[] =
+ { "beq", "bne", "blt", "ble", "bgt", "bge" };
+
+
+char s1str[80] = "";
+char s2str[25] = "";
+const char spc_str[17] = " ";
+unsigned int imem[MAXMEM];
+unsigned int mem_size;
+
+
+void print_Usage (char *cmd_name)
+{
+ fprintf( stderr, "Usage: %s [binFilename]\n", cmd_name);
+ fprintf( stderr, "where the optional binFilename references a binary (Little Endian) code file.\n");
+ fprintf( stderr, "If not specified binFilename tries to read imem.bin in the local directory.\n");
+}
+
+void read_bin (char *binFilename, unsigned int *imem, unsigned int *mem_size)
+{
+ ifstream binFile( binFilename, ios::in | ios::binary );
+ // the next type should be "char" because the iostream needs it like that ....
+ char bin_bytes[MAXMEM]; // 4 Bytes in a Word
+ int isize;
+ int i, j;
+
+ cout << "Reading " << binFilename << " ..." << endl << endl;
+ if ( binFile.fail() ) {cout << "Cannot open " << binFilename << " ..." << endl; exit (1);}
+ // get length of file:
+ binFile.seekg (0, ios::end);
+ isize = binFile.tellg();
+ if (isize > sizeof(bin_bytes)) {
+ cout << binFilename << " larger than " << MAXMEM/1024 << " kBytes ("
+ << MAXMEM/4096 << " kWords) ..." << endl << endl;
+ exit (1);
+ }
+ *mem_size = isize/4;
+ binFile.seekg (0, ios::beg);
+ // read data as a block:
+ binFile.read (bin_bytes, isize);
+ if ( binFile.fail() ) {cout << "Read error ..." << endl; exit (2);}
+ binFile.close();
+ for (i = 0, j = 0; i < isize; i += 4, j++ ) {
+ // remember iostream only read signed chars ...
+ imem[j] = ((unsigned char)bin_bytes[i] << 24) +
+ ((unsigned char)bin_bytes[i+1] << 16) +
+ ((unsigned char)bin_bytes[i+2] << 8) +
+ (unsigned char)bin_bytes[i+3];
+ }
+}
+
+void disasm (unsigned int pci)
+{
+ unsigned int pcb, ins;
+ unsigned int opc;
+ unsigned int rd, ra, rb, imm;
+ int s_imm;
+ unsigned int s1len;
+ bool a, l, d, b;
+ bool xpand, valid_code;
+
+ pcb = 4*pci;
+ ins = imem[pci];
+ // decode the current instruction
+ opc = (ins >> 26) & 0x3F;
+ ra = (ins >> 16) & 0x1F;
+ rd = (ins >> 21) & 0x1F;
+ if (!(opc & 0x08)) {
+ rb = (ins >> 11) & 0x1F;
+ imm = ins & 0x07FF; // not really imm!!
+ sprintf (s2str, "r%d, r%d, r%d", rd, ra, rb);
+ }
+ else {
+ imm = ins & 0xFFFF;
+ // 32 bit extension of a 16 bit or an 8 bit number
+ s_imm = imm & 0x8000 ? 0xffff0000 | imm : imm;
+ sprintf (s2str, "r%d, r%d, 0x%0x", rd, ra, imm);
+ }
+
+ if (ins == 0)
+ sprintf (s1str, "nop");
+ else {
+ xpand = 1;
+ switch (opc)
+ {
+ case OP_BR: // BR / BRA / BRD / BRAD / BRLD / BRALD
+ if ((ra & 0x1F) == 0x0C) // BRK
+ {
+ printf ("BRK"); //// ??????
+ }
+ l = ra & 0x04;
+ a = ra & 0x08;
+ d = ra & 0x10;
+ b = (ra & 0x1F) == 0x0C;
+ if (b) sprintf (s1str, "brk r%d, r%d", rd, rb);
+ else
+ if (!l) {
+ s1len = sprintf (s1str, "br%s%s", a ? "a" : "", d ? "d" : "");
+ sprintf (s1str, "%s r%d", strncat(s1str," ",6-s1len), rb);
+ } else {
+ s1len = sprintf (s1str, "br%sl%s", a ? "a" : "", d ? "d" : "");
+ sprintf (s1str, "%s r%d, r%d", strncat(s1str," ",6-s1len), rd, rb);
+ }
+ break;
+ case OP_BRC:
+ if ((rd & 0xf) <= 0x5)
+ sprintf (s1str, "%s%s r%d, 0x%x", brc_Tbl[rd & 0xf], rd & 0x10 ? "d" : " ", ra, rb);
+ else
+ sprintf (s1str, "brc (opcode 0x27) has some errors, please check\n");
+ break;
+ case OP_BRI: // BRI / BRAI / BRID / BRAID / BRLID / BRAILD
+ if ((ra & 0x1F) == 0x0C) // BRK
+ printf ("BRK"); //// ??????
+ l = ra & 0x04;
+ a = ra & 0x08;
+ d = ra & 0x10;
+ b = (ra & 0x1F) == 0x0C;
+ if (b) sprintf (s1str, "brki r%d, 0x%x", rd, imm);
+ else {
+ if (!l) {
+ s1len = sprintf (s1str, "bri%s%s", a ? "a" : "", d ? "d" : "" );
+ s1len = sprintf (s1str, "%s %d", strncat(s1str," ",6-s1len), s_imm);
+ } else {
+ s1len = sprintf (s1str, "bri%sl%s", a ? "a" : "", d ? "d" : "");
+ s1len = sprintf (s1str, "%s r%d, %d", strncat(s1str," ",6-s1len), rd, s_imm);
+ }
+ if (a)
+ sprintf (s1str, "%s// 0x%x", strncat(s1str,spc_str,25-s1len), imm);
+ else
+ sprintf (s1str, "%s// 0x%x", strncat(s1str,spc_str,25-s1len), pcb + s_imm);
+ }
+ break;
+ case OP_BRCI:
+ if ((rd & 0xf) <= 0x5) {
+ s1len = sprintf (s1str, "%si%s r%d, %d", brc_Tbl[rd & 0xf], rd & 0x10 ? "d" : " ", ra, s_imm);
+ sprintf (s1str, "%s// 0x%x", strncat(s1str,spc_str,25-s1len), pcb + s_imm);
+ } else
+ sprintf (s1str, "brci (opcode 0x2f) has some errors, please check\n");
+ break;
+ case OP_BSI:
+ sprintf (s2str, "r%d, r%d, 0x%0x", rd, ra, imm & 0x1F);
+ // !! no break
+ case OP_BS:
+ if (imm & 0x400) // left shift
+ s1len = sprintf (s1str, "bsll%s %s", opc & 0x08 ? "i" : " ", s2str);
+ else
+ s1len = sprintf (s1str, "bsr%s%s %s",
+ imm & 0x200 ? "a" : "l", opc & 0x08 ? "i" : " ", s2str);
+ break;
+ case OP_CMP: // or RSUBK
+ if (imm & 1)
+ sprintf (s1str, "cmp%s %s", imm & 2 ? "u" : " ", s2str);
+ else
+ sprintf (s1str, "rsubk %s", s2str);
+ break;
+ case OP_FP:
+ sprintf (s1str, "Floating Point Instruction NOT IMPLEMENTED IN TUMBL");
+ break;
+ case OP_FSL:
+ case OP_FSLD:
+ sprintf (s1str, "FSL Instruction NOT IMPLEMENTED IN TUMBL");
+ break;
+ case OP_IDIV:
+ s1len = sprintf (s1str, "idiv%s %s", imm & 0x02 ? "u" : " ", s2str);
+ sprintf (s1str, "%s NOT IMPLEMENTED IN TUMBL", strncat(s1str,spc_str,25-s1len));
+ break;
+ case OP_IMM:
+ sprintf (s1str, "imm 0x%04x // %d", imm, s_imm);
+ break;
+ case OP_MUL:
+ case OP_MULI:
+ s1len = sprintf (s1str, "%s%s", opc_Tbl[opc], s2str);
+ break;
+ case OP_RTBD:
+ valid_code = 1;
+ switch(rd) {
+ case 0x12: sprintf (s2str, "rtbd"); break; // RTBD
+ case 0x11: sprintf (s2str, "rtid"); break; // RTID
+ case 0x14: sprintf (s2str, "rted"); break; // RTED
+ case 0x10: sprintf (s2str, "rtsd"); break; // RTSD
+ default:
+ sprintf (s1str, "Illegal subopcode in OP_RTBD");
+ valid_code = 0;
+ }
+ if (valid_code)
+ sprintf (s1str, "%s r%d, 0x%x", s2str, ra, imm);
+ break;
+ case OP_SEXT:
+ valid_code = 1;
+ switch (imm) {
+ case 0x61: sprintf (s2str, "sext16"); break; // SEXT16
+ case 0x60: sprintf (s2str, "sext8 "); break; // SEXT8
+ case 0x01: sprintf (s2str, "sra "); break; // SRA
+ case 0x21: sprintf (s2str, "src "); break; // SRC
+ case 0x41: sprintf (s2str, "srl "); break; // SRL
+ default :
+ sprintf (s1str, "OP_SEXT has some errors, please check" );
+ valid_code = 0;
+ }
+ if (valid_code)
+ sprintf (s1str, "%s r%d, r%d", s2str, rd, ra);
+ break;
+ case OP_SPR:
+ sprintf (s1str, "SP-Reg Instruction NOT IMPLEMENTED IN TUMBL");
+ break;
+ default:
+ xpand = 0;
+ } // switch (opc)
+
+ if (!xpand) {
+ if (strncmp(opc_Tbl[opc],"--",2))
+ sprintf (s1str, "%s%s", opc_Tbl[opc], s2str);
+ else
+ sprintf (s1str, "Unknown instruction / possibly data ?");
+ }
+ }
+ printf ("%6x: %08x %s\n", pcb, ins, s1str);
+}
+
+
+int main(int argc, char *argv[])
+{
+ char binFilename[132];
+
+ // note: strncmp == 0 if the parts of the strings are equal
+ if ((argc > 2) || ((argc == 2) && !strncmp(argv[1],"-",1))) {
+ print_Usage( argv[0]);
+ return (1);
+ }
+
+ if (argc == 2)
+ sprintf( binFilename, argv[1]);
+ else
+ sprintf( binFilename, "imem.bin");
+ read_bin (binFilename, imem, &mem_size);
+ for (int pci = 0; pci < mem_size; pci++)
+ disasm (pci);
+}
+