オペランドに文字定数が指定された場合の動作を修正

[YACASL2.git] / as / CMD / literalstr.casl

diff --git a/as/CMD/literalstr.casl b/as/CMD/literalstr.casl
index bd1bbcc..0fa3fd4 100644 (file)
--- a/as/CMD/literalstr.casl
+++ b/as/CMD/literalstr.casl
@@ -1,13 +1,13 @@
-MAIN START
-       LAD     GR1,='abcdeABCDE'
-    LAD GR2,10
-LOOP CPA GR2,=0
-    JZE LEND
-    JMI LEND
-    LD GR3,0,GR1
-    ADDA GR1,=1
-    SUBA GR2,=1
-    JUMP LOOP
-LEND RET
-LEN DC 5
-    END
+MAIN    START
+        LAD     GR1,='a'
+        LAD     GR2,10
+LOOP    CPA     GR2,=0
+        JZE     LEND
+        JMI     LEND
+        LD      GR3,0,GR1
+        ADDA    GR1,=1
+        SUBA    GR2,=1
+        JUMP    LOOP
+LEND    RET
+LEN     DC      5
+        END