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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [fib.mms] - Blame information for rev 118

Go to most recent revision | Details | Compare with Previous | View Log


t IS $255
n IS $0
new GREG
old GREG
phii GREG #9e3779b97f4a7c16
lo GREG
hi GREG
hihi GREG
  LOC  #100
Main SET n,2
     SET old,1
     SET new,1
1H   ADDU new,new,old
     INCL n,1
     CMPU t,new,old
     BN   t,9F
     SUBU old,new,old
     MULU lo,old,phii
     GET hi,rH
     ADDU hi,hi,old
     ADDU hihi,hi,1
     CSN hi,lo,hihi
     CMP t,hi,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			`phii GREG #9e3779b97f4a7c16`
6			`lo GREG`
7			`hi GREG`
8			`hihi GREG`
9			`LOC #100`
10			`Main SET n,2`
11			`SET old,1`
12			`SET new,1`
13			`1H ADDU new,new,old`
14			`INCL n,1`
15			`CMPU t,new,old`
16			`BN t,9F`
17			`SUBU old,new,old`
18			`MULU lo,old,phii`
19			`GET hi,rH`
20			`ADDU hi,hi,old`
21			`ADDU hihi,hi,1`
22			`CSN hi,lo,hihi`
23			`CMP t,hi,new`
24			`PBZ t,1B`
25			`SET t,1`
26			`9H TRAP 0,Halt,0`

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [fib.mms] - Blame information for rev 118