Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMM6

XMM6.m

Go to the documentation of this file.
  1. XMM6 ; ACC-IHS ; MODEM CONTROL LOGIC FOR COURIER AUTODIAL MODEM ; [ 09/30/93 4:33 PM ]
  1. ;;7.1;Mailman;**1003**;OCT 27, 1998
  1. ;;7.0;;ACC/IHS ROUTINE FROM;;3.08;3.27;
  1. Q
  1. DMULTI ; "INITIALIZE" AND "DIAL" CODE
  1. U IO W *13 D CLEAR
  1. U IO W "ATQ0V0E0",*13 D CLEAR
  1. U IO W "ATH",*13 R Y:5 S:'$T Y="" I Y'=0 S Y="could not synchronize with modem ["_Y_"]",ER=1 Q
  1. ;I 'SILENT U 0 W !,"Synchronized with modem."
  1. S ER=0 S X="ATDT"_XMPHONE D DIAL F %=1:1 D READ Q:NOMORE
  1. I Y'["CONNECT" S Y=$S(Y="":"timed out before receiving 'connect' msg from modem",1:"received '"_Y_"' msg from modem"),ER=1 Q
  1. Q
  1. ;
  1. HMULTI ; "HANGUP" CODE
  1. U IO W "+++",*13 H 1 W "ATZ",*13 D CLEAR
  1. W "ATH0V1",*13
  1. F %=0:0 R Y:60 Q:'$T Q:Y["OK"
  1. ;I 'SILENT U 0 W !,"Modem disconnected and reset."
  1. Q
  1. ;
  1. SMULTI ; "STATUS" CODE
  1. S Y="no status report",ER=0
  1. Q
  1. ;
  1. MULTIM ;;OK;;1
  1. 1 ;;CONNECT;;1
  1. 2 ;;RING;;0
  1. 3 ;;NO CARRIER;;1
  1. 4 ;;ERROR;;1
  1. 5 ;;CONNECT 1200;;1
  1. 6 ;;NO DIAL TONE;;1
  1. 7 ;;BUSY;;1
  1. 8 ;;NO ANSWER;;1
  1. 9 ;;reserved;;0
  1. 10 ;;CONNECT 2400;;1
  1. 11 ;;RINGING;;0
  1. 12 ;;NOT USED;;0
  1. 13 ;;NOT USED;;0
  1. 14 ;;CONNECT /ARQ;;1
  1. 15 ;;CONNECT 1200/ARQ;;1
  1. 16 ;;CONNECT 2400/ARQ;;1
  1. ;
  1. CLEAR U IO F %=1:1 R *Y:2 Q:'$T
  1. Q
  1. DIAL ;I 'SILENT U 0 W !,"Dialing ",X,*13
  1. U IO W X,*13
  1. Q
  1. READ ;S Y="" U IO F %1=1:1 R C#1:60 Q:'$T I C'=$C(10) U 0 W !,?3,%1,?5,C U IO S:C'="" Y=C I C="" S NOMORE=$P($T(MULTIM+Y),";;",3),Y=$P($T(MULTIM+Y),";;",2) Q
  1. S Y="" U IO F %1=1:1 R C:60 Q:'$T I C'=$A(10) S Y=C,NOMORE=$P($T(MULTIM+Y),";;",3),Y=$P($T(MULTIM+Y),";;",2) Q
  1. I '$T S Y="NO RESPONSE FROM MODEM",NOMORE=1
  1. Q