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
;-------------------------------
ReadWithRWTS
ldx #0
ldy #0
dec gCommand
jsr ReadSectorXY ; clear DOS error
inc gCommand
jsr IncProgress
lda #$22
jsr ChangeTrackNW
@ -38,6 +43,9 @@ ReadWithRWTS
lda gIsInfocom18
and gIsRW18
bne checksector
dec gCommand
jsr ReadSector ; seek
inc gCommand
jsr VerifyInfocom18
bcc .passtrack
jmp FatalError

View File

@ -365,7 +365,7 @@ StringTableHigh ; must be kept in sync with constants in enid.a
.passport
!text "Passport ",$00
.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
!text "_________",$00
.bar18