URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [phi.mms] - Rev 50
Go to most recent revision | Compare with Previous | Blame | View Log
t IS $255
n IS $0
new GREG
old GREG
phi GREG
rt5 GREG
acc GREG
f GREG
LOC #100
Main FLOT t,5
FSQRT rt5,t
FLOT t,1
FADD phi,t,rt5
INCH phi,#fff0
FDIV acc,phi,rt5
SET n,1
SET new,1
1H ADDU new,new,old
INCL n,1
CMPU t,new,old
BN t,9F
SUBU old,new,old
FMUL acc,acc,phi
FIXU f,acc
CMP t,f,new
PBZ t,1B
SET t,1
9H TRAP 0,Halt,0
Go to most recent revision | Compare with Previous | Blame | View Log