mirror of
https://github.com/a2-4am/passport.git
synced 2024-12-22 04:29:59 +00:00
remove unused global
This commit is contained in:
parent
43090d530f
commit
a673379742
@ -58,12 +58,6 @@
|
||||
!byte FALSE ; target type (disk drive, CFFA virtual drive, file on hard disk)
|
||||
; see apidefs.a for values
|
||||
|
||||
;gOnAClearDayYouCanReadForever
|
||||
!byte FALSE ; 0=true, 1=false
|
||||
; retry reads with a captured RWTS forever,
|
||||
; instead of falling back to built-in RWTS
|
||||
; compile-time flag, no way to change at runtime
|
||||
|
||||
;gIsRW18
|
||||
!byte FALSE ; 0=true, 1=false
|
||||
; reset before each operation
|
||||
|
@ -193,8 +193,7 @@ gMECCFastloadType = gIs13Sector-$01 ; byte
|
||||
;gIsRW18 is a special case whose ID is not in the regular inspection path
|
||||
gIsRW18 = gMECCFastloadType-$01 ; byte
|
||||
|
||||
gOnAClearDayYouCanReadForever = gIsRW18-$01 ; byte
|
||||
gTargetType = gOnAClearDayYouCanReadForever-$01 ; byte
|
||||
gTargetType = gIsRW18-$01 ; byte
|
||||
gRAMDiskRef = gTargetType-$01 ; byte
|
||||
gHardDiskRef = gRAMDiskRef-$01 ; byte
|
||||
gDisplayBytes = gHardDiskRef-$0A ; 10 bytes
|
||||
@ -296,7 +295,6 @@ ConstructStandardDelivery = jConstructStandardDelivery
|
||||
!warn "gIsInfocom18=",gIsInfocom18
|
||||
!warn "gIs13Sector=",gIs13Sector
|
||||
!warn "gIsRW18=",gIsRW18
|
||||
!warn "gOnAClearDayYouCanReadForever=",gOnAClearDayYouCanReadForever
|
||||
!warn "gTargetType=",gTargetType
|
||||
!warn "gRAMDiskRef=",gRAMDiskRef
|
||||
!warn "gHardDiskRef=",gHardDiskRef
|
||||
|
13
src/rwts.a
13
src/rwts.a
@ -43,14 +43,9 @@ ReadSector
|
||||
|
||||
lda gIsProtDOS
|
||||
beq _protread
|
||||
@go
|
||||
ldy #<gRWTSParams
|
||||
lda #>gRWTSParams
|
||||
jsr jCallRWTS
|
||||
bcc +
|
||||
lda gOnAClearDayYouCanReadForever
|
||||
beq @go
|
||||
+ rts
|
||||
jmp jCallRWTS
|
||||
|
||||
;
|
||||
; "Protected.DOS" has enough differences that we just
|
||||
@ -80,11 +75,7 @@ _protread
|
||||
sta $BF2C ; execution falls through here
|
||||
@go lda #<gRWTSParams
|
||||
ldy #>gRWTSParams
|
||||
jsr $BA00 ; note non-standard entry point
|
||||
bcc +
|
||||
lda gOnAClearDayYouCanReadForever
|
||||
beq @go
|
||||
+ rts
|
||||
jmp $BA00 ; note non-standard entry point
|
||||
|
||||
;-------------------------------
|
||||
; PreReadSector
|
||||
|
Loading…
Reference in New Issue
Block a user