+++ /dev/null
-;;; sum_10.casl
-;;; 出力 GR0: 1から10までの整数をすべて加算した値
-;;; 依存プログラム: mull1.casl divl1.casl
-MAIN START
- PUSH 0,GR1
- PUSH 0,GR2
- ;; GR1に(初項 + 末項)を入力
- LD GR1,FST
- ADDL GR1,LST
- ;; GR2に項数を入力
- LD GR2,LST
- SUBL GR2,GR1
- RPUSH
- LD GR1,GR2
- LD GR2,STEP
- CALL DIVL
- RPOP
- LAD GR2,1,GR0
- CALL MULL
- SRL GR0,1
- POP GR2
- POP GR1
- RET
-FST DC 1
-LST DC 10
-STEP DC 1
- END