beautypg.com

IBM RS/6000 44P User Manual

Page 204

background image

disconnect:

delay 2

# Separate from previous data.

send "+++"

# Assure command mode.

delay 2

# Allow mode switching delay.

send "ATH0T\r"

# Set modem switch-hook down

# (i.e., hang up).

ignore "0\r" or "OK\r" timeout 2

# Ignore modem response.

send "ATE0Q1\r"

# Initialize modem: Echo OFF,

# Disable responses.

ignore "0\r" timeout 1

done

condin:

send "AT&F0Q0T\r"

# Reset modem. Select profile 0

ignore "0\r" or "OK\r\n" timeout 2 # Ignore modem response.

send "ATE0T\r"

# Initialize modem: Echo OFF,

expect "0\r" or "OK\r\n" timeout 2 # Enable responses (Numeric),

send "ATQ0V0X0T\r"

# Limit response codes.

expect "0\r" timeout 2

# Confirm commands successful.

send "ATS0=2\r"

# Set AutoAnswer ON

expect "0\r" timeout 2

# Confirm command successful.

send "AT&C1&D2&R1\r"

# Detect carrier and DTR,

# Ignore RTS.

expect "0\r" timeout 2

# Confirm command successful.

done

waitcall: ignore "2\r" timeout 1

# Ignore first ring.

expect "2\r" timeout 10

# Pick up second ring

# or timeout.

# Expect a connection response.

expect "16\r" or "15\r" or "14\r" or "12\r" or "10\r" or "5\r" or "1\r"

timeout 60

done

page:

send "ATDT%N,,,,%R;\r"

# %N = pager call center number

# Add enough commas to wait for

# time to enter paging number.

# %R = paging number

# Confirm successful command.

expect "0\r" timeout 60

delay 2

# Wait before hanging up.

send "ATH0T\r"

# Hang up.

expect "0\r" timeout 2

# Confirm successful command.

done

ripo:

send "AT&F0Q0T\r"

# Reset modem. Select profile 0

ignore "0\r" or "OK\r\n" timeout 2 # Ignore modem response.

send "ATE0T\r"

# Initialize modem: Echo OFF,

expect "0\r" or "OK\r\n" timeout 2 # Enable responses (Numeric),

send "ATQ0V0X0T\r"

# Limit response codes.

expect "0\r" timeout 2

# Confirm commands successful.

send "ATS0=0\r"

# Set AutoAnswer OFF

expect "0\r" timeout 2

# Confirm command successful.

send "AT&C1&D2&R1\r"

# Detect carrier and DTR,

# Ignore RTS.

186

44P Series Model 170 User’s Guide