; I2RV-6.ASM Racal-Vadic VA212PA or VA3451 special IMP overlay 06/11/87

; I2RV-6.ASM Racal-Vadic VA212PA or VA3451 special IMP overlay 06/11/87
;
;
; The Racal-Vadic option in IMP supports the 1200V, 2400V and 2400PA
; autodial models. The VA212PA and 3451 models require a somewhat dif-
; ferent routine. Essentially they require a CR after the 'D' for dial
; and two carriage returns after the phone number has been entered, the
; first to enter the number in the modem and the second to initiate the
; actual dialing routine. In addition, they do use "verbose" mode, not
; terse mode, so it is necessary to "catch the echo characters" before
; proceeding.
;
; 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 Racal-Vadic protocol.
;
; A>MLOAD IMP.COM=IMP2xx.COM,I2RV-x.HEX
;
; = = = = = = = = = = = = = = = = = =
;
; 06/11/87 Increased the RV3451 abort time after dialing to 60 seconds
; as it can only pulse dial and is very slow. Other changes
; to improve autodialing with 3451.
; - Irv Hoff
;
; 06/01/87 Altered addresses for use with IMP245. Use I2VB-4.ASM with
; IMP244. - Irv Hoff
;
; 10/27/85 There is enough difference in the VA212PA and VA3451 to add
; equates to select between the two. The 3451 is much slower
; to execute commands and needs substantial extra delays. My
; thanks to Bond Shands for extensive 3451 testing. I could
; do the 212PA testing myself.
; - Irv Hoff
;
; 09/17/85 Initial version - Irv Hoff
;
; = = = = = = = = = = = = = = = = = =
;
;
YES EQU 0FFH
NO EQU 0
;
;
; Choose one of the following
;
RV212 EQU NO
RV3451 EQU YES
;.....
;
;
; Sets parameters to 1200 bps normal operation for Racal-Vadic protocol
;
ORG 0103H
DB 5 ; To initiate 1200 bps
DB 0 ; No for 2400 bps maximum
DB 0FFH ; Yes for 1200 bps maximum
DB 0FFH ; Yes for Racal-Vadic protocol
DB 0 ; No for Prometheus ProModem protocol
;.....
;
;
; Add extra CR for use with 212PA or 3451 dialing protocol
;
ORG 05A9H
CALL 0848H
;.....
;
;
; Allows pulse dialing for alternate dial systems - until recently, most
; required touch tone dialing. (See the I2NM-x.ASM phone library over-
; lay for information on activating this feature.)
;
ORG 06E8H
JMP 06EEH
;.....
;
;
; Initialize modem, wait for "IM READY" to stop
;
ORG 0794H
CALL 018FH
JMP 0762H
;.....
;
;
; Set up modem for dialing
;
ORG 07B6H
LXI H,0865H
CALL 018FH
JMP 0762H
;.....
;
;
; Put modem into terminal mode so it is in a position to accept dialing
; (Each # represents 100 milliseconds delay. Most can be removed for
; use with the 212PA modem which is significantly faster than the older
; 3451.)
;
IF RV3451
ORG 07F1H
DB 'I','##',0DH,'####','E'-40H,0DH,'###','$'
ENDIF ; RV3451
;
IF RV212
ORG 07FBH
DB '$'
ENDIF ; RV212
;.....
;
;
; Puts modem back into IDLE condition when finished
;
ORG 0812H
;
IF RV3451
DB '##',0DH,'##','I','####',0DH,'$'
ENDIF ; RV3451
;
IF RV212
DB 0DH,'#','I','#',0DH,'$'
ENDIF ; RV212
;.....
;
;
ORG 0848H
;
IF RV212
MVI B,0DH
CALL 018CH
JMP 0762H
ENDIF ; RV212
;
IF RV3451
LXI H,0851H
CALL 018FH
JMP 0762H ; Now go get the result code
;
DB '####',0DH,'$' ; Give the 3451 time to enter the number
ENDIF ; RV3451
;.....
;
;
ORG 0865H
;
IF RV212
DB 'D','#',0DH,'$'
ENDIF ; RV212
;
IF RV3451
DB 'D','##',0DH,'##','$'
ENDIF ; RV3451
;.....
;
;
; Increase time to abort to 60 seconds for the 3451 for pulse dialing
;
IF RV3451
ORG 08A1H
DW 600 ; For 60 seconds
ENDIF ; RV3451
;
;
; In the SMRESULT area, fix for verbose ONLINE instead of terse
;
ORG 0989H ; Change 'L' to 'O' for ONLINE
DB 'O',0
;.....
;
;
; In the SMRESULT area, fix for verbose NO DIAL TONE instead of terse
;
ORG 09A1H ; Change 'E' to 'N' for No Dial tone
DB 'F',0
JNC 09F0H ; ABORT
;.....
;
;
; If got an answer, go back to get the ONLINE result
;
ORG 0939H
JMP 0899H ; Back to SMRESULT
;.....
;
; end
;-----------------------------------------------------------------------
;
END