Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-01-02 17:30:53 +00:00
Code Issues Projects Releases Wiki Activity

restore zpage on Special Delivery failure

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/id/trace33p.a
View File

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

2
src/strings/en.a
View File

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