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