# @(#)32  1.1  src/bos/usr/bin/mirror/mir_modem.7851.S, cmdmirror, bos720 8/25/95 10:40:55 
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/bin/mirror/mir_modem.7851.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 IBM 7851 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 IBM 7851 modem running at 9600bps.			

ICDelay 5
DefaultTO 10
CallDelay 120
#  AT  Attention Code           Q0    Enable result codes to screen
# &F1  Set factory profile 1    Q1    Disable result codes to screen 
#  E0  Turn echo off            S0=0  Automatic answer inhibit
#  V0  Use numeric responses    S0=2  Answer on second ring  
# +++  Escape to command mode  &W0    Save configuration to profile 0
#  H0  Hang-up 
# 17=38.4bps; 16=19.2bps; 12=9600bps; 11=4800bps; 10=2400bps; 7=busy
condout:    send "AT&F1E0V0Q0S0=0\r"
            expect "0\r" or "OK\r"
	    done

connect:    send "ATDT%N\r"  # Tone dialing command
 expect "17\r" or "16\r" or "12\r" or "11\r" or "10\r" busy "7\r"
 timeout 60
            done

retry:      send "A/"        # Redo command
 expect "17\r" or "16\r" or "12\r" or "11\r" or "10\r" busy "7\r"
 timeout 60
            done

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

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

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

waitcall:   ignore "2\r" timeout none
            expect "2\r" timeout 10
 expect "17\r" or "16\r" or "12\r" or "11\r" or "10\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