From: ian <ian>
Date: Sun, 27 Apr 2008 22:53:52 +0000 (+0000)
Subject: dump debug area in ascii too
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=9958ce72ea82e299c066351224dbe4ee09b3170a;p=trains.git

dump debug area in ascii too
---

diff --git a/detpic/crashread b/detpic/crashread
index ce7b86e..301a84a 100755
--- a/detpic/crashread
+++ b/detpic/crashread
@@ -432,9 +432,11 @@ addendlast symbolsbylockind(program) 0x8000 (end)
 
 set stkptr {panic: psave_stkptr}
 set stack {panic: panic_stack}
+set debug1 {misc: debug}
+set debug0 {{} (debugp)}
 
 reset_show
-foreach ss [list $stkptr $stack] { set ccontents($ss) {} }
+foreach ss [list $stkptr $stack $debug0 $debug1] { set ccontents($ss) {} }
 
 while {$sectionnum < [llength $sections]} {
     # So what happens at this address ?
@@ -505,6 +507,35 @@ foreach v {stkptr stack} {
 }
 
 endline
+
+p "---------- =Debug buffer= ----------\n"
+
+set debug "$ccontents($debug0)$ccontents($debug1)"
+
+for {set ibase 0} {$ibase < [string length $debug]} {set ibase $i} {
+    for {set ch 0} {$ch<2} {incr ch} {
+	for {set i $ibase} \
+	    {$i < [string length $debug] && \
+	         $i<$ibase+32} \
+	    {incr i 2} \
+	{
+	    set hn [string range $debug $i [expr {$i+1}]]
+	    if {!$ch} {
+		set p $hn
+	    } else {
+		set v [expr "0x$hn"]
+		if {$v>=32 && $v<127} {
+		    set p [format " %c" $v]
+		} else {
+		    set p ..
+		}
+	    }
+	    puts -nonewline " $p"
+	}
+	puts -nonewline "\n"
+    }
+}
+
 p "---------- =Execution Stack= ----------\n"
 set stkptr [expr "0x$stkptr & $stackdepth"]