Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2025-01-18 00:32:37 +00:00
Code Issues Projects Releases Wiki Activity

shave some bytes

Browse Source
This commit is contained in:
4am 2021-06-21 11:24:21 -04:00
parent 2a594af93b
commit e2a397815c
25 changed files with 119 additions and 183 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/apicode.a
View File

@ -35,6 +35,8 @@
jmp modify1 jmp modify1
;jcompare ;jcompare
jmp compare jmp compare
;jcompare1
jmp compare1
;gDisplayBytes ;gDisplayBytes
!fill 10 ; array of ten bytes for use as !fill 10 ; array of ten bytes for use as
; substitution strings ; substitution strings

4
src/apidefs.a
View File

@ -189,7 +189,8 @@ gTargetType = gOnAClearDayYouCanReadForever-$01 ; byte
gRAMDiskRef = gTargetType-$01 ; byte gRAMDiskRef = gTargetType-$01 ; byte
gHardDiskRef = gRAMDiskRef-$01 ; byte gHardDiskRef = gRAMDiskRef-$01 ; byte
gDisplayBytes = gHardDiskRef-$0A ; 10 bytes gDisplayBytes = gHardDiskRef-$0A ; 10 bytes
jcompare = gDisplayBytes-$03 ; 3-byte jcompare1 = gDisplayBytes-$03 ; 3-byte
jcompare = jcompare1-$03 ; 3-byte
jmodify1 = jcompare-$03 ; 3-byte jmodify1 = jcompare-$03 ; 3-byte
jmodify = jmodify1-$03 ; 3-byte jmodify = jmodify1-$03 ; 3-byte
jPrintByID = jmodify-$03 ; 3-byte jPrintByID = jmodify-$03 ; 3-byte
@ -204,6 +205,7 @@ gNIBTableBase = gNIBTableFF-$7F ; 127 byte
!ifdef MODULE { !ifdef MODULE {
compare = jcompare compare = jcompare
compare1 = jcompare1
modify = jmodify modify = jmodify
modify1 = jmodify1 modify1 = jmodify1
PrintByID = jPrintByID PrintByID = jPrintByID

4
src/compare.a
View File

@ -173,6 +173,10 @@ all_done_set
sec sec
rts rts
compare1
ldy #$01
; /!\ execution falls through here
;------------------------------- ;-------------------------------
; compare subroutine ; compare subroutine
; in: A = sector ; in: A = sector

3
src/id/inspect0.a
View File

@ -76,8 +76,7 @@ IDBootloader
; ;
lda #$08 lda #$08
ldx #BASEPAGE ldx #BASEPAGE
ldy #$01 jsr CopyMemory1 ; exits with X=0
jsr CopyMemory ; exits with X=0
; ;
; Try to identify DOS 3.3-shaped bootloader. ; Try to identify DOS 3.3-shaped bootloader.
; Exit via custom trace function if found. ; Exit via custom trace function if found.

3
src/id/trace.a
View File

@ -12,8 +12,7 @@ Trace
pha pha
lda #$C6 lda #$C6
ldx #$16 ldx #$16
ldy #$01 jsr CopyMemory1
jsr CopyMemory
pla pla
ldx #0 ldx #0
ldy $16F8 ldy $16F8

21
src/id/trace33p.a
View File

@ -47,8 +47,7 @@ TraceSpecDel
sta $3FFF ; RWTS loads successfully later sta $3FFF ; RWTS loads successfully later
;; lda #$00 ; save zero page before trace ;; lda #$00 ; save zero page before trace
ldx #$0A ldx #$0A
ldy #$01 jsr CopyMemory1
jsr CopyMemory
jsr MoveT00PakHigh jsr MoveT00PakHigh
@ -105,8 +104,7 @@ SDfail
php php
lda #$0A ; restore zero page from before trace lda #$0A ; restore zero page from before trace
ldx #$00 ldx #$00
ldy #$01 jsr CopyMemory1
jsr CopyMemory
plp plp
bcc SDsuccess bcc SDsuccess
@ -140,20 +138,16 @@ SDsuccess
; ;
lda #$13 lda #$13
ldx #$14 ldx #$14
ldy #$01 jsr CopyMemory1
jsr CopyMemory
lda #$12 lda #$12
ldx #$13 ldx #$13
ldy #$01 jsr CopyMemory1
jsr CopyMemory
lda #$11 lda #$11
ldx #$12 ldx #$12
ldy #$01 jsr CopyMemory1
jsr CopyMemory
lda #$10 lda #$10
ldx #$11 ldx #$11
ldy #$01 jsr CopyMemory1
jsr CopyMemory
; $1B00-$1FFF is real code and in the right place ; $1B00-$1FFF is real code and in the right place
; but we should clear the rest of T00 so we're not ; but we should clear the rest of T00 so we're not
@ -210,8 +204,7 @@ SDsuccess
!byte $C9,$AD,$90,$E5 !byte $C9,$AD,$90,$E5
lda #$18 lda #$18
ldx #$38 ldx #$38
ldy #$01 jsr CopyMemory1
jsr CopyMemory
jsr WriteTrackNA ; doesn't really write anything in verify-only mode jsr WriteTrackNA ; doesn't really write anything in verify-only mode
lda #$C9 lda #$C9
sta $38B6 sta $38B6

5
src/memory.a
View File

@ -52,6 +52,11 @@ MoveT00PakHigh
ldx #$B2 ldx #$B2
+ stx T00PakPtr+1 + stx T00PakPtr+1
ldy #$0D ldy #$0D
!byte $2C ; hide next LDY
; /!\ execution falls through here
CopyMemory1
ldy #$01
; /!\ execution falls through here ; /!\ execution falls through here
;------------------------------- ;-------------------------------

2
src/passport.a
View File

@ -458,8 +458,8 @@ _byte_hi = * + 2
_byte_skip_hi: _byte_skip_hi:
rts rts
!source "wholetrack.a"
!source "id/bootfailure.a" !source "id/bootfailure.a"
!source "wholetrack.a"
!source "apicode.a" ; /!\ must be last !source "apicode.a" ; /!\ must be last
!if RELBASE = $2000 { !if RELBASE = $2000 {

39
src/patchers/555.a
View File

@ -449,35 +449,31 @@ Do555
.patchepi .patchepi
inx inx
ldy #1
pha pha
jsr modify jsr modify1
!byte $DE !byte $DE
txa txa
clc clc
adc #10 adc #10
tax tax
ldy #1
pla pla
pha pha
jsr modify jsr modify1
!byte $AA !byte $AA
txa txa
clc clc
adc #$52 adc #$52
tax tax
ldy #1
pla pla
pha pha
jsr modify jsr modify1
!byte $DE !byte $DE
txa txa
clc clc
adc #10 adc #10
tax tax
ldy #1
pla pla
jsr modify jsr modify1
!byte $AA !byte $AA
ldy #8 ldy #8
jsr SearchTrack jsr SearchTrack
@ -489,8 +485,7 @@ Do555
inx inx
inx inx
inx inx
ldy #1 jsr modify1
jsr modify
!byte $00 !byte $00
.novol .novol
rts rts
@ -509,8 +504,7 @@ Do555
tax tax
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $08 !byte $08
clc clc
txa txa
@ -538,8 +532,7 @@ Do555
pla pla
adc #$FE adc #$FE
pha pha
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
clc clc
txa txa
@ -547,8 +540,7 @@ Do555
tax tax
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
clc clc
txa txa
@ -556,8 +548,7 @@ Do555
tax tax
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
clc clc
txa txa
@ -565,8 +556,7 @@ Do555
tax tax
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
clc clc
txa txa
@ -574,8 +564,7 @@ Do555
tax tax
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
clc clc
txa txa
@ -583,8 +572,7 @@ Do555
tax tax
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
clc clc
txa txa
@ -592,8 +580,7 @@ Do555
tax tax
pla pla
adc #$FE adc #$FE
ldy #1 jsr modify1
jsr modify
!byte $8D !byte $8D
rts rts

8
src/patchers/advent.a
View File

@ -38,10 +38,12 @@
!byte $A9,$96 ;LDA #$96 !byte $A9,$96 ;LDA #$96
!byte $8D,WILDCARD,WILDCARD ;STA $xxxx !byte $8D,WILDCARD,WILDCARD ;STA $xxxx
!byte $60 ;RTS !byte $60 ;RTS
bcs .pop ; passport-test-suite/Borrowed Time.woz [C=0] matches bcs .pop ; passport-test-suite/Borrowed Time.woz [C=0] matches
ldy #1 ; passport-test-suite/Mindshadow.woz [C=0] matches ; passport-test-suite/Mindshadow.woz [C=0] matches
jsr modify ; passport-test-suite/The Tracer Sanction.woz [C=0] matches ; passport-test-suite/The Tracer Sanction.woz [C=0] matches
jsr modify1
!byte $10 ;BEQ -> BPL !byte $10 ;BEQ -> BPL
ldy #23 ldy #23
jsr SearchTrack jsr SearchTrack
!byte $A4,WILDCARD ;LDY $xx !byte $A4,WILDCARD ;LDY $xx

111
src/patchers/ea.a
View File

@ -65,14 +65,12 @@
sta .patch2+1 sta .patch2+1
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $AA ;data prologue #2 !byte $AA ;data prologue #2
.patch2 .patch2
ldx #$D1 ldx #$D1
pla pla
ldy #1 jsr modify1
jsr modify
!byte $AD ;data prologue #3 !byte $AD ;data prologue #3
+ ldy #13 + ldy #13
@ -84,8 +82,7 @@
!byte $04,$EB,$19 ;LDA $c0e8 !byte $04,$EB,$19 ;LDA $c0e8
bcs + bcs +
jsr inx5 jsr inx5
ldy #1 jsr modify1
jsr modify
!byte $04 !byte $04
+ ldy #15 + ldy #15
jsr SearchTrack jsr SearchTrack
@ -94,8 +91,7 @@
!byte $5A,$16,$DA,$30,$06,$45,$C2 !byte $5A,$16,$DA,$30,$06,$45,$C2
bcs + bcs +
inx inx
ldy #1 jsr modify1
jsr modify
!byte $EE ;enciphered jsra->lda to disable call !byte $EE ;enciphered jsra->lda to disable call
+ ldy #8 + ldy #8
@ -106,8 +102,7 @@
!byte $4C ;JMP $xxxx !byte $4C ;JMP $xxxx
bcs + bcs +
jsr inx6 jsr inx6
ldy #1 jsr modify1
jsr modify
!byte $00 ;disable branch !byte $00 ;disable branch
+ ldy #15 + ldy #15
@ -130,14 +125,12 @@
sta .patch3 + 1 sta .patch3 + 1
pla pla
pha pha
ldy #1 jsr modify1
jsr modify
!byte $04 ;new checksum value for sub !byte $04 ;new checksum value for sub
pla pla
.patch3 .patch3
ldx #$D1 ldx #$D1
ldy #1 jsr modify1
jsr modify
!byte $00 ;jsra->lda to disable call !byte $00 ;jsra->lda to disable call
;routine loops infinitely on failure ;routine loops infinitely on failure
@ -158,8 +151,7 @@
adc #11 adc #11
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $00 ;disable branch !byte $00 ;disable branch
+ ldy #15 + ldy #15
@ -179,8 +171,7 @@
adc #11 adc #11
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $4C ;new checksum value for sub !byte $4C ;new checksum value for sub
+ ldy #14 + ldy #14
@ -197,8 +188,7 @@
!byte s_tamper !byte s_tamper
pla pla
jsr inx5 jsr inx5
ldy #1 jsr modify1
jsr modify
!byte $00 ;new checksum value for cmp !byte $00 ;new checksum value for cmp
+ ldy #9 + ldy #9
@ -211,8 +201,7 @@
jsr PrintByID jsr PrintByID
!byte s_tamper !byte s_tamper
jsr inx6 jsr inx6
ldy #1 jsr modify1
jsr modify
!byte $50 ;new checksum value for cmp !byte $50 ;new checksum value for cmp
+ ldy #7 + ldy #7
@ -224,8 +213,7 @@
jsr PrintByID jsr PrintByID
!byte s_tamper !byte s_tamper
jsr inx4 jsr inx4
ldy #1 jsr modify1
jsr modify
!byte $50 ;new checksum value for cmp !byte $50 ;new checksum value for cmp
+ ldy #12 + ldy #12
@ -236,8 +224,7 @@
!byte $4C,$94,$69 ;JMP $6994 !byte $4C,$94,$69 ;JMP $6994
bcs + bcs +
jsr inx6 jsr inx6
ldy #1 jsr modify1
jsr modify
!byte $2C ;JSR->BIT !byte $2C ;JSR->BIT
+ ldy #23 + ldy #23
@ -257,8 +244,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $C7 ;lda from known-zero instead !byte $C7 ;lda from known-zero instead
+ ldy #23 + ldy #23
@ -277,8 +263,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $E0 ;lda from known-zero instead !byte $E0 ;lda from known-zero instead
+ ldy #23 + ldy #23
@ -297,8 +282,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $E0 ;lda from known-zero instead !byte $E0 ;lda from known-zero instead
+ ldy #23 + ldy #23
@ -317,8 +301,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $E0 ;lda from known-zero instead !byte $E0 ;lda from known-zero instead
+ ldy #31 + ldy #31
@ -341,8 +324,7 @@
adc #29 adc #29
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $D1 ;lda from known-zero instead !byte $D1 ;lda from known-zero instead
+ ldy #16 + ldy #16
@ -361,8 +343,7 @@
jsr PrintByID jsr PrintByID
!byte s_tamper !byte s_tamper
inx inx
ldy #1 jsr modify1
jsr modify
!byte $E8 ;new checksum value for eor !byte $E8 ;new checksum value for eor
+ ldy #14 + ldy #14
@ -383,8 +364,7 @@
adc #12 adc #12
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $A1 ;new checksum value for eor !byte $A1 ;new checksum value for eor
+ ldy #24 + ldy #24
@ -407,35 +387,30 @@
adc #24 adc #24
tax tax
pla pla
ldy #1 jsr compare1
jsr compare
!byte $AB ;Last Gladiator !byte $AB ;Last Gladiator
bcs ++ bcs ++
ldy #1 jsr modify1
jsr modify
!byte $BB ;new checksum value for eor !byte $BB ;new checksum value for eor
bvc + bvc +
++ ldy #1 ++
jsr compare jsr compare1
!byte $D4 ;Arctic Fox, PHM Pegasus !byte $D4 ;Arctic Fox, PHM Pegasus
bcs ++ bcs ++
ldy #1 jsr modify1
jsr modify
!byte $D5 ;new checksum value for eor !byte $D5 ;new checksum value for eor
bvc + bvc +
++ ldy #1 ++
jsr compare jsr compare1
!byte $2C !byte $2C
bcs ++ bcs ++
ldy #1 jsr modify1
jsr modify
!byte $2D ;new checksum value for eor !byte $2D ;new checksum value for eor
++ ldy #1 ++
jsr compare jsr compare1
!byte $DB ;Adventure Construction Set, Archon, Marble Madness, Bard's Tale !byte $DB ;Adventure Construction Set, Archon, Marble Madness, Bard's Tale
bcs ++ bcs ++
ldy #1 jsr modify1
jsr modify
!byte $D4 ;new checksum value for eor !byte $D4 ;new checksum value for eor
++ ++
@ -455,8 +430,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $E0 ;lda from known-zero instead !byte $E0 ;lda from known-zero instead
+ ldy #23 + ldy #23
@ -475,8 +449,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $30 ;lda from known-zero instead !byte $30 ;lda from known-zero instead
+ ldy #14 + ldy #14
@ -493,8 +466,7 @@
!byte s_tamper !byte s_tamper
inx inx
inx inx
ldy #1 jsr modify1
jsr modify
!byte $F0 ;new checksum value for eor !byte $F0 ;new checksum value for eor
+ ldy #23 + ldy #23
@ -513,8 +485,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $E0 ;lda from known-zero instead !byte $E0 ;lda from known-zero instead
+ ldy #14 + ldy #14
@ -536,12 +507,10 @@
adc #25 adc #25
tax tax
pla pla
ldy #1 jsr compare1
jsr compare
!byte $4C !byte $4C
bcs + bcs +
ldy #1 jsr modify1
jsr modify
!byte $2C ;jmp to bit !byte $2C ;jmp to bit
+ +
@ -566,8 +535,7 @@
adc #21 adc #21
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $7F ;lda from known-zero instead !byte $7F ;lda from known-zero instead
+ ldy #13 + ldy #13
@ -584,8 +552,7 @@
adc #11 adc #11
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $00 ;disable branch !byte $00 ;disable branch
+ +

15
src/patchers/holle.a
View File

@ -32,11 +32,10 @@
!byte $C9 !byte $C9
bcs + bcs +
ldx #$91 ldx #$91
ldy #$01 jsr compare1
jsr compare
!byte $DE !byte $DE
bcc + bcc +
jsr modify jsr modify1
!byte $DE !byte $DE
+ +
ldx #$2F ldx #$2F
@ -47,11 +46,10 @@
!byte $C9 !byte $C9
bcs + bcs +
ldx #$35 ldx #$35
ldy #$01 jsr compare1
jsr compare
!byte $DE !byte $DE
bcc + bcc +
jsr modify jsr modify1
!byte $DE !byte $DE
+ +
ldx #$9D ldx #$9D
@ -61,11 +59,10 @@
JSR $B8B8 JSR $B8B8
bcs + bcs +
ldx #$9E ldx #$9E
ldy #$01 jsr compare1 ; first data epilogue nibble (write)
jsr compare ; first data epilogue nibble (write)
!byte $DE !byte $DE
bcc + bcc +
jsr modify jsr modify1
!byte $DE !byte $DE
+ +
dec .sector+1 dec .sector+1

5
src/patchers/meccdqc.a
View File

@ -37,13 +37,12 @@
sta .modbyte sta .modbyte
lda .table-24,y lda .table-24,y
ldx .table+1-24,y ldx .table+1-24,y
ldy #$01 jsr compare1
jsr compare
.cmpbyte .cmpbyte
!byte $D1 ; SMC !byte $D1 ; SMC
bcc + bcc +
jsr modify jsr modify1
.modbyte .modbyte
!byte $D1 ; SMC !byte $D1 ; SMC

5
src/patchers/prodosmecc.a
View File

@ -13,11 +13,10 @@
!byte $20,$10,$30,WILDCARD,$AA,$EB !byte $20,$10,$30,WILDCARD,$AA,$EB
bcs + ; passport-test-suite/Mystery Objects v1.1.woz [C=0] matches bcs + ; passport-test-suite/Mystery Objects v1.1.woz [C=0] matches
jsr inx0B jsr inx0B
ldy #$01 jsr compare1
jsr compare
!byte $DE !byte $DE
bcc + bcc +
jsr modify jsr modify1
!byte $DE !byte $DE
+ +
ldy #$0A ldy #$0A

5
src/patchers/prodosrwts.a
View File

@ -21,11 +21,10 @@ _prodosrwts
!byte $38 !byte $38
bcs .exit ; passport-test-suite/Mystery Objects v1.1.woz [C=0] matches bcs .exit ; passport-test-suite/Mystery Objects v1.1.woz [C=0] matches
jsr inx0F jsr inx0F
ldy #$01 jsr compare1
jsr compare
!byte $DE !byte $DE
bcc .exit bcc .exit
jsr modify jsr modify1
!byte $DE !byte $DE
.exit .exit
} }

5
src/patchers/protecteddos.a
View File

@ -179,11 +179,10 @@
; ;
lda #$07 lda #$07
ldx #$4C ldx #$4C
ldy #$01 jsr compare1 ; if T00,S07,$4C ==
jsr compare ; if T00,S07,$4C ==
!byte $A0 !byte $A0
bcs + ; passport-test-suite/Bingo Bugglebee Presents Outdoor Safety.woz [C=0] matches bcs + ; passport-test-suite/Bingo Bugglebee Presents Outdoor Safety.woz [C=0] matches
jsr modify ; then set T00,S07,$4C = jsr modify1 ; then set T00,S07,$4C =
!byte $20 !byte $20
+ +
jmp .exit jmp .exit

6
src/patchers/sierra.a
View File

@ -124,16 +124,14 @@
txa txa
pha pha
tya tya
ldy #1 jsr modify1
jsr modify
!byte $EA ;NOP !byte $EA ;NOP
pla pla
clc clc
adc #5 adc #5
tax tax
pla pla
ldy #1 jsr modify1
jsr modify
!byte $EA ;NOP !byte $EA ;NOP
+ ldy #10 + ldy #10
jsr SearchTrack jsr SearchTrack

5
src/patchers/t00_diskvol.a
View File

@ -32,11 +32,10 @@
bne .yes bne .yes
+ +
ldx #$EB ldx #$EB
ldy #$01 jsr compare1 ; and T00,S01,$EB !=
jsr compare ; and T00,S01,$EB !=
!byte $FE !byte $FE
bcc .exit bcc .exit
jsr compare ; and T00,S01,$EB != jsr compare1 ; and T00,S01,$EB !=
!byte $00 !byte $00
bcc .exit bcc .exit
.yes .yes

9
src/patchers/t00_jmpbbfe.a
View File

@ -168,18 +168,17 @@ _jmpbbfe
lda #$04 lda #$04
ldx #$69 ldx #$69
ldy #$01 jsr compare1 ; if T00,S04,$69 ==
jsr compare ; if T00,S04,$69 ==
!byte $A9 !byte $A9
bcs + ; passport-test-suite/Mask Parade.woz [C=0] matches bcs + ; passport-test-suite/Mask Parade.woz [C=0] matches
jsr modify ; then set T00,S04,$69 = jsr modify1 ; then set T00,S04,$69 =
!byte $60 !byte $60
+ +
ldx #$7D ldx #$7D
jsr compare ; if T00,S04,$7D == jsr compare1 ; if T00,S04,$7D ==
!byte $A9 !byte $A9
bcs + ; passport-test-suite/Mask Parade.woz [C=0] matches bcs + ; passport-test-suite/Mask Parade.woz [C=0] matches
jsr modify ; then set T00,S04,$7D = jsr modify1 ; then set T00,S04,$7D =
!byte $60 !byte $60
+ +
.exit .exit

5
src/patchers/t00_laureate.a
View File

@ -24,11 +24,10 @@
sta .valueb sta .valueb
lda .sectors,y lda .sectors,y
ldx .offsets,y ldx .offsets,y
ldy #$01 jsr compare1
jsr compare
.valuea !byte $d1 .valuea !byte $d1
bcc + bcc +
jsr modify jsr modify1
.valueb !byte $d1 .valueb !byte $d1
+ dec .loop+1 + dec .loop+1
bpl .loop bpl .loop

5
src/patchers/t00_mecc.a
View File

@ -31,13 +31,12 @@
sta .modbyte sta .modbyte
lda .table-24,y lda .table-24,y
ldx .table+1-24,y ldx .table+1-24,y
ldy #$01 jsr compare1
jsr compare
.cmpbyte .cmpbyte
!byte $D1 ; SMC !byte $D1 ; SMC
bcc + bcc +
jsr modify jsr modify1
.modbyte .modbyte
!byte $D1 ; SMC !byte $D1 ; SMC

10
src/patchers/t00_pascalrwts.a
View File

@ -26,11 +26,10 @@
!byte $C9,WILDCARD !byte $C9,WILDCARD
bcs + ; passport-test-suite/Solar Reading- Flight 1 - Paraphrase - Jupiter.woz [C=0] matches bcs + ; passport-test-suite/Solar Reading- Flight 1 - Paraphrase - Jupiter.woz [C=0] matches
ldx #$51 ldx #$51
ldy #$01 jsr compare1 ; and T00,S0D,$51 !=
jsr compare ; and T00,S0D,$51 !=
!byte $AA !byte $AA
bcc + bcc +
jsr modify jsr modify1
!byte $AA !byte $AA
+ lda #$0F + lda #$0F
@ -47,11 +46,10 @@
!byte $C9,WILDCARD !byte $C9,WILDCARD
bcs + bcs +
ldx #$7B ldx #$7B
ldy #$01 jsr compare1 ; and T00,S0F,$7B !=
jsr compare ; and T00,S0F,$7B !=
!byte $AA !byte $AA
bcc + bcc +
jsr modify jsr modify1
!byte $AA !byte $AA
+ +
.exit .exit

3
src/patchers/t00_rdos13.a
View File

@ -55,8 +55,7 @@
+ +
lda #$0A lda #$0A
ldx #$8B ldx #$8B
ldy #1 jsr modify1
jsr modify
!byte $96 !byte $96
jsr PrintByID jsr PrintByID

17
src/patchers/t00_rwts.a
View File

@ -108,14 +108,11 @@
sta .modify3 sta .modify3
pla pla
dex dex
ldy #1 jsr compare1
jsr compare
.cmpbyte3 ; SMC .cmpbyte3 ; SMC
!byte $D1 !byte $D1
bcc + bcc +
jsr modify1
ldy #1
jsr modify
.modify3 ; SMC .modify3 ; SMC
!byte $D1 !byte $D1
@ -134,8 +131,7 @@
ldy #$D1 ; SMC ldy #$D1 ; SMC
lda .table4,y lda .table4,y
ldx .table4+1,y ldx .table4+1,y
ldy #1 jsr compare1
jsr compare
!byte $A9 !byte $A9
bcs + bcs +
@ -163,14 +159,11 @@
sta .modify6 sta .modify6
pla pla
dex dex
ldy #1 jsr compare1
jsr compare
.cmpbyte6 .cmpbyte6
!byte $D1 ; SMC !byte $D1 ; SMC
bcc + bcc +
jsr modify1
ldy #1
jsr modify
.modify6 .modify6
!byte $D1 ; SMC !byte $D1 ; SMC

5
src/patchers/t00_sunburst.a
View File

@ -62,12 +62,11 @@
lda #$03 lda #$03
ldx #$40 ldx #$40
ldy #$01 jsr compare1 ; if T00,S03,$40 ==
jsr compare ; if T00,S03,$40 ==
!byte $D0 !byte $D0
bcs .exit bcs .exit
ldx #$9C ldx #$9C
jsr compare ; and T00,S03,$9C == jsr compare1 ; and T00,S03,$9C ==
!byte $F0 !byte $F0
bcs .exit bcs .exit
lda #$04 lda #$04