include/casl2.h

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <string.h>
   4 #include <malloc.h>
   5 #include <ctype.h>
   6 #include <assert.h>
   7 #include <stdbool.h>
   8 #include <time.h>
   9
  10 #define ARRAYSIZE(array) (sizeof(array)/sizeof(array[0]))
  11
  12 /* COMET IIの規格 */
  13 enum {
  14     CMDSIZE = 4,      /* 命令の最大文字数 */
  15     REGSIZE = 8,      /* 汎用レジスタの数 */
  16     DEFAULT_MEMSIZE = 512,    /* デフォルトのメモリ容量。COMET II規格では、65536語 */
  17     DEFAULT_CLOCKS = 5000000  /* デフォルトのクロック周波数。COMET II規格では、未定義 */
  18 };
  19
  20 /* ハッシュ値を取得する */
  21 unsigned hash(const char *key, int size);
  22
  23 /* COMET IIの基本データサイズ */
  24 typedef unsigned short WORD;
  25
  26 /* COMET IIのメモリ */
  27 extern WORD *memory;
  28
  29 /* COMET IIのCPUレジスタ */
  30 extern WORD GR[REGSIZE], SP, PR, FR;
  31
  32 /* COMET II フラグのマスク値 */
  33 enum {
  34     OF = 0x4,    /* Overflow Flag */
  35     SF = 0x2,    /* Sign Flag */
  36     ZF = 0x1     /* Zero Flag */
  37 };
  38
  39 /* エラー番号 */
  40 extern int cerrno;
  41
  42 /* エラーメッセージ */
  43 extern char *cerrmsg;
  44
  45 /* レジストリの内容を表示する場合はTRUE */
  46 extern bool tracemode;
  47
  48 /* レジストリの内容を論理値（0〜65535）で表示する場合はTRUE */
  49 extern bool logicalmode;
  50
  51 /* メモリの内容を表示する場合はTRUE */
  52 extern bool dumpmode;
  53
  54 /* ソースを表示する場合はTRUE */
  55 extern bool srcmode;
  56
  57 /* ラベル表を表示する場合はTRUE */
  58 extern bool labelmode;
  59
  60 /* ラベル表を表示して終了する場合はTRUE */
  61 extern bool onlylabelmode;
  62
  63 /* アセンブラ詳細結果を表示するならTRUE */
  64 extern bool asdetailmode;
  65
  66 /* アセンブルだけを行う場合はTRUE */
  67 extern bool onlyassemblemode;
  68
  69 /* メモリーサイズ */
  70 extern int memsize;
  71
  72 /* クロック周波数 */
  73 extern int clocks;
  74
  75 /* 実行開始番地 */
  76 extern WORD startptr;
  77
  78 /* 実行終了番地 */
  79 extern WORD endptr;
  80
  81 /* COMET II 命令
  82    命令タイプは、オペランドにより6つに分類
  83        R_ADR_X = 010: オペランド数2または3。
  84                 第1オペランドは汎用レジスタ、第2オペランドはアドレス、第3オペランドは指標レジスタ
  85        R_ADR_X_ = 011: 同上。ただし、実効アドレスに格納されている内容を示す
  86        R1_R2 = 020: オペランド数2。第1オペランド、第2オペランドともに汎用レジスタ
  87        ADR_X = 030: オペランド数1または2。第1オペランドはアドレス、第2オペランドは指標レジスタ
  88        R_ = 040: オペランド数1。第1オペランドはGR
  89        NONE = 0: オペランドなし
  90 */
  91 typedef enum {
  92     R_ADR_X = 010,
  93     R_ADR_X_ = 011,
  94     R1_R2 = 020,
  95     ADR_X = 030,
  96     R_ = 040,
  97     NONE = 0
  98 } CMDTYPE;
  99
 100 typedef struct {
 101     char *cmd;
 102     CMDTYPE type;
 103     WORD code;
 104 } CMDCODEARRAY;
 105
 106 /* 命令コードのハッシュ表 */
 107 typedef struct _CMDCODETAB {
 108     struct _CMDCODETAB *next;
 109     CMDCODEARRAY *cca;
 110 } CMDCODETAB;
 111
 112 /* 命令と命令タイプがキーのハッシュ表を作成する */
 113 bool create_cmdtype_code();
 114
 115 /* 命令と命令タイプから、命令コードを取得する。
 116    無効な場合は0xFFFFを返す */
 117 WORD getcmdcode(const char *cmd, CMDTYPE type);
 118
 119 /* 命令と命令タイプからハッシュ値を生成する */
 120 unsigned hash_cmdtype(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 unsigned hash_code(WORD code);
 133
 134 /* 命令コードから命令タイプを取得する。
 135    無効な場合はNONEを返す */
 136 CMDTYPE getcmdtype(WORD code);
 137
 138 /* 命令コードがキーのハッシュ表を表示する */
 139 void print_code_type();
 140
 141 /* 命令コードがキーのハッシュ表を解放する */
 142 void free_code_type();
 143
 144 /* エラー番号とエラーメッセージを設定 */
 145 void setcerr(int num, const char *val);
 146
 147 /* エラー番号からメッセージを返す */
 148 char *getcerrmsg(int num);
 149
 150 /* WORD値を文字列に変換 */
 151 char *wtoa(WORD word);
 152
 153 /* エラーを解放する */
 154 void freecerr();
 155
 156 /* 指定されたファイルにアセンブル結果を書込 */
 157 void outassemble(char *file);
 158
 159 /* WORD値を2進数表記に変換 */
 160 char *word2bit(const WORD word);
 161
 162 /* COMET IIのメモリを表示 */
 163 void dumpmemory();
 164
 165 /* COMET IIのレジスタを表示 */
 166 void dspregister();