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

[YACASL2.git] / as / ERR / literalstr_err.casl

diff --git a/as/ERR/literalstr_err.casl b/as/ERR/literalstr_err.casl
new file mode 100644 (file)
index 0000000..6abe2a3
--- /dev/null
+++ b/as/ERR/literalstr_err.casl
@@ -0,0 +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