X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FCMD%2Fcall2.casl;fp=as%2FCMD%2Fcall2.casl;h=afa5fdd54e3ba8b3bfd8620deaf89eecc7ef1da3;hb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;hp=0000000000000000000000000000000000000000;hpb=b4e48008c95b35c692827326191698c22b06124f;p=YACASL2.git

diff --git a/as/CMD/call2.casl b/as/CMD/call2.casl
new file mode 100644
index 0000000..afa5fdd
--- /dev/null
+++ b/as/CMD/call2.casl
@@ -0,0 +1,11 @@
+MAIN    START   BEGIN
+BEGIN   LD      GR1,=29
+        CALL    INCR
+        ST      GR1,A
+        RET
+A       DS      1
+        END
+INCR    START
+        ADDA      GR1,=1
+        RET
+FIN     END