| 1 | /* pdp15_ttx.c: PDP-15 additional terminals simulator\r |
| 2 | \r |
| 3 | Copyright (c) 1993-2007, 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 | ttix,ttox LT15/LT19 terminal input/output\r |
| 27 | \r |
| 28 | 18-Jun-07 RMS Added UNIT_IDLE flag\r |
| 29 | 30-Sep-06 RMS Fixed handling of non-printable characters in KSR mode\r |
| 30 | 22-Nov-05 RMS Revised for new terminal processing routines\r |
| 31 | 29-Jun-05 RMS Added SET TTOXn DISCONNECT\r |
| 32 | 21-Jun-05 RMS Fixed bug in SHOW CONN/STATS\r |
| 33 | 14-Jan-04 RMS Cloned from pdp8_ttx.c\r |
| 34 | \r |
| 35 | This module implements 16 individual serial interfaces similar in function\r |
| 36 | to the console. These interfaces are mapped to Telnet based connections as\r |
| 37 | though they were the four lines of a terminal multiplexor. The connection\r |
| 38 | polling mechanism is superimposed onto the keyboard of the first interface.\r |
| 39 | */\r |
| 40 | \r |
| 41 | #include "pdp18b_defs.h"\r |
| 42 | #include "sim_sock.h"\r |
| 43 | #include "sim_tmxr.h"\r |
| 44 | #include <ctype.h>\r |
| 45 | \r |
| 46 | #if defined (PDP15)\r |
| 47 | #define TTX_MAXL 16 /* max number of lines */\r |
| 48 | #elif defined (PDP9)\r |
| 49 | #define TTX_MAXL 4\r |
| 50 | #else\r |
| 51 | #define TTX_MAXL 1\r |
| 52 | #endif\r |
| 53 | \r |
| 54 | uint32 ttix_done = 0; /* input flags */\r |
| 55 | uint32 ttox_done = 0; /* output flags */\r |
| 56 | uint8 ttix_buf[TTX_MAXL] = { 0 }; /* input buffers */\r |
| 57 | uint8 ttox_buf[TTX_MAXL] = { 0 }; /* output buffers */\r |
| 58 | TMLN ttx_ldsc[TTX_MAXL] = { 0 }; /* line descriptors */\r |
| 59 | TMXR ttx_desc = { 1, 0, 0, ttx_ldsc }; /* mux descriptor */\r |
| 60 | #define ttx_lines ttx_desc.lines /* current number of lines */\r |
| 61 | \r |
| 62 | extern int32 int_hwre[API_HLVL+1];\r |
| 63 | extern int32 tmxr_poll;\r |
| 64 | extern int32 stop_inst;\r |
| 65 | \r |
| 66 | DEVICE ttix_dev, ttox_dev;\r |
| 67 | int32 ttix (int32 dev, int32 pulse, int32 dat);\r |
| 68 | int32 ttox (int32 dev, int32 pulse, int32 dat);\r |
| 69 | t_stat ttix_svc (UNIT *uptr);\r |
| 70 | t_bool ttix_test_done (int32 ln);\r |
| 71 | void ttix_set_done (int32 ln);\r |
| 72 | void ttix_clr_done (int32 ln);\r |
| 73 | t_stat ttox_svc (UNIT *uptr);\r |
| 74 | t_bool ttox_test_done (int32 ln);\r |
| 75 | void ttox_set_done (int32 ln);\r |
| 76 | void ttox_clr_done (int32 ln);\r |
| 77 | int32 ttx_getln (int32 dev, int32 pulse);\r |
| 78 | t_stat ttx_attach (UNIT *uptr, char *cptr);\r |
| 79 | t_stat ttx_detach (UNIT *uptr);\r |
| 80 | t_stat ttx_reset (DEVICE *dptr);\r |
| 81 | void ttx_reset_ln (int32 i);\r |
| 82 | t_stat ttx_summ (FILE *st, UNIT *uptr, int32 val, void *desc);\r |
| 83 | t_stat ttx_show (FILE *st, UNIT *uptr, int32 val, void *desc);\r |
| 84 | t_stat ttx_vlines (UNIT *uptr, int32 val, char *cptr, void *desc);\r |
| 85 | \r |
| 86 | /* TTIx data structures\r |
| 87 | \r |
| 88 | ttix_dev TTIx device descriptor\r |
| 89 | ttix_unit TTIx unit descriptor\r |
| 90 | ttix_reg TTIx register list\r |
| 91 | ttix_mod TTIx modifiers list\r |
| 92 | */\r |
| 93 | \r |
| 94 | DIB ttix_dib = { \r |
| 95 | DEV_TTO1, 8, NULL,\r |
| 96 | { &ttox, &ttix, &ttox, &ttix, &ttox, &ttix, &ttox, &ttix }\r |
| 97 | };\r |
| 98 | \r |
| 99 | UNIT ttix_unit = { UDATA (&ttix_svc, UNIT_IDLE|UNIT_ATTABLE, 0), KBD_POLL_WAIT };\r |
| 100 | \r |
| 101 | REG ttx_nlreg = { DRDATA (NLINES, ttx_lines, 4), PV_LEFT };\r |
| 102 | \r |
| 103 | REG ttix_reg[] = {\r |
| 104 | { BRDATA (BUF, ttix_buf, 8, 8, TTX_MAXL) },\r |
| 105 | { ORDATA (DONE, ttix_done, TTX_MAXL) },\r |
| 106 | { FLDATA (INT, int_hwre[API_TTI1], INT_V_TTI1) },\r |
| 107 | { DRDATA (TIME, ttix_unit.wait, 24), REG_NZ + PV_LEFT },\r |
| 108 | { ORDATA (DEVNUM, ttix_dib.dev, 6), REG_HRO },\r |
| 109 | { NULL }\r |
| 110 | };\r |
| 111 | \r |
| 112 | MTAB ttix_mod[] = {\r |
| 113 | { MTAB_XTD | MTAB_VDV | MTAB_VAL, 0, "lines", "LINES",\r |
| 114 | &ttx_vlines, NULL, &ttx_nlreg },\r |
| 115 | { UNIT_ATT, UNIT_ATT, "summary", NULL, NULL, &ttx_summ },\r |
| 116 | { MTAB_XTD | MTAB_VDV, 1, NULL, "DISCONNECT",\r |
| 117 | &tmxr_dscln, NULL, &ttx_desc },\r |
| 118 | { MTAB_XTD | MTAB_VDV | MTAB_NMO, 1, "CONNECTIONS", NULL,\r |
| 119 | NULL, &ttx_show, NULL },\r |
| 120 | { MTAB_XTD | MTAB_VDV | MTAB_NMO, 0, "STATISTICS", NULL,\r |
| 121 | NULL, &ttx_show, NULL },\r |
| 122 | { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO",\r |
| 123 | &set_devno, &show_devno, NULL },\r |
| 124 | { 0 }\r |
| 125 | };\r |
| 126 | \r |
| 127 | DEVICE tti1_dev = {\r |
| 128 | "TTIX", &ttix_unit, ttix_reg, ttix_mod,\r |
| 129 | 1, 10, 31, 1, 8, 8,\r |
| 130 | &tmxr_ex, &tmxr_dep, &ttx_reset,\r |
| 131 | NULL, &ttx_attach, &ttx_detach,\r |
| 132 | &ttix_dib, DEV_NET | DEV_DISABLE\r |
| 133 | };\r |
| 134 | \r |
| 135 | /* TTOx data structures\r |
| 136 | \r |
| 137 | ttox_dev TTOx device descriptor\r |
| 138 | ttox_unit TTOx unit descriptor\r |
| 139 | ttox_reg TTOx register list\r |
| 140 | */\r |
| 141 | \r |
| 142 | UNIT ttox_unit[] = {\r |
| 143 | { UDATA (&ttox_svc, TT_MODE_KSR, 0), SERIAL_OUT_WAIT },\r |
| 144 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 145 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 146 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 147 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 148 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 149 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 150 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 151 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 152 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 153 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 154 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 155 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 156 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 157 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT },\r |
| 158 | { UDATA (&ttox_svc, TT_MODE_KSR+UNIT_DIS, 0), SERIAL_OUT_WAIT }\r |
| 159 | };\r |
| 160 | \r |
| 161 | REG ttox_reg[] = {\r |
| 162 | { BRDATA (BUF, ttox_buf, 8, 8, TTX_MAXL) },\r |
| 163 | { ORDATA (DONE, ttox_done, TTX_MAXL) },\r |
| 164 | { FLDATA (INT, int_hwre[API_TTO1], INT_V_TTO1) },\r |
| 165 | { URDATA (TIME, ttox_unit[0].wait, 10, 24, 0,\r |
| 166 | TTX_MAXL, PV_LEFT) },\r |
| 167 | { NULL }\r |
| 168 | };\r |
| 169 | \r |
| 170 | MTAB ttox_mod[] = {\r |
| 171 | { TT_MODE, TT_MODE_KSR, "KSR", "KSR", NULL },\r |
| 172 | { TT_MODE, TT_MODE_7B, "7b", "7B", NULL },\r |
| 173 | { TT_MODE, TT_MODE_8B, "8b", "8B", NULL },\r |
| 174 | { TT_MODE, TT_MODE_7P, "7p", "7P", NULL },\r |
| 175 | { MTAB_XTD|MTAB_VUN, 0, NULL, "DISCONNECT",\r |
| 176 | &tmxr_dscln, NULL, &ttx_desc },\r |
| 177 | { MTAB_XTD|MTAB_VUN|MTAB_NC, 0, "LOG", "LOG",\r |
| 178 | &tmxr_set_log, &tmxr_show_log, &ttx_desc },\r |
| 179 | { MTAB_XTD|MTAB_VUN|MTAB_NC, 0, NULL, "NOLOG",\r |
| 180 | &tmxr_set_nolog, NULL, &ttx_desc },\r |
| 181 | { 0 }\r |
| 182 | };\r |
| 183 | \r |
| 184 | DEVICE tto1_dev = {\r |
| 185 | "TTOX", ttox_unit, ttox_reg, ttox_mod,\r |
| 186 | TTX_MAXL, 10, 31, 1, 8, 8,\r |
| 187 | NULL, NULL, &ttx_reset, \r |
| 188 | NULL, NULL, NULL,\r |
| 189 | NULL, DEV_DISABLE\r |
| 190 | };\r |
| 191 | \r |
| 192 | /* Terminal input: IOT routine */\r |
| 193 | \r |
| 194 | int32 ttix (int32 dev, int32 pulse, int32 dat)\r |
| 195 | {\r |
| 196 | int32 ln = ttx_getln (dev, pulse); /* line # */\r |
| 197 | \r |
| 198 | if (ln > ttx_lines) return dat;\r |
| 199 | if (pulse & 001) { /* KSF1 */\r |
| 200 | if (ttix_test_done (ln)) dat = dat | IOT_SKP;\r |
| 201 | }\r |
| 202 | if (pulse & 002) { /* KRB1 */\r |
| 203 | ttix_clr_done (ln); /* clear flag */\r |
| 204 | dat = dat | ttix_buf[ln]; /* return buffer */\r |
| 205 | }\r |
| 206 | return dat;\r |
| 207 | }\r |
| 208 | \r |
| 209 | /* Unit service */\r |
| 210 | \r |
| 211 | t_stat ttix_svc (UNIT *uptr)\r |
| 212 | {\r |
| 213 | int32 ln, c, temp;\r |
| 214 | \r |
| 215 | if ((uptr->flags & UNIT_ATT) == 0) return SCPE_OK; /* attached? */\r |
| 216 | sim_activate (uptr, tmxr_poll); /* continue poll */\r |
| 217 | ln = tmxr_poll_conn (&ttx_desc); /* look for connect */\r |
| 218 | if (ln >= 0) ttx_ldsc[ln].rcve = 1; /* got one? rcv enab */\r |
| 219 | tmxr_poll_rx (&ttx_desc); /* poll for input */\r |
| 220 | for (ln = 0; ln < TTX_MAXL; ln++) { /* loop thru lines */\r |
| 221 | if (ttx_ldsc[ln].conn) { /* connected? */\r |
| 222 | if (temp = tmxr_getc_ln (&ttx_ldsc[ln])) { /* get char */\r |
| 223 | if (temp & SCPE_BREAK) c = 0; /* break? */\r |
| 224 | else c = sim_tt_inpcvt (temp, TT_GET_MODE (ttox_unit[ln].flags) | TTUF_KSR);\r |
| 225 | ttix_buf[ln] = c;\r |
| 226 | ttix_set_done (ln);\r |
| 227 | }\r |
| 228 | }\r |
| 229 | }\r |
| 230 | return SCPE_OK;\r |
| 231 | }\r |
| 232 | \r |
| 233 | /* Interrupt handling routines */\r |
| 234 | \r |
| 235 | t_bool ttix_test_done (int32 ln)\r |
| 236 | {\r |
| 237 | if (ttix_done & (1 << ln)) return TRUE;\r |
| 238 | return FALSE;\r |
| 239 | }\r |
| 240 | \r |
| 241 | void ttix_set_done (int32 ln)\r |
| 242 | {\r |
| 243 | ttix_done = ttix_done | (1 << ln);\r |
| 244 | SET_INT (TTI1);\r |
| 245 | return;\r |
| 246 | }\r |
| 247 | \r |
| 248 | void ttix_clr_done (int32 ln)\r |
| 249 | {\r |
| 250 | ttix_done = ttix_done & ~(1 << ln);\r |
| 251 | if (ttix_done) { SET_INT (TTI1); }\r |
| 252 | else {\r |
| 253 | CLR_INT (TTI1);\r |
| 254 | }\r |
| 255 | return;\r |
| 256 | }\r |
| 257 | \r |
| 258 | /* Terminal output: IOT routine */\r |
| 259 | \r |
| 260 | int32 ttox (int32 dev, int32 pulse, int32 dat)\r |
| 261 | {\r |
| 262 | int32 ln = ttx_getln (dev, pulse); /* line # */\r |
| 263 | \r |
| 264 | if (ln > ttx_lines) return dat;\r |
| 265 | if (pulse & 001) { /* TSF */\r |
| 266 | if (ttox_test_done (ln)) dat = dat | IOT_SKP;\r |
| 267 | }\r |
| 268 | if (pulse & 002) ttox_clr_done (ln); /* clear flag */\r |
| 269 | if (pulse & 004) { /* load buffer */\r |
| 270 | sim_activate (&ttox_unit[ln], ttox_unit[ln].wait); /* activate unit */\r |
| 271 | ttox_buf[ln] = dat & 0377; /* load buffer */\r |
| 272 | }\r |
| 273 | return dat;\r |
| 274 | }\r |
| 275 | \r |
| 276 | /* Unit service */\r |
| 277 | \r |
| 278 | t_stat ttox_svc (UNIT *uptr)\r |
| 279 | {\r |
| 280 | int32 c, ln = uptr - ttox_unit; /* line # */\r |
| 281 | \r |
| 282 | if (ttx_ldsc[ln].conn) { /* connected? */\r |
| 283 | if (ttx_ldsc[ln].xmte) { /* tx enabled? */\r |
| 284 | TMLN *lp = &ttx_ldsc[ln]; /* get line */\r |
| 285 | c = sim_tt_outcvt (ttox_buf[ln], TT_GET_MODE (ttox_unit[ln].flags) | TTUF_KSR);\r |
| 286 | if (c >= 0) tmxr_putc_ln (lp, c); /* output char */\r |
| 287 | tmxr_poll_tx (&ttx_desc); /* poll xmt */\r |
| 288 | }\r |
| 289 | else {\r |
| 290 | tmxr_poll_tx (&ttx_desc); /* poll xmt */\r |
| 291 | sim_activate (uptr, ttox_unit[ln].wait); /* wait */\r |
| 292 | return SCPE_OK;\r |
| 293 | }\r |
| 294 | }\r |
| 295 | ttox_set_done (ln); /* set done */\r |
| 296 | return SCPE_OK;\r |
| 297 | }\r |
| 298 | \r |
| 299 | /* Interrupt handling routines */\r |
| 300 | \r |
| 301 | t_bool ttox_test_done (int32 ln)\r |
| 302 | {\r |
| 303 | if (ttox_done & (1 << ln)) return TRUE;\r |
| 304 | return FALSE;\r |
| 305 | }\r |
| 306 | \r |
| 307 | void ttox_set_done (int32 ln)\r |
| 308 | {\r |
| 309 | ttox_done = ttox_done | (1 << ln);\r |
| 310 | SET_INT (TTO1);\r |
| 311 | return;\r |
| 312 | }\r |
| 313 | \r |
| 314 | void ttox_clr_done (int32 ln)\r |
| 315 | {\r |
| 316 | ttox_done = ttox_done & ~(1 << ln);\r |
| 317 | if (ttox_done) { SET_INT (TTO1); }\r |
| 318 | else { CLR_INT (TTO1); }\r |
| 319 | return;\r |
| 320 | }\r |
| 321 | \r |
| 322 | /* Compute relative line number\r |
| 323 | \r |
| 324 | This algorithm does not assign contiguous line numbers of ascending\r |
| 325 | LT19's. Rather, line numbers follow a simple progression based on\r |
| 326 | the relative IOT number and the subdevice select */\r |
| 327 | \r |
| 328 | int32 ttx_getln (int32 dev, int32 pulse)\r |
| 329 | {\r |
| 330 | int32 rdno = ((dev - ttix_dib.dev) >> 1) & 3;\r |
| 331 | \r |
| 332 | #if defined (PDP15) /* PDP-15? */\r |
| 333 | int32 sub = (pulse >> 4) & 3;\r |
| 334 | return (rdno * 4) + sub; /* use dev, subdev */\r |
| 335 | #else /* others */ \r |
| 336 | return rdno; /* use dev only */\r |
| 337 | #endif\r |
| 338 | }\r |
| 339 | \r |
| 340 | /* Reset routine */\r |
| 341 | \r |
| 342 | t_stat ttx_reset (DEVICE *dptr)\r |
| 343 | {\r |
| 344 | int32 ln;\r |
| 345 | \r |
| 346 | if (dptr->flags & DEV_DIS) { /* sync enables */\r |
| 347 | ttix_dev.flags = ttox_dev.flags | DEV_DIS;\r |
| 348 | ttox_dev.flags = ttox_dev.flags | DEV_DIS;\r |
| 349 | }\r |
| 350 | else {\r |
| 351 | ttix_dev.flags = ttix_dev.flags & ~DEV_DIS;\r |
| 352 | ttox_dev.flags = ttox_dev.flags & ~DEV_DIS;\r |
| 353 | }\r |
| 354 | if (ttix_unit.flags & UNIT_ATT) /* if attached, */\r |
| 355 | sim_activate (&ttix_unit, tmxr_poll); /* activate */\r |
| 356 | else sim_cancel (&ttix_unit); /* else stop */\r |
| 357 | for (ln = 0; ln < TTX_MAXL; ln++) ttx_reset_ln (ln); /* for all lines */\r |
| 358 | return SCPE_OK;\r |
| 359 | }\r |
| 360 | \r |
| 361 | /* Reset line n */\r |
| 362 | \r |
| 363 | void ttx_reset_ln (int32 ln)\r |
| 364 | {\r |
| 365 | ttix_buf[ln] = 0; /* clear buf, */\r |
| 366 | ttox_buf[ln] = 0;\r |
| 367 | ttix_clr_done (ln); /* clear done */\r |
| 368 | ttox_clr_done (ln);\r |
| 369 | sim_cancel (&ttox_unit[ln]); /* stop poll */\r |
| 370 | return;\r |
| 371 | }\r |
| 372 | \r |
| 373 | /* Attach master unit */\r |
| 374 | \r |
| 375 | t_stat ttx_attach (UNIT *uptr, char *cptr)\r |
| 376 | {\r |
| 377 | t_stat r;\r |
| 378 | \r |
| 379 | r = tmxr_attach (&ttx_desc, uptr, cptr); /* attach */\r |
| 380 | if (r != SCPE_OK) return r; /* error */\r |
| 381 | sim_activate (uptr, tmxr_poll); /* start poll */\r |
| 382 | return SCPE_OK;\r |
| 383 | }\r |
| 384 | \r |
| 385 | /* Detach master unit */\r |
| 386 | \r |
| 387 | t_stat ttx_detach (UNIT *uptr)\r |
| 388 | {\r |
| 389 | int32 i;\r |
| 390 | t_stat r;\r |
| 391 | \r |
| 392 | r = tmxr_detach (&ttx_desc, uptr); /* detach */\r |
| 393 | sim_cancel (uptr); /* stop poll */\r |
| 394 | for (i = 0; i < TTX_MAXL; i++) ttx_ldsc[i].rcve = 0; /* disable rcv */\r |
| 395 | return r;\r |
| 396 | }\r |
| 397 | \r |
| 398 | /* Show summary processor */\r |
| 399 | \r |
| 400 | t_stat ttx_summ (FILE *st, UNIT *uptr, int32 val, void *desc)\r |
| 401 | {\r |
| 402 | int32 i, t;\r |
| 403 | \r |
| 404 | for (i = t = 0; i < TTX_MAXL; i++) t = t + (ttx_ldsc[i].conn != 0);\r |
| 405 | if (t == 1) fprintf (st, "1 connection");\r |
| 406 | else fprintf (st, "%d connections", t);\r |
| 407 | return SCPE_OK;\r |
| 408 | }\r |
| 409 | \r |
| 410 | /* SHOW CONN/STAT processor */\r |
| 411 | \r |
| 412 | t_stat ttx_show (FILE *st, UNIT *uptr, int32 val, void *desc)\r |
| 413 | {\r |
| 414 | int32 i, t;\r |
| 415 | \r |
| 416 | for (i = t = 0; i < TTX_MAXL; i++) t = t + (ttx_ldsc[i].conn != 0);\r |
| 417 | if (t) {\r |
| 418 | for (i = 0; i < ttx_lines; i++) {\r |
| 419 | if (ttx_ldsc[i].conn) {\r |
| 420 | if (val) tmxr_fconns (st, &ttx_ldsc[i], i);\r |
| 421 | else tmxr_fstats (st, &ttx_ldsc[i], i);\r |
| 422 | }\r |
| 423 | }\r |
| 424 | }\r |
| 425 | else fprintf (st, "all disconnected\n");\r |
| 426 | return SCPE_OK;\r |
| 427 | }\r |
| 428 | \r |
| 429 | /* Change number of lines */\r |
| 430 | \r |
| 431 | t_stat ttx_vlines (UNIT *uptr, int32 val, char *cptr, void *desc)\r |
| 432 | {\r |
| 433 | int32 newln, i, t;\r |
| 434 | t_stat r;\r |
| 435 | \r |
| 436 | if (cptr == NULL) return SCPE_ARG;\r |
| 437 | newln = get_uint (cptr, 10, TTX_MAXL, &r);\r |
| 438 | if ((r != SCPE_OK) || (newln == ttx_lines)) return r;\r |
| 439 | if (newln == 0) return SCPE_ARG;\r |
| 440 | if (newln < ttx_lines) {\r |
| 441 | for (i = newln, t = 0; i < ttx_lines; i++) t = t | ttx_ldsc[i].conn;\r |
| 442 | if (t && !get_yn ("This will disconnect users; proceed [N]?", FALSE))\r |
| 443 | return SCPE_OK;\r |
| 444 | for (i = newln; i < ttx_lines; i++) {\r |
| 445 | if (ttx_ldsc[i].conn) {\r |
| 446 | tmxr_linemsg (&ttx_ldsc[i], "\r\nOperator disconnected line\r\n");\r |
| 447 | tmxr_reset_ln (&ttx_ldsc[i]); /* reset line */\r |
| 448 | }\r |
| 449 | ttox_unit[i].flags = ttox_unit[i].flags | UNIT_DIS;\r |
| 450 | ttx_reset_ln (i);\r |
| 451 | }\r |
| 452 | }\r |
| 453 | else {\r |
| 454 | for (i = ttx_lines; i < newln; i++) {\r |
| 455 | ttox_unit[i].flags = ttox_unit[i].flags & ~UNIT_DIS;\r |
| 456 | ttx_reset_ln (i);\r |
| 457 | }\r |
| 458 | }\r |
| 459 | ttx_lines = newln;\r |
| 460 | return SCPE_OK;\r |
| 461 | }\r |
| 462 | \r |
| 463 | \r |