From 3349f682136e65c25e57cc4cfe37202bea139351 Mon Sep 17 00:00:00 2001
From: lynchaj <86925539+lynchaj@users.noreply.github.com>
Date: Mon, 19 Jul 2021 15:37:33 -0400
Subject: [PATCH] Update dbgmon.asm

---
 Source/Apps/ramtest/dbgmon.asm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Source/Apps/ramtest/dbgmon.asm b/Source/Apps/ramtest/dbgmon.asm
index bcf8b323..f5d5c79f 100644
--- a/Source/Apps/ramtest/dbgmon.asm
+++ b/Source/Apps/ramtest/dbgmon.asm
@@ -919,9 +919,12 @@ DATABUSCHECK:
 	LD	($0000),A		; WRITE TO LOWEST RAM ADDRESS
 	LD	C,($0000)		; READ VALUE FROM LOWEST RAM ADDRESS
 	CP	C			; IS IT SAME AS WRITTEN?
-	JP	NZ,DATABUSFAIL		; DATA BUS FAIL HANDLER ROUTINE
-	INC	A			; GET NEXT VALUE
+	JP	NZ,DATABUSFAIL		; NO? DATA BUS FAIL HANDLER ROUTINE
+	INC	A			; YES, GET NEXT VALUE
 	JP	NZ,DATABUSCHECK		; REPEAT FOR ALL 256 VALUES
+	LD	HL,TXT_DATA_BUS_PASS	; POINT AT DATA BUS PASS TEXT
+	CALL	MSG			; PRINT DATA BUS PASS LABEL
+	JP	MEMSIZELOOP		; CONTINUE WITH REST OF RAM TEST	
 	
 DATABUSFAIL:
 	PUSH	A			; STORE FAILED VALUE
@@ -1169,6 +1172,11 @@ TXT_DATA_BUS_FAIL:
 	.DB   "DATA BUS FAIL, VALUE ="
 	.DB   ENDT
 
+TXT_DATA_BUS_PASS:
+	.DB   CR,LF
+	.DB   "DATA BUS PASS "
+	.DB   CR,LF,ENDT
+
 TXT_SKIP_16:
 	.DB   CR,LF
 	.DB   "SKIPPING PAGE 0F "