; ; ======================================================== ; KMDC-1.ASM - MB-KMD patch file for the D.C. HAYES MODEM ; ======================================================== ; ; ; ============= ; Introduction: ; ============= ; ; This file adapts any version of MB-KMD to run with the D.C. Hayes modem. ; ; To use, first edit any options desired into the mainline source code of ; the transfer program, then assemble with ASM or MAC to produce a HEX file. ; ; Then edit this file as needed (check the CONOUT routine if you want to ; locally see file transfer time and the record count while programs are ; being sent). Then assemble this overlay with ASM or MAC. ; ; Now merge the two .HEX files using MLOAD.COM (available on most RCP/M ; systems using the command: ; ; MLOAD KMD=MB-KMD,KMAC-1 ; ; Then place the resulting .COM file on your system where it is accessible ; from any drive/user area (usually A0:) ; ; ; =============== ; Update History: ; =============== ; ; 08/21/86 - Edited for inclusion in MBKMDOVL.LBR - Bob Kramer ; 08/09/86 - Inspected for MB-KMD compatibility - Michael Conley ; 11/17/83 - Renamed to XMDC-1.ASM - Irv Hoff ; 10/22/83 - Updated to XMODEM77 - Irv Hoff ; 04/04/83 - Updated to XMODEM74 - Irv Hoff ; 03/17/83 - Updated to XMODEM73 - Irv Hoff ; 03/17/83 - Updated to XMODEM72 - Irv Hoff ; 03/15/83 - Updated to XMODEM71 - Irv Hoff ; ; 03/07/83 Added instructions on how to adapt this file to XMODEM70.COM. ; Standardized the format. Added automatic MSPEED from "BYE" ; program. Added CONOUT information. Adapted from XM70PMMI. ; - Irv Hoff ; ; ; ============== ; YES: EQU 0FFH NO: EQU 0 ; MODDATP: EQU 80H ; Data in port MODDATO: EQU MODDATP ; Data out port MODCTLP: EQU MODDATP+2 ; First control/status port MODCTL2: EQU MODDATP+1 ; Second control/status port MODSNDB: EQU 2 ; Bit to test for send MODSNDR: EQU 2 ; Value when ready MODRCVB: EQU 1 ; Bit to test for receive MODRCVR: EQU 1 ; Value when ready MODDCDB: EQU 40H ; Carrier detect bit MODDCDA: EQU 40H ; Value when active MODPARE: EQU 04H ; Value for parity error MODOVRE: EQU 10H ; Value for overrun error MODFRME: EQU 08H ; Value for framing error ; LSPEED: EQU YES ; Yes, using 'BYE' with speed selection ; No, using 'SPEED' manual selection MSPEED: EQU 3CH ; Location of baud rate factor (set by ; 'BYE') set location in 'BYE' to agree. ; 3DH and 3EH often used by newer versions ; of 'ZCPR'. XSPEED: EQU 1 ; Speed for file time transfer without ; Auto-set. use one of the following: ; 0=110 1=300 2=450 3=600 4=710 5=1200 BASE: EQU 100H ; Start of CP/M normal program area ; ; ; =========== ; Jump table: ; =========== ; ; The jump table must be in exactly the same sequence as the one in MB-KMD. ; Note the ORG of 103H - This jump table has no jump to 'BEGIN'. ; ORG BASE+3 ; Start after 'JMP BEGIN' ; CONOUT: JMP 00000H ; Must be 00000h if not used, see below PMINIT: JMP MINIT ; Initialization routine (if needed) PUNINIT: JMP UNINIT ; Undo whatever 'MINIT' did (or return) PSENDR: JMP SENDR ; Send character (via pop psw) PCAROK: JMP CAROK ; Test for carrier PMDIN: JMP MDIN ; Receive data byte PGETCHR: JMP GETCHR ; Get character from modem PRCVRDY: JMP RCVRDY ; Check receive ready PSNDRDY: JMP SNDRDY ; Check send ready PSPEED: JMP SPEED ; Get speed value for file transfer time PEXTRA1: JMP EXTRA1 ; Extra for custom routine PEXTRA2: JMP EXTRA2 ; Extra for custom routine PEXTRA3: JMP EXTRA3 ; Extra for custom routine ; ; ; ================================================================ ; To Display the Record Count on the CRT During Program Transfers: ; ================================================================ ; ; This one addition requires some work on the part of the user. When ; "BYE" is added, CP/M is normally moved lower to accomodate the new ; program above CP/M. Whenever BYE is called to enable the RCPM capability, ; it steals some of the addresses contained in the BIOS jump vector table. ; In order to display on the CRT during program transfers you need to get ; into the BIOS console output routine directly, else what is being ; displayed also tries to go out the modem. This is a big NO-NO at that ; time. (This cannot be done automatically by MB-KMD, since BYE has ; already taken the address we need to find, by the time MB-KMD is auto- ; matically activated by the remote station.) ; ; So, with the disk containing BYE, but prior to activating BYE, do ; this: ; 1) Cold reboot to move CP/M (and BIOS) to the new area needed ; when BYE is activated on the same disk. ; 2) Use DDT and dump the area from 0000H to 0002H. This gives ; the warm reboot address in BIOS. ; 3) Add 9 Bytes to that address to get your console output jump ; vector. ; 4) Pick off the address contained in the jump vector and install ; that in "CONOUT", below. Example of one system in use: ; ; FIRST, COLD REBOOT WITH DISK CONTAINING "BYE" ; ; 0000 C3 03 E0 (location of warm reboot on disk with BYE ; ; PRIOR TO ACTIVATING BYE BUT ON SAME DISK ; ; E003 C3 E9 E0 (BIOS warm reboot jump vector on this disk) ; E006 C3 00 E9 (BIOS get console status routine) ; E009 C3 B7 E1 (BIOS console input routine) ; E00C C3 D4 E1 (BIOS console output routine) ; ; The address we need is thus E1D4. Put that below, in ; our example it would be: CONOUT JMP 0E1D4H ; ; ;CONOUT: JMP 00000H ; If you wish to show the record count ; ; during program transfer, fill in this ; ; address at 'CONOUT' above. ; ; - Irv Hoff ; ; ; ========================================= ; --> CAROK - check for presence of carrier ; ========================================= ; CAROK: MVI A,MODCTL2 IN MODCTL2 ; Read modem status ANI MODDCDB ; Get carrier detect bit CPI MODDCDA ; Test bit RET ; ; ; ============== ; EXTRA1: RET ; For later use EXTRA2: RET ; For later use EXTRA3: RET ; For later use ; ; ; ========================================== ; --> GETCHR - get a character, same as MDIN ; --> MDIN - get a character, same as GETCHR ; ========================================== ; GETCHR: MDIN: MVI A,MODDATP IN MODDATP ; Get character from data in port RET ; ; ; ============== ; MINIT: RET ; No initialization required ; ; ; ================================ ; --> RCVRDY - check receive ready ; ================================ ; ; RET with JZ = character available. Return with error code in A-reg. ; RCVRDY: MVI A,MODCTL2 IN MODCTL2 ; Get modem status PUSH B ; Save scratch register PUSH PSW ; Check error status ANI MODFRME+MODOVRE+MODPARE MOV B,A ; Save it for a moment POP PSW ANI MODRCVB ; Isolate ready bit CPI MODRCVR ; Test it MOV A,B ; Get the error code char. back POP B RET ; ; ; ========================== ; --> SENDR - send character ; ========================== ; SENDR: POP PSW ; Get the character back OUT MODDATO ; Send it to the modem output RET ; ; ; =================================== ; --> SNDRDY - check if ready to send ; =================================== ; SNDRDY: MVI A,MODCTL2 IN MODCTL2 ; Get status byte ANI MODSNDB ; Mask off bit to be tested CPI MODSNDR ; Set status flag RET ; ; ; ==================================================== ; --> SPEED - sets the time shown for program transfer ; ==================================================== ; SPEED: IF LSPEED LDA MSPEED ; Get index for baud rate from 'BYE' ENDIF ; IF NOT LSPEED MVI A,XSPEED ; Get index for baud rate from 'XSPEED' ENDIF ; RET ; ; ; ============== ; UNINIT: RET ; Not initialized, so no 'UN-INITIALIZE' ; ; ============== ; ; END