l2strを中心に、casl2libの更新

[YACASL2.git] / as / casl2lib / sample / call_l2str.casl

diff --git a/as/casl2lib/sample/call_l2str.casl b/as/casl2lib/sample/call_l2str.casl
new file mode 100644 (file)
index 0000000..fd16c45
--- /dev/null
+++ b/as/casl2lib/sample/call_l2str.casl
@@ -0,0 +1,11 @@
+MAIN    START
+        LD     GR1,L
+        LAD    GR2,STR
+        CALL   L2STR
+        ST     GR0,LEN
+        OUT    STR,LEN
+        RET
+L       DC     6543
+STR     DS     5
+LEN     DS     1
+        END