Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-12-22 19:30:50 +00:00
Code Issues Projects Releases Wiki Activity

shave some bytes

Browse Source
This commit is contained in:
4am 2021-06-20 18:24:17 -04:00
parent cee6753852
commit 2be2556ecb
2 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/passport.a
View File

@ -50,7 +50,6 @@ NonRelocatable
!source "id/trace33.a" !source "id/trace33.a"
!source "id/trace32.a" !source "id/trace32.a"
!source "id/trace8b3.a" !source "id/trace8b3.a"
!source "id/bootfailure.a"
!source "id/trace33p.a" !source "id/trace33p.a"
!source "id/dos33.a" !source "id/dos33.a"
!source "id/dos32.a" !source "id/dos32.a"
@ -100,7 +99,6 @@ NonRelocatable
!source "progress.a" !source "progress.a"
!source "rwts.a" !source "rwts.a"
!source "standarddelivery.a" !source "standarddelivery.a"
!source "wholetrack.a"
!source "adstyle.a" !source "adstyle.a"
!source "universalstyle.a" !source "universalstyle.a"
!source "crackme.a" !source "crackme.a"
@ -460,6 +458,8 @@ _byte_hi = * + 2
_byte_skip_hi: _byte_skip_hi:
rts rts
!source "wholetrack.a"
!source "id/bootfailure.a"
!source "apicode.a" ; /!\ must be last !source "apicode.a" ; /!\ must be last
!if RELBASE = $2000 { !if RELBASE = $2000 {

46
src/patchers/t00_bb03.a
View File

@ -23,38 +23,39 @@
!zone { !zone {
sec sec
lda #$07 ; sector to check for David-DOS variant lda #$07 ; sector to check for David-DOS variant
ldx gIsDavidDOS bit gIsDavidDOS
beq .maybe beq .check
lda gIsBoot0 ; if DOS 3.3 boot0 loader bit gIsBoot0 ; if DOS 3.3 boot0 loader
bne .noButInYellow bne .exit
lda #$05 ; sector to check for DOS 3.3 variant lda #$05 ; sector to check for DOS 3.3 variant
.maybe .check ldx #$03
ldx #$03
ldy #$03 ldy #$03
jsr compare ; if T00,S0(5|7),$03 == jsr compare ; if T00,S0(5|7),$03 ==
!byte $4E,$06,$BB !byte $4E,$06,$BB
bcs .no bcs .exit
jsr PrintByID jsr PrintByID
!byte s_bb03 !byte s_bb03
lda gIsDavidDOS
bit gIsDavidDOS
beq .variant2 beq .variant2
lda #$01 lda #$01
ldx #$38 ldx #$38
ldy #$03
jsr compare ; if T00,S01,$38 == jsr compare ; if T00,S01,$38 ==
!byte $20,$03,$BB; JSR $BB03 !byte $20,$03,$BB; JSR $BB03
bcc .variant1 bcc .variant1
jsr compare ; if T00,S01,$38 == jsr compare ; if T00,S01,$38 ==
!byte $4C,$03,$BB; JMP $BB03 !byte $4C,$03,$BB; JMP $BB03
bcs .no bcs .exit
lda #$05 lda #$05
ldx #$6B ldx #$6B
ldy #$05 tay
jsr compare ; if T00,S05,$6B == jsr compare ; and T00,S05,$6B ==
!byte $06,$26,$7D,$39,$41; encrypted, decrypts to 'LDA $C08C,X / BPL -' !byte $06,$26,$7D; encrypted, decrypts to 'LDA $C08C,X / BPL -'
.noButInYellow !byte $39,$41
bcs .no bcs .exit
.variant3 ;variant3
ldy #$02 ldy #$02
jsr modify ; then set T00,S05,$6B = jsr modify ; then set T00,S05,$6B =
!byte $6B,$F6 ; encrypted, decrypts to 'BNE +$5C' which will unconditionally branch to success path at $BBC9 !byte $6B,$F6 ; encrypted, decrypts to 'BNE +$5C' which will unconditionally branch to success path at $BBC9
@ -63,8 +64,9 @@
dey dey
jsr modify ; and set T00,S06,$0F = jsr modify ; and set T00,S06,$0F =
!byte $89 ; encrypted, decrypts to $10 which is the expected nibble count value !byte $89 ; encrypted, decrypts to $10 which is the expected nibble count value
; unconditional branch (V is always 0 coming out of modify) ; passport-test-suite/Trivia Fever.woz [V=0] reaches here
bvc .no ; passport-test-suite/Trivia Fever.woz [V=0] reaches here bvc .exit ; unconditional branch (V is always 0 coming out of modify)
.variant1 .variant1
lda $1243 lda $1243
eor $1543 eor $1543
@ -79,10 +81,10 @@
+ !byte $FD ; SMC + !byte $FD ; SMC
!byte $48 !byte $48
!byte $4C,$93,$B7 !byte $4C,$93,$B7
; unconditional branch (V is always 0 coming out of modify) ; passport-test-suite/Classifying Animals with Backbones.woz [V=0] reaches here
bvc .no ; passport-test-suite/Classifying Animals with Backbones.woz [V=0] reaches here bvc .exit ; unconditional branch (V is always 0 coming out of modify)
.variant2 .variant2
lda #$07
ldx #$03 ; passport-test-suite/Case of the Great Train Robbery.woz [Z=0] reaches here ldx #$03 ; passport-test-suite/Case of the Great Train Robbery.woz [Z=0] reaches here
ldy #$0B ldy #$0B
jsr modify ; then set T00,S07,$03 = jsr modify ; then set T00,S07,$03 =
@ -92,5 +94,5 @@
!byte $48 !byte $48
!byte $A0,$04 !byte $A0,$04
!byte $4C,$A9,$B7 !byte $4C,$A9,$B7
.no .exit
} }