as/app/sum/sum.casl

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