projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
ドキュメントの更新
[YACASL2.git]
/
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