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

Subversion Repositories eco32

[/] [eco32/] [tags/] [eco32-0.26/] [fp/] [implementation/] [mmix/] [fibgo.mms] - Diff between revs 15 and 270

Only display areas with differences | Details | Blame | View Log

Rev 15 Rev 270
* Fibonacci with frame pointers (exercise 1.4.1--15)
* Fibonacci with frame pointers (exercise 1.4.1--15)
sp GREG
sp GREG
fp GREG
fp GREG
n  GREG
n  GREG
fn IS n
fn IS n
    LOC #100
    LOC #100
    GREG  @
    GREG  @
Fib CMP   $1,n,2
Fib CMP   $1,n,2
    PBN   $1,1F
    PBN   $1,1F
    STO   fp,sp,0
    STO   fp,sp,0
    SET   fp,sp
    SET   fp,sp
    INCL  sp,8*4
    INCL  sp,8*4
    STO   $0,fp,8
    STO   $0,fp,8
    STO   n,fp,16
    STO   n,fp,16
    SUB   n,n,1
    SUB   n,n,1
    GO    $0,Fib
    GO    $0,Fib
    STO   fn,fp,24 $F_{n-1}$
    STO   fn,fp,24 $F_{n-1}$
    LDO   n,fp,16
    LDO   n,fp,16
    SUB   n,n,2
    SUB   n,n,2
    GO    $0,Fib
    GO    $0,Fib
    LDO   $0,fp,24
    LDO   $0,fp,24
    ADDU  fn,fn,$0
    ADDU  fn,fn,$0
    LDO   $0,fp,8
    LDO   $0,fp,8
    SET   sp,fp
    SET   sp,fp
    LDO   fp,sp,0
    LDO   fp,sp,0
1H  GO    $0,$0,0
1H  GO    $0,$0,0
Main SETH  sp,Data_Segment>>48
Main SETH  sp,Data_Segment>>48
     SET   n,5
     SET   n,5
     GO    $0,Fib
     GO    $0,Fib
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.