X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=include%2Fstruct.h;h=05ff5f9f53cdda7b270a37858d939c37543dcef6;hp=dd69d212424d9e813795546f48f0fc35dcd2536f;hb=80d4fc2d9a7022362c88cac0adbddd32ce7a3a62;hpb=d1f82970bf7d41db2fea11b08cd8e308f6cb8138

diff --git a/include/struct.h b/include/struct.h
index dd69d21..05ff5f9 100644
--- a/include/struct.h
+++ b/include/struct.h
@@ -1,6 +1,7 @@
 #ifndef YACASL2_CASL2_INCLUDED
 #define YACASL2_CASL2_INCLUDED
 
+#include <time.h>
 #include "word.h"
 
 /**
@@ -8,7 +9,7 @@
  */
 enum {
     CMDSIZE = 4,              /**<命令の最大文字数 */
-    GRSIZE = 8,               /**<汎用レジスタの数。COMET II規格により0から7までの8つ */
+    GRSIZE = 8,               /**<汎用レジスタの数。COMET II規格では、8（0から7） */
     DEFAULT_MEMSIZE = 512,    /**<デフォルトのメモリ容量。COMET II規格では、65535語（word） */
     DEFAULT_CLOCKS = 5000000, /**<デフォルトのクロック周波数。COMET II規格では、未定義 */
 };
@@ -39,79 +40,82 @@ typedef struct {
     CPU *cpu;        /**<CPU */
     WORD *memory;    /**<メモリ */
     int memsize;     /**<メモリサイズ */
-    int clocks;      /**<クロック周波数 */
+    clock_t clocks;  /**<クロック周波数 */
 } SYSTEM;
 
 extern SYSTEM *sys;
 
 /**
  * COMET II 命令
- * 命令タイプは、オペランドにより6種類に分類
+ * 命令タイプは、オペランドにより5種類に分類
  */
 typedef enum {
     /**
      *  オペランド数2または3
-     *     第1オペランド: 汎用レジスタ
-     *     第2オペランド: アドレス
-     *     第3オペランド: 指標レジスタ
+     *  - 第1オペランド: 汎用レジスタ。必須
+     *  - 第2オペランド: アドレス。必須
+     *  - 第3オペランド: 指標レジスタとして用いる汎用レジスタ。任意
      */
-    R_ADR_X = 010,
-    /**
-     *  オペランド数2または3
-     *     第1オペランド: 汎用レジスタ、
-     *     第2オペランド: アドレスに格納されている内容
-     *     第3オペランド: 指標レジスタ
-     */
-    R_ADR_X_ = 011,
+    R_ADR_X = 01,
     /**
      *  オペランド数2
-     *     第1オペランド: 汎用レジスタ
-     *     第2オペランド: 汎用レジスタ
+     *  - 第1オペランド: 汎用レジスタ。必須
+     *  - 第2オペランド: 汎用レジスタ。必須
      */
-    R1_R2 = 020,
+    R1_R2 = 02,
     /**
      * オペランド数1または2
-     *     第1オペランド: アドレス
-     *     第2オペランド: 指標レジスタ
+     * - 第1オペランド: アドレス。必須
+     * - 第2オペランド: 指標レジスタとして用いる汎用レジスタ。任意
      */
-    ADR_X = 030,
+    ADR_X = 03,
     /**
-     *   オペランド数1
-     *     第1オペランド: 汎用レジスタ
+     * オペランド数1
+     * - 第1オペランド: 汎用レジスタ。必須
      */
-    R_ = 040,
+    R_ = 04,
     /**
-     *  オペランドなし
+     * オペランドなし
      */
-    NONE = 0,
+    NONE = 00,
 } CMDTYPE;
 
 /**
- * 命令コード配列
+ * 命令コード表の項目
  */
 typedef struct {
-    char *name;
-    CMDTYPE type;
-    WORD code;
+    char *name;                 /**<命令名 */
+    const void (*ptr);          /**<命令の関数ポインタ */
 } CMD;
 
+/**
+ * COMET II命令コード表の項目
+ */
+typedef struct {
+    char *name;                 /**<命令名 */
+    CMDTYPE type;               /**<命令タイプ */
+    WORD code;                  /**<命令コード */
+    const void (*ptr);          /**<命令の関数ポインタ */
+} COMET2CMD;
+
 /**
  * 命令コードのハッシュ表
  */
 typedef struct _CMDTAB {
-    struct _CMDTAB *next;
-    CMD *cmd;
+    struct _CMDTAB *next;       /**<リスト次項目へのポインタ */
+    COMET2CMD *cmd;             /**<命令コード表の項目 */
 } CMDTAB;
 
 /**
- * CASL2プログラムのプロパティ
+ * プログラム実行時の開始と終了のアドレス
  */
 typedef struct {
-    WORD start;   /**<プログラムの開始番地 */
-    WORD end;     /**<プログラムの終了番地 */
-} PROGPROP;
+    WORD start;   /**<開始アドレス */
+    WORD end;     /**<終了アドレス */
+    bool stop;    /**<終了フラグ */
+} EXECPTR;
 
-extern PROGPROP *prog;
+extern EXECPTR *execptr;
 
 /**
  * COMET II仮想マシンのリセット
@@ -145,10 +149,9 @@ void free_cmdtype_code();
 bool create_code_type();
 
 /**
- * 命令コードから命令タイプを返す
- * 無効な場合はNONEを返す
+ * 命令コードから命令の関数ポインタを返す
  */
-CMDTYPE getcmdtype(WORD code);
+const void (*getcmdptr(WORD code));
 
 /**
  * コードがキーの命令ハッシュ表を解放する