- assert(file != NULL);
- if((fp = fopen(file, "r")) == NULL) {
- perror(file);
- return false;
- }
- execptr->end = execptr->start +
- fread(sys->memory, sizeof(WORD), sys->memsize - execptr->start, fp);
- if(execptr->end == sys->memsize) {
- setcerr(201, file); /* Loading - full of COMET II memory */
- fprintf(stderr, "Load error - %d: %s\n", cerr->num, cerr->msg);
- status = false;
- }
- fclose(fp);
- return status;
-}
+/**
+ * @brief 2つのWORD値からadr[,x]を取得
+ *
+ * @return adr[,x]を表すWORD値
+ *
+ * @param adr アドレスを表すWORD値
+ * @param oprx オペランドを表すWORD値
+ */
+WORD get_adr_x(WORD adr, WORD oprx);
+
+/**
+ * @brief 2つのWORD値からadr[,x]のアドレスに格納されている値を取得
+ *
+ * @return adr[,x]のアドレスに格納されている値を表すWORD値
+ *
+ * @param adr アドレスを表すWORD値
+ * @param oprx オペランドを表すWORD値
+ */
+WORD get_val_adr_x(WORD adr, WORD oprx);
+
+/**
+ * @brief 実行エラーの定義
+ */
+static CERR cerr_exec[] = {
+ { 201, "Program Register (PR) - memory overflow" },
+ { 202, "Stack Pointer (SP) - stack overflow" },
+ { 203, "Stack Pointer (SP) - stack underflow" },
+ { 204, "OP in word #1 - not command code" },
+ { 205, "r/r1 in word #1 - not GR" },
+ { 206, "x/r2 in word #1 - not GR" },
+ { 207, "address in word #2 - out of memory" },
+ { 208, "SVC input - memory overflow" },
+ { 209, "SVC output - memory overflow" },
+};