文字列を逆順にするstrrev関数を定義
[YACASL2.git] / src / disassemble.c
1 #include "disassemble.h"
2
3 /**
4  * @brief 機械コードの出力列
5  */
6 int codecol = 32;
7
8 /**
9  * @brief ファイルストリームから1ワードを取得する
10  *
11  * @return 取得した1ワード
12  *
13  * @param stream ファイルストリーム
14  */
15 WORD fgetword(FILE *stream);
16
17 /**
18  * @brief ファイルストリームを1ワード戻す
19  *
20  * @return なし
21  *
22  * @param stream ファイルストリーム
23  */
24 void fungetword(FILE *stream);
25
26 /**
27  * @brief ファイルストリームから、値が0の連続するWORD数を返す
28  *
29  * @return 値が0の連続するWORD数
30  *
31  * @param stream ファイルストリーム
32  */
33 WORD zero_data_cnt(FILE *stream);
34
35 /**
36  * @brief 機械コードをコメントとして標準出力へ出力する
37  *
38  * @return なし
39  *
40  * @param ascol アセンブラの列位置
41  * @param pradr 次に実行すべき命令語の先頭アドレス
42  * @param wordc ワード値の数
43  * @param wordv ワード値の配列
44  */
45 void disassemble_puts_code(int ascol, WORD pradr, int wordc, WORD wordv[]);
46
47 /**
48  * @brief 種類がR_ADRまたはR_ADR_Xのコマンドを逆アセンブルし、標準出力へ出力する
49  *
50  * @return なし
51  *
52  * @param cmdtype コマンドの種類
53  * @param *cmdname コマンドの名前
54  * @param word ワード値
55  * @param adr アドレス値
56  * @param pradr 次に実行すべき命令語の先頭アドレス
57  */
58 void disassemble_cmd_adr_x(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD adr, WORD pradr);
59
60 /**
61  * @brief 種類がR1_R2またはR_のコマンドを逆アセンブルし、標準出力へ出力する
62  *
63  * @return なし
64  *
65  * @param cmdtype コマンドの種類
66  * @param *cmdname コマンドの名前
67  * @param word ワード値
68  * @param pradr 次に実行すべき命令語の先頭アドレス
69  */
70 void disassemble_cmd_r(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD pradr);
71
72 /**
73  * @brief DCコマンドを逆アセンブルし、標準出力へ出力する
74  *
75  * @return なし
76  *
77  * @param word ワード値
78  * @param pradr 次に実行すべき命令語の先頭アドレス
79  */
80 void disassemble_dc(WORD word, WORD pradr);
81
82 void disassemble_puts_code(int ascol, WORD pradr, int wordc, WORD wordv[])
83 {
84     for(int i = 0; i < codecol-ascol; i++){
85         fprintf(stdout, " ");
86     }
87     if(wordc == 1) {
88         fprintf(stdout, "; #%04X: #%04X", pradr, wordv[0]);
89     } else if(wordc == 2) {
90         fprintf(stdout, "; #%04X: #%04X #%04X", pradr, wordv[0], wordv[1]);
91     }
92 }
93 void disassemble_cmd_adr_x(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD adr, WORD pradr)
94 {
95     WORD x = 0;
96     char *g = NULL;
97     int cnt = 0;
98
99     cnt += fprintf(stdout, "        %-7s ", cmdname);
100     if(cmdtype == R_ADR_X) {
101         cnt += fprintf(stdout, "%s,", g = grstr((word & 0x00F0) >> 4));
102         FREE(g);
103     }
104     cnt += fprintf(stdout, "#%04X", adr);
105     if((x = (word & 0x000F)) != 0) {
106         cnt += fprintf(stdout, ",%s", g = grstr(x));
107         FREE(g);
108     }
109     disassemble_puts_code(cnt, pradr, 2, (WORD []){word, adr});
110 }
111
112 void disassemble_cmd_r(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD pradr)
113 {
114     char *g = NULL;
115     char *g1 = NULL;
116     char *g2 = NULL;
117     int cnt = 0;
118
119     cnt += fprintf(stdout, "        %-7s ", cmdname);
120     if(cmdtype == R1_R2) {
121         g1 = grstr((word & 0x00F0) >> 4);
122         g2 = grstr(word & 0x000F);
123         cnt += fprintf(stdout, "%s,%s", g1, g2);
124         FREE(g1);
125         FREE(g2);
126     } else if(cmdtype == R_) {
127         g = grstr((word & 0x00F0) >> 4);
128         cnt += fprintf(stdout, "%s", g);
129         FREE(g);
130     }
131     disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
132 }
133
134 void disassemble_dc(WORD word, WORD pradr)
135 {
136     int cnt = 0;
137
138     cnt = fprintf(stdout, "        DC      %-5d ", word);
139     disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
140     fprintf(stdout, " ::" );
141     print_dumpword(word, true);
142 }
143
144 void disassemble_ds(WORD wcnt, WORD pradr)
145 {
146     int cnt = 0;
147
148     cnt = fprintf(stdout, "        DS      %-5d ", wcnt);
149     disassemble_puts_code(cnt, pradr, 1, (WORD []){0});
150     for(int i = 0; i < wcnt - 1; i++) {
151         fprintf(stdout, "\n");
152         disassemble_puts_code(0, pradr+1, 1, (WORD []){0});
153     }
154 }
155
156 WORD fgetword(FILE *stream)
157 {
158     WORD aword;
159     fread(&aword, sizeof(WORD), 1, stream);
160     return aword;
161 }
162
163 void fungetword(FILE *stream)
164 {
165     fseek(stream, -sizeof(WORD), SEEK_CUR);
166 }
167
168 WORD zero_data_cnt(FILE *stream)
169 {
170     WORD cnt = 0;
171     WORD word = 0;
172
173     while(!feof(stream) && word == 0) {
174         word = fgetword(stream);
175         cnt++;
176     }
177     if(!feof(stream)) {
178         fungetword(stream);
179     }
180     return cnt;
181 }
182
183 bool disassemble_file(const char *file)
184 {
185     bool stat = true;
186     FILE *fp = NULL;
187     WORD i = 0;
188     WORD word = 0;
189     WORD cmd = 0;
190     WORD zcnt = 0;
191     CMDTYPE cmdtype = 0;
192     const char *cmdname = NULL;
193     bool inst = true;
194
195     assert(file != NULL);
196     if((fp = fopen(file, "rb")) == NULL) {
197         perror(file);
198         return false;
199     }
200
201     create_cmdtable(HASH_CODE);                   /* 命令のコードとタイプがキーのハッシュ表を作成 */
202
203     fprintf(stdout, "MAIN    START\n");
204     for(word = fgetword(fp); !feof(fp); i++, word = fgetword(fp)) {
205         cmd = word & 0xFF00;
206         cmdname = getcmdname(cmd);
207         cmdtype = getcmdtype(cmd);
208         if(word == 0){
209             if(inst == true) {  /* プログラム領域の場合  */
210                 disassemble_cmd_r(NONE, "nop", 0, i);
211             } else {            /* データ領域の場合 */
212                 zcnt = zero_data_cnt(fp);
213                 if(zcnt == 1) { /* 1つだけの0はDCとみなす */
214                     disassemble_dc(0, i);
215                 } else {        /* 連続する0はDSとみなす */
216                     disassemble_ds(zcnt, i);
217                     i += zcnt - 1;
218                 }
219             }
220         } else if(cmd == 0) {
221             disassemble_dc(word, i);
222         } else {
223             if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
224                 disassemble_cmd_adr_x(cmdtype, cmdname, word, fgetword(fp), i++);
225             } else {
226                 disassemble_cmd_r(cmdtype, cmdname, word, i);
227             }
228             inst = (cmd != 0x8100) ? true : false;
229         }
230         fprintf(stdout, "\n");
231     }
232     fprintf(stdout, "        END\n");
233     free_cmdtable(HASH_CODE);
234     fclose(fp);
235     return stat;
236 }
237
238 void disassemble_memory(WORD start, WORD end)
239 {
240     WORD cmd = 0;
241     CMDTYPE cmdtype = 0;
242     const char *cmdname = NULL;
243     bool inst = true;
244
245     for(int i = start; i <= end; i++) {
246         cmd = sys->memory[i] & 0xFF00;
247         cmdname = getcmdname(cmd);
248         cmdtype = getcmdtype(cmd);
249         if(sys->memory[i] == 0) {
250             if(inst == true) {  /* プログラム領域の場合  */
251                 disassemble_cmd_r(NONE, "nop", 0, i);
252             } else {            /* データ領域の場合。メモリーでは、DC 0とみなす */
253                 disassemble_dc(0, i);
254             }
255         } else if(cmd == 0) {
256             disassemble_dc(sys->memory[i], i);
257         } else {
258             if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
259                 disassemble_cmd_adr_x(cmdtype, cmdname, sys->memory[i], sys->memory[i+1], i);
260                 i++;
261             } else {
262                 disassemble_cmd_r(cmdtype, cmdname, sys->memory[i], i);
263             }
264             inst = (cmd != 0x8100) ? true : false;
265         }
266         fprintf(stdout, "\n");
267     }
268 }