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

reduce Optimum read overhead

Browse Source
This commit is contained in:
Peter Ferrie 2017-02-13 13:15:10 -08:00
parent f6f5670c69
commit 428ac7ca5a
2 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/patchers/optimum.a
View File

@ -55,7 +55,7 @@ _optimum
lda #$2C lda #$2C
sta $BE40 sta $BE40
;read T01S0F ;read T01S0F, remains encoded at $BB00-BC55
lda gTrack lda gTrack
pha pha
@ -109,7 +109,7 @@ _optimum
ora ($D110-$96)-$16,x ora ($D110-$96)-$16,x
sty $2C sty $2C
ldy $26 ldy $26
sta $B600,y sta $300,y
ldy $2C ldy $2C
bne + bne +
dec .tblsel1+2 dec .tblsel1+2
@ -180,6 +180,8 @@ _optimum
;read replaced page ;read replaced page
lda #9 ; $900-9FF
sta gAddress+1
ldy #<gRWTSParams ldy #<gRWTSParams
lda #>gRWTSParams lda #>gRWTSParams
jsr $BD00 jsr $BD00
@ -187,8 +189,8 @@ _optimum
;merge content ;merge content
ldy #$86 ldy #$86
- lda $B600,y - lda $300,y
sta (BASEPAGE+$0F)*256,y sta $900,y
dey dey
cpy #$FF cpy #$FF
bne - bne -
@ -198,14 +200,14 @@ _optimum
lda #1 lda #1
sta gTrack sta gTrack
sta gSector sta gSector
dec gAddress+1 dec gAddress+1 ; and $800-8FF
ldy #<gRWTSParams ldy #<gRWTSParams
lda #>gRWTSParams lda #>gRWTSParams
jsr $BD00 jsr $BD00
;write replaced block ;write replaced block
lda #(BASEPAGE+$0E) lda #8 ; $800-9FF
sta mliparam+3 ; hi byte of data buffer sta mliparam+3 ; hi byte of data buffer
dec mliparam+4 ; lo byte of block number dec mliparam+4 ; lo byte of block number
jsr SwapProDOS jsr SwapProDOS
@ -214,18 +216,11 @@ _optimum
jsr mli jsr mli
jsr SwapProDOS jsr SwapProDOS
;restore original pages ;restore original disk location
dec gTrack dec gTrack ; #0
inc gSector lda #$0F
ldy #<gRWTSParams sta gSector
lda #>gRWTSParams
jsr $BD00
inc gSector
inc gAddress+1
ldy #<gRWTSParams
lda #>gRWTSParams
jsr $BD00
.exit .exit
} }

2
src/strings/en.a
View File

@ -194,7 +194,7 @@ StringTable
; can be set directly before calling PrintByID. ; can be set directly before calling PrintByID.
; ;
.header .header
!text "Passport by 4am 2017-02-12",00 !text "Passport by 4am 2017-02-13",00
.mainmenu .mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D !text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " " !text " "