; SUBJECT : BYE510 FIX
;
; FROM : IRV HOFF
;
; DATE : 4 AUG 86
;
;
; NOTE TO SYSOPS: You may wish to put this little
; file in your master BYE510.LBR so
; it will be available to anybody
; downloading that file.
;
;
; Several Sysops have mentioned when using BYE510 they were unable
; to properly operate their local keyboard. The fix involves (1) moving
; three lines in the MINP2: area and (2) adding three lines plus a new
; label in the MSTAT: area.
;
; The problem occurred when those routines were altered to provide
; proper timeout with the METAL BBS program when nobody had typed on the
; remote keyboard for some time. METAL was looping while waiting for a
; status bit to go high indicating a character could be obtained. The
; BYE program(s) had been looping until the character was received. The
; METAL program could thus hang up the system for long periods of time
; if nobody was typing at the other end.
;-----------------------------------------------------------------------
; CHANGE 1
;-----------------------------------------------------------------------
;
MINP2:
;;; CALL CONSTAT ; Check for console input =>DELETE
;;; ORA A ; Got console input? =>DELETE
;;; JNZ CONIN ; Yep, get the console character=>DELETE
CALL MSTAT ; Nope, check for modem input
ORA A ; Got modem input?
JZ MINP2 ; Nope, loop again
CALL CONSTAT ; Check for console input => ADDED
ORA A ; Got console input? => ADDED
JNZ CONIN ; Yep, get the console character=> ADDED
MINP3: CALL MDINP ; Yep, get modem character
;-----------------------------------------------------------------------
; CHANGE 2
;-----------------------------------------------------------------------
;
; Modem status test and no-activity timer routine
;
MSTAT: IF NOT CPM3
CALL BDCHEK ; Set 6 to safety
ENDIF ; NOT CPM3
;
CALL CONSTAT ; Check local keyboard status => ADDED
ORA A ; => ADDED
JNZ MSTAT0 ; => ADDED
LDA MDMOFF
ORA A
MVI A,0
RNZ ; Don't let remote input while modem is
; Muted
CALL CHECK ; Check for carrier lost
CALL MDINST ; Get modem input status
ORA A ; Character available?
JZ MSTAT1 ; Nope
;
MSTAT0: ; => LABEL ADDED
PUSH PSW ; Yep, save return status
XRA A ; Clear no-activity flag
STA MSFLAG
POP PSW ; Restore return status
RET ; And return
;
MSTAT1: LDA MSFLAG ; Get the no-activity flag
