Date   : Fri, 28 Dec 1984 08:21:00-EST
From   : "Robert L. Plouffe" <PLOUFF@mit-mc.ARPA>
Subject: modm700 patches

The following corrected file replaces the one announced
previously.  It will be in SIMTEL20 at micro:<cpm.modem7>.

DO NOT USE THE ONE PREVIOUSLY ANNOUNCED.  THE ADDRESSES WERE
OFF BY 5 BYTES IN SEVERAL PLACES BECAUSE I HAD AN EARLY COPY OF
MODM700 THAT DID NOT MATCH THE ONE AT SIMTEL20.

;              PAT700V2.ASM

;These patches should be made to MODM700 to obtain the results
;described.  They were previously described as patches to MDM730
;in the file PAT730V8.ASM and were not done in the source code
;for MODM700.  It appears that all of the other patches in PAT730
;were included properly. The object code addresses may have changed
;from MDM730 to MODM700 so use those given below only for MODM700.
;                      ....    Bob Plouffe   12/28/84

TRUE    EQU    0FFH
FALSE   EQU    0

MAXWAIT         EQU    16              ;USE AT LEAST A '5' HERE.
RUB     EQU    7FH
TERM    EQU    1618H
MENU    EQU    32EDH

RUBCON  EQU    TRUE            ;want rubout to go to console?
UNDO$J  EQU    TRUE            ;set to TRUE to restore the 'T'
                               ;option so that remote end doesn't
                               ;automatically come up in terminal
                               ;mode at the end of a file transfer
;*************************************************************
;
;This restores the feature that allows the RUBOUT character to
;go to the console if you desire it.  Code was added in MDM730
;that prevented rubout being sent to console in terminal mode.
;
;In the routine TERML
       ORG     1F0FH
       IF      RUBCON
       DB      0,0,0,0,0       ;deletes rubout filter
       ENDIF

       IF      NOT RUBCON
       CPI     RUB
       JZ      TERM
       ENDIF

;***********************************************************
;THIS ONE CONTRIBUTED ANONYMOUSLY AS undo-j.asm AND INCLUDED
;HERE AS AN ADDITIONAL OPTION.
;To undo the 'J' option and restore the 'T' option as it has
;always been. Set UNDO$J to TRUE to enjoy this option.  Irv
;never did change the help screens to describe his 'J' option
;anyhow.  The 'T' option is still the one described there.

;The following code is in the DONETC routine:
       ORG     2AFBH
       IF      UNDO$J
       JNZ     MENU
       ENDIF
       ;
       IF      NOT UNDO$J
       JZ      MENU
       ENDIF

; and at the following storage locations near the end of the file.
       ORG     4952H
       IF      UNDO$J
       DB      'T'
       ENDIF
       ;
       IF      NOT UNDO$J
       DB      'J'
       ENDIF

       ORG     495FH
       IF      UNDO$J
       DB      'T'
       ENDIF
       ;
       IF      NOT UNDO$J
       DB      'J'
       ENDIF

;
;*******************************************************************
;This patch fixes a bug found by Ron Fowler that causes the wrong
;file to be erased in the directory when overwriting existing files
;in batch mode.
;..in the routine at CKCPM2:
       ORG     2238H
       NOP                     ;These 2 bytes replace 'CPI  0FFH'
       INR     A

;*******************************************************************
;This patch makes the program MUCH more tolerant of network or
;transmission delays such as found in packet switched nets (ARPANET)
;as well as on satellite communication links.  Do not use a value for
;MAXWAIT less than 5 (5 seconds) and even as high as 16 seconds is ok
;which will then tolerate some of the large throttling delays often
;encountered.

       ORG     1B8FH
       MVI     B,MAXWAIT

       ORG     1BF3H
       MVI     B,MAXWAIT

       ORG     1C0CH
       MVI     B,MAXWAIT

       ORG     1CA0H
       MVI     B,MAXWAIT

       ORG     1D03H
       MVI     B,MAXWAIT

       ORG     240AH
       MVI     B,MAXWAIT

       ORG     2413H
       MVI     B,MAXWAIT

       ORG     245EH
       MVI     B,MAXWAIT

       ORG     2477H
       MVI     B,MAXWAIT

       ORG     2496H
       MVI     B,MAXWAIT

;*******************************************************************
       ;the
       END