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

2
src/strings/en.a
View File

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