; M8IN-1.A86 -- Overlay file for the CompuPro I3/I4.  09/14/84
;
; This overlay adapts the MDM8xx program to the CompuPro Interfacer 3 or
; Interfacer 4 serial cards using the 2651 USART chip.
;
; 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 places particular emphasis on using an external modem that
; is connected to a serial port.  This includes acoustic modems as well
; as "intelligent" modems such as the Hayes Smartmodem, Racal-Vadic, Bell
; Dataphone 212A, etc.
;
; This overlay is capable of setting the baud rate, disconnecting the
; modem, and sending breaks.
;
;
;	TO USE: First edit this file filling in answers for your own
;		equipment.  Then assemble with ASM86.CMD or equivalent
;		assembler.  Then use M8CNFG to overlay the the results
;		of this program to the original MDM8xx.H86 file:
;
;			ASM86 M8IN-1
;			REN M8OVL.H86=M8IN-1.H86
;			M8CNFG
;			GENCMD MDM 8080 CODE[MFF0]
;
;		 Now run MDM.  Have Fun
;
;
; =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =
;
; 09/19/84 - Original version for MDM8xx	- Alex Soya
; 04/04/84 - First version of this file		- Irv Hoff
;
; =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =
;
BELL	EQU	07H		;bell
CR	EQU	0DH		;carriage return
ESC	EQU	1BH		;escape
LF	EQU	0AH		;linefeed
;
YES	EQU	0FFH
NO	EQU	0
;
; Change the following to match your equipment
;
; =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =   =	  =
;
BASE	EQU	010H		;base port of CompuPro I3 or I4 cards
UPORT	EQU	BASE+7		;user (chip select) port
MDM	EQU	6		;chip that controls modem port
;
;
;
DPORT	EQU	BASE		;data port
SPORT	EQU	BASE+1		;status port
MPORT	EQU	BASE+2		;mode port
CPORT	EQU	BASE+3		;control port
;
TBMT	EQU	01H		;transmit buffer empty
DAV	EQU	02H		;data available
;
	ORG	100H
;
; Change the clock speed to suit your system
;
		RS	3	;(for  "JMP   START" instruction)
;
PMMIMODEM	DB	NO	;yes=PMMI S-100 Modem			103H
AUTODIAL	DB	YES	;yes=HAYES-like modem, no=non-PMMI	104H
TOUCHPULSE	DB	'T'	;T=touch, P=pulse (Smartmodem-only)	105H
CLOCK		DB	80	;clock speed in MHz x10, 25.5 MHz max.	106H
				;20=2 MHh, 37=3.68 MHz, 40=4 MHz, etc.
MSPEED		DB	1	;0=110 1=300 2=450 3=600 4=710 5=1200	107H
				;6=2400 7=4800 8=9600 9=19200 default
BYTDLY		DB	5	;0=0 delay  1=10ms  5=50 ms - 9=90 ms	108H
				;default time to send character in ter-
				;minal mode file transfer for slow BBS.
CRDLY		DB	5	;0=0 delay 1=100 ms 5=500 ms - 9=900 ms 109H
				;default time for extra wait after CRLF
				;in terminal mode file transfer
NOOFCOL		DB	5	;number of DIR columns shown		10AH
SETUPTST	DB	YES	;yes=user-added Setup routine		10BH
SCRNTEST	DB	YES	;cursor control routine			10CH
RETRY		DB	NO	;yes=reset the error limit to try again	10DH
				;no=abort after 10 consecurive errors
BAKUPBYTE	DB	NO	;yes=change any file same name to .BAK	10EH
CRCDFLT		DB	YES	;yes=default to CRC checking		10FH
TOGGLECRC	DB	YES	;yes=allow toggling of CRC to Checksum	110H
CONVRUB		DB	NO	;yes=convert rub to backspace		111H
TOGGLERUB	DB	YES	;yes=allow toggling of rub to backspace	112H
ADDLF		DB	NO	;no=no LF after CR to send file in	113H
				;terminal mode (added by remote echo)
TOGGLELF	DB	YES	;yes=allow toggling of LF after CR	114H
TRANLOGON	DB	YES	;yes=allow transmission of logon	115H
				;write logon sequence at location LOGON
RESERVED	DB	NO	;resevered for future release		116H
LOCONEXTCHR	DB	NO	;yes=local command if EXTCHR precedes	117H
				;no=external command if EXTCHR precedes
TOGGLELOC	DB	YES	;yes=allow toggling of LOCONEXTCHR	118H
LSTTST		DB	YES	;yes=printer available on printer port	119H
XOFFTST		DB	NO	;yes=checks for XOFF from remote while	11AH
				;sending a file in terminal mode
XONWAIT		DB	NO	;yes=wait for XON after CR while	11BH
				;sending a file in terminal mode
