/usr/share/openmsx/scripts/stack.tcl is in openmsx-data 0.8.2-2.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | set_help_text stack \
{Show the <count> top most entries on the CPU stack.
If <count> is not specified, 8 entries are returned.
Usage:
stack [<count>]
}
proc stack {{depth 8}} {
set result ""
for {set i 0; set sp [reg SP]} {$i < $depth} {incr i; incr sp 2} {
append result [format "%04x: %04x\n" $sp [peek16 $sp]]
}
return $result
}
|