initial
[fpgammix.git] / workloads / myfib.mms
blob9a902a36b3b07a4a5310291973d28fc5cd48d156
1 * Fibonacci subroutines (exercise 1.4.1--13)
3     LOC   #100
4 Main SET   $1,7
5      PUSHJ $0,Fib
6      TRAP  0,0,0
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