TOGXOFF		DB	YES	;yes=allow toggling of XOFF checking	11CH
IGNORCTL	DB	YES	;yes=CTL-chars above ^M not displayed	11DH
EXTRA1		DB	0	;for future expansion			11EH
EXITCHR		DB	'E'-40H	;^E = Exit to main menu			11FH
BRKCHR		DB	'@'-40H	;^@ = Send 300 ms. break tone		120H
NOCONNCT	DB	'N'-40H	;^N = Disconnect from the phone line	121H
LOGCHR		DB	'L'-40H	;^L = Send logon			122H
LSTCHR		DB	'P'-40H	;^P = Toggle printer			123H
UNSAVE		DB	'R'-40H	;^R = Close input text buffer		124H
TRANCHR		DB	'T'-40H	;^T = Transmit file to remote		125H
SAVECHR		DB	'Y'-40H	;^Y = Open input text buffer		126H
EXTCHR		DB	'^'-40H	;^^ = Send next character		127H
;
;
	RS	3			;				128H
;
IN@MODCTL1:
	JMP	IMCTL1			;in modem control port		12BH
	DB	0,0,0,0,0,0,0		; spares
;
OUT@MODDATP:
	JMP	OMDP			;out modem data port		135H
	DB	0,0,0,0,0,0,0		; spares
;
IN@MODDATP:
	JMP	IMDP			;in modem data port		13FH
	DB	0,0,0,0,0,0,0		; spares
;
ANI@MODRCVB:	AND AL,DAV		;bit to test for receive ready	149H
		RET
;
CPI@MODRCVR:	CMP AL,DAV		;value of rcv. bit when ready	14CH
		RET
;
ANI@MODSNDB:	AND AL,TBMT		;bit to test for send ready	14FH
		RET
;
CPI@MODSNDR:	CMP AL,TBMT		;value of send bit when ready	152H
		RET
;
	RS	6			;				156H
;
OUT@MODCTL1:	RET 
	RS	2			;out modem control port #2	15BH
;
OUT@MODCTL2:	RET 
	RS	2			;out modem control port #1	15EH
;
LOGONPTR DW	(Offset LOGON)		;for user message.		161H
	RS	6			;				163H
JMP@GOODBYE:JMP GOODBYE			;				169H
JMP@INITMOD:JMP INITMOD			;go to user written routine	16CH
	RET
	NOP				;(by-passes PMMI routine)	170H
	NOP
	RET
	NOP				;(by-passes PMMI routine)	173H
	NOP
	RET
	NOP				;(by-passes PMMI routine)	176H
	NOP
JMP@SETUPR:    JMP  SETUPR		;				178H
JMP@SPCLMENU:  JMP  SPCLMENU		;				17BH
JMP@SYSVER:    JMPS SYSVER		;make sure this is SHORT Jump	17EH
JMP@BREAK:     JMP  SENDBRK		;				180H

;
; Do not change the following eight lines.
;
JMP@ILPRT:
		RS	3		;				183H
JMP@INBUF:
		RS	3		;				186H
JMP@INLNCOMP:
		RS	3		;				189H
JMP@INMODEM:
		RS	3		;				18CH
JMP@NXTSCRN:
		RS	3		;				18FH
JMP@TIMER:
		RS	3		;				192H
JMP@CTYPE:
		RS	3		;				195H
JMP@KEYIN:
		RS	3		;				198H
;
;
; Routine to clear to end of screen.  If using CLREOS and CLRSCRN, set
; SCRNTEST to YES at 010AH (above).
;
CLREOS: CALL	JMP@ILPRT		;				19BH
	DB	ESC,'Y',0,0,0		;				19EH
	RET				;				1A3H
;
CLRSCRN:CALL	JMP@ILPRT		;				1A4H
	DB	ESC,'*',0,0,0		;				1A7H
	RET				;				1ACH
;
SYSVER: CALL	JMP@ILPRT		;				1ADH
	DB	'Version for CompuPro '
	DB	'Interfacer-3 or 4 (port ',MDM+'0',')'
	DB	CR,LF,0
	RET
;.....
;
;
;-----------------------------------------------------------------------
;
; NOTE:	 You can change the SYSVER message to be longer or shorter.  The
;	 end of your last routine should terminate by 0600H if using the
;	 Hayes Smartmodem or by address 0C00H otherwise.
;
;-----------------------------------------------------------------------
;
; You can put in a message at this location which can be called up with
; CTL-O if TRANLOGON has been set TRUE.	 You can use several lines if
; desired.  End with a 0.
;
LOGON	DB	'It has been a long day, so now it'
	DB	' is time for a Coke!',CR,LF,0
;.....
;
;
; Add your own routine here to read a byte from your Modem Control port
;
IMCTL1: MOV	AL,MDM		;select Interfacer 3/4 Port
	OUT	UPORT,AL
	IN	AL,SPORT
	RET
;....
;
;
; Add your own routine here to send a byte in AL to modem data port
;
OMDP:	PUSH	AX		;save data while selecting port
	MOV	AL,MDM
	OUT	UPORT,AL
	POP	AX
	OUT	DPORT,AL
	RET
