Apple-2-SW/passport
1
0
Fork 0
mirror of https://github.com/a2-4am/passport.git synced 2024-11-19 03:06:34 +00:00
Code Issues Projects Releases Wiki Activity

expand fbffpascal patcher to support Widespread, The Typewriter

Browse Source
This commit is contained in:
4am 2018-09-25 09:36:24 -04:00
parent 8af8e3c4a2
commit 51f62dcc99
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/patchers/fbffpascal.a
View File

@ -4,10 +4,12 @@
; linked as an Apple Pascal module ; linked as an Apple Pascal module
; (soft switches are hard-coded to slot 6) ; (soft switches are hard-coded to slot 6)
; ;
; tested on several 'Courses By Computers' disks: ; tested on
; Geometry: Simple Closed Curves (1985) ; Geometry: Simple Closed Curves (1985)
; Multiplication: Advanced Level (1985) ; Multiplication: Advanced Level (1985)
; Basic Fraction Concepts (1985) ; Basic Fraction Concepts (1985)
; Widespread
; Power Up! The Typewriter
;------------------------------- ;-------------------------------
!zone { !zone {
bit gMode ; nothing to do here in verify-only mode bit gMode ; nothing to do here in verify-only mode
@ -17,13 +19,13 @@
ldy #$26 ldy #$26
jsr SearchTrack jsr SearchTrack
!byte $AD,$E9,$C0; LDA $C0E9 !byte $AD,$E9,$C0; LDA $C0E9
!byte $A9,$A0 ; LDA #$A0 !byte $A9,WILDCARD; LDA ...
!byte $85,$03 ; STA $03 !byte $85,$03 ; STA $03
!byte $A9,$08 ; LDA #$08 !byte $A9,$08 ; LDA #$08
!byte $C6,$02 ; DEC $02 !byte $C6,$02 ; DEC $02
!byte $D0,$04 ; BNE + !byte $D0,$04 ; BNE +
!byte $C6,$03 ; DEC $03 !byte $C6,$03 ; DEC $03
!byte $F0,$55 ; BEQ +55 !byte $F0,WILDCARD; BEQ ... (this branch offset will be used later to build the patch)
!byte $AC,$EC,$C0; LDY $C0EC !byte $AC,$EC,$C0; LDY $C0EC
!byte $10,$FB ; BPL - !byte $10,$FB ; BPL -
!byte $C0,$FB ; CPY #$FB !byte $C0,$FB ; CPY #$FB
@ -36,15 +38,22 @@
!byte $2A ; ROL !byte $2A ; ROL
!byte $B0,$0B ; BCS + !byte $B0,$0B ; BCS +
bcs .exit bcs .exit
stx .a+1
sta gDisplayBytes sta gDisplayBytes
pha adc #BASEPAGE ; carry is guaranteed to be clear here
sta .a+2
ldy #$10 ; get the branch offset from the WILDCARD above
.a lda $FDFD,y ; set at runtime
adc #$0A ; calculate new branch offset (note: carry still guaranteed to be clear here)
sta .branch ; store offset in patch bytes below
lda #s_fbff lda #s_fbff
jsr PrintByID jsr PrintByID
pla lda gDisplayBytes
ldy #$03 ldy #$03
jsr modify jsr modify
; unconditional jump to success path ; unconditional jump to success path
!byte $18 ; CLC !byte $18 ; CLC
!byte $90,$5F ; BCC + !byte $90 ; BCC +
.branch !byte $FD ; set at runtime
.exit .exit
} }

2
src/strings/en.a
View File

@ -144,7 +144,7 @@ StringTable
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2018-09-23",$00 !text "Passport by 4am 2018-09-25",$00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "