diff --git a/src/passport.a b/src/passport.a index 6002e55..be68c65 100755 --- a/src/passport.a +++ b/src/passport.a @@ -701,6 +701,7 @@ _applyToAll !source "patchers/universale7.a" !source "patchers/runhello.a" !source "patchers/a6bc95.a" + !source "patchers/a5count.a" !source "patchers/d5d5f7.a" !source "patchers/prodosrwts.a" !source "patchers/prodosmecc.a" diff --git a/src/patchers/a5count.a b/src/patchers/a5count.a new file mode 100644 index 0000000..bec5fee --- /dev/null +++ b/src/patchers/a5count.a @@ -0,0 +1,28 @@ +;------------------------------- +; #A5COUNT +; nibble count between $A5 and +; address prologue +; e.g. Game Frame One, Game Frame Two +;------------------------------- +_a5count + lda gIsPascal ; only ever seen this protection + bne a5count_exit ; on Pascal disks + + ldy #$0A + jsr SearchTrack + !byte $07,$E6,$02,$D0,$03,$4C,$A5,$00 + !byte $C9,$A5 + bcs a5count_exit + sta gDisplayBytes + pha + lda #s_a5count + jsr PrintByID + txa + clc + adc #$08 + tax + pla + ldy #$02 + jsr modify + !byte $D0,$7B +a5count_exit diff --git a/src/patchers/border.a b/src/patchers/border.a index b505f04..ccb8704 100644 --- a/src/patchers/border.a +++ b/src/patchers/border.a @@ -8,9 +8,9 @@ ;------------------------------- _border lda gIsBoot0 ; if DOS 3.3 boot0 loader - bne rwtsswap_exit + bne border_exit lda gIsBoot1 ; and DOS 3.3 boot1 loader - bne rwtsswap_exit + bne border_exit lda #$08 ldx #$5A ldy #$0A diff --git a/src/strings/en.a b/src/strings/en.a index 7053a9d..fc5ecef 100755 --- a/src/strings/en.a +++ b/src/strings/en.a @@ -82,7 +82,8 @@ s_encoded44 = $3F s_encoded53 = $40 s_specdel = $41 s_bytrack = $42 -STRINGCOUNT = $43 +s_a5count = $43 +STRINGCOUNT = $44 StringTable !word header @@ -152,6 +153,7 @@ StringTable !word encoded53 !word specdel !word bytrack + !word a5count ; ; Text can contain substitution strings, which ; are replaced by current values at runtime. Each @@ -396,3 +398,5 @@ specdel !text "T00,S00 Found DOS 3.3P bootloader",$8D,00 bytrack !text "T%t,S%0 RWTS changes based on track",$8D,$00 +a5count + !text "T%t,S%0 Found A5 nibble count",$8D,$00