if write from RAM disk fails, preserve A long enough to print proper error

This commit is contained in:
4am 2021-06-11 13:56:47 -04:00
parent 335f58cea1
commit d5945a7293

View File

@ -156,8 +156,9 @@ Pass
jsr PrintByID jsr PrintByID
jsr SwapProDOS ; ProDOS out -> in jsr SwapProDOS ; ProDOS out -> in
jsr WriteRAMToDisk jsr WriteRAMToDisk
jsr SwapProDOS ; ProDOS in -> out (preserves flags) ; C=1 if error, and A=MLI error code
lda KEY jsr SwapProDOS ; ProDOS in -> out (preserves registers+flags)
bit KEY ; preserves C
bmi Cancel bmi Cancel
bcc @printFinalMessage bcc @printFinalMessage
jmp FatalWriteError jmp FatalWriteError