@MSGID: 1@dont-email.me> 816d6572
@REPLYADDR dxf <dxforth@gmail.com>
@REPLYTO 2:5075/128 dxf
@CHRS: CP866 2
@RFC: 1 0
@RFC-Message-ID: 1@dont-email.me>
@TZUTC: 1000
@PID: Mozilla Thunderbird
@TID: FIDOGATE-5.12-ge4e8b94
; ZPM3`s Random Read bug fix applied to DRI BDOS30.ASM
http://cpmarchives.classiccmp.org/cpm/mirrors/www.triton.vg/tesseract/pds/093/zp
m3s.arc
; NOTE: ONLY BRIEFLY TESTED

; Extent is in same directory fcb
push b! call get$dir$ext! pop b
cmp c
jz rrfix;*** in last extent: treat as new area!
jnc rseek2 ; jmp if dir$ext > ext
pop d! push d! inr e! jnz rseek2 ; jmp if write fx
inr e! pop d! jmp set$lret1 ; error - reading unwritten data
rrfix:
pop d! push d;*** get&save read flag (in E)
inr e! jnz rseek2;*** are we reading?  no: ok, open this extent
lhld info! xchg! jmp ranclose;*** yes: close extent and open
rseek2:

Additions are marked ***.

To verify the random read bug is quashed see rrbug.zip
https://drive.google.com/drive/folders/1kh2WcPUc3hQpLcz7TQ-YQiowrozvxfGw


--- Mozilla Thunderbird
 * Origin: A noiseless patient Spider (2:5075/128)
SEEN-BY: 5001/100 5005/49 5015/255 5019/40 5020/715
848 1042 4441 12000
SEEN-BY: 5030/49 1081 5075/128
@PATH: 5075/128 5020/1042 4441