| [613] | 1 | XMM1 ;(WASH ISC)/THM-MODEM CONTROL VADIC 3451, MICROCOM PCS 2000 ;7/10/89 12:44 ;
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | Q
|
|---|
| 4 | PCS2000 ;MICROCOM PCS 2000
|
|---|
| 5 | DIAL ;DIAL NUMBER IN <XMPHONE>, MODEM'S RESPONSE IN Y, ER=0/1 FOR CONNECT/NO CONNECT
|
|---|
| 6 | S ER=1 W "D ",XMPHONE,! R Y:35,Y:3
|
|---|
| 7 | S:Y["CONNECT " ER=0 Q
|
|---|
| 8 | HANG ;HANG UP PHONE
|
|---|
| 9 | W *2,! R Z:1 W "H",! R Y:1,Y:1,Z:1 S ER=Z'["NO CONN" Q
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | RESET S X=1 ;RESET MODEM
|
|---|
| 13 | R W "4" H 1 W "5" H 1 W "SE2",! R Z:2,Y:2 S ER=Y'="!" Q:'ER
|
|---|
| 14 | S X=X+1 Q:X>2 D HANG G R
|
|---|
| 15 | ;
|
|---|
| 16 | STAT ;STATUS OF MODEM
|
|---|
| 17 | S Y="no status report",ER=0 Q
|
|---|
| 18 | VADIC ;VADIC 3451 (NEEDS HELP HANGING UP)
|
|---|
| 19 | ;
|
|---|
| 20 | DIAL3451 S ER=1 W *5,*13 R Y:2 H 1 W "D",*13 R Y:2 Q:Y'["*" H 1 W XMPHONE,*13 H 2 W *13 R Y:1,Y:60 S:Y["ONLINE" ER=0 Q
|
|---|
| 21 | HANG3451 Q
|
|---|
| 22 | STAT3451 S Y="no status report",ER=0 Q
|
|---|
| 23 | ;
|
|---|
| 24 | ;HAYES SMART MODEM 1200 LOGIC
|
|---|
| 25 | ;
|
|---|
| 26 | DHAYES D CLEAR U IO S ER=1 W "ATDT",XMPHONE,! F %=1:1:5 U IO R Y:10 Q:Y["CONNECT"
|
|---|
| 27 | Q:Y'["CONNECT"
|
|---|
| 28 | S ER=0 Q
|
|---|
| 29 | HHAYES D CLEAR U IO H 2 W "+++" H 2 W "ATH0",! H 2 D CLEAR S ER=0 Q
|
|---|
| 30 | HSTAT S ER=0 Q
|
|---|
| 31 | DRV2400 S ER=1 W *5,*13 R Y:2 H 1 W "D",*13 R Y:2 Q:Y'["*" H 1 W XMPHONE,*13 H 2 W *13 R Y:1,Y:60 S:Y["ONLINE" ER=0 Q
|
|---|
| 32 | HRV2400 W *3,*4 Q
|
|---|
| 33 | SRV2400 S Y="no status report",ER=0 Q
|
|---|
| 34 | ATT212C ;AT&T 300/1200 AUTODIAL MODEM
|
|---|
| 35 | D212C F I=1:1:$L(XMPHONE) I (($E(XMPHONE,I)="P")!($E(XMPHONE,I)="p")) S XMPHONE=$E(XMPHONE,0,I-1)_","_$E(XMPHONE,I+1,999)
|
|---|
| 36 | D2 I $L(XMPHONE)>36 S ER=1 Q
|
|---|
| 37 | F I=1:1:6 U IO W *13 U IO R X:2 Q:X[":"
|
|---|
| 38 | I I=6 K I S ER=1 Q
|
|---|
| 39 | K I
|
|---|
| 40 | D3 ;
|
|---|
| 41 | U IO W XMPHONE,"/",*13 R X:70 I '$T U IO W "$B$:",*13 S ER=1 Q
|
|---|
| 42 | F I=1:1:7 U IO R X:30 Q:X["Conn" Q:X["Answ" Q:+X
|
|---|
| 43 | I ((X["Con")!(X["Ans")) S ER=0 Q
|
|---|
| 44 | I '+X S ER=1 Q
|
|---|
| 45 | S ER=0 Q
|
|---|
| 46 | H212C U IO W "$B" H 3 R X:3,X:0 U IO W "$:" H 3 R X:3,X:0
|
|---|
| 47 | U IO W "TALK",*13 H 5 S ER=1 F I=1:1:10 R X:3 Q:X[":"
|
|---|
| 48 | K:I=10 I Q:'$D(I) K I S ER=0 Q
|
|---|
| 49 | S212C F I=1:1 U IO R X:1 Q:'$T
|
|---|
| 50 | S2 S ER=1,%=^%ZOSF("TRMRD")
|
|---|
| 51 | U IO X ^%ZOSF("TRMON") W *13 H 2 R X:4 I X'[":" R X:2
|
|---|
| 52 | W "S",*13 H 3 F I=1:1 U IO R X:3 Q:'$T U IO(0) W X X % W *Y
|
|---|
| 53 | X ^%ZOSF("TRMOFF") K I S ER=0 Q
|
|---|
| 54 | R212C D H212C F I=1:1 U IO R X:3 Q:'$T
|
|---|
| 55 | U IO W "ATZO1=Y,O2=Y,O3=Y,O4=Y,O5=Y,O6=N,O7=Y,08=N,09=Y,O10=N,O11=Y,O12=N,O13=Y,O14=N,O15=Y,O16=Y,O17=Y,O18=N,O19=Y,O20=1,O21=N,O22=:,O23=",$C(8),",O24=@,O25=$B,O26=$:",*13
|
|---|
| 56 | S ER=1 F I=1:1:10 U IO W *13 U IO R X:3 Q:X[":"
|
|---|
| 57 | K:I=10 I Q:'$D(I) S ER=0 Q
|
|---|
| 58 | Q
|
|---|
| 59 | CLEAR F %=1:1 U IO R Y:1 Q:'$T
|
|---|
| 60 | Q
|
|---|
