Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-05-28 21:41:27 +00:00
Code Issues Projects Releases Wiki Activity

fix exit flags in IDDavidson

Browse Source
This commit is contained in:
4am 2021-06-18 21:32:11 -04:00
parent fa07615ebf
commit e768648d54
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/id/davidson.a
View File

@ -11,25 +11,25 @@
!zone {
IDDavidson
lda gIsProDOS ; ProDOS?
bne .exit ; no, give up
bne .fail ; no, give up
lda gTrack ; track $22?
cmp #$22
sec
bne .exit ; no, give up
bne .fail ; no, give up
lda gSector ; sector $00?
bne .exit ; no, give up
bne .fail ; no, give up
;;lda #$00 ; try re-reading the sector but
sta $B92E ; ignore data field checksum failure
jsr ReadSector
lda #$13
sta $B92E
bcs .exit ; passport-test-suite/Word Attack Plus Spanish.woz [C=0] matches
bcs .fail ; passport-test-suite/Word Attack Plus Spanish.woz [C=0] matches
; if the read didn't work, give up
jsr PrintByID
!byte s_davidson
lda #TRUE
sta gIsDavidson
clc
.exit
rts
!byte $24
.fail sec
.exit rts
}