X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fstruct.c;h=10585671d30e6ee43fa756235468dd5a4ffd456e;hp=d918c7afac9a627b211f27aa17b72532be7264ab;hb=86e559d164166966a797a1e5855871d48e087ddd;hpb=2f889a87ef4e11467f71ea3c03676a8d88cccd7b

diff --git a/src/struct.c b/src/struct.c
index d918c7a..1058567 100644
--- a/src/struct.c
+++ b/src/struct.c
@@ -1,76 +1,284 @@
-#include "casl2.h"
-
-/* COMET IIのメモリ */
-WORD *memory;
-
-/* COMET IIのCPUレジスタ */
-WORD GR[REGSIZE], SP, PR, FR;
-
-CERRARRAY cerr[] = {
-    { 101, "label already defined" },
-    { 102, "label table is full" },
-    { 103, "label not found" },
-    { 104, "label length is too long" },
-    { 105, "no command in the line" },
-    { 106, "operand count mismatch" },
-    { 107, "no label in START" },
-    { 108, "not command of operand \"r\"" },
-    { 109, "not command of operand \"r1,r2\"" },
-    { 110, "not command of operand \"r,adr[,x]\"" },
-    { 111, "not command of operand \"adr[,x]\"" },
-    { 112, "not command of no operand" },
-    { 113, "command not defined" },
-    { 114, "not integer" },
-    { 115, "not hex" },
-    { 116, "out of hex range" },
-    { 117, "operand is too many" },
-    { 118, "operand length is too long" },
-    { 119, "out of COMET II memory" },
-    { 120, "GR0 in operand x" },
-    { 121, "cannot get operand token" },
-    { 122, "cannot create hash table" },
-    { 201, "execute - out of COMET II memory" },
-    { 202, "SVC input - out of Input memory" },
-    { 203, "SVC output - out of COMET II memory" },
-    { 204, "Program Register (PR) - out of COMET II memory" },
-    { 205, "Stack Pointer (SP) - cannot allocate stack buffer" },
-    { 206, "Address - out of COMET II memory" },
-    { 207, "Stack Pointer (SP) - out of COMET II memory" },
-    { 0, NULL },
+#include "struct.h"
+#include "exec.h"
+
+/**
+ * COMET IIの仮想実行マシンシステム
+ */
+SYSTEM *sys = NULL;
+
+/**
+ * プログラム実行時の開始と終了のアドレス
+ */
+EXECPTR *execptr = NULL;
+
+/**
+ * システムCOMET IIの命令表
+ */
+static const COMET2CMD comet2cmd[] = {
+    { "NOP", NONE, 0x0, nop },
+    { "LD", R_ADR_X, 0x1000, ld_r_adr_x },
+    { "ST", R_ADR_X, 0x1100, st },
+    { "LAD", R_ADR_X, 0x1200, lad },
+    { "LD", R1_R2, 0x1400, ld_r1_r2 },
+    { "ADDA", R_ADR_X, 0x2000, adda_r_adr_x },
+    { "SUBA", R_ADR_X, 0x2100, suba_r_adr_x },
+    { "ADDL", R_ADR_X, 0x2200, addl_r_adr_x },
+    { "SUBL", R_ADR_X, 0x2300, subl_r_adr_x },
+    { "ADDA", R1_R2, 0x2400, adda_r1_r2 },
+    { "SUBA", R1_R2, 0x2500, suba_r1_r2 },
+    { "ADDL", R1_R2, 0x2600, addl_r1_r2 },
+    { "SUBL", R1_R2, 0x2700, subl_r1_r2 },
+    { "AND", R_ADR_X, 0x3000, and_r_adr_x },
+    { "OR", R_ADR_X, 0x3100, or_r_adr_x },
+    { "XOR", R_ADR_X, 0x3200, xor_r_adr_x },
+    { "AND", R1_R2, 0x3400, and_r1_r2 },
+    { "OR", R1_R2, 0x3500, or_r1_r2 },
+    { "XOR", R1_R2, 0x3600, xor_r1_r2 },
+    { "CPA", R_ADR_X, 0x4000, cpa_r_adr_x },
+    { "CPL", R_ADR_X, 0x4100, cpl_r_adr_x },
+    { "CPA", R1_R2, 0x4400, cpa_r1_r2 },
+    { "CPL", R1_R2, 0x4500, cpl_r1_r2 },
+    { "SLA", R_ADR_X, 0x5000, sla },
+    { "SRA", R_ADR_X, 0x5100, sra },
+    { "SLL", R_ADR_X, 0x5200, sll },
+    { "SRL", R_ADR_X, 0x5300, srl },
+    { "JMI", ADR_X, 0x6100, jmi },
+    { "JNZ", ADR_X, 0x6200, jnz },
+    { "JZE", ADR_X, 0x6300, jze },
+    { "JUMP", ADR_X, 0x6400, jump },
+    { "JPL", ADR_X, 0x6500, jpl },
+    { "JOV", ADR_X, 0x6600, jov },
+    { "PUSH", ADR_X, 0x7000, push },
+    { "POP", R_, 0x7100, pop },
+    { "CALL", ADR_X, 0x8000, call },
+    { "SVC", ADR_X, 0xF000, svc },
+    { "RET", NONE, 0x8100, ret },
 };
 
-/* レジストリの内容を表示する場合はtrue */
-bool tracemode = false;
+/**
+ * 命令表のサイズ
+ */
+static int comet2cmdsize = ARRAYSIZE(comet2cmd);
+
+/**
+ * ハッシュ表のサイズ
+ */
+enum {
+    CMDTABSIZE = 41,
+};
+
+/**
+ * ハッシュ表
+ */
+static CMDTAB *cmdtab[HASH_MAX][CMDTABSIZE] = {{NULL}};
+
+/**
+ * 命令の名前とタイプからハッシュ値を生成する
+ */
+unsigned hash_cmdtype(const char *cmd, CMDTYPE type);
+
+/**
+ * 命令コードからハッシュ値を生成する
+ */
+unsigned hash_code(WORD code);
+
+/**
+ * 命令の名前とタイプからハッシュ値を生成する
+ */
+unsigned hash_cmdtype(const char *cmd, CMDTYPE type)
+{
+    HKEY *keys[2] = {NULL};
+    unsigned hashval = 0;
+
+    /* 命令名を設定 */
+    keys[0] = malloc_chk(sizeof(HKEY), "hash_cmdtype.keys[0]");
+    keys[0]->type = CHARS;
+    keys[0]->val.s = strdup_chk(cmd, "keys[0].val.s");
+    /* 命令タイプを設定 */
+    keys[1] = malloc_chk(sizeof(HKEY), "hash_cmdtype.keys[1]");
+    keys[1]->type = INT;
+    keys[1]->val.i = (int)(type & 070);
+    /* ハッシュ値の計算 */
+    hashval = hash(2, keys, CMDTABSIZE);
+    FREE(keys[0]->val.s);
+    FREE(keys[0]);
+    FREE(keys[1]);
+    /* ハッシュ値を返す */
+    return hashval;
+}
+
+/**
+ * 命令ハッシュ表を作成する
+ */
+bool create_cmdtable(CMDTAB_HASH hash)
+{
+    CMDTAB *p = NULL;
+    unsigned hashval;
+
+    for(int i = 0; i < comet2cmdsize; i++) {
+        p = malloc_chk(sizeof(CMDTAB), "create_cmdtable.p");
+        p->cmd = &comet2cmd[i];
+        if(hash == HASH_CMDTYPE) {
+            hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type);
+        } else if(hash == HASH_CODE) {
+            hashval = hash_code(comet2cmd[i].code);
+        }
+        p->next = cmdtab[hash][hashval];
+        cmdtab[hash][hashval] = p;
+    }
+    return true;
+}
+
+/**
+ * 命令ハッシュ表を解放する
+ */
+void free_cmdtable(CMDTAB_HASH hash)
+{
+    CMDTAB *p = NULL;
+    CMDTAB *q = NULL;
+
+    for(int i = 0; i < CMDTABSIZE; i++) {
+        for(p = cmdtab[hash][i]; p != NULL; p = q) {
+            q = p->next;
+            FREE(p);
+        }
+        cmdtab[hash][i] = NULL;
+    }
+}
+
+/**
+ * 命令の名前とタイプから、命令コードを返す\n
+ * 無効な場合は0xFFFFを返す
+ */
+WORD getcmdcode(const char *cmd, CMDTYPE type)
+{
+    CMDTAB *p = NULL;
+    WORD w = 0xFFFF;
+
+    assert(cmd != NULL);
+    for(p = cmdtab[HASH_CMDTYPE][hash_cmdtype(cmd, type)]; p != NULL; p = p->next) {
+        if(strcmp(cmd, p->cmd->name) == 0 && type == p->cmd->type) {
+            w = p->cmd->code;
+            break;
+        }
+    }
+    return w;
+}
+
+/**
+ * 命令コードからハッシュ値を生成する
+ */
+unsigned hash_code(WORD code)
+{
+    HKEY *keys[1] = {NULL};
+    unsigned h = 0;
+
+    /* 命令コードを設定 */
+    keys[0] = malloc_chk(sizeof(HKEY), "hash_code.key");
+    keys[0]->type = INT;
+    keys[0]->val.i = (int)(code >> 8);
+    h = hash(1, keys, CMDTABSIZE);
+    FREE(keys[0]);
+    return h;
+}
 
