diff --git a/Source/Apps/ramtest/dbgmon.asm b/Source/Apps/ramtest/dbgmon.asm index 82a2f1a2..cb57b9bb 100644 --- a/Source/Apps/ramtest/dbgmon.asm +++ b/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: