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