File: _stack.tcl

package info (click to toggle)
openmsx 0.10.1-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 16,628 kB
  • ctags: 19,723
  • sloc: cpp: 131,938; xml: 25,418; tcl: 15,394; python: 4,012; sh: 365; makefile: 26
file content (14 lines) | stat: -rw-r--r-- 343 bytes parent folder | download | duplicates (9) 
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
}