restore zpage on Special Delivery failure

This commit is contained in:
Peter Ferrie 2019-05-26 15:08:11 -07:00
parent ae5016cf49
commit 448c20472e
2 changed files with 11 additions and 6 deletions

View File

@ -58,6 +58,7 @@ TraceSpecDel2
TraceSpecDel3
lda $1212
cmp #$D8
sec
bne SDfail
ldy #$00
lda $10D1
@ -77,13 +78,10 @@ TraceSpecDel3
TraceSpecDel4
lda $C0E8 ; turn off source drive
lda #$0A ; restore zero page from before trace
ldx #$00
ldy #$01
jsr CopyMemory
lda $3FFF
cmp #$EA
sec
bne SDfail
lda #$0B
@ -91,8 +89,15 @@ TraceSpecDel4
ldy #$03
jsr compare ; if $1B00 ==
!byte $4C,$4D,$2A
bcc SDsuccess
SDfail
php
lda #$0A ; restore zero page from before trace
ldx #$00
ldy #$01
jsr CopyMemory
plp
bcc SDsuccess
jmp UseUniversal
SDsuccess

View File

@ -280,7 +280,7 @@ StringTableHigh
; can be set directly before calling PrintByID.
;
.header
!text "Passport by 4am 2019-05-05",$00
!text "Passport by 4am 2019-05-26",$00
.mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " "