fix 5-5-5 with RAM disk

This commit is contained in:
Peter Ferrie 2021-06-30 15:30:24 -07:00
parent 2a9d6202ec
commit f0c6053489
2 changed files with 21 additions and 22 deletions

View File

@ -340,27 +340,6 @@ Do555
.dofixed
lda #BASEPAGE
sta gAddress+1
.copytracks
ldx #0
stx gSector
ldy #$10
jsr .readwrite
lda gTrack
cmp #1
bne .curtrk
ldx #$AC
stx $BDEF
ldx #$90
stx $BDF2
.curtrk
cmp #00 ; SMC
beq .ispartial
jmp .notpartial
.ispartial
ldy #$CD
sty $BE2B
lda #8
ldx #$AD
ldy #4
@ -384,6 +363,26 @@ Do555
lda #16
sta .forwards1+3,x
.copytracks
ldx #0
stx gSector
ldy #$10
jsr .readwrite
lda gTrack
cmp #1
bne .curtrk
ldx #$AC
stx $BDEF
ldx #$90
stx $BDF2
.curtrk
cmp #00 ; SMC
beq .ispartial
jmp .notpartial
.ispartial
ldy #$CD
sty $BE2B
.forwards1
ldx #1

View File

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