X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=as%2Fsample%2Fcall_l2str.casl;fp=as%2Fsample%2Fcall_l2str.casl;h=b3ac378129eb260d655eadfb105b37bfd9ff72a9;hb=03832f246ce06d0dae29f96c087b94c7086bb993;hp=0000000000000000000000000000000000000000;hpb=a28d93cdaa900cf83060694519946f6ecc823936;p=YACASL2.git

diff --git a/as/sample/call_l2str.casl b/as/sample/call_l2str.casl
new file mode 100644
index 0000000..b3ac378
--- /dev/null
+++ b/as/sample/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      3245
+ADR     DS      6
+LEN     DS      1
+        END