fix off-by-1 errors

This commit is contained in:
4am 2021-06-21 21:06:36 -04:00
parent 21368c8e7d
commit ebf2ab35d0
3 changed files with 6 additions and 5 deletions

View File

@ -24,7 +24,7 @@
!byte $90,$EF ; BCC *-$0F
bcc .exit ; passport-test-suite/Jumpman.woz [C=0] matches
lda #8
ldy #19
ldy #18
jsr SearchSector
!byte $4C,$76,$08 ; JMP $0876
!byte $00,$03,$05

View File

@ -13,7 +13,7 @@
; all other registers & flags clobbered
;-------------------------------
!macro IDDavid {
ldy #$06
ldy #$07
jsr compare ; if T00,S00,$00 ==
!byte $01
!byte $A5,$27 ; LDA $27
@ -21,6 +21,7 @@
!byte $D0,$17 ; BNE +$17
bcs @notDavid
ldx #$4A
dey
jsr compare ; and T00,S00,$4A ==
!byte $A2,WILDCARD ; LDX #$**
!byte $BD,WILDCARD,$08; LDA $08**,X

View File

@ -22,9 +22,9 @@
;-------------------------------
!zone {
lda #$07 ; sector to check for David-DOS variant
lda gIsDavidDOS
ldy gIsDavidDOS
beq .check
lda gIsBoot0 ; if DOS 3.3 boot0 loader
ldy gIsBoot0 ; if DOS 3.3 boot0 loader
bne .exit
lda #$05 ; sector to check for DOS 3.3 variant
.check ldx #$03
@ -34,7 +34,7 @@
jsr PrintByID
!byte s_bb03
lda gIsDavidDOS
ldy gIsDavidDOS
beq .variant2
lda #$01