Search
lxdream.org :: lxdream/src/sh4/sh4dasm.c
lxdream 0.9.1
released Jun 29
Download Now
filename src/sh4/sh4dasm.c
changeset 2:42349f6ea216
prev1:eea311cfd33e
next9:2784c7660165
author nkeynes
date Sat Aug 21 06:15:49 2004 +0000 (16 years ago)
permissions -rw-r--r--
last change Commit changes into cvs
view annotate diff log raw
     1 #include "sh4core.h"
     2 #include "sh4dasm.h"
     3 #include "mem.h"
     5 #define UNIMP(ir) snprintf( buf, len, "???     " )
     7 int sh4_disasm_instruction( int pc, char *buf, int len )
     8 {
     9     uint16_t ir = mem_read_word(pc);
    11 #define RN(ir) ((ir&0x0F00)>>8)
    12 #define RN_BANK(ir) ((ir&0x0070)>>4)
    13 #define RM(ir) ((ir&0x00F0)>>4)
    14 #define DISP4(ir) (ir&0x000F) /* 4-bit displacements are *not* sign extended */
    15 #define DISP8(ir) (ir&0x00FF)
    16 #define PCDISP8(ir) SIGNEXT8(ir&0x00FF)
    17 #define UIMM8(ir) (ir&0x00FF)
    18 #define IMM8(ir) SIGNEXT8(ir&0x00FF)
    19 #define DISP12(ir) SIGNEXT12(ir&0x0FFF)
    20 #define FVN(ir) ((ir&0x0C00)>>10)
    21 #define FVM(ir) ((ir&0x0300)>>8)
    23     switch( (ir&0xF000)>>12 ) {
    24         case 0: /* 0000nnnnmmmmxxxx */
    25             switch( ir&0x000F ) {
    26                 case 2:
    27                     switch( (ir&0x00F0)>>4 ) {
    28                         case 0: snprintf( buf, len, "STC     SR, R%d", RN(ir) ); break;
    29                         case 1: snprintf( buf, len, "STC     GBR, R%d", RN(ir) ); break;
    30                         case 2: snprintf( buf, len, "STC     VBR, R%d", RN(ir) ); break;
    31                         case 3: snprintf( buf, len, "STC     SSR, R%d", RN(ir) ); break;
    32                         case 4: snprintf( buf, len, "STC     SPC, R%d", RN(ir) ); break;
    33                         case 8: case 9: case 10: case 11: case 12: case 13: case 14:
    34                         case 15:snprintf( buf, len, "STC     R%d_bank, R%d", RN_BANK(ir), RN(ir) ); break;
    35                         default: UNIMP(ir);
    36                     }
    37                     break;
    38                 case 3:
    39                     switch( (ir&0x00F0)>>4 ) {
    40                         case 0: snprintf( buf, len, "BSRF    R%d", RN(ir) ); break;
    41                         case 2: snprintf( buf, len, "BRAF    R%d", RN(ir) ); break;
    42                         case 8: snprintf( buf, len, "PREF    [R%d]", RN(ir) ); break;
    43                         case 9: snprintf( buf, len, "OCBI    [R%d]", RN(ir) ); break;
    44                         case 10:snprintf( buf, len, "OCBP    [R%d]", RN(ir) ); break;
    45                         case 11:snprintf( buf, len, "OCBWB   [R%d]", RN(ir) ); break;
    46                         case 12:snprintf( buf, len, "MOVCA.L R0, [R%d]", RN(ir) ); break;
    47                         default: UNIMP(ir);
    48                     }
    49                     break;
    50                 case 4: snprintf( buf, len, "MOV.B   R%d, [R0+R%d]", RM(ir), RN(ir) ); break;
    51                 case 5: snprintf( buf, len, "MOV.W   R%d, [R0+R%d]", RM(ir), RN(ir) ); break;
    52                 case 6: snprintf( buf, len, "MOV.L   R%d, [R0+R%d]", RM(ir), RN(ir) ); break;
    53                 case 7: snprintf( buf, len, "MUL.L   R%d, R%d", RM(ir), RN(ir) ); break;
    54                 case 8:
    55                     switch( (ir&0x0FF0)>>4 ) {
    56                         case 0: snprintf( buf, len, "CLRT    " ); break;
    57                         case 1: snprintf( buf, len, "SETT    " ); break;
    58                         case 2: snprintf( buf, len, "CLRMAC  " ); break;
    59                         case 3: snprintf( buf, len, "LDTLB   " ); break;
    60                         case 4: snprintf( buf, len, "CLRS    " ); break;
    61                         case 5: snprintf( buf, len, "SETS    " ); break;
    62                         default: UNIMP(ir);
    63                     }
    64                     break;
    65                 case 9:
    66                     if( (ir&0x00F0) == 0x20 )
    67                         snprintf( buf, len, "MOVT    R%d", RN(ir) );
    68                     else if( ir == 0x0019 )
    69                         snprintf( buf, len, "DIV0U   " );
    70                     else if( ir == 0x0009 )
    71                         snprintf( buf, len, "NOP     " );
    72                     else UNIMP(ir);
    73                     break;
    74                 case 10:
    75                     switch( (ir&0x00F0) >> 4 ) {
    76                         case 0: snprintf( buf, len, "STS     MACH, R%d", RN(ir) ); break;
    77                         case 1: snprintf( buf, len, "STS     MACL, R%d", RN(ir) ); break;
    78                         case 2: snprintf( buf, len, "STS     PR, R%d", RN(ir) ); break;
    79                         case 3: snprintf( buf, len, "STC     SGR, R%d", RN(ir) ); break;
    80                         case 5: snprintf( buf, len, "STS     FPUL, R%d", RN(ir) ); break;
    81                         case 6: snprintf( buf, len, "STS     FPSCR, R%d", RN(ir) ); break;
    82                         case 15:snprintf( buf, len, "STC     DBR, R%d", RN(ir) ); break;
    83                         default: UNIMP(ir);
    84                     }
    85                     break;
    86                 case 11:
    87                     switch( (ir&0x0FF0)>>4 ) {
    88                         case 0: snprintf( buf, len, "RTS     " ); break;
    89                         case 1: snprintf( buf, len, "SLEEP   " ); break;
    90                         case 2: snprintf( buf, len, "RTE     " ); break;
    91                         default:UNIMP(ir);
    92                     }
    93                     break;
    94                 case 12:snprintf( buf, len, "MOV.B   [R0+R%d], R%d", RM(ir), RN(ir) ); break;
    95                 case 13:snprintf( buf, len, "MOV.W   [R0+R%d], R%d", RM(ir), RN(ir) ); break;
    96                 case 14:snprintf( buf, len, "MOV.L   [R0+R%d], R%d", RM(ir), RN(ir) ); break;
    97                 case 15:snprintf( buf, len, "MAC.L   [R%d++], [R%d++]", RM(ir), RN(ir) ); break;
    98                 default: UNIMP(ir);
    99             }
   100             break;
   101         case 1: /* 0001nnnnmmmmdddd */
   102             snprintf( buf, len, "MOV.L   R%d, [R%d%+d]", RM(ir), RN(ir), DISP4(ir)<<2 ); break;
   103         case 2: /* 0010nnnnmmmmxxxx */
   104             switch( ir&0x000F ) {
   105                 case 0: snprintf( buf, len, "MOV.B   R%d, [R%d]", RM(ir), RN(ir) ); break;
   106                 case 1: snprintf( buf, len, "MOV.W   R%d, [R%d]", RM(ir), RN(ir) ); break;
   107                 case 2: snprintf( buf, len, "MOV.L   R%d, [R%d]", RM(ir), RN(ir) ); break;
   108                 case 3: UNIMP(ir); break;
   109                 case 4: snprintf( buf, len, "MOV.B   R%d, [--R%d]", RM(ir), RN(ir) ); break;
   110                 case 5: snprintf( buf, len, "MOV.W   R%d, [--R%d]", RM(ir), RN(ir) ); break;
   111                 case 6: snprintf( buf, len, "MOV.L   R%d, [--R%d]", RM(ir), RN(ir) ); break;
   112                 case 7: snprintf( buf, len, "DIV0S   R%d, R%d", RM(ir), RN(ir) ); break;
   113                 case 8: snprintf( buf, len, "TST     R%d, R%d", RM(ir), RN(ir) ); break;
   114                 case 9: snprintf( buf, len, "AND     R%d, R%d", RM(ir), RN(ir) ); break;
   115                 case 10:snprintf( buf, len, "XOR     R%d, R%d", RM(ir), RN(ir) ); break;
   116                 case 11:snprintf( buf, len, "OR      R%d, R%d", RM(ir), RN(ir) ); break;
   117                 case 12:snprintf( buf, len, "CMP/STR R%d, R%d", RM(ir), RN(ir) ); break;
   118                 case 13:snprintf( buf, len, "XTRCT   R%d, R%d", RM(ir), RN(ir) ); break;
   119                 case 14:snprintf( buf, len, "MULU.W  R%d, R%d", RM(ir), RN(ir) ); break;
   120                 case 15:snprintf( buf, len, "MULS.W  R%d, R%d", RM(ir), RN(ir) ); break;
   121             }
   122             break;
   123         case 3: /* 0011nnnnmmmmxxxx */
   124             switch( ir&0x000F ) {
   125                 case 0: snprintf( buf, len, "CMP/EQ  R%d, R%d", RM(ir), RN(ir) ); break;
   126                 case 2: snprintf( buf, len, "CMP/HS  R%d, R%d", RM(ir), RN(ir) ); break;
   127                 case 3: snprintf( buf, len, "CMP/GE  R%d, R%d", RM(ir), RN(ir) ); break;
   128                 case 4: snprintf( buf, len, "DIV1    R%d, R%d", RM(ir), RN(ir) ); break;
   129                 case 5: snprintf( buf, len, "DMULU.L R%d, R%d", RM(ir), RN(ir) ); break;
   130                 case 6: snprintf( buf, len, "CMP/HI  R%d, R%d", RM(ir), RN(ir) ); break;
   131                 case 7: snprintf( buf, len, "CMP/GT  R%d, R%d", RM(ir), RN(ir) ); break;
   132                 case 8: snprintf( buf, len, "SUB     R%d, R%d", RM(ir), RN(ir) ); break;
   133                 case 10:snprintf( buf, len, "SUBC    R%d, R%d", RM(ir), RN(ir) ); break;
   134                 case 11:snprintf( buf, len, "SUBV    R%d, R%d", RM(ir), RN(ir) ); break;
   135                 case 12:snprintf( buf, len, "ADD     R%d, R%d", RM(ir), RN(ir) ); break;
   136                 case 13:snprintf( buf, len, "DMULS.L R%d, R%d", RM(ir), RN(ir) ); break;
   137                 case 14:snprintf( buf, len, "ADDC    R%d, R%d", RM(ir), RN(ir) ); break;
   138                 case 15:snprintf( buf, len, "ADDV    R%d, R%d", RM(ir), RN(ir) ); break;
   139                 default: UNIMP(ir);
   140             }
   141             break;
   142         case 4: /* 0100nnnnxxxxxxxx */
   143             switch( ir&0x00FF ) {
   144                 case 0x00: snprintf( buf, len, "SHLL    R%d", RN(ir) ); break;
   145                 case 0x01: snprintf( buf, len, "SHLR    R%d", RN(ir) ); break;
   146                 case 0x02: snprintf( buf, len, "STS.L   MACH, [--R%d]", RN(ir) ); break;
   147                 case 0x03: snprintf( buf, len, "STC.L   SR, [--R%d]", RN(ir) ); break;
   148                 case 0x04: snprintf( buf, len, "ROTL    R%d", RN(ir) ); break;
   149                 case 0x05: snprintf( buf, len, "ROTR    R%d", RN(ir) ); break;
   150                 case 0x06: snprintf( buf, len, "LDS.L   [R%d++], MACH", RN(ir) ); break;
   151                 case 0x07: snprintf( buf, len, "LDC.L   [R%d++], SR", RN(ir) ); break;
   152                 case 0x08: snprintf( buf, len, "SHLL2   R%d", RN(ir) ); break;
   153                 case 0x09: snprintf( buf, len, "SHLR2   R%d", RN(ir) ); break;
   154                 case 0x0A: snprintf( buf, len, "LDS     R%d, MACH", RN(ir) ); break;
   155                 case 0x0B: snprintf( buf, len, "JSR     [R%d]", RN(ir) ); break;
   156                 case 0x0E: snprintf( buf, len, "LDC     R%d, SR", RN(ir) ); break;
   157                 case 0x10: snprintf( buf, len, "DT      R%d", RN(ir) ); break;
   158                 case 0x11: snprintf( buf, len, "CMP/PZ  R%d", RN(ir) ); break;
   159                 case 0x12: snprintf( buf, len, "STS.L   MACL, [--R%d]", RN(ir) ); break;
   160                 case 0x13: snprintf( buf, len, "STC.L   GBR, [--R%d]", RN(ir) ); break;
   161                 case 0x15: snprintf( buf, len, "CMP/PL  R%d", RN(ir) ); break;
   162                 case 0x16: snprintf( buf, len, "LDS.L   [R%d++], MACL", RN(ir) ); break;
   163                 case 0x17: snprintf( buf, len, "LDC.L   [R%d++], GBR", RN(ir) ); break;
   164                 case 0x18: snprintf( buf, len, "SHLL8   R%d", RN(ir) ); break;
   165                 case 0x19: snprintf( buf, len, "SHLR8   R%d", RN(ir) ); break;
   166                 case 0x1A: snprintf( buf, len, "LDS     R%d, MACL", RN(ir) ); break;
   167                 case 0x1B: snprintf( buf, len, "TAS.B   [R%d]", RN(ir) ); break;
   168                 case 0x1E: snprintf( buf, len, "LDC     R%d, GBR", RN(ir) ); break;
   169                 case 0x20: snprintf( buf, len, "SHAL    R%d", RN(ir) ); break;
   170                 case 0x21: snprintf( buf, len, "SHAR    R%d", RN(ir) ); break;
   171                 case 0x22: snprintf( buf, len, "STS.L   PR, [--R%d]", RN(ir) ); break;
   172                 case 0x23: snprintf( buf, len, "STC.L   VBR, [--R%d]", RN(ir) ); break;
   173                 case 0x24: snprintf( buf, len, "ROTCL   R%d", RN(ir) ); break;
   174                 case 0x25: snprintf( buf, len, "ROTCR   R%d", RN(ir) ); break;
   175                 case 0x26: snprintf( buf, len, "LDS.L   [R%d++], PR", RN(ir) ); break;
   176                 case 0x27: snprintf( buf, len, "LDC.L   [R%d++], VBR", RN(ir) ); break;
   177                 case 0x28: snprintf( buf, len, "SHLL16  R%d", RN(ir) ); break;
   178                 case 0x29: snprintf( buf, len, "SHLR16  R%d", RN(ir) ); break;
   179                 case 0x2A: snprintf( buf, len, "LDS     R%d, PR", RN(ir) ); break;
   180                 case 0x2B: snprintf( buf, len, "JMP     [R%d]", RN(ir) ); break;
   181                 case 0x2E: snprintf( buf, len, "LDC     R%d, VBR", RN(ir) ); break;
   182                 case 0x32: snprintf( buf, len, "STC.L   SGR, [--R%d]", RN(ir) ); break;
   183                 case 0x33: snprintf( buf, len, "STC.L   SSR, [--R%d]", RN(ir) ); break;
   184                 case 0x37: snprintf( buf, len, "LDC.L   [R%d++], SSR", RN(ir) ); break;
   185                 case 0x3E: snprintf( buf, len, "LDC     R%d, SSR", RN(ir) ); break;
   186                 case 0x43: snprintf( buf, len, "STC.L   SPC, [--R%d]", RN(ir) ); break;
   187                 case 0x47: snprintf( buf, len, "LDC.L   [R%d++], SPC", RN(ir) ); break;
   188                 case 0x4E: snprintf( buf, len, "LDC     R%d, SPC", RN(ir) ); break;
   189                 case 0x52: snprintf( buf, len, "STS.L   FPUL, [--R%d]", RN(ir) ); break;
   190                 case 0x56: snprintf( buf, len, "LDS.L   [R%d++], FPUL", RN(ir) ); break;
   191                 case 0x5A: snprintf( buf, len, "LDS     R%d, FPUL", RN(ir) ); break;
   192                 case 0x62: snprintf( buf, len, "STS.L   FPSCR, [--R%d]", RN(ir) ); break;
   193                 case 0x66: snprintf( buf, len, "LDS.L   [R%d++], FPSCR", RN(ir) ); break;
   194                 case 0x6A: snprintf( buf, len, "LDS     R%d, FPSCR", RN(ir) ); break;
   195                 case 0xF2: snprintf( buf, len, "STC.L   DBR, [--R%d]", RN(ir) ); break;
   196                 case 0xF6: snprintf( buf, len, "LDC.L   [R%d++], DBR", RN(ir) ); break;
   197                 case 0xFA: snprintf( buf, len, "LDC     R%d, DBR", RN(ir) ); break;
   198                 case 0x83: case 0x93: case 0xA3: case 0xB3: case 0xC3: case 0xD3: case 0xE3:
   199                 case 0xF3: snprintf( buf, len, "STC.L   R%d_BANK, [--R%d]", RN_BANK(ir), RN(ir) ); break;
   200                 case 0x87: case 0x97: case 0xA7: case 0xB7: case 0xC7: case 0xD7: case 0xE7:
   201                 case 0xF7: snprintf( buf, len, "LDC.L   [R%d++], R%d_BANK", RN(ir), RN_BANK(ir) ); break; 
   202                 case 0x8E: case 0x9E: case 0xAE: case 0xBE: case 0xCE: case 0xDE: case 0xEE:
   203                 case 0xFE: snprintf( buf, len, "LDC     R%d, R%d_BANK", RN(ir), RN_BANK(ir) ); break;
   204                 default:
   205                     if( (ir&0x000F) == 0x0F ) {
   206                         snprintf( buf, len, "MAC.W   [R%d++], [R%d++]", RM(ir), RN(ir) );
   207                     } else if( (ir&0x000F) == 0x0C ) {
   208                         snprintf( buf, len, "SHAD    R%d, R%d", RM(ir), RN(ir) );
   209                     } else if( (ir&0x000F) == 0x0D ) {
   210                         snprintf( buf, len, "SHLD    R%d, R%d", RM(ir), RN(ir) );
   211                     } else UNIMP(ir);
   212             }
   213             break;
   214         case 5: /* 0101nnnnmmmmdddd */
   215             snprintf( buf, len, "MOV.L   [R%d%+d], R%d", RM(ir), DISP4(ir)<<2, RN(ir) ); break;
   216         case 6: /* 0110xxxxxxxxxxxx */
   217             switch( ir&0x000f ) {
   218                 case 0: snprintf( buf, len, "MOV.B   [R%d], R%d", RM(ir), RN(ir) ); break;
   219                 case 1: snprintf( buf, len, "MOV.W   [R%d], R%d", RM(ir), RN(ir) ); break;
   220                 case 2: snprintf( buf, len, "MOV.L   [R%d], R%d", RM(ir), RN(ir) ); break;
   221                 case 3: snprintf( buf, len, "MOV     R%d, R%d", RM(ir), RN(ir) );   break;
   222                 case 4: snprintf( buf, len, "MOV.B   [R%d++], R%d", RM(ir), RN(ir) ); break;
   223                 case 5: snprintf( buf, len, "MOV.W   [R%d++], R%d", RM(ir), RN(ir) ); break;
   224                 case 6: snprintf( buf, len, "MOV.L   [R%d++], R%d", RM(ir), RN(ir) ); break;
   225                 case 7: snprintf( buf, len, "NOT     R%d, R%d", RM(ir), RN(ir) ); break;
   226                 case 8: snprintf( buf, len, "SWAP.B  R%d, R%d", RM(ir), RN(ir) ); break;
   227                 case 9: snprintf( buf, len, "SWAP.W  R%d, R%d", RM(ir), RN(ir) ); break;
   228                 case 10:snprintf( buf, len, "NEGC    R%d, R%d", RM(ir), RN(ir) ); break;
   229                 case 11:snprintf( buf, len, "NEG     R%d, R%d", RM(ir), RN(ir) ); break;
   230                 case 12:snprintf( buf, len, "EXTU.B  R%d, R%d", RM(ir), RN(ir) ); break;
   231                 case 13:snprintf( buf, len, "EXTU.W  R%d, R%d", RM(ir), RN(ir) ); break;
   232                 case 14:snprintf( buf, len, "EXTS.B  R%d, R%d", RM(ir), RN(ir) ); break;
   233                 case 15:snprintf( buf, len, "EXTS.W  R%d, R%d", RM(ir), RN(ir) ); break;
   234             }
   235             break;
   236         case 7: /* 0111nnnniiiiiiii */
   237             snprintf( buf, len, "ADD    #%d, R%d", SIGNEXT8(ir&0x00FF), RN(ir) ); break;
   238         case 8: /* 1000xxxxxxxxxxxx */
   239             switch( (ir&0x0F00) >> 8 ) {
   240                 case 0: snprintf( buf, len, "MOV.B   R0, [R%d%+d]", RM(ir), DISP4(ir) ); break;
   241                 case 1: snprintf( buf, len, "MOV.W   R0, [R%d%+d]", RM(ir), DISP4(ir)<<1 ); break;
   242                 case 4: snprintf( buf, len, "MOV.B   [R%d%+d], R0", RM(ir), DISP4(ir) ); break;
   243                 case 5: snprintf( buf, len, "MOV.W   [R%d%+d], R0", RM(ir), DISP4(ir)<<1 ); break;
   244                 case 8: snprintf( buf, len, "CMP/EQ  #%d, R0", IMM8(ir) ); break;
   245                 case 9: snprintf( buf, len, "BT      $%xh", (PCDISP8(ir)<<1)+pc+4 ); break;
   246                 case 11:snprintf( buf, len, "BF      $%xh", (PCDISP8(ir)<<1)+pc+4 ); break;
   247                 case 13:snprintf( buf, len, "BT/S    $%xh", (PCDISP8(ir)<<1)+pc+4 ); break;
   248                 case 15:snprintf( buf, len, "BF/S    $%xh", (PCDISP8(ir)<<1)+pc+4 ); break;
   249                 default: UNIMP(ir);
   250             }
   251             break;
   252         case 9: /* 1001xxxxxxxxxxxx */
   253             snprintf( buf, len, "MOV.W   [$%xh], R%-2d ; <- #%08x", (DISP8(ir)<<1)+pc+4, RN(ir),
   254                       mem_read_word( (DISP8(ir)<<1)+pc+4 ) ); break;
   255         case 10:/* 1010xxxxxxxxxxxx */
   256             snprintf( buf, len, "BRA     $%xh", (DISP12(ir)<<1)+pc+4 ); break;
   257         case 11:/* 1011xxxxxxxxxxxx */
   258             snprintf( buf, len, "BSR     $%xh", (DISP12(ir)<<1)+pc+4 ); break;            
   259         case 12:/* 1100xxxxdddddddd */
   260             switch( (ir&0x0F00)>>8 ) {
   261                 case 0: snprintf( buf, len, "MOV.B   R0, [GBR%+d]", DISP8(ir) ); break;
   262                 case 1: snprintf( buf, len, "MOV.W   R0, [GBR%+d]", DISP8(ir)<<1 ); break;
   263                 case 2: snprintf( buf, len, "MOV.L   R0, [GBR%+d]", DISP8(ir)<<2 ); break;
   264                 case 3: snprintf( buf, len, "TRAPA   #%d", UIMM8(ir) ); break;
   265                 case 4: snprintf( buf, len, "MOV.B   [GBR%+d], R0", DISP8(ir) ); break;
   266                 case 5: snprintf( buf, len, "MOV.W   [GBR%+d], R0", DISP8(ir)<<1 ); break;
   267                 case 6: snprintf( buf, len, "MOV.L   [GBR%+d], R0", DISP8(ir)<<2 ); break;
   268                 case 7: snprintf( buf, len, "MOVA    $%xh, R0", (DISP8(ir)<<2)+(pc&~3)+4 ); break;
   269                 case 8: snprintf( buf, len, "TST     #%02Xh, R0", UIMM8(ir) ); break;
   270                 case 9: snprintf( buf, len, "AND     #%02Xh, R0", UIMM8(ir) ); break;
   271                 case 10:snprintf( buf, len, "XOR     #%02Xh, R0", UIMM8(ir) ); break;
   272                 case 11:snprintf( buf, len, "OR      #%02Xh, R0", UIMM8(ir) ); break;
   273                 case 12:snprintf( buf, len, "TST.B   #%02Xh, [R0+GBR]", UIMM8(ir) ); break;
   274                 case 13:snprintf( buf, len, "AND.B   #%02Xh, [R0+GBR]", UIMM8(ir) ); break;
   275                 case 14:snprintf( buf, len, "XOR.B   #%02Xh, [R0+GBR]", UIMM8(ir) ); break;
   276                 case 15:snprintf( buf, len, "OR.B    #%02Xh, [R0+GBR]", UIMM8(ir) ); break;
   277             }
   278             break;
   279         case 13:/* 1101xxxxxxxxxxxx */
   280             snprintf( buf, len, "MOV.L   [$%xh], R%-2d ; <- #%08x", (DISP8(ir)<<2)+(pc&~3)+4, RN(ir),
   281                       mem_read_long( (DISP8(ir)<<2)+(pc&~3)+4 ) ); break;
   282         case 14:/* 1110xxxxxxxxxxxx */
   283             snprintf( buf, len, "MOV     #%d, R%d", DISP8(ir), RN(ir)); break;
   284         case 15:/* 1111xxxxxxxxxxxx */
   285             switch( ir&0x000F ) {
   286                 case 0: snprintf( buf, len, "FADD    FR%d, FR%d", RM(ir), RN(ir) ); break;
   287                 case 1: snprintf( buf, len, "FSUB    FR%d, FR%d", RM(ir), RN(ir) ); break;
   288                 case 2: snprintf( buf, len, "FMUL    FR%d, FR%d", RM(ir), RN(ir) ); break;
   289                 case 3: snprintf( buf, len, "FDIV    FR%d, FR%d", RM(ir), RN(ir) ); break;
   290                 case 4: snprintf( buf, len, "FCMP/EQ FR%d, FR%d", RM(ir), RN(ir) ); break;
   291                 case 5: snprintf( buf, len, "FCMP/GT FR%d, FR%d", RM(ir), RN(ir) ); break;
   292                 case 6: snprintf( buf, len, "FMOV.S  [R%d+R0], FR%d", RM(ir), RN(ir) ); break;
   293                 case 7: snprintf( buf, len, "FMOV.S  FR%d, [R%d+R0]", RM(ir), RN(ir) ); break;
   294                 case 8: snprintf( buf, len, "FMOV.S  [R%d], FR%d", RM(ir), RN(ir) ); break;
   295                 case 9: snprintf( buf, len, "FMOV.S  [R%d++], FR%d", RM(ir), RN(ir) ); break;
   296                 case 10:snprintf( buf, len, "FMOV.S  FR%d, [R%d]", RM(ir), RN(ir) ); break;
   297                 case 11:snprintf( buf, len, "FMOV.S  FR%d, [--R%d]", RM(ir), RN(ir) ); break;
   298                 case 12:snprintf( buf, len, "FMOV    FR%d, FR%d", RM(ir), RN(ir) ); break;
   299                 case 13:
   300                     switch( (ir&0x00F0) >> 4 ) {
   301                         case 0: snprintf( buf, len, "FSTS    FPUL, FR%d", RN(ir) ); break;
   302                         case 1: snprintf( buf, len, "FLDS    FR%d, FPUL", RN(ir) ); break;
   303                         case 2: snprintf( buf, len, "FLOAT   FPUL, FR%d", RN(ir) ); break;
   304                         case 3: snprintf( buf, len, "FTRC    FR%d, FPUL", RN(ir) ); break;
   305                         case 4: snprintf( buf, len, "FNEG    FR%d", RN(ir) ); break;
   306                         case 5: snprintf( buf, len, "FABS    FR%d", RN(ir) ); break;
   307                         case 6: snprintf( buf, len, "FSQRT   FR%d", RN(ir) ); break;
   308                         case 7: snprintf( buf, len, "FSRRA   FR%d", RN(ir) ); break;
   309                         case 8: snprintf( buf, len, "FLDI0   FR%d", RN(ir) ); break;
   310                         case 9: snprintf( buf, len, "FLDI1   FR%d", RN(ir) ); break;
   311                         case 10:snprintf( buf, len, "FCNVSD  FPUL, DR%d", RN(ir)>>1 ); break;
   312                         case 11:snprintf( buf, len, "FCNVDS  DR%d, FPUL", RN(ir)>>1 ); break;
   313                         case 14:snprintf( buf, len, "FIPR    FV%d, FV%d", FVM(ir), FVN(ir) ); break;
   314                         case 15:
   315                             if( (ir & 0x0300) == 0x0100 )
   316                                 snprintf( buf, len, "FTRV    XMTRX,FV%d", FVN(ir) );
   317                             else if( (ir & 0x0100) == 0 )
   318                                 snprintf( buf, len, "FSCA    FPUL, DR%d", RN(ir) );
   319                             else if( ir == 0xFBFD )
   320                                 snprintf( buf, len, "FRCHG   " );
   321                             else if( ir == 0xF3FD )
   322                                 snprintf( buf, len, "FSCHG   " );
   323                             else UNIMP(ir);
   324                             break;
   325                         default: UNIMP(ir);
   326                     }
   327                     break;
   328                 case 14:snprintf( buf, len, "FMAC    FR0, FR%d, FR%d", RM(ir), RN(ir) ); break;
   329                 default: UNIMP(ir);
   330             }
   331             break;
   332     }
   333     return pc+2;
   334 }
   337 void sh4_disasm_region( FILE *f, int from, int to, int load_addr )
   338 {
   339     int pc;
   340     char buf[80];
   342     for( pc = from; pc < to; pc+=2 ) {
   343         uint16_t op = mem_read_word( pc );
   344         buf[0] = '\0';
   345         sh4_disasm_instruction( pc,
   346                                 buf, sizeof(buf) );
   347         fprintf( f, "  %08x:  %04x  %s\n", pc + load_addr, op, buf );
   348     }
   349 }
.