;;; 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