#include "word.h"
#include "hash.h"
+#include "cmem.h"
#include "cerr.h"
-#ifndef ARRAYSIZE
-#define ARRAYSIZE(array) (sizeof(array)/sizeof(array[0]))
-#endif
-
/* COMET IIの規格 */
enum {
- CMDSIZE = 4, /* 命令の最大文字数 */
- REGSIZE = 8, /* 汎用レジスタの数 */
+ CMDSIZE = 4, /* 命令の最大文字数 */
+ GRSIZE = 8, /* 汎用レジスタの数。COMET II規格で、7 */
DEFAULT_MEMSIZE = 512, /* デフォルトのメモリ容量。COMET II規格では、65536語 */
DEFAULT_CLOCKS = 5000000, /* デフォルトのクロック周波数。COMET II規格では、未定義 */
};
-/* COMET IIのメモリ */
-extern WORD *memory;
-
-/* COMET IIのCPUレジスタ */
-extern WORD GR[REGSIZE], SP, PR, FR;
-
/* COMET II フラグのマスク値 */
enum {
OF = 0x4, /* Overflow Flag */
ZF = 0x1, /* Zero Flag */
};
-/* メモリーサイズ */
-extern int memsize;
-
-/* クロック周波数 */
-extern int clocks;
+/* COMET IIのCPU */
+typedef struct {
+ WORD gr[GRSIZE]; /* 汎用レジスタ */
+ WORD sp; /* スタックポインタ */
+ WORD pr; /* プログラムレジスタ */
+ WORD fr; /* フラグレジスタ */
+} CPU;
-/* 実行開始番地 */
-extern WORD startptr;
+/* COMET IIの仮装実行マシンシステム */
+typedef struct {
+ CPU *cpu; /* CPU */
+ WORD *memory; /* メモリ */
+ int memsize; /* メモリサイズ */
+ int clocks; /* クロック周波数 */
+} SYSTEM;
-/* 実行終了番地 */
-extern WORD endptr;
+extern SYSTEM *sys;
/* COMET II 命令 */
/* 命令タイプは、オペランドにより6種類に分類 */
/* 命令コード配列 */
typedef struct {
- char *cmd;
+ char *name;
CMDTYPE type;
WORD code;
-} CMDCODEARRAY;
+} CMD;
/* 命令コード配列のサイズ */
-extern int cmdcodesize;
+extern int comet2cmdsize;
/* 命令コードのハッシュ表 */
-typedef struct _CMDCODETAB {
- struct _CMDCODETAB *next;
- CMDCODEARRAY *cca;
-} CMDCODETAB;
+typedef struct _CMDTAB {
+ struct _CMDTAB *next;
+ CMD *cmd;
+} CMDTAB;
-extern CMDCODETAB **cmdtype_code;
-extern CMDCODETAB **code_type;
+extern CMDTAB **cmdtype_code;
+extern CMDTAB **code_type;
extern int cmdtabsize;
+/* CASL2プログラムのプロパティ */
+typedef struct {
+ WORD start; /* プログラムの開始番地 */
+ WORD end; /* プログラムの終了番地 */
+} PROGPROP;
+
+extern PROGPROP *prog;
+
/* COMET II仮想マシンのリセット */
-void reset();
+void reset(int memsize, int clocks);
/* COMET II仮想マシンのシャットダウン */
void shutdown();