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

Subversion Repositories eco32

[/] [eco32/] [tags/] [eco32-0.22/] [fp/] [implementation/] [mmix/] [hptest.mms] - Diff between revs 15 and 21

Rev 15	Rev 21
`* Register stack test program by Hans-Peter Nilsson, January 2002`	`* Register stack test program by Hans-Peter Nilsson, January 2002`
`LOC #100`	`LOC #100`
`cnt GREG`	`cnt GREG`
`max IS 17`	`max IS 17`
`msg BYTE "No bug noticed here",#a,0`	`msg BYTE "No bug noticed here",#a,0`

`Main PUSHJ $16,Recurse`	`Main PUSHJ $16,Recurse`
`GETA $255,msg`	`GETA $255,msg`
`TRAP 0,Fputs,StdOut`	`TRAP 0,Fputs,StdOut`
`TRAP 0,Halt,0`	`TRAP 0,Halt,0`

`Recurse ADDU cnt,cnt,1`	`Recurse ADDU cnt,cnt,1`
`CMP $0,cnt,max`	`CMP $0,cnt,max`
`BZ $0,0F`	`BZ $0,0F`
`GET $1,rJ`	`GET $1,rJ`
`PUSHJ $16,Recurse`	`PUSHJ $16,Recurse`
`PUT rJ,$1`	`PUT rJ,$1`
`0H POP 0,0`	`0H POP 0,0`