61 lines
2.2 KiB
Mathematica
61 lines
2.2 KiB
Mathematica
XMM1 ;(WASH ISC)/THM-MODEM CONTROL VADIC 3451, MICROCOM PCS 2000 ;7/10/89 12:44 ;
|
|
;;8.0;MailMan;;Jun 28, 2002
|
|
Q
|
|
PCS2000 ;MICROCOM PCS 2000
|
|
DIAL ;DIAL NUMBER IN <XMPHONE>, MODEM'S RESPONSE IN Y, ER=0/1 FOR CONNECT/NO CONNECT
|
|
S ER=1 W "D ",XMPHONE,! R Y:35,Y:3
|
|
S:Y["CONNECT " ER=0 Q
|
|
HANG ;HANG UP PHONE
|
|
W *2,! R Z:1 W "H",! R Y:1,Y:1,Z:1 S ER=Z'["NO CONN" Q
|
|
Q
|
|
;
|
|
RESET S X=1 ;RESET MODEM
|
|
R W "4" H 1 W "5" H 1 W "SE2",! R Z:2,Y:2 S ER=Y'="!" Q:'ER
|
|
S X=X+1 Q:X>2 D HANG G R
|
|
;
|
|
STAT ;STATUS OF MODEM
|
|
S Y="no status report",ER=0 Q
|
|
VADIC ;VADIC 3451 (NEEDS HELP HANGING UP)
|
|
;
|
|
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
|
|
HANG3451 Q
|
|
STAT3451 S Y="no status report",ER=0 Q
|
|
;
|
|
;HAYES SMART MODEM 1200 LOGIC
|
|
;
|
|
DHAYES D CLEAR U IO S ER=1 W "ATDT",XMPHONE,! F %=1:1:5 U IO R Y:10 Q:Y["CONNECT"
|
|
Q:Y'["CONNECT"
|
|
S ER=0 Q
|
|
HHAYES D CLEAR U IO H 2 W "+++" H 2 W "ATH0",! H 2 D CLEAR S ER=0 Q
|
|
HSTAT S ER=0 Q
|
|
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
|
|
HRV2400 W *3,*4 Q
|
|
SRV2400 S Y="no status report",ER=0 Q
|
|
ATT212C ;AT&T 300/1200 AUTODIAL MODEM
|
|
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)
|
|
D2 I $L(XMPHONE)>36 S ER=1 Q
|
|
F I=1:1:6 U IO W *13 U IO R X:2 Q:X[":"
|
|
I I=6 K I S ER=1 Q
|
|
K I
|
|
D3 ;
|
|
U IO W XMPHONE,"/",*13 R X:70 I '$T U IO W "$B$:",*13 S ER=1 Q
|
|
F I=1:1:7 U IO R X:30 Q:X["Conn" Q:X["Answ" Q:+X
|
|
I ((X["Con")!(X["Ans")) S ER=0 Q
|
|
I '+X S ER=1 Q
|
|
S ER=0 Q
|
|
H212C U IO W "$B" H 3 R X:3,X:0 U IO W "$:" H 3 R X:3,X:0
|
|
U IO W "TALK",*13 H 5 S ER=1 F I=1:1:10 R X:3 Q:X[":"
|
|
K:I=10 I Q:'$D(I) K I S ER=0 Q
|
|
S212C F I=1:1 U IO R X:1 Q:'$T
|
|
S2 S ER=1,%=^%ZOSF("TRMRD")
|
|
U IO X ^%ZOSF("TRMON") W *13 H 2 R X:4 I X'[":" R X:2
|
|
W "S",*13 H 3 F I=1:1 U IO R X:3 Q:'$T U IO(0) W X X % W *Y
|
|
X ^%ZOSF("TRMOFF") K I S ER=0 Q
|
|
R212C D H212C F I=1:1 U IO R X:3 Q:'$T
|
|
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
|
|
S ER=1 F I=1:1:10 U IO W *13 U IO R X:3 Q:X[":"
|
|
K:I=10 I Q:'$D(I) S ER=0 Q
|
|
Q
|
|
CLEAR F %=1:1 U IO R Y:1 Q:'$T
|
|
Q
|