3 ;;; 出力 GR0: 1からGR1で指定された値までの正数をすべて加算した値。
5 ;;; 依存プログラム: mull1.casl divl1.casl
9 ADDL GR1,FST ; GR1 <- (初項 + 末項)
11 LD GR1,LST ; GR1 <- (末項 - 初項)
14 LD GR2,STEP ; GR2 <- STEP
15 CALL DIVL ; GR0 <- GR1 / GR2
16 LD GR2,GR0 ; GR2 <- GR0
17 LAD GR2,1,GR2 ; GR2 <- GR2 + 1
18 SRL GR2,1 ; GR2 <- GR2 / 2
20 CALL MULL ; GR0 <- GR1 * GR2