as/sum_10.casl

   1 ;;; sum_10.casl
   2 ;;; 出力 GR0: 1から10までの整数をすべて加算した値
   3 MAIN    START
   4         PUSH    0,GR1
   5         LAD     GR0,0           ; GR0を初期化
   6         LD      GR1,FST         ; GR1に初項を転送
   7 LOOP    ADDL    GR0,GR1         ; ループ先頭
   8         ADDL    GR1,STEP        ; GR1 <- GR1 + 公差
   9         CPL     GR1,LST         ; GR1が末項より大きい場合は終了
  10         JPL     FIN             ; ↓
  11         JUMP    LOOP            ; ループ終端
  12 FIN     POP     GR1
  13         RET
  14 FST     DC      1               ; 初項
  15 LST     DC      10              ; 末項
  16 STEP    DC      1               ; 公差
  17         END