;;; sum.casl
-;;; 1からGR1で指定された値までの正数をすべて加算する
+;;; 入力 GR1: 1以上の正数
+;;; 出力 GR2: 1からGR1で指定された値までの正数をすべて加算した値。
+;;; オーバーフローした場合は、#FFFF
SUM START
LAD GR2,0
LAD GR3,1
-SLOOP CPL GR3,GR1
- JPL SFIN
+LOOP CPL GR3,GR1
+ JPL FIN
ADDL GR2,GR3
- JOV SERR
+ JOV OV
LAD GR3,1,GR3
- JUMP SLOOP
-SERR LAD GR2,#FFFF
-SFIN RET
+ JUMP LOOP
+OV LAD GR2,#FFFF
+FIN RET
END