clear leftover DOS error

This commit is contained in:
Peter Ferrie 2022-01-24 12:38:14 -08:00
parent 12bfd649a6
commit d6db17b402
2 changed files with 9 additions and 1 deletions

View File

@ -15,6 +15,11 @@
; exits via TheEnd ; exits via TheEnd
;------------------------------- ;-------------------------------
ReadWithRWTS ReadWithRWTS
ldx #0
ldy #0
dec gCommand
jsr ReadSectorXY ; clear DOS error
inc gCommand
jsr IncProgress jsr IncProgress
lda #$22 lda #$22
jsr ChangeTrackNW jsr ChangeTrackNW
@ -38,6 +43,9 @@ ReadWithRWTS
lda gIsInfocom18 lda gIsInfocom18
and gIsRW18 and gIsRW18
bne checksector bne checksector
dec gCommand
jsr ReadSector ; seek
inc gCommand
jsr VerifyInfocom18 jsr VerifyInfocom18
bcc .passtrack bcc .passtrack
jmp FatalError jmp FatalError

View File

@ -365,7 +365,7 @@ StringTableHigh ; must be kept in sync with constants in enid.a
.passport .passport
!text "Passport ",$00 !text "Passport ",$00
.header .header
!text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-01-09",$00 !text "@",s_passport,"by 4am@",s_space7,"@",s_space7," 2022-01-24",$00
.bar9 .bar9
!text "_________",$00 !text "_________",$00
.bar18 .bar18