X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmisc%2Fsum_2.casl;fp=as%2Fmisc%2Fsum_2.casl;h=0000000000000000000000000000000000000000;hp=6ef8c10e0346b16f589755624d5b165349efb856;hb=9fa44bbf51f40b1d5846696dc13a4950508e448c;hpb=eab172e17b436c4d80d220d42eff9d02360622ba

diff --git a/as/misc/sum_2.casl b/as/misc/sum_2.casl
deleted file mode 100644
index 6ef8c10..0000000
--- a/as/misc/sum_2.casl
+++ /dev/null
@@ -1,26 +0,0 @@
-;;; sum_10.casl
-;;; 入力 GR0: 正数
-;;; 出力 GR0: 1からGR1で指定された値までの正数をすべて加算した値。
-;;;           オーバーフローした場合は、0
-;;; 依存プログラム: mull1.casl divl1.casl
-MAIN    START
-        PUSH    0,GR1
-        PUSH    0,GR2
-        ADDL    GR1,FST         ; GR1 <- (初項 + 末項)
-        PUSH    0,GR1           ; GR1を退避
-        LD      GR1,LST         ; GR1 <- (末項 - 初項)
-        SUBL    GR1,FST         ; ↓
-        LD      GR2,GR1         ; ↓
-        LD      GR2,STEP        ; GR2 <- STEP
-        CALL    DIVL            ; GR0 <- GR1 / GR2
-        LD      GR2,GR0         ; GR2 <- GR0
-        LAD     GR2,1,GR2       ; GR2 <- GR2 + 1
-        SRL     GR2,1           ; GR2 <- GR2 / 2
-        POP     GR1             ; GR1を復元
-        CALL    MULL            ; GR0 <- GR1 * GR2
-        POP     GR2
-        POP     GR1
-        RET
-FST     DC      1               ; 初項
-STEP    DC      1               ; 公差
-        END