Browse Source

Update dbgmon.asm

pull/216/head
lynchaj 5 years ago
committed by GitHub
parent
commit
3349f68213
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
  1. 12
      Source/Apps/ramtest/dbgmon.asm

12
Source/Apps/ramtest/dbgmon.asm

@ -919,9 +919,12 @@ DATABUSCHECK:
LD ($0000),A ; WRITE TO LOWEST RAM ADDRESS LD ($0000),A ; WRITE TO LOWEST RAM ADDRESS
LD C,($0000) ; READ VALUE FROM LOWEST RAM ADDRESS LD C,($0000) ; READ VALUE FROM LOWEST RAM ADDRESS
CP C ; IS IT SAME AS WRITTEN? 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 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: DATABUSFAIL:
PUSH A ; STORE FAILED VALUE PUSH A ; STORE FAILED VALUE
@ -1169,6 +1172,11 @@ TXT_DATA_BUS_FAIL:
.DB "DATA BUS FAIL, VALUE =" .DB "DATA BUS FAIL, VALUE ="
.DB ENDT .DB ENDT
TXT_DATA_BUS_PASS:
.DB CR,LF
.DB "DATA BUS PASS "
.DB CR,LF,ENDT
TXT_SKIP_16: TXT_SKIP_16:
.DB CR,LF .DB CR,LF
.DB "SKIPPING PAGE 0F " .DB "SKIPPING PAGE 0F "

Loading…
Cancel
Save