src/casl2rev.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3
   4 #define _GNU_SOURCE
   5 #include <getopt.h>
   6 #include <assert.h>
   7
   8 #include "exec.h"
   9 #include "cmem.h"
  10 #include "cerr.h"
  11 #include "package.h"
  12
  13 char *grstr(WORD word)
  14 {
  15     assert(word <= 7);
  16     char *str = malloc_chk(3 + 1, "grstr.str");
  17     sprintf(str, "GR%d", word);
  18     return str;
  19 }
  20
  21 bool disassemble(const char *file)
  22 {
  23     bool stat = true;
  24     FILE *fp;
  25     WORD i = 0, w, cmd, r, x, r1, r2, adr;
  26     CMDTYPE cmdtype = 0;
  27     char *cmdname;
  28
  29     assert(file != NULL);
  30     if((fp = fopen(file, "rb")) == NULL) {
  31         perror(file);
  32         return false;
  33     }
  34
  35     create_code_cmdtype();                          /* 命令のコードとタイプがキーのハッシュ表を作成 */
  36
  37     fprintf(stdout, "MAIN\tSTART\n");
  38     for(; ;) {
  39         fread(&w, sizeof(WORD), 1, fp);
  40         if(feof(fp)) {
  41             break;
  42         }
  43         cmd = w & 0xFF00;
  44         cmdname = getcmdname(cmd);
  45         cmdtype = getcmdtype(cmd);
  46         if(cmd == 0xFF00 || (w != 0 && cmd == 0x0000)) {
  47             fprintf(stdout, "\tDC\t%d\t\t\t\t; #%04X: #%04X :: ", w, i++, w);
  48             print_dumpword(w, true);
  49         } else if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
  50             fread(&adr, sizeof(WORD), 1, fp);
  51             fprintf(stdout, "\t%s\t", cmdname);
  52             if(cmdtype == R_ADR_X) {
  53                 r = (w & 0x00F0) >> 4;
  54                 fprintf(stdout, "%s,", grstr(r));
  55             }
  56             fprintf(stdout, "#%04X", adr);
  57             if((x = w & 0x000F) != 0) {
  58                 fprintf(stdout, ",%s", grstr(x));
  59             }
  60             fprintf(stdout, "\t\t\t\t; #%04X: #%04X #%04X", i, w, adr);
  61             i += 2;
  62         } else {
  63             fprintf(stdout, "\t%s", cmdname);
  64             if(cmdtype == R1_R2) {
  65                 r1 = (w & 0x00F0) >> 4;
  66                 r2 = w & 0x000F;
  67                 fprintf(stdout, "\t%s,%s", grstr(r1), grstr(r2));
  68             } else if(cmdtype == R_) {
  69                 r = (w & 0x00F0) >> 4;
  70                 fprintf(stdout, "\t%s", grstr(r));
  71             }
  72             fprintf(stdout, "\t\t\t\t; #%04X: #%04X", i++, w);
  73         }
  74         fprintf(stdout, "\n");
  75     }
  76     fprintf(stdout, "\tEND\n");
  77     free_code_cmdtype();
  78     fclose(fp);
  79     return stat;
  80 }
  81
  82 /**
  83  * disassembleコマンドのオプション
  84  */
  85 static struct option longopts[] = {
  86     {"version", no_argument, NULL, 'v' },
  87     {"help", no_argument, NULL, 'h'},
  88     {0, 0, 0, 0},
  89 };
  90
  91 /**
  92  * @brief disassembleコマンドのメイン
  93  *
  94  * @return 正常終了時は0、異常終了時は1
  95  *
  96  * @param argc コマンドライン引数の数
  97  * @param *argv[] コマンドライン引数の配列
  98  */
  99 int main(int argc, char *argv[])
 100 {
 101     int opt, stat = 0;
 102     const char *version = PACKAGE_VERSION,  *cmdversion = "disassemble of YACASL2 version %s\n";
 103     const char *usage = "Usage: %s [-vh] FILE\n";
 104
 105     cerr_init();
 106     addcerrlist_load();
 107     addcerrlist_exec();
 108
 109     /* オプションの処理 */
 110     while((opt = getopt_long(argc, argv, "vh", longopts, NULL)) != -1) {
 111         switch(opt) {
 112         case 'v':
 113             fprintf(stdout, cmdversion, version);
 114             return 0;
 115         case 'h':
 116             fprintf(stdout, usage, argv[0]);
 117             return 0;
 118         case '?':
 119             fprintf(stderr, usage, argv[0]);
 120             exit(1);
 121         }
 122     }
 123     if(argv[optind] == NULL) {
 124         setcerr(211, "");    /* object file not specified */
 125         fprintf(stderr, "disassemble error - %d: %s\n", cerr->num, cerr->msg);
 126         exit(1);
 127     }
 128     disassemble(argv[optind]);                /* プログラム実行 */
 129     stat = (cerr->num == 0) ? 0 : 1;
 130     /* エラーの解放 */
 131     freecerr();
 132     return stat;
 133 }