PC Gen: Contents of Modem Script File NULLMODM.MDMLast reviewed: January 25, 1996Article ID: Q80261 |
The information in this article applies to:
The following is the contents of the Microsoft Mail version 2.1e modem script file NULLMODM.MDM, which can be compiled with SCRCOMP.EXE:
;********************************************************************* ; ; Microsoft Mail Script File
;
; Filename: nullmodm.mdm
; Date : March 21, 1990
Script : Standard script file for null-modems
;
; This script file contains the strings used in the calling
; sequence for null modem connections. Note that this used to be
; accomplished in version 1.0 and version 2.0 via the -Z option.
;
; Note that a "proper" null modem is wired in the following way:
;
; 1_____1 ; 2__ __2 ; 3__X__3 ; 4__ __4 ; 5__X__5 ; 7_____7 ; 6_____20 ; 8_/ ; 20_____6 ; \_8 ;; If your null modem is not wired in this way then you could ; experience flow control problems and "lost carrier". ; ; If your null modem connection is via a device which requires ; some setup strings to be issued to initialized the device then ; insert the appropriate "send" commands in the INITIALIZE procedure. ; If the device must be reset after a connection the insert the ; appropriate "send" commands in the RESET procedure. ; ; Script procedures defined: ; INITIALIZE ; RESET ; CALL ; ANSWER ; DISCONNECT ;; Return codes for External, Transmit, Listen: ; 0 - OK ; 1 - CONNECT 300 ; 2 - not defined ; 3 - NO CARRIER ; 4 - ERROR ; 5 - CONNECT 1200 ; 6 - not defined ; 7 - BUSY ; 8 - NO ANSWER ; 9 - not defined; 10 - CONNECT 2400 ; 11 - not defined ; 12 - CONNECT 9600 (high speed connection) ; ; ;*********************************************************************
INITIALIZE: title "Null Modem Script"
return 0
RESET:
return 0CALL: $ret = 8 ; set default ret code to "no answer"; If you previously used the -Z option with an optional setup string ; then uncomment the following line and insert your setup string ; between the double quote characters. ; eg. send "\17" ; send XON
;
; send ""
sendln "9" ; send call signal to remote site
waitrsp 1 ; wait until the modem responds
if (response = "8^M") ; has other side answered?
{
sendln "8" ; if he has then send
display ">>> CONNECT - NULL MODEM <<<"
$ret = 12
}
else
{
display ">>> NO ANSWER <<<"
$ret = 8
}
return $ret ; return connect baud rate to
; application
ANSWER:
$ret = 8 ; set default ret code to "no answer"
waitrsp 1 ; see if phone is ringing
if (response = "9^M") ; 9 means "RING" for nullmodems
{
sendln "8" ; answer the phone
waitrsp 20 ; wait for return code from modem
if (response = "8^M")
{
display ">>> CONNECT - NULL MODEM <<<"
$ret = 12
}
}
return $ret ; return connect baud rate to
; application
DISCONNECT:
dtr 0 ; drop DTR signal for a few seconds
clearrsp ; clear the response buffer
wait 4 ; give other side time to recognize
; lost carrier
dtr 1 ; raise it back again
return 0
|
Additional reference words: 2.10 2.1 2.10e
© 1998 Microsoft Corporation. All rights reserved. Terms of Use. |