アセンブラファイルの整理

[YACASL2.git] / as / misc / lib_outd / lib_outd / outd1.casl

diff --git a/as/casl2lib/test/outl/outl.casl b/as/misc/lib_outd/lib_outd/outd1.casl
similarity index 58%
rename from as/casl2lib/test/outl/outl.casl
rename to as/misc/lib_outd/lib_outd/outd1.casl
index d20214e..ace9fcf 100644 (file)
--- a/as/casl2lib/test/outl/outl.casl
+++ b/as/misc/lib_outd/lib_outd/outd1.casl
@@ -1,22 +1,21 @@
-;;; casl2 outl_call.casl outl.casl
+;; outd.caslを呼び出し、数値を表示する
 MAIN    START
         LAD     GR2,0
 LOOP    LD      GR1,VAL,GR2
-        CALL    OUTL
+        CALL    OUTD
         LAD     GR2,1,GR2
         CPA     GR2,CNT
         JZE     FIN
         JUMP    LOOP
 FIN     RET
-VAL     DC      0
-        DC      #0001,#0002,#0004,#0008
-        DC      #0010,#0020,#0040,#0080
-        DC      #0100,#0200,#0400,#0800
-        DC      #1000,#2000,#4000,#7FFF
+VAL     DC      #7FFF,#4000,#2000,#1000
+        DC      #0800,#0400,#0200,#0100
+        DC      #0080,#0040,#0020,#0010
+        DC      #0008,#0004,#0002,#0001
         DC      #8000
         DC      #8001,#C000,#E000,#F000
         DC      #F800,#FC00,#FE00,#FF00
         DC      #FF80,#FFC0,#FFE0,#FFF0
         DC      #FFF8,#FFFC,#FFFE,#FFFF
-CNT     DC      34
+CNT     DC      33
         END