Note : These fixes will be in the next NUBYE release (tmb)
From : Bob Clyne CoSYSOP Royal Oak RCP/M (313-759-6569)
Date : 09/21/86
Subject: NUBYE v1.01 bug fixes
I have found two bugs in NUBYE101 in addition to the one addressed in
NUBY-FIX.001 -- both are dependent on the particular equate settings.
======
FIX #1
The first, and most obvious, bug is in the routine RDBYTE. There is a
semicolon missing from in front of "Have to read a sector". This will only
show up if WELFILE is true. [RDBYTE: comes after IMQUIT: -- tmb]
======
FIX #2
The second bug is less obvious. In the routine IMQUIT if IMAT is true
and DOATZ, NOATA, and OFFHK are all false then execution will fall through
to IMSEND.
Lines marked with "==>>" are new/modified -- either make the individual
changes shown, or insert this entire section of code and delete the old
section in your copy of NUBYE.
;
; De-initiaize the modem. When the operator uses CTL-C followed by any-
; thing but "R", this call will return the modem to default settings.
;
IMQUIT: LXI H,LFMSG
CALL PRINTL
CALL DLP ; Some need this delay
CALL EATALL ; ...and this garbage collection
ENDIF ; IMAT
;
IF (IMAT AND DOATZ) AND (NOT OFFHK)
LXI H,IMATZ
CALL IMSEND ; Send ATZ message to modem
CALL DLP
CALL EATALL
ENDIF
;
IF IMAT AND (DOATZ OR NOATA) AND (NOT OFFHK)
LXI H,IMUSR
CALL IMSEND ; Send ATS0=0 to modem
;==>> JMP EATALL <<== delete this line
ENDIF
;
IF IMAT AND OFFHK
LXI H,IMATH1
CALL IMSEND ; Send ATH1 to the modem
;==>> JMP EATALL <<== delete this line
ENDIF
;
;==>> Next 2 lines are NEW
IF IMAT
JMP EATALL ;Replaces final 2 JMPs deleted above
;==>> end of NEW code
;
; Send a command string to the modem. (If ECHO) Verify, reset the modem
; and resend string if echo fails.
;
;==>> IF IMAT <<== delete this line
IMSEND: PUSH B ; Save 'BC' registers
SHLD ADDSTR ; Save start of command string
