as/FUNC/sum.casl

   1 ;;; sum.casl
   2 ;;; 入力 GR1: 1以上の正数
   3 ;;; 出力 GR2: 1からGR1で指定された値までの正数をすべて加算した値。
   4 ;;;           オーバーフローした場合は、#FFFF
   5 SUM     START
   6         LAD     GR2,0
   7         LAD     GR3,1
   8 LOOP    CPL     GR3,GR1
   9         JPL     FIN
  10         ADDL    GR2,GR3
  11         JOV     OV
  12         LAD     GR3,1,GR3
  13         JUMP    LOOP
  14 OV      LAD     GR2,#FFFF
  15 FIN     RET
  16         END