アセンブラファイルとテストの整理

[YACASL2.git] / as / FUNC / sum_call.casl

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