-#include <stdio.h>
-#include <assert.h>
-#include <string.h>
-#include "hash.h"
#include "struct.h"
-#include "cmem.h"
#include "exec.h"
/**
* COMET IIの仮想実行マシンシステム
*/
-SYSTEM *sys;
+SYSTEM *sys = NULL;
/**
* プログラム実行時の開始と終了のアドレス
*/
-EXECPTR *execptr;
+EXECPTR *execptr = NULL;
/**
* システムCOMET IIの命令表
*/
-static COMET2CMD comet2cmd[] = {
+static const COMET2CMD comet2cmd[] = {
{ "NOP", NONE, 0x0, nop },
{ "LD", R_ADR_X, 0x1000, ld_r_adr_x },
{ "ST", R_ADR_X, 0x1100, st },
* ハッシュ表のサイズ
*/
enum {
- CMDTABSIZE = 39,
+ CMDTABSIZE = 41,
};
/**
* ハッシュ表
*/
-static CMDTAB *cmdtype_code[CMDTABSIZE], *code_type[CMDTABSIZE];
+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];
- unsigned hashval;
+ HKEY *keys[2] = {NULL};
+ unsigned hashval = 0;
/* 命令名を設定 */
keys[0] = malloc_chk(sizeof(HKEY), "hash_cmdtype.keys[0]");
}
/**
- * å\90\8då\89\8dã\81¨ã\82¿ã\82¤ã\83\97ã\81\8cã\82ã\83¼ã\81®å\91½ä»¤ã\83\8fã\83\83ã\82·ã\83¥è¡¨ã\82\92ä½\9cæ\88\90ã\81\99ã\82\8b
+ * 命令ハッシュ表を作成する
*/
-bool create_cmdtype_code()
+bool create_cmdtable(CMDTAB_HASH hash)
{
- CMDTAB *p;
+ CMDTAB *p = NULL;
unsigned hashval;
- int i;
- for(i = 0; i < comet2cmdsize; i++) {
- hashval = hash_cmdtype(comet2cmd[i].name, comet2cmd[i].type); /* ハッシュ値の生成 */
- p = malloc_chk(sizeof(CMDTAB), "cmdtype_code");
+ for(int i = 0; i < comet2cmdsize; i++) {
+ p = malloc_chk(sizeof(CMDTAB), "create_cmdtable.p");
p->cmd = &comet2cmd[i];
- p->next = cmdtype_code[hashval]; /* ハッシュ表に値を追加 */
- cmdtype_code[hashval] = p;
+ 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;
+ CMDTAB *p = NULL;
WORD w = 0xFFFF;
assert(cmd != NULL);
- for(p = cmdtype_code[hash_cmdtype(cmd, type)]; p != NULL; p = p->next) {
+ 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;
}
-/**
- * 名前とタイプがキーの命令ハッシュ表を解放する
- */
-void free_cmdtype_code()
-{
- int i;
- CMDTAB *p, *q;
-
- for(i = 0; i < CMDTABSIZE; i++) {
- for(p = cmdtype_code[i]; p != NULL; p = q) {
- q = p->next;
- FREE(p);
- }
- }
-}
-
/**
* 命令コードからハッシュ値を生成する
*/
unsigned hash_code(WORD code)
{
- HKEY *keys[1];
- unsigned h;
+ HKEY *keys[1] = {NULL};
+ unsigned h = 0;
/* 命令コードを設定 */
keys[0] = malloc_chk(sizeof(HKEY), "hash_code.key");
}
/**
- * コードがキーの命令ハッシュ表を作成する
+ * 命令コードから命令の関数ポインタを返す
*/
-bool create_code_type()
+const void (*getcmdptr(WORD code))
{
- CMDTAB *p;
- unsigned hashval;
- int i;
+ CMDTAB *t = NULL;
+ const void *ptr = NULL;
- for(i = 0; i < comet2cmdsize; i++) {
- hashval = hash_code((&comet2cmd[i])->code); /* ハッシュ値の生成 */
- p = malloc_chk(sizeof(CMDTAB), "code_type");
- p->cmd = &comet2cmd[i];
- p->next = code_type[hashval]; /* ハッシュ表に値を追加 */
- code_type[hashval] = p;
+ for(t = cmdtab[HASH_CODE][hash_code(code)]; t != NULL; t = t->next) {
+ if(code == t->cmd->code) {
+ ptr = t->cmd->ptr;
+ break;
+ }
}
- return true;
+ return ptr;
}
/**
- * 命令コードから命令の関数ポインタを返す
+ * 命令コードから命令のタイプを返す
*/
-const void (*getcmdptr(WORD code))
+CMDTYPE getcmdtype(WORD code)
{
- CMDTAB *t;
- const void (*ptr);
+ CMDTAB *t = NULL;
+ CMDTYPE type = NONE;
- for(t = code_type[hash_code(code)]; t != NULL; t = t->next) {
+ for(t = cmdtab[HASH_CODE][hash_code(code)]; t != NULL; t = t->next) {
if(code == t->cmd->code) {
- ptr = t->cmd->ptr;
+ type = t->cmd->type;
break;
}
}
- return ptr;
+ return type;
}
/**
- * コードがキーの命令ハッシュ表を解放する
+ * 命令コードから命令の名前を返す
*/
-void free_code_type()
+char *getcmdname(WORD code)
{
- int i;
- CMDTAB *p, *q;
- for(i = 0; i < CMDTABSIZE; i++) {
- for(p = code_type[i]; p != NULL; p = q) {
- q = p->next;
- FREE(p);
+ CMDTAB *t = NULL;
+ char *cmd = NULL;
+
+ 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;
+}
+
+/**
+ * 汎用レジスタの番号からレジスタを表す文字列を返す
+ */
+
+char *grstr(WORD word)
+{
+ assert(word <= 7);
+ char *str = NULL;
+
+ str = malloc_chk(3 + 1, "grstr.str");
+ sprintf(str, "GR%d", word);
+ return str;
}
/**
*/
void reset(int memsize, int clocks)
{
- int i;
-
sys = malloc_chk(sizeof(SYSTEM), "sys");
/* メモリサイズを設定 */
sys->memsize = memsize;
sys->memory = calloc_chk(sys->memsize, sizeof(WORD), "memory");
/* CPUを初期化 */
sys->cpu = malloc_chk(sizeof(CPU), "cpu");
- for(i = 0; i < GRSIZE; i++) { /* 汎用レジスタ */
+ for(int i = 0; i < GRSIZE; i++) { /* 汎用レジスタ */
sys->cpu->gr[i] = 0x0;
}
sys->cpu->sp = sys->memsize; /* スタックポインタ */
projects / YACASL2.git / blobdiff