CASLファイルのフォルダを変更

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

diff --git a/as/FUNC/sum.casl b/as/FUNC/sum.casl
deleted file mode 100644 (file)
index b9bfe11..0000000
--- a/as/FUNC/sum.casl
+++ /dev/null
@@ -1,16 +0,0 @@
-;;; sum.casl
-;;; 入力 GR1: 1以上の正数
-;;; 出力 GR2: 1からGR1で指定された値までの正数をすべて加算した値。
-;;;           オーバーフローした場合は、#FFFF
-SUM     START
-        LAD     GR2,0
-        LAD     GR3,1
-LOOP    CPL     GR3,GR1
-        JPL     FIN
-        ADDL    GR2,GR3
-        JOV     OV
-        LAD     GR3,1,GR3
-        JUMP    LOOP
-OV      LAD     GR2,#FFFF
-FIN     RET
-        END