X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmisc%2Ftest%2Fsum%2Fsum_call.casl;fp=as%2Fmisc%2Ftest%2Fsum%2Fsum_call.casl;h=eea01110c5f6ea6a0b0a3785ed098a6c7bb023d1;hp=0000000000000000000000000000000000000000;hb=330f6a8723886b86e745e91ffc3479eda9159b8d;hpb=a0b34ca06b5e92ee139895159dbced007b276384

diff --git a/as/misc/test/sum/sum_call.casl b/as/misc/test/sum/sum_call.casl
new file mode 100644
index 0000000..eea0111
--- /dev/null
+++ b/as/misc/test/sum/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,GR0
+        CALL    OUTL
+MFIN    RET
+        END