;....
;
;
; Add your own routine here to read modem data port into AL
;
IMDP:	MOV	AL,MDM		;select UART first
	OUT	UPORT,AL
	IN	AL,DPORT	;now get data
	RET
;.....
;
;
; Add your own routine here to send a break tone to reset some time-
; share computers, if desired.
;
SENDBRK:MOV	AL,MDM		;select chip
	OUT	UPORT,AL
	MOV	AL,2FH		;send break for 300ms
	JMPS	GOODBYE1
;.....
;
;
; Add your own routine here to put DTR low and/or send a break tone.
; Check other routines such as MDM711DP.ASM which is using this feature.
;
GOODBYE:MOV	AL,MDM		;select chip
	OUT	UPORT,AL
	XOR	AL,AL		;turn off DTR
;
GOODBYE1:
	OUT	CPORT,AL
	MOV	CH,3		;turn off DTR for 300 ms.
	CALL	JMP@TIMER
	MOV	AL,27H		;turn DTR back on
	OUT	CPORT,AL
	RET
;.....
;
;
; You can use this area for any special initialization or setup you may
; wish to include.  Each must stop with a RET.	You can check the other
; available overlays for ideas how to write your own routines if that
; may be of some help.
;
INITMOD:MOV	AL,MDM		;select chip
	OUT	UPORT,AL
;
INITMOD1:
	MOV	AL,4EH		;select 8 data bits, no parity, 1 stop
	OUT	MPORT,AL
;
INITMOD2:
	MOV	BL,Byte Ptr MSPEED  ;get baud rate
	DEC	BL		; adjust for table offset
	XOR	BH,BH		; make 16 bit
	MOV	AL, Byte Ptr BDTBL[BX]
	OUT	MPORT,AL
	MOV	AL,27H		;turn on DTR etc.
	OUT	CPORT,AL
	RET
;.....
;
;
; Use the 'SET' command to select a desired baud rate
;
SETUPR: MOV	DX,(Offset BAUDBUF)  ;point to new input buffer
	CALL	JMP@ILPRT
	DB	'Input Baud Rate (300, 600, 1200, 4800, 9600, 19200): ',0
	CALL	JMP@INBUF
	MOV	DX,(Offset BAUDBUF)+2
	CALL	JMP@INLNCOMP	;compare BAUDBUF+2 with characters below
	DB	'300',0
	JNB	OK300		;go if got match
	CALL	JMP@INLNCOMP
	DB	'600',0
	JNB	OK600
	CALL	JMP@INLNCOMP
	DB	'1200',0
	JNB	OK1200
	CALL	JMP@INLNCOMP
	DB	'4800',0
	JNB	OK4800
	CALL	JMP@INLNCOMP
	DB	'9600',0
	JNB	OK9600
	CALL	JMP@INLNCOMP
	DB	'19200',0
	JNB	OK19200
	CALL	JMP@ILPRT	;all matches failed, tell operator
	DB	'++ Incorrect entry ++',CR,LF,BELL,0
	JMP	SETUPR			;try again
;
OK300:	MOV	AL,1		;MSPEED 300 baud value
	JMPS	LOADBD		;go load everything
;
OK600:	MOV	AL,3
	JMPS	LOADBD
;
OK1200: MOV	AL,5
	JMPS	LOADBD
;
OK4800: MOV	AL,7
	JMPS	LOADBD
;
OK9600: MOV	AL,8
	JMPS	LOADBD
;
OK19200:MOV	AL,9
;
LOADBD: MOV	Byte Ptr MSPEED,AL  ;change time-to-send to match baudrate
	JMP	INITMOD		;reinitialize to new baudrate, then done
;...
;
;
BDRTE	DB	0		;keeps selected uart Baud Rate Value
;.....
;
;
; Table of baudrate parameters
;
BD300	EQU	35H		;300  bps
BD450	EQU	0		;450  bps NOT SUPPORTED
BD600	EQU	36H		;600  bps
BD710	EQU	0		;710  bps NOT SUPPORTED
BD1200	EQU	37H		;1200 bps
BD2400	EQU	0		;2400 bps NOT SUPPORTED
BD4800	EQU	3CH		;4800 bps
BD9600	EQU	3EH		;9600 bps
BD19200 EQU	3FH		;19200 bps
;
BAUDBUF DB	10,0
	RS	10

BDTBL	DB BD300,BD450,BD600,BD710,BD1200,BD2400,BD4800,BD9600,BD19200
;....
;
;	       (END OF INITMOD AND SETUP ROUTINES)
;=======================================================================
;
;
; If using the Hayes Smartmodem this is unavailable without a special
; change.
;
SPCLMENU:RET
;
;
; NOTE:	 MUST TERMINATE PRIOR TO 0600H (with Smartmodem)
;				 0C00H (without Smartmodem)
;.....
;
	END