as/FUNC/sum.casl

   1 ;;; sum.casl
   2 ;;; 1からGR1で指定された値までの正数をすべて加算する
   3 SUM     START
   4         LAD     GR2,0
   5         LAD     GR3,1
   6 SLOOP   CPL     GR3,GR1
   7         JPL     SFIN
   8         ADDL    GR2,GR3
   9         JOV     SERR
  10         LAD     GR3,1,GR3
  11         JUMP    SLOOP
  12 SERR    LAD     GR2,#FFFF
  13 SFIN    RET
  14         END