mirror of
https://github.com/a2-4am/passport.git
synced 2024-10-02 04:54:41 +00:00
shave some bytes
This commit is contained in:
parent
c45bc8b51b
commit
44a208c5c4
@ -72,7 +72,8 @@ IDDOS33
|
|||||||
;
|
;
|
||||||
; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F
|
; DOS 3.3 has JSR $FE89 / JSR $FE93 / JSR $FB2F
|
||||||
;
|
;
|
||||||
lda #$00
|
;A=0 here
|
||||||
|
;lda #$00
|
||||||
ldx #$3F
|
ldx #$3F
|
||||||
ldy #$0B
|
ldy #$0B
|
||||||
jsr compare ; if T00,S00,$3F ==
|
jsr compare ; if T00,S00,$3F ==
|
||||||
@ -84,7 +85,8 @@ IDDOS33
|
|||||||
;
|
;
|
||||||
; some Sierra have STA $C050 / STA $C057 / STA $C055 instead
|
; some Sierra have STA $C050 / STA $C057 / STA $C055 instead
|
||||||
;
|
;
|
||||||
lda #$00
|
;A=0 here
|
||||||
|
;lda #$00
|
||||||
ldx #$3F
|
ldx #$3F
|
||||||
ldy #$0B
|
ldy #$0B
|
||||||
jsr compare ; if T00,S00,$3F ==
|
jsr compare ; if T00,S00,$3F ==
|
||||||
@ -98,8 +100,9 @@ IDDOS33
|
|||||||
;
|
;
|
||||||
; Check sector order map
|
; Check sector order map
|
||||||
;
|
;
|
||||||
lda #$00 ; passport-test-suite/Leisure Suit Larry.woz [C=0] matches previous compare
|
;A=0 here
|
||||||
ldx #$4D
|
;lda #$00
|
||||||
|
ldx #$4D ; passport-test-suite/Leisure Suit Larry.woz [C=0] matches previous compare
|
||||||
ldy #$10
|
ldy #$10
|
||||||
jsr compare ; if T00,S00,$4D ==
|
jsr compare ; if T00,S00,$4D ==
|
||||||
!byte $00,$0D,$0B,$09,$07,$05,$03,$01
|
!byte $00,$0D,$0B,$09,$07,$05,$03,$01
|
||||||
@ -109,25 +112,27 @@ IDDOS33
|
|||||||
;
|
;
|
||||||
; Check for MUSE sector order map
|
; Check for MUSE sector order map
|
||||||
;
|
;
|
||||||
lda #$00
|
;A=0 here
|
||||||
|
;lda #$00
|
||||||
ldx #$55
|
ldx #$55
|
||||||
ldy #$01
|
ldy #$01
|
||||||
jsr compare ; if T00,S00,$55 ==
|
jsr compare ; if T00,S00,$55 ==
|
||||||
!byte $02
|
!byte $02
|
||||||
bcs +
|
bcs +
|
||||||
lda #TRUE ; passport-test-suite/The Function Game.woz [C=0] matches previous compare
|
ldy #TRUE ; passport-test-suite/The Function Game.woz [C=0] matches previous compare
|
||||||
sta gIsMUSERWTS
|
sty gIsMUSERWTS
|
||||||
lda #$0E
|
ldy #$0E
|
||||||
sta precheck_sectors+1
|
sty precheck_sectors+1
|
||||||
lda #kSectorIgnore
|
ldy #kSectorIgnore
|
||||||
sta T00S08
|
sty T00S08
|
||||||
sta T00S0F
|
sty T00S0F
|
||||||
+
|
+
|
||||||
;
|
;
|
||||||
; Minor variant jumps to $08F0 and back but is still safe to trace.
|
; Minor variant jumps to $08F0 and back but is still safe to trace.
|
||||||
; Check for this jump and match the code at $08F0 exactly.
|
; Check for this jump and match the code at $08F0 exactly.
|
||||||
;
|
;
|
||||||
lda #$00
|
;A=0 here
|
||||||
|
;lda #$00
|
||||||
ldx #$1C
|
ldx #$1C
|
||||||
ldy #$03
|
ldy #$03
|
||||||
jsr compare ; if T00,S00,$1C ==
|
jsr compare ; if T00,S00,$1C ==
|
||||||
@ -135,14 +140,16 @@ IDDOS33
|
|||||||
; standard code at $081C -> success
|
; standard code at $081C -> success
|
||||||
bcc .exit ; passport-test-suite/Binomial Multiplication.woz [C=0] matches
|
bcc .exit ; passport-test-suite/Binomial Multiplication.woz [C=0] matches
|
||||||
|
|
||||||
lda #$00
|
;A=0 here
|
||||||
|
;lda #$00
|
||||||
ldx #$1C
|
ldx #$1C
|
||||||
ldy #$03
|
ldy #$03
|
||||||
jsr compare ; if T00,S00,$1C ==
|
jsr compare ; if T00,S00,$1C ==
|
||||||
!byte $4C,$F0,$08; JMP $08F0
|
!byte $4C,$F0,$08; JMP $08F0
|
||||||
bcs .exit ; unknown code at $081C -> failure
|
bcs .exit ; unknown code at $081C -> failure
|
||||||
|
|
||||||
lda #$00
|
;A=0 here
|
||||||
|
;lda #$00
|
||||||
ldx #$F0
|
ldx #$F0
|
||||||
ldy #$09
|
ldy #$09
|
||||||
jsr compare ; if T00,S00,$F0 ==
|
jsr compare ; if T00,S00,$F0 ==
|
||||||
|
Loading…
Reference in New Issue
Block a user