# @(#)33  1.1  src/bos/usr/bin/mirror/mir_modem.usrobotics.S, cmdmirror, bos720 8/25/95 10:40:57 
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/bin/mirror/mir_modem.usrobotics.S 1.1 
#  
# Licensed Materials - Property of IBM 
#  
# Restricted Materials of IBM 
#  
# COPYRIGHT International Business Machines Corp. 1995 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
#
# COMPONENT_NAME: (CMDMIRROR) Console Mirroring
#
# FUNCTIONS: modem configuration file for the USRobotics Sportster 14.4 modem
#
# ORIGINS: 27
#
# (C) COPYRIGHT International Business Machines Corp. 1995
# All Rights Reserved
# Licensed Materials - Property of IBM
#
# US Government Users Restricted Rights - Use, duplication or
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
#

# Configuration file for USRobotics Sportster 14.4 modem running at 9600bps.
# Sportster is a trademark of U.S. Robotics.
# Physical switch settings on modem should be: 1-2 up; 3 down; 4-7 up; 8 down. 

ICDelay 5
DefaultTO 10
CallDelay 120
#  AT  Attention Code         
# &F1  Set factory profile 1    Q0   Turn on responses
#  E0  Turn echo off            Q1   Turn off responses
#  V0  Use numeric responses    S0=0 Automatic answer inhibit   
# +++  Escape to command mode   S0=1 Answer on first ring
#  H0  Hang-up                 &W0 Save configuration to profile 0
# 37=9600/ARQ/V32; 26=14.4ARQ; 25=14.4bps; 19=4800ARQ; 18=4800bps; 17=9600ARQ;
# 13=9600bps;7=busy
condout:    send "AT&F1E0V0Q0S0=0\r"
            expect "0\r"
	    done

connect:    send "ATDT%N\r"  # Tone dialing command
 expect "37\r" or "17\r" or "13\r" or "19\r" or "18\r" busy "7\r"
 timeout 60
            done

retry:      send "A/"        # Redo command
 expect "37\r" or "17\r" or "13\r" or "19\r" or "18\r" busy "7\r"
 timeout 60
            done

disconnect: 
	    send "+++ATH0"
	    delay 2
	    send "ATQ1V0E0\r"
            delay 2
	    done

condin:	    send "AT&F1E0V0Q0S0=1\r"
            expect "0\r" or "OK\r\n"
            send "ATQ1&W0\r"    # (there can be no reply)
	    done

condwait:   send "AT&F1E0V0Q0S0=1&W0\r"
	    expect "0\r" or "OK\r\n" 
	    done

waitcall: ignore "2\r" timeout none
          expect "2\r" timeout 10
expect "37\r" or "17\r" or "13\r" or "19\r" or "18\r" busy "7\r"
# timeout 60
            done

page:       send "ATDT%N;\r"  # ; = go back to command mode
            expect "0\r" or "OK\r\n" timeout 60
            delay 2
            send "ATH0\r"
            expect "0\r" or "OK\r\n"
            done