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