--- /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