+/* casl2のエラー定義 */
+CERRARRAY cerr_casl2[] = {
+ { 126, "source file is not specified" },
+};
+bool addcerrlist_casl2()
+{
+ return addcerrlist(sizeof(cerr_casl2), cerr_casl2);
+}
+
+/* 指定されたファイルにアセンブル結果を書込 */
+void outassemble(const char *file) {
+ FILE *fp;
+ if((fp = fopen(file, "w")) == NULL) {
+ perror(file);
+ exit(-1);
+ }
+ fwrite(memory, sizeof(WORD), endptr, fp);
+ fclose(fp);
+}
+
+/* アセンブル結果を書き込むファイルの名前 */
+const char *objfile_name(const char *str)
+{
+ const char *default_name = "a.o";
+
+ if(str == NULL) {
+ return default_name;
+ } else {
+ return str;
+ }
+}
+
+/* casl2コマンドのメイン */