remove unused global

This commit is contained in:
4am 2021-07-11 14:18:34 -04:00
parent 43090d530f
commit a673379742
3 changed files with 3 additions and 20 deletions

View File

@ -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

View File

@ -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

View File

@ -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