|
|
@ -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 " |
|
|
|