Merge pull request #37 from peterferrie/master

make Stickybear compatible again
This commit is contained in:
4am 2017-11-07 21:17:22 -05:00 committed by GitHub
commit 06ebbba4ae
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 19 additions and 15 deletions

View File

@ -100,9 +100,7 @@
;read T01S0F, remains encoded at $BB00-BC55
ldy #<gRWTSParams
lda #>gRWTSParams
jsr $BD00
jsr ReadSector
;re-enable decoding
@ -287,9 +285,7 @@
.domerge
lda #$21 ; $2100-21FF
sta gAddress+1
ldy #<gRWTSParams
lda #>gRWTSParams
jsr $BD00
jsr ReadSector
lda .mergelo+1
beq ++
dec gSector
@ -298,9 +294,7 @@
sta gSector
dec gTrack
+ inc gAddress+1
ldy #<gRWTSParams
lda #>gRWTSParams
jsr $BD00
jsr ReadSector
dec gAddress+1
ldy #0
@ -321,15 +315,17 @@
bne -
;read other page in block
;sector $01 pairs with $0F
;sector $01 pairs with $0F on disk, but
;sector $0E pairs with $0F in RAM disk
lda #1
sta gTrack
sta gSector
ldx gUsingRAMDisk
bne +
lda #$0E
+ sta gSector
dec gAddress+1 ; and $2000-20FF
ldy #<gRWTSParams
lda #>gRWTSParams
jsr $BD00
jsr ReadSector
;write replaced block
@ -337,9 +333,17 @@
sta mliparam+3 ; hi byte of data buffer
dec mliparam+4 ; lo byte of block number
jsr SwapProDOS
lda gUsingRAMDisk
beq +
lda #$81 ; 'write block' command
ldy #$03 ; parameter count
jsr mli
bcs .writeerr
bcc .writedone
+ jsr WriteToRAMFile
.writeerr
.writedone
jsr SwapProDOS
;restore original disk location

View File

@ -234,7 +234,7 @@ StringTable
; can be set directly before calling PrintByID.
;
.header
!text "Passport by 4am 2017-10-29",$00
!text "Passport by 4am 2017-11-07",$00
.mainmenu
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
!text " "