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 0RESET: 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 ; applicationANSWER: $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 ; applicationDISCONNECT: 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. |