repo.or.cz
/
fpgammix.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
initial
[fpgammix.git]
/
workloads
/
myfib.mms
blob
9a902a36b3b07a4a5310291973d28fc5cd48d156
1
* Fibonacci subroutines (exercise 1.4.1--13)
2
3
LOC #100
4
Main SET $1,7
5
PUSHJ $0,Fib
6
TRAP 0,0,0
7
8
Fib CMP $1,$0,2
9
PBN $1,1F
10
GET $1,rJ
11
SUB $3,$0,1
12
PUSHJ $2,Fib $2=F_{n-1}
13
SUB $4,$0,2
14
PUSHJ $3,Fib $3=F_{n-2}
15
ADDU $0,$2,$3
16
PUT rJ,$1
17
1H POP 1,0
18