Shamusworld >> Repos - virtualjaguar/blob - src/jagdasm.cpp

   1 #include "include/jaguar.h"
   2
   3 #define ROPCODE(a) jaguar_word_read(a)
   4
   5 uint8 convert_zero[32] =
   6 { 32,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 };
   7
   8 char *condition[32] =
   9 {
  10         "",
  11         "nz,",
  12         "z,",
  13         "???,",
  14         "nc,",
  15         "nc nz,",
  16         "nc z,",
  17         "???,",
  18         "c,",
  19         "c nz,",
  20         "c z,",
  21         "???,",
  22         "???,",
  23         "???,",
  24         "???,",
  25         "???,",
  26
  27         "???,",
  28         "???,",
  29         "???,",
  30         "???,",
  31         "nn,",
  32         "nn nz,",
  33         "nn z,",
  34         "???,",
  35         "n,",
  36         "n nz,",
  37         "n z,",
  38         "???,",
  39         "???,",
  40         "???,",
  41         "???,",
  42         "never,"
  43 };
  44
  45
  46
  47 char *signed_16bit(INT16 val)
  48 {
  49         static char temp[10];
  50         if (val < 0)
  51                 sprintf(temp, "-$%x", -val);
  52         else
  53                 sprintf(temp, "$%x", val);
  54         return temp;
  55 }
  56
  57 unsigned dasmjag(int dsp_type, char *buffer, unsigned pc)
  58 {
  59         int op = ROPCODE(pc);
  60         int reg1 = (op >> 5) & 31;
  61         int reg2 = op & 31;
  62         int size = 2;
  63
  64         pc += 2;
  65         switch (op >> 10)
  66         {
  67                 case 0:         sprintf(buffer, "add     r%d,r%d", reg1, reg2);                                 break;
  68                 case 1:         sprintf(buffer, "addc    r%d,r%d", reg1, reg2);                                 break;
  69                 case 2:         sprintf(buffer, "addq    $%x,r%d", convert_zero[reg1], reg2);   break;
  70                 case 3:         sprintf(buffer, "addqt   $%x,r%d", convert_zero[reg1], reg2);   break;
  71                 case 4:         sprintf(buffer, "sub     r%d,r%d", reg1, reg2);                                 break;
  72                 case 5:         sprintf(buffer, "subc    r%d,r%d", reg1, reg2);                                 break;
  73                 case 6:         sprintf(buffer, "subq    $%x,r%d", convert_zero[reg1], reg2);   break;
  74                 case 7:         sprintf(buffer, "subqt   $%x,r%d", convert_zero[reg1], reg2);   break;
  75                 case 8:         sprintf(buffer, "neg     r%d", reg2);                                                   break;
  76                 case 9:         sprintf(buffer, "and     r%d,r%d", reg1, reg2);                                 break;
  77                 case 10:        sprintf(buffer, "or      r%d,r%d", reg1, reg2);                                 break;
  78                 case 11:        sprintf(buffer, "xor     r%d,r%d", reg1, reg2);                                 break;
  79                 case 12:        sprintf(buffer, "not     r%d", reg2);                                                   break;
  80                 case 13:        sprintf(buffer, "btst    $%x,r%d", reg1, reg2);                                 break;
  81                 case 14:        sprintf(buffer, "bset    $%x,r%d", reg1, reg2);                                 break;
  82                 case 15:        sprintf(buffer, "bclr    $%x,r%d", reg1, reg2);                                 break;
  83                 case 16:        sprintf(buffer, "mult    r%d,r%d", reg1, reg2);                                 break;
  84                 case 17:        sprintf(buffer, "imult   r%d,r%d", reg1, reg2);                                 break;
  85                 case 18:        sprintf(buffer, "imultn  r%d,r%d", reg1, reg2);                                 break;
  86                 case 19:        sprintf(buffer, "resmac  r%d", reg2);                                                   break;
  87                 case 20:        sprintf(buffer, "imacn   r%d,r%d", reg1, reg2);                                 break;
  88                 case 21:        sprintf(buffer, "div     r%d,r%d", reg1, reg2);                                 break;
  89                 case 22:        sprintf(buffer, "abs     r%d", reg2);                                                   break;
  90                 case 23:        sprintf(buffer, "sh      r%d,r%d", reg1, reg2);                                 break;
  91                 case 24:        sprintf(buffer, "shlq    $%x,r%d", 32 - convert_zero[reg1], reg2);      break;
  92                 case 25:        sprintf(buffer, "shrq    $%x,r%d", convert_zero[reg1], reg2);   break;
  93                 case 26:        sprintf(buffer, "sha     r%d,r%d", reg1, reg2);                                 break;
  94                 case 27:        sprintf(buffer, "sharq   $%x,r%d", convert_zero[reg1], reg2);   break;
  95                 case 28:        sprintf(buffer, "ror     r%d,r%d", reg1, reg2);                                 break;
  96                 case 29:        sprintf(buffer, "rorq    $%x,r%d", convert_zero[reg1], reg2);   break;
  97                 case 30:        sprintf(buffer, "cmp     r%d,r%d", reg1, reg2);                                 break;
  98                 case 31:        sprintf(buffer, "cmpq    %s,r%d", signed_16bit((INT16)(reg1 << 11) >> 11), reg2);break;
  99                 case 32:        if (dsp_type == JAGUAR_GPU)
 100                                         sprintf(buffer, "sat8    r%d", reg2);
 101                                         else
 102                                         sprintf(buffer, "subqmod $%x,r%d", convert_zero[reg1], reg2);
 103                                         break;
 104                 case 33:        if (dsp_type == JAGUAR_GPU)
 105                                         sprintf(buffer, "sat16   r%d", reg2);
 106                                         else
 107                                         sprintf(buffer, "sat16s  r%d", reg2);
 108                                         break;
 109                 case 34:        sprintf(buffer, "move    r%d,r%d", reg1, reg2);                                 break;
 110                 case 35:        sprintf(buffer, "moveq   %d,r%d", reg1, reg2);                                  break;
 111                 case 36:        sprintf(buffer, "moveta  r%d,r%d", reg1, reg2);                                 break;
 112                 case 37:        sprintf(buffer, "movefa  r%d,r%d", reg1, reg2);                                 break;
 113                 case 38:        sprintf(buffer, "movei   $%x,r%d", ROPCODE(pc) | (ROPCODE(pc+2)<<16), reg2); size = 6; break;
 114                 case 39:        sprintf(buffer, "loadb   (r%d),r%d", reg1, reg2);                                       break;
 115                 case 40:        sprintf(buffer, "loadw   (r%d),r%d", reg1, reg2);                                       break;
 116                 case 41:        sprintf(buffer, "load    (r%d),r%d", reg1, reg2);                                       break;
 117                 case 42:        if (dsp_type == JAGUAR_GPU)
 118                                         sprintf(buffer, "loadp   (r%d),r%d", reg1, reg2);
 119                                         else
 120                                         sprintf(buffer, "sat32s  r%d", reg2);
 121                                         break;
 122                 case 43:        sprintf(buffer, "load    (r14+$%x),r%d", convert_zero[reg1]*4, reg2);break;
 123                 case 44:        sprintf(buffer, "load    (r15+$%x),r%d", convert_zero[reg1]*4, reg2);break;
 124                 case 45:        sprintf(buffer, "storeb  r%d,(r%d)", reg2, reg1);                               break;
 125                 case 46:        sprintf(buffer, "storew  r%d,(r%d)", reg2, reg1);                               break;
 126                 case 47:        sprintf(buffer, "store   r%d,(r%d)", reg2, reg1);                                       break;
 127                 case 48:        if (dsp_type == JAGUAR_GPU)
 128                                         sprintf(buffer, "storep  r%d,(r%d)", reg2, reg1);
 129                                         else
 130                                         sprintf(buffer, "mirror  r%d", reg2);
 131                                         break;
 132                 case 49:        sprintf(buffer, "store   r%d,(r14+$%x)", reg2, convert_zero[reg1]*4);break;
 133                 case 50:        sprintf(buffer, "store   r%d,(r15+$%x)", reg2, convert_zero[reg1]*4);break;
 134                 case 51:        sprintf(buffer, "move    pc,r%d", reg2);                                                        break;
 135                 case 52:        sprintf(buffer, "jump    %s(r%d)", condition[reg2], reg1);                      break;
 136                 case 53:        sprintf(buffer, "jr      %s%08X", condition[reg2], pc + ((INT8)(reg1 << 3) >> 2)); break;
 137                 case 54:        sprintf(buffer, "mmult   r%d,r%d", reg1, reg2);                                 break;
 138                 case 55:        sprintf(buffer, "mtoi    r%d,r%d", reg1, reg2);                                 break;
 139                 case 56:        sprintf(buffer, "normi   r%d,r%d", reg1, reg2);                                 break;
 140                 case 57:        sprintf(buffer, "nop");                                                                                 break;
 141                 case 58:        sprintf(buffer, "load    (r14+r%d),r%d", reg1, reg2);                           break;
 142                 case 59:        sprintf(buffer, "load    (r15+r%d),r%d", reg1, reg2);                           break;
 143                 case 60:        sprintf(buffer, "store   r%d,(r14+r%d)", reg2, reg1);                           break;
 144                 case 61:        sprintf(buffer, "store   r%d,(r15+r%d)", reg2, reg1);                           break;
 145                 case 62:        if (dsp_type == JAGUAR_GPU)
 146                                         sprintf(buffer, "sat24   r%d", reg2);
 147                                         else
 148                                         sprintf(buffer, "illegal");
 149                                         break;
 150                 case 63:        if (dsp_type == JAGUAR_GPU)
 151                                         sprintf(buffer, reg1 ?
 152                                                         "unpack  r%d" :
 153                                                         "pack    r%d", reg2);
 154                                         else
 155                                         sprintf(buffer, "addqmod $%x,r%d", convert_zero[reg1], reg2);
 156                                         break;
 157         }
 158         sprintf(buffer,"%s (0x%.4x)",buffer,op);
 159         return size;
 160 }