X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fouti_call.casl;h=e96a938bd014b6e9d0b2cf8e20e5a1daae878445;hp=bcfaf672bab29e15dddef11202f54a64d88d9a44;hb=5d41f32f8e26c4f3d6e0186d960a5f3b98dcab27;hpb=63131a52ebd7efc0449a9418eccc86e877e78f3b

diff --git a/as/outi_call.casl b/as/outi_call.casl
index bcfaf67..e96a938 100644
--- a/as/outi_call.casl
+++ b/as/outi_call.casl
@@ -1,6 +1,14 @@
 ; need outi.casl
-MAIN	START
-	LAD GR1,#8000
-    CALL OUTI
-FIN	RET
-	END
+MAIN    START
+        LAD GR2,0
+        LD  GR3,CNT
+LOOP    LD GR1,VAL,GR2
+        CALL    OUTI
+        LAD GR2,1,GR2
+        CPA GR2,GR3
+        JZE FIN
+        JUMP LOOP
+FIN RET
+        END
+VAL DC  #0000,#0001,#0002,#0010,#0100,#1000,#7FFF,#FFFF,#FFFE,#FFF0,#FF00,#F000,#8001,#8000
+CNT DC  14