-/* レジストリの内容を論理値（0〜65535）で表示する場合はtrue */
-bool logicalmode = false;
+/**
+ * 命令コードから命令の関数ポインタを返す
+ */
+const void (*getcmdptr(WORD code))
+{
+    CMDTAB *t = NULL;
+    const void *ptr = NULL;
 
-/* メモリの内容を表示する場合はtrue */
-bool dumpmode = false;
+    for(t = cmdtab[HASH_CODE][hash_code(code)]; t != NULL; t = t->next) {
+        if(code == t->cmd->code) {
+            ptr = t->cmd->ptr;
+            break;
+        }
+    }
+    return ptr;
+}
 
-/* ソースを表示する場合はtrue */
-bool srcmode = false;
+/**
+ * 命令コードから命令のタイプを返す
+ */
+CMDTYPE getcmdtype(WORD code)
+{
+    CMDTAB *t = NULL;
+    CMDTYPE type = NONE;
 
-/* ラベル表を表示する場合はtrue */
-bool labelmode = false;
+    for(t = cmdtab[HASH_CODE][hash_code(code)]; t != NULL; t = t->next) {
+        if(code == t->cmd->code) {
+            type = t->cmd->type;
+            break;
+        }
+    }
+    return type;
+}
 
-/* ラベル表を表示して終了する場合はtrue */
-bool onlylabelmode = false;
+/**
+ * 命令コードから命令の名前を返す
+ */
+char *getcmdname(WORD code)
+{
+    CMDTAB *t = NULL;
+    char *cmd = NULL;
 
-/* アセンブラ詳細結果を表示する場合はtrue */
-bool asdetailmode = false;
+    for(t = cmdtab[HASH_CODE][hash_code(code)]; t != NULL; t = t->next) {
+        if(code == t->cmd->code) {
+            cmd = t->cmd->name;
+            break;
+        }
+    }
+    return cmd;
+}
 
