mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
shave some bytes
This commit is contained in:
parent
ce2e3b5813
commit
98c8529f45
|
@ -522,8 +522,7 @@ Do555
|
|||
tax
|
||||
pla
|
||||
pha
|
||||
ldy #3
|
||||
jsr modify
|
||||
jsr modify3
|
||||
!byte $4C,$18,$05 ; JMP $0518
|
||||
clc
|
||||
txa
|
||||
|
|
|
@ -72,15 +72,13 @@
|
|||
adc #0
|
||||
pha
|
||||
tya
|
||||
ldy #3
|
||||
jsr modify
|
||||
jsr modify3
|
||||
!byte $C9,$DE ;CMP #$DE
|
||||
!byte $EA ;NOP
|
||||
pla
|
||||
.patch
|
||||
ldx #0
|
||||
ldy #3 ; passport-test-suite/Borrowed Time.woz [Z=1] reaches here
|
||||
jsr modify
|
||||
ldx #0 ; passport-test-suite/Borrowed Time.woz [Z=1] reaches here
|
||||
jsr modify3
|
||||
!byte $C9,$AA ;CMP #$AA
|
||||
!byte $EA ;NOP
|
||||
plp
|
||||
|
|
|
@ -16,8 +16,7 @@
|
|||
jsr compare2 ; if T01,S08,$D6 ==
|
||||
!byte $4C,$D5
|
||||
bcs .exit ; passport-test-suite/Castle Wolfenstein.woz [C=0] matches
|
||||
iny
|
||||
jsr modify ; then set T01,S08,$D6 =
|
||||
jsr modify3 ; then set T01,S08,$D6 =
|
||||
!byte $E8,$D0,$32
|
||||
.exit
|
||||
}
|
||||
|
|
|
@ -54,8 +54,7 @@
|
|||
jsr PrintByID
|
||||
!byte s_beforedos
|
||||
|
||||
tay
|
||||
jsr modify ; then set T02,S03,$00 =
|
||||
jsr modify3 ; then set T02,S03,$00 =
|
||||
!byte $4C,$84,$9D
|
||||
.exit
|
||||
}
|
||||
|
|
|
@ -25,7 +25,7 @@
|
|||
jsr PrintByID
|
||||
!byte s_diskvol0x
|
||||
jsr inx6
|
||||
jsr modify
|
||||
jsr modify1
|
||||
!byte $00
|
||||
.exit
|
||||
}
|
||||
|
|
|
@ -38,7 +38,7 @@
|
|||
tax
|
||||
.swapper2
|
||||
lda #$FF ; modified at runtime
|
||||
jsr modify ; offset $08. $D5 -> 9B
|
||||
jsr modify1 ; offset $08. $D5 -> 9B
|
||||
!byte $9B
|
||||
|
||||
.specific
|
||||
|
@ -144,8 +144,7 @@
|
|||
;
|
||||
lda #$01
|
||||
ldx #$07
|
||||
tay
|
||||
jsr modify ; set T00,S01,$07 =
|
||||
jsr modify1 ; set T00,S01,$07 =
|
||||
!byte $2C
|
||||
|
||||
;
|
||||
|
@ -166,11 +165,10 @@
|
|||
;
|
||||
lda #$05
|
||||
ldx #$15
|
||||
dey
|
||||
jsr compare ; if T00,S05,$15 ==
|
||||
jsr compare2 ; if T00,S05,$15 ==
|
||||
!byte $A5,$2F
|
||||
bcs .exit ; passport-test-suite/Math Blaster v080584.woz [C=0] matches
|
||||
jsr modify ; then set T00,S05,$15 =
|
||||
jsr modify2 ; then set T00,S05,$15 =
|
||||
!byte $A9,$00
|
||||
|
||||
;
|
||||
|
|
|
@ -58,30 +58,25 @@
|
|||
bmi .exit
|
||||
|
||||
.variant1
|
||||
dey
|
||||
jsr modify
|
||||
jsr modify2
|
||||
!byte $AA,$A2 ; new JMP entry point ($0900 when decrypted)
|
||||
ldx #$20
|
||||
iny
|
||||
jsr modify
|
||||
jsr modify3
|
||||
!byte $EA ; NOP
|
||||
!byte $A9,$35 ; LDA #$35
|
||||
bvc .exit ; always branches
|
||||
|
||||
.variant2
|
||||
dey
|
||||
jsr modify ; new JMP entry point ($0903 when decrypted)
|
||||
jsr modify2 ; new JMP entry point ($0903 when decrypted)
|
||||
!byte $FA,$F2
|
||||
bvc .variant2and3common ; always branches
|
||||
|
||||
.variant3
|
||||
dey
|
||||
jsr modify ; new JMP entry point ($0903 when decrypted)
|
||||
jsr modify2 ; new JMP entry point ($0903 when decrypted)
|
||||
!byte $A9,$A1
|
||||
.variant2and3common
|
||||
ldx #$20
|
||||
iny
|
||||
jsr modify
|
||||
jsr modify3
|
||||
!byte $EA ; NOP
|
||||
!byte $A9,$27 ; LDA #$27
|
||||
|
||||
|
|
|
@ -24,13 +24,12 @@
|
|||
bcs .exit
|
||||
lda #$03
|
||||
ldx #$9A
|
||||
tay
|
||||
jsr compare ; and T00,S03,$9A ==
|
||||
jsr compare3 ; and T00,S03,$9A ==
|
||||
!byte $4C,$B3,$B6; JMP $B6B3
|
||||
bcs .exit ; passport-test-suite/MIRV.woz [C=0] matches
|
||||
jsr PrintByID
|
||||
!byte s_dakin5
|
||||
jsr modify ; then set T00,S03,$9A =
|
||||
jsr modify3 ; then set T00,S03,$9A =
|
||||
!byte $C9,$AA
|
||||
!byte $D0
|
||||
.exit
|
||||
|
|
|
@ -10,8 +10,7 @@
|
|||
|
||||
lda #$01
|
||||
ldx #$EE
|
||||
tay
|
||||
jsr compare ; and T00,S01,$EE ==
|
||||
jsr compare1 ; and T00,S01,$EE ==
|
||||
!byte $FB
|
||||
bcs .exit
|
||||
|
||||
|
|
|
@ -13,12 +13,12 @@ T00_JMPB660
|
|||
; RWTS jumps to $B660 instead of
|
||||
; checking third data prologue
|
||||
;
|
||||
jsr compare ; if T00,S02,$F6 ==
|
||||
jsr compare3 ; if T00,S02,$F6 ==
|
||||
!byte $4C,$60,$B6
|
||||
bcs + ; passport-test-suite/Analogies Tutorial.woz [C=0] matches
|
||||
jsr PrintByID
|
||||
!byte s_jmpb660
|
||||
jsr modify ; then set T00,S02,$F6 =
|
||||
jsr modify3 ; then set T00,S02,$F6 =
|
||||
!byte $BD,$8C,$C0
|
||||
;
|
||||
; RWTS swapper forcibly reinstalls a jump to $B720 instead of writing
|
||||
|
|
|
@ -34,7 +34,6 @@
|
|||
|
||||
+ lda #$0F
|
||||
ldx #$6B
|
||||
ldy #$11
|
||||
jsr compare ; if T00,S0F,$6B ==
|
||||
!byte $BD,$8C,$C0
|
||||
!byte $10,$FB
|
||||
|
|
|
@ -14,15 +14,14 @@
|
|||
|
||||
lda #8
|
||||
ldx #$C9
|
||||
ldy #3
|
||||
jsr modify
|
||||
jsr modify3
|
||||
!byte $20,$2A,$BB ;JSR $BB2A
|
||||
|
||||
;adjust write-timing
|
||||
|
||||
lda #$9
|
||||
ldx #$89
|
||||
jsr modify
|
||||
jsr modify3
|
||||
!byte $04 ;sync delay
|
||||
!byte $48 ;PHA
|
||||
!byte $68 ;PLA
|
||||
|
|
|
@ -68,7 +68,7 @@
|
|||
jsr modify1 ; then set T00,S01,$8E =
|
||||
!byte $F8 ; change branch to unconditionally jump to success path
|
||||
ldx #$92
|
||||
jsr modify ; and set T00,S01,$92 =
|
||||
jsr modify1 ; and set T00,S01,$92 =
|
||||
!byte $F1 ; change branch to unconditionally jump to success path
|
||||
bvc .exit ; always branches
|
||||
|
||||
|
|
|
@ -29,11 +29,10 @@
|
|||
jsr PrintByID
|
||||
!byte s_bytrack
|
||||
ldx #$81
|
||||
tay
|
||||
jsr modify
|
||||
jsr modify1
|
||||
!byte $2C
|
||||
ldx #$84
|
||||
jsr modify
|
||||
jsr modify1
|
||||
!byte $2C
|
||||
.exit
|
||||
}
|
||||
|
|
|
@ -19,8 +19,7 @@
|
|||
jsr PrintByID
|
||||
!byte s_diskvol0x
|
||||
jsr inx0B
|
||||
iny
|
||||
jsr modify
|
||||
jsr modify1
|
||||
!byte $35 ; 'LM = PEEK(KB - 2055)' instead
|
||||
.exit
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user