Routine: XMM6

Entry Points

Name	Comments	DBIA/ICR reference
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
HMULTI	; "HANGUP" CODE
MULTIM	;;OK;;1
1	;;CONNECT;;1
3	;;NO CARRIER;;1
2	;;RING;;0
5	;;CONNECT 1200;;1
DMULTI	; "INITIALIZE" AND "DIAL" CODE
7	;;BUSY;;1
6	;;NO DIAL TONE;;1
9	;;reserved;;0
8	;;NO ANSWER;;1
4	;;ERROR;;1
CLEAR
DIAL	;I 'SILENT U 0 W !,"Dialing ",X,*13
11	;;RINGING;;0
10	;;CONNECT 2400;;1
13	;;NOT USED;;0
12	;;NOT USED;;0
15	;;CONNECT 1200/ARQ;;1
14	;;CONNECT /ARQ;;1
16	;;CONNECT 2400/ARQ;;1
SMULTI	; "STATUS" CODE

Name	Line Occurrences
Function Call: WRITE	Prompt: *13 Line Location: DMULTI+1
Function Call: WRITE	Prompt: "ATQ0V0E0",*13 Line Location: DMULTI+2
Function Call: READ	Timeout: 5 Variable: Y Line Location: DMULTI+3
Function Call: WRITE	Prompt: "ATH",*13 Line Location: DMULTI+3
Function Call: WRITE	Prompt: !,"Synchronized with modem." Line Location: DMULTI+4
Function Call: WRITE	Prompt: "+++",*13 Line Location: HMULTI+1
Function Call: WRITE	Prompt: "ATZ",*13 Line Location: HMULTI+1
Function Call: WRITE	Prompt: "ATH0V1",*13 Line Location: HMULTI+2
Function Call: READ	Timeout: 60 Variable: Y Line Location: HMULTI+3
Function Call: WRITE	Prompt: !,"Modem disconnected and reset." Line Location: HMULTI+4
Function Call: READ	Timeout: 2 Variable: *Y Line Location: CLEAR+0
Function Call: WRITE	Prompt: !,"Dialing ",X,*13 Line Location: DIAL+0
Function Call: WRITE	Prompt: X,*13 Line Location: DIAL+1
Function Call: READ	Timeout: 60 Variable: C#1 Line Location: READ+0
Function Call: READ	Timeout: 60 Variable: C Line Location: READ+1

Name	Field # of Occurrence
>> %	DMULTI+5, HMULTI+3, CLEAR*
>> %1	READ+1*
>> C	READ+1*
>> ER	DMULTI+3, DMULTI+5, DMULTI+6, SMULTI+1
IO	DMULTI+1, DMULTI+2, DMULTI+3, HMULTI+1, CLEAR, DIAL+1, READ+1
>> NOMORE	DMULTI+5, READ+1, READ+2
>> X	DMULTI+5*, DIAL+1
>> XMPHONE	DMULTI+5
>> Y	DMULTI+3, DMULTI+6, HMULTI+3, SMULTI+1, CLEAR, READ+1, READ+2*

Name	Field # of Occurrence
$T(MULTIM+Y	READ+1