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

diff --git a/as/FUNC/sum_call.casl b/as/FUNC/sum_call.casl
new file mode 100644
index 0000000..a983623
--- /dev/null
+++ b/as/FUNC/sum_call.casl
@@ -0,0 +1,9 @@
+;;; sum.caslを呼び出し、1から361までの数値の合計を求める
+;;; casl2 sum_call.casl sum.call outl.casl
+MAIN    START
+        LAD     GR1,361
+        CALL    SUM
+        LD      GR1,GR2
+        CALL    OUTL
+MFIN    RET
+        END