Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-08-15 15:27:24 +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
Download Patch File Download Diff File Expand all files Collapse all files

14
src/id/davidson.a
View File

@@ -11,25 +11,25 @@
!zone { !zone {
IDDavidson IDDavidson
lda gIsProDOS ; ProDOS? lda gIsProDOS ; ProDOS?
bne .exit ; no, give up bne .fail ; no, give up
lda gTrack ; track $22? lda gTrack ; track $22?
cmp #$22 cmp #$22
sec bne .fail ; no, give up
bne .exit ; no, give up
lda gSector ; sector $00? lda gSector ; sector $00?
bne .exit ; no, give up bne .fail ; no, give up
;;lda #$00 ; try re-reading the sector but ;;lda #$00 ; try re-reading the sector but
sta $B92E ; ignore data field checksum failure sta $B92E ; ignore data field checksum failure
jsr ReadSector jsr ReadSector
lda #$13 lda #$13
sta $B92E 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 ; if the read didn't work, give up
jsr PrintByID jsr PrintByID
!byte s_davidson !byte s_davidson
lda #TRUE lda #TRUE
sta gIsDavidson sta gIsDavidson
clc clc
.exit !byte $24
rts .fail sec
.exit rts
} }