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 "