Context Navigation

ckudia.c @ 20081

Visit:

Revision 20081, 234.8 KB checked in by zacheiss, 21 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r20080, which included commits to RCS files with non-trunk default branches.

Line
1	#include "ckcsym.h"
2	char *dialv = "Dial Command, 8.0.160, 29 Apr 2002";
3
4	/* C K U D I A -- Module for automatic modem dialing. */
5
6	/*
7	Copyright (C) 1985, 2002,
8	Trustees of Columbia University in the City of New York.
9	All rights reserved. See the C-Kermit COPYING.TXT file or the
10	copyright text in the ckcmai.c module for disclaimer and permissions.
11	*/
12
13	/*
14	Authors:
15
16	Original (version 1, 1985) author: Herm Fischer, Encino, CA.
17	Contributed to Columbia University in 1985 for inclusion in C-Kermit 4.0.
18	Author and maintainer since 1985: Frank da Cruz, Columbia University,
19	fdc@columbia.edu.
20
21	Contributions by many others throughout the years, including: Jeffrey
22	Altman, Mark Berryman, Fernando Cabral, John Chmielewski, Joe Doupnik,
23	Richard Hill, Larry Jacobs, Eric Jones, Tom Kloos, Bob Larson, Peter Mauzey,
24	Joe Orost, Kevin O'Gorman, Kai Uwe Rommel, Dan Schullman, Warren Tucker, and
25	many others.
26	*/
27
28	/*
29	Entry points:
30	ckdial(char * number) Dial a number or answer a call
31	dialhup() Hang up a dialed connection
32	mdmhup() Use modem commands to hang up
33
34	All other routines are static.
35	Don't call dialhup() or mdmhup() without first calling ckdial().
36	*/
37
38	/*
39	This module calls externally defined system-dependent functions for
40	communications i/o, as described in CKCPLM.DOC, the C-Kermit Program Logic
41	Manual, and thus should be portable to all systems that implement those
42	functions, and where alarm() and signal() work.
43
44	HOW TO ADD SUPPORT FOR ANOTHER MODEM:
45
46	1. In ckuusr.h, define a modem-type number symbol (n_XXX) for the new modem,
47	the next highest one.
48
49	2. In ckuusr.h, adjust MAX_MDM to the new number of modem types.
50
51	The remaining steps are in this module:
52
53	3. Create a MDMINF structure for it. NOTE: The wake_str should include
54	all invariant setup info, e.g. enable result codes, BREAK transparency,
55	modulation negotiation, etc. See ckcker.h for MDMINF struct definition.
56
57	4. Add the address of the MDMINF structure to the modemp[] array,
58	according to the numerical value of the modem-type number.
59
60	5. Add the user-visible (SET MODEM) name and corresponding modem number
61	to the mdmtab[] array, in alphabetical order by modem-name string.
62
63	6. If this falls into a class like is_rockwell, is_supra, etc, add the new
64	one to the definition of the class.
65
66	7. Adjust the gethrn() routine to account for any special numeric result
67	codes (if it's a Hayes compatible modem).
68
69	8. Read through the code and add any modem-specific sections as necessary.
70	For most modern Hayes-compatible modems, no specific code will be
71	needed.
72
73	NOTE: The MINIDIAL symbol is used to build this module to include support
74	for only a minimum number of standard and/or generally useful modem types,
75	namely Hayes 1200 and 2400, ITU-T (CCITT) V.25bis and V.25ter (V.250),
76	Generic-High-Speed, "Unknown", and None. When adding support for a new
77	modem type, keep it outside of the MINIDIAL sections unless it deserves to
78	be in it.
79	*/
80
81	#include "ckcdeb.h"
82	#ifndef NOLOCAL
83	#ifndef NODIAL
84	#ifndef NOICP
85
86	#ifndef CK_ATDT
87	#define CK_ATDT
88	#endif /* CK_ATDT */
89
90	#ifndef NOOLDMODEMS /* Unless instructed otherwise, */
91	#define OLDMODEMS /* keep support for old modems. */
92	#endif /* NOOLDMODEMS */
93
94	#ifndef M_OLD /* Hide old modem keywords in SET MODEM table. */
95	#define M_OLD 0 /* Define as CM_INV to make them invisible. */
96	#endif /* M_OLD */
97
98	#ifndef M_ALIAS
99	#define M_ALIAS 64
100	#endif /* M_ALIAS */
101
102	#ifndef MAC
103	#include <signal.h>
104	#endif /* MAC */
105	#include "ckcasc.h"
106	#include "ckcker.h"
107	#include "ckucmd.h"
108	#include "ckcnet.h"
109	#include "ckuusr.h"
110
111	#ifdef OS2ONLY
112	#define INCL_VIO /* Needed for ckocon.h */
113	#include <os2.h>
114	#undef COMMENT
115	#include "ckocon.h"
116	#endif /* OS2ONLY */
117
118	#ifdef NT
119	#include <windows.h>
120	#include <tapi.h>
121	#include "cknwin.h"
122	#include "ckntap.h"
123	#endif /* NT */
124	#ifdef OS2
125	#include "ckowin.h"
126	#endif /* OS2 */
127
128	#ifndef ZILOG
129	#ifdef NT
130	#include <setjmpex.h>
131	#else /* NT */
132	#include <setjmp.h>
133	#endif /* NT */
134	#else
135	#include <setret.h>
136	#endif /* ZILOG */
137
138	#include "ckcsig.h" /* C-Kermit signal processing */
139
140	#ifdef MAC
141	#define signal msignal
142	#define SIGTYP long
143	#define alarm malarm
144	#define SIG_IGN 0
145	#define SIGALRM 1
146	#define SIGINT 2
147	SIGTYP (msignal(int type, SIGTYP (func)(int)))(int);
148	#endif /* MAC */
149
150	#ifdef AMIGA
151	#define signal asignal
152	#define alarm aalarm
153	#define SIGALRM (_NUMSIG+1)
154	#define SIGTYP void
155	SIGTYP (asignal(int type, SIGTYP (func)(int)))(int);
156	unsigned aalarm(unsigned);
157	#endif /* AMIGA */
158
159	#ifdef STRATUS
160	/*
161	VOS doesn't have alarm(), but it does have some things we can work with.
162	However, we have to catch all the signals in one place to do this, so
163	we intercept the signal() routine and call it from our own replacement.
164	*/
165	#define signal vsignal
166	#define alarm valarm
167	SIGTYP (vsignal(int type, SIGTYP (func)(int)))(int);
168	int valarm(int interval);
169	#ifdef putchar
170	#undef putchar
171	#endif /* putchar */
172	#define putchar(x) conoc(x)
173	#ifdef getchar
174	#undef getchar
175	#endif /* getchar */
176	#define getchar(x) coninc(0)
177	#endif /* STRATUS */
178
179	#ifdef OS2
180	#ifdef putchar
181	#undef putchar
182	#endif /* putchar */
183	#define putchar(x) conoc(x)
184	#endif /* OS2 */
185
186	#ifndef NOHINTS
187	extern int hints;
188	#endif /* NOHINTS */
189
190	#ifdef CK_TAPI
191	extern int tttapi;
192	extern int tapipass;
193	#endif /* CK_TAPI */
194
195	#ifdef CKLOGDIAL
196	extern int dialog;
197	#endif /* CKLOGDIAL */
198
199	char * dialmsg[] = { /* DIAL status strings */
200
201	/* Keyed to numbers defined in ckcker.h -- keep in sync! */
202
203	"DIAL succeeded", /* 0 DIA_OK */
204	"Modem type not specified", /* 1 DIA_NOMO */
205	"Communication device not specified", /* 2 DIA_NOLI */
206	"Communication device can't be opened", /* 3 DIA_OPEN */
207	"Speed not specified", /* 4 DIA_NOSP */
208	"Pre-DIAL hangup failed", /* 5 DIA_HANG */
209	"Internal error", /* 6 DIA_IE */
210	"Device input/output error", /* 7 DIA_IO */
211	"DIAL TIMEOUT expired", /* 8 DIA_TIMO */
212	"Interrupted by user", /* 9 DIA_INTR */
213	"Modem not ready", /* 10 DIA_NRDY */
214	"Partial dial OK", /* 11 DIA_PART */
215	"Dial directory lookup error", /* 12 DIA_DIR */
216	"Hangup OK", /* 13 DIA_HUP */
217	NULL, /* 14 (undef) */
218	NULL, /* 15 (undef) */
219	NULL, /* 16 (undef) */
220	NULL, /* 17 (undef) */
221	NULL, /* 18 (undef) */
222	"No response from modem", /* 19 DIA_NRSP */
223	"Modem command error", /* 20 DIA_ERR */
224	"Failure to initialize modem", /* 21 DIA_NOIN */
225	"Phone busy", /* 22 DIA_BUSY */
226	"No carrier", /* 23 DIA_NOCA */
227	"No dialtone", /* 24 DIA_NODT */
228	"Incoming call", /* 25 DIA_RING */
229	"No answer", /* 26 DIA_NOAN */
230	"Disconnected", /* 27 DIA_DISC */
231	"Answered by voice", /* 28 DIA_VOIC */
232	"Access denied / forbidden call", /* 29 DIA_NOAC */
233	"Blacklisted", /* 30 DIA_BLCK */
234	"Delayed", /* 31 DIA_DELA */
235	"Fax connection", /* 32 DIA_FAX */
236	"Digital line", /* 33 DIA_DIGI */
237	"TAPI dialing failure", /* 34 DIA_TAPI */
238	NULL /* 34 */
239	};
240
241	#ifdef COMMENT
242	#ifdef NOSPL
243	static
244	#endif /* NOSPL */
245	char modemmsg[128] = { NUL, NUL }; /* DIAL response from modem */
246	#endif /* COMMENT */
247
248	#ifdef NTSIG
249	extern int TlsIndex;
250	#endif /* NTSIG */
251
252	int mdmtyp = n_GENERIC; /* Default modem type */
253	int mdmset = 0; /* User explicitly set a modem type */
254
255	int /* SET DIAL parameters */
256	dialhng = 1, /* DIAL HANGUP, default is ON */
257	dialdpy = 0, /* DIAL DISPLAY, default is OFF */
258	mdmspd = 0, /* DIAL SPEED-MATCHING (0 = OFF) */
259	mdmspk = 1, /* MODEM SPEAKER */
260	mdmvol = 2, /* MODEM VOLUME */
261	dialtmo = 0, /* DIAL TIMEOUT */
262	dialatmo = -1, /* ANSWER TIMEOUT */
263	dialksp = 0, /* DIAL KERMIT-SPOOF, 0 = OFF */
264	dialidt = 0, /* DIAL IGNORE-DIALTONE */
265	#ifndef CK_RTSCTS
266	/* If we can't do RTS/CTS then there's no flow control at first. */
267	/* So we might easily lose the echo to the init string and the OK */
268	/* and then give "No response from modem" errors. */
269	dialpace = 150, /* DIAL PACING */
270	#else
271	dialpace = -1,
272	#endif /* CK_RTSCTS */
273
274	/* 0 = RS232 (drop DTR); 1 = MODEM-COMMAND (e.g. <sec>+++<sec>ATH0) */
275	dialmhu = DEFMDMHUP; /* MODEM HANGUP-METHOD */
276
277	int
278	dialec = 1, /* DIAL ERROR-CORRECTION */
279	dialdc = 1, /* DIAL COMPRESSION */
280	#ifdef VMS
281	/* VMS can only use Xon/Xoff */
282	dialfc = FLO_XONX, /* DIAL FLOW-CONTROL */
283	#else
284	dialfc = FLO_AUTO,
285	#endif /* VMS */
286	dialmth = XYDM_D, /* DIAL METHOD (Tone, Pulse, Defalt) */
287	dialmauto = 1, /* DIAL METHOD is AUTO */
288	dialesc = 0; /* DIAL ESCAPE */
289
290	int telephony = 0; /* Command-line '-T' option */
291
292	long dialmax = 0L, /* Modem's max interface speed */
293	dialcapas = 0L; /* Modem's capabilities */
294
295	int dialsta = DIA_UNK; /* Detailed return code (ckuusr.h) */
296
297	#ifdef COMMENT
298	int ans_cid = 0; /* SET ANSWER parameters */
299	int ans_rings = 0; /* (not used yet...) */
300	#endif /* COMMENT */
301
302	int is_rockwell = 0;
303	int is_motorola = 0;
304	int is_supra = 0;
305	int is_hayeshispd = 0;
306
307	/* Dialing directory list */
308
309	char dialdir[MAXDDIR]; / DIAL DIRECTORY filename array */
310	int ndialdir = 0; /* How many dial directories */
311
312	/* User overrides for built-in modem commands */
313
314	char dialini = NULL; / MODEM INIT-STRING none */
315	char dialmstr = NULL; / MODEM DIALMODE-STRING */
316	char dialmprmt = NULL; / MODEM DIALMODE-PROMPT */
317	char dialcmd = NULL; / MODEM DIAL-COMMAND, default none */
318	char dialname = NULL; / Descriptive name for modem */
319	char dialdcon = NULL; / DC ON command */
320	char dialdcoff = NULL; / DC OFF command */
321	char dialecon = NULL; / EC ON command */
322	char dialecoff = NULL; / EC OFF command */
323	char dialaaon = NULL; / Autoanswer ON command */
324	char dialaaoff = NULL; / Autoanswer OFF command */
325	char dialhcmd = NULL; / Hangup command */
326	char dialhwfc = NULL; / Hardware flow control command */
327	char dialswfc = NULL; / (Local) software f.c. command */
328	char dialnofc = NULL; / No (Local) flow control command */
329	char dialtone = NULL; / Command to force tone dialing */
330	char dialpulse = NULL; / ..to force pulse dialing */
331	char dialx3 = NULL; / Ignore dialtone */
332	char *mdmname = NULL;
333	char dialspon = NULL; / Speaker On command */
334	char dialspoff = NULL; / Speaker Off command */
335	char dialvol1 = NULL; / Volume Low command */
336	char dialvol2 = NULL; / Volume Medium command */
337	char dialvol3 = NULL; / Volume High command */
338	char dialini2 = NULL; / Second init string */
339
340	/* Phone number options */
341
342	char dialnpr = NULL; / DIAL PREFIX, ditto */
343	char diallac = NULL; / DIAL LOCAL-AREA-CODE, ditto */
344	char diallcc = NULL; / DIAL LOCAL-COUNTRY-CODE, ditto */
345	char dialixp = NULL; / DIAL INTL-PREFIX */
346	char dialixs = NULL; / DIAL INTL-SUFFIX */
347	char dialldp = NULL; / DIAL LD-PREFIX */
348	char diallds = NULL; / DIAL LD-SUFFIX */
349	char diallcp = NULL; / DIAL LOCAL-PREFIX */
350	char diallcs = NULL; / DIAL LOCAL-SUFFIX */
351	char dialpxi = NULL; / DIAL PBX-INTERNAL-PREFIX */
352	char dialpxo = NULL; / DIAL PBX-OUTSIDE-PREFIX */
353	char dialsfx = NULL; / DIAL SUFFIX */
354	char dialtfp = NULL; / DIAL TOLL-FREE-PREFIX */
355
356	char callid_date = NULL; / Caller ID strings */
357	char *callid_time = NULL;
358	char *callid_name = NULL;
359	char *callid_nmbr = NULL;
360	char *callid_mesg = NULL;
361
362	extern char * d_name;
363	extern char * dialtfc[]; /* DIAL TOLL-FREE-AREA-CODE */
364	extern char * dialpxx[]; /* DIAL PBX-EXCHANGE */
365	extern int ntollfree;
366	extern int ndialpxx;
367
368	extern char * dialpucc[]; /* DIAL Pulse countries */
369	extern int ndialpucc;
370	extern char * dialtocc[]; /* DIAL Tone countries */
371	extern int ndialtocc;
372
373	char dialmac = NULL; / DIAL macro */
374
375	/* Countries where pulse dialing must be used (tone is not available) */
376	static char * pulsecc[] = { NULL }; /* (Unknown at present) */
377
378	/* Countries where tone dialing may safely be the default. */
379	/* "+" marks countries where pulse is also allowed. */
380	/* Both Pulse and Tone are allowed in Austria & Switzerland but it is not */
381	/* yet known if Tone is universally in those countries. */
382	static char * tonecc[] = {
383	"1", /* + North American Numbering Plan */
384	"31", /* Netherlands */
385	"32", /* Belgium */
386	"33", /* France */
387	"352", /* Luxembourg */
388	"353", /* Ireland */
389	"354", /* Iceland */
390	"358", /* Finland */
391	"39", /* Italy */
392	"44", /* + UK */
393	"45", /* Denmark */
394	"46", /* Sweden */
395	"47", /* Norway */
396	"49", /* + Germany */
397	NULL
398	};
399
400	#ifndef MINIDIAL
401	/*
402	Telebit model codes:
403
404	ATI Model Numbers Examples
405	--- ------------- --------
406	123 Telebit in "total Hayes-1200" emulation mode
407	960 Telebit in Conventional Command (Hayes) mode
408	961 RA12C IBM PC internal original Trailblazer
409	962 RA12E External original Trailblazer
410	963 RM12C Rackmount original Trailblazer
411	964 T18PC IBM PC internal Trailblazer-Plus (TB+)
412	965 T18SA, T2SAA, T2SAS External TB+, T1600, T2000, T3000, WB, and later
413	966 T18RMM Rackmount TB+
414	967 T2MC IBM PS/2 internal TB+
415	968 T1000 External T1000
416	969 ? Qblazer
417	970 Qblazer Plus
418	971 T2500 External T2500
419	972 T2500 Rackmount T2500
420	*/
421
422	/* Telebit model codes */
423
424	#define TB_UNK 0 /* Unknown Telebit model */
425	#define TB_BLAZ 1 /* Original TrailBlazer */
426	#define TB_PLUS 2 /* TrailBlazer Plus */
427	#define TB_1000 3 /* T1000 */
428	#define TB_1500 4 /* T1500 */
429	#define TB_1600 5 /* T1600 */
430	#define TB_2000 6 /* T2000 */
431	#define TB_2500 7 /* T2500 */
432	#define TB_3000 8 /* T3000 */
433	#define TB_QBLA 9 /* Qblazer */
434	#define TB_WBLA 10 /* WorldBlazer */
435	#define TB__MAX 10 /* Highest number */
436
437	char tb_name[] = { / Array of model names */
438	"Unknown", /* TB_UNK */
439	"TrailBlazer", /* TB_BLAZ */
440	"TrailBlazer-Plus", /* TB_PLUS */
441	"T1000", /* TB_1000 */
442	"T1500", /* TB_1500 */
443	"T1600", /* TB_1600 */
444	"T2000", /* TB_2000 */
445	"T2500", /* TB_2500 */
446	"T3000", /* TB_3000 */
447	"Qblazer", /* TB_QBLA */
448	"WorldBlazer", /* TB_WBLA */
449	""
450	};
451	#endif /* MINIDIAL */
452
453	extern int flow, local, mdmtyp, quiet, backgrd, parity, seslog, network;
454	extern int carrier, duplex, mdmsav, reliable, setreliable;
455	extern int ttnproto, nettype;
456	extern long speed;
457	extern char ttname[], sesfil[];
458	#ifndef NOXFER
459	extern CHAR stchr;
460	extern int interrupted;
461	#endif /* NOXFER */
462
463	/* Failure codes */
464
465	#define F_TIME 1 /* timeout */
466	#define F_INT 2 /* interrupt */
467	#define F_MODEM 3 /* modem-detected failure */
468	#define F_MINIT 4 /* cannot initialize modem */
469
470	#ifndef CK_TAPI
471	static
472	#endif /* CK_TAPI */
473	#ifdef OS2
474	volatile
475	#endif /* OS2 */
476	int fail_code = 0; /* Default failure reason. */
477
478	static int xredial = 0;
479	static int func_code; /* 0 = dialing, nonzero = answering */
480	static int partial;
481	static int mymdmtyp = 0;
482
483	#define DW_NOTHING 0 /* What we are doing */
484	#define DW_INIT 1
485	#define DW_DIAL 2
486
487	static int dial_what = DW_NOTHING; /* Nothing at first. */
488	static int nonverbal = 0; /* Hayes in numeric response mode */
489	static MDMINF * mp;
490	static CHAR escbuf[6];
491	static long mdmcapas;
492
493	_PROTOTYP (static VOID dreset, (void) );
494	_PROTOTYP (static int (*xx_ok), (int,int) );
495	_PROTOTYP (static int ddinc, (int) );
496	_PROTOTYP (int dialhup, (void) );
497	_PROTOTYP (int getok, (int,int) );
498	_PROTOTYP (char * ck_time, (void) );
499	_PROTOTYP (static VOID ttslow, (char *, int) );
500	#ifdef COMMENT
501	_PROTOTYP (static VOID xcpy, (char , char , unsigned int) );
502	#endif /* COMMENT */
503	_PROTOTYP (static VOID waitfor, (char *) );
504	_PROTOTYP (static VOID dialoc, (char) );
505	_PROTOTYP (static int didweget, (char , char ) );
506	_PROTOTYP (static VOID spdchg, (long) );
507	_PROTOTYP (static int dialfail, (int) );
508	_PROTOTYP (static VOID gethrw, (void) );
509	_PROTOTYP (static VOID gethrn, (void) );
510
511	int dialudt = n_UDEF; /* Number of user-defined type */
512
513	/* BEGIN MDMINF STRUCT DEFINITIONS */
514
515	/*
516	Declare structures containing modem-specific information.
517	REMEMBER that only the first SEVEN characters of these names are
518	guaranteed to be unique.
519
520	First declare the three types that are allowed for MINIDIAL versions.
521	*/
522	static
523	MDMINF CCITT = /* CCITT / ITU-T V.25bis autodialer */
524	/*
525	According to V.25bis:
526	. Even parity is required for giving commands to the modem.
527	. Commands might or might not echo.
528	. Responses ("Indications") from the modem are terminated by CR and LF.
529	. Call setup is accomplished by:
530	- DTE raises DTR (V.24 circuit 108) [ttopen() does this]
531	- Modem raises CTS (V.24 circuit 106) [C-Kermit ignores this]
532	- DTE issues a call request command ("CRN")
533	- Modem responds with "VAL" ("command accepted")
534	- If the call is completed:
535	modem responds with "CNX" ("call connected");
536	modem turns CTS (106) OFF;
537	modem turns DSR (107) ON;
538	else:
539	modem responds with "CFI <parameter>" ("call failure indication").
540	. To clear a call, the DTE turns DTR (108) OFF.
541	. There is no mention of the Carrier Detect circuit (109) in the standard.
542	. There is no provision for "escaping back" to the modem's command mode.
543
544	It is not known whether there exists in real life a pure V.25bis modem.
545	If there is, this code has never been tested on it. See the Digitel entry.
546	*/
547	{
548	"Any CCITT / ITU-T V.25bis conformant modem",
549	"", /* pulse command */
550	"", /* tone command */
551	40, /* dial_time -- programmable -- */
552	",:", /* pause_chars -- "," waits for programmable time */
553	/* ":" waits for dial tone */
554	10, /* pause_time (seconds, just a guess) */
555	"", /* wake_str (none) */
556	200, /* wake_rate (msec) */
557	"VAL", /* wake_prompt */
558	"", /* dmode_str (none) */
559	"", /* dmode_prompt (none) */
560	"CRN%s\015", /* dial_str */
561	200, /* dial_rate (msec) */
562	0, /* No esc_time */
563	0, /* No esc_char */
564	"", /* No hup_str */
565	"", /* hwfc_str */
566	"", /* swfc_str */
567	"", /* nofc_str */
568	"", /* ec_on_str */
569	"", /* ec_off_str */
570	"", /* dc_on_str */
571	"", /* dc_off_str */
572	"CIC\015", /* aa_on_str */
573	"DIC\015", /* aa_off_str */
574	"", /* sb_on_str */
575	"", /* sb_off_str */
576	"", /* sp_off_str */
577	"", /* sp_on_str */
578	"", /* vol1_str */
579	"", /* vol2_str */
580	"", /* vol3_str */
581	"", /* ignoredt */
582	"", /* ini2 */
583	0L, /* max_speed */
584	CKD_V25, /* capas */
585	NULL /* No ok_fn */
586	};
587
588	static
589	MDMINF HAYES = /* Hayes 2400 and compatible modems */
590	{
591	"Hayes Smartmodem 2400 and compatibles",
592	"ATP\015", /* pulse command */
593	"ATT\015", /* tone command */
594	35, /* dial_time */
595	",", /* pause_chars */
596	2, /* pause_time */
597	#ifdef OS2
598	"ATE1Q0V1&S0&C1&D2\015", /* wake_str */
599	#else
600	#ifdef VMS
601	"ATQ0&S1\015", /* wake_str */
602	#else
603	"ATQ0\015", /* wake_str */
604	#endif /* VMS */
605	#endif /* OS2 */
606	0, /* wake_rate */
607	"OK\015", /* wake_prompt */
608	"", /* dmode_str */
609	"", /* dmode_prompt */
610	"ATD%s\015", /* dial_str, user supplies D or T */
611	0, /* dial_rate */
612	1100, /* esc_time */
613	43, /* esc_char */
614	"ATQ0H0\015", /* hup_str */
615	"", /* hwfc_str */
616	"", /* swfc_str */
617	"", /* nofc_str */
618	"", /* ec_on_str */
619	"", /* ec_off_str */
620	"", /* dc_on_str */
621	"", /* dc_off_str */
622	"ATS0=1\015", /* aa_on_str */
623	"ATS0=0\015", /* aa_off_str */
624	"", /* sb_on_str */
625	"", /* sb_off_str */
626	"ATM1\015", /* sp_on_str */
627	"ATM0\015", /* sp_off_str */
628	"ATL1\015", /* vol1_str */
629	"ATL2\015", /* vol2_str */
630	"ATL3\015", /* vol3_str */
631	"ATX3\015", /* ignoredt */
632	"", /* ini2 */
633	2400L, /* max_speed */
634	CKD_AT, /* capas */
635	getok /* ok_fn */
636	};
637
638	/*
639	The intent of the "unknown" modem is to allow KERMIT to support
640	unknown modems by having the user type the entire autodial sequence
641	(possibly including control characters, etc.) as the "phone number".
642	The protocol and other characteristics of this modem are unknown, with
643	some "reasonable" values being chosen for some of them. The only way to
644	detect if a connection is made is to look for carrier.
645	*/
646	static
647	MDMINF UNKNOWN = /* Information for "Unknown" modem */
648	{
649	"Unknown", /* name */
650	"", /* pulse command */
651	"", /* tone command */
652	30, /* dial_time */
653	"", /* pause_chars */
654	0, /* pause_time */
655	"", /* wake_str */
656	0, /* wake_rate */
657	"", /* wake_prompt */
658	"", /* dmode_str */
659	NULL, /* dmode_prompt */
660	"%s\015", /* dial_str */
661	0, /* dial_rate */
662	0, /* esc_time */
663	0, /* esc_char */
664	"", /* hup_str */
665	"", /* hwfc_str */
666	"", /* swfc_str */
667	"", /* nofc_str */
668	"", /* ec_on_str */
669	"", /* ec_off_str */
670	"", /* dc_on_str */
671	"", /* dc_off_str */
672	"", /* aa_on_str */
673	"", /* aa_off_str */
674	"", /* sb_on_str */
675	"", /* sb_off_str */
676	"", /* sp_off_str */
677	"", /* sp_on_str */
678	"", /* vol1_str */
679	"", /* vol2_str */
680	"", /* vol3_str */
681	"", /* ignoredt */
682	"", /* ini2 */
683	0L, /* max_speed */
684	0, /* capas */
685	NULL /* ok_fn */
686	};
687
688	#ifndef MINIDIAL
689	static
690	MDMINF ATTISN = /* AT&T ISN Network */
691	{
692	"", /* pulse command */
693	"", /* tone command */
694	"AT&T ISN Network",
695	30, /* Dial time */
696	"", /* Pause characters */
697	0, /* Pause time */
698	"\015\015\015\015", /* Wake string */
699	900, /* Wake rate */
700	"DIAL", /* Wake prompt */
701	"", /* dmode_str */
702	"", /* dmode_prompt */
703	"%s\015", /* dial_str */
704	0, /* dial_rate */
705	0, /* esc_time */
706	0, /* esc_char */
707	"", /* hup_str */
708	"", /* hwfc_str */
709	"", /* swfc_str */
710	"", /* nofc_str */
711	"", /* ec_on_str */
712	"", /* ec_off_str */
713	"", /* dc_on_str */
714	"", /* dc_off_str */
715	"", /* aa_on_str */
716	"", /* aa_off_str */
717	"", /* sb_on_str */
718	"", /* sb_off_str */
719	"", /* sp_off_str */
720	"", /* sp_on_str */
721	"", /* vol1_str */
722	"", /* vol2_str */
723	"", /* vol3_str */
724	"", /* ignoredt */
725	"", /* ini2 */
726	0L, /* max_speed */
727	0, /* capas */
728	NULL /* ok_fn */
729	};
730
731	static
732	MDMINF ATTMODEM = /* information for AT&T switched-network modems */
733	/* "Number" following "dial" can include: p's and
734	* t's to indicate pulse or tone (default) dialing,
735	* + for wait for dial tone, , for pause, r for
736	* last number dialed, and, except for 2224B, some
737	* comma-delimited options like o12=y, before number.
738
739	* "Important" options for the modems:
740	*
741	* All: Except for 2224B, enable option 12 for "transparent
742	* data," o12=y. If a computer port used for both
743	* incoming and outgoing calls is connected to the
744	* modem, disable "enter interactive mode on carriage
745	* return," EICR. The Kermit "dial" command can
746	* function with EIA leads standard, EIAS.
747	*
748	* 2212C: Internal hardware switches at their default
749	* positions (four rockers down away from numbers)
750	* unless EICR is not wanted (rocker down at the 4).
751	* For EIAS, rocker down at the 1.
752	*
753	* 2224B: Front-panel switch position 1 must be up (at the 1,
754	* closed). Disable EICR with position 2 down.
755	* For EIAS, position 4 down.
756	* All switches on the back panel down.
757	*
758	* 2224CEO: All front-panel switches down except either 5 or 6.
759	* Enable interactive flow control with o16=y.
760	* Select normal asynchronous mode with o34=0 (zero).
761	* Disable EICR with position 3 up. For EIAS, 1 up.
762	* Reset the modem after changing switches.
763	*
764	* 2296A: If option 00 (zeros) is present, use o00=0.
765	* Enable interactive flow control with o16=y.
766	* Select normal asynchronous mode with o34=0 (zero).
767	* (available in Microcom Networking version, but
768	* not necessarily other models of the 2296A).
769	* Enable modem-port flow control (if available) with
770	* o42=y. Enable asynchronous operation with o50=y.
771	* Disable EICR with o69=n. For EIAS, o66=n, using
772	* front panel.
773	*/
774	{
775	"AT&T switched-network modems",
776	"", /* pulse command */
777	"", /* tone command */
778	20, /* dial_time */
779	",", /* pause_chars */
780	2, /* pause_time */
781	"+", /* wake_str */
782	0, /* wake_rate */
783	"", /* wake_prompt */
784	"", /* dmode_str */
785	"", /* dmode_prompt */
786	"at%s\015", /* dial_str */
787	0, /* dial_rate */
788	0, /* esc_time */
789	0, /* esc_char */
790	"", /* hup_str */
791	"", /* hwfc_str */
792	"", /* swfc_str */
793	"", /* nofc_str */
794	"", /* ec_on_str */
795	"", /* ec_off_str */
796	"", /* dc_on_str */
797	"", /* dc_off_str */
798	"", /* aa_on_str */
799	"", /* aa_off_str */
800	"", /* sb_on_str */
801	"", /* sb_off_str */
802	"", /* sp_off_str */
803	"", /* sp_on_str */
804	"", /* vol1_str */
805	"", /* vol2_str */
806	"", /* vol3_str */
807	"", /* ignoredt */
808	"", /* ini2 */
809	0L, /* max_speed */
810	CKD_AT, /* capas */
811	NULL /* ok_fn */
812	};
813
814	static
815	MDMINF ATTDTDM = /* AT&T Digital Terminal Data Module */
816	/* For dialing: KYBD switch down, others usually up. */
817	{
818	"AT&T Digital Terminal Data Module",
819	"", /* pulse command */
820	"", /* tone command */
821	20, /* dial_time */
822	"", /* pause_chars */
823	0, /* pause_time */
824	"", /* wake_str */
825	0, /* wake_rate */
826	"", /* wake_prompt */
827	"", /* dmode_str */
828	"", /* dmode_prompt */
829	"%s\015", /* dial_str */
830	0, /* dial_rate */
831	0, /* esc_time */
832	0, /* esc_char */
833	"", /* hup_str */
834	"", /* hwfc_str */
835	"", /* swfc_str */
836	"", /* nofc_str */
837	"", /* ec_on_str */
838	"", /* ec_off_str */
839	"", /* dc_on_str */
840	"", /* dc_off_str */
841	"", /* aa_on_str */
842	"", /* aa_off_str */
843	"", /* sb_on_str */
844	"", /* sb_off_str */
845	"", /* sp_off_str */
846	"", /* sp_on_str */
847	"", /* vol1_str */
848	"", /* vol2_str */
849	"", /* vol3_str */
850	"", /* ignoredt */
851	"", /* ini2 */
852	0L, /* max_speed */
853	0, /* capas */
854	NULL /* ok_fn */
855	};
856
857	static
858	MDMINF DIGITEL = /* Digitel DT-22 CCITT variant used in Brazil */
859	/*
860	Attempts to adhere strictly to the V.25bis specification do not produce good
861	results in real life. The modem for which this code was developed: (a)
862	ignores parity; (b) sometimes terminates responses with LF CR instead of CR
863	LF; (c) has a Hayes-like escape sequence; (d) supports a hangup ("HUP")
864	command. Information from Fernando Cabral in Brasilia.
865	*/
866	{
867	"Digitel DT-22 CCITT dialer",
868	"", /* pulse command */
869	"", /* tone command */
870	40, /* dial_time -- programmable -- */
871	",:", /* pause_chars -- "," waits for programmable time */
872	/* ":" waits for dial tone */
873	10, /* pause_time (seconds, just a guess) */
874	"HUP\015", /* wake_str (Not Standard CCITT) */
875	200, /* wake_rate (msec) */
876	"VAL", /* wake_prompt */
877	"", /* dmode_str (none) */
878	"", /* dmode_prompt (none) */
879	"CRN%s\015", /* dial_str */
880	200, /* dial_rate (msec) */
881	1100, /* esc_time (Not Standard CCITT) */
882	43, /* esc_char (Not Standard CCITT) */
883	"HUP\015", /* hup_str (Not Standard CCITT) */
884	"", /* hwfc_str */
885	"", /* swfc_str */
886	"", /* nofc_str */
887	"", /* ec_on_str */
888	"", /* ec_off_str */
889	"", /* dc_on_str */
890	"", /* dc_off_str */
891	"CIC\015", /* aa_on_str */
892	"DIC\015", /* aa_off_str */
893	"", /* sb_on_str */
894	"", /* sb_off_str */
895	"", /* sp_off_str */
896	"", /* sp_on_str */
897	"", /* vol1_str */
898	"", /* vol2_str */
899	"", /* vol3_str */
900	"", /* ignoredt */
901	"", /* ini2 */
902	0L, /* max_speed */
903	CKD_V25, /* capas */
904	getok /* ok_fn */
905	};
906
907	static
908	MDMINF H_1200 = /* Hayes 1200 and compatible modems */
909	{
910	"Hayes Smartmodem 1200 and compatibles",
911	"ATP\015", /* pulse command */
912	"ATT\015", /* tone command */
913	35, /* dial_time */
914	",", /* pause_chars */
915	2, /* pause_time */
916	#ifdef OS2
917	"ATE1Q0V1\015", /* wake_str */
918	#else
919	"ATQ0\015", /* wake_str */
920	#endif /* OS2 */
921	0, /* wake_rate */
922	"OK\015", /* wake_prompt */
923	"", /* dmode_str */
924	"", /* dmode_prompt */
925	"ATD%s\015", /* dial_str */
926	0, /* dial_rate */
927	1100, /* esc_time */
928	43, /* esc_char */
929	"ATQ0H0\015", /* hup_str */
930	"", /* hwfc_str */
931	"", /* swfc_str */
932	"", /* nofc_str */
933	"", /* ec_on_str */
934	"", /* ec_off_str */
935	"", /* dc_on_str */
936	"", /* dc_off_str */
937	"ATS0=1\015", /* aa_on_str */
938	"ATS0=0\015", /* aa_off_str */
939	"", /* sb_on_str */
940	"", /* sb_off_str */
941	"ATM1\015", /* sp_on_str */
942	"ATM0\015", /* sp_off_str */
943	"ATL1\015", /* vol1_str */
944	"ATL2\015", /* vol2_str */
945	"ATL3\015", /* vol3_str */
946	"", /* ignoredt */
947	"", /* ini2 */
948	1200L, /* max_speed */
949	CKD_AT, /* capas */
950	getok /* ok_fn */
951	};
952
953	static
954	MDMINF H_ULTRA = /* Hayes high-speed */
955	{
956	"Hayes Ultra/Optima/Accura 96/144/288", /* U,O,A */
957	"ATP\015", /* pulse command */
958	"ATT\015", /* tone command */
959	35, /* dial_time */
960	",", /* pause_chars */
961	2, /* pause_time */
962	#ifdef OS2
963	"ATE1Q0V1X4N1Y0&S0&C1&D2S37=0S82=128\015", /* wake_str */
964	#else
965	#ifdef VMS
966	"ATQ0X4N1Y0&S1S37=0S82=128\015", /* wake_str */
967	#else
968	"ATQ0X4N1Y0S37=0S82=128\015", /* wake_str */
969	#endif /* VMS */
970	#endif /* OS2 */
971	0, /* wake_rate */
972	"OK\015", /* wake_prompt */
973	"", /* dmode_str */
974	"", /* dmode_prompt */
975	"ATD%s\015", /* dial_str */
976	0, /* dial_rate */
977	1100, /* esc_time */
978	43, /* esc_char */
979	"ATQ0H0\015", /* hup_str */
980	"AT&K3\015", /* hwfc_str / / OK for U,O */
981	"AT&K4\015", /* swfc_str / / OK for U,O */
982	"AT&K0\015", /* nofc_str / / OK for U,O */
983	"AT&Q5S36=7S48=7\015", /* ec_on_str / / OK for U,O */
984	"AT&Q0\015", /* ec_off_str / / OK for U,O */
985	"ATS46=2\015", /* dc_on_str */
986	"ATS46=0\015", /* dc_off_str */
987	"ATS0=1\015", /* aa_on_str */
988	"ATS0=0\015", /* aa_off_str */
989	"", /* sb_on_str */
990	"", /* sb_off_str */
991	"ATM1\015", /* sp_on_str */
992	"ATM0\015", /* sp_off_str */
993	"ATL1\015", /* vol1_str */
994	"ATL2\015", /* vol2_str */
995	"ATL3\015", /* vol3_str */
996	"ATX3\015", /* ignoredt */
997	"", /* ini2 */
998	115200L, /* max_speed / / (varies) */
999	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1000	getok /* ok_fn */
1001	};
1002
1003	static
1004	MDMINF H_ACCURA = /* Hayes Accura */
1005	{ /* GUESSING IT'S LIKE ULTRA & OPTIMA */
1006	"Hayes Accura",
1007	"ATP\015", /* pulse command */
1008	"ATT\015", /* tone command */
1009	35, /* dial_time */
1010	",", /* pause_chars */
1011	2, /* pause_time */
1012	#ifdef OS2
1013	"ATE1Q0V1X4N1Y0&S0&C1&D2S37=0\015", /* wake_str */
1014	#else
1015	#ifdef VMS
1016	"ATQ0X4N1Y0&S1S37=0\015", /* wake_str */
1017	#else
1018	"ATQ0X4N1Y0S37=0\015", /* wake_str */
1019	#endif /* VMS */
1020	#endif /* OS2 */
1021	0, /* wake_rate */
1022	"OK\015", /* wake_prompt */
1023	"", /* dmode_str */
1024	"", /* dmode_prompt */
1025	"ATD%s\015", /* dial_str */
1026	0, /* dial_rate */
1027	1100, /* esc_time */
1028	43, /* esc_char */
1029	"ATQ0H0\015", /* hup_str */
1030	"AT&K3\015", /* hwfc_str */
1031	"AT&K4\015", /* swfc_str */
1032	"AT&K0\015", /* nofc_str */
1033	"AT&Q5S36=7S48=7\015", /* ec_on_str */
1034	"AT&Q0\015", /* ec_off_str */
1035	"ATS46=2\015", /* dc_on_str */
1036	"ATS46=0\015", /* dc_off_str */
1037	"ATS0=1\015", /* aa_on_str */
1038	"ATS0=0\015", /* aa_off_str */
1039	"", /* sb_on_str */
1040	"", /* sb_off_str */
1041	"ATM1\015", /* sp_on_str */
1042	"ATM0\015", /* sp_off_str */
1043	"ATL1\015", /* vol1_str */
1044	"ATL2\015", /* vol2_str */
1045	"ATL3\015", /* vol3_str */
1046	"ATX3\015", /* ignoredt */
1047	"", /* ini2 */
1048	115200L, /* max_speed / / (varies) */
1049	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1050	getok /* ok_fn */
1051	};
1052
1053	static
1054	MDMINF PPI = /* Practical Peripherals */
1055	{
1056	"Practical Peripherals V.22bis or higher with V.42 and V.42bis",
1057	"ATP\015", /* pulse command */
1058	"ATT\015", /* tone command */
1059	35, /* dial_time */
1060	",", /* pause_chars */
1061	2, /* pause_time */
1062	#ifdef COMMENT
1063	/* In newer models S82 (BREAK handling) was eliminated, causing an error. */
1064	#ifdef OS2
1065	"ATQ0X4N1&S0&C1&D2S37=0S82=128\015", /* wake_str */
1066	#else
1067	"ATQ0X4N1S37=0S82=128\015", /* wake_str */
1068	#endif /* OS2 */
1069	#else /* So now we use Y0 instead */
1070	#ifdef OS2
1071	"ATE1Q0V1X4N1&S0&C1&D2Y0S37=0\015", /* wake_str */
1072	#else
1073	#ifdef VMS
1074	"ATQ0X4N1Y0&S1S37=0\015", /* wake_str */
1075	#else
1076	"ATQ0X4N1Y0S37=0\015", /* wake_str */
1077	#endif /* VMS */
1078	#endif /* OS2 */
1079	#endif /* COMMENT */
1080	0, /* wake_rate */
1081	"OK\015", /* wake_prompt */
1082	"", /* dmode_str */
1083	"", /* dmode_prompt */
1084	"ATD%s\015", /* dial_str */
1085	0, /* dial_rate */
1086	1100, /* esc_time */
1087	43, /* esc_char */
1088	"ATQ0H0\015", /* hup_str */
1089	"AT&K3\015", /* hwfc_str */
1090	"AT&K4\015", /* swfc_str */
1091	"AT&K0\015", /* nofc_str */
1092	"AT&Q5S36=7S48=7\015", /* ec_on_str */
1093	"AT&Q0S36=0S48=128\015", /* ec_off_str */
1094	"ATS46=2\015", /* dc_on_str */
1095	"ATS46=0\015", /* dc_off_str */
1096	"ATS0=1\015", /* aa_on_str */
1097	"ATS0=0\015", /* aa_off_str */
1098	"", /* sb_on_str */
1099	"", /* sb_off_str */
1100	"ATM1\015", /* sp_on_str */
1101	"ATM0\015", /* sp_off_str */
1102	"ATL1\015", /* vol1_str */
1103	"ATL2\015", /* vol2_str */
1104	"ATL3\015", /* vol3_str */
1105	"ATX3\015", /* ignoredt */
1106	"", /* ini2 */
1107	115200L, /* max_speed */
1108	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1109	getok /* ok_fn */
1110	};
1111
1112	static
1113	MDMINF DATAPORT = /* AT&T Dataport */
1114	{
1115	"AT&T / Paradyne DataPort V.32 or higher",
1116	"ATP\015", /* pulse command */
1117	"ATT\015", /* tone command */
1118	35, /* dial_time */
1119	",", /* pause_chars */
1120	2, /* pause_time */
1121	/*
1122	Note: S41=0 (use highest modulation) omitted, since it is not
1123	supported on the V.32 and lower models. So let's not touch it.
1124	*/
1125	#ifdef OS2
1126	"ATQ0E1V1X6&S0&C1&D2&Q0Y0\\K5S78=0\015", /* wake_str */
1127	#else
1128	#ifdef VMS
1129	"ATQ0E1X6&S1&Q0Y0\\K5S78=0\015", /* wake_str */
1130	#else
1131	"ATQ0E1X6&Q0Y0\\K5S78=0\015", /* wake_str */
1132	#endif /* VMS */
1133	#endif /* OS2 */
1134	0, /* wake_rate */
1135	"OK\015", /* wake_prompt */
1136	"", /* dmode_str */
1137	"", /* dmode_prompt */
1138	"ATD%s\015", /* dial_str */
1139	0, /* dial_rate */
1140	1100, /* esc_time */
1141	43, /* esc_char */
1142	"ATQ0H0\015", /* hup_str */
1143	"AT\\Q3\015", /* hwfc_str */
1144	"AT\\Q1\\X0\015", /* swfc_str */
1145	"AT\\Q0\015", /* nofc_str */
1146	"AT\\N7\015", /* ec_on_str */
1147	"AT\\N0\015", /* ec_off_str */
1148	"AT%C1\015", /* dc_on_str */
1149	"AT%C0\015", /* dc_off_str */
1150	"ATS0=1\015", /* aa_on_str */
1151	"ATS0=0\015", /* aa_off_str */
1152	"", /* sb_on_str */
1153	"", /* sb_off_str */
1154	"ATM1\015", /* sp_on_str */
1155	"ATM0\015", /* sp_off_str */
1156	"ATL1\015", /* vol1_str */
1157	"ATL2\015", /* vol2_str */
1158	"ATL3\015", /* vol3_str */
1159	"ATX3\015", /* ignoredt */
1160	"", /* ini2 */
1161	57600L, /* max_speed */
1162	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1163	getok /* ok_fn */
1164	};
1165
1166	static
1167	MDMINF UCOM_AT = /* Microcom DeskPorte FAST ES 28.8 */
1168	{
1169	"Microcom DeskPorte FAST 28.8",
1170	"ATP\015", /* pulse command */
1171	"ATT\015", /* tone command */
1172	35, /* dial_time */
1173	",", /* pause_chars */
1174	2, /* pause_time */
1175	#ifdef OS2
1176	"ATE1Q0V1X4\\N0F0&S0&C1&D2\\K5\015", /* wake_str */
1177	#else
1178	#ifdef VMS
1179	"ATQ0X4F0&S1\\K5\015", /* wake_str */
1180	#else
1181	"ATQ0X4F0\\K5\015", /* wake_str */
1182	#endif /* VMS */
1183	#endif /* OS2 */
1184	0, /* wake_rate */
1185	"OK\015", /* wake_prompt */
1186	"", /* dmode_str */
1187	"", /* dmode_prompt */
1188	"ATD%s\015", /* dial_str */
1189	0, /* dial_rate */
1190	1100, /* esc_time */
1191	43, /* esc_char */
1192	"ATQ0H0\015", /* hup_str */
1193	"AT\\Q3\015", /* hwfc_str */
1194	"AT\\Q1\015", /* swfc_str */
1195	"AT\\H0\\Q0\015", /* nofc_str */
1196	"AT\\N3\015", /* ec_on_str */
1197	"AT\\N0\015", /* ec_off_str */
1198	"AT%C3\015", /* dc_on_str */
1199	"AT%C0\015", /* dc_off_str */
1200	"ATS0=1\015", /* aa_on_str */
1201	"ATS0=0\015", /* aa_off_str */
1202	"AT-J0\015", /* sb_on_str */
1203	"AT-J1\015", /* sb_off_str */
1204	"ATM1\015", /* sp_on_str */
1205	"ATM0\015", /* sp_off_str */
1206	"ATL1\015", /* vol1_str */
1207	"ATL2\015", /* vol2_str */
1208	"ATL3\015", /* vol3_str */
1209	"ATX3\015", /* ignoredt */
1210	"", /* ini2 */
1211	115200L, /* max_speed */
1212	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1213	getok /* ok_fn */
1214	};
1215
1216	static
1217	MDMINF ZOOM = /* Zoom Telephonics V.32bis */
1218	{
1219	"Zoom Telephonics V.32bis",
1220	"ATP\015", /* pulse command */
1221	"ATT\015", /* tone command */
1222	35, /* dial_time */
1223	",", /* pause_chars */
1224	2, /* pause_time */
1225	#ifdef OS2
1226	"ATE1Q0V1N1W1X4&S0&C1&D2S82=128S95=47\015", /* wake_str */
1227	#else
1228	#ifdef VMS
1229	"ATQ0E1N1W1X4&S1S82=128S95=47\015", /* wake_str */
1230	#else
1231	"ATQ0E1N1W1X4S82=128S95=47\015", /* wake_str */
1232	#endif /* VMS */
1233	#endif /* OS2 */
1234	0, /* wake_rate */
1235	"OK\015", /* wake_prompt */
1236	"", /* dmode_str */
1237	"", /* dmode_prompt */
1238	"ATD%s\015", /* dial_str */
1239	0, /* dial_rate */
1240	1100, /* esc_time */
1241	43, /* esc_char */
1242	"ATQ0H0\015", /* hup_str */
1243	"AT&K3\015", /* hwfc_str */
1244	"AT&K4\015", /* swfc_str */
1245	"AT&K0\015", /* nofc_str */
1246	"AT&Q5S36=7S48=7\015", /* ec_on_str */
1247	"AT&Q0\015", /* ec_off_str */
1248	"ATS46=138\015", /* dc_on_str */
1249	"ATS46=136\015", /* dc_off_str */
1250	"ATS0=1\015", /* aa_on_str */
1251	"ATS0=0\015", /* aa_off_str */
1252	"", /* sb_on_str */
1253	"", /* sb_off_str */
1254	"ATM1\015", /* sp_on_str */
1255	"ATM0\015", /* sp_off_str */
1256	"ATL1\015", /* vol1_str */
1257	"ATL2\015", /* vol2_str */
1258	"ATL3\015", /* vol3_str */
1259	"ATX3\015", /* ignoredt */
1260	"", /* ini2 */
1261	57600L, /* max_speed */
1262	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1263	getok /* ok_fn */
1264	};
1265
1266	static
1267	MDMINF ZYXEL = /* ZyXEL U-Series */
1268	{
1269	"ZyXEL U-Series V.32bis or higher",
1270	"ATP\015", /* pulse command */
1271	"ATT\015", /* tone command */
1272	35, /* dial_time */
1273	",", /* pause_chars */
1274	2, /* pause_time */
1275	#ifdef OS2
1276	"ATE1Q0V1&S0&C1&D2&N0X5&Y1\015", /* wake_str */
1277	#else
1278	#ifdef VMS
1279	"ATQ0E1&S1&N0X5&Y1\015", /* wake_str */
1280	#else
1281	"ATQ0E1&N0X5&Y1\015", /* wake_str */
1282	#endif /* VMS */
1283	#endif /* OS2 */
1284	0, /* wake_rate */
1285	"OK\015", /* wake_prompt */
1286	"", /* dmode_str */
1287	"", /* dmode_prompt */
1288	"ATD%s\015", /* dial_str */
1289	0, /* dial_rate */
1290	1100, /* esc_time */
1291	43, /* esc_char */
1292	"ATQ0H0\015", /* hup_str */
1293	"AT&H3\015", /* hwfc_str */
1294	"AT&H4\015", /* swfc_str */
1295	"AT&H0\015", /* nofc_str */
1296	"AT&K3\015", /* ec_on_str */
1297	"AT&K0\015", /* ec_off_str */
1298	"AT&K4\015", /* dc_on_str */
1299	"AT&K3\015", /* dc_off_str */
1300	"ATS0=1\015", /* aa_on_str */
1301	"ATS0=0\015", /* aa_off_str */
1302	"", /* sb_on_str */
1303	"", /* sb_off_str */
1304	"ATM1\015", /* sp_on_str */
1305	"ATM0\015", /* sp_off_str */
1306	"ATL1\015", /* vol1_str */
1307	"ATL2\015", /* vol2_str */
1308	"ATL3\015", /* vol3_str */
1309	"ATX3\015", /* ignoredt */
1310	"", /* ini2 */
1311	57600L, /* max_speed */
1312	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1313	getok /* ok_fn */
1314	};
1315
1316	static
1317	MDMINF ZOLTRIX = /* Zoltrix */
1318	{
1319	"Zoltrix V.32bis and V.34 modems with Rockwell ACI chipset",
1320	"ATP\015", /* pulse command */
1321	"ATT\015", /* tone command */
1322	35, /* dial_time */
1323	",", /* pause_chars */
1324	2, /* pause_time */
1325	#ifdef OS2
1326	"ATE1Q0V1F0W1X4Y0&S0&C1&D2\\K5S82=128S95=41\015", /* wake_str */
1327	#else
1328	#ifdef VMS
1329	"ATQ0E1F0W1X4Y0&S1\\K5S82=128S95=41\015", /* wake_str */
1330	#else
1331	"ATQ0E1F0W1X4Y0\\K5S82=128S95=41\015", /* wake_str */
1332	#endif /* VMS */
1333	#endif /* OS2 */
1334	0, /* wake_rate */
1335	"OK\015", /* wake_prompt */
1336	"", /* dmode_str */
1337	"", /* dmode_prompt */
1338	"ATD%s\015", /* dial_str */
1339	0, /* dial_rate */
1340	1100, /* esc_time */
1341	43, /* esc_char */
1342	"ATQ0H0\015", /* hup_str */
1343	"AT&K3\015", /* hwfc_str */
1344	"AT&K4S32=17S33=19\015", /* swfc_str */
1345	"AT&K0\015", /* nofc_str */
1346	"AT\\N3\015", /* ec_on_str */
1347	"AT\\N1\015", /* ec_off_str */
1348	"ATS46=138%C3\015", /* dc_on_str */
1349	"ATS46=136%C0\015", /* dc_off_str */
1350	"ATS0=1\015", /* aa_on_str */
1351	"ATS0=0\015", /* aa_off_str */
1352	"AT\\N0\015", /* sb_on_str */
1353	"AT&Q0\015", /* sb_off_str */
1354	"ATM1\015", /* sp_on_str */
1355	"ATM0\015", /* sp_off_str */
1356	"ATL1\015", /* vol1_str */
1357	"ATL2\015", /* vol2_str */
1358	"ATL3\015", /* vol3_str */
1359	"ATX3\015", /* ignoredt */
1360	"", /* ini2 */
1361	57600L, /* max_speed */
1362	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1363	getok /* ok_fn */
1364	};
1365
1366	static
1367	MDMINF MOTOROLA = { /* Motorola FasTalk II or Lifestyle */
1368	/*
1369	"\E" and "\X" commands removed - Motorola Lifestyle doesn't have them.
1370	\E0 = Don't echo while online
1371	\X0 = Process Xon/Xoff but don't pass through
1372	*/
1373	"Motorola FasTalk II or Lifestyle", /* Name */
1374	"ATP\015", /* pulse command */
1375	"ATT\015", /* tone command */
1376	35, /* dial_time */
1377	",", /* pause_chars */
1378	2, /* pause_time */
1379	#ifdef OS2
1380	"ATE1Q0V1X4&S0&C1&D2\\K5\\V1\015", /* wake_str */
1381	#else
1382	#ifdef VMS
1383	"ATQ0E1X4&S1\\K5\\V1\015", /* wake_str */
1384	#else
1385	"ATQ0E1X4\\K5\\V1\015", /* wake_str */
1386	#endif /* VMS */
1387	#endif /* OS2 */
1388	0, /* wake_rate */
1389	"OK\015", /* wake_prompt */
1390	"", /* dmode_str */
1391	"", /* dmode_prompt */
1392	"ATD%s\015", /* dial_str */
1393	0, /* dial_rate */
1394	1100, /* esc_time */
1395	43, /* esc_char */
1396	"ATQ0H0\015", /* hup_str */
1397	"AT\\Q3\015", /* hwfc_str */
1398	"AT\\Q1\015", /* swfc_str */
1399	"AT\\Q0\015", /* nofc_str */
1400	"AT\\N6\015", /* ec_on_str */
1401	"AT\\N1\015", /* ec_off_str */
1402	"AT%C1\015", /* dc_on_str */
1403	"AT%C0\015", /* dc_off_str */
1404	"ATS0=1\015", /* aa_on_str */
1405	"ATS0=0\015", /* aa_off_str */
1406	"AT\\J0\015", /* sb_on_str */
1407	"AT\\J1\015", /* sb_off_str */
1408	"ATM1\015", /* sp_on_str */
1409	"ATM0\015", /* sp_off_str */
1410	"ATL1\015", /* vol1_str */
1411	"ATL2\015", /* vol2_str */
1412	"ATL3\015", /* vol3_str */
1413	"ATX3\015", /* ignoredt */
1414	"", /* ini2 */
1415	57600L, /* max_speed */
1416	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1417	getok /* ok_fn */
1418	};
1419
1420	static
1421	MDMINF BOCA = /* Boca */
1422	{
1423	"BOCA 14.4 Faxmodem",
1424	"ATP\015", /* pulse command */
1425	"ATT\015", /* tone command */
1426	35, /* dial_time */
1427	",", /* pause_chars */
1428	2, /* pause_time */
1429	#ifdef OS2
1430	"ATE1Q0V1F1N1W1&S0&C1&D2\\K5S37=11S82=128S95=47X4\015", /* wake_str */
1431	#else
1432	#ifdef VMS
1433	"ATQ0E1F1N1W1&S1\\K5S37=11S82=128S95=47X4\015", /* wake_str */
1434	#else
1435	"ATQ0E1F1N1W1\\K5S37=11S82=128S95=47X4\015", /* wake_str */
1436	#endif /* VMS */
1437	#endif /* OS2 */
1438	0, /* wake_rate */
1439	"OK\015", /* wake_prompt */
1440	"", /* dmode_str */
1441	"", /* dmode_prompt */
1442	"ATD%s\015", /* dial_str */
1443	0, /* dial_rate */
1444	1100, /* esc_time */
1445	43, /* esc_char */
1446	"ATQ0H0\015", /* hup_str */
1447	"AT&K3\015", /* hwfc_str */
1448	"AT&K4\015", /* swfc_str */
1449	"AT&K0\015", /* nofc_str */
1450	"AT\\N3S36=7S48=7\015", /* ec_on_str */
1451	"AT\\N1\015", /* ec_off_str */
1452	"ATS46=138\015", /* dc_on_str */
1453	"ATS46=136\015", /* dc_off_str */
1454	"ATS0=1\015", /* aa_on_str */
1455	"ATS0=0\015", /* aa_off_str */
1456	"", /* sb_on_str */
1457	"", /* sb_off_str */
1458	"ATM1\015", /* sp_on_str */
1459	"ATM0\015", /* sp_off_str */
1460	"ATL1\015", /* vol1_str */
1461	"ATL2\015", /* vol2_str */
1462	"ATL3\015", /* vol3_str */
1463	"ATX3\015", /* ignoredt */
1464	"", /* ini2 */
1465	57600L, /* max_speed */
1466	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1467	getok /* ok_fn */
1468	};
1469
1470	static
1471	MDMINF INTEL = /* Intel */
1472	{
1473	"Intel High-Speed Faxmodem",
1474	"ATP\015", /* pulse command */
1475	"ATT\015", /* tone command */
1476	35, /* dial_time */
1477	",", /* pause_chars */
1478	2, /* pause_time */
1479	#ifdef OS2
1480	"ATE1Q0V1Y0X4&S0&C1&D2\\K1\\V2S25=50\015", /* wake_str */
1481	#else
1482	#ifdef VMS
1483	"ATQ0E1Y0X4&S1\\K1\\V2S25=50\015", /* wake_str */
1484	#else
1485	"ATQ0E1Y0X4\\K1\\V2S25=50\015", /* wake_str */
1486	#endif /* VMS */
1487	#endif /* OS2 */
1488	0, /* wake_rate */
1489	"OK\015", /* wake_prompt */
1490	"ATB1+FCLASS=0\015", /* dmode_str */
1491	"OK\015", /* dmode_prompt */
1492	"ATD%s\015", /* dial_str */
1493	0, /* dial_rate */
1494	1100, /* esc_time */
1495	43, /* esc_char */
1496	"ATQ0H0\015", /* hup_str */
1497	"AT\\G1\\Q3\015", /* hwfc_str */
1498	"AT\\G1\\Q1\\X0\015", /* swfc_str */
1499	"AT\\G0\015", /* nofc_str */
1500	"AT\\J0\\N3\"H3\015", /* ec_on_str */
1501	"AT\\N1\015", /* ec_off_str */
1502	"AT%C1\015", /* dc_on_str */
1503	"AT%C0\015", /* dc_off_str */
1504	"ATS0=1\015", /* aa_on_str */
1505	"ATS0=0\015", /* aa_off_str */
1506	"", /* sb_on_str */
1507	"", /* sb_off_str */
1508	"ATM1\015", /* sp_on_str */
1509	"ATM0\015", /* sp_off_str */
1510	"ATL1\015", /* vol1_str */
1511	"ATL2\015", /* vol2_str */
1512	"ATL3\015", /* vol3_str */
1513	"ATX3\015", /* ignoredt */
1514	"", /* ini2 */
1515	57600L, /* max_speed */
1516	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1517	getok /* ok_fn */
1518	};
1519
1520	static
1521	MDMINF MULTITECH = /* Multitech */
1522	{
1523	"Multitech MT1432 or MT2834 Series",
1524	"ATP\015", /* pulse command */
1525	"ATT\015", /* tone command */
1526	35, /* dial_time */
1527	",", /* pause_chars */
1528	2, /* pause_time */
1529	/* #P0 (= no parity) is not listed in the manual for newer models */
1530	/* so it has been removed from all three copies of the Multitech wake_str */
1531	#ifdef OS2
1532	"ATE1Q0V1X4&S0&C1&D2&E8&Q0\015", /* wake_str */
1533	#else
1534	#ifdef VMS
1535	"ATQ0E1X4&S1&E8&Q0\015", /* wake_str */
1536	#else
1537	"ATQ0E1X4&E8&Q0\015", /* wake_str */
1538	#endif /* VMS */
1539	#endif /* OS2 */
1540	0, /* wake_rate */
1541	"OK\015", /* wake_prompt */
1542	"", /* dmode_str */
1543	"", /* dmode_prompt */
1544	"ATD%s\015", /* dial_str */
1545	0, /* dial_rate */
1546	1100, /* esc_time */
1547	43, /* esc_char */
1548	"ATQ0H0\015", /* hup_str */
1549	"AT&E4&E7&E8&E11&E13\015", /* hwfc_str */
1550	"AT&E5&E6&E8&E11&E13\015", /* swfc_str */
1551	"AT&E3&E7&E8&E10&E12\015", /* nofc_str */
1552	"AT&E1\015", /* ec_on_str */
1553	"AT&E0\015", /* ec_off_str */
1554	"AT&E15\015", /* dc_on_str */
1555	"AT&E14\015", /* dc_off_str */
1556	"ATS0=1\015", /* aa_on_str */
1557	"ATS0=0\015", /* aa_off_str */
1558	"AT$BA0\015", /* sb_on_str (= "baud adjust off") */
1559	"AT$BA1\015", /* sb_off_str */
1560	"ATM1\015", /* sp_on_str */
1561	"ATM0\015", /* sp_off_str */
1562	"ATL1\015", /* vol1_str */
1563	"ATL2\015", /* vol2_str */
1564	"ATL3\015", /* vol3_str */
1565	"ATX3\015", /* ignoredt */
1566	"", /* ini2 */
1567	57600L, /* max_speed */
1568	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1569	getok /* ok_fn */
1570	};
1571
1572	static
1573	MDMINF SUPRA = /* Supra */
1574	{
1575	"SupraFAXModem 144 or 288",
1576	"ATP\015", /* pulse command */
1577	"ATT\015", /* tone command */
1578	35, /* dial_time */
1579	",", /* pause_chars */
1580	2, /* pause_time */
1581	#ifdef OS2
1582	"ATQ0E1V1N1W0X4Y0&S0&C1&D2\\K5S82=128\015", /* wake_str */
1583	#else
1584	#ifdef VMS
1585	"ATQ0E1N1W0X4Y0&S1\\K5S82=128\015", /* wake_str */
1586	#else
1587	"ATQ0E1N1W0X4Y0\\K5S82=128\015", /* wake_str */
1588	#endif /* VMS */
1589	#endif /* OS2 */
1590	0, /* wake_rate */
1591	"OK\015", /* wake_prompt */
1592	"", /* dmode_str */
1593	"", /* dmode_prompt */
1594	"ATD%s\015", /* dial_str */
1595	0, /* dial_rate */
1596	1100, /* esc_time */
1597	43, /* esc_char */
1598	"ATQ0H0\015", /* hup_str */
1599	"AT&K3\015", /* hwfc_str */
1600	"AT&K4\015", /* swfc_str */
1601	"AT&K0\015", /* nofc_str */
1602	"AT&Q5\\N3S48=7\015", /* ec_on_str */
1603	"AT&Q0\\N1\015", /* ec_off_str */
1604	"AT%C1S46=138\015", /* dc_on_str */
1605	"AT%C0S46=136\015", /* dc_off_str */
1606	"ATS0=1\015", /* aa_on_str */
1607	"ATS0=0\015", /* aa_off_str */
1608	"", /* sb_on_str */
1609	"", /* sb_off_str */
1610	"ATM1\015", /* sp_on_str */
1611	"ATM\015", /* sp_off_str */
1612	"ATL\015", /* vol1_str */
1613	"ATL2\015", /* vol2_str */
1614	"ATL3\015", /* vol3_str */
1615	"ATX3\015", /* ignoredt */
1616	"", /* ini2 */
1617	57600L, /* max_speed */
1618	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1619	getok /* ok_fn */
1620	};
1621
1622	static
1623	MDMINF SUPRAX = /* Supra Express */
1624	{
1625	"Diamond Supra Express V.90",
1626	"ATP\015", /* pulse command */
1627	"ATT\015", /* tone command */
1628	35, /* dial_time */
1629	",", /* pause_chars */
1630	2, /* pause_time */
1631	#ifdef OS2
1632	"ATQ0E1V1W0X4&C1&D2&S0\\K5\015", /* wake_str */
1633	#else
1634	#ifdef VMS
1635	"ATQ0E1W0X4&S1\\K5\015", /* wake_str */
1636	#else
1637	"ATQ0E1W0X4\\K5\015", /* wake_str */
1638	#endif /* VMS */
1639	#endif /* OS2 */
1640	0, /* wake_rate */
1641	"OK\015", /* wake_prompt */
1642	"", /* dmode_str */
1643	"", /* dmode_prompt */
1644	"ATD%s\015", /* dial_str */
1645	0, /* dial_rate */
1646	1100, /* esc_time */
1647	43, /* esc_char */
1648	"ATQ0H0\015", /* hup_str */
1649	"AT&K3\015", /* hwfc_str */
1650	"AT&K4\015", /* swfc_str */
1651	"AT&K0\015", /* nofc_str */
1652	"AT\\N3\015", /* ec_on_str */
1653	"AT\\N1\015", /* ec_off_str */
1654	"AT%C2\015", /* dc_on_str */
1655	"AT%C0\015", /* dc_off_str */
1656	"ATS0=1\015", /* aa_on_str */
1657	"ATS0=0\015", /* aa_off_str */
1658	"", /* sb_on_str */
1659	"", /* sb_off_str */
1660	"ATM1\015", /* sp_on_str */
1661	"ATM\015", /* sp_off_str */
1662	"ATL\015", /* vol1_str */
1663	"ATL2\015", /* vol2_str */
1664	"ATL3\015", /* vol3_str */
1665	"ATX3\015", /* ignoredt */
1666	"", /* ini2 */
1667	230400L, /* max_speed */
1668	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1669	getok /* ok_fn */
1670	};
1671
1672	static
1673	MDMINF MAXTECH = /* MaxTech */
1674	{
1675	"MaxTech XM288EA or GVC FAXModem",
1676	"ATP\015", /* pulse command */
1677	"ATT\015", /* tone command */
1678	35, /* dial_time */
1679	",", /* pause_chars */
1680	2, /* pause_time */
1681	#ifdef OS2
1682	"ATQ0E1V1X4Y0&S0&C1&D2&L0&M0\\K5\015", /* wake_str */
1683	#else
1684	#ifdef VMS
1685	"ATQ0E1X4Y0&L0&M0&S1\\K5\015", /* wake_str */
1686	#else
1687	"ATQ0E1X4Y0&L0&M0\\K5\015", /* wake_str */
1688	#endif /* VMS */
1689	#endif /* OS2 */
1690	0, /* wake_rate */
1691	"OK\015", /* wake_prompt */
1692	"", /* dmode_str */
1693	"", /* dmode_prompt */
1694	"ATD%s\015", /* dial_str */
1695	0, /* dial_rate */
1696	1100, /* esc_time */
1697	43, /* esc_char */
1698	"ATQ0H0\015", /* hup_str */
1699	"AT\\Q3\015", /* hwfc_str */
1700	"AT\\Q1\\X0\015", /* swfc_str */
1701	"AT\\Q0\015", /* nofc_str */
1702	"AT\\N6\015", /* ec_on_str */
1703	"AT\\N0\015", /* ec_off_str */
1704	"AT\\N6%C1\015", /* dc_on_str */
1705	"AT\\N6%C0\015", /* dc_off_str */
1706	"ATS0=1\015", /* aa_on_str */
1707	"ATS0=0\015", /* aa_off_str */
1708	"", /* sb_on_str */
1709	"", /* sb_off_str */
1710	"ATM1\015", /* sp_on_str */
1711	"ATM0\015", /* sp_off_str */
1712	"ATL1\015", /* vol1_str */
1713	"ATL2\015", /* vol2_str */
1714	"ATL3\015", /* vol3_str */
1715	"ATX3\015", /* ignoredt */
1716	"", /* ini2 */
1717	115200L, /* max_speed */
1718	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1719	getok /* ok_fn */
1720	};
1721
1722	static
1723	MDMINF ROLM = /* IBM / Siemens / Rolm 8000, 9000, 9751 CBX DCM */
1724	{
1725	"IBM/Siemens/Rolm CBX Data Communications Module",
1726	"", /* pulse command */
1727	"", /* tone command */
1728	60, /* dial_time */
1729	"", /* pause_chars */
1730	0, /* pause_time */
1731	"\015\015", /* wake_str */
1732	50, /* wake_rate */
1733	"MODIFY?", /* wake_prompt */
1734	"", /* dmode_str */
1735	"", /* dmode_prompt */
1736	"CALL %s\015", /* dial_str */
1737	0, /* dial_rate */
1738	0, /* esc_time */
1739	0, /* esc_char */
1740	"", /* hup_str */
1741	"", /* hwfc_str */
1742	"", /* swfc_str */
1743	"", /* nofc_str */
1744	"", /* ec_on_str */
1745	"", /* ec_off_str */
1746	"", /* dc_on_str */
1747	"", /* dc_off_str */
1748	"", /* aa_on_str */
1749	"", /* aa_off_str */
1750	"", /* sb_on_str */
1751	"", /* sb_off_str */
1752	"", /* sp_off_str */
1753	"", /* sp_on_str */
1754	"", /* vol1_str */
1755	"", /* vol2_str */
1756	"", /* vol3_str */
1757	"", /* ignoredt */
1758	"", /* ini2 */
1759	19200L, /* max_speed */
1760	0, /* capas */
1761	NULL /* ok_fn */
1762	};
1763
1764	static
1765	MDMINF USR = /* USR Courier and Sportster modems */
1766	{
1767	"US Robotics Courier, Sportster, or compatible",
1768	"ATP\015", /* pulse command */
1769	"ATT\015", /* tone command */
1770	35, /* dial_time */
1771	",", /* pause_chars */
1772	2, /* pause_time */
1773	#ifdef OS2
1774	"ATQ0E1V1X4&A3&S0&C1&D2&N0&Y3S14=0\015", /* wake_str */
1775	#else
1776	#ifdef SUNOS4
1777	"ATQ0X4&A3&S0&N0&Y3S14=0\015", /* wake_str -- needs &S0 in SunOS */
1778	#else
1779	#ifdef VMS
1780	"ATQ0X4&A3&S1&N0&Y3S14=0\015", /* wake_str -- needs &S1 in VMS */
1781	#else
1782	"ATQ0X4&A3&N0&Y3S14=0\015", /* wake_str */
1783	#endif /* VMS */
1784	#endif /* SUNOS4 */
1785	#endif /* OS2 */
1786	0, /* wake_rate */
1787	"OK\015", /* wake_prompt */
1788	"", /* dmode_str */
1789	"", /* dmode_prompt */
1790	"ATD%s\015", /* dial_str */
1791	0, /* dial_rate */
1792	1100, /* esc_time */
1793	43, /* esc_char */
1794	"ATQ0H0\015", /* hup_str */
1795	"AT&H1&R2&I0\015", /* hwfc_str */
1796	"AT&H2&R1&I2\015", /* swfc_str */
1797	"AT&H0&R1&I0\015", /* nofc_str */
1798	"AT&M4&B1\015", /* ec_on_str */
1799	"AT&M0\015", /* ec_off_str */
1800	"AT&K1\015", /* dc_on_str */
1801	"AT&K0\015", /* dc_off_str */
1802	"ATS0=1\015", /* aa_on_str */
1803	"ATS0=0\015", /* aa_off_str */
1804	"", /* sb_on_str */
1805	"", /* sb_off_str */
1806	"ATM1\015", /* sp_on_str */
1807	"ATM0\015", /* sp_off_str */
1808	"ATL1\015", /* vol1_str */
1809	"ATL2\015", /* vol2_str */
1810	"ATL3\015", /* vol3_str */
1811	"ATX3\015", /* ignoredt */
1812	"", /* ini2 */
1813	115200L, /* max_speed */
1814	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1815	getok /* ok_fn */
1816	};
1817
1818
1819	static
1820	MDMINF USRX2 = /* USR XJ-CC1560 X2 56K */
1821	{
1822	"US Robotics / Megahertz CC/XJ-CC1560 X2",
1823	"ATP\015", /* pulse command */
1824	"ATT\015", /* tone command */
1825	35, /* dial_time */
1826	",", /* pause_chars */
1827	2, /* pause_time */
1828	#ifdef OS2
1829	"ATQ0E1V1X4&A3&S0&B2&C1&D2&N0\015", /* wake_str */
1830	#else
1831	#ifdef VMS
1832	"ATQ0X4&A3&B2&N0&S1\015", /* wake_str */
1833	#else
1834	"ATQ0X4&A3&B2&N0\015", /* wake_str */
1835	#endif /* VMS */
1836	#endif /* OS2 */
1837	0, /* wake_rate */
1838	"OK\015", /* wake_prompt */
1839	"", /* dmode_str */
1840	"", /* dmode_prompt */
1841	"ATD%s\015", /* dial_str */
1842	0, /* dial_rate */
1843	1100, /* esc_time */
1844	43, /* esc_char */
1845	"ATQ0H0\015", /* hup_str */
1846	"AT&H1&I0\015", /* hwfc_str */
1847	"AT&H2&I2\015", /* swfc_str */
1848	"AT&H0&I0\015", /* nofc_str */
1849	"AT&M4\015", /* ec_on_str */
1850	"AT&M0\015", /* ec_off_str */
1851	"AT&K1\015", /* dc_on_str */
1852	"AT&K0\015", /* dc_off_str */
1853	"ATS0=1\015", /* aa_on_str */
1854	"ATS0=0\015", /* aa_off_str */
1855	"AT&B1\015", /* sb_on_str */
1856	"AT&B0\015", /* sb_off_str */
1857	"ATM1\015", /* sp_on_str */
1858	"ATM0\015", /* sp_off_str */
1859	"ATL1\015", /* vol1_str */
1860	"ATL2\015", /* vol2_str */
1861	"ATL3\015", /* vol3_str */
1862	"ATX3\015", /* ignoredt */
1863	"", /* ini2 */
1864	115200L, /* max_speed */
1865	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
1866	getok /* ok_fn */
1867	};
1868
1869	static
1870	MDMINF OLDTB = /* Old Telebits */
1871	{
1872	"Telebit TrailBlazer, T1000, T1500, T2000, T2500",
1873	"ATP\015", /* pulse command */
1874	"ATT\015", /* tone command */
1875	60, /* dial_time */
1876	",", /* pause_chars */
1877	2, /* pause_time */
1878	#ifdef OS2
1879	"\021AAAAATQ0E1V1X1&S0&C1&D2S12=50S50=0S54=3\015", /* wake_str. */
1880	#else
1881	#ifdef VMS
1882	"\021AAAAATQ0X1S12=50S50=0S54=3\015", /* wake_str. */
1883	#else
1884	"\021AAAAATQ0X1&S1S12=50S50=0S54=3\015", /* wake_str. */
1885	#endif /* VMS */
1886	#endif /* OS2 */
1887	100, /* wake_rate = 100 msec */
1888	"OK\015", /* wake_prompt */
1889	"", /* dmode_str */
1890	"", /* dmode_prompt */
1891	"ATD%s\015", /* dial_str, Note: no T or P */
1892	80, /* dial_rate */
1893	1100, /* esc_time (guard time) */
1894	43, /* esc_char */
1895	"ATQ0H0\015", /* hup_str */
1896	"ATS58=2S68=2\015", /* hwfc_str */
1897	"ATS58=3S68=3S69=0\015", /* swfc_str */
1898	"ATS58=0S68=0\015", /* nofc_str */
1899	"ATS66=1S95=2\015", /* ec_on_str */
1900	"ATS95=0\015", /* ec_off_str */
1901	"ATS110=1S96=1\015", /* dc_on_str */
1902	"ATS110=0S96=0\015", /* dc_off_str */
1903	"ATS0=1\015", /* aa_on_str */
1904	"ATS0=0\015", /* aa_off_str */
1905	"", /* sb_on_str */
1906	"", /* sb_off_str */
1907	"ATM1\015", /* sp_on_str */
1908	"ATM0\015", /* sp_off_str */
1909	"ATL1\015", /* vol1_str */
1910	"ATL2\015", /* vol2_str */
1911	"ATL3\015", /* vol3_str */
1912	"ATX3\015", /* ignoredt */
1913	"", /* ini2 */
1914	19200L, /* max_speed */
1915	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW\|CKD_TB\|CKD_KS, /* capas */
1916	getok /* ok_fn */
1917	};
1918
1919	static
1920	MDMINF NEWTB = /* New Telebits */
1921	{
1922	"Telebit T1600, T3000, QBlazer, WorldBlazer, etc.",
1923	"ATP\015", /* pulse command */
1924	"ATT\015", /* tone command */
1925	60, /* dial_time */
1926	",", /* pause_chars */
1927	2, /* pause_time */
1928	#ifdef OS2
1929	"\021AAAAATQ0E1V1X2&S0&C1&D2S12=50S50=0S61=0S63=0\015", /* wake_str. */
1930	#else
1931	#ifdef VMS
1932	"\021AAAAATQ0X2&S1S12=50S50=0S61=0S63=0\015", /* wake_str. */
1933	#else
1934	"\021AAAAATQ0X2S12=50S50=0S61=0S63=0\015", /* wake_str. */
1935	#endif /* VMS */
1936	#endif /* OS2 */
1937	100, /* wake_rate = 100 msec */
1938	"OK\015", /* wake_prompt */
1939	"", /* dmode_str */
1940	"", /* dmode_prompt */
1941	"ATD%s\015", /* dial_str, Note: no T or P */
1942	80, /* dial_rate */
1943	1100, /* esc_time (guard time) */
1944	43, /* esc_char */
1945	"ATQ0H0\015", /* hup_str */
1946	"ATS58=2S68=2\015", /* hwfc_str */
1947	"ATS58=3S68=3\015", /* swfc_str */
1948	"ATS58=0S68=0\015", /* nofc_str */
1949	"ATS180=3\015", /* ec_on_str */
1950	"ATS180=0\015", /* ec_off_str */
1951	"ATS190=1\015", /* dc_on_str */
1952	"ATS190=0\015", /* dc_off_str */
1953	"ATS0=1\015", /* aa_on_str */
1954	"ATS0=0\015", /* aa_off_str */
1955	"", /* sb_on_str */
1956	"", /* sb_off_str */
1957	"ATM1\015", /* sp_on_str */
1958	"ATM0\015", /* sp_off_str */
1959	"ATL1\015", /* vol1_str */
1960	"ATL2\015", /* vol2_str */
1961	"ATL3\015", /* vol3_str */
1962	"ATX3\015", /* ignoredt */
1963	"", /* ini2 */
1964	38400L, /* max_speed */
1965	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW\|CKD_TB\|CKD_KS, /* capas */
1966	getok /* ok_fn */
1967	};
1968	#endif /* MINIDIAL */
1969
1970	static
1971	MDMINF DUMMY = /* dummy information for modems that are handled elsewhere */
1972	{
1973	"(dummy)",
1974	"", /* pulse command */
1975	"", /* tone command */
1976	30, /* dial_time */
1977	"", /* pause_chars */
1978	0, /* pause_time */
1979	"", /* wake_str */
1980	0, /* wake_rate */
1981	"", /* wake_prompt */
1982	"", /* dmode_str */
1983	NULL, /* dmode_prompt */
1984	"%s\015", /* dial_str */
1985	0, /* dial_rate */
1986	0, /* esc_time */
1987	0, /* esc_char */
1988	"", /* hup_str */
1989	"", /* hwfc_str */
1990	"", /* swfc_str */
1991	"", /* nofc_str */
1992	"", /* ec_on_str */
1993	"", /* ec_off_str */
1994	"", /* dc_on_str */
1995	"", /* dc_off_str */
1996	"", /* aa_on_str */
1997	"", /* aa_off_str */
1998	"", /* sb_on_str */
1999	"", /* sb_off_str */
2000	"", /* sp_off_str */
2001	"", /* sp_on_str */
2002	"", /* vol1_str */
2003	"", /* vol2_str */
2004	"", /* vol3_str */
2005	"", /* ignoredt */
2006	"", /* ini2 */
2007	0L, /* max_speed */
2008	0, /* capas */
2009	NULL /* ok_fn */
2010	};
2011
2012	#ifndef MINIDIAL
2013	static
2014	MDMINF RWV32 = /* Generic Rockwell V.32 */
2015	{
2016	"Generic Rockwell V.32 modem", /* ATI3, ATI4, and ATI6 for details */
2017	"ATP\015", /* pulse command */
2018	"ATT\015", /* tone command */
2019	35, /* dial_time */
2020	",", /* pause_chars */
2021	2, /* pause_time */
2022	#ifdef OS2
2023	"ATQ0E1V1X4Y0&S0&C1&D2%E2\\K5+FCLASS=0N1S37=0\015", /* wake_str */
2024	#else
2025	#ifdef VMS
2026	"ATQ0X4Y0&S1%E2\\K5+FCLASS=0N1S37=0\015", /* wake_str */
2027	#else
2028	"ATQ0X4Y0%E2\\K5+FCLASS=0N1S37=0\015", /* wake_str */
2029	#endif /* VMS */
2030	#endif /* OS2 */
2031	0, /* wake_rate */
2032	"OK\015", /* wake_prompt */
2033	"", /* dmode_str */
2034	"", /* dmode_prompt */
2035	"ATD%s\015", /* dial_str */
2036	0, /* dial_rate */
2037	1100, /* esc_time */
2038	43, /* esc_char */
2039	"ATQ0H0\015", /* hup_str */
2040	"AT&K3\015", /* hwfc_str */
2041	"AT&K4S32=17S33=19\015", /* swfc_str */
2042	"AT&K0\015", /* nofc_str */
2043	"AT&Q6\015", /* ec_on_str */
2044	"AT&Q0\015", /* ec_off_str */
2045	"AT%C1\015", /* dc_on_str */
2046	"AT%C0\015", /* dc_off_str */
2047	"ATS0=1\015", /* aa_on_str */
2048	"ATS0=0\015", /* aa_off_str */
2049	"", /* sb_on_str */
2050	"", /* sb_off_str */
2051	"ATM1\015", /* sp_on_str */
2052	"ATM0\015", /* sp_off_str */
2053	"ATL1\015", /* vol1_str */
2054	"ATL2\015", /* vol2_str */
2055	"ATL3\015", /* vol3_str */
2056	"ATX3\015", /* ignoredt */
2057	"", /* ini2 */
2058	57600L, /* max_speed */
2059	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2060	getok /* ok_fn */
2061	};
2062
2063	static
2064	MDMINF RWV32B = /* Generic Rockwell V.32bis */
2065	{
2066	"Generic Rockwell V.32bis modem", /* ATI3, ATI4, and ATI6 for details */
2067	"ATP\015", /* pulse command */
2068	"ATT\015", /* tone command */
2069	35, /* dial_time */
2070	",", /* pause_chars */
2071	2, /* pause_time */
2072	#ifdef OS2
2073	"ATQ0E1V1X4Y0&S0&C1&D2%E2\\K5+FCLASS=0N1S37=0\015", /* wake_str */
2074	#else
2075	#ifdef VMS
2076	"ATQ0X4Y0&S1%E2\\K5+FCLASS=0N1S37=0\015", /* wake_str */
2077	#else
2078	"ATQ0X4Y0%E2\\K5+FCLASS=0N1S37=0\015", /* wake_str */
2079	#endif /* VMS */
2080	#endif /* OS2 */
2081	0, /* wake_rate */
2082	"OK\015", /* wake_prompt */
2083	"", /* dmode_str */
2084	"", /* dmode_prompt */
2085	"ATD%s\015", /* dial_str */
2086	0, /* dial_rate */
2087	1100, /* esc_time */
2088	43, /* esc_char */
2089	"ATQ0H0\015", /* hup_str */
2090	"AT&K3\015", /* hwfc_str */
2091	"AT&K4S32=17S33=19\015", /* swfc_str */
2092	"AT&K0\015", /* nofc_str */
2093	"AT&Q5\015", /* ec_on_str */
2094	"AT&Q0\015", /* ec_off_str */
2095	"ATS%C1\015", /* dc_on_str */
2096	"ATS%C0\015", /* dc_off_str */
2097	"ATS0=1\015", /* aa_on_str */
2098	"ATS0=0\015", /* aa_off_str */
2099	"", /* sb_on_str */
2100	"", /* sb_off_str */
2101	"ATM1\015", /* sp_on_str */
2102	"ATM0\015", /* sp_off_str */
2103	"ATL1\015", /* vol1_str */
2104	"ATL2\015", /* vol2_str */
2105	"ATL3\015", /* vol3_str */
2106	"ATX3\015", /* ignoredt */
2107	"", /* ini2 */
2108	57600L, /* max_speed */
2109	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2110	getok /* ok_fn */
2111	};
2112
2113	static
2114	MDMINF RWV34 = /* Generic Rockwell V.34 Data/Fax */
2115	{
2116	"Generic Rockwell V.34 modem", /* ATI3, ATI4, and ATI6 for details */
2117	"ATP\015", /* pulse command */
2118	"ATT\015", /* tone command */
2119	35, /* dial_time */
2120	",", /* pause_chars */
2121	2, /* pause_time */
2122	#ifdef OS2
2123	"ATQ0V1X4Y0&C1&D2&S0%E2\\K5+FCLASS=0\015", /* wake_str */
2124	#else
2125	#ifdef VMS
2126	"ATQ0V1X4Y0&C1&D2&S1%E2\\K5+FCLASS=0\015", /* wake_str */
2127	#else
2128	"ATQ0V1X4Y0&C1&D2%E2\\K5+FCLASS=0\015", /* wake_str */
2129	#endif /* VMS */
2130	#endif /* OS2 */
2131	0, /* wake_rate */
2132	"OK\015", /* wake_prompt */
2133	"", /* dmode_str */
2134	"", /* dmode_prompt */
2135	"ATD%s\015", /* dial_str */
2136	0, /* dial_rate */
2137	1100, /* esc_time */
2138	43, /* esc_char */
2139	"ATQ0H0\015", /* hup_str */
2140	"AT&K3\015", /* hwfc_str */
2141	"AT&K4S32=17S33=19\015", /* swfc_str */
2142	"AT&K0\015", /* nofc_str */
2143	"AT&Q5\015", /* ec_on_str */
2144	"AT&Q0\015", /* ec_off_str */
2145	"ATS%C3\015", /* dc_on_str */
2146	"ATS%C0\015", /* dc_off_str */
2147	"ATS0=1\015", /* aa_on_str */
2148	"ATS0=0\015", /* aa_off_str */
2149	"", /* sb_on_str */
2150	"", /* sb_off_str */
2151	"ATM1\015", /* sp_on_str */
2152	"ATM0\015", /* sp_off_str */
2153	"ATL1\015", /* vol1_str */
2154	"ATL2\015", /* vol2_str */
2155	"ATL3\015", /* vol3_str */
2156	"ATX3\015", /* ignoredt */
2157	"", /* ini2 */
2158	115200L, /* max_speed */
2159	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2160	getok /* ok_fn */
2161	};
2162
2163	static
2164	MDMINF RWV90 = /* Generic Rockwell V.90 Data/Fax */
2165	{
2166	"Generic Rockwell V.90 56K modem", /* ATI3, ATI4, and ATI6 for details */
2167	"ATP\015", /* pulse command */
2168	"ATT\015", /* tone command */
2169	35, /* dial_time */
2170	",", /* pause_chars */
2171	2, /* pause_time */
2172	#ifdef OS2
2173	"ATQ0V1N1X4Y0&C1&D2&S0%E2\\K5+FCLASS=0S37=0\015", /* K95 */
2174	#else
2175	#ifdef VMS
2176	"ATQ0V1N1X4Y0&C1&D2&S1%E2\\K5+FCLASS=0S37=0\015", /* wake_str */
2177	#else
2178	"ATQ0V1N1X4Y0&C1&D2%E2\\K5+FCLASS=0S37=0\015", /* wake_str */
2179	#endif /* VMS */
2180	#endif /* OS2 */
2181	0, /* wake_rate */
2182	"OK\015", /* wake_prompt */
2183	"", /* dmode_str */
2184	"", /* dmode_prompt */
2185	"ATD%s\015", /* dial_str */
2186	0, /* dial_rate */
2187	1100, /* esc_time */
2188	43, /* esc_char */
2189	"ATQ0H0\015", /* hup_str */
2190	"AT&K3\015", /* hwfc_str */
2191	"AT&K4S32=17S33=19\015", /* swfc_str */
2192	"AT&K0\015", /* nofc_str */
2193	"AT&Q5\015", /* ec_on_str */
2194	"AT&Q0\015", /* ec_off_str */
2195	"AT%C3\015", /* dc_on_str */
2196	"AT%C0\015", /* dc_off_str */
2197	"ATS0=1\015", /* aa_on_str */
2198	"ATS0=0\015", /* aa_off_str */
2199	"", /* sb_on_str */
2200	"", /* sb_off_str */
2201	"ATM1\015", /* sp_on_str */
2202	"ATM0\015", /* sp_off_str */
2203	"ATL1\015", /* vol1_str */
2204	"ATL2\015", /* vol2_str */
2205	"ATL3\015", /* vol3_str */
2206	"ATX3\015", /* ignoredt */
2207	"", /* ini2 */
2208	115200L, /* max_speed */
2209	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2210	getok /* ok_fn */
2211	};
2212
2213	static
2214	MDMINF MWAVE = /* IBM Mwave */
2215	{
2216	"IBM Mwave Adapter",
2217	"ATP\015", /* pulse command */
2218	"ATT\015", /* tone command */
2219	35, /* dial_time */
2220	",", /* pause_chars */
2221	2, /* pause_time */
2222	#ifdef OS2
2223	"ATQ0E1V1X4Y0&S0&C1&D2&M0&Q0&N1\\K3\\T0%E2S28=0\015", /* wake_str */
2224	#else
2225	#ifdef VMS
2226	"ATQ0X4Y0&M0&S1&Q0&N1&S0\\K3\\T0%E2S28=0\015", /* wake_str */
2227	#else
2228	"ATQ0X4Y0&M0&Q0&N1&S0\\K3\\T0%E2S28=0\015", /* wake_str */
2229	#endif /* VMS */
2230	#endif /* OS2 */
2231	0, /* wake_rate */
2232	"OK\015", /* wake_prompt */
2233	"", /* dmode_str */
2234	"", /* dmode_prompt */
2235	"ATD%s\015", /* dial_str */
2236	0, /* dial_rate */
2237	1100, /* esc_time */
2238	43, /* esc_char */
2239	"ATQ0H0\015", /* hup_str */
2240	"AT\\Q3\015", /* hwfc_str */
2241	"", /* swfc_str (it doesn't!) */
2242	"AT\\Q0\015", /* nofc_str */
2243	"AT\\N7\015", /* ec_on_str */
2244	"AT\\N0\015", /* ec_off_str */
2245	"AT%C1\"H3\015", /* dc_on_str */
2246	"AT%C0\"H0\015", /* dc_off_str */
2247	"ATS0=1\015", /* aa_on_str */
2248	"ATS0=0\015", /* aa_off_str */
2249	"", /* sb_on_str */
2250	"", /* sb_off_str */
2251	"ATM1\015", /* sp_on_str */
2252	"ATM0\015", /* sp_off_str */
2253	"ATL1\015", /* vol1_str */
2254	"ATL2\015", /* vol2_str */
2255	"ATL3\015", /* vol3_str */
2256	"ATX3\015", /* ignoredt */
2257	"", /* ini2 */
2258	57600L, /* max_speed */
2259	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW, /* capas */
2260	getok /* ok_fn */
2261	};
2262
2263	static
2264	MDMINF TELEPATH = /* Gateway 2000 Telepath */
2265	{
2266	"Gateway 2000 Telepath II 28.8",
2267	"ATP\015", /* pulse command */
2268	"ATT\015", /* tone command */
2269	35, /* dial_time */
2270	",", /* pause_chars */
2271	2, /* pause_time */
2272	#ifdef OS2
2273	"ATQ0E1V1X4&S0&C1&D2&N0&Y2#CLS=0S13=0S15=0S19=0\015", /* wake_str */
2274	#else
2275	#ifdef VMS
2276	"ATQ0X4&N0&S1&Y1#CLS=0S13=0S15=0S19=0\015", /* wake_str */
2277	#else
2278	"ATQ0X4&N0&Y1#CLS=0S13=0S15=0S19=0\015", /* wake_str */
2279	#endif /* VMS */
2280	#endif /* OS2 */
2281	0, /* wake_rate */
2282	"OK\015", /* wake_prompt */
2283	"", /* dmode_str */
2284	"", /* dmode_prompt */
2285	"ATD%s\015", /* dial_str */
2286	0, /* dial_rate */
2287	1100, /* esc_time */
2288	43, /* esc_char */
2289	"ATQ0H0\015", /* hup_str */
2290	"AT&H1&R2\015", /* hwfc_str */
2291	"AT&H2&I2S22=17S23=19\015", /* swfc_str */
2292	"AT&H0&I0&R1\015", /* nofc_str */
2293	"AT&M4&B1\015", /* ec_on_str -- also fixes speed */
2294	"AT&M0\015", /* ec_off_str */
2295	"AT&K1\015", /* dc_on_str */
2296	"AT&K0\015", /* dc_off_str */
2297	"ATS0=1\015", /* aa_on_str */
2298	"ATS0=0\015", /* aa_off_str */
2299	"", /* sb_on_str */
2300	"", /* sb_off_str */
2301	"ATM1\015", /* sp_on_str */
2302	"ATM0\015", /* sp_off_str */
2303	"ATL1\015", /* vol1_str */
2304	"ATL2\015", /* vol2_str */
2305	"ATL3\015", /* vol3_str */
2306	"ATX3\015", /* ignoredt */
2307	"", /* ini2 */
2308	57600L, /* max_speed */
2309	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2310	getok /* ok_fn */
2311	};
2312
2313	static
2314	MDMINF CARDINAL = /* Cardinal - based on Rockwell V.34 */
2315	{
2316	"Cardinal MVP288X Series", /* ATI3, ATI4, and ATI6 for details */
2317	"ATP\015", /* pulse command */
2318	"ATT\015", /* tone command */
2319	35, /* dial_time */
2320	",", /* pause_chars */
2321	2, /* pause_time */
2322	#ifdef OS2
2323	"ATQ0E1V1X4W1Y0%E2&S0&C1&D2\\K5+FCLASS=0+MS=11,1\015", /* wake_str */
2324	#else
2325	#ifdef VMS
2326	"ATQ0X4W1Y0&S1%E2\\K5+FCLASS=0+MS=11,1\015", /* wake_str */
2327	#else
2328	"ATQ0X4W1Y0%E2\\K5+FCLASS=0+MS=11,1\015", /* wake_str */
2329	#endif /* VMS */
2330	#endif /* OS2 */
2331	0, /* wake_rate */
2332	"OK\015", /* wake_prompt */
2333	"", /* dmode_str */
2334	"", /* dmode_prompt */
2335	"ATD%s\015", /* dial_str */
2336	0, /* dial_rate */
2337	1100, /* esc_time */
2338	43, /* esc_char */
2339	"ATQ0H0\015", /* hup_str */
2340	"AT&K3\015", /* hwfc_str */
2341	"AT&K4S32=17S33=19\015", /* swfc_str */
2342	"AT&K0\015", /* nofc_str */
2343	"AT&Q5S36=7S48=7\\N3\015", /* ec_on_str */
2344	"AT&Q0S48=128\\N1\015", /* ec_off_str */
2345	"ATS46=138%C1\015", /* dc_on_str */
2346	"ATS46=136%C0\015", /* dc_off_str */
2347	"ATS0=1\015", /* aa_on_str */
2348	"ATS0=0\015", /* aa_off_str */
2349	"", /* sb_on_str */
2350	"", /* sb_off_str */
2351	"ATM1\015", /* sp_on_str */
2352	"ATM0\015", /* sp_off_str */
2353	"ATL1\015", /* vol1_str */
2354	"ATL2\015", /* vol2_str */
2355	"ATL3\015", /* vol3_str */
2356	"ATX3\015", /* ignoredt */
2357	"", /* ini2 */
2358	115200L, /* max_speed */
2359	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2360	getok /* ok_fn */
2361	};
2362
2363	static
2364	MDMINF LUCENT = /* Lucent Venus or Data/Fax modem */
2365	{
2366	"Lucent Venus chipset",
2367	"ATP\015", /* pulse command */
2368	"ATT\015", /* tone command */
2369	35, /* dial_time */
2370	",", /* pause_chars */
2371	2, /* pause_time */
2372	#ifdef OS2
2373	"ATQ0V1N1X4Y0&C1&D2&S0%E2\\K5+FCLASS=0S37=0\015", /* K95 */
2374	#else
2375	#ifdef VMS
2376	"ATQ0V1N1X4Y0&C1&D2&S1%E2\\K5+FCLASS=0S37=0\015", /* VMS */
2377	#else
2378	"ATQ0V1N1X4Y0&C1&D2%E2\\K5+FCLASS=0S37=0\015", /* All others */
2379	#endif /* VMS */
2380	#endif /* OS2 */
2381	0, /* wake_rate */
2382	"OK\015", /* wake_prompt */
2383	"", /* dmode_str */
2384	"", /* dmode_prompt */
2385	"ATD%s\015", /* dial_str */
2386	0, /* dial_rate */
2387	1100, /* esc_time */
2388	43, /* esc_char */
2389	"ATQ0H0\015", /* hup_str */
2390	"AT&K3\015", /* hwfc_str */
2391	"AT&K4S32=17S33=19\015", /* swfc_str */
2392	"AT&K0\015", /* nofc_str */
2393	"AT&Q5\015", /* ec_on_str */
2394	"AT&Q0\015", /* ec_off_str */
2395	"AT%C1\015", /* dc_on_str */
2396	"AT%C0\015", /* dc_off_str */
2397	"ATS0=1\015", /* aa_on_str */
2398	"ATS0=0\015", /* aa_off_str */
2399	"", /* sb_on_str */
2400	"", /* sb_off_str */
2401	"ATM1\015", /* sp_on_str */
2402	"ATM0\015", /* sp_off_str */
2403	"ATL1\015", /* vol1_str */
2404	"ATL2\015", /* vol2_str */
2405	"ATL3\015", /* vol3_str */
2406	"ATX3\015", /* ignoredt */
2407	"", /* ini2 */
2408	115200L, /* max_speed */
2409	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2410	getok /* ok_fn */
2411	};
2412
2413	static
2414	MDMINF CONEXANT = /* Conexant family */
2415	{
2416	"Conexant family of modems",
2417	"ATP\015", /* pulse command */
2418	"ATT\015", /* tone command */
2419	35, /* dial_time */
2420	",", /* pause_chars */
2421	2, /* pause_time */
2422	#ifdef OS2
2423	"ATQ0V1X4&C1&D2&S0%E1+FCLASS=0\015", /* K95 */
2424	#else
2425	#ifdef VMS
2426	"ATQ0V1X4&C1&D2&S1%E1+FCLASS=0\015", /* VMS */
2427	#else
2428	"ATQ0V1X4&C1&D2%E1+FCLASS=0\015", /* UNIX etc */
2429	#endif /* VMS */
2430	#endif /* OS2 */
2431	0, /* wake_rate */
2432	"OK\015", /* wake_prompt */
2433	"", /* dmode_str */
2434	"", /* dmode_prompt */
2435	"ATD%s\015", /* dial_str */
2436	0, /* dial_rate */
2437	1100, /* esc_time */
2438	43, /* esc_char */
2439	"ATQ0H0\015", /* hup_str */
2440	"AT&K3\015", /* hwfc_str */
2441	"AT&K4S32=17S33=19\015", /* swfc_str */
2442	"AT&K0\015", /* nofc_str */
2443	"AT&Q5\015", /* ec_on_str */
2444	"AT&Q0\015", /* ec_off_str */
2445	"AT%C3\015", /* dc_on_str */
2446	"AT%C0\015", /* dc_off_str */
2447	"ATS0=1\015", /* aa_on_str */
2448	"ATS0=0\015", /* aa_off_str */
2449	"", /* sb_on_str */
2450	"", /* sb_off_str */
2451	"ATM1\015", /* sp_on_str */
2452	"ATM0\015", /* sp_off_str */
2453	"ATL1\015", /* vol1_str */
2454	"ATL2\015", /* vol2_str */
2455	"ATL3\015", /* vol3_str */
2456	"ATX3\015", /* ignoredt */
2457	"", /* ini2 */
2458	115200L, /* max_speed */
2459	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2460	getok /* ok_fn */
2461	};
2462
2463	static
2464	MDMINF PCTEL = /* PCTel chipset */
2465	{
2466	"PCTel chipset",
2467	"ATP\015", /* pulse command */
2468	"ATT\015", /* tone command */
2469	35, /* dial_time */
2470	",", /* pause_chars */
2471	2, /* pause_time */
2472	#ifdef OS2
2473	"ATQ0V1N1X4Y0&C1&D2&S0%E2\\K5S37=0\015", /* K95 */
2474	#else
2475	#ifdef VMS
2476	"ATQ0V1N1X4Y0&C1&D2&S1%E2\\K5S37=0\015", /* VMS */
2477	#else
2478	"ATQ0V1N1X4Y0&C1&D2%E2\\K5S37=0\015", /* UNIX etc */
2479	#endif /* VMS */
2480	#endif /* OS2 */
2481	0, /* wake_rate */
2482	"OK\015", /* wake_prompt */
2483	"", /* dmode_str */
2484	"", /* dmode_prompt */
2485	"ATD%s\015", /* dial_str */
2486	0, /* dial_rate */
2487	1100, /* esc_time */
2488	43, /* esc_char */
2489	"ATQ0H0\015", /* hup_str */
2490	"AT&K3\015", /* hwfc_str */
2491	"AT&K4S32=17S33=19\015", /* swfc_str */
2492	"AT&K0\015", /* nofc_str */
2493	"AT\\N3\015", /* ec_on_str */
2494	"AT\\N0\015", /* ec_off_str */
2495	"AT%C1\015", /* dc_on_str */
2496	"AT%C0\015", /* dc_off_str */
2497	"ATS0=1\015", /* aa_on_str */
2498	"ATS0=0\015", /* aa_off_str */
2499	"", /* sb_on_str */
2500	"", /* sb_off_str */
2501	"ATM1\015", /* sp_on_str */
2502	"ATM0\015", /* sp_off_str */
2503	"ATL1\015", /* vol1_str */
2504	"ATL2\015", /* vol2_str */
2505	"ATL3\015", /* vol3_str */
2506	"ATX3\015", /* ignoredt */
2507	"", /* ini2 */
2508	115200L, /* max_speed */
2509	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2510	getok /* ok_fn */
2511	};
2512
2513	static
2514	MDMINF ZOOMV34 = /* Zoom Telephonics V.34 */
2515	{
2516	"Zoom Telephonics V.34",
2517	"ATP\015", /* pulse command */
2518	"ATT\015", /* tone command */
2519	35, /* dial_time */
2520	",", /* pause_chars */
2521	2, /* pause_time */
2522	#ifdef OS2
2523	"ATQ0V1N1W1X4&S0&C1&D2S82=128\015", /* wake_str */
2524	#else
2525	#ifdef VMS
2526	"ATQ0V1N1W1X4&S1S82=128\015", /* wake_str */
2527	#else
2528	"ATQ0V1N1W1X4S82=128S015", /* wake_str */
2529	#endif /* VMS */
2530	#endif /* OS2 */
2531	0, /* wake_rate */
2532	"OK\015", /* wake_prompt */
2533	"", /* dmode_str */
2534	"", /* dmode_prompt */
2535	"ATD%s\015", /* dial_str */
2536	0, /* dial_rate */
2537	1100, /* esc_time */
2538	43, /* esc_char */
2539	"ATQ0H0\015", /* hup_str */
2540	"AT&K3\015", /* hwfc_str */
2541	"AT&K4\015S32=17S33=19", /* swfc_str */
2542	"AT&K0\015", /* nofc_str */
2543	"AT&Q5\015", /* ec_on_str */
2544	"AT&Q0\015", /* ec_off_str */
2545	"ATS%C3\015", /* dc_on_str */
2546	"ATS%C0\015", /* dc_off_str */
2547	"ATS0=1\015", /* aa_on_str */
2548	"ATS0=0\015", /* aa_off_str */
2549	"", /* sb_on_str */
2550	"", /* sb_off_str */
2551	"ATM1\015", /* sp_on_str */
2552	"ATM0\015", /* sp_off_str */
2553	"ATL1\015", /* vol1_str */
2554	"ATL2\015", /* vol2_str */
2555	"ATL3\015", /* vol3_str */
2556	"ATX3\015", /* ignoredt */
2557	"", /* ini2 */
2558	57600L, /* max_speed */
2559	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2560	getok /* ok_fn */
2561	};
2562
2563	static
2564	MDMINF ZOOMV90 = /* ZOOM V.90 */
2565	{
2566	"Zoom V.90 56K",
2567	"ATP\015", /* pulse command */
2568	"ATT\015", /* tone command */
2569	35, /* dial_time */
2570	",", /* pause_chars */
2571	2, /* pause_time */
2572	#ifdef OS2
2573	"ATQ0V1N1X4Y0&C1&D2&S0%E2\\K5+FCLASS=0S37=0\015", /* K95 */
2574	#else
2575	#ifdef VMS
2576	"ATQ0V1N1X4Y0&C1&D2&S1%E2\\K5+FCLASS=0S37=0\015", /* VMS */
2577	#else
2578	"ATQ0V1N1X4Y0&C1&D2%E2\\K5+FCLASS=0S37=0\015", /* All others */
2579	#endif /* VMS */
2580	#endif /* OS2 */
2581	0, /* wake_rate */
2582	"OK\015", /* wake_prompt */
2583	"", /* dmode_str */
2584	"", /* dmode_prompt */
2585	"ATD%s\015", /* dial_str */
2586	0, /* dial_rate */
2587	1100, /* esc_time */
2588	43, /* esc_char */
2589	"ATQ0H0\015", /* hup_str */
2590	"AT&K3\015", /* hwfc_str */
2591	"AT&K4S32=17S33=19\015", /* swfc_str */
2592	"AT&K0\015", /* nofc_str */
2593	"AT&Q5\015", /* ec_on_str */
2594	"AT&Q0\015", /* ec_off_str */
2595	"AT%C1\015", /* dc_on_str */
2596	"AT%C0\015", /* dc_off_str */
2597	"ATS0=1\015", /* aa_on_str */
2598	"ATS0=0\015", /* aa_off_str */
2599	"", /* sb_on_str */
2600	"", /* sb_off_str */
2601	"ATM1\015", /* sp_on_str */
2602	"ATM0\015", /* sp_off_str */
2603	"ATL1\015", /* vol1_str */
2604	"ATL2\015", /* vol2_str */
2605	"ATL3\015", /* vol3_str */
2606	"ATX3\015", /* ignoredt */
2607	"", /* ini2 */
2608	115200L, /* max_speed */
2609	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2610	getok /* ok_fn */
2611	};
2612
2613	static
2614	MDMINF ZOOMV92 = /* ZOOM V.92 */
2615	{
2616	"Zoom V.92 with V.44 compression",
2617	"ATP\015", /* pulse command */
2618	"ATT\015", /* tone command */
2619	35, /* dial_time */
2620	",", /* pause_chars */
2621	2, /* pause_time */
2622	#ifdef OS2
2623	"ATQ0V1N1X4Y0&C1&D2&S0%E2\\K5+FCLASS=0S37=0+MS=V92\015", /* K95 */
2624	#else
2625	#ifdef VMS
2626	"ATQ0V1N1X4Y0&C1&D2&S1%E2\\K5+FCLASS=0S37=0+MS=V92\015", /* VMS */
2627	#else
2628	"ATQ0V1N1X4Y0&C1&D2%E2\\K5+FCLASS=0S37=0+MS=V92\015", /* All others */
2629	#endif /* VMS */
2630	#endif /* OS2 */
2631	0, /* wake_rate */
2632	"OK\015", /* wake_prompt */
2633	"", /* dmode_str */
2634	"", /* dmode_prompt */
2635	"ATD%s\015", /* dial_str */
2636	0, /* dial_rate */
2637	1100, /* esc_time */
2638	43, /* esc_char */
2639	"ATQ0H0\015", /* hup_str */
2640	"AT&K3\015", /* hwfc_str */
2641	"AT&K4S32=17S33=19\015", /* swfc_str */
2642	"AT&K0\015", /* nofc_str */
2643	"AT&Q5\015", /* ec_on_str */
2644	"AT&Q0\015", /* ec_off_str */
2645	"AT%C1+DCS=1,1\015", /* dc_on_str */
2646	"AT%C0\015", /* dc_off_str */
2647	"ATS0=1\015", /* aa_on_str */
2648	"ATS0=0\015", /* aa_off_str */
2649	"", /* sb_on_str */
2650	"", /* sb_off_str */
2651	"ATM1\015", /* sp_on_str */
2652	"ATM0\015", /* sp_off_str */
2653	"ATL1\015", /* vol1_str */
2654	"ATL2\015", /* vol2_str */
2655	"ATL3\015", /* vol3_str */
2656	"ATX3\015", /* ignoredt */
2657	"", /* ini2 */
2658	115200L, /* max_speed */
2659	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
2660	getok /* ok_fn */
2661	};
2662
2663
2664	/*
2665	Now the "old" modems, all grouped together, and also within
2666	"if not defined MINIDIAL"...
2667	*/
2668	#ifdef OLDMODEMS
2669
2670	static
2671	MDMINF CERMETEK = /* Information for "Cermetek Info-Mate 212 A" modem */
2672	{
2673	"Cermetek Info-Mate 212 A",
2674	"", /* pulse command */
2675	"", /* tone command */
2676	20, /* dial_time */
2677	"BbPpTt", /* pause_chars */
2678	0, /* pause_time */
2679	" XY\016R\015", /* wake_str */
2680	200, /* wake_rate */
2681	"", /* wake_prompt */
2682	"", /* dmode_str */
2683	NULL, /* dmode_prompt */
2684	"\016D '%s'\015", /* dial_str */
2685	200, /* dial_rate */
2686	0, /* esc_time */
2687	0, /* esc_char */
2688	"", /* hup_str */
2689	"", /* hwfc_str */
2690	"", /* swfc_str */
2691	"", /* nofc_str */
2692	"", /* ec_on_str */
2693	"", /* ec_off_str */
2694	"", /* dc_on_str */
2695	"", /* dc_off_str */
2696	"", /* aa_on_str */
2697	"", /* aa_off_str */
2698	"", /* sb_on_str */
2699	"", /* sb_off_str */
2700	"", /* sp_off_str */
2701	"", /* sp_on_str */
2702	"", /* vol1_str */
2703	"", /* vol2_str */
2704	"", /* vol3_str */
2705	"", /* ignoredt */
2706	"", /* ini2 */
2707	1200L, /* max_speed */
2708	0, /* capas */
2709	NULL /* ok_fn */
2710	};
2711
2712	static
2713	MDMINF DF03 = /* information for "DEC DF03-AC" modem */
2714	{
2715	"Digital DF03-AC",
2716	"", /* pulse command */
2717	"", /* tone command */
2718	27, /* dial_time */
2719	"=", /* pause_chars */
2720	15, /* pause_time */
2721	"\001\002", /* wake_str */
2722	0, /* wake_rate */
2723	"", /* wake_prompt */
2724	"", /* dmode_str */
2725	NULL, /* dmode_prompt */
2726	"%s", /* dial_str */
2727	0, /* dial_rate */
2728	0, /* esc_time */
2729	0, /* esc_char */
2730	"", /* hup_str */
2731	"", /* hwfc_str */
2732	"", /* swfc_str */
2733	"", /* nofc_str */
2734	"", /* ec_on_str */
2735	"", /* ec_off_str */
2736	"", /* dc_on_str */
2737	"", /* dc_off_str */
2738	"", /* aa_on_str */
2739	"", /* aa_off_str */
2740	"", /* sb_on_str */
2741	"", /* sb_off_str */
2742	"", /* sp_off_str */
2743	"", /* sp_on_str */
2744	"", /* vol1_str */
2745	"", /* vol2_str */
2746	"", /* vol3_str */
2747	"", /* ignoredt */
2748	"", /* ini2 */
2749	0L, /* max_speed */
2750	0, /* capas */
2751	NULL /* ok_fn */
2752	};
2753
2754	static
2755	MDMINF DF100 = /* information for "DEC DF100-series" modem */
2756	/*
2757	* The telephone "number" can include "P"s and/or "T"s
2758	* within it to indicate that subsequent digits are
2759	* to be dialed using pulse or tone dialing. The
2760	* modem defaults to pulse dialing. You may modify
2761	* the dial string below to explicitly default all
2762	* dialing to pulse or tone, but doing so prevents
2763	* the use of phone numbers that you may have stored
2764	* in the modem's memory.
2765	*/
2766	{
2767	"Digital DF-100",
2768	"", /* pulse command */
2769	"", /* tone command */
2770	30, /* dial_time */
2771	"=", /* pause_chars */
2772	15, /* pause_time */
2773	"\001", /* wake_str */
2774	0, /* wake_rate */
2775	"", /* wake_prompt */
2776	"", /* dmode_str */
2777	NULL, /* dmode_prompt */
2778	"%s#", /* dial_str */
2779	0, /* dial_rate */
2780	0, /* esc_time */
2781	0, /* esc_char */
2782	"", /* hup_str */
2783	"", /* hwfc_str */
2784	"", /* swfc_str */
2785	"", /* nofc_str */
2786	"", /* ec_on_str */
2787	"", /* ec_off_str */
2788	"", /* dc_on_str */
2789	"", /* dc_off_str */
2790	"", /* aa_on_str */
2791	"", /* aa_off_str */
2792	"", /* sb_on_str */
2793	"", /* sb_off_str */
2794	"", /* sp_off_str */
2795	"", /* sp_on_str */
2796	"", /* vol1_str */
2797	"", /* vol2_str */
2798	"", /* vol3_str */
2799	"", /* ignoredt */
2800	"", /* ini2 */
2801	0L, /* max_speed */
2802	0, /* capas */
2803	NULL /* ok_fn */
2804	};
2805
2806	static
2807	MDMINF DF200 = /* information for "DEC DF200-series" modem */
2808	/*
2809	* The telephone "number" can include "P"s and/or "T"s
2810	* within it to indicate that subsequent digits are
2811	* to be dialed using pulse or tone dialing. The
2812	* modem defaults to pulse dialing. You may modify
2813	* the dial string below to explicitly default all
2814	* dialing to pulse or tone, but doing so prevents
2815	* the use of phone numbers that you may have stored
2816	* in the modem's memory.
2817	*/
2818	{
2819	"Digital DF-200",
2820	"", /* pulse command */
2821	"", /* tone command */
2822	30, /* dial_time */
2823	"=W", /* pause_chars / / =: second tone; W: 5 secs */
2824	15, /* pause_time / / worst case */
2825	"\002", /* wake_str / / allow stored number usage */
2826	0, /* wake_rate */
2827	"", /* wake_prompt */
2828	"", /* dmode_str */
2829	NULL, /* dmode_prompt */
2830	#ifdef COMMENT
2831	"%s!", /* dial_str */
2832	#else
2833	" d %s\015",
2834	#endif /* COMMENT */
2835	0, /* dial_rate */
2836	0, /* esc_time */
2837	0, /* esc_char */
2838	"", /* hup_str */
2839	"", /* hwfc_str */
2840	"", /* swfc_str */
2841	"", /* nofc_str */
2842	"", /* ec_on_str */
2843	"", /* ec_off_str */
2844	"", /* dc_on_str */
2845	"", /* dc_off_str */
2846	"", /* aa_on_str */
2847	"", /* aa_off_str */
2848	"", /* sb_on_str */
2849	"", /* sb_off_str */
2850	"", /* sp_off_str */
2851	"", /* sp_on_str */
2852	"", /* vol1_str */
2853	"", /* vol2_str */
2854	"", /* vol3_str */
2855	"", /* ignoredt */
2856	"", /* ini2 */
2857	0L, /* max_speed */
2858	0, /* capas */
2859	NULL /* ok_fn */
2860	};
2861
2862	static
2863	MDMINF GDC = /* information for "GeneralDataComm 212A/ED" modem */
2864	{
2865	"GeneralDataComm 212A/ED",
2866	"", /* pulse command */
2867	"", /* tone command */
2868	32, /* dial_time */
2869	"%", /* pause_chars */
2870	3, /* pause_time */
2871	"\015\015", /* wake_str */
2872	500, /* wake_rate */
2873	"$", /* wake_prompt */
2874	"D\015", /* dmode_str */
2875	":", /* dmode_prompt */
2876	"T%s\015", /* dial_str */
2877	0, /* dial_rate */
2878	0, /* esc_time */
2879	0, /* esc_char */
2880	"", /* hup_str */
2881	"", /* hwfc_str */
2882	"", /* swfc_str */
2883	"", /* nofc_str */
2884	"", /* ec_on_str */
2885	"", /* ec_off_str */
2886	"", /* dc_on_str */
2887	"", /* dc_off_str */
2888	"", /* aa_on_str */
2889	"", /* aa_off_str */
2890	"", /* sb_on_str */
2891	"", /* sb_off_str */
2892	"", /* sp_off_str */
2893	"", /* sp_on_str */
2894	"", /* vol1_str */
2895	"", /* vol2_str */
2896	"", /* vol3_str */
2897	"", /* ignoredt */
2898	"", /* ini2 */
2899	1200L, /* max_speed */
2900	0, /* capas */
2901	NULL /* ok_fn */
2902	};
2903
2904	static
2905	MDMINF PENRIL = /* information for "Penril" modem */
2906	{
2907	"Penril modem",
2908	"", /* pulse command */
2909	"", /* tone command */
2910	50, /* dial_time */
2911	"", /* pause_chars */
2912	0, /* pause_time */
2913	"\015\015", /* wake_str */
2914	300, /* wake_rate */
2915	">", /* wake_prompt */
2916	"k\015", /* dmode_str */
2917	":", /* dmode_prompt */
2918	"%s\015", /* dial_str */
2919	0, /* dial_rate */
2920	0, /* esc_time */
2921	0, /* esc_char */
2922	"", /* hup_str */
2923	"", /* hwfc_str */
2924	"", /* swfc_str */
2925	"", /* nofc_str */
2926	"", /* ec_on_str */
2927	"", /* ec_off_str */
2928	"", /* dc_on_str */
2929	"", /* dc_off_str */
2930	"", /* aa_on_str */
2931	"", /* aa_off_str */
2932	"", /* sb_on_str */
2933	"", /* sb_off_str */
2934	"", /* sp_off_str */
2935	"", /* sp_on_str */
2936	"", /* vol1_str */
2937	"", /* vol2_str */
2938	"", /* vol3_str */
2939	"", /* ignoredt */
2940	"", /* ini2 */
2941	0L, /* max_speed */
2942	0, /* capas */
2943	NULL /* ok_fn */
2944	};
2945
2946	static
2947	MDMINF RACAL = /* Racal Vadic VA4492E */
2948	{
2949	"Racal Vadic VA4492E",
2950	"", /* pulse command */
2951	"", /* tone command */
2952	35, /* dial_time (manual says modem is hardwired to 60) */
2953	"Kk", /* pause_chars */
2954	5, /* pause_time */
2955	"\005\015", /* wake_str, ^E^M */
2956	50, /* wake_rate */
2957	"", / wake_prompt */
2958	"D\015", /* dmode_str */
2959	"?", /* dmode_prompt */
2960	"%s\015", /* dial_str */
2961	0, /* dial_rate */
2962	1100, /* esc_time */
2963	5, /* esc_char, ^E */
2964	"\003\004", /* hup_str, ^C^D */
2965	0, /* hwfc_str */
2966	"", /* swfc_str */
2967	"", /* nofc_str */
2968	"", /* ec_on_str */
2969	"", /* ec_off_str */
2970	"", /* dc_on_str */
2971	"", /* dc_off_str */
2972	"", /* aa_on_str */
2973	"", /* aa_off_str */
2974	"", /* sb_on_str */
2975	"", /* sb_off_str */
2976	"", /* sp_off_str */
2977	"", /* sp_on_str */
2978	"", /* vol1_str */
2979	"", /* vol2_str */
2980	"", /* vol3_str */
2981	"", /* ignoredt */
2982	"", /* ini2 */
2983	0L, /* max_speed */
2984	0, /* capas */
2985	NULL /* ok_fn */
2986	};
2987
2988	static
2989	MDMINF VENTEL = /* Information for Ven-Tel modem */
2990	{
2991	"Ven-Tel",
2992	"", /* pulse command */
2993	"", /* tone command */
2994	20, /* dial_time */
2995	"%", /* pause_chars */
2996	5, /* pause_time */
2997	"\015\015\015", /* wake_str */
2998	300, /* wake_rate */
2999	"$", /* wake_prompt */
3000	"K\015", /* dmode_str (was "") */
3001	"Number to call: ", /* dmode_prompt (was NULL) */
3002	"%s\015", /* dial_str (was "<K%s\r>") */
3003	0, /* dial_rate */
3004	0, /* esc_time */
3005	0, /* esc_char */
3006	"", /* hup_str */
3007	"", /* hwfc_str */
3008	"", /* swfc_str */
3009	"", /* nofc_str */
3010	"", /* ec_on_str */
3011	"", /* ec_off_str */
3012	"", /* dc_on_str */
3013	"", /* dc_off_str */
3014	"", /* aa_on_str */
3015	"", /* aa_off_str */
3016	"", /* sb_on_str */
3017	"", /* sb_off_str */
3018	"", /* sp_off_str */
3019	"", /* sp_on_str */
3020	"", /* vol1_str */
3021	"", /* vol2_str */
3022	"", /* vol3_str */
3023	"", /* ignoredt */
3024	"", /* ini2 */
3025	0L, /* max_speed */
3026	0, /* capas */
3027	NULL /* ok_fn */
3028	};
3029
3030	static
3031	MDMINF CONCORD = /* Info for Condor CDS 220 2400b modem */
3032	{
3033	"Concord Condor CDS 220 2400b",
3034	"", /* pulse command */
3035	"", /* tone command */
3036	35, /* dial_time */
3037	",", /* pause_chars */
3038	2, /* pause_time */
3039	"\015\015", /* wake_str */
3040	20, /* wake_rate */
3041	"CDS >", /* wake_prompt */
3042	"", /* dmode_str */
3043	NULL, /* dmode_prompt */
3044	"<D M%s\015>", /* dial_str */
3045	0, /* dial_rate */
3046	0, /* esc_time */
3047	0, /* esc_char */
3048	"", /* hup_str */
3049	"", /* hwfc_str */
3050	"", /* swfc_str */
3051	"", /* nofc_str */
3052	"", /* ec_on_str */
3053	"", /* ec_off_str */
3054	"", /* dc_on_str */
3055	"", /* dc_off_str */
3056	"", /* aa_on_str */
3057	"", /* aa_off_str */
3058	"", /* sb_on_str */
3059	"", /* sb_off_str */
3060	"", /* sp_off_str */
3061	"", /* sp_on_str */
3062	"", /* vol1_str */
3063	"", /* vol2_str */
3064	"", /* vol3_str */
3065	"", /* ignoredt */
3066	"", /* ini2 */
3067	2400L, /* max_speed */
3068	0, /* capas */
3069	NULL /* ok_fn */
3070	};
3071	#endif /* OLDMODEMS */
3072
3073	static
3074	MDMINF MICROCOM = /* Microcom modems in native SX mode */
3075	/* (long answer only) */
3076	{
3077	"Microcom MNP modems in SX command mode",
3078	"DP\015", /* pulse command */
3079	"DT\015", /* tone command */
3080	35, /* dial_time */
3081	",!@", /* pause_chars (! and @ aren't pure pauses) */
3082	3, /* pause_time */
3083	/*
3084	The following sets 8 bits, no parity, BREAK passthru, and SE0 disables the
3085	escape character, which is a single character with no guard time, totally
3086	unsafe, so we have no choice but to disable it. Especially since, by
3087	default, it is Ctrl-A, which is Kermit's packet-start character. We would
3088	change it to something else, which would enable "mdmhup()", but the user
3089	wouldn't know about it. Very bad. Note: SE1 sets it to Ctrl-A, SE2
3090	sets it to Ctrl-B, etc (1..31 allowed). Also SE/Q sets it to "Q".
3091	*/
3092	"SE0;S1P4;SBRK5\015", /* wake_str */
3093	100, /* wake_rate */
3094	"!", /* wake_prompt */
3095	"", /* dmode_str */
3096	NULL, /* dmode_prompt */
3097	"D%s\015", /* dial_str - number up to 39 chars */
3098	0, /* dial_rate */
3099	0, /* esc_time */
3100	0, /* esc_char - we can't use this */
3101	"", /* hup_str - it's "H" but can't use */
3102	"SF13\015", /* hwfc_str */
3103	"SF11\015", /* swfc_str */
3104	"SF10\015", /* nofc_str */
3105	"BAOFF;SMAUT\015", /* ec_on_str */
3106	"BAON;SMDIR\015", /* ec_off_str */
3107	"COMP1\015", /* dc_on_str */
3108	"COMP0\015", /* dc_off_str */
3109	"AA", /* aa_on_str */
3110	"", /* aa_off_str */
3111	"", /* sb_on_str */
3112	"", /* sb_off_str */
3113	"SA2", /* sp_off_str */
3114	"SA0", /* sp_on_str */
3115	"", /* vol1_str */
3116	"", /* vol2_str */
3117	"", /* vol3_str */
3118	"", /* ignoredt */
3119	"", /* ini2 */
3120	0L, /* max_speed */
3121	CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW\|CKD_KS, /* capas */
3122	getok /* ok_fn */
3123	};
3124
3125	static
3126	MDMINF MICROLINK = /* MicroLink ... */
3127	{ /* 14.4TQ,TL,PC;28.8TQ,TQV;2440T/TR */
3128	"ELSA MicroLink 14.4, 28.8, 33.6 or 56K", /* ELSA GmbH, Aachen */
3129	"ATP\015", /* pulse command */
3130	"ATT\015", /* tone command */
3131	35, /* dial_time */
3132	",", /* pause_chars */
3133	2, /* pause_time */
3134	#ifdef OS2
3135	"ATQ0E1V1X4&S0\\D0&C1&D2\\K5\015", /* wake_str */
3136	#else
3137	#ifdef VMS
3138	"ATQ0X4&S1\\K5\015", /* wake_str */
3139	#else
3140	"ATQ0X4\\K5\015", /* wake_str */
3141	#endif /* VMS */
3142	#endif /* OS2 */
3143	0, /* wake_rate */
3144	"OK\015", /* wake_prompt */
3145	"", /* dmode_str */
3146	"", /* dmode_prompt */
3147	"ATD%s\015", /* dial_str */
3148	0, /* dial_rate */
3149	1100, /* esc_time */
3150	43, /* esc_char */
3151	"ATQ0H\015", /* hup_str */
3152	"AT\\Q3\015", /* hwfc_str */
3153	"AT\\Q1\\X0\015", /* swfc_str */
3154	"AT\\Q0\015", /* nofc_str */
3155	"AT\\N3\015", /* ec_on_str */
3156	"AT\\N0\015", /* ec_off_str */
3157	"AT%C3\015", /* dc_on_str */
3158	"AT%C0\015", /* dc_off_str */
3159	"ATS0=1\015", /* aa_on_str */
3160	"ATS0=0\015", /* aa_off_str */
3161	"\\J0", /* sb_on_str (?) */
3162	"", /* sb_off_str */
3163	"ATM1\015", /* sp_on_str */
3164	"ATM0\015", /* sp_off_str */
3165	"ATL1\015", /* vol1_str */
3166	"ATL2\015", /* vol2_str */
3167	"ATL3\015", /* vol3_str */
3168	"ATX3\015", /* ignoredt */
3169	"", /* ini2 */
3170	57600L, /* max_speed */
3171	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3172	getok /* ok_fn */
3173	};
3174
3175	static
3176	MDMINF ULINKV250 = /* MicroLink V.250 */
3177	{ /* 56Kflex, V.90; V.250 command set */
3178	"ELSA MicroLink 56K V.250", /* ELSA GmbH, Aachen */
3179	"ATP\015", /* pulse command */
3180	"ATT\015", /* tone command */
3181	35, /* dial_time */
3182	",", /* pause_chars */
3183	2, /* pause_time */
3184	#ifdef OS2
3185	/* \D0 = DSR & CTS always on but hwfc overrides on CTS. */
3186	"ATQ0E1V1X4&S0\\D0&C1&D2\015", /* wake_str */
3187	#else
3188	#ifdef VMS
3189	"ATQ0X4&S1\015", /* wake_str */
3190	#else
3191	"ATQ0X4\015", /* wake_str */
3192	#endif /* VMS */
3193	#endif /* OS2 */
3194	0, /* wake_rate */
3195	"OK\015", /* wake_prompt */
3196	"", /* dmode_str */
3197	"", /* dmode_prompt */
3198	"ATD%s\015", /* dial_str */
3199	0, /* dial_rate */
3200	1100, /* esc_time */
3201	43, /* esc_char */
3202	"ATQ0H0\015", /* hup_str */
3203	"AT+IFC=2,2\015", /* hwfc_str */
3204	"AT+IFC=1,1\015", /* swfc_str */
3205	"AT+IFC=0,0\015", /* nofc_str */
3206	"AT+ES=3,0\015", /* ec_on_str */
3207	"AT+ES=1,0\015", /* ec_off_str */
3208	"AT+DS=3,0,2048,32\015", /* dc_on_str */
3209	"AT+DS=0,0\015", /* dc_off_str */
3210
3211	"ATS0=1\015", /* aa_on_str */
3212	"ATS0=0\015", /* aa_off_str */
3213	"", /* sb_on_str (?) */
3214	"", /* sb_off_str */
3215	"ATM1\015", /* sp_on_str */
3216	"ATM0\015", /* sp_off_str */
3217	"ATL1\015", /* vol1_str */
3218	"ATL2\015", /* vol2_str */
3219	"ATL3\015", /* vol3_str */
3220	"ATX3\015", /* ignoredt */
3221	"", /* ini2 */
3222	57600L, /* max_speed */
3223	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3224	getok /* ok_fn */
3225	};
3226	#endif /* MINIDIAL */
3227
3228	static
3229	MDMINF ITUTV250 = /* ITU-T V.250 conforming modem */
3230	{
3231	"Any ITU-T V.25ter/V.250 conformant modem",
3232	"ATP\015", /* pulse command */
3233	"ATT\015", /* tone command */
3234	35, /* dial_time */
3235	",", /* pause_chars */
3236	2, /* pause_time */
3237	"ATQ0E1V1X4&C1&D2\015", /* wake_str (no &Sn in V.25) */
3238	0, /* wake_rate */
3239	"OK\015", /* wake_prompt */
3240	"", /* dmode_str */
3241	"", /* dmode_prompt */
3242	"ATD%s\015", /* dial_str */
3243	0, /* dial_rate */
3244	1100, /* esc_time */
3245	43, /* esc_char */
3246	"ATQ0H0\015", /* hup_str */
3247	"AT+IFC=2,2\015", /* hwfc_str */
3248	"AT+IFC=1,1\015", /* swfc_str */
3249	"AT+IFC=0,0\015", /* nofc_str */
3250	"AT+ES=3,0,2;+EB=1,0,30\015", /* ec_on_str */
3251	"AT+ES=0\015", /* ec_off_str */
3252	"AT+DS=3,0\015", /* dc_on_str */
3253	"AT+DS=0,0\015", /* dc_off_str */
3254	"ATS0=1\015", /* aa_on_str */
3255	"ATS0=0\015", /* aa_off_str */
3256	"", /* sb_on_str */
3257	"", /* sb_off_str */
3258	"ATM1\015", /* sp_on_str */
3259	"ATM0\015", /* sp_off_str */
3260	"ATL1\015", /* vol1_str */
3261	"ATL2\015", /* vol2_str */
3262	"ATL3\015", /* vol3_str */
3263	"ATX3\015", /* ignoredt */
3264	"", /* ini2 */
3265	57600L, /* max_speed */
3266	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3267	getok /* ok_fn */
3268	};
3269
3270	#ifndef CK_TAPI
3271	static
3272	#endif /* CK_TAPI */
3273	MDMINF GENERIC = /* Generic high speed ... */
3274	{
3275	"Generic high-speed AT command set",
3276	"ATP\015", /* pulse command */
3277	"ATT\015", /* tone command */
3278	35, /* dial_time */
3279	",", /* pause_chars */
3280	2, /* pause_time */
3281	"", /* wake_str */
3282	0, /* wake_rate */
3283	"", /* wake_prompt */
3284	"", /* dmode_str */
3285	"", /* dmode_prompt */
3286	"ATD%s\015", /* dial_str */
3287	0, /* dial_rate */
3288	1100, /* esc_time */
3289	43, /* esc_char */
3290	"ATQ0H0\015", /* hup_str */
3291	"", /* hwfc_str */
3292	"", /* swfc_str */
3293	"", /* nofc_str */
3294	"", /* ec_on_str */
3295	"", /* ec_off_str */
3296	"", /* dc_on_str */
3297	"", /* dc_off_str */
3298	"ATS0=1\015", /* aa_on_str */
3299	"ATS0=0\015", /* aa_off_str */
3300	"", /* sb_on_str */
3301	"", /* sb_off_str */
3302	"", /* sp_on_str */
3303	"", /* sp_off_str */
3304	"", /* vol1_str */
3305	"", /* vol2_str */
3306	"", /* vol3_str */
3307	"ATX3\015", /* ignoredt */
3308	"", /* ini2 */
3309	115200, /* max_speed */
3310	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW, /* capas */
3311	getok /* ok_fn */
3312	};
3313
3314	#ifndef MINIDIAL
3315	static
3316	MDMINF XJACK = /* Megahertz X-Jack */
3317	{
3318	"Megahertz X-Jack XJ3144 / CC6144",
3319	"ATP\015", /* pulse command */
3320	"ATT\015", /* tone command */
3321	35, /* dial_time */
3322	",", /* pause_chars */
3323	2, /* pause_time */
3324	#ifdef OS2
3325	"ATQ0E1V1X4N1&C1&D2\\K5\015", /* wake_str */
3326	#else
3327	"ATQ0X4N1\\K5\015", /* wake_str */
3328	#endif /* OS2 */
3329	0, /* wake_rate */
3330	"OK\015", /* wake_prompt */
3331	"", /* dmode_str */
3332	"", /* dmode_prompt */
3333	"ATD%s\015", /* dial_str */
3334	0, /* dial_rate */
3335	1100, /* esc_time */
3336	43, /* esc_char */
3337	"ATQ0H\015", /* hup_str */
3338	"AT&K3\015", /* hwfc_str */
3339	"AT&K4\015", /* swfc_str */
3340	"AT&K0\015", /* nofc_str */
3341	"AT\\N3&Q5\015", /* ec_on_str */
3342	"AT\\N1&Q0\015", /* ec_off_str */
3343	"AT%C3\015", /* dc_on_str */
3344	"AT%C0\015", /* dc_off_str */
3345	"ATS0=1\015", /* aa_on_str */
3346	"ATS0=0\015", /* aa_off_str */
3347	"", /* sb_on_str */
3348	"", /* sb_off_str */
3349	"ATM1\015", /* sp_on_str */
3350	"ATM0\015", /* sp_off_str */
3351	"ATL1\015", /* vol1_str */
3352	"ATL2\015", /* vol2_str */
3353	"ATL3\015", /* vol3_str */
3354	"ATX3\015", /* ignoredt */
3355	"", /* ini2 */
3356	57600L, /* max_speed */
3357	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3358	getok /* ok_fn */
3359	};
3360
3361	static
3362	MDMINF SPIRITII = /* QuickComm Spirit II */
3363	{
3364	"QuickComm Spirit II",
3365	"ATP\015", /* pulse command */
3366	"ATT\015", /* tone command */
3367	35, /* dial_time */
3368	",", /* pause_chars */
3369	2, /* pause_time */
3370	"AT&F\015", /* wake_str */
3371	0, /* wake_rate */
3372	"OK\015", /* wake_prompt */
3373	"", /* dmode_str */
3374	"", /* dmode_prompt */
3375	"ATD%s\015", /* dial_str */
3376	0, /* dial_rate */
3377	1100, /* esc_time */
3378	43, /* esc_char */
3379	"ATQ0H\015", /* hup_str */
3380	"ATF3\015", / hwfc_str */
3381	"ATF2\015", / swfc_str */
3382	"ATF0\015", / nofc_str */
3383	"ATE6\015", / ec_on_str */
3384	"ATE0\015", / ec_off_str */
3385	"ATE9\015", / dc_on_str */
3386	"ATE0\015", / dc_off_str */
3387	"ATS0=2\015", /* aa_on_str */
3388	"ATS0=0\015", /* aa_off_str */
3389	"", /* sb_on_str */
3390	"", /* sb_off_str */
3391	"ATM1\015", /* sp_on_str */
3392	"ATM0\015", /* sp_off_str */
3393	"ATL1\015", /* vol1_str */
3394	"ATL2\015", /* vol2_str */
3395	"ATL3\015", /* vol3_str */
3396	"ATX3\015", /* ignoredt */
3397	"", /* ini2 */
3398	57600L, /* max_speed */
3399	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3400	getok /* ok_fn */
3401	};
3402
3403	static
3404	MDMINF MONTANA = { /* Motorola Montana */
3405	"Motorola Montana", /* Name */
3406	"ATP\015", /* pulse command */
3407	"ATT\015", /* tone command */
3408	35, /* dial_time */
3409	",", /* pause_chars */
3410	2, /* pause_time */
3411	#ifdef OS2
3412	"ATQ0E1V1X4&S0&C1&D2\\K5\\V1\015", /* wake_str */
3413	#else
3414	#ifdef VMS
3415	"ATQ0E1X4&S1\\K5\\V1\015", /* wake_str */
3416	#else
3417	"ATQ0E1X4\\K5\\V1\015", /* wake_str */
3418	#endif /* VMS */
3419	#endif /* OS2 */
3420	0, /* wake_rate */
3421	"OK\015", /* wake_prompt */
3422	"", /* dmode_str */
3423	"", /* dmode_prompt */
3424	"ATD%s\015", /* dial_str */
3425	0, /* dial_rate */
3426	1100, /* esc_time */
3427	43, /* esc_char */
3428	"ATQ0H0\015", /* hup_str */
3429	"AT\\Q3\015", /* hwfc_str */
3430	"AT\\Q1\015", /* swfc_str */
3431	"AT\\Q0\015", /* nofc_str */
3432	"AT\\N4\015", /* ec_on_str */
3433	"AT\\N1\015", /* ec_off_str */
3434	"AT%C1\015", /* dc_on_str */
3435	"AT%C0\015", /* dc_off_str */
3436	"ATS0=1\015", /* aa_on_str */
3437	"ATS0=0\015", /* aa_off_str */
3438	"AT\\J0\015", /* sb_on_str */
3439	"AT\\J1\015", /* sb_off_str */
3440	"ATM1\015", /* sp_on_str */
3441	"ATM0\015", /* sp_off_str */
3442	"ATL1\015", /* vol1_str */
3443	"ATL2\015", /* vol2_str */
3444	"ATL3\015", /* vol3_str */
3445	"ATX3\015", /* ignoredt */
3446	"", /* ini2 */
3447	57600L, /* max_speed */
3448	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3449	getok /* ok_fn */
3450	};
3451
3452	static
3453	MDMINF COMPAQ = { /* Compaq Data+Fax Modem */
3454	"Compaq Data+Fax Modem", /* Name */
3455	"ATP\015", /* pulse command */
3456	"ATT\015", /* tone command */
3457	35, /* dial_time */
3458	",", /* pause_chars */
3459	2, /* pause_time */
3460	#ifdef OS2
3461	"ATQ0E1V1X4&S0&C1&D2\015", /* wake_str */
3462	#else
3463	#ifdef VMS
3464	"ATQ0E1X4&S1\015", /* wake_str */
3465	#else
3466	"ATQ0E1X4\015", /* wake_str */
3467	#endif /* VMS */
3468	#endif /* OS2 */
3469	0, /* wake_rate */
3470	"OK\015", /* wake_prompt */
3471	"", /* dmode_str */
3472	"", /* dmode_prompt */
3473	"ATD%s\015", /* dial_str */
3474	0, /* dial_rate */
3475	1100, /* esc_time */
3476	43, /* esc_char */
3477	"ATQ0H0\015", /* hup_str */
3478	"AT\\Q3\015", /* hwfc_str (same as &K3) */
3479	"AT\\Q1\015", /* swfc_str (same as &K4) */
3480	"AT\\Q0\015", /* nofc_str (same as &K0) */
3481	"AT\\N3\015", /* ec_on_str */
3482	"AT\\N0\015", /* ec_off_str */
3483	"AT%C1\015", /* dc_on_str */
3484	"AT%C0\015", /* dc_off_str */
3485	"ATS0=1\015", /* aa_on_str */
3486	"ATS0=0\015", /* aa_off_str */
3487	"AT\\N3\015", /* sb_on_str */
3488	"AT\\N1\015", /* sb_off_str */
3489	"ATM1\015", /* sp_on_str */
3490	"ATM0\015", /* sp_off_str */
3491	"ATL0\015", /* vol1_str */
3492	"ATL2\015", /* vol2_str */
3493	"ATL3\015", /* vol3_str */
3494	"ATX3\015", /* ignoredt */
3495	"", /* ini2 */
3496	115200L, /* max_speed */
3497	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3498	getok /* ok_fn */
3499	};
3500
3501
3502	static
3503	MDMINF FUJITSU = { /* Fujitsu */
3504	"Fujitsu Fax/Modem Adapter", /* Name */
3505	"ATP\015", /* pulse command */
3506	"ATT\015", /* tone command */
3507	35, /* dial_time */
3508	",", /* pause_chars */
3509	2, /* pause_time */
3510	#ifdef OS2
3511	"ATQ0E1V1X4&S0&C1&D2\\K5\\N3\015", /* wake_str */
3512	#else
3513	#ifdef VMS
3514	"ATQ0E1X4&S1\\K5\\N3\015", /* wake_str */
3515	#else
3516	"ATQ0E1X4\\K5\\N3\015", /* wake_str */
3517	#endif /* VMS */
3518	#endif /* OS2 */
3519	0, /* wake_rate */
3520	"OK\015", /* wake_prompt */
3521	"", /* dmode_str */
3522	"", /* dmode_prompt */
3523	"ATD%s\015", /* dial_str */
3524	0, /* dial_rate */
3525	1100, /* esc_time */
3526	43, /* esc_char */
3527	"ATQ0H0\015", /* hup_str */
3528	"AT&K3\\Q3\015", /* hwfc_str */
3529	"AT&K4\\Q1\015", /* swfc_str */
3530	"AT&K0\\Q0\015", /* nofc_str */
3531	"AT\\N3\015", /* ec_on_str */
3532	"AT\\N0\015", /* ec_off_str */
3533	"AT%C1", /* dc_on_str */
3534	"AT%C0", /* dc_off_str */
3535	"ATS0=1\015", /* aa_on_str */
3536	"ATS0=0\015", /* aa_off_str */
3537	"AT\\J0\015", /* sb_on_str */
3538	"AT\\J1\015", /* sb_off_str */
3539	"ATM1\015", /* sp_on_str */
3540	"ATM0\015", /* sp_off_str */
3541	"ATL1\015", /* vol1_str */
3542	"ATL2\015", /* vol2_str */
3543	"ATL3\015", /* vol3_str */
3544	"ATX3\015", /* ignoredt */
3545	"", /* ini2 */
3546	115200L, /* max_speed */
3547	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3548	getok /* ok_fn */
3549	};
3550
3551	static
3552	MDMINF MHZATT = /* Megahertz AT&T V.34 */
3553	{
3554	"Megahertz AT&T V.34",
3555	"ATP\015", /* pulse command */
3556	"ATT\015", /* tone command */
3557	35, /* dial_time */
3558	",", /* pause_chars */
3559	2, /* pause_time */
3560	#ifdef OS2
3561	"ATQ0E1V1X4N1&C1&D2\\K5\015", /* wake_str */
3562	#else
3563	"ATQ0X4N1\\K5\015", /* wake_str */
3564	#endif /* OS2 */
3565	0, /* wake_rate */
3566	"OK\015", /* wake_prompt */
3567	"", /* dmode_str */
3568	"", /* dmode_prompt */
3569	"ATD%s\015", /* dial_str */
3570	0, /* dial_rate */
3571	1100, /* esc_time */
3572	43, /* esc_char */
3573	"ATQ0H\015", /* hup_str */
3574	"AT&K3\015", /* hwfc_str */
3575	"AT&K4\015", /* swfc_str */
3576	"AT&K0\015", /* nofc_str */
3577	"AT\\N3\015", /* ec_on_str */
3578	"AT\\N0\015", /* ec_off_str */
3579	"AT%C1\"H3\015", /* dc_on_str */
3580	"AT%C0\"H0\015", /* dc_off_str */
3581	"ATS0=1\015", /* aa_on_str */
3582	"ATS0=0\015", /* aa_off_str */
3583	"AT\\J0\015", /* sb_on_str */
3584	"AT\\J1\015", /* sb_off_str */
3585	"ATM1\015", /* sp_on_str */
3586	"ATM0\015", /* sp_off_str */
3587	"ATL1\015", /* vol1_str */
3588	"ATL2\015", /* vol2_str */
3589	"ATL3\015", /* vol3_str */
3590	"ATX3\015", /* ignoredt */
3591	"", /* ini2 */
3592	115200L, /* max_speed */
3593	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3594	getok /* ok_fn */
3595	};
3596
3597	static
3598	MDMINF SUPRASON = /* SupraSonic */
3599	{
3600	"Diamond SupraSonic 288V+", /* Diamond Multimedia Systems Inc */
3601	"ATP\015", /* pulse command */
3602	"ATT\015", /* tone command */
3603	35, /* dial_time */
3604	",", /* pause_chars */
3605	2, /* pause_time */
3606	#ifdef OS2
3607	"ATQ0E1V1N1W0X4Y0&S0&C1&D2\015", /* wake_str */
3608	#else
3609	#ifdef VMS
3610	"ATQ0E1N1W0X4Y0&S1\015", /* wake_str */
3611	#else
3612	"ATQ0E1N1W0X4Y0\015", /* wake_str */
3613	#endif /* VMS */
3614	#endif /* OS2 */
3615	0, /* wake_rate */
3616	"OK\015", /* wake_prompt */
3617	"", /* dmode_str */
3618	"", /* dmode_prompt */
3619	"ATD%s\015", /* dial_str */
3620	0, /* dial_rate */
3621	1100, /* esc_time */
3622	43, /* esc_char */
3623	"ATQ0H0\015", /* hup_str */
3624	"AT&K3\015", /* hwfc_str */
3625	"AT&K4\015", /* swfc_str */
3626	"AT&K\015", /* nofc_str */
3627	"AT&Q5\\N3S48=7\015", /* ec_on_str */
3628	"AT&Q0\\N1\015", /* ec_off_str */
3629	"AT%C3S46=138\015", /* dc_on_str */
3630	"AT%C0S46=136\015", /* dc_off_str */
3631	"ATS0=1\015", /* aa_on_str */
3632	"ATS0=0\015", /* aa_off_str */
3633	"", /* sb_on_str */
3634	"", /* sb_off_str */
3635	"ATM1\015", /* sp_on_str */
3636	"ATM\015", /* sp_off_str */
3637	"ATL\015", /* vol1_str */
3638	"ATL2\015", /* vol2_str */
3639	"ATL3\015", /* vol3_str */
3640	"ATX3\015", /* ignoredt */
3641	"", /* ini2 */
3642	115200L, /* max_speed */
3643	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3644	getok /* ok_fn */
3645	};
3646
3647	static
3648	MDMINF BESTDATA = /* Best Data */
3649	{
3650	"Best Data Fax Modem", /* Best Data Fax Modem */
3651	"ATP\015", /* pulse command */
3652	"ATT\015", /* tone command */
3653	35, /* dial_time */
3654	",", /* pause_chars */
3655	2, /* pause_time */
3656	#ifdef OS2
3657	"ATQ0E1V1N1W0X4Y0&S0&C1&D2\015", /* wake_str */
3658	#else
3659	#ifdef VMS
3660	"ATQ0E1N1W0X4Y0&S1\015", /* wake_str */
3661	#else
3662	"ATQ0E1N1W0X4Y0\015", /* wake_str */
3663	#endif /* VMS */
3664	#endif /* OS2 */
3665	0, /* wake_rate */
3666	"OK\015", /* wake_prompt */
3667	"", /* dmode_str */
3668	"", /* dmode_prompt */
3669	"ATD%s\015", /* dial_str */
3670	0, /* dial_rate */
3671	1100, /* esc_time */
3672	43, /* esc_char */
3673	"ATQ0H0\015", /* hup_str */
3674	"AT&K3\015", /* hwfc_str */
3675	"AT&K4\015", /* swfc_str */
3676	"AT&K\015", /* nofc_str */
3677	"AT&Q6\\N3\015", /* ec_on_str */
3678	"AT&Q0\\N1\015", /* ec_off_str */
3679	"AT%C3\015", /* dc_on_str */
3680	"AT%C0\015", /* dc_off_str */
3681	"ATS0=1\015", /* aa_on_str */
3682	"ATS0=0\015", /* aa_off_str */
3683	"AT\\N3\015", /* sb_on_str */
3684	"AT\\N0\015", /* sb_off_str */
3685	"ATM1\015", /* sp_on_str */
3686	"ATM0\015", /* sp_off_str */
3687	"ATL1\015", /* vol1_str */
3688	"ATL2\015", /* vol2_str */
3689	"ATL3\015", /* vol3_str */
3690	"ATX3\015", /* ignoredt */
3691	"", /* ini2 */
3692	57600L, /* max_speed */
3693	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3694	getok /* ok_fn */
3695	};
3696
3697	static
3698	MDMINF ATT1900 = /* AT&T Secure Data STU III 1900 */
3699	{
3700	"AT&T Secure Data STU III Model 1900", /* name */
3701	"", /* pulse command */
3702	"", /* tone command */
3703	35, /* dial_time */
3704	",", /* pause_chars */
3705	2, /* pause_time */
3706	#ifdef OS2
3707	"ATQ0E1V1X4\015", /* wake_str */
3708	#else
3709	"ATQ0E1X4\015", /* wake_str */
3710	#endif /* OS2 */
3711	0, /* wake_rate */
3712	"OK\015", /* wake_prompt */
3713	"", /* dmode_str */
3714	"", /* dmode_prompt */
3715	"ATD%s\015", /* dial_str */
3716	0, /* dial_rate */
3717	1100, /* esc_time */
3718	43, /* esc_char */
3719	"ATQ0H0\015", /* hup_str */
3720	"", /* hwfc_str */
3721	"", /* swfc_str */
3722	"", /* nofc_str */
3723	"", /* ec_on_str */
3724	"", /* ec_off_str */
3725	"", /* dc_on_str */
3726	"", /* dc_off_str */
3727	"ATS0=1\015", /* aa_on_str */
3728	"ATS0=0\015", /* aa_off_str */
3729	"", /* sb_on_str */
3730	"", /* sb_off_str */
3731	"", /* sp_on_str */
3732	"", /* sp_off_str */
3733	"", /* vol1_str */
3734	"", /* vol2_str */
3735	"", /* vol3_str */
3736	"", /* ignoredt */
3737	"", /* ini2 */
3738	9600L, /* max_speed */
3739	CKD_AT\|CKD_SB\|CKD_HW, /* capas */
3740	getok /* ok_fn */
3741	};
3742
3743	/*
3744	Experimentation showed that hardly any of the documented commands did
3745	anything other that print ERROR. At first there was no communication at
3746	all at 9600 bps -- turns out the interface speed was stuck at 2400.
3747	ATS28=130 (given at 2400 bps) allowed it to work at 9600.
3748	*/
3749	static
3750	MDMINF ATT1910 = /* AT&T Secure Data STU III 1910 */
3751	{ /* Adds V.32bis, V.42, V.42bis */
3752	"AT&T Secure Data STU III Model 1910", /* name */
3753
3754	/* Believe it or not, "ATT" and "ATP" result in ERROR */
3755
3756	"", /* pulse command */
3757	"", /* tone command */
3758	35, /* dial_time */
3759	",", /* pause_chars */
3760	2, /* pause_time */
3761	#ifdef OS2
3762	"ATQ0E1V1X4\015", /* wake_str */
3763	#else
3764	"ATQ0E1X4\015", /* wake_str */
3765	#endif /* OS2 */
3766	0, /* wake_rate */
3767	"OK\015", /* wake_prompt */
3768	"", /* dmode_str */
3769	"", /* dmode_prompt */
3770	"ATD%s\015", /* dial_str */
3771	0, /* dial_rate */
3772	1100, /* esc_time */
3773	43, /* esc_char */
3774	"ATQ0H0\015", /* hup_str */
3775	"", /* hwfc_str */
3776	"", /* swfc_str */
3777	"", /* nofc_str */
3778	#ifdef COMMENT
3779	/* These are evidently read-only registers */
3780	"ATS46=138S47=0\015", /* ec_on_str */
3781	"ATS46=138S47=128\015", /* ec_off_str */
3782	"ATS46=138S47=0\015", /* dc_on_str */
3783	"ATS46=138S47=128\015", /* dc_off_str */
3784	#else
3785	"",
3786	"",
3787	"",
3788	"",
3789	#endif /* COMMENT */
3790	"ATS0=1\015", /* aa_on_str */
3791	"ATS0=0\015", /* aa_off_str */
3792	"", /* sb_on_str */
3793	"", /* sb_off_str */
3794	"", /* sp_on_str */
3795	"", /* sp_off_str */
3796	"", /* vol1_str */
3797	"", /* vol2_str */
3798	"", /* vol3_str */
3799	"", /* ignoredt */
3800	"", /* ini2 */
3801	9600L, /* max_speed */
3802	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW, /* capas */
3803	getok /* ok_fn */
3804	};
3805
3806	static
3807	MDMINF KEEPINTOUCH = /* AT&T KeepinTouch Card Modem */
3808	{
3809	"AT&T KeepinTouch V.32bis Card Modem", /* Name */
3810	"ATP\015", /* pulse command */
3811	"ATT\015", /* tone command */
3812	35, /* dial_time */
3813	",", /* pause_chars */
3814	2, /* pause_time */
3815	#ifdef OS2
3816	/* This used to include &C1&S0&D2+Q0 but that gives ERROR */
3817	"ATQ0E1V1X4&S0&C1&D2\\K5\015", /* wake_str */
3818	#else
3819	#ifdef VMS
3820	"ATQ0E1X4&S1\\K5\015", /* wake_str */
3821	#else
3822	"ATQ0E1X4\\K5\015", /* wake_str */
3823	#endif /* VMS */
3824	#endif /* OS2 */
3825	0, /* wake_rate */
3826	"OK\015", /* wake_prompt */
3827	"", /* dmode_str */
3828	"", /* dmode_prompt */
3829	"ATD%s\015", /* dial_str */
3830	0, /* dial_rate */
3831	1100, /* esc_time */
3832	43, /* esc_char */
3833	"ATQ0H0\015", /* hup_str */
3834	"AT\\Q3\015", /* hwfc_str */
3835	"AT\\Q1\\X0\015", /* swfc_str */
3836	"AT\\Q0\015", /* nofc_str */
3837	"AT\\N3-J1\015", /* ec_on_str */
3838	"AT\\N1\015", /* ec_off_str */
3839	"AT%C3\"H3\015", /* dc_on_str */
3840	"AT%C0\"H0\015", /* dc_off_str */
3841	"ATS0=1\015", /* aa_on_str */
3842	"ATS0=0\015", /* aa_off_str */
3843	"ATN0\\J0\015", /* sb_on_str */
3844	"ATN1\\J1\015", /* sb_off_str */
3845	"ATM1\015", /* sp_on_str */
3846	"ATM0\015", /* sp_off_str */
3847	"", /* vol1_str */
3848	"", /* vol2_str */
3849	"", /* vol3_str */
3850	"ATX3\015", /* ignoredt */
3851	"", /* ini2 */
3852	57600L, /* max_speed */
3853	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3854	getok /* ok_fn */
3855	};
3856
3857	static
3858	MDMINF ROLM_AT = /* Rolm data phone with AT command set */
3859	{
3860	"Rolm 244PC or 600 Series with AT Command Set",
3861	"", /* pulse command */
3862	"", /* tone command */
3863	35, /* dial_time */
3864	",", /* pause_chars */
3865	2, /* pause_time */
3866	#ifdef OS2
3867	"ATE1Q0V1\015", /* wake_str */
3868	#else
3869	"ATQ0\015", /* wake_str */
3870	#endif /* OS2 */
3871	0, /* wake_rate */
3872	"OK\015", /* wake_prompt */
3873	"", /* dmode_str */
3874	"", /* dmode_prompt */
3875	"ATDT%s\015", /* dial_str -- always Tone */
3876	0, /* dial_rate */
3877	1100, /* esc_time */
3878	43, /* esc_char */
3879	"ATQ0H0\015", /* hup_str */
3880	"", /* hwfc_str */
3881	"", /* swfc_str */
3882	"", /* nofc_str */
3883	"", /* ec_on_str */
3884	"", /* ec_off_str */
3885	"", /* dc_on_str */
3886	"", /* dc_off_str */
3887	"ATS0=1\015", /* aa_on_str */
3888	"ATS0=0\015", /* aa_off_str */
3889	"", /* sb_on_str */
3890	"", /* sb_off_str */
3891	"", /* sp_on_str */
3892	"", /* sp_off_str */
3893	"", /* vol1_str */
3894	"", /* vol2_str */
3895	"", /* vol3_str */
3896	"", /* ignoredt */
3897	"", /* ini2 */
3898	19200L, /* max_speed */
3899	CKD_AT, /* capas */
3900	getok /* ok_fn */
3901	};
3902
3903	static
3904	MDMINF ATLAS = /* Atlas / Newcom ixfC 33.6 */
3905	{
3906	"Atlas / Newcom 33600ixfC Data/Fax Modem", /* Name */
3907	"ATP\015", /* pulse command */
3908	"ATT\015", /* tone command */
3909	35, /* dial_time */
3910	",", /* pause_chars */
3911	2, /* pause_time */
3912	#ifdef OS2
3913	"ATZ0&FQ0V1&C1&D2\015", /* wake_str */
3914	#else
3915	"ATZ0&FQ0V1\015", /* wake_str */
3916	#endif /* OS2 */
3917	0, /* wake_rate */
3918	"OK\015", /* wake_prompt */
3919	"", /* dmode_str */
3920	"", /* dmode_prompt */
3921	"ATD%s\015", /* dial_str */
3922	0, /* dial_rate */
3923	1100, /* esc_time */
3924	43, /* esc_char */
3925	"ATQ0H0\015", /* hup_str */
3926	"AT&K3\015", /* hwfc_str */
3927	"AT&K4\015", /* swfc_str */
3928	"AT&K0\015", /* nofc_str */
3929	"AT\"H3\015", /* ec_on_str */
3930	"AT\"H0\015", /* ec_off_str */
3931	"AT%C1\015", /* dc_on_str */
3932	"AT%C0\015", /* dc_off_str */
3933	"ATS0=1\015", /* aa_on_str */
3934	"ATS0=0\015", /* aa_off_str */
3935	"ATN0\\J0\015", /* sb_on_str */
3936	"ATN1\\J1\015", /* sb_off_str */
3937	"ATM1\015", /* sp_on_str */
3938	"ATM0\015", /* sp_off_str */
3939	"ATL1\015", /* vol1_str */
3940	"ATL2\015", /* vol2_str */
3941	"ATL3\015", /* vol3_str */
3942	"ATX3\015", /* ignoredt */
3943	"", /* ini2 */
3944	115200L, /* max_speed */
3945	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3946	getok /* ok_fn */
3947	};
3948
3949	static
3950	MDMINF CODEX = { /* Motorola Codex */
3951	"Motorola Codex 326X Series", /* Name - AT&V to see settings */
3952	"ATP\015", /* pulse command */
3953	"ATT\015", /* tone command */
3954	35, /* dial_time */
3955	",", /* pause_chars */
3956	2, /* pause_time */
3957	#ifdef OS2
3958	/* &M0=Async (not sync) */
3959	/* MM0=Automatic modulation negotiation /
3960	/* DE22=Automatic data rate /
3961	"ATZQ0E1V1X4Y0DE22MM0&C1&M0&S0&D2\015", /* wake_str */
3962	#else
3963	#ifdef VMS
3964	"ATZQ0E1V1X4Y0DE22MM0&C1&M0&S1\015", /* wake_str */
3965	#else
3966	"ATZQ0E1V1X4Y0DE22MM0&C1&M0\015", /* wake_str */
3967	#endif /* VMS */
3968	#endif /* OS2 */
3969	0, /* wake_rate */
3970	"OK\015", /* wake_prompt */
3971	"", /* dmode_str */
3972	"", /* dmode_prompt */
3973	"ATD%s\015", /* dial_str */
3974	0, /* dial_rate */
3975	1100, /* esc_time */
3976	43, /* esc_char */
3977	"ATQ0H0\015", /* hup_str */
3978	"ATMF1FL3\015", /* hwfc_str */
3979	"ATMF1FL1\015", /* swfc_str */
3980	"ATMF0FL0\015", /* nofc_str */
3981	"ATEC0SM3SC0\015", / ec_on_str */
3982	"ATSM0\015", / ec_off_str */
3983	"ATDC1\015", / dc_on_str */
3984	"ATDC0\015", / dc_off_str */
3985	"ATAA5S0=1\015", / aa_on_str */
3986	"ATAA5S0=0\015", / aa_off_str */
3987	"ATSC1\015", / sb_on_str */
3988	"ATSC0\015", / sb_off_str */
3989	"ATM1\015", /* sp_on_str */
3990	"ATM0\015", /* sp_off_str */
3991	"ATL1\015", /* vol1_str */
3992	"ATL2\015", /* vol2_str */
3993	"ATL3\015", /* vol3_str */
3994	"ATX3BD2\015", / ignoredt */
3995	"", /* ini2 */
3996	115200L, /* max_speed */
3997	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
3998	getok /* ok_fn */
3999	};
4000
4001	static
4002	MDMINF MT5634ZPX = /* Multitech */
4003	{
4004	"Multitech MT5634ZPX", /* name */
4005	"ATP\015", /* pulse command */
4006	"ATT\015", /* tone command */
4007	35, /* dial_time */
4008	",", /* pause_chars */
4009	2, /* pause_time */
4010	#ifdef OS2
4011	"ATE1Q0V1X4&S0&C1&D2&Q0\015", /* wake_str */
4012	#else
4013	#ifdef VMS
4014	"ATQ0E1X4&S1&Q0\015", /* wake_str */
4015	#else
4016	"ATQ0E1X4&Q0\015", /* wake_str */
4017	#endif /* VMS */
4018	#endif /* OS2 */
4019	0, /* wake_rate */
4020	"OK\015", /* wake_prompt */
4021	"", /* dmode_str */
4022	"", /* dmode_prompt */
4023	"ATD%s\015", /* dial_str */
4024	0, /* dial_rate */
4025	1100, /* esc_time */
4026	43, /* esc_char */
4027	"ATQ0H0\015", /* hup_str */
4028	"AT&K3\015", /* hwfc_str */
4029	"AT&K4\015", /* swfc_str */
4030	"AT&K0\015", /* nofc_str */
4031	"AT\\N3\015", /* ec_on_str */
4032	"AT\\N1\015", /* ec_off_str */
4033	"AT%C1\015", /* dc_on_str */
4034	"AT%C0\015", /* dc_off_str */
4035	"ATS0=1\015", /* aa_on_str */
4036	"ATS0=0\015", /* aa_off_str */
4037	"AT\\J0\015", /* sb_on_str */
4038	"AT\\J1\015", /* sb_off_str (NOT SUPPORTED) */
4039	"ATM1\015", /* sp_on_str */
4040	"ATM0\015", /* sp_off_str */
4041	"ATL1\015", /* vol1_str */
4042	"ATL2\015", /* vol2_str */
4043	"ATL3\015", /* vol3_str */
4044	"ATX3\015", /* ignoredt */
4045	"", /* ini2 */
4046	115200L, /* max_speed */
4047	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
4048	getok /* ok_fn */
4049	};
4050
4051	static
4052	MDMINF MOTSM56 = /* Motorola SM56 Chipset */
4053	{
4054	"Motorola SM56 V.90 chipset", /* name */
4055	"ATP\015", /* pulse command */
4056	"ATT\015", /* tone command */
4057	35, /* dial_time */
4058	",", /* pause_chars */
4059	2, /* pause_time */
4060	#ifdef OS2
4061	"ATQ0V1X4&S0&C1&D2MM16\015", / wake_str */
4062	#else
4063	#ifdef VMS
4064	"ATQ0V1X4&S1&C1&D2MM16\015", / wake_str */
4065	#else
4066	"ATQ0V1X4&C1&D2MM16\015", / wake_str */
4067	#endif /* VMS */
4068	#endif /* OS2 */
4069	0, /* wake_rate */
4070	"OK\015", /* wake_prompt */
4071	"", /* dmode_str */
4072	"", /* dmode_prompt */
4073	"ATD%s\015", /* dial_str */
4074	0, /* dial_rate */
4075	1100, /* esc_time */
4076	43, /* esc_char */
4077	"ATQ0H0\015", /* hup_str */
4078	"AT\\Q3\015", /* hwfc_str */
4079	"AT\\Q1\015", /* swfc_str */
4080	"AT\\Q0\015", /* nofc_str */
4081	"AT\\N7\015", /* ec_on_str */
4082	"AT\\N1\015", /* ec_off_str */
4083	"AT%C1\015", /* dc_on_str */
4084	"AT%C0\015", /* dc_off_str */
4085	"ATS0=1\015", /* aa_on_str */
4086	"ATS0=0\015", /* aa_off_str */
4087	"AT\\J0\015", /* sb_on_str */
4088	"AT\\J1\015", /* sb_off_str (NOT SUPPORTED) */
4089	"ATM1\015", /* sp_on_str */
4090	"ATM0\015", /* sp_off_str */
4091	"ATL1\015", /* vol1_str */
4092	"ATL2\015", /* vol2_str */
4093	"ATL3\015", /* vol3_str */
4094	"ATX3\015", /* ignoredt */
4095	"", /* ini2 */
4096	115200L, /* max_speed */
4097	CKD_AT\|CKD_SB\|CKD_EC\|CKD_DC\|CKD_HW\|CKD_SW, /* capas */
4098	getok /* ok_fn */
4099	};
4100	#endif /* MINIDIAL */
4101
4102	/* END MDMINF STRUCT DEFINITIONS */
4103
4104	/*
4105	Table to convert modem numbers to MDMINF struct pointers.
4106	The entries MUST be in ascending order by modem number, without any
4107	"gaps" in the numbers, and starting from one (1).
4108	*/
4109
4110	MDMINF *modemp[] = {
4111	#ifdef MINIDIAL
4112	NULL, /* 0 */
4113	&CCITT, /* 1 */
4114	&HAYES, /* 2 */
4115	&UNKNOWN, /* 3 */
4116	&DUMMY, /* 4 */
4117	&GENERIC, /* 5 */
4118	&ITUTV250 /* 6 */
4119	#else /* Not MINIDIAL */
4120	NULL, /* 0 */
4121	&ATTDTDM, /* 1 */
4122	&ATTISN, /* 2 */
4123	&ATTMODEM, /* 3 */
4124	&CCITT, /* 4 */
4125	#ifdef OLDMODEMS
4126	&CERMETEK, /* 5 */
4127	&DF03, /* 6 */
4128	&DF100, /* 7 */
4129	&DF200, /* 8 */
4130	&GDC, /* 9 */
4131	#else
4132	NULL,
4133	NULL,
4134	NULL,
4135	NULL,
4136	NULL,
4137	#endif /* OLDMODEMS */
4138	&HAYES, /* 10 */
4139	#ifdef OLDMODEMS
4140	&PENRIL, /* 11 */
4141	&RACAL, /* 12 */
4142	#else
4143	NULL,
4144	NULL,
4145	#endif /* OLDMODEMS */
4146	&UNKNOWN, /* 13 */
4147	#ifdef OLDMODEMS
4148	&VENTEL, /* 14 */
4149	&CONCORD, /* 15 */
4150	#else
4151	NULL,
4152	NULL,
4153	#endif /* OLDMODEMS */
4154	&DUMMY, /* 16 */
4155	&ROLM, /* 17 */
4156	#ifdef OLDMODEMS
4157	&MICROCOM, /* 18 */
4158	#else
4159	NULL,
4160	#endif /* OLDMODEMS */
4161	&USR, /* 19 USR Courier and Sportster */
4162	&OLDTB, /* 20 Old Telebits */
4163	&DIGITEL, /* 21 Digitel CCITT */
4164	&H_1200, /* 22 Hayes 1200 */
4165	&H_ULTRA, /* 23 Hayes Ultra */
4166	&H_ACCURA, /* 24 Hayes Optima */
4167	&PPI, /* 25 PPI */
4168	&DATAPORT, /* 26 Dataport */
4169	&BOCA, /* 27 Boca */
4170	&MOTOROLA, /* 28 Motorola UDS MOTOROLA */
4171	NULL, /* 29 Digicomm */
4172	NULL, /* 30 Dynalink */
4173	&INTEL, /* 31 Intel */
4174	&UCOM_AT, /* 32 Microcom in AT mode */
4175	&MULTITECH, /* 33 Multitech */
4176	&SUPRA, /* 34 Supra */
4177	&ZOLTRIX, /* 35 Zoltrix */
4178	&ZOOM, /* 36 Zoom */
4179	&ZYXEL, /* 37 ZyXEL */
4180	&DUMMY, /* 38 TAPI */
4181	&NEWTB, /* 39 New-Telebit */
4182	&MAXTECH, /* 40 MaxTech */
4183	&DUMMY, /* 41 User-defined */
4184	&RWV32, /* 42 Rockwell V.32 */
4185	&RWV32B, /* 43 Rockwell V.32bis */
4186	&RWV34, /* 44 Rockwell V.34 */
4187	&MWAVE, /* 45 IBM Mwave */
4188	&TELEPATH, /* 46 Gateway 2000 Telepath II 28.8 */
4189	&MICROLINK, /* 47 MicroLink modems */
4190	&CARDINAL, /* 48 Cardinal */
4191	&GENERIC, /* 49 Generic high-speed */
4192	&XJACK, /* 50 Megahertz-Xjack */
4193	&SPIRITII, /* 51 QuickComm Spirit II */
4194	&MONTANA, /* 52 Motorola Montana */
4195	&COMPAQ, /* 53 Compaq Data+Fax */
4196	&FUJITSU, /* 54 Fujitsu */
4197	&MHZATT, /* 55 Megahertz AT&T V.34 */
4198	&SUPRASON, /* 56 Suprasonic */
4199	&BESTDATA, /* 57 Best Data */
4200	&ATT1900, /* 58 AT&T Secure Data STU III 1900 */
4201	&ATT1910, /* 59 AT&T Secure Data STU III 1910 */
4202	&KEEPINTOUCH, /* 60 AT&T KeepinTouch */
4203	&USRX2, /* 61 USR XJ-1560 X2 */
4204	&ROLM_AT, /* 62 Rolm with AT command set */
4205	&ATLAS, /* 63 Atlas / Newcom */
4206	&CODEX, /* 64 Motorola Codex */
4207	&MT5634ZPX, /* 65 Multitech MT5634ZPX */
4208	&ULINKV250, /* 66 Microlink V.250 56K */
4209	&ITUTV250, /* 67 Generic ITU-T V.250 */
4210	&RWV90, /* 68 Rockwell V.90 56K */
4211	&SUPRAX, /* 69 Diamond Supra Express V.90 */
4212	&LUCENT, /* 70 Lucent Venus chipset */
4213	&PCTEL, /* 71 PCTel */
4214	&CONEXANT, /* 72 Conexant */
4215	&ZOOMV34, /* 73 Zoom V.34 */
4216	&ZOOMV90, /* 74 Zoom V.90 */
4217	&ZOOMV92, /* 75 Zoom V.92 */
4218	&MOTSM56 /* 76 Motorola SM56 chipset */
4219	#endif /* MINIDIAL */
4220	};
4221	/*
4222	* Declare modem names and associated numbers for command parsing,
4223	* and also for doing number-to-name translation.
4224	*
4225	* The entries must be in alphabetical order by modem name.
4226	*/
4227	struct keytab mdmtab[] = {
4228	#ifndef MINIDIAL
4229	"3com-usr-megahertz-56k", n_USRX2, CM_INV,
4230	"acer-v90", n_RWV90, M_ALIAS,
4231	"atlas-newcom-33600ifxC", n_ATLAS, 0,
4232	"att-1900-stu-iii", n_ATT1900, 0,
4233	"att-1910-stu-iii", n_ATT1910, 0,
4234	"att-7300", n_ATTUPC, 0,
4235	"att-dataport", n_DATAPORT, 0,
4236	"att-dtdm", n_ATTDTDM, 0,
4237	"att-isn", n_ATTISN, 0,
4238	"att-keepintouch", n_KEEPINTOUCH, 0,
4239	"att-switched-net", n_ATTMODEM, 0,
4240
4241	"att7300", n_ATTUPC, CM_INV, /* old name */
4242	"attdtdm", n_ATTDTDM, CM_INV, /* old name */
4243	"attisn", n_ATTISN, CM_INV, /* old name */
4244	"attmodem", n_ATTMODEM, CM_INV, /* old name */
4245
4246	"bestdata", n_BESTDATA, 0,
4247	"boca", n_BOCA, 0,
4248	"cardinal", n_CARDINAL, 0,
4249	#endif /* MINIDIAL */
4250	"ccitt-v25bis", n_CCITT, CM_INV, /* Name changed to ITU-T */
4251	#ifndef MINIDIAL
4252	#ifdef OLDMODEMS
4253	"cermetek", n_CERMETEK, M_OLD,
4254	#endif /* OLDMODEMS */
4255	"compaq", n_COMPAQ, 0,
4256	#ifdef OLDMODEMS
4257	"concord", n_CONCORD, M_OLD,
4258	#endif /* OLDMODEMS */
4259	"conexant", n_CONEXANT, 0,
4260	"courier", n_USR, CM_INV,
4261	"dataport", n_DATAPORT, CM_INV, /* == att-dataport */
4262	#ifdef OLDMODEMS
4263	"df03-ac", n_DF03, M_OLD,
4264	"df100-series", n_DF100, M_OLD,
4265	"df200-series", n_DF200, M_OLD,
4266	#endif /* OLDMODEMS */
4267	"digitel-dt22", n_DIGITEL, 0,
4268	#endif /* MINIDIAL */
4269	"direct", 0, CM_INV, /* Synonym for NONE */
4270	#ifndef MINIDIAL
4271	"fujitsu", n_FUJITSU, 0,
4272	"gateway-telepath", n_TELEPATH, 0,
4273	#ifdef OLDMODEMS
4274	"gdc-212a/ed", n_GDC, M_OLD,
4275	"ge", n_GENERIC, CM_INV\|CM_ABR,
4276	"gen", n_GENERIC, CM_INV\|CM_ABR,
4277	"gendatacomm", n_GDC, CM_INV, /* Synonym for GDC */
4278	#endif /* OLDMODEMS */
4279	#endif /* MINIDIAL */
4280	"gene", n_GENERIC, CM_INV\|CM_ABR,
4281	"generic", n_GENERIC, 0,
4282	"generic-high-speed",n_GENERIC, CM_INV,
4283	"h", n_HAYES, CM_INV\|CM_ABR,
4284	"ha", n_HAYES, CM_INV\|CM_ABR,
4285	"hay", n_HAYES, CM_INV\|CM_ABR,
4286	"haye", n_HAYES, CM_INV\|CM_ABR,
4287	"hayes", n_HAYES, CM_INV\|CM_ABR, /* Hayes 2400 */
4288	#ifndef MINIDIAL
4289	"hayes-1200", n_H_1200, 0,
4290	#endif /* MINIDIAL */
4291	"hayes-2400", n_HAYES, 0,
4292	#ifndef MINIDIAL
4293	"hayes-high-speed", n_H_ACCURA, 0,
4294	"hayes-accura", n_H_ACCURA, CM_INV,
4295	"hayes-optima", n_H_ACCURA, CM_INV,
4296	"hayes-ultra", n_H_ULTRA, CM_INV,
4297	"hst-courier", n_USR, CM_INV, /* Synonym for COURIER */
4298	"intel", n_INTEL, 0,
4299	#endif /* MINIDIAL */
4300
4301	"itu-t-v250", n_ITUTV250, 0,
4302	"itu-t-v25bis", n_CCITT, 0, /* New name for CCITT */
4303	"itu-t-v25ter/v250",n_ITUTV250, CM_INV,
4304
4305	#ifndef MINIDIAL
4306	"lucent", n_LUCENT, 0,
4307	"maxtech", n_MAXTECH, 0,
4308
4309	"megahertz-att-v34", n_MHZATT, 0, /* Megahertzes */
4310	"megahertz-xjack", n_XJACK, CM_INV\|CM_ABR,
4311	"megahertz-xjack-33.6", n_XJACK, 0,
4312	"megahertz-xjack-56k", n_USRX2, 0, /* 3COM/USR/Megahertz 33.6 PC Card */
4313
4314	"mi", n_MICROCOM, CM_INV\|CM_ABR,
4315	"mic", n_MICROCOM, CM_INV\|CM_ABR,
4316	"micr", n_MICROCOM, CM_INV\|CM_ABR,
4317	"micro", n_MICROCOM, CM_INV\|CM_ABR,
4318	"microc", n_MICROCOM, CM_INV\|CM_ABR,
4319	"microco", n_MICROCOM, CM_INV\|CM_ABR,
4320	"microcom", n_MICROCOM, CM_INV\|CM_ABR,
4321	"microcom-at-mode", n_UCOM_AT, 0, /* Microcom DeskPorte, etc */
4322	"microcom-sx-mode", n_MICROCOM, 0, /* Microcom AX,QX,SX, native mode */
4323	"microlink", n_MICROLINK, 0,
4324	"microlink-v250", n_ULINKV250, 0,
4325	"motorola-codex", n_CODEX, 0,
4326	"motorola-fastalk", n_MOTOROLA, 0,
4327	"motorola-lifestyle",n_MOTOROLA, 0,
4328	"motorola-montana", n_MONTANA, 0,
4329	"motorola-sm56-v90",n_MOTSM56, 0,
4330	"mt5634zpx", n_MT5634ZPX, 0,
4331	"multitech", n_MULTI, 0,
4332	"mwave", n_MWAVE, 0,
4333	#endif /* MINIDIAL */
4334	"none", 0, 0,
4335	#ifndef MINIDIAL
4336	#ifndef OLDTBCODE
4337	"old-telebit", n_TELEBIT, 0,
4338	#endif /* OLDTBCODE */
4339	"pctel", n_PCTEL, 0,
4340	#ifdef OLDMODEMS
4341	"penril", n_PENRIL, M_OLD,
4342	#endif /* OLDMODEMS */
4343	"ppi", n_PPI, 0,
4344	#ifdef OLDMODEMS
4345	"racalvadic", n_RACAL, M_OLD,
4346	#endif /* OLDMODEMS */
4347	"rockwell-v32", n_RWV32, 0,
4348	"rockwell-v32bis", n_RWV32B, 0,
4349	"rockwell-v34", n_RWV34, 0,
4350	"rockwell-v90", n_RWV90, 0,
4351	"rolm", n_ROLM, CM_INV\|CM_ABR,
4352	"rolm-244pc", n_ROLMAT, 0,
4353	"rolm-600-series", n_ROLMAT, 0,
4354	"rolm-dcm", n_ROLM, 0,
4355	"smartlink-v90", n_USR, M_ALIAS,
4356	"spirit-ii", n_SPIRITII, 0,
4357	"sportster", n_USR, M_ALIAS,
4358	"sup", n_SUPRA, CM_INV\|CM_ABR,
4359	"supr", n_SUPRA, CM_INV\|CM_ABR,
4360	"supra", n_SUPRA, CM_INV\|CM_ABR,
4361	"supra-express-v90",n_SUPRAX, 0,
4362	"suprafaxmodem", n_SUPRA, 0,
4363	"suprasonic", n_SUPRASON, 0,
4364	#ifdef CK_TAPI
4365	"tapi", n_TAPI, 0,
4366	#endif /* CK_TAPI */
4367	"te", n_TBNEW, CM_INV\|CM_ABR,
4368	"tel", n_TBNEW, CM_INV\|CM_ABR,
4369	"telebit", n_TBNEW, 0,
4370	"telepath", n_TELEPATH, CM_INV,
4371	#endif /* MINIDIAL */
4372	"unknown", n_UNKNOWN, 0,
4373	"user-defined", n_UDEF, 0,
4374	#ifndef MINIDIAL
4375
4376	"usr", n_USR, CM_INV\|CM_ABR,
4377	"usr-212a", n_HAYES, CM_INV\|M_ALIAS,
4378	"usr-courier", n_USR, CM_INV,
4379	"usr-megahertz-56k", n_USRX2, 0,
4380	"usr-sportster", n_USR, CM_INV,
4381	"usr-xj1560-x2", n_USRX2, CM_INV,
4382	"usrobotics", n_USR, 0,
4383
4384	"v25bis", n_CCITT, CM_INV, /* Name changed to ITU-T */
4385	#ifdef OLDMODEMS
4386	"ventel", n_VENTEL, M_OLD,
4387	#endif /* OLDMODEMS */
4388	"zoltrix-v34", n_ZOLTRIX, 0,
4389	"zoltrix-hsp-v90", n_PCTEL, M_ALIAS,
4390	"zoltrix-hcf-v90", n_ITUTV250, 0,
4391	"zoo", n_ZOOM, CM_INV\|CM_ABR,
4392	"zoom", n_ZOOM, CM_INV\|CM_ABR,
4393	"zoom-v32bis", n_ZOOM, 0,
4394	"zoom-v34", n_ZOOMV34, 0,
4395	"zoom-v90", n_ZOOMV90, 0,
4396	"zoom-v92", n_ZOOMV92, 0,
4397	"zyxel", n_ZYXEL, 0,
4398	#endif /* MINIDIAL */
4399	"", 0, 0
4400	};
4401	int nmdm = (sizeof(mdmtab) / sizeof(struct keytab)) - 1; /* Number of modems */
4402
4403	#define CONNECTED 1 /* For completion status */
4404	#define D_FAILED 2
4405	#define D_PARTIAL 3
4406
4407	static int tries = 0;
4408	static int mdmecho = 0; /* Assume modem does not echo */
4409
4410	static char p; / For command strings & messages */
4411
4412	#define LBUFL 200
4413	static char lbuf[LBUFL+4];
4414	char modemmsg[LBUFL+4] = { NUL, NUL }; /* DIAL response from modem */
4415
4416	#ifdef DYNAMIC
4417	#define RBUFL 256
4418	static char *rbuf = NULL;
4419	#else
4420	#define RBUFL 63
4421	static char rbuf[RBUFL+1];
4422	#endif /* DYNAMIC */
4423
4424	#ifdef DYNAMIC
4425	#define FULLNUML 256
4426	char fbuf = NULL; / For full (prefixed) phone number */
4427	#else
4428	#define FULLNUML 100
4429	char fbuf[FULLNUML];
4430	#endif /* DYNAMIC */
4431
4432	static ckjmpbuf sjbuf;
4433
4434	#ifdef CK_ANSIC
4435	static SIGTYP (savalrm)(int); / For saving alarm handler */
4436	static SIGTYP (savint)(int); / For saving interrupt handler */
4437	#else
4438	static SIGTYP (savalrm)(); / For saving alarm handler */
4439	static SIGTYP (savint)(); / For saving interrupt handler */
4440	#endif /* CK_ANSIC */
4441
4442	#ifdef CKLOGDIAL
4443	static VOID
4444	dologdial(s) char *s; {
4445	char buf2[16];
4446	char * r = NULL;
4447	int x, m, n;
4448	extern char cxlogbuf[], uidbuf[], myhost[];
4449
4450	if (!s) s = "";
4451	if ((x = strlen(s)) > 0) { /* Replace spaces by underscores */
4452	r = (char *)malloc(x+1);
4453	if (r) {
4454	int i;
4455	for (i = 0; i <= x; i++) {
4456	if (s[i] != 0 && s[i] <= SP)
4457	r[i] = '_';
4458	else
4459	r[i] = s[i];
4460	}
4461	s = r;
4462	}
4463	}
4464	p = ckdate();
4465	n = ckstrncpy(cxlogbuf,p,CXLOGBUFL);
4466	if (!uidbuf[0]) {
4467	debug(F100,"dologdial uidbuf empty","",0);
4468	ckstrncpy(uidbuf,(char *)whoami(),UIDBUFLEN);
4469	}
4470	m = strlen(uidbuf)+strlen(myhost)+strlen(ttname)+strlen(s)+strlen(buf2)+32;
4471	if (n+m < CXLOGBUFL-1) {
4472	p = cxlogbuf+n;
4473	if (diallcc && diallac) {
4474	buf2[0] = '+';
4475	ckmakmsg(&buf2[1],15,diallcc,"(",diallac,")");
4476	} else {
4477	ckstrncpy(buf2,"Unknown",16);
4478	}
4479	sprintf(p," %s %s T=DIAL H=%s D=%s N=%s O=%s ", /* safe (prechecked) */
4480	uidbuf,
4481	ckgetpid(),
4482	myhost,
4483	ttname,
4484	s,
4485	buf2
4486	);
4487	debug(F110,"dologdial cxlogbuf",cxlogbuf,0);
4488	} else
4489	sprintf(p,"LOGDIAL BUFFER OVERFLOW");
4490	if (r) free(r);
4491	}
4492	#endif /* CKLOGDIAL */
4493
4494	#ifndef MINIDIAL
4495
4496	#ifdef COMMENT
4497	static VOID
4498	xcpy(to,from,len) /* Copy the given number of bytes */
4499	register char to, from;
4500	register unsigned int len; {
4501	while (len--) to++ = from++;
4502	}
4503	#endif /* COMMENT */
4504	#endif /* MINIDIAL */
4505
4506	static SIGTYP
4507	#ifdef CK_ANSIC
4508	dialtime(int foo) /* Timer interrupt handler */
4509	#else
4510	dialtime(foo) int foo; /* Timer interrupt handler */
4511	#endif /* CK_ANSIC */
4512	/* dialtime */ {
4513
4514	fail_code = F_TIME; /* Failure reason = timeout */
4515	debug(F100,"dialtime caught SIGALRM","",0);
4516	#ifdef BEBOX
4517	#ifdef BE_DR_7
4518	alarm_expired();
4519	#endif /* BE_DR_7 */
4520	#endif /* BEBOX */
4521	#ifdef OS2
4522	signal(SIGALRM, dialtime);
4523	#endif /* OS2 */
4524	#ifdef __EMX__
4525	signal(SIGALRM, SIG_ACK); /* Needed for OS/2 */
4526	#endif /* __EMX__ */
4527
4528	#ifdef OSK /* OS-9 */
4529	/*
4530	We are in an intercept routine but do not perform a F$RTE (done implicitly
4531	by RTS), so we have to decrement the sigmask as F$RTE does. Warning:
4532	longjump only restores the CPU registers, NOT the FPU registers. So, don't
4533	use FPU at all or at least don't use common FPU (double or float) register
4534	variables.
4535	*/
4536	sigmask(-1);
4537	#endif /* OSK */
4538
4539	#ifdef NTSIG
4540	if (foo == SIGALRM)
4541	PostAlarmSigSem();
4542	else
4543	PostCtrlCSem();
4544	#else /* NTSIG */
4545	#ifdef NT
4546	cklongjmp(ckjaddr(sjbuf),1);
4547	#else /* NT */
4548	cklongjmp(sjbuf,1);
4549	#endif /* NT */
4550	#endif /* NTSIG */
4551	/* NOTREACHED */
4552	SIGRETURN;
4553	}
4554
4555	static SIGTYP
4556	#ifdef CK_ANSIC
4557	dialint(int foo) /* Keyboard interrupt handler */
4558	#else
4559	dialint(foo) int foo;
4560	#endif /* CK_ANSIC */
4561	/* dialint */ {
4562	fail_code = F_INT;
4563	debug(F100,"dialint caught SIGINT","",0);
4564	#ifdef OS2
4565	signal(SIGINT, dialint);
4566	debug(F100,"dialint() SIGINT caught -- dialint restored","",0) ;
4567	#endif /* OS2 */
4568	#ifdef __EMX__
4569	signal(SIGINT, SIG_ACK); /* Needed for OS/2 */
4570	#endif /* __EMX__ */
4571	#ifdef OSK /* OS-9, see comment in dialtime() */
4572	sigmask(-1);
4573	#endif /* OSK */
4574	#ifdef NTSIG
4575	PostCtrlCSem() ;
4576	#ifdef CK_TAPI
4577	PostTAPIConnectSem();
4578	PostTAPIAnswerSem();
4579	#endif /* CK_TAPI */
4580	#else /* NTSIG */
4581	#ifdef NT
4582	cklongjmp(ckjaddr(sjbuf),1);
4583	#else /* NT */
4584	cklongjmp(sjbuf,1);
4585	#endif /* NT */
4586	#endif /* NT */
4587	SIGRETURN;
4588	}
4589
4590	/*
4591	Routine to read a character from communication device, handling TELNET
4592	protocol negotiations in case we're connected to the modem through a
4593	TCP/IP TELNET modem server.
4594	*/
4595	static int
4596	ddinc(n) int n; {
4597	#ifdef TNCODE
4598	int c = 0;
4599	int done = 0;
4600	debug(F101,"ddinc entry n","",n);
4601	while (!done) {
4602	c = ttinc(n);
4603	/* debug(F000,"ddinc","",c); */
4604	if (c < 0) return(c);
4605	#ifndef OS2
4606	if ((c == IAC) && network && IS_TELNET()) {
4607	switch (tn_doop((CHAR)(c & 0xff),duplex,ttinc)) {
4608	case 2: duplex = 0; continue;
4609	case 1: duplex = 1;
4610	default: continue;
4611	}
4612	} else done = 1;
4613	#else /* OS2 */
4614	done = !(c == IAC && network && IS_TELNET());
4615	scriptwrtbuf(c); /* TELNET negotiations handled by emulator */
4616	#endif /* OS2 */
4617	}
4618	return(c & 0xff);
4619	#else /* TNCODE */
4620	return(ttinc(n));
4621	#endif /* TNCODE */
4622	}
4623
4624	static VOID
4625	ttslow(s,millisec) char s; int millisec; { / Output s-l-o-w-l-y */
4626	#ifdef TCPSOCKET
4627	extern int tn_nlm, tn_b_nlm;
4628	#endif /* TCPSOCKET */
4629	debug(F111,"ttslow",s,millisec);
4630	if (dialdpy && (duplex \|\| !mdmecho)) { /* Echo the command in case modem */
4631	printf("%s\n",s); /* isn't echoing commands. */
4632	#ifdef OS2
4633	{
4634	char s2 = s; / Echo to emulator */
4635	while (*s2) {
4636	scriptwrtbuf((USHORT)*s2++);
4637	}
4638	scriptwrtbuf((USHORT)CR);
4639	scriptwrtbuf((USHORT)LF);
4640	}
4641	#endif /* OS2 */
4642	}
4643	for (; *s; s++) {
4644	ttoc(*s);
4645	#ifdef TCPSOCKET
4646	if (*s == CR && network && IS_TELNET()) {
4647	if (!TELOPT_ME(TELOPT_BINARY) && tn_nlm != TNL_CR)
4648	ttoc((char)((tn_nlm == TNL_CRLF) ? LF : NUL));
4649	else if (TELOPT_ME(TELOPT_BINARY) &&
4650	(tn_b_nlm == TNL_CRLF \|\| tn_b_nlm == TNL_CRNUL))
4651	ttoc((char)((tn_b_nlm == TNL_CRLF) ? LF : NUL));
4652	}
4653	#endif /* TCPSOCKET */
4654	if (millisec > 0)
4655	msleep(millisec);
4656	}
4657	}
4658
4659	/*
4660	* Wait for a string of characters.
4661	*
4662	* The characters are waited for individually, and other characters may
4663	* be received "in between". This merely guarantees that the characters
4664	* ARE received, and in the order specified.
4665	*/
4666	static VOID
4667	waitfor(s) char *s; {
4668	CHAR c, x;
4669	while ((c = s++)) { / while more characters remain... */
4670	do { /* wait for the character */
4671	x = (CHAR) (ddinc(0) & 0177);
4672	debug(F000,"dial waitfor got","",x);
4673	if (dialdpy) {
4674	if (x != LF) conoc(x);
4675	if (x == CR) conoc(LF);
4676	}
4677	} while (x != c);
4678	}
4679	}
4680
4681	static int
4682	didweget(s,r) char s, r; { /* Looks in string s for response r */
4683	int lr = (int)strlen(r); /* 0 means not found, 1 means found it */
4684	int i;
4685	debug(F110,"didweget",r,0);
4686	debug(F110," in",s,0);
4687	for (i = (int)strlen(s)-lr; i >= 0; i--)
4688	if ( s[i] == r[0] ) if ( !strncmp(s+i,r,lr) ) return( 1 );
4689	return( 0 );
4690	}
4691
4692
4693	/* R E S E T -- Reset alarms, etc. on exit. */
4694
4695	static VOID
4696	dreset() {
4697	debug(F100,"dreset resetting alarm and signal handlers","",0);
4698	alarm(0);
4699	signal(SIGALRM,savalrm); /* restore alarm handler */
4700	signal(SIGINT,savint); /* restore interrupt handler */
4701	debug(F100,"dreset alarm and signal handlers reset","",0);
4702	}
4703
4704	/*
4705	Call this routine when the modem reports that it has connected at a certain
4706	speed, giving that speed as the argument. If the connection speed is not
4707	the same as Kermit's current communication speed, AND the modem interface
4708	speed is not locked (i.e. DIAL SPEED-MATCHING is not ON), then change the
4709	device speed to the one given.
4710	*/
4711	static VOID
4712	#ifdef CK_ANSIC
4713	spdchg(long s)
4714	#else
4715	spdchg(s) long s;
4716	#endif /* CK_ANSIC */
4717	/* spdchg */ {
4718	int s2;
4719	if (!mdmspd) /* If modem interface speed locked, */
4720	return; /* don't do this. */
4721	if (speed != s) { /* Speeds differ? */
4722	s2 = s / 10L; /* Convert to cps expressed as int */
4723	if (ttsspd(s2) < 0) { /* Change speed. */
4724	printf(" WARNING - speed change to %ld failed.\r\n",s);
4725	} else {
4726	printf(" Speed changed to %ld.\r\n",s);
4727	speed = s; /* Update global speed variable */
4728	}
4729	}
4730	}
4731
4732	/*
4733	Display all characters received from modem dialer through this routine,
4734	for consistent handling of carriage returns and linefeeds.
4735	*/
4736	static VOID
4737	#ifdef CK_ANSIC
4738	dialoc(char c)
4739	#else
4740	dialoc(c) char c;
4741	#endif /* CK_ANSIC */
4742	{ /* dialoc / / Dial Output Character */
4743	if (dialdpy) {
4744	if (c != LF) conoc(c); /* Don't echo LF */
4745	if (c == CR) conoc(LF); /* Echo CR as CRLF */
4746	}
4747	}
4748
4749	#ifndef NOSPL
4750	char *
4751	getdm(x) int x; { /* Return dial modifier */
4752	MDMINF * mp;
4753	int m;
4754	int ishayes = 0;
4755	m = mdmtyp;
4756	if (m < 1)
4757	if (mdmsav > -1)
4758	m = mdmsav;
4759	if (m < 1)
4760	return("");
4761	#ifndef MINIDIAL
4762	if (m == n_TAPI)
4763	m = n_HAYES;
4764	#endif /* MINIDIAL */
4765	mp = modemp[m];
4766	ishayes = (dialcapas ? dialcapas : mp->capas) & CKD_AT;
4767	switch (x) {
4768	case VN_DM_LP:
4769	return(ishayes ? "," : "");
4770	case VN_DM_SP:
4771	#ifdef MINIDIAL
4772	return("");
4773	#else
4774	return(m == n_USR ? "/" : "");
4775	#endif /* MINIDIAL */
4776	case VN_DM_PD:
4777	return(ishayes ? "P" : "");
4778	case VN_DM_TD:
4779	return(ishayes ? "T" : "");
4780	case VN_DM_WA:
4781	return(ishayes ? "@" : "");
4782	case VN_DM_WD:
4783	return(ishayes ? "W" : "");
4784	case VN_DM_RC:
4785	return(ishayes ? ";" : "");
4786	case VN_DM_HF:
4787	return(ishayes ? "!" : "");
4788	case VN_DM_WB:
4789	return(ishayes ? "$" : "");
4790	}
4791	return("");
4792	}
4793	#endif /* NOSPL */
4794
4795	static VOID
4796	getdialmth() {
4797	if (dialmauto && diallcc) { /* If DIAL METHOD AUTO... */
4798	int i; /* and we know our area code... */
4799	for (i = 0; i < ndialtocc; i++) { /* First check Tone countries list */
4800	if (!strcmp(dialtocc[i],diallcc)) {
4801	dialmth = XYDM_T;
4802	break;
4803	}
4804	}
4805	for (i = 0; i < ndialpucc; i++) { /* Then Pulse countries list */
4806	if (!strcmp(dialpucc[i],diallcc)) {
4807	dialmth = XYDM_P;
4808	break;
4809	}
4810	}
4811	}
4812	}
4813
4814	VOID /* Get dialing defaults from environment */
4815	getdialenv() {
4816	char *p = NULL;
4817	int i, x;
4818
4819	makestr(&p,getenv("K_DIAL_DIRECTORY"));
4820	if (p) {
4821	int i;
4822	xwords(p,(MAXDDIR - 2),dialdir,0);
4823	for (i = 0; i < (MAXDDIR - 1); i++) {
4824	if (!dialdir[i+1])
4825	break;
4826	else
4827	dialdir[i] = dialdir[i+1];
4828	}
4829	ndialdir = i;
4830	}
4831	xmakestr(&diallcc,getenv("K_COUNTRYCODE")); /* My country code */
4832	xmakestr(&dialixp,getenv("K_LD_PREFIX")); /* My long-distance prefix */
4833	xmakestr(&dialldp,getenv("K_INTL_PREFIX")); /* My international prefix */
4834	xmakestr(&dialldp,getenv("K_TF_PREFIX")); /* Ny Toll-free prefix */
4835
4836	#ifndef NOICP
4837	p = getenv("K_DIAL_METHOD"); /* Local dial method */
4838	if (p) if (*p) {
4839	extern struct keytab dial_m[];
4840	extern int ndial_m;
4841	i = lookup(dial_m,p,ndial_m,&x);
4842	if (i > -1) {
4843	if (i == XYDM_A) {
4844	dialmauto = 1;
4845	dialmth = XYDM_D;
4846	} else {
4847	dialmauto = 0;
4848	dialmth = i;
4849	}
4850	}
4851	}
4852	#endif /* NOICP */
4853
4854	p = NULL;
4855	xmakestr(&p,getenv("K_TF_AREACODE")); /* Toll-free areacodes */
4856	if (p) {
4857	int i;
4858	xwords(p,7,dialtfc,0);
4859	for (i = 0; i < 8; i++) {
4860	if (!dialtfc[i+1])
4861	break;
4862	else
4863	dialtfc[i] = dialtfc[i+1];
4864	}
4865	ntollfree = i;
4866	free(p);
4867	}
4868	for (i = 0; i < MAXTPCC; i++) { /* Clear Tone/Pulse country lists */
4869	dialtocc[i] = NULL;
4870	dialpucc[i] = NULL;
4871	}
4872	for (i = 0; i < MAXTPCC; i++) { /* Init Tone country list */
4873	if (tonecc[i])
4874	makestr(&(dialtocc[i]),tonecc[i]);
4875	else
4876	break;
4877	}
4878	ndialtocc = i;
4879	for (i = 0; i < MAXTPCC; i++) { /* Init Pulse country list */
4880	if (pulsecc[i])
4881	makestr(&(dialpucc[i]),pulsecc[i]);
4882	else
4883	break;
4884	}
4885	ndialpucc = i;
4886
4887	if (diallcc) { /* Have country code */
4888	if (!strcmp(diallcc,"1")) { /* If it's 1 */
4889	if (!dialldp) /* Set these prefixes... */
4890	makestr(&dialldp,"1");
4891	if (!dialtfp)
4892	makestr(&dialtfp,"1");
4893	if (!dialixp)
4894	makestr(&dialixp,"011");
4895	if (ntollfree == 0) { /* Toll-free area codes */
4896	if ((dialtfc[0] = malloc(4))) {
4897	ckstrncpy(dialtfc[0],"800",4); /* 1970-something */
4898	ntollfree++;
4899	if ((dialtfc[1] = malloc(4))) {
4900	ckstrncpy(dialtfc[1],"888",4); /* 1996 */
4901	ntollfree++;
4902	if ((dialtfc[2] = malloc(4))) {
4903	ckstrncpy(dialtfc[2],"877",4); /* 5 April 1998 */
4904	ntollfree++;
4905	if ((dialtfc[3] = malloc(4))) {
4906	ckstrncpy(dialtfc[3],"866",4); /* 2000? */
4907	ntollfree++;
4908	}
4909	}
4910	}
4911	}
4912	}
4913	} else if (!strcmp(diallcc,"358") &&
4914	((int) strcmp(zzndate(),"19961011") > 0)
4915	) { /* Finland */
4916	if (!dialldp) /* Long-distance prefix */
4917	makestr(&dialldp,"9");
4918	if (!dialixp) /* International dialing prefix */
4919	makestr(&dialixp,"990");
4920	} else { /* Not NANP or Finland */
4921	if (!dialldp)
4922	makestr(&dialldp,"0");
4923	if (!dialixp)
4924	makestr(&dialixp,"00");
4925	}
4926	}
4927	xmakestr(&diallac,getenv("K_AREACODE"));
4928	xmakestr(&dialpxo,getenv("K_PBX_OCP"));
4929	xmakestr(&dialpxi,getenv("K_PBX_ICP"));
4930	p = getenv("K_PBX_XCH");
4931	#ifdef COMMENT
4932	xmakestr(&dialpxx,p);
4933	#else
4934	if (p) if (*p) {
4935	char * s = NULL;
4936	char * pp[MAXPBXEXCH+2];
4937	makestr(&s,p); /* Make a copy for poking */
4938	if (s) {
4939	xwords(s,MAXPBXEXCH+1,pp,0); /* Note: pp[] is 1-based. */
4940	for (i = 0; i <= MAXPBXEXCH; i++) {
4941	if (!pp[i+1]) break;
4942	makestr(&(dialpxx[i]),pp[i+1]);
4943	ndialpxx++;
4944	}
4945	makestr(&s,NULL); /* Free poked copy */
4946	}
4947	}
4948	#endif /* COMMENT */
4949	}
4950
4951	static int
4952	dialfail(x) int x; {
4953	char * s;
4954
4955	fail_code = x;
4956	debug(F101,"ckudial dialfail","",x);
4957	dreset(); /* Reset alarm and signal handlers */
4958
4959	printf("%s Failure: ", func_code == 0 ? "DIAL" : "ANSWER");
4960	if (dialdpy) { /* If showing progress */
4961	debug(F100,"dial display is on","",0);
4962	p = ck_time(); /* get current time; */
4963	if (*p) printf("%s: ",p);
4964	}
4965	switch (fail_code) { /* Type of failure */
4966	case F_TIME: /* Timeout */
4967	if (dial_what == DW_INIT)
4968	printf ("Timed out while trying to initialize modem.\n");
4969	else if (dial_what == DW_DIAL)
4970	printf ("%s interval expired.\n",
4971	func_code == 0 ? "DIAL TIMEOUT" : "ANSWER timeout");
4972	else
4973	printf("Timeout.\n");
4974	fflush(stdout);
4975	if (mdmcapas & CKD_AT)
4976	ttoc('\015'); /* Send CR to interrupt dialing */
4977	/* Some Hayes modems don't fail with BUSY on busy lines */
4978	dialsta = DIA_TIMO;
4979	debug(F110,"dial","timeout",0);
4980	break;
4981
4982	case F_INT: /* Dialing interrupted */
4983	printf ("Interrupted.\n");
4984	fflush(stdout);
4985	#ifndef NOXFER
4986	interrupted = 1;
4987	#endif /* NOXFER */
4988	debug(F111,"dial","interrupted",mdmcapas & CKD_AT);
4989	if (mdmcapas & CKD_AT)
4990	ttoc('\015'); /* Send CR to interrupt dialing */
4991	dialsta = DIA_INTR;
4992	break;
4993
4994	case F_MODEM: /* Modem detected a failure */
4995	debug(F111,"dialfail()","lbuf",lbuf);
4996	if (lbuf && *lbuf) {
4997	printf(" \"");
4998	for (s = lbuf; *s; s++)
4999	if (isprint(*s))
5000	putchar(s); / Display printable reason */
5001	printf ("\"");
5002	} else printf(func_code == 0 ?
5003	" Call not completed." :
5004	" Call did not come in."
5005	);
5006	printf("\n");
5007	debug(F110,"dial",lbuf,0);
5008	if (dialsta < 0) dialsta = DIA_UNSP;
5009	break;
5010
5011	case F_MINIT: /* Failure to initialize modem */
5012	printf ("Error initializing modem.\n");
5013	debug(F110,"dial","modem init",0);
5014	dialsta = DIA_NOIN;
5015	break;
5016
5017	default:
5018	printf("unknown\n");
5019	debug(F110,"dial","unknown",0);
5020	fflush(stdout);
5021	if (mdmcapas & CKD_AT)
5022	ttoc('\015'); /* Send CR to interrupt dialing */
5023	dialsta = DIA_INTR;
5024	}
5025
5026	#ifdef DYNAMIC
5027	if (rbuf) free(rbuf); rbuf = NULL;
5028	if (fbuf) free(fbuf); fbuf = NULL;
5029	#endif /* DYNAMIC */
5030
5031	if (dialsta < 0) dialsta = DIA_UERR; /* Set failure code */
5032	return(0); /* Return zero (important) */
5033	}
5034
5035	/* C K D I A L -- Dial up the remote system */
5036
5037	/* Returns 1 if call completed, 0 otherwise */
5038
5039	static int mdmwait, mdmstat = 0;
5040	#ifndef CK_TAPI
5041	static
5042	#endif /* CK_TAPI */
5043	int waitct;
5044	int mdmwaitd = 10 ; /* dialtmo / mdmwait difference */
5045	static char c;
5046	static char *telnbr;
5047
5048	static int wr = 0; /* wr = wake rate */
5049	static char * ws; /* ws = wake string */
5050	static char * xnum = NULL;
5051	static int inited = 0;
5052
5053	static SIGTYP
5054	#ifdef CK_ANSIC
5055	_dodial(void * threadinfo)
5056	#else /* CK_ANSIC */
5057	_dodial(threadinfo) VOID * threadinfo;
5058	#endif /* CK_ANSIC */
5059	/* _dodial */ {
5060	char c2;
5061	char dcmd, s, *flocmd = NULL;
5062	int x = 0, n = F_TIME;
5063
5064	#ifdef NTSIG
5065	signal( SIGINT, dialint );
5066	if (threadinfo) { /* Thread local storage... */
5067	TlsSetValue(TlsIndex,threadinfo);
5068	}
5069	#endif /* NTSIG */
5070
5071	dcmd = dialcmd ? dialcmd : mp->dial_str;
5072	if ((int)strlen(dcmd) + (int)strlen(telnbr) > (LBUFL - 2)) {
5073	printf("DIAL command + phone number too long!\n");
5074	dreset();
5075	#ifdef DYNAMIC
5076	if (rbuf) free(rbuf); rbuf = NULL;
5077	if (fbuf) free(fbuf); fbuf = NULL;
5078	#endif /* DYNAMIC */
5079	#ifdef NTSIG
5080	ckThreadEnd(threadinfo);
5081	#endif /* NTSIG */
5082	SIGRETURN; /* No conversation with modem to complete dialing */
5083	}
5084	makestr(&xnum,telnbr);
5085
5086	getdialmth(); /* Get dial method */
5087
5088	#ifdef CK_ATDT
5089	/* Combine the SET DIAL METHOD command with the DIAL command string */
5090	if (!dialcmd && /* Using default DIAL command */
5091	(mdmcapas & CKD_AT) && /* AT command set only */
5092	((dialmth == XYDM_T && !dialtone) \|\| /* and using default */
5093	(dialmth == XYDM_P && !dialpulse))) { /* modem commands... */
5094	char c;
5095	debug(F110,"dial atdt xnum 1",xnum,0);
5096	s = dcmd;
5097	debug(F110,"dial atdt s",s,0);
5098	if (*telnbr != 'T' &&
5099	*telnbr != 'P' &&
5100	*telnbr != 't' &&
5101	*telnbr != 'p' &&
5102	!ckstrcmp(s,"atd",3,0) &&
5103	s[3] != 'T' &&
5104	s[3] != 'P' &&
5105	s[3] != 't' &&
5106	s[3] != 'p') {
5107	char xbuf[200];
5108	c = (dialmth == XYDM_T) ? 'T' : 'P';
5109	if (islower(s[0]))
5110	c = tolower(c);
5111	if ((int)strlen(telnbr) < 199) {
5112	sprintf(xbuf,"%c%s",c,telnbr);
5113	makestr(&xnum,xbuf);
5114	}
5115	}
5116	}
5117	#endif /* CK_ATDT */
5118	debug(F111,"_dodial",xnum,xredial);
5119
5120	/* Hang up the modem (in case it wasn't "on hook") */
5121	/* But only if SET DIAL HANGUP ON... */
5122
5123	if (!xredial) { /* Modem not initalized yet. */
5124	inited = 0;
5125	}
5126	if (!xredial \|\| !inited) {
5127	if (dialhup() < 0) { /* Hangup first */
5128	debug(F100,"_dodial dialhup failed","",0);
5129	#ifndef MINIDIAL
5130	if (mdmcapas & CKD_TB) /* Telebits might need a BREAK */
5131	ttsndb(); /* first. */
5132	#endif /* MINIDIAL */
5133	if (dialhng && dialsta != DIA_PART) { /* If hangup failed, */
5134	ttclos(0); /* close and reopen the device. */
5135	if (ttopen(ttname,&local,mymdmtyp,0) < 0) {
5136	printf("Sorry, Can't hang up communication device.\n");
5137	printf("Try 'set line %s' again.\n",ttname);
5138	dialsta = DIA_HANG;
5139	#ifdef DYNAMIC
5140	if (rbuf) free(rbuf); rbuf = NULL;
5141	if (fbuf) free(fbuf); fbuf = NULL;
5142	#endif /* DYNAMIC */
5143	dreset();
5144	#ifdef NTSIG
5145	ckThreadEnd(threadinfo);
5146	#endif /* NTSIG */
5147	SIGRETURN;
5148	}
5149	}
5150	}
5151	inited = 0; /* We hung up so must reinit */
5152	}
5153	#ifndef MINIDIAL
5154	/* Don't start talking to Rolm too soon */
5155	if (mymdmtyp == n_ROLM && dialsta != DIA_PART)
5156	msleep(500);
5157	#endif /* MINIDIAL */
5158
5159	if (dialsta != DIA_PART /* Some initial setups. */
5160	#ifndef MINIDIAL
5161	&& mymdmtyp != n_ATTUPC
5162	#endif /* MINIDIAL */
5163	) {
5164	fail_code = F_MINIT; /* Default failure code */
5165	dial_what = DW_INIT; /* What I'm Doing Now */
5166	if (dialdpy) { /* If showing progress, */
5167	p = ck_time(); /* get timestamp. */
5168	if (!inited)
5169	if (*p)
5170	printf(" Initializing: %s...\n",p);
5171	}
5172	}
5173	#ifndef MINIDIAL
5174	#ifdef ATT7300
5175	if (mymdmtyp == n_ATTUPC) {
5176	/*
5177	For ATT7300/Unix PC's with their special internal modem. Whole dialing
5178	process is handled right here, an exception to the normal structure.
5179	Timeout and user interrupts are enabled during dialing. attdial() is in
5180	file ckutio.c. - jrd
5181	*/
5182	_PROTOTYP( int attdial, (char , long, char ) );
5183	fail_code = F_MODEM; /* Default failure code */
5184	dial_what = DW_DIAL;
5185	if (dialdpy) { /* If showing progress */
5186	p = ck_time(); /* get current time; */
5187	if (*p)
5188	printf(" Dialing: %s...\n",p);
5189	}
5190	alarm(waitct); /* Set alarm */
5191	if (attdial(ttname,speed,telnbr)) { /* dial internal modem */
5192	dreset(); /* reset alarms, etc. */
5193	printf(" Call failed.\r\n");
5194	dialhup(); /* Hangup the call */
5195	#ifdef DYNAMIC
5196	if (rbuf) free(rbuf); rbuf = NULL;
5197	if (fbuf) free(fbuf); fbuf = NULL;
5198	#endif /* DYNAMIC */
5199	dialsta = DIA_UERR;
5200	#ifdef NTSIG
5201	ckThreadEnd(threadinfo);
5202	#endif /* NTSIG */
5203	SIGRETURN; /* return failure */
5204	}
5205	dreset(); /* reset alarms, etc. */
5206	ttpkt(speed,FLO_DIAX,parity); /* cancel dialing ioctl */
5207	if (!quiet && !backgrd) {
5208	if (dialdpy) {
5209	printf("\n");
5210	printf(" Call complete.\r\n");
5211	} else if (modemmsg[0])
5212	printf(" Call complete: \"%s\".\r\n",(char *)modemmsg);
5213	else
5214	printf(" Call complete.\r\n");
5215	}
5216	#ifdef CKLOGDIAL
5217	dologdial(telnbr);
5218	#endif /* CKLOGDIAL */
5219
5220	dialsta = DIA_OK;
5221	#ifdef DYNAMIC
5222	if (rbuf) free(rbuf); rbuf = NULL;
5223	if (fbuf) free(fbuf); fbuf = NULL;
5224	#endif /* DYNAMIC */
5225	#ifdef NTSIG
5226	ckThreadEnd(threadinfo);
5227	#endif /* NTSIG */
5228	SIGRETURN; /* No conversation with modem to complete dialing */
5229	} else
5230	#endif /* ATT7300 */
5231	#ifdef CK_TAPI
5232	if (tttapi && !tapipass) { /* TAPI Dialing */
5233	switch (func_code) {
5234	case 0: /* Dial */
5235	if (cktapidial(telnbr)) {
5236	fail_code = 0;
5237	if (partial) {
5238	dialsta = DIA_PART;
5239	} else {
5240	dialsta = DIA_OK;
5241	speed = ttgspd();
5242	}
5243	} else {
5244	if (dialsta == DIA_PART)
5245	cktapihangup();
5246	if (!fail_code)
5247	fail_code = F_MODEM;
5248	dialsta = DIA_TAPI;
5249	}
5250	break;
5251	case 1: { /* Answer */
5252	long strttime = time((long *)NULL);
5253	long diff = 0;
5254	do {
5255	if (dialatmo > 0) {
5256	strttime += diff;
5257	waitct -= diff;
5258	}
5259	fail_code = 0;
5260	if (cktapianswer()) { /* SUCCESS */
5261	dialsta = DIA_OK;
5262	speed = ttgspd();
5263	break;
5264	} else { /* FAILURE */
5265	if (fail_code) {
5266	dialsta = DIA_TAPI;
5267	break;
5268	} else {
5269	fail_code = F_MODEM;
5270	dialsta = DIA_TAPI;
5271	}
5272	}
5273	if (dialatmo > 0) {
5274	diff = time((long *)NULL) - strttime;
5275	}
5276	} while ((dialatmo > 0) ? (diff < waitct) : 1);
5277	break;
5278	}
5279	}
5280	#ifdef NTSIG
5281	ckThreadEnd(threadinfo);
5282	#endif /* NTSIG */
5283	SIGRETURN;
5284	} else
5285	#endif /* CK_TAPI */
5286	#endif /* MINIDIAL */
5287
5288	/* Modems with AT command set... */
5289
5290	if ((mdmcapas & CKD_AT) && dialsta != DIA_PART) {
5291
5292	if (dialpace > -1) /* Set intercharacter pacing */
5293	wr = dialpace;
5294	else
5295	wr = mp->wake_rate;
5296
5297	if (dialini) /* Get wakeup/init string */
5298	ws = dialini;
5299	else
5300	ws = mp->wake_str;
5301	#ifdef COMMENT
5302	if (!ws) ws = "\015"; /* If none, use CR */
5303	#endif /* COMMENT */
5304
5305	/* First get the modem's attention and enable result codes */
5306
5307	for (tries = 0; tries < 5; tries++) { /* Send short command */
5308	if (tries > 0) {
5309	ttoc('\015'); /* AT must go first for speed */
5310	msleep(wr); /* detection. */
5311	}
5312	if (mymdmtyp == n_GENERIC) /* Force word result codes */
5313	ttslow("ATQ0V1\015",wr); /* for generic modem type */
5314	else
5315	ttslow("ATQ0\015",wr);
5316	mdmstat = getok(tries < 2 ? 2 : tries, 1); /* Get response */
5317	if (mdmstat > 0) break; /* OK - done */
5318	if (dialdpy && tries > 0) {
5319	printf("\r\n No response from modem");
5320	if (tries == 4) {
5321	printf(".\r\n");
5322	dialsta = DIA_NRSP;
5323	#ifdef DYNAMIC
5324	if (rbuf) free(rbuf); rbuf = NULL;
5325	if (fbuf) free(fbuf); fbuf = NULL;
5326	#endif /* DYNAMIC */
5327	#ifdef NTSIG
5328	ckThreadEnd(threadinfo);
5329	#endif /* NTSIG */
5330	SIGRETURN; /* return failure */
5331	}
5332	printf(", retrying%s...\r\n",
5333	(tries > 1) ? " again" : "");
5334	fflush(stdout);
5335	}
5336	ttflui();
5337	switch (tries) {
5338	case 0: msleep(100); break;
5339	case 1: ttsndb(); break;
5340	default:
5341	if (network) {
5342	ttsndb();
5343	} else {
5344	if (tries == 2) {
5345	tthang();
5346	ttflui();
5347	} else {
5348	mdmhup();
5349	}
5350	inited = 0;
5351	}
5352	}
5353	fflush(stdout);
5354	}
5355	debug(F101,"_dodial ATQ0 mdmstat","",mdmstat);
5356
5357	if (xredial && inited) { /* Redialing... */
5358	ttoc('\015'); /* Cancel previous */
5359	msleep(250); /* Wait a bit */
5360	#ifdef COMMENT
5361	/* This wasn't the problem... */
5362	ttflui(); /* Clear out stuff from modem setup */
5363	ttslow("ATS7=60\015",wr); /* Redo carrier wait */
5364	getok(4,1); /* Get response */
5365	#endif /* COMMENT */
5366	alarm(0); /* Just in case... */
5367	ttflui(); /* Clear out stuff from modem setup */
5368	goto REDIAL; /* Skip setup - we already did it */
5369	}
5370	/*
5371	Do flow control next because a long init string echoing back could
5372	cause data overruns, causing us to miss the OK, or (worse) to get out
5373	of sync entirely.
5374	*/
5375	x = 0; /* User said SET DIAL FLOW RTS/CTS */
5376	if (dialfc == FLO_RTSC \|\| /* Even if Kermit's FLOW isn't... */
5377	(dialfc == FLO_AUTO && flow == FLO_RTSC)) {
5378	if (dialhwfc) { /* User-defined HWFC string */
5379	if (*dialhwfc) {
5380	x = 1;
5381	flocmd = dialhwfc;
5382	}
5383	} else if ((mdmcapas & CKD_HW) && *(mp->hwfc_str)) {
5384	x = 1;
5385	flocmd = mp->hwfc_str;
5386	}
5387	} else if (dialfc == FLO_XONX \|\| /* User said SET DIAL FLOW SOFT */
5388	(dialfc == FLO_AUTO && flow == FLO_XONX)) {
5389	if (dialswfc) {
5390	if (*dialswfc) {
5391	x = 1;
5392	flocmd = dialswfc;
5393	}
5394	} else if ((mdmcapas & CKD_SW) && *(mp->swfc_str)) {
5395	x = 1;
5396	flocmd = mp->swfc_str;
5397	}
5398	} else if (dialfc == FLO_NONE) { /* User said SET DIAL FLOW NONE */
5399	if (dialnofc) {
5400	if (*dialnofc) {
5401	x = 1;
5402	flocmd = dialnofc;
5403	}
5404	} else if (mp->nofc_str && *(mp->nofc_str)) {
5405	x = 1;
5406	flocmd = mp->nofc_str;
5407	}
5408	}
5409	if (x) { /* Send the flow control command */
5410	debug(F110,"_dodial flocmd",flocmd,0);
5411	for (tries = 4; tries > 0; tries--) { /* Send the command */
5412	ttslow(flocmd,wr);
5413	mdmstat = getok(5,1);
5414	if (mdmstat > 0) break;
5415	if (dialdpy && tries > 1)
5416	printf(" No response from modem, retrying%s...\n",
5417	(tries < 4) ? " again" : "");
5418	}
5419
5420	#ifdef CK_TTSETFLOW
5421	#ifdef CK_RTSCTS
5422	/*
5423	So far only ckutio.c has ttsetflow().
5424	We have just told the modem to turn on RTS/CTS flow control and the modem
5425	has said OK. But we ourselves have not turned it on yet because of the
5426	disgusting ttpkt(...FLO_DIAL...) hack. So now, if the computer does not
5427	happen to be asserting RTS, the modem will no longer send characters to it.
5428	So at EXACTLY THIS POINT, we must enable RTS/CTS in the device driver.
5429	*/
5430	if (dialfc == FLO_RTSC \|\|
5431	(dialfc == FLO_AUTO && flow == FLO_RTSC)) {
5432	ttsetflow(FLO_RTSC);
5433	}
5434	#endif /* CK_RTSCTS */
5435	#endif /* CK_TTSETFLOW */
5436	}
5437	ttflui(); /* Clear out stuff from modem setup */
5438	msleep(250);
5439
5440	if (!ws) goto xdialec; /* No init string */
5441	if (!*ws) goto xdialec;
5442
5443	for (tries = 4; tries > 0; tries--) { /* Send init string */
5444	ttslow(ws,wr);
5445	mdmstat = getok(4,1); /* Get response */
5446	if (mdmstat > 0) break;
5447	if (dialdpy && tries > 1)
5448	printf(" No response from modem, retrying%s...\n",
5449	(tries < 4) ? " again" : "");
5450	}
5451	debug(F101,"_dodial wake_str mdmstat","",mdmstat);
5452
5453	if (mdmstat < 1) { /* Initialized OK? */
5454	dialfail(F_MINIT); /* No, fail. */
5455	#ifdef NTSIG
5456	ckThreadEnd(threadinfo);
5457	#endif /* NTSIG */
5458	SIGRETURN;
5459	}
5460
5461	#ifndef MINIDIAL
5462	} else if (mymdmtyp == n_ATTDTDM && dialsta != DIA_PART) { /* AT&T ... */
5463	ttsndb(); /* Send BREAK */
5464	#endif /* MINIDIAL */
5465
5466	} else if (dialsta != DIA_PART) { /* All others */
5467
5468	/* Place modem into command mode */
5469
5470	ws = dialini ? dialini : mp->wake_str;
5471	if (ws && (int)strlen(ws) > 0) {
5472	debug(F111,"_dodial default, wake string", ws, wr);
5473	ttslow(ws, wr);
5474	} else debug(F100,"_dodial no wake_str","",0);
5475	if (mp->wake_prompt && (int)strlen(mp->wake_prompt) > 0) {
5476	debug(F110,"_dodial default, waiting for wake_prompt",
5477	mp->wake_prompt,0);
5478	alarm(10);
5479	waitfor(mp->wake_prompt);
5480	alarm(0);
5481	} else debug(F100,"_dodial no wake_prompt","",0);
5482	}
5483
5484	/* Handle error correction, data compression, and flow control... */
5485
5486	xdialec:
5487
5488	if (dialsta != DIA_PART) {
5489	alarm(0); /* Turn off alarm */
5490	debug(F100,"_dodial got wake prompt","",0);
5491	msleep(500); /* Allow settling time */
5492
5493	/* Enable/disable error-correction */
5494
5495	x = 0;
5496	if (dialec) { /* DIAL ERROR-CORRECTION is ON */
5497	if (dialecon) { /* SET DIAL STRING ERROR-CORRECTION */
5498	if (*dialecon) {
5499	x = 1;
5500	ttslow(dialecon, wr);
5501	}
5502	} else if ((mdmcapas & CKD_EC) && *(mp->ec_on_str)) {
5503	x = 1;
5504	ttslow(mp->ec_on_str, wr);
5505	}
5506	#ifdef COMMENT
5507	else printf(
5508	"WARNING - I don't know how to turn on EC for this modem\n"
5509	);
5510	#endif /* COMMENT */
5511	} else {
5512	if (dialecoff) { /* DIAL ERROR-CORRECTION OFF */
5513	if (*dialecoff) {
5514	x = 1;
5515	ttslow(dialecoff, wr);
5516	}
5517	} else if ((mdmcapas & CKD_EC) && *(mp->ec_off_str)) {
5518	x = 1;
5519	ttslow(mp->ec_off_str, wr);
5520	}
5521	#ifdef COMMENT
5522	else printf(
5523	"WARNING - I don't know how to turn off EC for this modem\n"
5524	);
5525	#endif /* COMMENT */
5526	}
5527	debug(F101,"ckudia xx_ok","",xx_ok);
5528	if (x && xx_ok) { /* Look for OK response */
5529	debug(F100,"ckudia calling xx_ok for EC","",0);
5530	x = (*xx_ok)(5,1);
5531	debug(F101,"ckudia xx_ok","",x);
5532	if (x < 0) {
5533	printf("WARNING - Trouble enabling error-correction.\n");
5534	printf(
5535	" Likely cause: Your modem is an RPI model, which does not have built-in\n");
5536	printf(" error correction and data compression.");
5537	}
5538	}
5539
5540	/* Enable/disable data compression */
5541
5542	if (x > 0) x = 0;
5543	if (dialdc) {
5544	if (x < 0 \|\| !dialec) {
5545	printf(
5546	"WARNING - You can't have compression without error correction.\n");
5547	} else if (dialdcon) { /* SET DIAL STRING ... */
5548	if (*dialdcon) {
5549	x = 1;
5550	ttslow(dialdcon, wr);
5551	}
5552	} else if ((mdmcapas & CKD_DC) && *(mp->dc_on_str)) {
5553	x = 1;
5554	ttslow(mp->dc_on_str, wr);
5555	}
5556	#ifdef COMMENT
5557	else printf(
5558	"WARNING - I don't know how to turn on DC for this modem\n"
5559	);
5560	#endif /* COMMENT */
5561	} else {
5562	if (dialdcoff) {
5563	if (*dialdcoff) {
5564	x = 1;
5565	ttslow(dialdcoff, wr);
5566	}
5567	} else if ((mdmcapas & CKD_DC) && *(mp->dc_off_str)) {
5568	x = 1;
5569	ttslow(mp->dc_off_str, wr);
5570	}
5571	#ifdef COMMENT
5572	else printf(
5573	"WARNING - I don't know how to turn off compression for this modem\n"
5574	);
5575	#endif /* COMMENT */
5576	}
5577	if (x && xx_ok) { /* Look for OK response */
5578	x = (*xx_ok)(5,1);
5579	if (x < 0) printf("WARNING - Trouble enabling compression\n");
5580	}
5581	}
5582
5583	#ifndef NOXFER
5584	#ifndef MINIDIAL
5585	if (mdmcapas & CKD_KS && dialsta != DIA_PART) { /* Kermit spoof */
5586	int r; /* Register */
5587	char tbcmdbuf[64]; /* Command buffer */
5588	switch (mymdmtyp) {
5589
5590	case n_MICROCOM: /* Microcoms in SX mode */
5591	if (dialksp)
5592	sprintf(tbcmdbuf,"APM1;KMC%d\015",stchr); /* safe */
5593	else
5594	sprintf(tbcmdbuf,"APM0\015"); /* safe */
5595	ttslow(tbcmdbuf, MICROCOM.wake_rate);
5596	alarm(3);
5597	waitfor(mp->wake_prompt);
5598	alarm(0);
5599	break;
5600
5601	case n_TELEBIT: /* Old and new Telebits */
5602	case n_TBNEW:
5603	if (!dialksp) {
5604	sprintf(tbcmdbuf,"ATS111=0\015"); /* safe */
5605	} else {
5606	switch (parity) { /* S111 value depends on parity */
5607	case 'e': r = 12; break;
5608	case 'm': r = 13; break;
5609	case 'o': r = 11; break;
5610	case 's': r = 14; break;
5611	case 0:
5612	default: r = 10; break;
5613	}
5614	sprintf(tbcmdbuf,"ATS111=%d S112=%d\015",r,stchr); /* safe */
5615	}
5616	ttslow(tbcmdbuf, wr);
5617
5618	/* Not all Telebit models have the Kermit spoof, so ignore response. */
5619
5620	if (xx_ok) { /* Get modem's response */
5621	x = (*xx_ok)(5,1);
5622	}
5623	}
5624	}
5625	#endif /* MINIDIAL */
5626	#endif /* NOXFER */
5627
5628	/* Speaker */
5629
5630	if (mymdmtyp != n_GENERIC &&
5631	(mdmcapas & CKD_AT) && (dialsta != DIA_PART) &&
5632	!dialspon && !dialspoff &&
5633	!dialvol1 && !dialvol2 &&!dialvol3) {
5634	/* AT command set and commands have not been customized */
5635	/* so combine speaker and volume commands. */
5636	if (mdmspk)
5637	sprintf(lbuf,"ATM1L%d%c",mdmvol,13); /* safe */
5638	else
5639	sprintf(lbuf,"ATM0%c",13); /* safe */
5640	ttslow(lbuf,wr); /* Send command */
5641	getok(5,1); /* Get but ignore response */
5642	} else if (dialsta != DIA_PART) { /* Customized or not AT commands */
5643	x = 0; /* Do it the hard way */
5644	if (mdmspk) {
5645	if (dialspon) {
5646	if (*dialspon) {
5647	x = 1;
5648	ttslow(dialspon,wr);
5649	}
5650	} else {
5651	if (mp->sp_on_str[0]) {
5652	x = 1;
5653	ttslow(mp->sp_on_str,wr);
5654	}
5655	}
5656	} else {
5657	/* s = dialspoff ? dialspoff : mp->sp_off_str; */
5658	if (dialspoff) {
5659	if (*dialspoff) {
5660	x = 1;
5661	ttslow(dialspoff,wr);
5662	}
5663	} else {
5664	if (mp->sp_off_str[0]) {
5665	x = 1;
5666	ttslow(mp->sp_off_str,wr);
5667	}
5668	}
5669	}
5670	if (x) {
5671	if (xx_ok) /* Get response */
5672	x = (*xx_ok)(5,1);
5673	if (x && mdmspk) { /* Good response and speaker on? */
5674	switch (mdmvol) { /* Yes, send volume command. */
5675	case 0:
5676	case 1:
5677	s = dialvol1 ? dialvol1 : mp->vol1_str; break;
5678	case 2:
5679	s = dialvol2 ? dialvol2 : mp->vol2_str; break;
5680	case 3:
5681	s = dialvol3 ? dialvol3 : mp->vol3_str; break;
5682	default:
5683	s = NULL;
5684	}
5685	if (s) if (s) { / Send volume command. */
5686	ttslow(s, wr);
5687	if (xx_ok) /* Get response but ignore it */
5688	(*xx_ok)(5,1);
5689	}
5690	}
5691	}
5692	}
5693
5694	#ifndef CK_ATDT
5695	/* Dialing Method */
5696
5697	if (dialmth && dialsta != DIA_PART) { /* If dialing method specified... */
5698	char s = ""; / Do it here... */
5699
5700	if (dialmth == XYDM_T && dialtone) /* Tone */
5701	s = dialtone;
5702	else if (dialmth == XYDM_P && dialpulse) /* Pulse */
5703	s = dialpulse;
5704	if (s) if (*s) {
5705	ttslow(s, wr);
5706	if (xx_ok) /* Get modem's response */
5707	(xx_ok)(5,1); / (but ignore it...) */
5708	}
5709	}
5710	#endif /* CK_ATDT */
5711
5712	if (dialidt) { /* Ignore dialtone? */
5713	char *s = "";
5714	s = dialx3 ? dialx3 : mp->ignoredt;
5715	if (s) if (*s) {
5716	ttslow(s, wr);
5717	if (xx_ok) /* Get modem's response */
5718	(xx_ok)(5,1); / (but ignore it...) */
5719	}
5720	}
5721	{
5722	char s = ""; / Last-minute init string? */
5723	s = dialini2 ? dialini2 : mp->ini2;
5724	if (s) if (*s) {
5725	ttslow(s, wr);
5726	if (xx_ok) /* Get modem's response */
5727	(xx_ok)(5,1); / (but ignore it...) */
5728	}
5729	}
5730	if (func_code == 1) { /* ANSWER (not DIAL) */
5731	char *s;
5732	s = dialaaon ? dialaaon : mp->aa_on_str;
5733	if (!s) s = "";
5734	if (*s) {
5735	/* Here we would handle caller ID */
5736	ttslow(s, (dialpace > -1) ? wr : mp->dial_rate);
5737	if (xx_ok) /* Get modem's response */
5738	(xx_ok)(5,1); / (but ignore it...) */
5739	} else {
5740	printf(
5741	"WARNING - I don't know how to enable autoanswer for this modem.\n"
5742	);
5743	} /* And skip all the phone-number & dialing stuff... */
5744	alarm(waitct); /* This much time allowed. */
5745	debug(F101,"_dodial ANSWER waitct","",waitct);
5746
5747	} else { /* DIAL (not ANSWER) */
5748
5749	if (dialsta != DIA_PART) { /* Last dial was not partial */
5750
5751	char *s = "";
5752	#ifdef COMMENT
5753	s = dialaaoff ? dialaaoff : mp->aa_off_str;
5754	#endif /* COMMENT */
5755	if (s) if (*s) {
5756	ttslow(s, (dialpace > -1) ? wr : mp->dial_rate);
5757	if (xx_ok) /* Get modem's response */
5758	(xx_ok)(5,1); / (but ignore it...) */
5759	}
5760
5761	/* Put modem into dialing mode, if the modem requires it. */
5762
5763	if (mp->dmode_str && *(mp->dmode_str)) {
5764	ttslow(mp->dmode_str, (dialpace > -1) ? wr : mp->dial_rate);
5765	savalrm = signal(SIGALRM,dialtime);
5766	alarm(10);
5767	/* Wait for prompt, if any expected */
5768	if (mp->dmode_prompt && *(mp->dmode_prompt)) {
5769	waitfor(mp->dmode_prompt);
5770	msleep(300);
5771	}
5772	alarm(0); /* Turn off alarm on dialing prompts */
5773	signal(SIGALRM,savalrm); /* Restore alarm */
5774	}
5775	}
5776	/* AT-Command-Set non-Generic modem */
5777	if (mdmcapas & CKD_AT && mymdmtyp != n_GENERIC &&
5778	dialsta != DIA_PART) {
5779	if (mdmwait > 255) /* If larger than maximum, */
5780	mdmwait = 255; /* make it maximum. */
5781	if (dialesc > 0 && /* Modem escape character is set */
5782	dialmhu > 0) { /* Hangup method is modem command */
5783	int x = dialesc;
5784	if (dialesc < 0 \|\| dialesc > 127)
5785	x = 128;
5786	sprintf(lbuf,
5787	"ATS2=%dS7=%d\015",
5788	dialesc ? x : mp->esc_char, mdmwait); /* safe */
5789	} else
5790	sprintf(lbuf,"ATS7=%d%c",mdmwait,13); /* safe */
5791	ttslow(lbuf,wr); /* Set it. */
5792	mdmstat = getok(5,1); /* Get response from modem */
5793	/* If it gets an error, go ahead anyway */
5794	debug(F101,"_dodial S7 mdmstat","",mdmstat);
5795	}
5796	ttflui(); /* Clear out stuff from modem setup */
5797	inited = 1; /* Remember modem is initialized */
5798
5799	REDIAL:
5800	if ((int)strlen(dcmd) + (int)strlen(xnum) > LBUFL)
5801	ckstrncpy(lbuf,"NUMBER TOO LONG!",LBUFL);
5802	else
5803	sprintf(lbuf, dcmd, xnum); /* safe (prechecked) */
5804	debug(F110,"dialing",lbuf,0);
5805	/* Send the dialing string */
5806	ttslow(lbuf,dialpace > -1 ? wr : mp->dial_rate);
5807
5808	fail_code = F_MODEM; /* New default failure code changes */
5809	dial_what = DW_DIAL; /* and our state, too. */
5810	if (dialdpy) { /* If showing progress */
5811	p = ck_time(); /* get current time; */
5812	if (*p) printf(" Dialing: %s...\n",p);
5813	#ifdef VMS
5814	printf(" \n");
5815	fflush(stdout);
5816	#endif /* VMS */
5817	}
5818	alarm(waitct); /* This much time allowed. */
5819	debug(F101,"_dodial waitct","",waitct);
5820
5821	#ifndef MINIDIAL
5822	#ifdef OLDMODEMS
5823	switch (mymdmtyp) {
5824	case n_RACAL: /* Acknowledge dialing string */
5825	sleep(3);
5826	ttflui();
5827	ttoc('\015');
5828	break;
5829	case n_VENTEL:
5830	waitfor("\012\012"); /* Ignore the first two strings */
5831	break;
5832	default:
5833	break;
5834	}
5835	#endif /* OLDMODEMS */
5836	#endif /* MINIDIAL */
5837	}
5838
5839	/* Check for connection */
5840
5841	mdmstat = 0; /* No status yet */
5842	lbuf[0] = NUL; /* Default reason for failure */
5843	debug(F101,"dial awaiting response, mymdmtyp","",mymdmtyp);
5844
5845	#ifndef NOSPL
5846	modemmsg[0] = NUL;
5847	#endif /* NOSPL */
5848	while (mdmstat == 0) { /* Till we get a result or time out */
5849
5850	if ((mdmcapas & CKD_AT) && nonverbal) { /* AT command set */
5851	gethrn(); /* In digit result mode */
5852	if (partial && dialsta == DIA_ERR) {
5853	/*
5854	If we get an error here, the phone is still
5855	off hook so we have to hang it up.
5856	*/
5857	dialhup();
5858	dialsta = DIA_ERR; /* (because dialhup() changes it) */
5859	}
5860	continue;
5861
5862	} else if (mymdmtyp == n_UNKNOWN) { /* Unknown modem type */
5863	int x, y = waitct;
5864	mdmstat = D_FAILED; /* Assume failure. */
5865	while (y-- > -1) {
5866	x = ttchk();
5867	if (x > 0) {
5868	if (x > LBUFL) x = LBUFL;
5869	x = ttxin(x,(CHAR *)lbuf);
5870	if ((x > 0) && dialdpy) conol(lbuf);
5871	} else if (network
5872	#ifdef TN_COMPORT
5873	&& !istncomport()
5874	#endif /* TN_COMPORT */
5875	&& x < 0) { /* Connection dropped */
5876	inited = 0;
5877	#ifdef NTSIG
5878	ckThreadEnd(threadinfo);
5879	#endif /* NTSIG */
5880	dialsta = DIA_IO; /* Call it an I/O error */
5881	#ifdef DYNAMIC
5882	if (rbuf) free(rbuf); rbuf = NULL;
5883	if (fbuf) free(fbuf); fbuf = NULL;
5884	#endif /* DYNAMIC */
5885	SIGRETURN;
5886	}
5887	x = ttgmdm(); /* Try to read modem signals */
5888	if (x < 0) break; /* Can't, fail. */
5889	if (x & BM_DCD) { /* Got signals OK. Carrier present? */
5890	mdmstat = CONNECTED; /* Yes, done. */
5891	break;
5892	} /* No, keep waiting. */
5893	sleep(1);
5894	}
5895	continue;
5896	}
5897
5898	for (n = -1; n < LBUFL-1; ) { /* Accumulate modem response */
5899	int xx;
5900	c2 = (char) (xx = ddinc(0)); /* Read a character, blocking */
5901	if (xx < 1) /* Ignore NULs and errors */
5902	continue; /* (Timeout will handle errors) */
5903	else /* Real character, keep it */
5904	lbuf[++n] = (char) (c2 & 0177);
5905	dialoc(lbuf[n]); /* Maybe echo it */
5906	if (mdmcapas & CKD_V25) { /* V.25bis dialing... */
5907	/*
5908	This assumes that V.25bis indications are all at least 3 characters long
5909	and are terminated by either CRLF or LFCR.
5910	*/
5911	if (mymdmtyp == n_CCITT) {
5912	if (n < 3) continue;
5913	if ((lbuf[n] == CR) && (lbuf[n-1] == LF)) break;
5914	if ((lbuf[n] == LF) && (lbuf[n-1] == CR)) break;
5915	}
5916	#ifndef MINIDIAL
5917	else if (mymdmtyp == n_DIGITEL) {
5918	if (((lbuf[n] == CR) && (lbuf[n-1] == LF)) \|\|
5919	((lbuf[n] == LF) && (lbuf[n-1] == CR)))
5920	break;
5921	else
5922	continue;
5923	}
5924	#endif /* MINIDIAL */
5925	} else { /* All others, break on CR or LF */
5926	if ( lbuf[n] == CR \|\| lbuf[n] == LF ) break;
5927	}
5928	}
5929	lbuf[++n] = '\0'; /* Terminate response from modem */
5930	debug(F111,"_dodial modem response",lbuf,n);
5931	#ifndef NOSPL
5932	ckstrncpy(modemmsg,lbuf,LBUFL); /* Call result message */
5933	lbuf[79] = NUL;
5934	{
5935	int x; /* Strip junk from end */
5936	x = (int)strlen(modemmsg) - 1;
5937	while (x > -1) {
5938	if (modemmsg[x] < (char) 33)
5939	modemmsg[x] = NUL;
5940	else
5941	break;
5942	x--;
5943	}
5944	}
5945	#endif /* NOSPL */
5946	if (mdmcapas & CKD_AT) { /* Hayes AT command set */
5947	gethrw(); /* in word result mode */
5948	if (partial && dialsta == DIA_ERR) {
5949	dialhup();
5950	dialsta = DIA_ERR; /* (because dialhup() changes it) */
5951	}
5952	continue;
5953	} else if (mdmcapas & CKD_V25) { /* CCITT command set */
5954	if (didweget(lbuf,"VAL")) { /* Dial command confirmation */
5955	#ifndef MINIDIAL
5956	if (mymdmtyp == n_CCITT)
5957	#endif /* MINIDIAL */
5958	continue; /* Go back and read more */
5959	#ifndef MINIDIAL
5960	/* Digitel doesn't give an explicit connect confirmation message */
5961	else {
5962	int n;
5963	for (n = -1; n < LBUFL-1; ) {
5964	lbuf[++n] = c2 = (char) (ddinc(0) & 0177);
5965	dialoc(lbuf[n]);
5966	if (((lbuf[n] == CR) && (lbuf[n-1] == LF)) \|\|
5967	((lbuf[n] == LF) && (lbuf[n-1] == CR)))
5968	break;
5969	}
5970	mdmstat = CONNECTED; /* Assume we're connected */
5971	if (dialdpy && carrier != CAR_OFF) {
5972	#ifdef TN_COMPORT
5973	if (istncomport()) {
5974	int i;
5975	for (i = 0; i < 5; i++) {
5976	debug(F100,"TN Com Port DCD wait...","",0);
5977	if ((n = ttgmdm()) >= 0) {
5978	if ((n & BM_DCD))
5979	break;
5980	msleep(500);
5981	tnc_wait(
5982	(CHAR *)"_dodial waiting for DCD",1);
5983	}
5984	}
5985	} else
5986	#endif /* TN_COMPORT */
5987	sleep(1); /* Wait a second */
5988	n = ttgmdm(); /* Try to read modem signals */
5989	if ((n > -1) && ((n & BM_DCD) == 0))
5990	printf("WARNING - no carrier\n");
5991	}
5992	}
5993	#endif /* MINIDIAL */
5994
5995	/* Standard V.25bis stuff */
5996
5997	} else if (didweget(lbuf,"CNX")) { /* Connected */
5998	mdmstat = CONNECTED;
5999	} else if (didweget(lbuf, "INV")) {
6000	mdmstat = D_FAILED; /* Command error */
6001	dialsta = DIA_ERR;
6002	ckstrncpy(lbuf,"INV",LBUFL);
6003
6004	} else if (didweget(lbuf,"CFI")) { /* Call Failure */
6005
6006	if (didweget(lbuf,"AB")) { /* Interpret reason code */
6007	ckstrncpy(lbuf,"AB: Timed out",LBUFL);
6008	dialsta = DIA_TIMO;
6009	} else if (didweget(lbuf,"CB")) {
6010	ckstrncpy(lbuf,"CB: Local DCE Busy",LBUFL);
6011	dialsta = DIA_NRDY;
6012	} else if (didweget(lbuf,"ET")) {
6013	ckstrncpy(lbuf,"ET: Busy",LBUFL);
6014	dialsta = DIA_BUSY;
6015	} else if (didweget(lbuf, "NS")) {
6016	ckstrncpy(lbuf,"NS: Number not stored",LBUFL);
6017	dialsta = DIA_ERR;
6018	} else if (didweget(lbuf,"NT")) {
6019	ckstrncpy(lbuf,"NT: No answer",LBUFL);
6020	dialsta = DIA_NOAN;
6021	} else if (didweget(lbuf,"RT")) {
6022	ckstrncpy(lbuf,"RT: Ring tone",LBUFL);
6023	dialsta = DIA_RING;
6024	} else if (didweget(lbuf,"PV")) {
6025	ckstrncpy(lbuf,"PV: Parameter value error",LBUFL);
6026	dialsta = DIA_ERR;
6027	} else if (didweget(lbuf,"PS")) {
6028	ckstrncpy(lbuf,"PS: Parameter syntax error",LBUFL);
6029	dialsta = DIA_ERR;
6030	} else if (didweget(lbuf,"MS")) {
6031	ckstrncpy(lbuf,"MS: Message syntax error",LBUFL);
6032	dialsta = DIA_ERR;
6033	} else if (didweget(lbuf,"CU")) {
6034	ckstrncpy(lbuf,"CU: Command unknown",LBUFL);
6035	dialsta = DIA_ERR;
6036	} else if (didweget(lbuf,"FC")) {
6037	ckstrncpy(lbuf,"FC: Forbidden call",LBUFL);
6038	dialsta = DIA_NOAC;
6039	}
6040	mdmstat = D_FAILED;
6041	} else if (didweget(lbuf,"INC")) { /* Incoming Call */
6042	ckstrncpy(lbuf,"INC: Incoming call",LBUFL);
6043	dialsta = DIA_RING;
6044	mdmstat = D_FAILED;
6045	} else if (didweget(lbuf,"DLC")) { /* Delayed Call */
6046	ckstrncpy(lbuf,"DLC: Delayed call",LBUFL);
6047	dialsta = DIA_NOAN;
6048	mdmstat = D_FAILED;
6049	} else /* Response was probably an echo. */
6050	#ifndef MINIDIAL
6051	if (mymdmtyp == n_CCITT)
6052	#endif /* MINIDIAL */
6053	continue;
6054	#ifndef MINIDIAL
6055	else /* Digitel: If no error, connect. */
6056	mdmstat = CONNECTED;
6057	#endif /* MINIDIAL */
6058	break;
6059
6060	} else if (n) { /* Non-Hayes-compatibles... */
6061	switch (mymdmtyp) {
6062	#ifndef MINIDIAL
6063	case n_ATTMODEM:
6064	/* Careful - "Connected" / "Not Connected" */
6065	if (didweget(lbuf,"Busy")) {
6066	mdmstat = D_FAILED;
6067	dialsta = DIA_BUSY;
6068	} else if (didweget(lbuf,"Not connected") \|\|
6069	didweget(lbuf,"Not Connected")) {
6070	mdmstat = D_FAILED;
6071	dialsta = DIA_NOCA;
6072	} else if (didweget(lbuf,"No dial tone") \|\|
6073	didweget(lbuf,"No Dial Tone")) {
6074	mdmstat = D_FAILED;
6075	dialsta = DIA_NODT;
6076	} else if (didweget(lbuf,"No answer") \|\|
6077	didweget(lbuf,"No Answer")) {
6078	mdmstat = D_FAILED;
6079	dialsta = DIA_NOAN;
6080	} else if (didweget(lbuf,"Answered") \|\|
6081	didweget(lbuf,"Connected")) {
6082	mdmstat = CONNECTED;
6083	dialsta = DIA_OK;
6084	}
6085	break;
6086
6087	case n_ATTISN:
6088	if (didweget(lbuf,"ANSWERED")) {
6089	mdmstat = CONNECTED;
6090	dialsta = DIA_OK;
6091	} else if (didweget(lbuf,"BUSY")) {
6092	mdmstat = D_FAILED;
6093	dialsta = DIA_BUSY;
6094	} else if (didweget(lbuf,"DISCONNECT")) {
6095	mdmstat = D_FAILED;
6096	dialsta = DIA_DISC;
6097	} else if (didweget(lbuf,"NO ANSWER")) {
6098	mdmstat = D_FAILED;
6099	dialsta = DIA_NOAN;
6100	} else if (didweget(lbuf,"WRONG ADDRESS")) {
6101	mdmstat = D_FAILED;
6102	dialsta = DIA_NOAC;
6103	}
6104	break;
6105
6106	case n_ATTDTDM:
6107	if (didweget(lbuf,"ANSWERED")) {
6108	mdmstat = CONNECTED;
6109	} else if (didweget(lbuf,"BUSY")) {
6110	mdmstat = D_FAILED;
6111	dialsta = DIA_BUSY;
6112	} else if (didweget(lbuf,"CHECK OPTIONS")) {
6113	mdmstat = D_FAILED;
6114	dialsta = DIA_ERR;
6115	} else if (didweget(lbuf,"DISCONNECTED")) {
6116	mdmstat = D_FAILED;
6117	dialsta = DIA_DISC;
6118	} else if (didweget(lbuf,"DENIED")) {
6119	mdmstat = D_FAILED;
6120	dialsta = DIA_NOAC;
6121	}
6122	#ifdef DEBUG
6123	#ifdef ATT6300
6124	/* Horrible hack lost in history. */
6125	else if (deblog && didweget(lbuf,"~~"))
6126	mdmstat = CONNECTED;
6127	#endif /* ATT6300 */
6128	#endif /* DEBUG */
6129	break;
6130
6131	#ifdef OLDMODEMS
6132	case n_CERMETEK:
6133	if (didweget(lbuf,"\016A")) {
6134	mdmstat = CONNECTED;
6135	ttslow("\016U 1\015",200); /* Make transparent*/
6136	}
6137	break;
6138
6139	case n_DF03:
6140	/* Because response lacks CR or NL . . . */
6141	c = (char) (ddinc(0) & 0177);
6142	dialoc(c);
6143	debug(F000,"dial df03 got","",c);
6144	if ( c == 'A' ) mdmstat = CONNECTED;
6145	if ( c == 'B' ) mdmstat = D_FAILED;
6146	break;
6147
6148	case n_DF100: /* DF100 has short response codes */
6149	if (strcmp(lbuf,"A") == 0) {
6150	mdmstat = CONNECTED; /* Attached */
6151	dialsta = DIA_OK;
6152	} else if (strcmp(lbuf,"N") == 0) {
6153	mdmstat = D_FAILED;
6154	dialsta = DIA_NOAN; /* No answer or no dialtone */
6155	} else if (strcmp(lbuf,"E") == 0 \|\| /* Error */
6156	strcmp(lbuf,"R") == 0) { /* "Ready" (?) */
6157	mdmstat = D_FAILED;
6158	dialsta = DIA_ERR; /* Command error */
6159	}
6160	/* otherwise fall thru... */
6161
6162	case n_DF200:
6163	if (didweget(lbuf,"Attached")) {
6164	mdmstat = CONNECTED;
6165	dialsta = DIA_OK;
6166	/*
6167	* The DF100 will respond with "Attached" even if DTR
6168	* and/or carrier are not present. Another reason to
6169	* (also) wait for carrier?
6170	*/
6171	} else if (didweget(lbuf,"Busy")) {
6172	mdmstat = D_FAILED;
6173	dialsta = DIA_BUSY;
6174	} else if (didweget(lbuf,"Disconnected")) {
6175	mdmstat = D_FAILED;
6176	dialsta = DIA_DISC;
6177	} else if (didweget(lbuf,"Error")) {
6178	mdmstat = D_FAILED;
6179	dialsta = DIA_ERR;
6180	} else if (didweget(lbuf,"No answer")) {
6181	mdmstat = D_FAILED;
6182	dialsta = DIA_NOAN;
6183	} else if (didweget(lbuf,"No dial tone")) {
6184	mdmstat = D_FAILED;
6185	dialsta = DIA_NODT;
6186	} else if (didweget(lbuf,"Speed:)")) {
6187	mdmstat = D_FAILED;
6188	dialsta = DIA_ERR;
6189	}
6190	/*
6191	* It appears that the "Speed:..." response comes after an
6192	* "Attached" response, so this is never seen. HOWEVER,
6193	* it would be very handy to detect this and temporarily
6194	* reset the speed, since it's a nuisance otherwise.
6195	* If we wait for some more input from the modem, how do
6196	* we know if it's from the remote host or the modem?
6197	* Carrier reportedly doesn't get set until after the
6198	* "Speed:..." response (if any) is sent. Another reason
6199	* to (also) wait for carrier.
6200	*/
6201	break;
6202
6203	case n_GDC:
6204	if (didweget(lbuf,"ON LINE"))
6205	mdmstat = CONNECTED;
6206	else if (didweget(lbuf,"NO CONNECT"))
6207	mdmstat = D_FAILED;
6208	break;
6209
6210	case n_PENRIL:
6211	if (didweget(lbuf,"OK")) {
6212	mdmstat = CONNECTED;
6213	} else if (didweget(lbuf,"BUSY")) {
6214	mdmstat = D_FAILED;
6215	dialsta = DIA_BUSY;
6216	} else if (didweget(lbuf,"NO RING")) {
6217	mdmstat = D_FAILED;
6218	dialsta = DIA_NOCA;
6219	}
6220	break;
6221
6222	case n_RACAL:
6223	if (didweget(lbuf,"ON LINE"))
6224	mdmstat = CONNECTED;
6225	else if (didweget(lbuf,"FAILED CALL"))
6226	mdmstat = D_FAILED;
6227	break;
6228	#endif /* OLDMODEMS */
6229
6230	case n_ROLM:
6231	if (didweget(lbuf,"CALLING"))
6232	mdmstat = 0;
6233	else if (didweget(lbuf,"COMPLETE"))
6234	mdmstat = CONNECTED;
6235	else if (didweget(lbuf,"FAILED") \|\|
6236	didweget(lbuf,"ABANDONDED")) {
6237	mdmstat = D_FAILED;
6238	dialsta = DIA_NOCA;
6239	} else if (didweget(lbuf,"NOT AVAILABLE") \|\|
6240	didweget(lbuf,"LACKS PERMISSION") \|\|
6241	didweget(lbuf,"NOT A DATALINE") \|\|
6242	didweget(lbuf,"INVALID DATA LINE NUMBER") \|\|
6243	didweget(lbuf,"INVALID GROUP NAME")) {
6244	mdmstat = D_FAILED;
6245	dialsta = DIA_NOAC;
6246	} else if (didweget(lbuf,"BUSY")) {
6247	mdmstat = D_FAILED;
6248	dialsta = DIA_BUSY;
6249	} else if (didweget(lbuf,"DOES NOT ANSWER")) {
6250	mdmstat = D_FAILED;
6251	dialsta = DIA_NOAN;
6252	}
6253	break;
6254
6255	#ifdef OLDMODEMS
6256	case n_VENTEL:
6257	if (didweget(lbuf,"ONLINE!") \|\|
6258	didweget(lbuf,"Online!")) {
6259	mdmstat = CONNECTED;
6260	} else if (didweget(lbuf,"BUSY") \|\|
6261	didweget(lbuf,"Busy")) {
6262	mdmstat = D_FAILED;
6263	dialsta = DIA_BUSY;
6264	} else if (didweget(lbuf,"DEAD PHONE")) {
6265	mdmstat = D_FAILED;
6266	dialsta = DIA_DISC;
6267	}
6268	break;
6269
6270	case n_CONCORD:
6271	if (didweget(lbuf,"INITIATING"))
6272	mdmstat = CONNECTED;
6273	else if (didweget(lbuf,"BUSY")) {
6274	mdmstat = D_FAILED;
6275	dialsta = DIA_BUSY;
6276	} else if (didweget(lbuf,"CALL FAILED")) {
6277	mdmstat = D_FAILED;
6278	dialsta = DIA_NOCA;
6279	}
6280	break;
6281	#endif /* OLDMODEMS */
6282
6283	case n_MICROCOM:
6284	/* "RINGBACK" means phone line ringing, continue */
6285	if (didweget(lbuf,"NO CONNECT")) {
6286	mdmstat = D_FAILED;
6287	dialsta = DIA_NOCA;
6288	} else if (didweget(lbuf,"BUSY")) {
6289	mdmstat = D_FAILED;
6290	dialsta = DIA_BUSY;
6291	} else if (didweget(lbuf,"NO DIALTONE")) {
6292	mdmstat = D_FAILED;
6293	dialsta = DIA_NODT;
6294	} else if (didweget(lbuf,"COMMAND ERROR")) {
6295	mdmstat = D_FAILED;
6296	dialsta = DIA_ERR;
6297	} else if (didweget(lbuf,"IN USE")) {
6298	mdmstat = D_FAILED;
6299	dialsta = DIA_NOAC;
6300	} else if (didweget(lbuf,"CONNECT")) {
6301	mdmstat = CONNECTED;
6302	/* trailing speed ignored */
6303	}
6304	break;
6305
6306	#endif /* MINIDIAL */
6307	default:
6308	printf(
6309	"PROGRAM ERROR - No response handler for modem type %d\n",
6310	mymdmtyp);
6311	mdmstat = D_FAILED;
6312	dialsta = DIA_ERR;
6313	}
6314	}
6315	} /* while (mdmstat == 0) */
6316
6317	debug(F101,"_dodial alarm off","",x);
6318	alarm(0);
6319	if (mdmstat == D_FAILED) { /* Failure detected by modem */
6320	dialfail(F_MODEM);
6321	#ifdef NTSIG
6322	ckThreadEnd(threadinfo);
6323	#endif /* NTSIG */
6324	SIGRETURN;
6325	} else if (mdmstat == D_PARTIAL ) { /* Partial dial command OK */
6326	msleep(500);
6327	debug(F100,"dial partial","",0);
6328	} else { /* Call was completed */
6329	int x;
6330	msleep(700); /* In case modem signals blink */
6331	debug(F100,"dial succeeded","",0);
6332	if (
6333	#ifndef MINIDIAL
6334	mymdmtyp != n_ROLM /* Rolm has weird modem signaling */
6335	#else
6336	1
6337	#endif /* MINIDIAL */
6338	) {
6339	alarm(3); /* In case ttpkt() gets stuck... */
6340	ttpkt(speed,FLO_DIAX,parity); /* Cancel dialing state ioctl */
6341	alarm(0);
6342	}
6343	/*
6344	In case CD went off in the interval between call completion and return
6345	from ttpkt()...
6346	*/
6347	if (carrier != CAR_OFF) {
6348	if ((x = ttgmdm()) >= 0) {
6349	#ifdef TN_COMPORT
6350	if (istncomport() && !(x & BM_DCD)) {
6351	int i;
6352	for (i = 0; i < 5; i++) {
6353	msleep(500);
6354	tnc_wait((CHAR *)"_dodial waiting for DCD",1);
6355	if ((x = ttgmdm()) >= 0) {
6356	if ((x & BM_DCD))
6357	break;
6358	}
6359	}
6360	}
6361	#endif /* TN_COMPORT */
6362	if (!(x & BM_DCD))
6363	printf("WARNING: Carrier seems to have dropped...\n");
6364	}
6365	}
6366	}
6367	dreset(); /* Reset alarms and signals. */
6368	if (!quiet && !backgrd) {
6369	if (dialdpy && (p = ck_time())) { /* If DIAL DISPLAY ON, */
6370	printf(" %sall complete: %s.\n", /* include timestamp. */
6371	(mdmstat == D_PARTIAL) ?
6372	"Partial c" :
6373	"C",
6374	p );
6375	} else if (modemmsg[0]) {
6376	printf (" %sall complete: \"%s\".\n",
6377	(mdmstat == D_PARTIAL) ? "Partial c" : "C",
6378	(char *)modemmsg
6379	);
6380	} else {
6381	printf (" %sall complete.\n",
6382	(mdmstat == D_PARTIAL) ?
6383	"Partial c" :
6384	"C"
6385	);
6386	}
6387	}
6388	#ifdef CKLOGDIAL
6389	dologdial(telnbr);
6390	#endif /* CKLOGDIAL */
6391
6392	#ifdef DYNAMIC
6393	if (rbuf) free(rbuf); rbuf = NULL;
6394	if (fbuf) free(fbuf); fbuf = NULL;
6395	#endif /* DYNAMIC */
6396	dialsta = (mdmstat == D_PARTIAL) ? DIA_PART : DIA_OK;
6397	#ifdef NTSIG
6398	ckThreadEnd(threadinfo);
6399	#endif /* NTSIG */
6400	SIGRETURN;
6401	}
6402
6403	static SIGTYP
6404	#ifdef CK_ANSIC
6405	faildial(void * threadinfo)
6406	#else /* Not CK_ANSIC */
6407	faildial(threadinfo) VOID * threadinfo;
6408	#endif /* CK_ANSIC */
6409	/* faildial */ {
6410	debug(F100,"longjmp returns to dial routine","",0);
6411	dialfail(fail_code);
6412	SIGRETURN;
6413	}
6414
6415	/*
6416	nbr = number to dial (string)
6417	x1 = Retry counter
6418	x2 = Number counter
6419	fc = Function code:
6420	0 == DIAL
6421	1 == ANSWER
6422	2 == INIT/CONFIG
6423	3 == PARTIAL DIAL
6424	*/
6425
6426	int
6427	#ifdef OLD_DIAL
6428	ckdial(nbr) char *nbr;
6429	#else
6430	ckdial(nbr, x1, x2, fc, redial) char *nbr; int x1, x2, fc, redial;
6431	#endif /* OLD_DIAL */
6432	/* ckdial */ {
6433	#define ERMSGL 50
6434	char errmsg[ERMSGL], erp; / For error messages */
6435	int n = F_TIME;
6436	char *s;
6437	long spdmax;
6438	#ifdef OS2
6439	extern int term_io;
6440	int term_io_sav = term_io;
6441	#endif /* OS2 */
6442
6443	char *mmsg = "Sorry, DIAL memory buffer can't be allocated\n";
6444	/*
6445	A DIAL command implies a SET MODEM TYPE command and therefore enables
6446	hanging up by modem commands rather than dropping DTR.
6447	*/
6448	mdmset = 1; /* See mdmhup() */
6449
6450	partial = 0;
6451	if (fc == 3) { /* Partial dial requested */
6452	partial = 1; /* Set flag */
6453	fc = 0; /* Treat like regular dialing */
6454	}
6455	func_code = fc; /* Make global to this module */
6456	telnbr = nbr;
6457	xredial = redial;
6458	debug(F111,"ckdial entry partial",ckitoa(fc),partial);
6459	debug(F111,"ckdial entry number",nbr,redial);
6460
6461	if (fc == 1) { /* ANSWER command? */
6462	/* Reset caller ID strings */
6463	if (callid_date) makestr(&callid_date,NULL);
6464	if (callid_time) makestr(&callid_time,NULL);
6465	if (callid_name) makestr(&callid_name,NULL);
6466	if (callid_nmbr) makestr(&callid_nmbr,NULL);
6467	if (callid_mesg) makestr(&callid_mesg,NULL);
6468	}
6469
6470	#ifdef CK_TAPI_X
6471	if (tttapi && tapipass) {
6472	if (modemp[n_TAPI] = cktapiGetModemInf()) {
6473	mymdmtyp = n_TAPI;
6474	} else {
6475	mymdmtyp = mdmtyp;
6476	modemp[n_TAPI] = &GENERIC;
6477	}
6478	} else
6479	#endif /* CK_TAPI */
6480	mymdmtyp = mdmtyp;
6481	if (mymdmtyp < 0) { /* Whoa, network dialing... */
6482	if (mdmsav > -1)
6483	mymdmtyp = mdmsav;
6484	}
6485	if (mymdmtyp < 0) {
6486	printf("Invalid modem type %d - internal error.\n",mymdmtyp);
6487	dialsta = DIA_NOMO;
6488	return(0);
6489	}
6490	dial_what = DW_NOTHING; /* Doing nothing at first. */
6491	nonverbal = 0;
6492
6493	/* These are ONLY for the purpose of interpreting numeric result codes. */
6494
6495	is_motorola =
6496	#ifdef MINIDIAL
6497	0
6498	#else
6499	mymdmtyp == n_SUPRA \|\| mymdmtyp == n_SUPRASON;
6500	#endif /* MINIDIAL */
6501	;
6502
6503	is_motorola =
6504	#ifdef MINIDIAL
6505	0
6506	#else
6507	mymdmtyp == n_MOTOROLA \|\| mymdmtyp == n_MONTANA;
6508	#endif /* MINIDIAL */
6509	;
6510
6511	is_rockwell =
6512	#ifdef MINIDIAL
6513	0
6514	#else
6515	mymdmtyp == n_RWV32 \|\| mymdmtyp == n_RWV32B \|\|
6516	mymdmtyp == n_RWV34 \|\| mymdmtyp == n_RWV90 \|\|
6517	mymdmtyp == n_BOCA \|\| mymdmtyp == n_TELEPATH \|\|
6518	mymdmtyp == n_CARDINAL \|\| mymdmtyp == n_BESTDATA \|\|
6519	mymdmtyp == n_CONEXANT \|\| mymdmtyp == n_PCTEL
6520	#endif /* MINIDIAL */
6521	;
6522
6523	is_hayeshispd =
6524	#ifdef MINIDIAL
6525	0
6526	#else
6527	mymdmtyp == n_H_ULTRA \|\| mymdmtyp == n_H_ACCURA \|\| n_PPI
6528	#endif /* MINIDIAL */
6529	;
6530
6531	is_supra =
6532	#ifdef MINIDIAL
6533	0
6534	#else
6535	mymdmtyp == n_SUPRA \|\| mymdmtyp == n_SUPRAX \|\| n_SUPRASON
6536	#endif /* MINIDIAL */
6537	;
6538
6539	mp = modemp[mymdmtyp]; /* Set pointer to modem info */
6540	if (!mp) {
6541	printf("Sorry, handler for this modem type not yet filled in.\n");
6542	dialsta = DIA_NOMO;
6543	return 0;
6544	}
6545	debug(F110,"dial number",telnbr,0);
6546	#ifdef COMMENT
6547	debug(F110,"dial prefix",(dialnpr ? dialnpr : ""), 0);
6548	#endif /* COMMENT */
6549
6550	#ifdef DYNAMIC
6551	*lbuf = NUL;
6552	debug(F101,"DIAL lbuf malloc ok","",LBUFL+1);
6553
6554	if (!rbuf) { /* This one might already have been allocated by getok() */
6555	if (!(rbuf = malloc(RBUFL+1))) { /* Allocate input line buffer */
6556	printf("%s", mmsg);
6557	dialsta = DIA_IE;
6558	return 0;
6559	} else
6560	debug(F101,"DIAL rbuf malloc ok","",RBUFL+1);
6561	}
6562	if (!(fbuf = malloc(FULLNUML+1))) { /* Allocate input line buffer */
6563	printf("%s", mmsg);
6564	dialsta = DIA_IE;
6565	if (rbuf) free(rbuf); rbuf = NULL;
6566	return 0;
6567	}
6568	debug(F101,"DIAL fbuf malloc ok","",FULLNUML+1);
6569	#endif /* DYNAMIC */
6570
6571	/* NOTE: mdmtyp, not mymdmtyp */
6572
6573	if (ttopen(ttname,&local,mdmtyp,0) < 0) { /* Open, no carrier wait */
6574	erp = errmsg;
6575	if ((int)strlen(ttname) < (ERMSGL - 18)) /* safe, checked */
6576	sprintf(erp,"Sorry, can't open %s",ttname);
6577	else
6578	sprintf(erp,"Sorry, can't open device");
6579	perror(errmsg);
6580	dialsta = DIA_OPEN;
6581	#ifdef DYNAMIC
6582	if (rbuf) free(rbuf); rbuf = NULL;
6583	if (fbuf) free(fbuf); fbuf = NULL;
6584	#endif /* DYNAMIC */
6585	return 0;
6586	}
6587
6588	#ifdef CK_TAPI
6589	if (!tttapi) {
6590	#endif /* CK_TAPI */
6591
6592	/* Condition console terminal and communication line */
6593
6594	/* Place line into "clocal" dialing state, */
6595	/* important mainly for System V UNIX. */
6596
6597	if (ttpkt(speed,FLO_DIAL,parity) < 0) {
6598	ttclos(0); /* If ttpkt fails do all this... */
6599	if (ttopen(ttname,&local,mymdmtyp,0) < 0) {
6600	erp = errmsg;
6601	if ((int)strlen(ttname) < (ERMSGL - 18)) /* safe, checked */
6602	sprintf(erp,"Sorry, can't reopen %s",ttname);
6603	else
6604	sprintf(erp,"Sorry, can't reopen device");
6605	perror(errmsg);
6606	dialsta = DIA_OPEN;
6607	#ifdef DYNAMIC
6608	if (rbuf) free(rbuf); rbuf = NULL;
6609	if (fbuf) free(fbuf); fbuf = NULL;
6610	#endif /* DYNAMIC */
6611	return 0;
6612	} /* And try again. */
6613	if ((ttpkt(speed,FLO_DIAL,parity) < 0)
6614	#ifdef UNIX
6615	&& (strcmp(ttname,"/dev/null"))
6616	#else
6617	#ifdef OSK
6618	&& (strcmp(ttname,"/nil"))
6619	#endif /* OSK */
6620	#endif /* UNIX */
6621	#ifdef CK_TAPI
6622	&& !tttapi
6623	#endif /* CK_TAPI */
6624	) {
6625	printf("Sorry, Can't condition communication line\n");
6626	printf("Try 'set line %s' again\n",ttname);
6627	dialsta = DIA_OPEN;
6628	#ifdef DYNAMIC
6629	if (rbuf) free(rbuf); rbuf = NULL;
6630	if (fbuf) free(fbuf); fbuf = NULL;
6631	#endif /* DYNAMIC */
6632	return 0;
6633	}
6634	}
6635	#ifdef CK_TAPI
6636	}
6637	#endif /* CK_TAPI */
6638
6639	/* Modem's escape sequence... */
6640
6641	if (dialesc < 0 \|\| dialesc > 127)
6642	c = NUL;
6643	else
6644	c = (char) (dialesc ? dialesc : mp->esc_char);
6645	mdmcapas = dialcapas ? dialcapas : mp->capas;
6646
6647	xx_ok = mp->ok_fn; /* Pointer to response reader */
6648
6649	if (mdmcapas & CKD_AT) { /* Hayes compatible */
6650	escbuf[0] = c;
6651	escbuf[1] = c;
6652	escbuf[2] = c;
6653	escbuf[3] = NUL;
6654	/* In case this modem type is user-defined */
6655	if (!xx_ok) xx_ok = getok;
6656	} else { /* Other */
6657	escbuf[0] = c;
6658	escbuf[1] = NUL;
6659	/* In case user-defined */
6660	if (mdmcapas & CKD_V25) if (!xx_ok) xx_ok = getok;
6661	}
6662
6663	/* Partial dialing */
6664
6665	if (mdmcapas & CKD_AT
6666	#ifndef MINIDIAL
6667	\|\| mymdmtyp == n_MICROCOM
6668	#endif /* MINIDIAL */
6669	) {
6670	int x;
6671	x = (int) strlen(telnbr);
6672	if (x > 0) {
6673	if (telnbr[x-1] == ';') {
6674	partial = 1;
6675	debug(F110,"ckdial sets partial=1:",telnbr,0);
6676	} else if (partial) {
6677	ckmakmsg(fbuf,FULLNUML,telnbr,";",NULL,NULL); /* add one */
6678	telnbr = fbuf;
6679	}
6680	}
6681	}
6682	msleep(500);
6683
6684	debug(F101,"ckdial dialtmo","",dialtmo); /* Timeout */
6685
6686	if (fc == 1) { /* ANSWER */
6687	waitct = (dialatmo > -1) ? dialatmo : 0;
6688	} else { /* DIAL */
6689	if (dialtmo < 1) { /* Automatic computation. */
6690	#ifdef CK_TAPI
6691	if (tttapi && !tapipass) {
6692	waitct = 1 * (int)strlen(telnbr) ; /* Worst case dial time */
6693	waitct += 60; /* dialtone + completion wait times */
6694	for (s = telnbr; s; s++) { / add in pause characters time */
6695	if (*s == ',') {
6696	waitct += 2; /* unless it was changed in the modem */
6697	} else if (*s == 'W' \|\|
6698	*s == 'w' \|\|
6699	*s == '$' \|\|
6700	*s == '@'
6701	) {
6702	waitct += 8;
6703	}
6704	}
6705	} else {
6706	#endif /* CK_TAPI */
6707	waitct = 1 * (int)strlen(telnbr) ;
6708	/* dialtone + completion wait times */
6709	waitct += mp->dial_time;
6710	for (s = telnbr; *s; s++) {
6711	for (p = mp->pause_chars; *p; p++)
6712	if (s == p) {
6713	waitct += mp->pause_time;
6714	break;
6715	}
6716	}
6717	#ifdef CK_TAPI
6718	}
6719	#endif /* CK_TAPI */
6720	} else {
6721	waitct = dialtmo; /* User-specified timeout */
6722	}
6723	debug(F101,"ckdial waitct A","",waitct);
6724	}
6725
6726	/*
6727	waitct is our alarm() timer.
6728	mdmwait is how long we tell the modem to wait for carrier.
6729	We set mdmwait to be 5 seconds less than waitct, to increase the
6730	chance that we get a response from the modem before timing out.
6731	*/
6732	if (waitct <= 0) { /* 0 or negative means wait forever */
6733	#ifdef COMMENT
6734	waitct = 254; /* These were backwards in 7.0.196 */
6735	mdmwait = 0;
6736	#else
6737	waitct = 0; /* Fixed in 7.0.198. */
6738	mdmwait = 254;
6739	#endif /* COMMENT */
6740	} else {
6741	if (dialtmo < 1) { /* Automatic computation. */
6742	#ifdef XWAITCT
6743	/* Addtl wait slop can be defined at compile time */
6744	waitct += XWAITCT;
6745	#endif /* XWAITCT */
6746	if (waitct < 60 + mdmwaitd)
6747	waitct = 60 + mdmwaitd;
6748	}
6749	if (mdmcapas & CKD_AT) { /* AT command-set modems */
6750	mdmwait = waitct; /* S7 timeout = what user asked for */
6751	waitct += mdmwaitd; /* Kermit timeout a bit later */
6752	} else { /* Non-AT */
6753	mdmwait = waitct; /* no difference */
6754	}
6755	}
6756	debug(F101,"ckdial waitct B","",waitct);
6757	if (fc == 1) { /* ANSWER */
6758	#ifdef COMMENT
6759	/*
6760	This is wrong. mdmwait is the value given to S7 in Hayeslike modems.
6761	When in autoanswer mode, this is the amount of time the modem waits for
6762	carrier once ringing starts. Whereas waitct is the timeout given to the
6763	ANSWER command, which is an entirely different thing. Since the default
6764	ANSWER timeout is 0 (meaning "wait forever"), the following statement sets
6765	S7 to 0, which, on some modems (like the USR Sportster) makes it hang up
6766	and report NO CARRIER the instant the phone rings.
6767	*/
6768	mdmwait = waitct;
6769	#else
6770	if (mdmwait <= 0)
6771	mdmwait = 60; /* Always wait 60 seconds. */
6772	#endif /* COMMENT */
6773
6774	}
6775	if (!quiet && !backgrd) { /* Print information messages. */
6776	#ifdef VMS
6777	printf(" \n");
6778	fflush(stdout);
6779	#endif /* VMS */
6780	if (fc == 1)
6781	printf(" Waiting for phone call...\n");
6782	else
6783	printf(" %srying: %s...\n", x1 > 0 ? "Ret" : "T", telnbr);
6784	if (x1 == 0 && x2 == 0 && dialsta != DIA_PART) {
6785	if (network) {
6786	printf(" Via modem server: %s, modem: %s\n",
6787	ttname, gmdmtyp() );
6788	} else {
6789	#ifdef CK_TAPI
6790	if (tttapi && !tapipass)
6791	printf(" Device: %s, modem: %s", ttname, "TAPI" );
6792	else
6793	#endif /* CK_TAPI */
6794	printf(" Device: %s, modem: %s",
6795	ttname, gmdmtyp() );
6796	if (speed > -1L)
6797	printf(", speed: %ld\n", speed);
6798	else
6799	printf(", speed: (unknown)\n");
6800	}
6801	spdmax = dialmax > 0L ? dialmax : mp->max_speed;
6802
6803	#ifndef NOHINTS
6804	if (hints && !quiet &&
6805	!network && spdmax > 0L && speed > spdmax
6806	#ifdef CK_TAPI
6807	&& (!tttapi \|\| tapipass)
6808	#endif /* CK_TAPI */
6809	) {
6810	printf("\n*************************\n");
6811	printf(
6812	"Interface speed %ld might be too high for this modem type.\n",
6813	speed
6814	);
6815	printf(
6816	"If dialing fails, SET SPEED to %ld or less and try again.\n",
6817	spdmax
6818	);
6819	printf("(Use SET HINTS OFF to suppress future hints.)\n");
6820	printf("*************************\n");
6821	printf("\n");
6822	}
6823	#endif /* NOHINTS */
6824	printf(" %s timeout: ", fc == 0 ? "Dial" : "Answer");
6825	if (waitct > 0)
6826	printf("%d seconds\n",mdmwait);
6827	else
6828	printf(" (none)\n");
6829	printf(
6830	#ifdef MAC
6831	" Type Command-. to cancel.\n"
6832	#else
6833	#ifdef UNIX
6834	" To cancel: type your interrupt character (normally Ctrl-C).\n"
6835	#else
6836	" To cancel: type Ctrl-C (hold down Ctrl, press C).\n"
6837	#endif /* UNIX */
6838	#endif /* MAC */
6839	);
6840	}
6841	}
6842	debug(F111,"ckdial",ttname,(int) (speed / 10L));
6843	debug(F101,"ckdial timeout","",waitct);
6844	#ifdef OS2
6845	term_io = 0;
6846	#endif /* OS2 */
6847
6848	/* Set timer and interrupt handlers. */
6849	savint = signal( SIGINT, dialint ) ; /* And terminal interrupt handler. */
6850	cc_alrm_execute(ckjaddr(sjbuf), 0, dialtime, _dodial, faildial);
6851
6852	signal(SIGINT, savint);
6853	#ifdef OS2
6854	if (dialsta == DIA_OK) /* Dialing is completed */
6855	DialerSend(OPT_KERMIT_CONNECT, 0);
6856	term_io = term_io_sav;
6857	#endif /* OS2 */
6858	if (dialsta == DIA_PART \|\| dialsta == DIA_OK) {
6859	/* This is needed, e.g., for Telnet modem servers */
6860	if (reliable != SET_OFF \|\| !setreliable) {
6861	reliable = SET_OFF; /* Transport is not reliable */
6862	debug(F101,"ckdial reliable","",reliable);
6863	}
6864	return(1); /* Dial attempt succeeded */
6865	} else {
6866	return(0); /* Dial attempt failed */
6867	}
6868	} /* ckdial */
6869
6870	/*
6871	getok() - wait up to n seconds for OK (0) or ERROR (4) response from modem.
6872	Use with Hayeslike or CCITT modems for reading the reply to a nondialing
6873	command.
6874
6875	Second argument says whether to be strict about numeric result codes, i.e.
6876	to require they be preceded by CR or else be the first character in the
6877	response, e.g. to prevent the ATH0<CR> echo from looking like a valid
6878	response. Strict == 0 is needed for ATI on Telebit, which can return the
6879	model number concatenated with the numeric response code, e.g. "9620"
6880	("962" is the model number, "0" is the response code). getok() Returns:
6881
6882	0 if it timed out,
6883	1 if it succeeded,
6884	-1 on modem command, i/o, or other error.
6885	*/
6886	static ckjmpbuf okbuf;
6887
6888	static SIGTYP
6889	#ifdef CK_ANSIC
6890	oktimo(int foo) /* Alarm handler for getok(). */
6891	#else
6892	oktimo(foo) int foo; /* Alarm handler for getok(). */
6893	#endif /* CK_ANSIC */
6894	/* oktimo */ {
6895
6896	#ifdef OS2
6897	alarm(0);
6898	/* signal(SIGALRM,SIG_IGN); */
6899	debug(F100,"oktimo() SIGALRM caught -- SIG_IGN set","",0) ;
6900	#endif /* OS2 */
6901
6902	#ifdef OSK /* OS-9, see comment in dialtime(). */
6903	sigmask(-1);
6904	#endif /* OSK */
6905	#ifdef NTSIG
6906	if ( foo == SIGALRM )
6907	PostAlarmSigSem();
6908	else
6909	PostCtrlCSem();
6910	#else /* NTSIG */
6911	#ifdef NT
6912	cklongjmp(ckjaddr(okbuf),1);
6913	#else /* NT */
6914	cklongjmp(okbuf,1);
6915	#endif /* NTSIG */
6916	#endif /* NT */
6917	/* NOTREACHED */
6918	SIGRETURN;
6919	}
6920
6921	static int okstatus, okn, okstrict;
6922
6923	static SIGTYP
6924	#ifdef CK_ANSIC
6925	dook(void * threadinfo)
6926	#else /* CK_ANSIC */
6927	dook(threadinfo) VOID * threadinfo ;
6928	#endif /* CK_ANSIC */
6929	/* dook */ {
6930	CHAR c;
6931	#ifdef DEBUG
6932	char * mdmmsg = "";
6933	#endif /* DEBUG */
6934
6935	int i, x;
6936	#ifdef IKSD
6937	extern int inserver;
6938	#endif /* IKSD */
6939	#ifdef NTSIG
6940	signal(SIGINT,oktimo);
6941	if (threadinfo) { /* Thread local storage... */
6942	TlsSetValue(TlsIndex,threadinfo);
6943	}
6944	#endif /* NTSIG */
6945	#ifdef CK_LOGIN
6946	#ifdef NT
6947	#ifdef IKSD
6948	if (inserver)
6949	setntcreds();
6950	#endif /* IKSD */
6951	#endif /* NT */
6952	#endif /* CK_LOGIN */
6953
6954	if (mdmcapas & CKD_V25) { /* CCITT, easy... */
6955	waitfor("VAL");
6956	okstatus = 1;
6957	debug(F111,"Modem_Response(V25)","VAL",okstatus);
6958	#ifdef NTSIG
6959	ckThreadEnd(threadinfo);
6960	#endif /* NTSIG */
6961	SIGRETURN;
6962	#ifndef MINIDIAL
6963	} else if (mymdmtyp == n_MICROCOM) { /* Microcom in SX mode, also easy */
6964	waitfor(MICROCOM.wake_prompt); /* (I think...) */
6965	debug(F111,"Modem_Response(Microcom)",MICROCOM.wake_prompt,okstatus);
6966	okstatus = 1;
6967	#ifdef NTSIG
6968	ckThreadEnd(threadinfo);
6969	#endif /* NTSIG */
6970	SIGRETURN;
6971	#endif /* MINIDIAL */
6972	} else { /* Hayes & friends, start here... */
6973	okstatus = 0; /* No status yet. */
6974	for (x = 0; x < RBUFL; x++) /* Initialize response buffer */
6975	rbuf[x] = SP; /* to all spaces */
6976	rbuf[RBUFL] = NUL; /* and terminate with NUL. */
6977	while (okstatus == 0) { /* While no status... */
6978	x = ddinc(okn); /* Read a character */
6979	if (x < 0) { /* I/O error */
6980	okstatus = -1;
6981	#ifdef NTSIG
6982	ckThreadEnd(threadinfo);
6983	#endif /* NTSIG */
6984	SIGRETURN;
6985	}
6986	#ifdef COMMENT
6987	/* too much */
6988	debug(F101,"getok ddinc","",x); /* Got a character. */
6989	#endif /* COMMENT */
6990	c = (char) (x & 0x7f); /* Get low order 7 bits */
6991	if (!c) /* Don't deposit NULs */
6992	continue; /* or else didweget() won't work */
6993	if (dialdpy) conoc((char)c); /* Echo it if requested */
6994	for (i = 0; i < RBUFL-1; i++) /* Rotate buffer */
6995	rbuf[i] = rbuf[i+1];
6996	rbuf[RBUFL-1] = c; /* Deposit character at end */
6997	#ifdef COMMENT
6998	/* too much */
6999	debug(F000,"getok:",rbuf,(int) c); /* Log it */
7000	#endif /* COMMENT */
7001	switch (c) { /* Interpret it. */
7002	case CR: /* Got a carriage return. */
7003	switch(rbuf[RBUFL-2]) { /* Look at character before it. */
7004	case '0': /* 0 = OK numeric response */
7005	if (!okstrict \|\|
7006	rbuf[RBUFL-3] == CR \|\| rbuf[RBUFL-3] == SP) {
7007	nonverbal = 1;
7008	okstatus = 1; /* Good response */
7009	}
7010	debug(F111,"Modem_Response(Hayes)","0",okstatus);
7011	break;
7012	case '4': /* 4 = ERROR numeric response */
7013	#ifndef MINIDIAL
7014	/* Or Telebit model number 964! */
7015	if (mymdmtyp == n_TELEBIT &&
7016	isdigit(rbuf[RBUFL-3]) &&
7017	isdigit(rbuf[RBUFL-4]))
7018	break;
7019	else
7020	#endif /* MINIDIAL */
7021	if (!okstrict \|\|
7022	rbuf[RBUFL-3] == CR \|\| rbuf[RBUFL-3] == SP) {
7023	nonverbal = 1;
7024	okstatus = -1; /* Bad command */
7025	}
7026	debug(F111,"Modem_Response(Hayes)","4",okstatus);
7027	break;
7028	}
7029	if (dialdpy && nonverbal) /* If numeric results, */
7030	conoc(LF); /* echo a linefeed too. */
7031	break;
7032	case LF: /* Got a linefeed. */
7033	/*
7034	Note use of explicit octal codes in the string for
7035	CR and LF. We want real CR and LF here, not whatever
7036	the compiler happens to replace \r and \n with...
7037	*/
7038	if (!strcmp(rbuf+RBUFL-4,"OK\015\012")) { /* Good response */
7039	okstatus = 1;
7040	debug(F111,"Modem_Response(Hayes)","OK",okstatus);
7041	}
7042	if (!strcmp(rbuf+RBUFL-3,"OK\012")) { /* Good response */
7043	okstatus = 1;
7044	debug(F111,"Modem_Response(Hayes)","OK",okstatus);
7045	} else if (!strcmp(rbuf+RBUFL-7,"ERROR\015\012")) { /* Error */
7046	okstatus = -1;
7047	debug(F111,"Modem_Response(Hayes)","ERROR",okstatus);
7048	} else if (!strcmp(rbuf+RBUFL-6,"ERROR\012")) { /* Error */
7049	okstatus = -1;
7050	debug(F111,"Modem_Response(Hayes)","ERROR",okstatus);
7051	}
7052	break;
7053	/* Check whether modem echoes its commands... */
7054	case 't': /* Got little t */
7055	if (!strcmp(rbuf+RBUFL-3,"\015at") \|\| /* See if it's "at" */
7056	!strcmp(rbuf+RBUFL-3," at"))
7057	mdmecho = 1;
7058	/* debug(F111,"MDMECHO-t",rbuf+RBUFL-2,mdmecho); */
7059	break;
7060	case 'T': /* Got Big T */
7061	if (!strcmp(rbuf+RBUFL-3,"\015AT") \|\| /* See if it's "AT" */
7062	!strcmp(rbuf+RBUFL-3," AT"))
7063	mdmecho = 1;
7064	/* debug(F111,"MDMECHO-T",rbuf+RBUFL-3,mdmecho); */
7065	break;
7066	default: /* Other characters, accumulate. */
7067	okstatus = 0;
7068	break;
7069	}
7070	}
7071	}
7072	debug(F101,"getok","",okstatus); /* <-- It's a lie (why?) */
7073	#ifdef NTSIG
7074	ckThreadEnd(threadinfo);
7075	#endif /* NTSIG */
7076	SIGRETURN;
7077	}
7078
7079	static SIGTYP
7080	#ifdef CK_ANSIC
7081	failok(void * threadinfo)
7082	#else /* CK_ANSIC */
7083	failok(threadinfo) VOID * threadinfo;
7084	#endif /* CK_ANSIC */
7085	/* failok */ {
7086	debug(F100,"longjmp returned to getok()","",0);
7087	debug(F100,"getok timeout","",0);
7088	SIGRETURN;
7089	}
7090
7091	int
7092	getok(n, strict) int n, strict; {
7093	debug(F101,"getok entry n","",n);
7094	okstatus = 0;
7095	okn = n;
7096	okstrict = strict;
7097
7098	#ifdef DYNAMIC
7099	if (!rbuf) {
7100	if (!(rbuf = malloc(RBUFL+1))) { /* Allocate input line buffer */
7101	dialsta = DIA_IE;
7102	return(-1);
7103	}
7104	debug(F101,"GETOK rbuf malloc ok","",RBUFL+1);
7105	}
7106	#endif /* DYNAMIC */
7107
7108	mdmecho = 0; /* Assume no echoing of commands */
7109
7110	debug(F100,"about to alrm_execute dook()","",0);
7111	alrm_execute( ckjaddr(okbuf), n, oktimo, dook, failok ) ;
7112	debug(F100,"returning from alrm_execute dook()","",0);
7113
7114	ttflui(); /* Flush input buffer */
7115	return(okstatus); /* Return status */
7116	}
7117
7118	/* G E T H R N -- Get Hayes Result Numeric */
7119
7120	static VOID
7121	gethrn() {
7122	char c;
7123	int x;
7124	/*
7125	Hayes numeric result codes (Hayes 1200 and higher):
7126	0 = OK
7127	1 = CONNECT at 300 bps (or 1200 bps on Hayes 1200 with basic code set)
7128	2 = RING
7129	3 = NO CARRIER
7130	4 = ERROR (in command line)
7131	5 = CONNECT 1200 (extended code set)
7132	Hayes 2400 and higher:
7133	6 = NO DIALTONE
7134	7 = BUSY
7135	8 = NO ANSWER
7136	9 = (there is no 9)
7137	10 = CONNECT 2400
7138	Reportedly, the codes for Hayes V.32 modems are:
7139	1x = CONNECT <suffix>
7140	5x = CONNECT 1200 <suffix>
7141	9x = CONNECT 2400 <suffix>
7142	11x = CONNECT 4800 <suffix>
7143	12x = CONNECT 9600 <suffix>
7144	Where:
7145	x: suffix:
7146	R = RELIABLE
7147	RC = RELIABLE COMPRESSED
7148	L = LAPM
7149	LC = LAPM COMPRESSED
7150	And for Telebits, all the above, except no suffix in numeric mode, plus:
7151	11 = CONNECT 4800
7152	12 = CONNECT 9600
7153	13 = CONNECT 14400
7154	14 = CONNECT 19200
7155	15 = CONNECT 38400
7156	16 = CONNECT 57600
7157	20 = CONNECT 300/REL (= MNP)
7158	22 = CONNECT 1200/REL (= MNP)
7159	23 = CONNECT 2400/REL (= MNP)
7160	46 = CONNECT 7512 (i.e. 75/1200)
7161	47 = CONNECT 1275 (i.e. 1200/75)
7162	48 = CONNECT 7200
7163	49 = CONNECT 12000
7164	50 = CONNECT FAST (not on T1600/3000)
7165	52 = RRING
7166	53 = DIALING
7167	54 = NO PROMPTTONE
7168	61 = CONNECT FAST/KERM (Kermit spoof)
7169	70 = CONNECT FAST/COMP (PEP + compression)
7170	71 = CONNECT FAST/KERM/COMP (PEP + compression + Kermit spoof)
7171
7172	And for others, lots of special cases below...
7173	*/
7174	#define NBUFL 8
7175	char nbuf[NBUFL+1]; /* Response buffer */
7176	int i = 0, j = 0; /* Buffer pointers */
7177
7178	debug(F101,"RESPONSE mdmecho","",mdmecho);
7179	if (mdmecho) { /* Sponge up dialing string echo. */
7180	while (1) {
7181	c = (char) (ddinc(0) & 0x7f);
7182	debug(F000,"SPONGE","",c);
7183	dialoc(c);
7184	if (c == CR) break;
7185	}
7186	}
7187	while (mdmstat == 0) { /* Read response */
7188	for (i = 0; i < NBUFL; i++) /* Clear the buffer */
7189	nbuf[i] = '\0';
7190	i = 0; /* Reset the buffer pointer. */
7191	c = (char) (ddinc(0) & 0177); /* Get first digit of response. */
7192	/* using an untimed, blocking read. */
7193	debug(F000,"RESPONSE-A","",c);
7194	dialoc(c); /* Echo it if requested. */
7195	if (!isdigit(c)) /* If not a digit, keep looking. */
7196	continue;
7197	nbuf[i++] = c; /* Got first digit, save it. */
7198	while (c != CR && i < 8) { /* Read chars up to CR */
7199	x = ddinc(0) & 0177; /* Get a character. */
7200	c = (char) x; /* Got it OK. */
7201	debug(F000,"RESPONSE-C","",c);
7202	if (c != CR) /* If it's not a carriage return, */
7203	nbuf[i++] = c; /* save it. */
7204	dialoc(c); /* Echo it. */
7205	}
7206	nbuf[i] = '\0'; /* Done, terminate the buffer. */
7207	debug(F110,"dial hayesnv lbuf",lbuf,0);
7208	debug(F111,"dial hayesnv got",nbuf,i);
7209	/*
7210	Separate any non-numeric suffix from the numeric
7211	result code with a null.
7212	*/
7213	for (j = i-1; (j > -1) && !isdigit(nbuf[j]); j--)
7214	nbuf[j+1] = nbuf[j];
7215	j++;
7216	nbuf[j++] = '\0';
7217	debug(F110,"dial hayesnv numeric",nbuf,0);
7218	debug(F111,"dial hayesnv suffix ",nbuf+j,j);
7219	/* Probably phone number echoing. */
7220	if ((int)strlen(nbuf) > 3)
7221	continue;
7222
7223	/* Now read and interpret the results... */
7224
7225	i = atoi(nbuf); /* Convert to integer */
7226	switch (i) {
7227	case 0:
7228	mdmstat = D_PARTIAL; /* OK response */
7229	break;
7230	case 1: /* CONNECT */
7231	mdmstat = CONNECTED; /* Could be any speed */
7232	break;
7233	case 2: /* RING */
7234	if (dialdpy)
7235	printf("\r\n Local phone is ringing!\r\n");
7236	mdmstat = D_FAILED;
7237	dialsta = DIA_RING;
7238	break;
7239	case 3: /* NO CARRIER */
7240	if (dialdpy) printf("\r\n No Carrier.\r\n");
7241	mdmstat = D_FAILED;
7242	dialsta = DIA_NOCA;
7243	break;
7244	case 4: /* ERROR */
7245	if (dialdpy)
7246	printf("\r\n Modem Command Error.\r\n");
7247	mdmstat = D_FAILED;
7248	dialsta = DIA_ERR;
7249	break;
7250	case 5: /* CONNECT 1200 */
7251	spdchg(1200L); /* Change speed if necessary. */
7252	mdmstat = CONNECTED;
7253	break;
7254	case 6: /* NO DIALTONE */
7255	#ifndef MINIDIAL
7256	if (mymdmtyp == n_MICROLINK && atoi(diallcc) == 49 && dialdpy)
7257	printf("\r\n Dial Locked.\r\n"); /* Germany */
7258	else
7259	#endif /* MINIDIAL */
7260	if (dialdpy)
7261	printf("\r\n No Dialtone.\r\n");
7262	mdmstat = D_FAILED;
7263	dialsta = DIA_NODT;
7264	break;
7265	case 7: /* BUSY */
7266	if (dialdpy) printf("\r\n Busy.\r\n");
7267	mdmstat = D_FAILED;
7268	dialsta = DIA_BUSY;
7269	break;
7270	case 8: /* NO ANSWER */
7271	#ifndef MINIDIAL
7272	if (mymdmtyp == n_MICROLINK && atoi(diallcc) == 41 && dialdpy)
7273	printf("\r\n Dial Locked.\r\n"); /* Switzerland */
7274	else
7275	#endif /* MINIDIAL */
7276	if (dialdpy)
7277	printf("\r\n No Answer.\r\n");
7278	mdmstat = D_FAILED;
7279	dialsta = DIA_NOAN;
7280	break;
7281
7282	case 9:
7283	#ifndef MINIDIAL
7284	if (mymdmtyp == n_XJACK \|\| mymdmtyp == n_SUPRAX) {
7285	spdchg(600);
7286	break;
7287	} /* fall thru */
7288	#endif /* MINIDIAL */
7289	case 10: /* CONNECT 2400 */
7290	spdchg(2400L); /* Change speed if necessary. */
7291	mdmstat = CONNECTED;
7292	break;
7293
7294	#ifndef MINIDIAL
7295
7296	/* Starting here, we get different meanings from different manufacturers */
7297
7298	case 11:
7299	if (mymdmtyp == n_USR) {
7300	if (dialdpy) printf(" Ringing...\r\n");
7301	} else {
7302	spdchg(4800L); /* CONNECT 4800 */
7303	mdmstat = CONNECTED;
7304	}
7305	break;
7306	case 12:
7307	if (mymdmtyp == n_USR) {
7308	if (dialdpy)
7309	printf("\r\n Answered by voice.\r\n");
7310	mdmstat = D_FAILED;
7311	dialsta = DIA_VOIC;
7312	} else if (mymdmtyp == n_KEEPINTOUCH) {
7313	spdchg(7200L);
7314	mdmstat = CONNECTED;
7315	} else {
7316	spdchg(9600L);
7317	mdmstat = CONNECTED;
7318	}
7319	break;
7320	case 13:
7321	if (mymdmtyp == n_ATT1900 \|\| mymdmtyp == n_ATT1910) {
7322	if (dialdpy) printf(" Wait...\r\n");
7323	break;
7324	} else if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2)
7325	spdchg(9600L);
7326	else if (is_rockwell \|\| is_supra \|\|
7327	mymdmtyp == n_ZOLTRIX \|\| mymdmtyp == n_XJACK)
7328	spdchg(7200L);
7329	else if (mymdmtyp != n_MICROLINK)
7330	spdchg(14400L);
7331	mdmstat = CONNECTED;
7332	break;
7333	case 14:
7334	if (is_rockwell \|\| is_supra \|\| mymdmtyp == n_XJACK)
7335	spdchg(12000L);
7336	else if (mymdmtyp == n_DATAPORT \|\| mymdmtyp == n_MICROLINK)
7337	spdchg(14400L);
7338	else if (mymdmtyp == n_KEEPINTOUCH)
7339	spdchg(9600L);
7340	else if (mymdmtyp != n_USR && mymdmtyp != n_ZOLTRIX)
7341	spdchg(19200L);
7342	mdmstat = CONNECTED;
7343	break;
7344	case 15:
7345	if (is_rockwell \|\| is_supra \|\|
7346	mymdmtyp == n_ZOLTRIX \|\| mymdmtyp == n_XJACK)
7347	spdchg(14400L);
7348	else if (mymdmtyp == n_USR)
7349	spdchg(1200L);
7350	else if (mymdmtyp == n_ZYXEL \|\| mymdmtyp == n_INTEL)
7351	spdchg(7200L);
7352	else if (mymdmtyp == n_DATAPORT)
7353	spdchg(19200L);
7354	else
7355	spdchg(38400L);
7356	mdmstat = CONNECTED;
7357	break;
7358	case 16:
7359	if (is_rockwell \|\| is_supra \|\|
7360	mymdmtyp == n_ZOLTRIX \|\| mymdmtyp == n_XJACK)
7361	spdchg(19200L);
7362	else if (mymdmtyp == n_USR)
7363	spdchg(2400L);
7364	else if (mymdmtyp == n_DATAPORT)
7365	spdchg(7200L);
7366	else if (mymdmtyp != n_ZYXEL && mymdmtyp != n_INTEL) /* 12000 */
7367	spdchg(57600L);
7368	mdmstat = CONNECTED;
7369	break;
7370	case 17:
7371	if (mymdmtyp != n_DATAPORT \|\| mymdmtyp == n_XJACK) /* 16800 */
7372	spdchg(38400L);
7373	else if (mymdmtyp == n_ZYXEL \|\| mymdmtyp == n_INTEL)
7374	spdchg(14400L);
7375	else if (mymdmtyp == n_KEEPINTOUCH)
7376	spdchg(14400L);
7377	else if (mymdmtyp == n_USR)
7378	spdchg(9600L);
7379	mdmstat = CONNECTED;
7380	break;
7381	case 18:
7382	if (is_rockwell \|\| is_supra \|\|
7383	mymdmtyp == n_ZOLTRIX \|\| mymdmtyp == n_XJACK \|\|
7384	mymdmtyp == n_MHZATT \|\| mymdmtyp == n_LUCENT)
7385	spdchg(57600L);
7386	else if (mymdmtyp == n_INTEL)
7387	spdchg(19200L);
7388	else if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2)
7389	spdchg(4800L);
7390	mdmstat = CONNECTED;
7391	break;
7392	case 19:
7393	if (mymdmtyp == n_DATAPORT)
7394	spdchg(300L);
7395	else if (mymdmtyp == n_ZYXEL \|\| mymdmtyp == n_INTEL)
7396	spdchg(38400L);
7397	else
7398	spdchg(115200L);
7399	mdmstat = CONNECTED;
7400	break;
7401	case 20:
7402	if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2)
7403	spdchg(7200L);
7404	else if (mymdmtyp == n_DATAPORT)
7405	spdchg(2400L);
7406	else if (mymdmtyp == n_ZYXEL \|\| mymdmtyp == n_INTEL)
7407	spdchg(57600L);
7408	else
7409	spdchg(300L);
7410	mdmstat = CONNECTED;
7411	break;
7412	case 21:
7413	if (mymdmtyp == n_DATAPORT)
7414	spdchg(4800L);
7415	mdmstat = CONNECTED;
7416	break;
7417	case 22:
7418	if (is_rockwell \|\| is_supra \|\| mymdmtyp == n_XJACK)
7419	spdchg(8880L);
7420	else if (mymdmtyp == n_DATAPORT)
7421	spdchg(9600L);
7422	else if (mymdmtyp == n_KEEPINTOUCH)
7423	spdchg(300L);
7424	else if (!is_hayeshispd)
7425	spdchg(1200L);
7426	mdmstat = CONNECTED;
7427	break;
7428	case 23:
7429	if (is_hayeshispd \|\| is_supra \|\|
7430	mymdmtyp == n_MULTI \|\| mymdmtyp == n_XJACK)
7431	spdchg(8880L);
7432	else if (mymdmtyp != n_DATAPORT && !is_rockwell) /* 12000 */
7433	spdchg(2400L);
7434	mdmstat = CONNECTED;
7435	break;
7436	case 24:
7437	if (is_rockwell \|\| is_supra \|\| mymdmtyp == n_XJACK) {
7438	mdmstat = D_FAILED;
7439	dialsta = DIA_DELA; /* Delayed */
7440	break;
7441	} else if (is_hayeshispd \|\| mymdmtyp == n_LUCENT)
7442	spdchg(7200L);
7443	else if (mymdmtyp == n_DATAPORT)
7444	spdchg(14400L);
7445	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7446	spdchg(1200L);
7447	mdmstat = CONNECTED;
7448	break;
7449	case 25:
7450	if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2)
7451	spdchg(14400L);
7452	else if (mymdmtyp == n_LUCENT)
7453	spdchg(12000L);
7454	else if (is_motorola)
7455	spdchg(9600L);
7456	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7457	spdchg(2400L);
7458	mdmstat = CONNECTED;
7459	break;
7460	case 26:
7461	if (mymdmtyp == n_DATAPORT)
7462	spdchg(19200L);
7463	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7464	spdchg(4800L);
7465	mdmstat = CONNECTED;
7466	break;
7467	case 27:
7468	if (mymdmtyp == n_DATAPORT)
7469	spdchg(38400L);
7470	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7471	spdchg(7200L);
7472	else if (mymdmtyp == n_MHZATT)
7473	spdchg(8880L);
7474	mdmstat = CONNECTED;
7475	break;
7476	case 28:
7477	if (mymdmtyp == n_DATAPORT)
7478	spdchg(7200L);
7479	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7480	spdchg(9600L);
7481	else if (mymdmtyp == n_MHZATT \|\| mymdmtyp == n_LUCENT)
7482	spdchg(38400L);
7483	mdmstat = CONNECTED;
7484	break;
7485	case 29:
7486	if (is_motorola)
7487	spdchg(4800L);
7488	else if (mymdmtyp == n_DATAPORT)
7489	spdchg(19200L);
7490	mdmstat = CONNECTED;
7491	break;
7492	case 30:
7493	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7494	spdchg(14400L);
7495	mdmstat = CONNECTED;
7496	} /* fall thru on purpose... */
7497	case 31:
7498	if (mymdmtyp == n_UCOM_AT \|\| mymdmtyp == n_MICROLINK) {
7499	spdchg(4800L);
7500	mdmstat = CONNECTED;
7501	} else if (is_motorola) {
7502	spdchg(57600L);
7503	mdmstat = CONNECTED;
7504	}
7505	break;
7506	case 32:
7507	if (is_rockwell \|\| is_supra \|\| mymdmtyp == n_XJACK) {
7508	mdmstat = D_FAILED;
7509	dialsta = DIA_BLCK; /* Blacklisted */
7510	} else if (mymdmtyp == n_UCOM_AT \|\| mymdmtyp == n_MICROLINK) {
7511	spdchg(9600L);
7512	mdmstat = CONNECTED;
7513	} else if (mymdmtyp == n_KEEPINTOUCH) {
7514	spdchg(300L);
7515	mdmstat = CONNECTED;
7516	} else if (mymdmtyp == n_INTEL) {
7517	spdchg(2400L);
7518	mdmstat = CONNECTED;
7519	}
7520	break;
7521	case 33: /* FAX connection */
7522	if (is_rockwell \|\| is_supra \|\|
7523	mymdmtyp == n_ZOLTRIX \|\| mymdmtyp == n_XJACK) {
7524	mdmstat = D_FAILED;
7525	dialsta = DIA_FAX;
7526	} else if (mymdmtyp == n_UCOM_AT \|\|
7527	is_motorola \|\|
7528	mymdmtyp == n_MICROLINK
7529	) {
7530	spdchg(9600L);
7531	mdmstat = CONNECTED;
7532	} else if (mymdmtyp == n_MHZATT) {
7533	spdchg(115200L);
7534	mdmstat = CONNECTED;
7535	}
7536	break;
7537	case 34:
7538	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7539	spdchg(1200L);
7540	mdmstat = CONNECTED;
7541	} else if (mymdmtyp == n_MICROLINK) {
7542	spdchg(7200L);
7543	mdmstat = CONNECTED;
7544	}
7545	break;
7546	case 35:
7547	if (is_rockwell) {
7548	spdchg(300L);
7549	dialsta = CONNECTED;
7550	} else if (is_motorola) {
7551	spdchg(14400L);
7552	mdmstat = CONNECTED;
7553	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7554	spdchg(2400L);
7555	mdmstat = CONNECTED;
7556	} else if (mymdmtyp == n_MICROLINK) {
7557	spdchg(7200L);
7558	mdmstat = CONNECTED;
7559	} else if (mymdmtyp == n_ZOLTRIX \|\| mymdmtyp == n_XJACK) /* DATA */
7560	mdmstat = CONNECTED;
7561	break;
7562	case 36:
7563	if (mymdmtyp == n_UCOM_AT) {
7564	spdchg(19200L);
7565	mdmstat = CONNECTED;
7566	} else if (is_motorola) {
7567	spdchg(1200L);
7568	mdmstat = CONNECTED;
7569	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7570	spdchg(4800L);
7571	mdmstat = CONNECTED;
7572	}
7573	break;
7574	case 37:
7575	if (mymdmtyp == n_UCOM_AT) {
7576	spdchg(19200L);
7577	mdmstat = CONNECTED;
7578	} else if (is_motorola) {
7579	spdchg(2400L);
7580	mdmstat = CONNECTED;
7581	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7582	spdchg(7200L);
7583	mdmstat = CONNECTED;
7584	}
7585	break;
7586	case 38:
7587	if (is_motorola) {
7588	spdchg(4800L);
7589	mdmstat = CONNECTED;
7590	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7591	spdchg(9600L);
7592	mdmstat = CONNECTED;
7593	} /* fall thru on purpose... */
7594	case 39:
7595	if (mymdmtyp == n_UCOM_AT) {
7596	spdchg(38400L);
7597	mdmstat = CONNECTED;
7598	} else if (is_motorola) {
7599	spdchg(9600L);
7600	mdmstat = CONNECTED;
7601	} else if (mymdmtyp == n_MICROLINK) {
7602	spdchg(14400L);
7603	mdmstat = CONNECTED;
7604	}
7605	break;
7606	case 40:
7607	if (mymdmtyp == n_UCOM_AT) {
7608	mdmstat = D_FAILED;
7609	dialsta = DIA_NOCA;
7610	} else if (is_motorola \|\| mymdmtyp == n_INTEL \|\|
7611	mymdmtyp == n_KEEPINTOUCH) {
7612	spdchg(14400L);
7613	mdmstat = CONNECTED;
7614	}
7615	break;
7616	case 41:
7617	if (is_motorola) {
7618	spdchg(19200L);
7619	mdmstat = CONNECTED;
7620	}
7621	break;
7622	case 42:
7623	if (mymdmtyp == n_KEEPINTOUCH) {
7624	spdchg(300L);
7625	mdmstat = CONNECTED;
7626	} else if (is_motorola) {
7627	spdchg(38400L);
7628	mdmstat = CONNECTED;
7629	} /* fall thru on purpose... */
7630	case 43:
7631	if (mymdmtyp == n_UCOM_AT) {
7632	spdchg(57600L);
7633	mdmstat = CONNECTED;
7634	} else if (mymdmtyp == n_USRX2)
7635	mdmstat = CONNECTED; /* 168000 */
7636	break;
7637	case 44:
7638	if (is_rockwell) {
7639	spdchg(8800L);
7640	dialsta = CONNECTED;
7641	} else if (is_motorola) {
7642	spdchg(7200L);
7643	mdmstat = CONNECTED;
7644	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7645	spdchg(1200L);
7646	mdmstat = CONNECTED;
7647	}
7648	break;
7649	case 45:
7650	if (is_motorola) {
7651	spdchg(57600L);
7652	mdmstat = CONNECTED;
7653	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7654	spdchg(2400L);
7655	mdmstat = CONNECTED;
7656	} else if (n_USR) {
7657	spdchg(14400L);
7658	mdmstat = CONNECTED;
7659	}
7660	break;
7661	case 46:
7662	if (is_rockwell)
7663	spdchg(1200L);
7664	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7665	spdchg(4800L);
7666	else
7667	spdchg(8880L); /* 75/1200 split speed */
7668	mdmstat = CONNECTED;
7669	break;
7670	case 47:
7671	if (is_rockwell)
7672	spdchg(2400L);
7673	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7674	spdchg(7200L);
7675	else
7676	printf("CONNECT 1200/75 - Not supported by C-Kermit\r\n");
7677	mdmstat = CONNECTED;
7678	break;
7679	case 48:
7680	if (is_rockwell)
7681	spdchg(4800L);
7682	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7683	spdchg(9600L);
7684	else
7685	spdchg(7200L);
7686	mdmstat = CONNECTED;
7687	break;
7688	case 49:
7689	if (is_rockwell)
7690	spdchg(7200L);
7691	mdmstat = CONNECTED;
7692	break;
7693	case 50: /* CONNECT FAST */
7694	if (is_rockwell)
7695	spdchg(9600L);
7696	else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH)
7697	spdchg(14400L);
7698	mdmstat = CONNECTED;
7699	break;
7700	case 51:
7701	if (mymdmtyp == n_UCOM_AT) {
7702	mdmstat = D_FAILED;
7703	dialsta = DIA_NODT;
7704	}
7705	break;
7706	case 52: /* RRING */
7707	if (mymdmtyp == n_TELEBIT)
7708	if (dialdpy) printf(" Ringing...\r\n");
7709	break;
7710	case 53: /* DIALING */
7711	if (mymdmtyp == n_TELEBIT)
7712	if (dialdpy) printf(" Dialing...\r\n");
7713	break;
7714	case 54:
7715	if (is_rockwell) {
7716	spdchg(19200L);
7717	mdmstat = CONNECTED;
7718	} else if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7719	spdchg(1200L);
7720	mdmstat = CONNECTED;
7721	} else if (mymdmtyp == n_TELEBIT) {
7722	if (dialdpy) printf("\r\n No Prompttone.\r\n");
7723	mdmstat = D_FAILED;
7724	dialsta = DIA_NODT;
7725	}
7726	break;
7727	case 55:
7728	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7729	spdchg(2400L);
7730	mdmstat = CONNECTED;
7731	}
7732	break;
7733	case 56:
7734	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7735	spdchg(4800L);
7736	mdmstat = CONNECTED;
7737	}
7738	break;
7739	case 57:
7740	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7741	spdchg(7200L);
7742	mdmstat = CONNECTED;
7743	}
7744	break;
7745	case 58:
7746	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7747	spdchg(9600L);
7748	mdmstat = CONNECTED;
7749	}
7750	break;
7751	case 59:
7752	if (mymdmtyp == n_INTEL) /* 12000 */
7753	mdmstat = CONNECTED;
7754	break;
7755	case 60:
7756	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7757	spdchg(14400L);
7758	mdmstat = CONNECTED;
7759	}
7760	break;
7761	case 64:
7762	if (mymdmtyp == n_INTEL) {
7763	spdchg(1200L);
7764	mdmstat = CONNECTED;
7765	} else if (is_supra) {
7766	spdchg(28800L);
7767	mdmstat = CONNECTED;
7768	}
7769	break;
7770	case 65:
7771	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7772	spdchg(2400L);
7773	mdmstat = CONNECTED;
7774	}
7775	break;
7776	case 66:
7777	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7778	spdchg(4800L);
7779	mdmstat = CONNECTED;
7780	}
7781	break;
7782	case 67:
7783	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7784	spdchg(7200L);
7785	mdmstat = CONNECTED;
7786	}
7787	break;
7788	case 68:
7789	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7790	spdchg(9600L);
7791	mdmstat = CONNECTED;
7792	}
7793	break;
7794	case 69:
7795	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) /* 12000 */
7796	mdmstat = CONNECTED;
7797	break;
7798	case 70:
7799	if (mymdmtyp == n_INTEL \|\| mymdmtyp == n_KEEPINTOUCH) {
7800	spdchg(14400L);
7801	mdmstat = CONNECTED;
7802	}
7803	break;
7804	case 73:
7805	if (mymdmtyp == n_UCOM_AT) {
7806	spdchg(115200L);
7807	mdmstat = CONNECTED;
7808	break;
7809	} /* else fall thru */
7810	if (mymdmtyp == n_TELEBIT) /* Early models only */
7811	mdmstat = CONNECTED;
7812	break;
7813	case 85:
7814	if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2)
7815	spdchg(19200L);
7816	mdmstat = CONNECTED;
7817	break;
7818	case 91: /* 21600 */
7819	case 99: /* 24000 */
7820	case 103: /* 26400 */
7821	if (mymdmtyp == n_USRX2)
7822	mdmstat = CONNECTED;
7823	break;
7824	case 107:
7825	if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2) {
7826	spdchg(28800L);
7827	mdmstat = CONNECTED;
7828	}
7829	break;
7830	case 151: /* 312000 */
7831	case 155: /* 336000 */
7832	if (mymdmtyp == n_USRX2)
7833	mdmstat = CONNECTED;
7834	break;
7835
7836	#endif /* MINIDIAL */
7837	default:
7838	#ifndef MINIDIAL
7839	if (mymdmtyp == n_USR \|\| mymdmtyp == n_USRX2 \|\|
7840	is_hayeshispd \|\| is_rockwell)
7841	#endif /* MINIDIAL */
7842	if (i > 12) /* There are hundreds of them... */
7843	mdmstat = CONNECTED;
7844	break;
7845	}
7846	}
7847	if (mdmstat == CONNECTED && nbuf[j] != '\0') {
7848	if (dialdpy) {
7849	printf("\r\n");
7850	if (nbuf[j] == 'R') printf(" RELIABLE");
7851	if (nbuf[j] == 'L') printf(" LAPM");
7852	if (nbuf[j+1] == 'C') printf(" COMPRESSED");
7853	printf("\r\n");
7854	}
7855	ckstrncpy(lbuf,nbuf,LBUFL); /* (for messages...) */
7856	}
7857	}
7858
7859	static VOID /* Get Hayes Result in Word mode */
7860	gethrw() {
7861	char cptr, s;
7862	long conspd;
7863
7864	if (mdmspd && !network) {
7865	s = lbuf;
7866	while (s != '\0' && s != 'C') s++;
7867	cptr = (*s == 'C') ? s : NULL;
7868	conspd = 0L;
7869	if ((cptr != NULL) && !strncmp(cptr,"CONNECT ",8)) {
7870	if ((int)strlen(cptr) < 9) /* Just CONNECT, */
7871	conspd = 300L; /* use 300 bps */
7872	else if (isdigit((cptr+8))) / not CONNECT FAST */
7873	conspd = atol(cptr + 8); /* CONNECT nnnn */
7874	if (conspd != speed) {
7875	if ((conspd / 10L) > 0) {
7876	if (ttsspd((int) (conspd / 10L)) < 0) {
7877	printf(" Can't change speed to %ld\r\n",
7878	conspd);
7879	} else {
7880	speed = conspd;
7881	mdmstat = CONNECTED;
7882	if ( !quiet && !backgrd )
7883	printf(" Speed changed to %ld\r\n",
7884	conspd);
7885	}
7886	}
7887	} /* Expanded to handle any conceivable speed */
7888	}
7889	}
7890	#ifndef MINIDIAL
7891	if (mymdmtyp == n_TELEBIT) {
7892	if (didweget(lbuf,"CONNECT FAST/KERM")) {
7893	mdmstat = CONNECTED;
7894	if (dialdpy) printf("FAST/KERM ");
7895	return;
7896	}
7897	}
7898	#endif /* MINIDIAL */
7899	if (didweget(lbuf,"RRING") \|\|
7900	didweget(lbuf,"RINGING") \|\|
7901	didweget(lbuf,"DIALING")) {
7902	mdmstat = 0;
7903	} else if (didweget(lbuf,"CONNECT")) {
7904	mdmstat = CONNECTED;
7905	} else if (didweget(lbuf,"OK")) {
7906	if (partial) {
7907	mdmstat = D_PARTIAL;
7908	} else {
7909	mdmstat = D_FAILED;
7910	dialsta = DIA_ERR;
7911	}
7912	} else if (didweget(lbuf,"NO CARRIER")) {
7913	mdmstat = D_FAILED;
7914	dialsta = DIA_NOCA;
7915	} else if (didweget(lbuf,"NO DIALTONE")) {
7916	mdmstat = D_FAILED;
7917	dialsta = DIA_NODT;
7918	} else if (didweget(lbuf,"NO DIAL TONE")) {
7919	mdmstat = D_FAILED;
7920	dialsta = DIA_NODT;
7921	} else if (didweget(lbuf,"BUSY")) {
7922	mdmstat = D_FAILED;
7923	dialsta = DIA_BUSY;
7924	} else if (didweget(lbuf,"NO ANSWER")) {
7925	mdmstat = D_FAILED;
7926	dialsta = DIA_NOAN;
7927	} else if (didweget(lbuf,"VOICE")) {
7928	mdmstat = D_FAILED;
7929	dialsta = DIA_VOIC;
7930	} else if (didweget(lbuf,"VCON")) {
7931	mdmstat = D_FAILED;
7932	dialsta = DIA_VOIC;
7933	} else if (didweget(lbuf,"NO PROMPT TONE")) {
7934	mdmstat = D_FAILED;
7935	dialsta = DIA_NODT;
7936	} else if (didweget(lbuf,"REMOTE ACCESS FAILED")) {
7937	mdmstat = D_FAILED;
7938	dialsta = DIA_NOCA;
7939	} else if (didweget(lbuf,"FAX")) {
7940	mdmstat = D_FAILED;
7941	dialsta = DIA_FAX;
7942	} else if (didweget(lbuf,"WAIT - CONNECTING") \|\|
7943	didweget(lbuf,"WAIT-CONNECTING")) { /* AT&T STU-III 19xx */
7944	mdmstat = 0;
7945	} else if (didweget(lbuf,"DELAYED")) {
7946	mdmstat = D_FAILED;
7947	dialsta = DIA_DELA;
7948	} else if (didweget(lbuf,"BLACKLISTED")) {
7949	mdmstat = D_FAILED;
7950	dialsta = DIA_BLCK;
7951	} else if (didweget(lbuf,"COMPRESSION")) {
7952	mdmstat = 0;
7953	} else if (didweget(lbuf,"PROTOCOL")) {
7954	mdmstat = 0;
7955	} else if (didweget(lbuf,"DIAL LOCKED")) { /* Germany, Austria, Schweiz */
7956	mdmstat = D_FAILED;
7957	dialsta = DIA_BLCK;
7958	} else if ( didweget(lbuf,"RING") \|\|
7959	didweget(lbuf,"RING1") \|\| /* Distinctive Ring 1 */
7960	didweget(lbuf,"RING2") \|\| /* Distinctive Ring 2 */
7961	didweget(lbuf,"RING3") ) {
7962	mdmstat = (func_code == 0) ? D_FAILED : 0;
7963	dialsta = DIA_RING;
7964	} else if (didweget(lbuf,"ERROR")) {
7965	mdmstat = D_FAILED;
7966	dialsta = DIA_ERR;
7967	} else if (didweget(lbuf,"CARRIER")) { /* Boca / Rockwell family */
7968	#ifdef COMMENT
7969	if (is_rockwell)
7970	#endif /* COMMENT */
7971	mdmstat = 0;
7972	#ifdef COMMENT
7973	/* Does CARRIER ever mean the same as CONNECT? */
7974	else
7975	mdmstat = CONNECTED;
7976	#endif /* COMMENT */
7977	} else if (didweget(lbuf,"DATA")) { /* Boca / Rockwell family */
7978	/* This message is sent when the modem is in FAX mode */
7979	/* So setting this to CONNECTED may not be appropriate */
7980	/* We must send ATO\015 to the modem in response */
7981	/* Then we will get a CONNECTED message */
7982	mdmstat = CONNECTED;
7983	} else if (didweget(lbuf,"DIGITAL LINE")) {
7984	mdmstat = D_FAILED;
7985	dialsta = DIA_DIGI;
7986	} else if (didweget(lbuf,"DATE")) { /* Caller ID Date */
7987	debug(F110,"CALLID DATE",lbuf,0);
7988	/* Format is "DATE = MMDD" */
7989	makestr(&callid_date,lbuf);
7990	} else if (didweget(lbuf,"TIME")) { /* Caller ID Time */
7991	/* Format is "TIME = HHMM" */
7992	debug(F110,"CALLID TIME",lbuf,0);
7993	makestr(&callid_time,lbuf);
7994	} else if (didweget(lbuf,"NAME")) { /* Caller ID Name */
7995	/* Format is "NAME = <listing name>" */
7996	debug(F110,"CALLID NAME",lbuf,0);
7997	makestr(&callid_name,lbuf);
7998	} else if (didweget(lbuf,"NMBR")) { /* Caller ID Number */
7999	/* Format is "NMBR = <number>, 'P' or 'O'" */
8000	/* 'P' means Privacy Requested */
8001	/* 'O' means Out of Service or Not available */
8002	debug(F110,"CALLID NMBR",lbuf,0);
8003	makestr(&callid_nmbr,lbuf);
8004	} else if (didweget(lbuf,"MESG")) { /* Caller ID Unrecognized Message */
8005	/* Format is "MESG = <tag><length><data><checksum>" */
8006	debug(F110,"CALLID MESG",lbuf,0);
8007	makestr(&callid_mesg,lbuf);
8008	}
8009	}
8010
8011	/* Maybe hang up the phone, depending on various SET DIAL parameters. */
8012
8013	int
8014	dialhup() {
8015	int x = 0;
8016	if (dialhng && dialsta != DIA_PART) { /* DIAL HANGUP ON? */
8017	x = mdmhup(); /* Try modem-specific method first */
8018	debug(F101,"dialhup mdmhup","",x);
8019	if (x > 0) { /* If it worked, */
8020	dialsta = DIA_HUP;
8021	if (dialdpy)
8022	printf(" Modem hangup OK\r\n"); /* fine. */
8023	} else if (network /* If we're telnetted to */
8024	#ifdef TN_COMPORT
8025	&& !istncomport() /* (without RFC 2217) */
8026	#endif /* TN_COMPORT */
8027	) {
8028	dialsta = DIA_HANG;
8029	if (dialdpy) /* a modem server, just print a msg */
8030	printf(" WARNING - modem hangup failed\r\n"); /* don't hangup! */
8031	return(0);
8032	} else { /* Otherwise */
8033	x = tthang(); /* Tell the OS to turn off DTR. */
8034	if (x > 0) { /* Yes, tell results from tthang() */
8035	dialsta = DIA_HUP;
8036	if (dialdpy) printf(" Hangup OK\r\n");
8037	} else if (x == 0) {
8038	if (dialdpy) printf(" Hangup skipped\r\n");
8039	} else {
8040	dialsta = DIA_HANG;
8041	if (dialdpy) perror(" Hangup error");
8042	}
8043	ttflui();
8044	}
8045	} else if (dialdpy) printf(" Hangup skipped\r\n"); /* DIAL HANGUP OFF */
8046	return(x);
8047	}
8048
8049	/*
8050	M D M H U P --
8051
8052	Sends escape sequence to modem, then sends its hangup command. Returns:
8053	0: If modem type is 0 (direct serial connection),
8054	or if modem type is < 0 (network connection),
8055	or if no action taken because DIAL MODEM-HANGUP is OFF)
8056	or because no hangup string for current modem type,
8057	or C-Kermit is in remote mode,
8058	or if action taken but there was no positive response from modem;
8059	1: Success: modem is in command state and acknowledged the hangup command;
8060	-1: On modem command error.
8061	*/
8062	int
8063	mdmhup() {
8064	#ifdef MDMHUP
8065	int m, x = 0;
8066	int xparity;
8067	int savcarr;
8068	extern int ttcarr;
8069	char s, p, c;
8070	MDMINF * mp = NULL;
8071
8072	debug(F101,"mdmhup dialmhu","",dialmhu); /* MODEM-HANGUP METHOD */
8073	debug(F101,"mdmhup local","",local);
8074
8075	if (dialmhu == 0 \|\| local == 0) /* If DIAL MODEM-HANGUP is OFF, */
8076	return(0); /* or not in local mode, fail. */
8077
8078	debug(F101,"mdmhup dialsta","",dialsta);
8079	debug(F101,"mdmhup mdmset","",mdmset);
8080
8081	if (dialsta != DIA_OK && !mdmset) /* It's not a dialed connection */
8082	return(0);
8083
8084	#ifdef CK_TAPI
8085	if (tttapi && !tapipass) /* Don't hangup if using TAPI */
8086	return(0);
8087	#endif /* CK_TAPI */
8088
8089	#ifdef COMMENT
8090	/* No, we still need this for modems that ignore DTR */
8091	if (mymdmtyp == n_GENERIC && !network)
8092	return(0);
8093	#endif /* COMMENT */
8094
8095	debug(F101,"mdmhup dialesc","",dialesc);
8096	if (dialesc < 0)
8097	return(0); /* No modem escape-character, fail. */
8098
8099	savcarr = ttcarr;
8100	ttcarr = CAR_OFF;
8101	x = ttchk();
8102	ttcarr = savcarr;
8103	debug(F101,"mdmhup ttchk","",x);
8104	if (x < 0) /* There appears to be no connection */
8105	return(0);
8106	x = 0;
8107
8108	#ifdef OS2
8109	/*
8110	In OS/2, if CARRIER is OFF, and there is indeed no carrier signal, any
8111	attempt to do i/o at this point can hang the program. This might be true
8112	for other operating systems too.
8113	*/
8114	if (!network /* Not a network connection */
8115	#ifdef TN_COMPORT
8116	\|\| istncomport()
8117	#endif /* TN_COMPORT */
8118	) {
8119	m = ttgmdm(); /* Get modem signals */
8120	if ((m > -1) && (m & BM_DCD == 0)) /* Check for carrier */
8121	return(0); /* No carrier, skip the rest */
8122	}
8123	#endif /* OS2 */
8124
8125	debug(F111,"mdmhup network",ttname,network);
8126	debug(F101,"mdmhup mymdmtyp","",mymdmtyp);
8127	debug(F101,"mdmhup mdmtyp","",mdmtyp);
8128	/* In case of HANGUP before DIAL */
8129	if (network && mdmtyp < 1) /* SET HOST but no subsequent */
8130	return(0); /* SET MODEM TYPE... */
8131	if (mymdmtyp == 0 && mdmtyp > 0)
8132	mymdmtyp = mdmtyp;
8133	if (mymdmtyp < 1) /* Not using a modem */
8134	return(0);
8135	if (mymdmtyp > 0) /* An actual modem... */
8136	mp = modemp[mymdmtyp];
8137	if (!mp) { /* Get pointer to its MDMINF struct */
8138	debug(F100,"mdmhup no MDMINF","",0);
8139	return(0);
8140	}
8141	mdmcapas = dialcapas ? dialcapas : mp->capas;
8142	xx_ok = mp->ok_fn; /* Pointer to response reader */
8143
8144	s = dialhcmd ? dialhcmd : mp->hup_str; /* Get hangup command */
8145	if (!s) s = "";
8146	debug(F110,"mdmhup hup_str",s,0);
8147	if (!s) return(0); / If none, fail. */
8148
8149	if (ttpkt(speed,FLO_DIAL,parity) < 0) /* Condition line for dialing */
8150	return(-1);
8151
8152	xparity = parity; /* Set PARITY to NONE temporarily */
8153	parity = 0;
8154
8155	/* In case they gave a SET MODEM ESCAPE command recently... */
8156
8157	if (dialesc < 0 \|\| dialesc > 127)
8158	c = NUL;
8159	else
8160	c = (char) (dialesc ? dialesc : mp->esc_char);
8161
8162	if (mdmcapas & CKD_AT) { /* Hayes compatible */
8163	escbuf[0] = c;
8164	escbuf[1] = c;
8165	escbuf[2] = c;
8166	escbuf[3] = NUL;
8167	} else { /* Other */
8168	escbuf[0] = c;
8169	escbuf[1] = NUL;
8170	}
8171	debug(F110,"mdmhup escbuf",escbuf,0);
8172	if (escbuf[0]) { /* Have escape sequence? */
8173	debug(F101,"mdmhup esc_time",0,mp->esc_time);
8174	if (mp->esc_time) /* If we have a guard time */
8175	msleep(mp->esc_time); /* Pause for guard time */
8176	debug(F100,"mdmhup pause 1 OK","",0);
8177
8178	#ifdef NETCONN /* Send modem's escape sequence */
8179	if (network) { /* Must catch errors here. */
8180	if (ttol((CHAR )escbuf,(int)strlen((char )escbuf)) < 0) {
8181	parity = xparity;
8182	return(-1);
8183	}
8184	debug(F110,"mdmhup ttslow net ok",escbuf,0);
8185	} else {
8186	#endif /* NETCONN */
8187	ttslow((char )escbuf,wr); / Send escape sequence */
8188	debug(F110,"mdmhup ttslow ok",escbuf,0);
8189	#ifdef NETCONN
8190	}
8191	#endif /* NETCONN */
8192
8193	if (mp->esc_time) /* Pause for guard time again */
8194	msleep(mp->esc_time);
8195	else
8196	msleep(500); /* Wait half a sec for echoes. */
8197	debug(F100,"mdmhup pause 1 OK","",0);
8198	#ifdef COMMENT
8199	ttflui(); /* Flush response or echo, if any */
8200	debug(F100,"mdmhup ttflui OK","",0);
8201	#endif /* COMMENT */
8202	}
8203	ttslow(s,wr); /* Now Send hangup string */
8204	debug(F110,"mdmhup ttslow ok",s,0);
8205	/*
8206	This is not exactly right, but it works.
8207	If we are online:
8208	the modem says OK when it gets the escape sequence,
8209	and it says NO CARRIER when it gets the hangup command.
8210	If we are offline:
8211	the modem does NOT say OK (or anything else) when it gets the esc sequence,
8212	but it DOES say OK (and not NO CARRIER) when it gets the hangup command.
8213	So the following function should read the OK in both cases.
8214	Of course, this is somewhat Hayes-specific...
8215	*/
8216	if (xx_ok) { /* Look for OK response */
8217	debug(F100,"mdmhup calling response function","",0);
8218	x = (xx_ok)(3,1); / Give it 3 seconds, be strict. */
8219	debug(F101,"mdmhup hangup response","",x);
8220	msleep(500); /* Wait half a sec */
8221	ttflui(); /* Get rid of NO CARRIER, if any */
8222	} else { /* No OK function, */
8223	x = 1; /* so assume it worked */
8224	debug(F101,"mdmhup no ok_fn","",x);
8225	}
8226	parity = xparity; /* Restore prevailing parity */
8227	return(x); /* Return OK function's return code. */
8228
8229	#else /* MDMHUP not defined. */
8230
8231	debug(F100,"mdmhup MDMHUP not defined","",0);
8232	return(0); /* Always fail. */
8233
8234	#endif /* MDMHUP */
8235	}
8236
8237	#endif /* NOICP */
8238	#else /* NODIAL */
8239
8240	int mdmtyp = 0; /* Default modem type */
8241
8242	int /* To allow NODIAL versions to */
8243	mdmhup() { /* call mdmhup(), so calls to */
8244	return(0); /* mdmhup() need not be within */
8245	} /* #ifndef NODIAL conditionals */
8246	#endif /* NODIAL */
8247	#else
8248	int mdmtyp = 0; /* Default modem type */
8249	#endif /* NOLOCAL */

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: trunk/third/kermit/ckudia.c @ 20081

Download in other formats: