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

Subversion Repositories eco32

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

Details | Compare with Previous | View Log


* Register stack test program by Hans-Peter Nilsson, January 2002
      LOC  #100
cnt   GREG
max   IS   17
msg   BYTE "No bug noticed here",#a,0
 
Main PUSHJ $16,Recurse
     GETA  $255,msg
     TRAP  0,Fputs,StdOut
     TRAP  0,Halt,0
 
Recurse ADDU cnt,cnt,1
        CMP  $0,cnt,max
        BZ   $0,0F
        GET  $1,rJ
        PUSHJ $16,Recurse
        PUT  rJ,$1
0H      POP  0,0

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`

Browse

Tools

Subversion Repositories eco32

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