1 #include "disassemble.h"
9 * @brief ファイルストリームから1ワードを取得する
13 * @param stream ファイルストリーム
15 WORD fgetword(FILE *stream);
18 * @brief ファイルストリームを1ワード戻す
22 * @param stream ファイルストリーム
24 void fungetword(FILE *stream);
27 * @brief ファイルストリームから、値が0の連続するWORD数を返す
29 * @return 値が0の連続するWORD数
31 * @param stream ファイルストリーム
33 WORD zero_data_cnt(FILE *stream);
36 * @brief 機械コードをコメントとして標準出力へ出力する
40 * @param ascol アセンブラの列位置
41 * @param pradr 次に実行すべき命令語の先頭アドレス
43 * @param wordv ワード値の配列
45 void disassemble_puts_code(int ascol, WORD pradr, int wordc, WORD wordv[]);
48 * @brief 種類がR_ADRまたはR_ADR_Xのコマンドを逆アセンブルし、標準出力へ出力する
52 * @param cmdtype コマンドの種類
53 * @param *cmdname コマンドの名前
56 * @param pradr 次に実行すべき命令語の先頭アドレス
58 void disassemble_cmd_adr_x(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD adr, WORD pradr);
61 * @brief 種類がR1_R2またはR_のコマンドを逆アセンブルし、標準出力へ出力する
65 * @param cmdtype コマンドの種類
66 * @param *cmdname コマンドの名前
68 * @param pradr 次に実行すべき命令語の先頭アドレス
70 void disassemble_cmd_r(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD pradr);
73 * @brief DCコマンドを逆アセンブルし、標準出力へ出力する
78 * @param pradr 次に実行すべき命令語の先頭アドレス
80 void disassemble_dc(WORD word, WORD pradr);
82 void disassemble_puts_code(int ascol, WORD pradr, int wordc, WORD wordv[])
84 for(int i = 0; i < codecol-ascol; i++){
88 fprintf(stdout, "; #%04X: #%04X", pradr, wordv[0]);
89 } else if(wordc == 2) {
90 fprintf(stdout, "; #%04X: #%04X #%04X", pradr, wordv[0], wordv[1]);
93 void disassemble_cmd_adr_x(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD adr, WORD pradr)
99 cnt += fprintf(stdout, " %-7s ", cmdname);
100 if(cmdtype == R_ADR_X) {
101 cnt += fprintf(stdout, "%s,", g = grstr((word & 0x00F0) >> 4));
104 cnt += fprintf(stdout, "#%04X", adr);
105 if((x = (word & 0x000F)) != 0) {
106 cnt += fprintf(stdout, ",%s", g = grstr(x));
109 disassemble_puts_code(cnt, pradr, 2, (WORD []){word, adr});
112 void disassemble_cmd_r(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD pradr)
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);
126 } else if(cmdtype == R_) {
127 g = grstr((word & 0x00F0) >> 4);
128 cnt += fprintf(stdout, "%s", g);
131 disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
134 void disassemble_dc(WORD word, WORD pradr)
138 cnt = fprintf(stdout, " DC %-5d ", word);
139 disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
140 fprintf(stdout, " ::" );
141 print_dumpword(word, true);
144 void disassemble_ds(WORD wcnt, WORD pradr)
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});
156 WORD fgetword(FILE *stream)
159 fread(&aword, sizeof(WORD), 1, stream);
163 void fungetword(FILE *stream)
165 fseek(stream, -sizeof(WORD), SEEK_CUR);
168 WORD zero_data_cnt(FILE *stream)
173 while(!feof(stream) && word == 0) {
174 word = fgetword(stream);
183 bool disassemble_file(const char *file)
192 const char *cmdname = NULL;
195 assert(file != NULL);
196 if((fp = fopen(file, "rb")) == NULL) {
201 create_cmdtable(HASH_CODE); /* 命令のコードとタイプがキーのハッシュ表を作成 */
203 fprintf(stdout, "MAIN START\n");
204 for(word = fgetword(fp); !feof(fp); i++, word = fgetword(fp)) {
206 cmdname = getcmdname(cmd);
207 cmdtype = getcmdtype(cmd);
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);
220 } else if(cmd == 0) {
221 disassemble_dc(word, i);
223 if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
224 disassemble_cmd_adr_x(cmdtype, cmdname, word, fgetword(fp), i++);
226 disassemble_cmd_r(cmdtype, cmdname, word, i);
228 inst = (cmd != 0x8100) ? true : false;
230 fprintf(stdout, "\n");
232 fprintf(stdout, " END\n");
233 free_cmdtable(HASH_CODE);
238 void disassemble_memory(WORD start, WORD end)
242 const char *cmdname = NULL;
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);
255 } else if(cmd == 0) {
256 disassemble_dc(sys->memory[i], i);
258 if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
259 disassemble_cmd_adr_x(cmdtype, cmdname, sys->memory[i], sys->memory[i+1], i);
262 disassemble_cmd_r(cmdtype, cmdname, sys->memory[i], i);
264 inst = (cmd != 0x8100) ? true : false;
266 fprintf(stdout, "\n");