as/FUNC/sum_10_2.casl

   1 ;;; sum_10.casl
   2 ;;; 出力 GR0: 1から10までの整数をすべて加算した値
   3 ;;; 依存プログラム: mull1.casl divl1.casl
   4 MAIN    START
   5         PUSH    0,GR1
   6         PUSH    0,GR2
   7         ;; GR1に(初項 + 末項)を入力
   8         LD      GR1,FST
   9         ADDL    GR1,LST
  10         ;; GR2に項数を入力
  11         LD      GR2,LST
  12         SUBL    GR2,GR1
  13         RPUSH
  14         LD      GR1,GR2
  15         LD      GR2,STEP
  16         CALL    DIVL
  17         RPOP
  18         LAD     GR2,1,GR0
  19         CALL    MULL
  20         SRL     GR0,1
  21         POP     GR2
  22         POP     GR1
  23         RET
  24 FST     DC      1
  25 LST     DC      10
  26 STEP    DC      1
  27         END