-32768〜32767の数値を出力するアセンブラプログラムouti.caslを修正し、テストを追加

[YACASL2.git] / as / outi_call.casl

diff --git a/as/outi_call.casl b/as/outi_call.casl
index bcfaf67..e96a938 100644 (file)
--- 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