URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [phi.mms] - Blame information for rev 15

Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	15	hellwig	`t IS $255`
2			`n IS $0`
3			`new GREG`
4			`old GREG`
5			`phi GREG`
6			`rt5 GREG`
7			`acc GREG`
8			`f GREG`
9			`LOC #100`
10			`Main FLOT t,5`
11			`FSQRT rt5,t`
12			`FLOT t,1`
13			`FADD phi,t,rt5`
14			`INCH phi,#fff0`
15			`FDIV acc,phi,rt5`
16			`SET n,1`
17			`SET new,1`
18			`1H ADDU new,new,old`
19			`INCL n,1`
20			`CMPU t,new,old`
21			`BN t,9F`
22			`SUBU old,new,old`
23			`FMUL acc,acc,phi`
24			`FIXU f,acc`
25			`CMP t,f,new`
26			`PBZ t,1B`
27			`SET t,1`
28			`9H TRAP 0,Halt,0`

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [phi.mms] - Blame information for rev 15