include/casl2.h

   1 #ifndef YACASL2_CASL2_INCLUDED
   2 #define YACASL2_CASL2_INCLUDED
   3
   4 #include <stdio.h>
   5 #include <stdlib.h>
   6 #include <stdbool.h>
   7 #include <time.h>
   8 #include <assert.h>
   9 #include <ctype.h>
  10 #include <string.h>
  11
  12 #include "word.h"
  13 #include "hash.h"
  14 #include "cerr.h"
  15
  16 #ifndef ARRAYSIZE
  17 #define ARRAYSIZE(array) (sizeof(array)/sizeof(array[0]))
  18 #endif
  19
  20 /* COMET IIの規格 */
  21 enum {
  22     CMDSIZE = 4,              /* 命令の最大文字数 */
  23     GRSIZE = 8,               /* 汎用レジスタの数。COMET II規格で、7 */
  24     DEFAULT_MEMSIZE = 512,    /* デフォルトのメモリ容量。COMET II規格では、65536語 */
  25     DEFAULT_CLOCKS = 5000000, /* デフォルトのクロック周波数。COMET II規格では、未定義 */
  26 };
  27
  28 /* COMET II フラグのマスク値 */
  29 enum {
  30     OF = 0x4,    /* Overflow Flag */
  31     SF = 0x2,    /* Sign Flag */
  32     ZF = 0x1,    /* Zero Flag */
  33 };
  34
  35 /* COMET IIのCPU */
  36 typedef struct {
  37     WORD gr[GRSIZE]; /* 汎用レジスタ */
  38     WORD sp;         /* スタックポインタ */
  39     WORD pr;         /* プログラムレジスタ */
  40     WORD fr;         /* フラグレジスタ */
  41 } CPU;
  42
  43 /* COMET IIの仮装実行マシンシステム */
  44 typedef struct {
  45     CPU *cpu;        /* CPU */
  46     WORD *memory;    /* メモリ */
  47     int memsize;     /* メモリサイズ */
  48     int clocks;      /* クロック周波数 */
  49 } SYSTEM;
  50
  51 extern SYSTEM *sys;
  52
  53 /* COMET II 命令 */
  54 /* 命令タイプは、オペランドにより6種類に分類 */
  55 typedef enum {
  56     /* オペランド数2または3 */
  57     /*     第1オペランド: 汎用レジスタ */
  58     /*     第2オペランド: アドレス */
  59     /*     第3オペランド: 指標レジスタ */
  60     R_ADR_X = 010,
  61     /* オペランド数2または3 */
  62     /*     第1オペランド: 汎用レジスタ、*/
  63     /*     第2オペランド: アドレスに格納されている内容 */
  64     /*     第3オペランド: 指標レジスタ */
  65     R_ADR_X_ = 011,
  66     /* オペランド数2 */
  67     /*     第1オペランド: 汎用レジスタ */
  68     /*     第2オペランド: 汎用レジスタ */
  69     R1_R2 = 020,
  70     /* オペランド数1または2 */
  71     /*     第1オペランド: アドレス */
  72     /*     第2オペランド: 指標レジスタ */
  73     ADR_X = 030,
  74     /* オペランド数1 */
  75     /*     第1オペランド: 汎用レジスタ */
  76     R_ = 040,
  77     /* オペランドなし */
  78     NONE = 0,
  79 } CMDTYPE;
  80
  81 /* 命令コード配列 */
  82 typedef struct {
  83     char *name;
  84     CMDTYPE type;
  85     WORD code;
  86 } CMD;
  87
  88 /* 命令コード配列のサイズ */
  89 extern int comet2cmdsize;
  90
  91 /* 命令コードのハッシュ表 */
  92 typedef struct _CMDTAB {
  93     struct _CMDTAB *next;
  94     CMD *cmd;
  95 } CMDTAB;
  96
  97 extern CMDTAB **cmdtype_code;
  98 extern CMDTAB **code_type;
  99 extern int cmdtabsize;
 100
 101 /* CASL2プログラムのプロパティ */
 102 typedef struct {
 103     WORD start;   /* プログラムの開始番地 */
 104     WORD end;     /* プログラムの終了番地 */
 105 } PROGPROP;
 106
 107 extern PROGPROP *prog;
 108
 109 /* COMET II仮想マシンのリセット */
 110 void reset(int memsize, int clocks);
 111
 112 /* COMET II仮想マシンのシャットダウン */
 113 void shutdown();
 114
 115 /* 命令と命令タイプがキーのハッシュ表を作成する */
 116 bool create_cmdtype_code();
 117
 118 /* 命令と命令タイプから、命令コードを取得する */
 119 /* 無効な場合は0xFFFFを返す */
 120 WORD getcmdcode(const char *cmd, CMDTYPE type);
 121
 122 /* 命令と命令タイプがキーのハッシュ表を表示する */
 123 void print_cmdtype_code();
 124
 125 /* 命令と命令タイプがキーのハッシュ表を解放する */
 126 void free_cmdtype_code();
 127
 128 /* 命令コードがキーのハッシュ表を作成する */
 129 bool create_code_type();
 130
 131 /* 命令コードから命令タイプを取得する */
 132 /* 無効な場合はNONEを返す */
 133 CMDTYPE getcmdtype(WORD code);
 134
 135 /* 命令コードがキーのハッシュ表を表示する */
 136 void print_code_type();
 137
 138 /* 命令コードがキーのハッシュ表を解放する */
 139 void free_code_type();
 140
 141 /* 指定されたファイルにアセンブル結果を書込 */
 142 void outassemble(const char *file);
 143
 144 #endif            /* YACASL2_CASL2_INCLUDEDの終端 */