disassemble.c

Go to the documentation of this file.

#include "disassemble.h"

int codecol = 32;

WORD fgetword(FILE *stream);

void fungetword(FILE *stream);

WORD zero_data_cnt(FILE *stream);

void disassemble_puts_code(int ascol, WORD pradr, int wordc, WORD wordv[]);

void disassemble_cmd_adr_x(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD adr, WORD pradr);

void disassemble_cmd_r(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD pradr);

void disassemble_dc(WORD word, WORD pradr);
 
void disassemble_puts_code(int ascol, WORD pradr, int wordc, WORD wordv[])
{
    for(int i = 0; i < codecol-ascol; i++){
        fprintf(stdout, " ");
    }
    if(wordc == 1) {
        fprintf(stdout, "; #%04X: #%04X", pradr, wordv[0]);
    } else if(wordc == 2) {
        fprintf(stdout, "; #%04X: #%04X #%04X", pradr, wordv[0], wordv[1]);
    }
}
void disassemble_cmd_adr_x(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD adr, WORD pradr)
{
    WORD x = 0;
    char *g = NULL;
    int cnt = 0;
 
    cnt += fprintf(stdout, "        %-7s ", cmdname);
    if(cmdtype == R_ADR_X) {
        cnt += fprintf(stdout, "%s,", g = grstr((word & 0x00F0) >> 4));
        FREE(g);
    }
    cnt += fprintf(stdout, "#%04X", adr);
    if((x = (word & 0x000F)) != 0) {
        cnt += fprintf(stdout, ",%s", g = grstr(x));
        FREE(g);
    }
    disassemble_puts_code(cnt, pradr, 2, (WORD []){word, adr});
}
 
void disassemble_cmd_r(CMDTYPE cmdtype, const char *cmdname, WORD word, WORD pradr)
{
    char *g = NULL;
    char *g1 = NULL;
    char *g2 = NULL;
    int cnt = 0;
 
    cnt += fprintf(stdout, "        %-7s ", cmdname);
    if(cmdtype == R1_R2) {
        g1 = grstr((word & 0x00F0) >> 4);
        g2 = grstr(word & 0x000F);
        cnt += fprintf(stdout, "%s,%s", g1, g2);
        FREE(g1);
        FREE(g2);
    } else if(cmdtype == R_) {
        g = grstr((word & 0x00F0) >> 4);
        cnt += fprintf(stdout, "%s", g);
        FREE(g);
    }
    disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
}
 
void disassemble_dc(WORD word, WORD pradr)
{
    int cnt = 0;
 
    cnt = fprintf(stdout, "        DC      %-5d ", word);
    disassemble_puts_code(cnt, pradr, 1, (WORD []){word});
    fprintf(stdout, " ::" );
    print_dumpword(word, true);
}
 
void disassemble_ds(WORD wcnt, WORD pradr)
{
    int cnt = 0;
 
    cnt = fprintf(stdout, "        DS      %-5d ", wcnt);
    disassemble_puts_code(cnt, pradr, 1, (WORD []){0});
    for(int i = 0; i < wcnt - 1; i++) {
        fprintf(stdout, "\n");
        disassemble_puts_code(0, pradr+1, 1, (WORD []){0});
    }
}
 
WORD fgetword(FILE *stream)
{
    WORD aword;
    fread(&aword, sizeof(WORD), 1, stream);
    return aword;
}
 
void fungetword(FILE *stream)
{
    fseek(stream, -sizeof(WORD), SEEK_CUR);
}
 
WORD zero_data_cnt(FILE *stream)
{
    WORD cnt = 0;
    WORD word = 0;
 
    while(!feof(stream) && word == 0) {
        word = fgetword(stream);
        cnt++;
    }
    if(!feof(stream)) {
        fungetword(stream);
    }
    return cnt;
}
 
bool disassemble_file(const char *file)
{
    bool stat = true;
    FILE *fp = NULL;
    WORD i = 0;
    WORD word = 0;
    WORD cmd = 0;
    WORD zcnt = 0;
    CMDTYPE cmdtype = 0;
    const char *cmdname = NULL;
    bool inst = true;
 
    assert(file != NULL);
    if((fp = fopen(file, "rb")) == NULL) {
        perror(file);
        return false;
    }
 
    create_cmdtable(HASH_CODE);                   /* 命令のコードとタイプがキーのハッシュ表を作成 */
 
    fprintf(stdout, "MAIN    START\n");
    for(word = fgetword(fp); !feof(fp); i++, word = fgetword(fp)) {
        cmd = word & 0xFF00;
        cmdname = getcmdname(cmd);
        cmdtype = getcmdtype(cmd);
        if(word == 0){
            if(inst == true) {  /* プログラム領域の場合  */
                disassemble_cmd_r(NONE, "nop", 0, i);
            } else {            /* データ領域の場合 */
                zcnt = zero_data_cnt(fp);
                if(zcnt == 1) { /* 1つだけの0はDCとみなす */
                    disassemble_dc(0, i);
                } else {        /* 連続する0はDSとみなす */
                    disassemble_ds(zcnt, i);
                    i += zcnt - 1;
                }
            }
        } else if(cmd == 0) {
            disassemble_dc(word, i);
        } else {
            if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
                disassemble_cmd_adr_x(cmdtype, cmdname, word, fgetword(fp), i++);
            } else {
                disassemble_cmd_r(cmdtype, cmdname, word, i);
            }
            inst = (cmd != 0x8100) ? true : false;
        }
        fprintf(stdout, "\n");
    }
    fprintf(stdout, "        END\n");
    free_cmdtable(HASH_CODE);
    fclose(fp);
    return stat;
}
 
void disassemble_memory(WORD start, WORD end)
{
    WORD cmd = 0;
    CMDTYPE cmdtype = 0;
    const char *cmdname = NULL;
    bool inst = true;
 
    for(int i = start; i <= end; i++) {
        cmd = sys->memory[i] & 0xFF00;
        cmdname = getcmdname(cmd);
        cmdtype = getcmdtype(cmd);
        if(sys->memory[i] == 0) {
            if(inst == true) {  /* プログラム領域の場合  */
                disassemble_cmd_r(NONE, "nop", 0, i);
            } else {            /* データ領域の場合。メモリーでは、DC 0とみなす */
                disassemble_dc(0, i);
            }
        } else if(cmd == 0) {
            disassemble_dc(sys->memory[i], i);
        } else {
            if(cmdtype == R_ADR_X || cmdtype == ADR_X) {
                disassemble_cmd_adr_x(cmdtype, cmdname, sys->memory[i], sys->memory[i+1], i);
                i++;
            } else {
                disassemble_cmd_r(cmdtype, cmdname, sys->memory[i], i);
            }
            inst = (cmd != 0x8100) ? true : false;
        }
        fprintf(stdout, "\n");
    }
}