XMM5 ; ACC-IHS ; MODEM CONTROL LOGIC FOR TIMPLEX MULTIPLEXOR LINE ; [ 09/30/93 4:33 PM ]
;;7.1;Mailman;**1003**;OCT 27, 1998
;;7.0;;ACC/IHS ROUTINE FROM;;3.08;3.27
;
Q
DTIMPLX ; "INITIALIZE" AND "DIAL" CODE
U IO W *13 D CLEAR
U IO W *13 F %=0:0 R Y:5 D STRIP Q:Y]"" Q:'$T
I Y'=" >>> " S Y="could not synchronize with Timeplex ["_Y_"]",ER=1 Q
;I 'SILENT U 0 W !,"Synchronized with Timeplex."
S ER=0 S X=XMPHONE D DIAL F %=1:1 D READ Q:NOMORE
S XMMSG=Y
I XMMSG["NO CONNECT" U IO W *27
I XMMSG'["COMPLETE" S Y=$S(XMMSG="":"timed out before receiving 'connect' msg from Timeplex",1:"received '"_XMMSG_"' msg from Timeplex"),ER=1
K XMMSG
Q
STRIP F %=0:0 Q:$A(Y)'=0 S Y=$E(Y,2,$L(Y))
S:$A(Y,$L(Y))=10 Y=$E(Y,1,$L(Y)-1)
S %=0
Q
;
HTIMPLX ; "HANGUP" CODE
U IO W $C(2),$C(3) H 1 W "BYE",*13 D CLEAR
;U IO
F %=0:0 R Y:60 Q:'$T Q:Y["Exit"
I Y'[">>>" D CLEAR W $C(2),$C(3) H 1
W "BYE",*13 D CLEAR
S Y="disconnected from Timeplex"
;I 'SILENT U 0 W !,"Timeplex disconnected and reset."
Q
;
STIMPLX ; "STATUS" CODE
S Y="no status report",ER=0
Q
;
TIMPLXM ;;CONNECT COMPLETE;;1
;;INVALID CONNECT REQUEST;;1
;;SORRY, NO CONNECTION;;1
;;>>>;0
;;UNRECOGNIZED RESPONSE!;;1
;
CLEAR F %=1:1 U IO R Y:2 Q:'$T ;u 0 w %,") ",Y,!
Q
DIAL ;I 'SILENT U 0 W !,"Dialing ",X,*13
U IO W X,*13
Q
READ U IO F %=1:1 R Y:5 Q:'$T&(Y="") D STRIP I Y]"" D FINDMSG S NOMORE=$P($T(TIMPLXM+Y),";;",3),Y=$P($T(TIMPLXM+Y),";;",2) Q
I '$T,Y="" S Y="NO RESPONSE FROM TIMEPLEX",NOMORE=1
Q
FINDMSG F XMI=0:1:4 S:Y="" XMI=4 Q:XMI=4 Q:Y[$P($T(TIMPLXM+XMI),";;",2)
S Y=XMI
K XMI
Q
XMM5 ; ACC-IHS ; MODEM CONTROL LOGIC FOR TIMPLEX MULTIPLEXOR LINE ; [ 09/30/93 4:33 PM ]
+1 ;;7.1;Mailman;**1003**;OCT 27, 1998
+2 ;;7.0;;ACC/IHS ROUTINE FROM;;3.08;3.27
+3 ;
+4 QUIT
DTIMPLX ; "INITIALIZE" AND "DIAL" CODE
+1 USE IO
WRITE *13
DO CLEAR
+2 USE IO
WRITE *13
FOR %=0:0
READ Y:5
DO STRIP
IF Y]""
QUIT
IF '$TEST
QUIT
+3 IF Y'=" >>> "
SET Y="could not synchronize with Timeplex ["_Y_"]"
SET ER=1
QUIT
+4 ;I 'SILENT U 0 W !,"Synchronized with Timeplex."
+5 SET ER=0
SET X=XMPHONE
DO DIAL
FOR %=1:1
DO READ
IF NOMORE
QUIT
+6 SET XMMSG=Y
+7 IF XMMSG["NO CONNECT"
USE IO
WRITE *27
+8 IF XMMSG'["COMPLETE"
SET Y=$SELECT(XMMSG="":"timed out before receiving 'connect' msg from Timeplex",1:"received '"_XMMSG_"' msg from Timeplex")
SET ER=1
+9 KILL XMMSG
+10 QUIT
STRIP FOR %=0:0
IF $ASCII(Y)'=0
QUIT
SET Y=$EXTRACT(Y,2,$LENGTH(Y))
+1 IF $ASCII(Y,$LENGTH(Y))=10
SET Y=$EXTRACT(Y,1,$LENGTH(Y)-1)
+2 SET %=0
+3 QUIT
+4 ;
HTIMPLX ; "HANGUP" CODE
+1 USE IO
WRITE $CHAR(2),$CHAR(3)
HANG 1
WRITE "BYE",*13
DO CLEAR
+2 ;U IO
+3 FOR %=0:0
READ Y:60
IF '$TEST
QUIT
IF Y["Exit"
QUIT
+4 IF Y'[">>>"
DO CLEAR
WRITE $CHAR(2),$CHAR(3)
HANG 1
+5 WRITE "BYE",*13
DO CLEAR
+6 SET Y="disconnected from Timeplex"
+7 ;I 'SILENT U 0 W !,"Timeplex disconnected and reset."
+8 QUIT
+9 ;
STIMPLX ; "STATUS" CODE
+1 SET Y="no status report"
SET ER=0
+2 QUIT
+3 ;
TIMPLXM ;;CONNECT COMPLETE;;1
+1 ;;INVALID CONNECT REQUEST;;1
+2 ;;SORRY, NO CONNECTION;;1
+3 ;;>>>;0
+4 ;;UNRECOGNIZED RESPONSE!;;1
+5 ;
CLEAR ;u 0 w %,") ",Y,!
FOR %=1:1
USE IO
READ Y:2
IF '$TEST
QUIT
+1 QUIT
DIAL ;I 'SILENT U 0 W !,"Dialing ",X,*13
+1 USE IO
WRITE X,*13
+2 QUIT
READ USE IO
FOR %=1:1
READ Y:5
IF '$TEST&(Y="")
QUIT
DO STRIP
IF Y]""
DO FINDMSG
SET NOMORE=$PIECE($TEXT(TIMPLXM+Y),";;",3)
SET Y=$PIECE($TEXT(TIMPLXM+Y),";;",2)
QUIT
+1 IF '$TEST
IF Y=""
SET Y="NO RESPONSE FROM TIMEPLEX"
SET NOMORE=1
+2 QUIT
FINDMSG FOR XMI=0:1:4
IF Y=""
SET XMI=4
IF XMI=4
QUIT
IF Y[$PIECE($TEXT(TIMPLXM+XMI),";;",2)
QUIT
+1 SET Y=XMI
+2 KILL XMI
+3 QUIT
