X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcall_l2str.casl;fp=as%2Fcall_l2str.casl;h=4d201a231b42d4088fd7754da4e3416cb5736775;hb=886b03134f0e5aad0ed3c29ae8d4e7cfa785f808;hp=0000000000000000000000000000000000000000;hpb=8993a52e06e3f33aad16c8bb842f62307cae8063;p=YACASL2.git

diff --git a/as/call_l2str.casl b/as/call_l2str.casl
new file mode 100644
index 0000000..4d201a2
--- /dev/null
+++ b/as/call_l2str.casl
@@ -0,0 +1,11 @@
+MAIN    START
+        LD      GR1,VAL
+        LAD     GR2,ADR
+        CALL    L2STR
+        ST      GR3,LEN
+        OUT     ADR,LEN
+        RET
+VAL     DC      11
+ADR     DS      6
+LEN     DS      1
+        END