From cdb0f5be299d70d1e146fceacc6c49bf0d3d856d Mon Sep 17 00:00:00 2001
From: lynchaj <86925539+lynchaj@users.noreply.github.com>
Date: Tue, 20 Jul 2021 20:42:11 -0400
Subject: [PATCH] Update dbgmon.asm

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

diff --git a/Source/Apps/ramtest/dbgmon.asm b/Source/Apps/ramtest/dbgmon.asm
index 5fec22b8..386e31a0 100644
--- a/Source/Apps/ramtest/dbgmon.asm
+++ b/Source/Apps/ramtest/dbgmon.asm
@@ -916,8 +916,9 @@ DORAMTEST:
 	LD	A,$00			; INITIALIZE A TO 0
 
 DATABUSCHECK:
+	LD	C,A
 	LD	($0000),A		; WRITE TO LOWEST RAM ADDRESS
-	LD	C,($0000)		; READ VALUE FROM LOWEST RAM ADDRESS
+	LD	A,($0000)		; READ VALUE FROM LOWEST RAM ADDRESS
 	CP	C			; IS IT SAME AS WRITTEN?
 	JP	NZ,DATABUSFAIL		; NO? DATA BUS FAIL HANDLER ROUTINE
 	INC	A			; YES, GET NEXT VALUE
@@ -947,7 +948,8 @@ DATABUSFAIL:
 	
 ADDRBUSCHECK:
 	LD	(HL),$FF		; WRITE ALL ONES INTO HL ADDRESS
-	LD	C,($0000)		; READ VALUE FROM LOWEST RAM ADDRESS
+	LD	C,$00
+	LD	A,($0000)		; READ VALUE FROM LOWEST RAM ADDRESS
 	CP	C			; IS IT SAME AS WRITTEN?  SHOULD BE 0
 	JP	NZ,ADDRBUSFAIL		; NO? ADDR BUS FAIL HANDLER ROUTINE
 	PUSH	HL			; STORE HL, FOR COPY TO BC