shorter search patterns for fbffpascal

This commit is contained in:
4am 2019-04-23 14:14:44 -04:00
parent 23c3bb623c
commit fc79688749

View File

@ -16,7 +16,7 @@
bpl .exit bpl .exit
lda gIsPascal ; only seen this protection on Pascal disks lda gIsPascal ; only seen this protection on Pascal disks
bne .exit bne .exit
ldy #$26 ldy #$14
jsr SearchTrack jsr SearchTrack
!byte $AD,$E9,$C0; LDA $C0E9 !byte $AD,$E9,$C0; LDA $C0E9
!byte $A9,WILDCARD; LDA ... !byte $A9,WILDCARD; LDA ...
@ -27,16 +27,6 @@
!byte $C6,$03 ; DEC $03 !byte $C6,$03 ; DEC $03
!byte $F0,WILDCARD; BEQ ... (this branch offset will be used later to build the patch) !byte $F0,WILDCARD; BEQ ... (this branch offset will be used later to build the patch)
!byte $AC,$EC,$C0; LDY $C0EC !byte $AC,$EC,$C0; LDY $C0EC
!byte $10,$FB ; BPL -
!byte $C0,$FB ; CPY #$FB
!byte $D0,$ED ; BNE -
!byte $F0,$00 ; BEQ +
!byte $EA ; NOP
!byte $EA ; NOP
!byte $AC,$EC,$C0; LDY $C0EC
!byte $C0,$08 ; CMP #$08
!byte $2A ; ROL
!byte $B0,$0B ; BCS +
bcs .exit bcs .exit
stx .a+1 stx .a+1
sta gDisplayBytes sta gDisplayBytes