; I2VB-3.ASM  -  Adapts modems with verbose mode to IMP.COM  -	06/01/87
;
;		    (For AVATEX, etc. modems)
;
;
;	  ************************************************
;	  *						 *
;	  *   NOTE:  This version is needed for IMP245,  *
;	  *	     use I2VB-2.ASM for IMP244. 	 *
;	  *						 *
;	  ************************************************
;
; The following routine adds verbose mode to the IMP modem program.  A
; few 300/1200 bps modems (such as the 'AVATEX') have only verbose mode.
; This overlay will allow either verbose or terse modes to be used.  The
; 'VERB' equate chooses between verbose and terse, if you have a modem
; with both modes and wish to try both methods.
;
;
;	  verbose			terse
;	  -------			-----
;	OK		     0	(initial commands were all ok)
;	CONNECT 	     1	300 baud
;	RING		     2	(used only during auto-receive)
;	NO CARRIER	     3	(did not get a modem answer)
;	ERROR		     4	(Invalid command)
;	CONNECT 1200	     5	1200 bps
;
;
; The following overlay can be added after the normal overlay, although
; it makes no difference when it is added, really - assuming the normal
; overlay is set for 1200 bps maximum speed and Hayes protocol, which is
; automatically selected if the Racal-Vadic and Prometheus options are
; both set to "NO".
;
;		A>MLOAD IMP.COM=IMP245.COM,I2RV-x.HEX
;
; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
;
; 06/01/87  Altered to work with IMP245, also dated 01 June 87.  Be sure
;    v3     to use I2VB-2.ASM with IMP244.	- Irv Hoff
;
; 06/17/86  Added a "JMP ABORT" line to improve operation during busy
;    v2     signal reception.			- Irv Hoff
;
; 01/05/86  Verbose overlay for IMP244 modem program.  For 300/1200 bps
;    v1     modems that do not have 'terse' mode, such as AVATEX and a
;	    few others.  (Or for those indivuals who may prefer to use
;	    the verbose mode for some reason.)
;						- Irv Hoff
;
; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
;
;
VERB	EQU	'1'		; '1' for verbose mode
				; '0' for terse mode (if available)
DTR	EQU	0FFH		; 0FFH if need ATH0 to disconnect
				; 0 if you can disconnect with DTR
				; Older Avatex modems do not have DTR
;.....
;
;
; Sets parameters to 1200 bps normal operation with Hayes AT protocol
;
	ORG	0100H
	DS	3		; Skip over JUMP to START
MSPEED:	DB	5		; To initiate 1200 bps
HS2400:	DB	0		; No for 2400 bps maximum
HS1200:	DB	0FFH		; Yes for 1200 bps maximum
RACAL:	DB	0		; No for Racal-Vadic protocol
PROMOMD:DB	0		; No for Prometheus ProModem protocol
;.....
;
;
; Disconnects from the phone line with 'ESC N' in terminal mode or with
; 'DSC' or 'BYE' from the command line.
;
	ORG	011EH
NODTR:	DB	DTR
;.....
;
;
; Allows the initialization routine to select between verbose or terse
;
	ORG	0834H		; Location of '0' for V0 in STRNGA:
	DB	VERB
;.....
;
;
	ORG	08D3H
;
	DB	0E1H,011H,080H,000H,03AH,006H,001H,0B7H,0C2H,0FCH,009H
	DB	0CDH,014H,033H,031H,000H,0D2H,061H,00AH,0CDH,014H
	DB	033H,043H,04FH,04EH,04EH,045H,043H,054H,031H,032H
	DB	030H,030H,000H,0D2H,03FH,00AH,0CDH,014H,033H
	DB	04FH,04EH,04EH,045H,043H,054H,031H,032H,030H,030H
	DB	000H,0D2H,03FH,00AH,0CDH,014H,033H,033H,000H,0D2H
	DB	010H,00AH,0CDH,014H,033H,04EH,04FH,043H,041H,052H
	DB	000H,0D2H,010H,00AH,0CDH,014H,033H,04FH,043H,041H
	DB	052H,000H,0D2H,010H,00AH,0CDH,014H,033H,035H,000H
	DB	0D2H,03FH,00AH,0CDH,014H,033H,043H,04FH,04EH,000H
	DB	0D2H,061H,00AH,0CDH,014H,033H,04FH,04EH,04EH,000H
	DB	0D2H,061H,00AH,0C3H,0FCH,009H,03AH,007H,001H,0B7H
	DB	0C2H,079H,009H,03AH,005H,001H,0B7H,0C2H,0FCH,009H
	DB	0CDH,014H,033H,036H,000H,0D2H,06CH,00AH,0CDH,014H
	DB	033H,037H,000H,0D2H,0DBH,009H,0CDH,014H,033H,038H
	DB	000H,0D2H,0FCH,009H,0CDH,014H,033H,031H,030H,000H
	DB	0D2H,050H,00AH,0C3H,0FCH,009H,0CDH,014H,033H,034H
	DB	033H,000H,0D2H,06CH,00AH,0CDH,014H,033H,036H,030H
	DB	000H,0D2H,0EFH,009H,0CDH,014H,033H,036H,031H,000H
	DB	0D2H,081H,00AH,0C3H,0FCH,009H,000H,000H,054H,000H
;.....
;
;
	END