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     MEMSIZE = 512,    /* メモリ容量。COMET II規格では、65536語 */
  17     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[MEMSIZE];
  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 asdetailmode;
  62
  63 /* アセンブルだけを行う場合はTRUE */
  64 extern bool onlyassemblemode;
  65
  66 /* 実行開始番地 */
  67 extern WORD startptr;
  68
  69 /* 実行終了番地 */
  70 extern WORD endptr;
  71
  72 /* COMET II 命令
  73    命令タイプは、オペランドにより6つに分類
  74        R_ADR_X = 010: オペランド数2または3。
  75                 第1オペランドは汎用レジスタ、第2オペランドはアドレス、第3オペランドは指標レジスタ
  76        R_ADR_X_ = 011: 同上。ただし、実効アドレスに格納されている内容を示す
  77        R1_R2 = 020: オペランド数2。第1オペランド、第2オペランドともに汎用レジスタ
  78        ADR_X = 030: オペランド数1または2。第1オペランドはアドレス、第2オペランドは指標レジスタ
  79        R_ = 040: オペランド数1。第1オペランドはGR
  80        NONE = 0: オペランドなし
  81 */
  82 typedef enum {
  83     R_ADR_X = 010,
  84     R_ADR_X_ = 011,
  85     R1_R2 = 020,
  86     ADR_X = 030,
  87     R_ = 040,
  88     NONE = 0
  89 } CMDTYPE;
  90
  91 typedef struct {
  92     char *cmd;
  93     CMDTYPE type;
  94     WORD code;
  95 } CMDCODEARRAY;
  96
  97 /* 命令コードのハッシュ表 */
  98 typedef struct _CMDCODETAB {
  99     struct _CMDCODETAB *next;
 100     CMDCODEARRAY *cca;
 101 } CMDCODETAB;
 102
 103 /* 命令と命令タイプがキーのハッシュ表を作成する */
 104 bool create_cmdtype_code();
 105
 106 /* 命令と命令タイプから、命令コードを取得する。
 107    無効な場合は0xFFFFを返す */
 108 WORD getcmdcode(const char *cmd, CMDTYPE type);
 109
 110 /* 命令と命令タイプからハッシュ値を生成する */
 111 unsigned hash_cmdtype(const char *cmd, CMDTYPE type);
 112
 113 /* 命令と命令タイプがキーのハッシュ表を表示する */
 114 void print_cmdtype_code();
 115
 116 /* 命令と命令タイプがキーのハッシュ表を解放する */
 117 void free_cmdtype_code();
 118
 119 /* 命令コードがキーのハッシュ表を作成する */
 120 bool create_code_type();
 121
 122 /* 命令コードからハッシュ値を生成する */
 123 unsigned hash_code(WORD code);
 124
 125 /* 命令コードから命令タイプを取得する。
 126    無効な場合はNONEを返す */
 127 CMDTYPE getcmdtype(WORD code);
 128
 129 /* 命令コードがキーのハッシュ表を表示する */
 130 void print_code_type();
 131
 132 /* 命令コードがキーのハッシュ表を解放する */
 133 void free_code_type();
 134
 135 /* エラー番号とエラーメッセージを設定 */
 136 void setcerr(int num, const char *val);
 137
 138 /* エラー番号からメッセージを返す */
 139 char *getcerrmsg(int num);
 140
 141 /* WORD値を文字列に変換 */
 142 char *wtoa(WORD word);
 143
 144 /* エラーを解放する */
 145 void freecerr();
 146
 147 /* 指定されたファイルにアセンブル結果を書込 */
 148 void outassemble(char *file);