projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
ドキュメントの修正
[YACASL2.git]
/
as
/
app
/
fib
/
fibrec.casl
1
;;; フィボナッチ数列
2
;;; 入力 GR1:整数
3
;;; 出力 GR0:フィボナッチ数
4
FIB START
5
PUSH 0,GR1
6
PUSH 0,GR2
7
LAD GR0,0 ; フィボナッチ数
8
LAD GR2,0 ; インデックス
9
CPA GR1,=1
10
JPL O2
11
LD GR0,GR1
12
JUMP FIN
13
O2 LAD GR1,-1,GR1
14
CALL FIB
15
LD GR2,GR0
16
LAD GR1,-1,GR1
17
CALL FIB
18
ADDL GR0,GR2
19
JUMP FIN
20
FIN POP GR2
21
POP GR1
22
RET
23
END