-/* アセンブルだけを行う場合はtrue */
-bool onlyassemblemode = false;
+/**
+ * 汎用レジスタの番号からレジスタを表す文字列を返す
+ */
 
-/* メモリーサイズ */
-int memsize = DEFAULT_MEMSIZE;
+char *grstr(WORD word)
+{
+    assert(word <= 7);
+    char *str = NULL;
 
-/* クロック周波数 */
-int clocks = DEFAULT_CLOCKS;
+    str = malloc_chk(3 + 1, "grstr.str");
+    sprintf(str, "GR%d", word);
+    return str;
+}
 
-/* 実行開始番地 */
-WORD startptr = 0x0;
+/**
+ * COMET II仮想マシンのリセット
+ */
+void reset(int memsize, int clocks)
+{
+    sys = malloc_chk(sizeof(SYSTEM), "sys");
+    /* メモリサイズを設定 */
+    sys->memsize = memsize;
+    /* クロック周波数を設定 */
+    sys->clocks = clocks;
+    /* メモリを初期化 */
+    sys->memory = calloc_chk(sys->memsize, sizeof(WORD), "memory");
+    /* CPUを初期化 */
+    sys->cpu = malloc_chk(sizeof(CPU), "cpu");
+    for(int i = 0; i < GRSIZE; i++) {                    /* 汎用レジスタ  */
+        sys->cpu->gr[i] = 0x0;
+    }
+    sys->cpu->sp = sys->memsize;   /* スタックポインタ */
+    sys->cpu->pr = 0x0;            /* プログラムレジスタ */
+    sys->cpu->fr = 0x0;            /* フラグレジスタ */
+    /* CASL2プログラムの開始と終了のアドレスを初期化 */
+    execptr = malloc_chk(sizeof(EXECPTR), "execptr");
+    execptr->stop = false;
+}
 
-/* 実行終了番地 */
-WORD endptr = 0x0;
+/**
+ * COMET II仮想マシンのシャットダウン
+ */
+void shutdown()
+{
+    FREE(execptr);
+    FREE(sys->memory);
+    FREE(sys->cpu);
+    FREE(sys);
+}