CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / cpm / modems / modem7 / m7sy-3.asm < prev next >

Wrap

Assembly Source File | 1994-07-13 | 20.9 KB | 544 lines

; M7SY-3.ASM - SANYO MBC-1000 computer overlay file for MDM722+. 2/17/84 ; ; You will want to look this file over carefully. There are a number of ; options that you can use to configure the program to suit your taste. ; ; This file adapts the Sanyo MBC-1000 computer to the modem program. ; ; ; THIS MODIFICATION MAKES USE OF TIMER 2 ON THE 8253 TIMER IC (IC4) ; OF THE SERIAL I/O BOARD OF THE SANYO MBC-1000. ; ; To use this program, the serial I/O board must be modified as follows: ; ; 1. Cut etch from IC18 Pin 1 to JP2 Pin 8. ; 2. Install jumper from IC18 Pin 1 to IC4 Pin 18. ; 3. Install jumper from IC4 Pin 17 to JP2 Pin 8. ; 4. Install jumper from IC4 Pin 16 to IC4 Pin 14. ; 5. Move jumper strap to JP2 Pin 8 for programmable baud rate, other ; pins (1-7) can still be used for standard baud rate selections. ; 6. Hardware modification is now complete. ; ; *** THIS VERSION SETS UP THE USART FOR 8 BITS, NO PARITY, 1 STOP BIT *** ; ; Edit this file for your preferences then follow the "TO USE:" example ; shown below. ; ; Use the "SET" command to change the baudrate when desired. It starts ; out at 1200 baud when the program is first called up. Because of tem- ; perature and component variations, you mave have to alter the timing ; parameters in OK300 and OK1200, plus or minus 1 or 2 numbers, if CRC ; errors occur to frequently during transmission and reception. ; ; = = = = = = = = = = = = = = = = = = ; ; 02/17/84 - Renamed M7SY-3.ASM with improvements on 3 bugs. (1) Use ; MDM722 or later to eliminate the problems with Contol X when ; dialing. (2) Altered the parameter for 300 baud set for 0240h ; to 0241h to eliminate overwhelming CRC errors during Send. ; (3) Irv Hoff et al take note. For some reason, the Sanyo's ; lock up after a connect. When the message "hit any key to ; stop the bell" occurs, there is a subsequent CALL STAT and ; CALL KEYIN that gets the Sanyo's in a tight loop. Change ; the CALL STAT to a JMP RETURN (goes directly to the Terminal ; mode without waiting for a keystroke) to avoid the problem ; while waiting for someone more astute than me to fix the bug. ; I even tried patching in my specific BIOS addresses in a num- ; ber of places, figuring the problem was in INITADR--but to no ; avail. ; ; Bob Sandel Canton, MI (leave msg with TCBBS 1-313-846-6127 ; or Keith Peterson's Royal Oak CP/M 1-313-759-6569 ) ; ; ; 02/01/84 - Blended MDM711SN w the top of MDM719.ASM ; - Made Default Baud Rate 1200; Added back LOADBD to update MSPEED ; - ^P back on at LSTTST;changed LOGON back to ^L;set TOUCHPULSE ; - back to P=Pulse;added cosmetic remarks;BUFSIZ=XFRSIZ=16K ; - Bob Sandel Canton, MI ; ; 08/01/83 - Altered MDM711NE for the Sanyo MBC-1000 ; computer using an external modem - Dave Hardy ; ; 07/01/83 - Revised for use with MDM711 - Irv Hoff ; 06/22/83 - Revised for use with MDM710 - Irv Hoff ; ; = = = = = = = = = = = = = = = = = = ; VERSION: EQU 719 ;MDM719 (01/22/84) -- CP/M MODEM PROGRAM ; ; COPYRIGHTED 1984 BY IRV HOFF (TO DETER COMMERCIAL USE) ; ; THIS TELEPHONE MODEM PROGRAM USES THE CHRISTENSEN PROTOCOL. IT HAS ; BOTH CHECKSUM AND 'CRC' CAPABILITY FOR ERROR-DETECTION. IT SUPPORTS ; DIALING AND AUTO-REDIALING FOR THE S-100 PMMI, HAYES SMARTMODEM 300 ; AND 1200 AND U.S. ROBOTICS MODEMS. IT SUPPORTS UP TO TWO ALTERNATE ; DIALING SYSTEMS SUCH AS 'MCI', 'SPRINT', ETC. IT IS COPYRIGHTED TO ; DETER COMMERCIALISM. IT MAY BE USED FOR NON-PROFIT PURPOSES OR CAN ; BE ALTERED OR UPDATED IF AGAIN RELEASED TO THE PUBLIC DOMAIN. ; ; OTHER EXTERNAL MODEMS MAY BE READILY USED, ALTHOUGH MANUAL DIALING ; MAY BE NECESARY. OVERLAYS HAVE BEEN MADE ALLOWING RAPID ADAPTATION ; TO VARIOUS COMPUTERS. THE PROGRAM CONFORMS READILY TO NUMEROUS I/O ; DEVICES INCLUDING THE 2661, 8250, 8251, Z80-SIO, ETC. ; ; NOTE: Current version (722+)is 71 sectors long. Use this figure with ; DDT, etc. to merge the appropriate overlay, regardless of what ; the overlay may call for (such as 66 sectors for overlays made ; during MDM712 era or 69 sectors during the MDM 719 era. ) ; ;NOTE: M7NM-6.ASM (or later if applicable) must be used with ; this version. That has the 'SAVSIZ' byte just prior ; to the 'NUMBLIB:' phone number library. ; ;*********************************************************************** ; If you improve or modify this program please attempt to upload to TCBBS ; Dearborn, MI (313) 846-6127. If there is insufficient disk space, ; leave a message on MINICBBS there. ; ; ; 02/01/84 ******* WARNING Some Bugs remain TO USE ANCHOR XII ******* ; Still having trouble with CAL (lockup after connect); Can receive ; at 300 & 1200 but can only send at 1200 baud. Control X does ; does not really terminate dial. ATDP, manual dial, works fine!! ; If you work it out (leave msg w TCBBS 1-313-846-6127) Bob Sandel ; ; 01/22/84 Fixed Irv's error in GETACK routine which prevented the ; MDM719 robust improvement (added by Bob Plouffe) from working. ; Changed ACKNAK to NO so default will require valid NAK ; rather than non-ACK. This is part of the robust improvements, ; NOT because of any special ArpaNet requirement. Changed ; SHOWHEX to true for distribution version so users would have ; HEX and DECIMAL reporting while transferring files (most users ; have told me they prefer to see both). Changed PMMI dialing ; pulse default to 10pps which most exchanges will accept. ; (This can be set to other pulse rates in the user overlay). ; - Keith Petersen, W8SDZ ; ;*********************************************************************** ; ; GENERAL INTEREST: When transferring files modem-to-modem, the batch ; mode is extremely useful. It allows automatic transmission of nu- ; merous files while the operator at the receiving end does virtually ; nothing. It can be used for single files or with wildcards. With ; normal single program transfer, the receiving end switches from CRC ; to checksum in one minute and times out completely in 100 seconds. ; (In batch mode it times out in 3 minutes for receive.) This offers ; ample opportunity to transfer programs between individuals. ; ;*********************************************************************** ; ; 01/21/84 NUMBLIB now automatically starts on even page. 0D00H for ; MDM718 this version. Made the buffer size for file transfer inde- ; pendent from the buffer size for ASCII capture to disk. It ; had been 16k both since MODEM770. The file transfer size is ; now set to 4k for default. Most systems can easily use 16k ; but some very slow ones may need 8k or 4k. Set via XFRSIZ. ; (May be set with DDT by changing byte just prior to start of ; NUMLIB, which is 0CFFH in this case.) Now recognizes single ; digit result codes for auto-dial modems. Added code for the ; new Anchor modems which recognize busy signals and can start ; a redial immediately. Thanks for ideas from Wayne Masters, ; Ron Fowler, Fred Viles and others. - Irv Hoff ; ; 07/27/83 Added two alternate dialing routines such as MCI and SPRINT. ; MDM712 Fixed "disk space remaining" to read correctly with CP/M+. ; - Irv Hoff ; ; 07/01/83 Changed TERM to allow use of the printer port for modem use. ; MDM711 - Irv Hoff ; ; 06/22/83 MAJOR CHANGE: Added autodialing and automatic continuous ; MDM710 redialing for Hayes Smartmodem 300 or 1200, ; U.S. Robotics in addition to the PMMI modem ; for S-100 computers. - Irv Hoff ; ; 01/01/83 First version. Can be assembled with ASM.COM. (Previously ; MDM700 it was necessary to have the MODEM7.LIB file and use MAC.COM ; to assemble the program.) Selected MDM700 as a new program ; ;*********************************************************************** ; PORT: EQU 0A4H ; Sanyo MBC-1000 Serial Port ; MODCTL1: EQU PORT+1 ;modem STATUS port MODCTL2: EQU PORT+1 ;CHANGED FOR SANYO CONTROL PORT MODDATP: EQU PORT ;modem data port CTIMER: EQU 0A3H ;8253 baud rate counter/timer ; MODRCVB: EQU 02H ;modem receive bit (DAV) MODRCVR: EQU 02H ;modem receive ready MODSNDB: EQU 01H ;modem send bit MODSNDR: EQU 01H ;modem send ready bit ; ; ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; SPECIAL EQUATES FOR PMMI ; BAUDRP: EQU PORT+2 ;modem baud rate port BRKMSK: EQU 0FBH ;mask to set break EVPARMSK: EQU 20H ;mask to set even parity NOPARMSK: EQU 10H ;mask to reset to no parity ODPARMSK: EQU 0CFH ;mask to set odd parity ; ANSWMOD: EQU 1EH ;answer mode ORIGMOD: EQU 1DH ;originate mode WAITCTS: EQU 150 ;number of seconds (x5) to wait for the ;computer to answer after PMMI auto-dial ;100=20 sec, 150=30 sec, 255=51 sec. ;any number 0-255 acceptable ; ; (END OF SPECIAL PMMI EQUATES) ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; YES: EQU 0FFH NO: EQU 0 ; ; BUFSIZ: EQU 16 ;buffer size in Kbytes for ASCII capture to disk ;(16k is one file extent) XFRSIZ: EQU 16 ;file transfer buffer in Kbytes. Do not make ;any larger than BUFSIZ. 16k works fine on all ;but very slowest systems ; BDNMCH: EQU 75H ;bad name match ERRLIM: EQU 10 ;maximum allowable consecutive errors ERRCRC: EQU 6 ;CRC tries, then switches to CHECKSUM LIBLEN: EQU 34 ;length of each phone library entry ; SHOWHEX:EQU YES ;yes, show hex record count - no, do not show ; RUB: EQU 7FH ;rub CRC: EQU 'C' ;requests 'CRC' instead of 'CKSUM' ESC: EQU '['-40H ;^[ = escape SOH: EQU 'A'-40H ;^A = start of header EOT: EQU 'D'-40H ;^D = end of text EXITCHR:EQU 'E'-40H ;^E = exit character ACK: EQU 'F'-40H ;^F = acknowledge OKNMCH: EQU 'F'-40H ;^F = ok name match BELL: EQU 'G'-40H ;^G = bell character BKSP: EQU 'H'-40H ;^H = backspace LF: EQU 'J'-40H ;^J = linefeed CR: EQU 'M'-40H ;^M = carriage return XON: EQU 'Q'-40H ;^Q = XON character XOFF: EQU 'S'-40H ;^S = XOFF character NAK: EQU 'U'-40H ;^U = not acknowledge CANCEL EQU 'X'-40H ;^X = cancel send or receive EOFCHAR:EQU 'Z'-40H ;^Z = end of file ; ; ORG 0100H ; ; DS 3 ; for JUMP START instruction ; ; ; THESE ROUTINES AND EQUATES ARE AT THE BEGINNING OF THE PROGRAM SO ; THEY CAN BE PATCHED BY A MONITOR OR OVERLAY FILE WITHOUT RE-ASSEMBLING ; THE PROGRAM. ; PMMIMODEM: DB NO ;yes=PMMI modem, no=non-PMMI modem SMARTMODEM: DB YES ;yes=HAYES Smartmodem or Anchor Automation Mark XII TOUCHPULSE: DB 'P' ;T=touch, P=pulse (Smartmodem-only) ; CLOCK: DB 40 ;clock speed x .1, up to 25.5 mhz. ;2 MHz=20, 3.68 MH=37, 4 MHz=40, etc. MSPEED: DB 5 ;sets display time for sending a file ;0=110 1=300 2=450 3=600 4=710 ;5=1200 6=2400 7=4800 8=9600 9=19200 BYTDLY: DB 5 ;default time to send character in ;terminal mode file transfer (0-9) ;0=0 delay, 1=10 ms, 5=50 ms, 9=90 ms CRDLY: DB 5 ;end-of-line delay after CRLF in terminal ;mode file transfer for slow BBS systems ;0=0 delay, 1=100 ms, 5=500 ms, 9=900 ms NOOFCOL: DB 4 ;number of directory columns was 5 SETUPTST: DB YES ;yes=non-PMMI setup routine SCRNTEST: DB YES ;yes=if home cursor and clear screen ;routine at CLRSCRN ACKNAK: DB YES ;yes=resend a record after any non-ACK ;no=resend a record after a valid NAK (robust) BAKUPBYTE: DB NO ;yes=make .BAK file CRCDFLT: DB YES ;yes=default to CRC checking ;no=default to Checksum checking TOGGLECRC: DB YES ;yes=allow toggling of Checksum to CRC CONVBKSP: DB NO ;yes=convert backspace to rub TOGGLEBK: DB YES ;yes=allow toggling of bksp to rub ADDLF: DB NO ;no=no LF after CR to send file in ;terminal mode (added by remote echo) TOGGLELF: DB YES ;yes=allow toggling of LF after CR TRANLOGON: DB YES ;yes=allow transmission of logon ;write logon sequence at location LOGON SAVCCP: DB YES ;yes=do not overwrite CCP LOCNXTCHR: DB NO ;yes=local cmd if EXTCHR precedes ;no=not local cmd if EXTCHR precedes TOGGLELOC: DB YES ;yes=allow toggling of LOCNXTCHR LSTTST: DB YES ;yes=allow toggling of printer on/off ;in terminal mode. Set to no if using ;the printer port for the modem XOFFTST: DB YES ;yes=allow testing of XOFF from remote ;while sending a file in terminal mode XONWAIT: DB NO ;yes=wait for XON after sending CR while ;transmitting a file in terminal mode TOGXOFF: DB YES ;yes=allow toggling of XOFF testing IGNORCTL: DB YES ;yes=do not send control characters ;above CTL-M to CRT in terminal mode ;no=send any incoming CTL-char to CRT EXTRA1: DB 0 ;for future expansion EXTRA2: DB 0 ;for future expansion BRKCHR: DB '@'-40H ;^@ = Send a 300 ms. break tone NOCONNCT: DB 'N'-40H ;^N = Disconnect from phone line LOGCHR: DB 'L'-40H ;^L = Send logon LSTCHR: DB 'P'-40H ;^P = Toggle printer UNSAVECHR: DB 'R'-40H ;^R = Close input text buffer TRANCHR: DB 'T'-40H ;^T = Transmit file to remote SAVECHR: DB 'Y'-40H ;^Y = Open input text buffer EXTCHR: DB '^'-40H ;^^ = Send next character ; ; ; Equates used only by PMMI routines grouped together here. ; PULSERATE: DB 250 ;125=20pps dialing, 250=10pps CHGBAUD: DB 'B'-40H ;^B = Used with PMMIMODEM in terminal ;mode to change baud rate on fly ; ; ; Handles in/out ports for data and status ; IN$MODCTL1: IN MODCTL1 ! RET ;in modem control port DS 7 ;spares if needed for non-PMMI OUT$MODDATP: OUT MODDATP ! RET ;out modem data port DS 7 ;spares if needed for non=PMMI IN$MODDATP: IN MODDATP ! RET ;in modem data port DS 7 ;spares if needed for non-PMMI ; ANI$MODRCVB: ANI MODRCVB ! RET ;bit to test for receive ready CPI$MODRCVR: CPI MODRCVR ! RET ;value of receive bit when ready ANI$MODSNDB: ANI MODSNDB ! RET ;bit to test for send ready CPI$MODSNDR: CPI MODSNDR ! RET ;value of send bit when ready ; ; ;====================== SPECIAL PMMI PORTS ============================= ; IN$BAUDRP: IN BAUDRP ! RET ;in baudrate port OUT$BAUDRP: OUT BAUDRP ! RET ;out baudrate port OUT$MODCTL1: OUT MODCTL1 ! RET ;out modem control port #1 OUT$MODCTL2: OUT MODCTL2 ! RET ;out modem control port #2 ; ;================== END OF SPECIAL PMMI PORTS ========================== ; ; LOGONPTR: DW LOGON JMP$DIAL: DS 3 JMP$DISCONNT: DS 3 JMP$GOODBYE: JMP GOODBYE JMP$INITMOD: JMP INITMOD RET ! NOP ! NOP RET ! NOP ! NOP RET ! NOP ! NOP JMP$SETUPR: JMP SETUPR JMP$SPCLMENU: JMP SPCLMENU JMP$SYSVER: JMP SYSVER JMP$BREAK JMP SENDBRK ; ; ; NEXT SIX LINES SHOULD NOT BE CHANGED BY USER OVERLAY AS THESE GO TO ; SPECIFIC LOCATIONS IN THE MAIN PROGRAM, NOT IN THE OVERLAY. ; JMP$ILPRT: DS 3 JMP$INBUF: DS 3 JMP$INLNCOMP: DS 3 JMP$INMODEM: DS 3 JMP$NXTSCRN: DS 3 JMP$TIMER: DS 3 ; ; ; Clear sequences are for Televideo, Lear Siegler, etc. Change to match ; your terminal. (Heath uses ESC 4AH for clear to end of screen, ESC 45H ; to clear screen. Lear Siegler and others use ESC 79H for clear to end ; of screen and ESC 3AH to clear screen.) Room allowed for four bytes. ; (Last zero needed for stopping the string display. Any extra 0's just ; act as NOP's.) ; CLREOS: CALL JMP$ILPRT ;was ILPRT DB 0,0,0,0,0 ;dave hardy had 059h,0,0,0,0 RET ;..... ; ; CLRSCRN:CALL JMP$ILPRT ; was ILPRT DB 1AH,0,0,0,0 ; was 1eh,59h,59h,00 in dave hardy version RET ;..... ; ; ;======================= SIGN-ON MESSAGE ============================== ; ; Send version number and date ; SYSVER: CALL JMP$ILPRT ; was LDA DB ' Sanyo MBC-1000 & Anchor Mark XII modem 1200 Baud' DB CR,LF,cr,lf,cr,lf db 'MDM722.COM--------M7SY-2.HEX-------M7NM-6RS.HEX' db cr,lf,cr,lf ;I use above to track patches: customize at will db 0 ;end of message flag RET ;..... ; SYSVER1:JMP SYSVER ;..... ; ; ;==================== LOGON MESSAGE (IF ANY) =========================== ; ; Insert your logon message here. End with a 0 (for"CALL ILPRT"). ; PMMIusers have 59 bytes available, non-PMMI users have approximately ; 2K bytes available as they can overwrite all the following PMMI rou- ; tines if they wish. This method allows the external overlays to have ; plenty of room. It keeps the phone number library at a fixed location. ; LOGON: DB 'Your Name?',CR,LF DB 0 ;to terminate the logon message ;..... ; ;=========== ANCHOR MARK XII INITIALIZATION ADDED ===================== ; ; Insert your initialization routine here if needed. Can replace the ; following special PMMI area to set speed and auto-dial. Over 950 ; bytes are available for this purpose. (End your routine with a RET.) ; ; ;======================================================================= ; ; This routine allows a 300 ms. break tone to be send to reset some ; time-share computers. ; SENDBRK: MVI A,1FH ;SEND A BREAK TONE JMP GOODBYE1 ;..... ; ; ; This routine sends a 300 ms. break tone and sets DTR low for the same ; length of time to disconnect some modesm such as the Bell 212A, etc. ; GOODBYE: MVI A,08H ;SEND BREAK, TURN OFF DTR ; GOODBYE1: OUT MODCTL1 ;SEND TO STATUS PORT MVI B,3 ;WAIT 300 MS. CALL JMP$TIMER MVI A,37H ;NORMAL SEND/RECEIVE WITH DTR OUT MODCTL1 ;SEND TO STATUS PORT RET ;..... ; ; ; Sanyo MBC-1000 initialization -- sets the 8251A for 8 bits, 1 stop bit, ; no parity, 1200 Baud (was 300 baud) ; INITMOD: MVI A,5 ;TRANSFER TIME FOR 1200 Baud (was 1=300 BAUD) STA MSPEED MVI A,96H ;Set up counter/timer to be baud rate clock OUT CTIMER LDA V1 OUT CTIMER-1 MVI A,087H ;INSURE OUT OF MODE state OUT MODCTL1 ;MODEM STATUS PORT out modctl1 ;slight extra delay MVI A,40H ;INITIALIZE USART OUT MODCTL1 ;MODEM STATUS PORT LDA V2 ADI 4CH ;8 DATA BITS, 1 STOP, NO PARITY OUT MODCTL1 ;MODEM STATUS PORT MVI A,17H ;DTR, RCV, XMT, ERROR RST:hardy had 27h w RTS OUT MODCTL1 ;MODEM STATUS PORT IN PORT ;CLEAR DATA PORT RET ; V1 DB 010H ;COUNTER VALUE(dflt = 1200; was 040h=300 baud) V2 DB 2 ;CLOCK DIVISOR 2 works from 150 to 1200 baud ;..... ;========== NON-PMMI SETUP (SPEED CHANGE, ETC.) IF ANY ============== ; ; Insert your speed change and/or auto-dialing routines here. ; Over 950 bytes are available (INCLUDING INITMOD, above). ; End your routine with a RET. ; ; SETUPR: LXI D,BAUDBUF ;POINT TO NEW INPUT BUFFER CALL JMP$ILPRT DB 'Input Baud Rate (300, 1200): ',0 ;, 1800, 2400): ',0 CALL JMP$INBUF LXI D,BAUDBUF+2 CALL JMP$INLNCOMP ;COMPARE BAUDBUF+2 WITH CHARACTERS BELOW DB '300',0 JNC OK300 ;GO IF GOT MATCH CALL JMP$INLNCOMP DB '1200',0 JNC OK1200 ; CALL JMP$INLNCOMP ;killed these lines so only 300/1200 plays ; DB '1800',0 ; JNC OK1800 ; CALL JMP$INLNCOMP ; DB '2400',0 ; JNC OK2400 CALL JMP$ILPRT ;ALL MATCHES FAILED, TELL OPERATOR DB '++ Incorrect entry ++',CR,LF,BELL,0 JMP SETUPR ;TRY AGAIN ; OK300: LXI H,0241H ;V1=41h V2=02h ******* WARNING ****** ; ;V1 was 40h minor adjustment of the value ;of V1 may be required because of individual ;crystal, component or temperature variations. SHLD V1 ;SAVE PARAMETERS FOR 300 BAUD MVI A,1 ;MSPEED 300 BAUD VALUE JMP LOADBD ;jump to load: Dave you forgot this !! ; OK1200: LXI H,0210H ;V1=10h V2=02h See Warning in OK300 SHLD V1 MVI A,5 JMP LOADBD ; ; killed the followings lines to restrict baud set to 300 & 1200 ; ;OK1800: LXI H,01A0H ;V1=A0h V2=01h ; SHLD V1 ; MVI A,6 ; JMP loadbd ; ;OK2400: LXI H,0180H ;V1=80h V2=01h ; SHLD V1 ; MVI A,6 ; JMP loadbd ; LOADBD: STA INITMOD+1 ;change time-to-send to match baudrate JMP INITMOD ;reset MSPEED TO NEW BAUDRATE ; ; ; BAUDBUF: DB 10,0 DS 10 ;..... ; ; ; (END OF INITMOD AND SETUP ROUTINES) ;======================================================================= ; ; ; These routines can be used for your equipment. End with RET. If ; using the Hayes Smartmodem this is unavailable without a special ad- ; dress change. ; SPCLMENU: RET ; ;======================================================================= ; ; ; NOTE: MUST TERMINATE PRIOR TO 0400H (with Smartmodem) ; 0C00H (without Smartmodem) ; ; END ; ************************************************