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[])
85 for(i = 0; i < codecol-ascol; i++){
89 fprintf(stdout, "; #%04X: #%04X", pradr, wordv[0]);
90 } else if(wordc == 2) {
91 fprintf(stdout, "; #%04X: #%04X #%04X", pradr, wordv[0], wordv[1]);
94 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)
116 cnt += fprintf(stdout, " %-7s ", cmdname);
117 if(cmdtype == R1_R2) {
118 g1 = grstr((word & 0x00F0) >> 4);
119 g2 = grstr(word & 0x000F);
120 cnt += fprintf(stdout, "%s,%s", g1, g2);
123 } else if(cmdtype == R_) {
124 g = grstr((word & 0x00F0) >> 4);
125 cnt += fprintf(stdout, "%s", g);
128 disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
131 void disassemble_dc(WORD word, WORD pradr)
134 cnt = fprintf(stdout, " DC %-5d ", word);
135 disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
136 fprintf(stdout, " ::" );
137 print_dumpword(word, true);
140 void disassemble_ds(WORD wcnt, WORD pradr)
143 cnt = fprintf(stdout, " DS %-5d ", wcnt);
144 disassemble_puts_code(cnt, pradr, 1, (WORD []){0});
145 for(i = 0; i < wcnt - 1; i++) {
146 fprintf(stdout, "\n");
147 disassemble_puts_code(0, pradr+1, 1, (WORD []){0});
151 WORD fgetword(FILE *stream)
154 fread(&aword, sizeof(WORD), 1, stream);
158 void fungetword(FILE *stream)
160 fseek(stream, -sizeof(WORD), SEEK_CUR);
163 WORD zero_data_cnt(FILE *stream)
165 WORD cnt = 0, word = 0;
166 while(!feof(stream) && word == 0) {
167 word = fgetword(stream);
176 bool disassemble_file(const char *file)
180 WORD i = 0, word, cmd, zcnt;
185 assert(file != NULL);
186 if((fp = fopen(file, "rb")) == NULL) {
191 create_code_cmdtype(); /* 命令のコードとタイプがキーのハッシュ表を作成 */
193 fprintf(stdout, "MAIN START\n");
194 for(word = fgetword(fp); !feof(fp); i++, word = fgetword(fp)) {
195 cmdname = getcmdname(cmd = word & 0xFF00);
196 cmdtype = getcmdtype(cmd);
198 if(inst == true) { /* プログラム領域の場合 */
199 disassemble_cmd_r(NONE, "nop", 0, i);
200 } else { /* データ領域の場合 */
201 if((zcnt = zero_data_cnt(fp)) == 1) { /* 1つだけの0はDCとみなす */
202 disassemble_dc(0, i);
203 } else { /* 連続する0はDSとみなす */
204 disassemble_ds(zcnt, i);
208 } else if(cmd == 0) {
209 disassemble_dc(word, i);
211 if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
212 disassemble_cmd_adr_x(cmdtype, cmdname, word, fgetword(fp), i++);
214 disassemble_cmd_r(cmdtype, cmdname, word, i);
216 inst = (cmd != 0x8100) ? true : false;
218 fprintf(stdout, "\n");
220 fprintf(stdout, " END\n");
226 void disassemble_memory(WORD start, WORD end)
233 for(i = start; i <= end; i++) {
234 word = sys->memory[i];
235 cmdname = getcmdname(cmd = word & 0xFF00);
236 cmdtype = getcmdtype(cmd);
238 if(inst == true) { /* プログラム領域の場合 */
239 disassemble_cmd_r(NONE, "nop", 0, i);
240 } else { /* データ領域の場合。メモリーでは、DC 0とみなす */
241 disassemble_dc(0, i);
243 } else if(cmd == 0) {
244 disassemble_dc(word, i);
246 if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
247 disassemble_cmd_adr_x(cmdtype, cmdname, word, sys->memory[i+1], i);
250 disassemble_cmd_r(cmdtype, cmdname, word, i);
252 inst = (cmd != 0x8100) ? true : false;
254 fprintf(stdout, "\n");