Browse Source

Update RAM fail routine

Change RAM fail to abort on error in page and move on to next page
patch
lynchaj 5 years ago
committed by GitHub
parent
commit
dda7a3e183
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
  1. 26
      Source/Apps/ramtest/dbgmon.asm

26
Source/Apps/ramtest/dbgmon.asm

@ -1116,13 +1116,30 @@ RAM_PASS:
RAM_FAIL:
LD HL,TXT_RAM_FAIL ; POINT AT SYNTAX RAM FAIL TEXT
PUSH HL
LD HL,TXT_RAM_FAIL1 ; POINT AT 1ST SYNTAX RAM FAIL TEXT
CALL MSG ; DISPLAY IT
LD A,(PAGE_NUM) ; GET CURRENT PAGE NUMBER
SUB $80
CALL HXOUT ; SHOW IT
LD HL,TXT_RAM_FAIL2 ; POINT AT 2ND SYNTAX RAM FAIL TEXT
CALL MSG ; DISPLAY IT
POP HL ; RETRIEVE FAILED ADDR VALUE
LD A,H ; PRINT UPPER HALF OF ADDRESS
PUSH HL ; STORE FAILED ADDR VALUE
CALL HXOUT ; PRINT HIGH ADDR HALF THAT FAILED
POP LH ; RETRIEVE FAILED ADDR LINE VALUE
LD A,L ; PRINT LOWER HALF OF ADDRESS
CALL HXOUT ; PRINT LOW ADDR HALF THAT FAILED
LD HL,TCRLF ; CR & LF
CALL MSG ; DISPLAY IT
LD A,(PAGE_NUM) ; GET WORKING PAGE NUMBER
DEC A ; MARK PAGE COMPLETE, MOVE TO NEXT
LD (PAGE_NUM),A ; STORE UPDATED PAGE NUMBER
CP $7F ; WAS THAT THE LAST PAGE?
JP NZ,RAMTEST ; NO? DO ANOTHER 32KB PAGE
JP SERIALCMDLOOP ; AND BACK TO COMMAND LOOP
@ -1201,9 +1218,14 @@ TXT_RAM_PASS:
.DB "RAM PASS, PAGE = "
.DB ENDT
TXT_RAM_FAIL:
TXT_RAM_FAIL1:
.DB CR,LF
.DB "RAM FAIL, 32KB PAGE NUMBER: "
.DB ENDT
TXT_RAM_FAIL2:
.DB CR,LF
.DB " ADDRESS "
.DB CR,LF,ENDT
TXT_DATA_BUS_FAIL:

Loading…
Cancel
Save