公開にあたり、書籍の分を削除
[YACASL2.git] / as / yakuwa / testbinout / testbinout.casl
diff --git a/as/yakuwa/testbinout/testbinout.casl b/as/yakuwa/testbinout/testbinout.casl
deleted file mode 100644 (file)
index d753f77..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-;;; BINOUTを呼び出す
-MAIN    START
-        LAD     GR2,0
-MLOOP   CPA     GR2,MLEN
-        JZE     MFIN
-        LD      GR1,MWORD,GR2
-        CALL    BINOUT
-        LAD     GR2,1,GR2
-        JUMP    MLOOP
-MFIN    RET
-MWORD   DC      #0000,#0001,#09CD,#8001
-MLEN    DC      4
-        END