From: ian <ian>
Date: Sun, 27 Apr 2008 23:04:50 +0000 (+0000)
Subject: leave droppings in debug buffer re low interrupt sources
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=86fd929c12446cf5168a7d497a73d6d82e4fd4b4;p=trains.git

leave droppings in debug buffer re low interrupt sources
---

diff --git a/detpic/common.inc b/detpic/common.inc
index 8fc7b73..6fd5d77 100644
--- a/detpic/common.inc
+++ b/detpic/common.inc
@@ -160,6 +160,14 @@ Df macro debug_register_file_address
 	mov_fw	debug_register_file_address
 	Dv
 	endm
+
+;----------
+DI macro
+;
+;  STATUS	any		trashed
+;
+	inc_f	debug_intrdiag
+	endm
   else
 Dv macro
    endm
@@ -167,6 +175,8 @@ Dl macro debug_literal_value
    endm
 Df macro debug_register_file_address
    endm
+DI macro
+   endm
   endif
 
 ;----------------------------------------
diff --git a/detpic/program.asm b/detpic/program.asm
index 2a87efe..43f7fd7 100644
--- a/detpic/program.asm
+++ b/detpic/program.asm
@@ -79,20 +79,32 @@ master_init
 ;----------------------------------------
 master_interrupt_low @
 	enter_interrupt_low
-	Dl 0x80
+
+	Df 	debug_intrdiag
+	Dl 	'|'
 	Df	INTCON
 	Df	INTCON2
 	Df	INTCON3
 	Df	PIR1
 	Df	PIR2
+ Df FSR2L
 	Dl 0x8d
+	clr_f debug_intrdiag
+
 	call	tick_intrl
+ DI
 	call	nmra_serialrx_intrl
+ DI
 	call	power_fault_intrl
+ DI
 	call	serialtxfc_intrl
+ DI
 	call	serialtx_intrl
+ DI
 	call	points_local_intrl
+ DI
 	call	i2cm_intrl
+ DI
 	Dl 0x8e
 	Df	INTCON
 	Df	INTCON2
diff --git a/detpic/variables.asm b/detpic/variables.asm
index 2126a57..978571e 100644
--- a/detpic/variables.asm
+++ b/detpic/variables.asm
@@ -31,6 +31,9 @@ xdebug			res	8
 cwslave			res	1 ; slave we're currently actually writing to
 				  ; undefined except in <something>_needwrite
 
+debug_intrdiag		res	1 ; used only for debugging, interrupt
+				  ;  source recording
+
 ;----------------------------------------------------------------------
 ; NON-ACCESS-BANK SECTIONS (TABLES)