; I2VB-1.ASM  -  Adapts modems with verbose mode to IMP.COM  -	01/05/86
;
;		    (For AVATEX, etc. modems)
;
; 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=IMP2xx.COM,I2RV-x.HEX
;
; =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =   =
;
; 01/05/86  Verbose overlay for IMP244 modem program.  For 300/1200 bps
;	    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
;.....
;
;
; 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	082EH
	DB	VERB
;.....
;
;
	ORG	08D2H
	DB	0F2H

;
	ORG	08DCH
	DB	0CDH,0C8H,032H,043H
	DB	04FH,04EH,04EH,045H,043H,054H,031H,032H
	DB	030H,030H,000H,0D2H,035H,00AH,0CDH,0C8H
	DB	032H,04FH,04EH,04EH,045H,043H,054H,031H
	DB	032H,030H,030H,000H,0D2H,035H,00AH,0CDH
	DB	0C8H,032H,033H,000H,0D2H,006H,0A0H,0CDH
	DB	0C8H,032H,04EH,04FH,043H,041H,052H,000H
	DB	0D2H,006H,0A0H,0CDH,0C8H,032H,04FH,043H
	DB	041H,052H,000H,0D2H,006H,0A0H,0CDH,0C8H
	DB	032H,035H,000H,0D2H,035H,00AH,0CDH,0C8H
	DB	032H,043H,04FH,04EH,000H,0D2H,057H,00AH
	DB	0CDH,0C8H,032H,04FH,04EH,04EH,000H,0D2H
	DB	057H,00AH,03AH,007H,001H,0B7H,0C2H,06CH
	DB	009H,03AH,005H,001H,0B7H,0C2H,0F2H,009H
	DB	0CDH,0C8H,032H,036H,000H,0D2H,062H,00AH
	DB	0CDH,0C8H,032H,037H,000H,0D2H,0D1H,009H
	DB	0CDH,0C8H,032H,038H,000H,0D2H,0F2H,009H
	DB	0CDH,0C8H,032H,031H,030H,000H,0D2H,046H
	DB	00AH,0C3H,0F2H,009H,0CDH,0C8H,032H,034H
	DB	033H,000H,0D2H,062H,00AH,0CDH,0C8H,032H
	DB	036H,030H,000H,0D2H,0E5H,009H,0CDH,0C8H
	DB	032H,036H,031H,000H,0D2H,077H,00AH,0C3H
	DB	0F2H,009H,0F2H,009H,0CDH,0C8H,032H,054H
;
	END