URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 15 |
Rev 270 |
* 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
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.