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 SwapProDOS ; ProDOS out -> in
jsr WriteRAMToDisk
jsr SwapProDOS ; ProDOS in -> out (preserves flags)
lda KEY
; C=1 if error, and A=MLI error code
jsr SwapProDOS ; ProDOS in -> out (preserves registers+flags)
bit KEY ; preserves C
bmi Cancel
bcc @printFinalMessage
jmp FatalWriteError