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

Subversion Repositories eco32

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

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

Line No. Rev Author Line
1 15 hellwig
* Register stack test program by Hans-Peter Nilsson, January 2002
2
      LOC  #100
3
cnt   GREG
4
max   IS   17
5
msg   BYTE "No bug noticed here",#a,0
6
 
7
Main PUSHJ $16,Recurse
8
     GETA  $255,msg
9
     TRAP  0,Fputs,StdOut
10
     TRAP  0,Halt,0
11
 
12
Recurse ADDU cnt,cnt,1
13
        CMP  $0,cnt,max
14
        BZ   $0,0F
15
        GET  $1,rJ
16
        PUSHJ $16,Recurse
17
        PUT  rJ,$1
18
0H      POP  0,0

powered by: WebSVN 2.1.0

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