X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=test%2Fsystem%2Fcomet2%2Flib_rev%2Frev.casl;fp=test%2Fsystem%2Fcomet2%2Flib_rev%2Frev.casl;h=58252c295dcbdfe65edd467376c1b3841842506e;hb=73d1617a1a5b766d1a1e960d3af8f87789d49e5c;hp=0000000000000000000000000000000000000000;hpb=fd77389ef0a4c9c31228b5f71e9073a11ada9853;p=YACASL2.git

diff --git a/test/system/comet2/lib_rev/rev.casl b/test/system/comet2/lib_rev/rev.casl
new file mode 100644
index 0000000..58252c2
--- /dev/null
+++ b/test/system/comet2/lib_rev/rev.casl
@@ -0,0 +1,10 @@
+MAIN    START
+        OUT     STR,LEN
+        LAD     GR1,STR
+        LD      GR2,LEN
+        CALL    REV
+        OUT     STR,LEN
+        RET
+STR     DC      '12345'
+LEN     DC      5
+        END