X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmisc%2Flib_outd%2Flib_outd%2Foutd1.casl;fp=as%2Fcasl2lib%2Ftest%2Foutl%2Foutl.casl;h=ace9fcfd07ee8b0722ba8a1bc42523a555314683;hp=d20214ec9b324ab70371564c738ce6c10532424e;hb=424f582a6be629ccdbf605a53ae22f5ce60a41f7;hpb=d1f82970bf7d41db2fea11b08cd8e308f6cb8138

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
--- 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