mirror of
https://github.com/a2-4am/passport.git
synced 2025-01-11 01:29:56 +00:00
add compile-time flag gOnAClearDayYouCanReadForever to reread every sector until it succeeds
This commit is contained in:
parent
a55d74b994
commit
0b7b6f09d1
@ -764,6 +764,10 @@ gIsProtDOS
|
||||
!byte FALSE ; 0=true, 1=false
|
||||
; set after reading T00
|
||||
|
||||
gOnAClearDayYouCanReadForever
|
||||
!byte FALSE ; 0=true, 1=false
|
||||
; compile-time flag, no way to change at runtime
|
||||
|
||||
!source "applyglobals.a"
|
||||
!source "universalrwts.a"
|
||||
LastMover
|
||||
|
@ -19,9 +19,14 @@ ReadSector
|
||||
lda gIsProtDOS
|
||||
beq _protread
|
||||
|
||||
setuprwts
|
||||
ldy #<gRWTSParams
|
||||
lda #>gRWTSParams
|
||||
callrwts jsr $FF00 ; modified at runtime (see Inspect1)
|
||||
bcc endread
|
||||
lda gOnAClearDayYouCanReadForever
|
||||
beq setuprwts
|
||||
endread
|
||||
rts
|
||||
|
||||
;
|
||||
@ -54,6 +59,10 @@ go
|
||||
lda #<gRWTSParams
|
||||
ldy #>gRWTSParams
|
||||
jsr $BA00 ; note non-standard entry point
|
||||
bcc endprotread
|
||||
lda gOnAClearDayYouCanReadForever
|
||||
beq go
|
||||
endprotread
|
||||
rts
|
||||
|
||||
gRWTSParams ; used to read each sector
|
||||
|
@ -179,7 +179,7 @@ StringTable
|
||||
; can be set directly before calling PrintByID.
|
||||
;
|
||||
header
|
||||
!text "Passport by 4am 2017-01-11",00
|
||||
!text "Passport by 4am 2017-01-14",00
|
||||
mainmenu
|
||||
!text "________________________________________",$8D,$8D,$8D,$8D,$8D,$8D,$8D
|
||||
!text " "
|
||||
|
Loading…
x
Reference in New Issue
Block a user