+/**
+ * アセンブル結果読み込みエラーをエラーリストに追加
+ */
+void addcerrlist_load()
+{
+ addcerrlist(ARRAYSIZE(cerr_load), cerr_load);
+}
+
+/**
+ * 実行エラーをエラーリストに追加
+ */
+void addcerrlist_exec()
+{
+ addcerrlist(ARRAYSIZE(cerr_exec), cerr_exec);
+}
+/**
+ * 指定されたファイルからアセンブル結果を読み込む
+ */
+bool loadassemble(char *file)
+{
+ FILE *fp;
+ bool status = true;
+
+ 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;
+}
+
+/**
+ * 標準入力から文字データを読込(SVC 1)
+ */
+static void svcin()