X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FCMD%2Fliteralstr.casl;fp=as%2FCMD%2Fliteralstr.casl;h=bd1bbccf0d98e1ff8f41c85e5b3e696e3b1fd160;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/CMD/literalstr.casl b/as/CMD/literalstr.casl
new file mode 100644
index 0000000..bd1bbcc
--- /dev/null
+++ b/as/CMD/literalstr.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