Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!watmath!clyde!floyd!vax135!cornell!uw-beaver!tektronix!hplabs!sri-unix!W8SDZ@Simtel20.ARPA From: W8SDZ@Simtel20.ARPA Newsgroups: net.micro.cpm Subject: PAT730V2.ASM - short file for MDM730 Message-ID: <343@sri-arpa.UUCP> Date: Tue, 3-Apr-84 01:42:00 EST Article-I.D.: sri-arpa.343 Posted: Tue Apr 3 01:42:00 1984 Date-Received: Sat, 31-Mar-84 09:16:29 EST Lines: 195 From: Keith Petersen 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