casl2libを呼び出すコードを、testフォルダからas/casl2lib/sampleに移動

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

diff --git a/as/sample/call_l2str.casl b/as/sample/call_l2str.casl
new file mode 100644 (file)
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