Date   : Tue, 27 Mar 1984 23:42:00 MST (Tue)
From   : Keith Petersen <W8SDZ@Simtel20.ARPA>
Subject: PAT730V2.ASM - short file for MDM730

I don't normally send source code files as mail, but in view of the
great interest in MDM730, I feel it's of sufficient interest.
--Keith
;      PAT730V2.ASM   --Bob Plouffe  3/28/84
;      (Now includes the Hoff patches for BELL and RUB)

;This patch overlay file will restore the capability to get
;progress reports at a remote-end that answers under BYE and
;when the "Q" switch is not used on the command line.  The
;problem was caused when the loop counts in HSNAK and WAITNLP
;were reduced to accomodate the longer max wait times.  The
;solution is to change wait-times and loop-count back again.
;Longer max wait times to accomodate network delays are not
;needed here because of the time spent in the loop anyhow.
;Explanation: Characters sent from the other end because of
;the operation of BYE are gobbled by the loops so advance the
;loop counter and we can run out of loop before the end of 
;verbose reporting - so never get the correct control character.

;Also changed the max wait times at several other locations
;including inside the receive-sector loop.  This SUBSTANTIALLY
;improves performance on networks with packet delays.


;Just assemble this file as an ASM file and overlay the HEX file
;on MDM730.COM with DDT  and SAVE 73 MDM730.COM.   If you have
;the source code, you should be able to locate the changes at
;the labels shown below.   It is NOT INTENDED to change the
;revision number of MDM730 at this time.  If it becomes really
;NECESSARY at a later date to issue a new revision, then the
;revisor should include these changes.  Treat this patch file
;as a customization just like when you use one of the patch
;overlays for a specific hardware configuration.

;This file now also includes the Hoff patches for BELL and RUB
;and can be conditionally assembled for the way you want it.

;CHECK TO SEE IF YOUR MDM730.COM ALREADY HAS THESE BYTES CHANGED.



TRUE   EQU     0FFH
FALSE  EQU     0

;Set both of these byes FALSE if you wish to have console bell
;continuously beep until a keyboard character is hit after doing
;a dial retry and a connection occurs.  Set ONERING to TRUE if
;you want only one beep to occur and NORING to TRUE if you don't
;want any beeps at all.   DON'T set both of these bytes to TRUE.


;***********************************************************
ONERING        EQU     FALSE
NORING EQU     FALSE
;
BKSP2RUB EQU   FALSE   ;want to convert BACKSP key to RUB?

;setting all three of these to false and then overlaying onto
;any copy of MDM730.COM (SIMTEL20 & CIS versions) will yield
;all of the fixes as it was intended for release.
;***********************************************************





;In routine SENDC2
       ORG     1782H
       MVI     E,120   ;INSTEAD OF 25

;In routine SENDFN
       ORG     1BB2H
       MVI     E,120

;In routine SCKSER
       ORG     1C56H
       MVI     E,120

;In routine HSNAK
       ORG     1D51H
       MVI     E,180   ;INSTEAD OF 40
;In routine HSNAK1
       ORG     1D5FH
       MVI     B,1     ;INSTEAD OF 5


       ORG     1E4AH
;This replaces the SENDNOW routine as Irv had done it.
       EXITTEST EQU    1E79H
       SENDRDY  EQU    1E41H
SENDNOW:CALL   EXITTEST    ;GOBBLE CHARACTER, WANT TO QUIT?
       CALL   SENDRDY     ;READY TO SEND A CHARACTER YET?
       JNZ    SENDNOW     ;IF NOT WAIT
       RET
       

;In routine RCVSOH
       ORG     240AH
       MVI     B,5     ;INSTEAD OF 1
       ; 
       ORG     2413H
       MVI     B,5     ;was 1


       ORG     242AH   ;This one was not in Irv's release.
                       ;Delete if you wish to.
       DB      0,0     ;slight format improvement here for:
                       ;'++ Bad record # in header ',0
 
;In routine RCVCHR
       ORG     245EH
       MVI     B,5     ;was 1
       ;
       ORG     2477H
       MVI     B,5     ;was 1

;In routine RCVCRC2
       ORG     2496H
       MVI     B,5     ;was 1


;In routine WAITNLP
       ORG     2988H
       MVI     B,1     ;INSTEAD OF 5           
;



;Options below are by Irv Hoff modified for inclusion in this
;patch overlay file by Bob Plouffe:

;     Some people have mentioned they are annoyed with the bell ringing
;constantly after a connect when auto-dialing with MDM730.  The following
;two small changes will stop that:

;
;1) WILL ONLY RING ONE TIME then go to terminal mode after announcing it
;   has connected:

       IF      ONERING
       ORG     06EAH
       DB      0C3H,7EH,19H
       ENDIF

;2) WILL NOT RING AT ALL, but go right to terminal mode after announcing
;   it has connected.

       IF      NORING
       ORG     06E3H
       DB      00,0CEH,73H,19H
       ENDIF



;     Several people were having trouble getting normal backspace with
;their rub (delete) key.  MDM730 offers the option of changing rub to
;backspace.

;      1)  Can preset the default option so rub comes up as backspace
;              (or preset the default so it comes up as normal rub)
;      2)  At any time use the menu option to change it temporarily
;              to the opposite configuration.


;     Some mainframes will not accept a normal backspace and require a
;rub (delete) character to provide a type of "forward backspace".  If
;you need this feature and your terminal does not have a rub (delete)
;key, or if inconvenient to use, then set BKSP2RUB to TRUE

       IF      BKSP2RUB
       ORG     1629H
       CPI     7FH     ;RUB
       ;       ....
       ORG     1635H   
       MVI     A,08H   ;BCKSPC
       ENDIF

       IF      NOT BKSP2RUB
       ORG     1629H
       CPI     08H
       ;       ....
       ORG     1635H
       MVI     A,7FH
       ENDIF

;     (The menu will still indicate you are changing rub to backspace,
;ignore this statment and realize just the opposite is happening with
;this change.)           - Irv Hoff


       ;the
       END