Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-05-28 21:41:27 +00:00
Code Issues Projects Releases Wiki Activity

shave some bytes

Browse Source
This commit is contained in:
4am 2021-06-21 08:18:07 -04:00
parent 087012a361
commit 59f21b31f9
2 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mods/t00only.a
View File

@ -43,18 +43,18 @@ AnalyzeT00
jmp T00_IsNotRWTS
+
; DOS 3.3 RWTS patchers
!source "../patchers/t00_artsci.a" ; in A=0A,X=FE,Y=02; out none
!source "../patchers/t00_bademu.a" ; in Y=05; out none
!source "../patchers/t00_border.a" ; in A=08,X=5A,Y=0A; out A=08,X=5A,Y=0A
!source "../patchers/t00_dakin5.a" ; in A=00,X=B3,Y=0C; out A=03,X=9A,Y=03
!source "../patchers/t00_datasoft2.a" ; in A=0A,X=3A,Y=06; out A=01,X=48,Y=02
!source "../patchers/t00_artsci.a" ; A=0A,X=FE,Y=02; out none
!source "../patchers/t00_bademu.a" ; Y=05; out none
!source "../patchers/t00_border.a" ; A=08,X=5A,Y=0A; out A=08,X=5A,Y=0A
!source "../patchers/t00_dakin5.a" ; A=00,X=B3,Y=0C; out A=03,X=9A,Y=03
!source "../patchers/t00_datasoft2.a" ; A=0A,X=3A,Y=06; out A=01,X=48,Y=02
!source "../patchers/t00_jmpb500.a"
!source "../patchers/t00_earthware.a" ; out A=02,X=F6,Y=03
!source "../patchers/t00_jmpb660.a" ; in A=02,X=F6,Y=03
!source "../patchers/t00_jmpbbfe.a"
!source "../patchers/t00_jmpbcf0.a"
!source "../patchers/t00_jmpbcf0.a" ; A=03,X=94,Y=08; out A=03,X=94,Y=08
!source "../patchers/t00_jmpbeb1.a"
!source "../patchers/t00_jmpbeca.a"
!source "../patchers/t00_jsrb6cc.a"

11
src/patchers/t00_jmpbcf0.a
View File

@ -6,26 +6,23 @@
; NOTE: must be run before RWTS
; patchers due to overlapping bytes
;-------------------------------
!zone {
_jmpbcf0
T00_JMPBCF0
; gTrack = 0
; Caller found DOS 3.3 RWTS
lda #$03
ldx #$94
ldy #$08
jsr compare ; and T00,S03,$94 ==
jsr compare ; if T00,S03,$94 ==
!byte $DD,$8C,$C0
!byte $D0,$A9
!byte $4C,$F0,$BC
bcs .exit ; passport-test-suite/Easy as ABC.woz [C=0] matches
bcs + ; passport-test-suite/Easy as ABC.woz [C=0] matches
jsr PrintByID
!byte s_jmpbcf0
ldy #$08
jsr modify ; then set T00,S03,$94 =
!byte $EA
!byte $BD,$8C,$C0
!byte $10,$FB
!byte $C9,$AA
.exit
}
+