support another Sierra title

This commit is contained in:
Peter Ferrie 2018-01-11 13:24:42 -08:00
parent 338e65caa5
commit 4db5c1fc21
2 changed files with 26 additions and 3 deletions

View File

@ -24,6 +24,7 @@
; Leisure Suit Larry ; Leisure Suit Larry
; Space Quest ; Space Quest
; The Black Cauldron ; The Black Cauldron
; The Dark Crystal
; ;
; module by qkumba ; module by qkumba
;------------------------------- ;-------------------------------
@ -31,8 +32,6 @@
lda gIsSierra lda gIsSierra
beq + beq +
jmp .dosearch jmp .dosearch
+ lda gTrack
bne +
+ ldy #3 + ldy #3
jsr SearchTrack jsr SearchTrack
.call .call
@ -165,6 +164,30 @@
ldy #$01 ldy #$01
jsr modify jsr modify
!byte $2C ;BIT $xxxx !byte $2C ;BIT $xxxx
+ ldy #15
jsr SearchTrack
!byte $EA ;NOP
!byte $EA ;NOP
!byte $EA ;NOP
!byte $BD,$48,$4A ;LDA $4A48,X
!byte $48 ;PHA
!byte $BD,$47,$4A ;LDA $4A47,X
!byte $48 ;PHA
!byte $60 ;RTS
!byte $EA ;NOP
!byte $EA ;NOP
!byte $EA ;NOP
bcs +
pha
txa
adc #6
tax
pla
ldy #$05
jsr modify
!byte $EA ;NOP
!byte $BD,$47,$4A ;LDA $4A47,X
!byte $EA ;NOP
+ jmp .exit + jmp .exit
.trybox .trybox

View File

@ -138,7 +138,7 @@ StringTable
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2018-01-04",$00 !text "Passport by 4am 2018-01-11",$00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "