URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [fibgo.mms] - Rev 133
Go to most recent revision | Compare with Previous | Blame | View Log
* Fibonacci with frame pointers (exercise 1.4.1--15)
sp GREG
fp GREG
n GREG
fn IS n
LOC #100
GREG @
Fib CMP $1,n,2
PBN $1,1F
STO fp,sp,0
SET fp,sp
INCL sp,8*4
STO $0,fp,8
STO n,fp,16
SUB n,n,1
GO $0,Fib
STO fn,fp,24 $F_{n-1}$
LDO n,fp,16
SUB n,n,2
GO $0,Fib
LDO $0,fp,24
ADDU fn,fn,$0
LDO $0,fp,8
SET sp,fp
LDO fp,sp,0
1H GO $0,$0,0
Main SETH sp,Data_Segment>>48
SET n,5
GO $0,Fib
Go to most recent revision | Compare with Previous | Blame | View Log