casl2libとtestを整理
[YACASL2.git] / test / system / comet2_err / err_205 / create_a.c
diff --git a/test/system/comet2_err/err_205/create_a.c b/test/system/comet2_err/err_205/create_a.c
new file mode 100644 (file)
index 0000000..3f86464
--- /dev/null
@@ -0,0 +1,22 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include "cmem.h"
+#include "word.h"
+
+/**
+ * 引数で指定したファイルにアセンブル結果を書込
+ */
+int main()
+{
+    FILE *fp;
+    const WORD w[] = {0x1010, 0x0005, 0x22f0, 0x0006, 0x8100, 0x0003, 0x0001};
+    const char *f = "a.o";
+
+    if((fp = fopen(f, "w")) == NULL) {
+        perror(f);
+        exit(-1);
+    }
+    fwrite(w, sizeof(WORD), ARRAYSIZE(w), fp);
+    fclose(fp);
+    return 0;
+}