support some Softsmith 5-5-5s

This commit is contained in:
Peter Ferrie 2021-06-10 16:19:58 -07:00
parent fc74b8b31a
commit 335f58cea1
3 changed files with 15 additions and 9 deletions

View File

@ -427,10 +427,8 @@ VerifyInfocom18
dey
bne -
.x2
!warn "x1=",*
- ldx $C0EC
bpl -
!warn "x2=",*
!if >.x2 != >* {
!serious "branch crosses a page"
}

View File

@ -13,9 +13,12 @@
; - Bumble Games v1.4
; - Bumble Plot v1.1
; - Con-Putation
; - Cosmic Combat
; - Crosscountry Rallye
; - Crush, Crumble and Chomp v1981-06-22
; - Gertrude's Puzzles v1.0
; - Gertrude's Secrets v1.0
; - Guardian
; - Jumble Jet
; - Jumpman
; - Microzine 3
@ -41,9 +44,17 @@ Do555
jsr SearchSector
!byte $A9,WILDCARD ; LDA #$xx
!byte $48 ; PHA
lda #4
bcs .setpage
lda $801,x
bcc .setpage
lda #8
ldy #4
jsr SearchSector
!byte $45,WILDCARD ; EOR $xx
!byte $99,$00 ; STA $xxxx,y
bcs .jmpexit
lda $804,x
sec
.setpage
sta .patch1+1
sta .patch2+1
@ -69,7 +80,7 @@ Do555
!byte $A0,WILDCARD ; LDY #$xx
!byte $A2 ; LDX #$xx
bcs .jmpexit
lda $801,x
lda $803,x
ldy #0
.setPC
@ -89,9 +100,6 @@ Do555
lda $800,x
cmp #$46
bne .nolsr
lda $801,x
cmp #$4A ; LSR $4A
bne .loopsect
inx
inx

View File

@ -350,7 +350,7 @@ StringTableHigh
.passport
!text "Passport ",$00
.header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-07",$00
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2021-06-10",$00
.bar9
!text "_________",$00
.bar18