| 1 | /* pdp1_dcs.c: PDP-1D terminal multiplexor simulator\r |
| 2 | \r |
| 3 | Copyright (c) 2006, Robert M Supnik\r |
| 4 | \r |
| 5 | Permission is hereby granted, free of charge, to any person obtaining a\r |
| 6 | copy of this software and associated documentation files (the "Software"),\r |
| 7 | to deal in the Software without restriction, including without limitation\r |
| 8 | the rights to use, copy, modify, merge, publish, distribute, sublicense,\r |
| 9 | and/or sell copies of the Software, and to permit persons to whom the\r |
| 10 | Software is furnished to do so, subject to the following conditions:\r |
| 11 | \r |
| 12 | The above copyright notice and this permission notice shall be included in\r |
| 13 | all copies or substantial portions of the Software.\r |
| 14 | \r |
| 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r |
| 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r |
| 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\r |
| 18 | ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r |
| 19 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r |
| 20 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r |
| 21 | \r |
| 22 | Except as contained in this notice, the name of Robert M Supnik shall not be\r |
| 23 | used in advertising or otherwise to promote the sale, use or other dealings\r |
| 24 | in this Software without prior written authorization from Robert M Supnik.\r |
| 25 | \r |
| 26 | dcs Type 630 data communications subsystem\r |
| 27 | \r |
| 28 | This module implements up to 32 individual serial interfaces.\r |
| 29 | */\r |
| 30 | \r |
| 31 | #include "pdp1_defs.h"\r |
| 32 | #include "sim_sock.h"\r |
| 33 | #include "sim_tmxr.h"\r |
| 34 | \r |
| 35 | #define DCS_LINES 32 /* lines */\r |
| 36 | #define DCS_LINE_MASK (DCS_LINES - 1)\r |
| 37 | #define DCSL_WAIT 1000 /* output wait */\r |
| 38 | #define DCS_NUMLIN dcs_desc.lines\r |
| 39 | \r |
| 40 | int32 dcs_sbs = 0; /* SBS level */\r |
| 41 | uint32 dcs_send = 0; /* line for send */\r |
| 42 | uint32 dcs_scan = 0; /* line for scanner */\r |
| 43 | uint8 dcs_flg[DCS_LINES]; /* line flags */\r |
| 44 | uint8 dcs_buf[DCS_LINES]; /* line bufffers */\r |
| 45 | \r |
| 46 | extern int32 iosta, stop_inst;\r |
| 47 | extern int32 tmxr_poll;\r |
| 48 | \r |
| 49 | TMLN dcs_ldsc[DCS_LINES] = { 0 }; /* line descriptors */\r |
| 50 | TMXR dcs_desc = { DCS_LINES, 0, 0, dcs_ldsc }; /* mux descriptor */\r |
| 51 | \r |
| 52 | t_stat dcsi_svc (UNIT *uptr);\r |
| 53 | t_stat dcso_svc (UNIT *uptr);\r |
| 54 | t_stat dcs_reset (DEVICE *dptr);\r |
| 55 | t_stat dcs_attach (UNIT *uptr, char *cptr);\r |
| 56 | t_stat dcs_detach (UNIT *uptr);\r |
| 57 | t_stat dcs_summ (FILE *st, UNIT *uptr, int32 val, void *desc);\r |
| 58 | t_stat dcs_show (FILE *st, UNIT *uptr, int32 val, void *desc);\r |
| 59 | t_stat dcs_vlines (UNIT *uptr, int32 val, char *cptr, void *desc);\r |
| 60 | void dcs_reset_ln (int32 ln);\r |
| 61 | void dcs_scan_next (t_bool unlk);\r |
| 62 | \r |
| 63 | /* DCS data structures\r |
| 64 | \r |
| 65 | dcs_dev DCS device descriptor\r |
| 66 | dcs_unit DCS unit descriptor\r |
| 67 | dcs_reg DCS register list\r |
| 68 | dcs_mod DCS modifiers list\r |
| 69 | */\r |
| 70 | \r |
| 71 | REG dcs_nlreg = { DRDATA (NLINES, DCS_NUMLIN, 6), PV_LEFT };\r |
| 72 | \r |
| 73 | UNIT dcs_unit = { UDATA (&dcsi_svc, UNIT_ATTABLE, 0) };\r |
| 74 | \r |
| 75 | REG dcs_reg[] = {\r |
| 76 | { BRDATA (BUF, dcs_buf, 8, 8, DCS_LINES) },\r |
| 77 | { BRDATA (FLAGS, dcs_flg, 8, 1, DCS_LINES) },\r |
| 78 | { FLDATA (SCNF, iosta, IOS_V_DCS) },\r |
| 79 | { ORDATA (SCAN, dcs_scan, 5) },\r |
| 80 | { ORDATA (SEND, dcs_send, 5) },\r |
| 81 | { DRDATA (SBSLVL, dcs_sbs, 4), REG_HRO },\r |
| 82 | { NULL }\r |
| 83 | };\r |
| 84 | \r |
| 85 | MTAB dcs_mod[] = {\r |
| 86 | { MTAB_XTD|MTAB_VDV, 0, "SBSLVL", "SBSLVL",\r |
| 87 | &dev_set_sbs, &dev_show_sbs, (void *) &dcs_sbs },\r |
| 88 | { MTAB_XTD | MTAB_VDV | MTAB_VAL, 0, "lines", "LINES",\r |
| 89 | &dcs_vlines, NULL, &dcs_nlreg },\r |
| 90 | { MTAB_XTD | MTAB_VDV, 1, NULL, "DISCONNECT",\r |
| 91 | &tmxr_dscln, NULL, &dcs_desc },\r |
| 92 | { UNIT_ATT, UNIT_ATT, "connections", NULL, NULL, &dcs_summ },\r |
| 93 | { MTAB_XTD | MTAB_VDV | MTAB_NMO, 1, "CONNECTIONS", NULL,\r |
| 94 | NULL, &dcs_show, NULL },\r |
| 95 | { MTAB_XTD | MTAB_VDV | MTAB_NMO, 0, "STATISTICS", NULL,\r |
| 96 | NULL, &dcs_show, NULL },\r |
| 97 | { 0 }\r |
| 98 | };\r |
| 99 | \r |
| 100 | DEVICE dcs_dev = {\r |
| 101 | "DCS", &dcs_unit, dcs_reg, dcs_mod,\r |
| 102 | 1, 10, 31, 1, 8, 8,\r |
| 103 | &tmxr_ex, &tmxr_dep, &dcs_reset,\r |
| 104 | NULL, &dcs_attach, &dcs_detach,\r |
| 105 | NULL, DEV_NET | DEV_DISABLE | DEV_DIS\r |
| 106 | };\r |
| 107 | \r |
| 108 | /* DCSL data structures\r |
| 109 | \r |
| 110 | dcsl_dev DCSL device descriptor\r |
| 111 | dcsl_unit DCSL unit descriptor\r |
| 112 | dcsl_reg DCSL register list\r |
| 113 | dcsl_mod DCSL modifiers list\r |
| 114 | */\r |
| 115 | \r |
| 116 | UNIT dcsl_unit[] = {\r |
| 117 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 118 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 119 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 120 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 121 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 122 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 123 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 124 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 125 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 126 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 127 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 128 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 129 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 130 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 131 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 132 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 133 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 134 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 135 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 136 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 137 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 138 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 139 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 140 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 141 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 142 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 143 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 144 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 145 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 146 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 147 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT },\r |
| 148 | { UDATA (&dcso_svc, TT_MODE_UC, 0), DCSL_WAIT }\r |
| 149 | };\r |
| 150 | \r |
| 151 | MTAB dcsl_mod[] = {\r |
| 152 | { TT_MODE, TT_MODE_UC, "UC", "UC", NULL },\r |
| 153 | { TT_MODE, TT_MODE_7B, "7b", "7B", NULL },\r |
| 154 | { TT_MODE, TT_MODE_8B, "8b", "8B", NULL },\r |
| 155 | { TT_MODE, TT_MODE_7P, "7p", "7P", NULL },\r |
| 156 | { MTAB_XTD|MTAB_VUN, 0, NULL, "DISCONNECT",\r |
| 157 | &tmxr_dscln, NULL, &dcs_desc },\r |
| 158 | { MTAB_XTD|MTAB_VUN|MTAB_NC, 0, "LOG", "LOG",\r |
| 159 | &tmxr_set_log, &tmxr_show_log, &dcs_desc },\r |
| 160 | { MTAB_XTD|MTAB_VUN|MTAB_NC, 0, NULL, "NOLOG",\r |
| 161 | &tmxr_set_nolog, NULL, &dcs_desc },\r |
| 162 | { 0 }\r |
| 163 | };\r |
| 164 | \r |
| 165 | REG dcsl_reg[] = {\r |
| 166 | { URDATA (TIME, dcsl_unit[0].wait, 10, 24, 0,\r |
| 167 | DCS_LINES, REG_NZ + PV_LEFT) },\r |
| 168 | { NULL }\r |
| 169 | };\r |
| 170 | \r |
| 171 | DEVICE dcsl_dev = {\r |
| 172 | "DCSL", dcsl_unit, dcsl_reg, dcsl_mod,\r |
| 173 | DCS_LINES, 10, 31, 1, 8, 8,\r |
| 174 | NULL, NULL, &dcs_reset,\r |
| 175 | NULL, NULL, NULL,\r |
| 176 | NULL, DEV_DIS\r |
| 177 | };\r |
| 178 | \r |
| 179 | /* DCS IOT routine */\r |
| 180 | \r |
| 181 | int32 dcs (int32 inst, int32 dev, int32 dat)\r |
| 182 | {\r |
| 183 | int32 pls = (inst >> 6) & 077;\r |
| 184 | \r |
| 185 | if (dcs_dev.flags & DEV_DIS) /* disabled? */\r |
| 186 | return (stop_inst << IOT_V_REASON) | dat; /* illegal inst */\r |
| 187 | if (pls & 020) dat = 0; /* pulse 20? clr IO */\r |
| 188 | \r |
| 189 | switch (pls & 057) { /* case IR<6,8:11> */\r |
| 190 | \r |
| 191 | case 000: /* RCH */\r |
| 192 | dat |= dcs_buf[dcs_scan]; /* return line buf */\r |
| 193 | dcs_flg[dcs_scan] = 0; /* clr line flag */\r |
| 194 | break;\r |
| 195 | \r |
| 196 | case 001: /* RRC */\r |
| 197 | dat |= dcs_scan; /* return line num */\r |
| 198 | break;\r |
| 199 | \r |
| 200 | case 010: /* RCC */\r |
| 201 | dat |= dcs_buf[dcs_scan]; /* return line buf */\r |
| 202 | dcs_flg[dcs_scan] = 0; /* clr line flag */\r |
| 203 | /* fall through */\r |
| 204 | case 011: /* RSC */\r |
| 205 | dcs_scan_next (TRUE); /* unlock scanner */\r |
| 206 | break;\r |
| 207 | \r |
| 208 | case 040: /* TCB */\r |
| 209 | dcs_buf[dcs_send] = dat & 0377; /* load buffer */\r |
| 210 | dcs_flg[dcs_send] = 0; /* clr line flag */\r |
| 211 | sim_activate (&dcsl_unit[dcs_send], dcsl_unit[dcs_send].wait);\r |
| 212 | break;\r |
| 213 | \r |
| 214 | case 041: /* SSB */\r |
| 215 | dcs_send = dat & DCS_LINE_MASK; /* load line num */\r |
| 216 | break;\r |
| 217 | \r |
| 218 | case 050: /* TCC */\r |
| 219 | dcs_buf[dcs_scan] = dat & 0377; /* load buffer */\r |
| 220 | dcs_flg[dcs_scan] = 0; /* clr line flag */\r |
| 221 | sim_activate (&dcsl_unit[dcs_scan], dcsl_unit[dcs_scan].wait);\r |
| 222 | dcs_scan_next (TRUE); /* unlock scanner */\r |
| 223 | break;\r |
| 224 | \r |
| 225 | default:\r |
| 226 | return (stop_inst << IOT_V_REASON) | dat; /* illegal inst */\r |
| 227 | } /* end case */\r |
| 228 | \r |
| 229 | return dat;\r |
| 230 | }\r |
| 231 | \r |
| 232 | /* Unit service - receive side\r |
| 233 | \r |
| 234 | Poll all active lines for input\r |
| 235 | Poll for new connections\r |
| 236 | */\r |
| 237 | \r |
| 238 | t_stat dcsi_svc (UNIT *uptr)\r |
| 239 | {\r |
| 240 | int32 ln, c, out;\r |
| 241 | \r |
| 242 | if ((uptr->flags & UNIT_ATT) == 0) return SCPE_OK; /* attached? */\r |
| 243 | if (dcs_dev.flags & DEV_DIS) return SCPE_OK;\r |
| 244 | sim_activate (uptr, tmxr_poll); /* continue poll */\r |
| 245 | ln = tmxr_poll_conn (&dcs_desc); /* look for connect */\r |
| 246 | if (ln >= 0) { /* got one? */\r |
| 247 | dcs_ldsc[ln].rcve = 1; /* set rcv enable */\r |
| 248 | }\r |
| 249 | tmxr_poll_rx (&dcs_desc); /* poll for input */\r |
| 250 | for (ln = 0; ln < DCS_NUMLIN; ln++) { /* loop thru lines */\r |
| 251 | if (dcs_ldsc[ln].conn) { /* connected? */\r |
| 252 | if (c = tmxr_getc_ln (&dcs_ldsc[ln])) { /* get char */\r |
| 253 | if (c & SCPE_BREAK) c = 0; /* break? */\r |
| 254 | else c = sim_tt_inpcvt (c, TT_GET_MODE (dcsl_unit[ln].flags)|TTUF_KSR);\r |
| 255 | dcs_buf[ln] = c; /* save char */\r |
| 256 | dcs_flg[ln] = 1; /* set line flag */\r |
| 257 | dcs_scan_next (FALSE); /* kick scanner */\r |
| 258 | out = sim_tt_outcvt (c & 0177, TT_GET_MODE (dcsl_unit[ln].flags));\r |
| 259 | if (out >= 0) {\r |
| 260 | tmxr_putc_ln (&dcs_ldsc[ln], out); /* echo char */\r |
| 261 | tmxr_poll_tx (&dcs_desc); /* poll xmt */\r |
| 262 | }\r |
| 263 | }\r |
| 264 | }\r |
| 265 | else dcs_ldsc[ln].rcve = 0; /* disconnected */\r |
| 266 | } /* end for */\r |
| 267 | return SCPE_OK;\r |
| 268 | }\r |
| 269 | \r |
| 270 | /* Unit service - transmit side */\r |
| 271 | \r |
| 272 | t_stat dcso_svc (UNIT *uptr)\r |
| 273 | {\r |
| 274 | int32 c;\r |
| 275 | uint32 ln = uptr - dcsl_unit; /* line # */\r |
| 276 | \r |
| 277 | if (dcs_dev.flags & DEV_DIS) return SCPE_OK;\r |
| 278 | if (dcs_ldsc[ln].conn) { /* connected? */\r |
| 279 | if (dcs_ldsc[ln].xmte) { /* xmt enabled? */\r |
| 280 | c = sim_tt_outcvt (dcs_buf[ln] & 0177, TT_GET_MODE (uptr->flags));\r |
| 281 | if (c >= 0) tmxr_putc_ln (&dcs_ldsc[ln], c); /* output char */\r |
| 282 | tmxr_poll_tx (&dcs_desc); /* poll xmt */\r |
| 283 | }\r |
| 284 | else { /* buf full */\r |
| 285 | tmxr_poll_tx (&dcs_desc); /* poll xmt */\r |
| 286 | sim_activate (uptr, uptr->wait); /* reschedule */\r |
| 287 | return SCPE_OK;\r |
| 288 | }\r |
| 289 | }\r |
| 290 | dcs_flg[ln] = 1; /* set line flag */\r |
| 291 | dcs_scan_next (FALSE); /* kick scanner */\r |
| 292 | return SCPE_OK;\r |
| 293 | }\r |
| 294 | \r |
| 295 | /* Kick scanner */\r |
| 296 | \r |
| 297 | void dcs_scan_next (t_bool unlk)\r |
| 298 | {\r |
| 299 | int32 i;\r |
| 300 | \r |
| 301 | if (unlk) iosta &= ~IOS_DCS; /* unlock? */\r |
| 302 | else if (iosta & IOS_DCS) return; /* no, locked? */\r |
| 303 | for (i = 0; i < DCS_LINES; i++) { /* scan flags */\r |
| 304 | dcs_scan = (dcs_scan + 1) & DCS_LINE_MASK; /* next flag */\r |
| 305 | if (dcs_flg[dcs_scan] != 0) { /* flag set? */\r |
| 306 | iosta |= IOS_DCS; /* lock scanner */\r |
| 307 | dev_req_int (dcs_sbs); /* request intr */\r |
| 308 | return;\r |
| 309 | }\r |
| 310 | }\r |
| 311 | return;\r |
| 312 | }\r |
| 313 | \r |
| 314 | /* Reset routine */\r |
| 315 | \r |
| 316 | t_stat dcs_reset (DEVICE *dptr)\r |
| 317 | {\r |
| 318 | int32 i;\r |
| 319 | \r |
| 320 | if (dcs_dev.flags & DEV_DIS) /* master disabled? */\r |
| 321 | dcsl_dev.flags = dcsl_dev.flags | DEV_DIS; /* disable lines */\r |
| 322 | else dcsl_dev.flags = dcsl_dev.flags & ~DEV_DIS;\r |
| 323 | if (dcs_unit.flags & UNIT_ATT) /* master att? */\r |
| 324 | sim_activate_abs (&dcs_unit, tmxr_poll); /* activate */\r |
| 325 | else sim_cancel (&dcs_unit); /* else stop */\r |
| 326 | for (i = 0; i < DCS_LINES; i++) dcs_reset_ln (i); /* reset lines */\r |
| 327 | dcs_send = 0;\r |
| 328 | dcs_scan = 0;\r |
| 329 | iosta &= ~IOS_DCS; /* clr intr req */\r |
| 330 | return SCPE_OK;\r |
| 331 | }\r |
| 332 | \r |
| 333 | /* Attach master unit */\r |
| 334 | \r |
| 335 | t_stat dcs_attach (UNIT *uptr, char *cptr)\r |
| 336 | {\r |
| 337 | t_stat r;\r |
| 338 | \r |
| 339 | r = tmxr_attach (&dcs_desc, uptr, cptr); /* attach */\r |
| 340 | if (r != SCPE_OK) return r; /* error */\r |
| 341 | sim_activate_abs (uptr, tmxr_poll); /* start poll */\r |
| 342 | return SCPE_OK;\r |
| 343 | }\r |
| 344 | \r |
| 345 | /* Detach master unit */\r |
| 346 | \r |
| 347 | t_stat dcs_detach (UNIT *uptr)\r |
| 348 | {\r |
| 349 | int32 i;\r |
| 350 | t_stat r;\r |
| 351 | \r |
| 352 | r = tmxr_detach (&dcs_desc, uptr); /* detach */\r |
| 353 | for (i = 0; i < DCS_LINES; i++) dcs_ldsc[i].rcve = 0; /* disable rcv */\r |
| 354 | sim_cancel (uptr); /* stop poll */\r |
| 355 | return r;\r |
| 356 | }\r |
| 357 | \r |
| 358 | /* Show summary processor */\r |
| 359 | \r |
| 360 | t_stat dcs_summ (FILE *st, UNIT *uptr, int32 val, void *desc)\r |
| 361 | {\r |
| 362 | int32 i, t;\r |
| 363 | \r |
| 364 | for (i = t = 0; i < DCS_LINES; i++) t = t + (dcs_ldsc[i].conn != 0);\r |
| 365 | if (t == 1) fprintf (st, "1 connection");\r |
| 366 | else fprintf (st, "%d connections", t);\r |
| 367 | return SCPE_OK;\r |
| 368 | }\r |
| 369 | \r |
| 370 | /* SHOW CONN/STAT processor */\r |
| 371 | \r |
| 372 | t_stat dcs_show (FILE *st, UNIT *uptr, int32 val, void *desc)\r |
| 373 | {\r |
| 374 | int32 i, t;\r |
| 375 | \r |
| 376 | for (i = t = 0; i < DCS_LINES; i++) t = t + (dcs_ldsc[i].conn != 0);\r |
| 377 | if (t) {\r |
| 378 | for (i = 0; i < DCS_LINES; i++) {\r |
| 379 | if (dcs_ldsc[i].conn) {\r |
| 380 | if (val) tmxr_fconns (st, &dcs_ldsc[i], i);\r |
| 381 | else tmxr_fstats (st, &dcs_ldsc[i], i);\r |
| 382 | }\r |
| 383 | }\r |
| 384 | }\r |
| 385 | else fprintf (st, "all disconnected\n");\r |
| 386 | return SCPE_OK;\r |
| 387 | }\r |
| 388 | \r |
| 389 | /* Change number of lines */\r |
| 390 | \r |
| 391 | t_stat dcs_vlines (UNIT *uptr, int32 val, char *cptr, void *desc)\r |
| 392 | {\r |
| 393 | int32 newln, i, t;\r |
| 394 | t_stat r;\r |
| 395 | \r |
| 396 | if (cptr == NULL) return SCPE_ARG;\r |
| 397 | newln = get_uint (cptr, 10, DCS_LINES, &r);\r |
| 398 | if ((r != SCPE_OK) || (newln == DCS_NUMLIN)) return r;\r |
| 399 | if (newln == 0) return SCPE_ARG;\r |
| 400 | if (newln < DCS_LINES) {\r |
| 401 | for (i = newln, t = 0; i < DCS_NUMLIN; i++) t = t | dcs_ldsc[i].conn;\r |
| 402 | if (t && !get_yn ("This will disconnect users; proceed [N]?", FALSE))\r |
| 403 | return SCPE_OK;\r |
| 404 | for (i = newln; i < DCS_NUMLIN; i++) {\r |
| 405 | if (dcs_ldsc[i].conn) {\r |
| 406 | tmxr_linemsg (&dcs_ldsc[i], "\r\nOperator disconnected line\r\n");\r |
| 407 | tmxr_reset_ln (&dcs_ldsc[i]); /* reset line */\r |
| 408 | }\r |
| 409 | dcsl_unit[i].flags = dcsl_unit[i].flags | UNIT_DIS;\r |
| 410 | dcs_reset_ln (i);\r |
| 411 | }\r |
| 412 | }\r |
| 413 | else {\r |
| 414 | for (i = DCS_NUMLIN; i < newln; i++) {\r |
| 415 | dcsl_unit[i].flags = dcsl_unit[i].flags & ~UNIT_DIS;\r |
| 416 | dcs_reset_ln (i);\r |
| 417 | }\r |
| 418 | }\r |
| 419 | DCS_NUMLIN = newln;\r |
| 420 | return SCPE_OK;\r |
| 421 | }\r |
| 422 | \r |
| 423 | /* Reset an individual line */\r |
| 424 | \r |
| 425 | void dcs_reset_ln (int32 ln)\r |
| 426 | {\r |
| 427 | sim_cancel (&dcsl_unit[ln]);\r |
| 428 | dcs_buf[ln] = 0;\r |
| 429 | dcs_flg[ln] = 0;\r |
| 430 | return;\r |
| 431 | }\r |