ckudia.c

   1 #include "ckcsym.h"
   2 char *dialv = "Dial Command, 9.0.160, 16 Oct 2009";
   3
   4 /*  C K U D I A  --  Module for automatic modem dialing. */
   5
   6 /*
   7   Copyright (C) 1985, 2009,
   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     "AT*F3\015",                        /* hwfc_str */
3381     "AT*F2\015",                        /* swfc_str */
3382     "AT*F0\015",                        /* nofc_str */
3383     "AT*E6\015",                        /* ec_on_str */
3384     "AT*E0\015",                        /* ec_off_str */
3385     "AT*E9\015",                        /* dc_on_str */
3386     "AT*E0\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     "ATZQ0E1V1X4Y0*DE22*MM0&C1&M0&S0&D2\015", /* wake_str */
3962 #else
3963 #ifdef VMS
3964     "ATZQ0E1V1X4Y0*DE22*MM0&C1&M0&S1\015", /* wake_str */
3965 #else
3966     "ATZQ0E1V1X4Y0*DE22*MM0&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     "AT*MF1*FL3\015",                   /* hwfc_str */
3979     "AT*MF1*FL1\015",                   /* swfc_str */
3980     "AT*MF0*FL0\015",                   /* nofc_str */
3981     "AT*EC0*SM3*SC0\015",               /* ec_on_str */
3982     "AT*SM0\015",                       /* ec_off_str */
3983     "AT*DC1\015",                       /* dc_on_str */
3984     "AT*DC0\015",                       /* dc_off_str */
3985     "AT*AA5S0=1\015",                   /* aa_on_str */
3986     "AT*AA5S0=0\015",                   /* aa_off_str */
3987     "AT*SC1\015",                       /* sb_on_str */
3988     "AT*SC0\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     "ATX3*BD2\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&D2*MM16\015",       /* wake_str */
4062 #else
4063 #ifdef VMS
4064     "ATQ0V1X4&S1&C1&D2*MM16\015",       /* wake_str */
4065 #else
4066     "ATQ0V1X4&C1&D2*MM16\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 */