| 1 | /* id_pas.c: Interdata programmable async line adapter simulator\r |
| 2 | \r |
| 3 | Copyright (c) 2001-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 | pas Programmable asynchronous line adapter(s)\r |
| 27 | \r |
| 28 | 18-Jun-07 RMS Added UNIT_IDLE flag\r |
| 29 | 18-Oct-06 RMS Synced PASLA to clock\r |
| 30 | 22-Nov-05 RMS Revised for new terminal processing routines\r |
| 31 | 29-Jun-05 RMS Added SET PASLn DISCONNECT\r |
| 32 | 21-Jun-05 RMS Fixed bug in SHOW CONN/STATS\r |
| 33 | 05-Jan-04 RMS Revised for tmxr library changes\r |
| 34 | 09-May-03 RMS Added network device flag\r |
| 35 | \r |
| 36 | This module implements up to 32 individual serial interfaces, representing\r |
| 37 | either individual PASLA modules or combinations of the 2-line and 8-line\r |
| 38 | multiplexors, which are functionally very similar. These interfaces are mapped\r |
| 39 | to Telnet based connections as the lines of a terminal multiplexor. The\r |
| 40 | connection polling mechanism and the character input polling for all lines\r |
| 41 | are done through a single polling job.\r |
| 42 | */\r |
| 43 | \r |
| 44 | #include "id_defs.h"\r |
| 45 | #include "sim_sock.h"\r |
| 46 | #include "sim_tmxr.h"\r |
| 47 | #include <ctype.h>\r |
| 48 | \r |
| 49 | #define PAS_LINES 32\r |
| 50 | \r |
| 51 | #define UNIT_V_MDM (TTUF_V_UF + 0) /* modem control */\r |
| 52 | #define UNIT_MDM (1 << UNIT_V_MDM)\r |
| 53 | \r |
| 54 | #define PASL_WAIT 500\r |
| 55 | \r |
| 56 | /* Status byte */\r |
| 57 | \r |
| 58 | #define STA_OVR 0x80 /* overrun RO */\r |
| 59 | #define STA_PF 0x40 /* parity err RONI */\r |
| 60 | #define STA_NCL2S 0x40 /* not clr to snd XO */\r |
| 61 | #define STA_FR 0x20 /* framing err RO */\r |
| 62 | #define STA_RCR 0x10 /* rv chan rcv NI */\r |
| 63 | #define STA_CROF 0x02 /* carrier off RO */\r |
| 64 | #define STA_RING 0x01 /* ring RO */\r |
| 65 | #define STA_RCV (STA_OVR|STA_PF|STA_FR|STA_RCR|STA_CROF|STA_RING)\r |
| 66 | #define SET_EX (STA_OVR|STA_PF|STA_FR)\r |
| 67 | #define STA_XMT (STA_BSY)\r |
| 68 | \r |
| 69 | /* Command bytes 1,0 */\r |
| 70 | \r |
| 71 | #define CMD_DTR (0x20 << 8) /* DTR */\r |
| 72 | #define CMD_ECHO (0x10 << 8) /* echoplex */\r |
| 73 | #define CMD_RCT (0x08 << 8) /* RCT/DTB NI */\r |
| 74 | #define CMD_XMTB (0x04 << 8) /* xmt break NI */\r |
| 75 | #define CMD_WRT (0x02 << 8) /* write/read */\r |
| 76 | #define CMD_V_CLK 6 /* baud rate */\r |
| 77 | #define CMD_M_CLK 0x3\r |
| 78 | #define CMD_V_DB 4 /* data bits */\r |
| 79 | #define CMD_M_DB 0x3\r |
| 80 | #define CMD_STOP 0x80 /* stop bit */\r |
| 81 | #define CMD_V_PAR 1 /* parity */\r |
| 82 | #define CMD_M_PAR 0x3\r |
| 83 | #define GET_PAR(x) (((x) >> CMD_V_PAR) & CMD_M_PAR)\r |
| 84 | #define PAR_NONE 0\r |
| 85 | #define PAR_RAW 1\r |
| 86 | #define PAR_ODD 2\r |
| 87 | #define PAR_EVEN 3\r |
| 88 | \r |
| 89 | #define CMD_TYP 0x01 /* command type */\r |
| 90 | \r |
| 91 | extern uint32 int_req[INTSZ], int_enb[INTSZ];\r |
| 92 | extern int32 lfc_poll;\r |
| 93 | \r |
| 94 | uint8 pas_sta[PAS_LINES]; /* status */\r |
| 95 | uint16 pas_cmd[PAS_LINES]; /* command */\r |
| 96 | uint8 pas_rbuf[PAS_LINES]; /* rcv buf */\r |
| 97 | uint8 pas_xbuf[PAS_LINES]; /* xmt buf */\r |
| 98 | uint8 pas_rarm[PAS_LINES]; /* rcvr int armed */\r |
| 99 | uint8 pas_xarm[PAS_LINES]; /* xmt int armed */\r |
| 100 | uint8 pas_rchp[PAS_LINES]; /* rcvr chr pend */\r |
| 101 | uint8 pas_tplte[PAS_LINES * 2 + 1]; /* template */\r |
| 102 | \r |
| 103 | TMLN pas_ldsc[PAS_LINES] = { 0 }; /* line descriptors */\r |
| 104 | TMXR pas_desc = { 8, 0, 0, pas_ldsc }; /* mux descriptor */\r |
| 105 | #define PAS_ENAB pas_desc.lines\r |
| 106 | \r |
| 107 | uint32 pas (uint32 dev, uint32 op, uint32 dat);\r |
| 108 | void pas_ini (t_bool dtpl);\r |
| 109 | t_stat pasi_svc (UNIT *uptr);\r |
| 110 | t_stat paso_svc (UNIT *uptr);\r |
| 111 | t_stat pas_reset (DEVICE *dptr);\r |
| 112 | t_stat pas_attach (UNIT *uptr, char *cptr);\r |
| 113 | t_stat pas_detach (UNIT *uptr);\r |
| 114 | t_stat pas_summ (FILE *st, UNIT *uptr, int32 val, void *desc);\r |
| 115 | t_stat pas_show (FILE *st, UNIT *uptr, int32 val, void *desc);\r |
| 116 | int32 pas_par (int32 cmd, int32 c);\r |
| 117 | t_stat pas_vlines (UNIT *uptr, int32 val, char *cptr, void *desc);\r |
| 118 | void pas_reset_ln (int32 i);\r |
| 119 | \r |
| 120 | /* PAS data structures\r |
| 121 | \r |
| 122 | pas_dev PAS device descriptor\r |
| 123 | pas_unit PAS unit descriptor\r |
| 124 | pas_reg PAS register list\r |
| 125 | pas_mod PAS modifiers list\r |
| 126 | */\r |
| 127 | \r |
| 128 | DIB pas_dib = { d_PAS, -1, v_PAS, pas_tplte, &pas, &pas_ini };\r |
| 129 | \r |
| 130 | UNIT pas_unit = { UDATA (&pasi_svc, UNIT_ATTABLE|UNIT_IDLE, 0), 0 };\r |
| 131 | \r |
| 132 | REG pas_nlreg = { DRDATA (NLINES, PAS_ENAB, 6), PV_LEFT };\r |
| 133 | \r |
| 134 | REG pas_reg[] = {\r |
| 135 | { BRDATA (STA, pas_sta, 16, 8, PAS_LINES) },\r |
| 136 | { BRDATA (CMD, pas_cmd, 16, 16, PAS_LINES) },\r |
| 137 | { BRDATA (RBUF, pas_rbuf, 16, 8, PAS_LINES) },\r |
| 138 | { BRDATA (XBUF, pas_xbuf, 16, 8, PAS_LINES) },\r |
| 139 | { BRDATA (IREQ, &int_req[l_PAS], 16, 32, PAS_LINES / 16) },\r |
| 140 | { BRDATA (IENB, &int_enb[l_PAS], 16, 32, PAS_LINES / 16) },\r |
| 141 | { BRDATA (RARM, pas_rarm, 16, 1, PAS_LINES) },\r |
| 142 | { BRDATA (XARM, pas_xarm, 16, 1, PAS_LINES) },\r |
| 143 | { BRDATA (RCHP, pas_rchp, 16, 1, PAS_LINES) },\r |
| 144 | { HRDATA (DEVNO, pas_dib.dno, 8), REG_HRO },\r |
| 145 | { NULL }\r |
| 146 | };\r |
| 147 | \r |
| 148 | MTAB pas_mod[] = {\r |
| 149 | { MTAB_XTD | MTAB_VDV | MTAB_VAL, 0, "lines", "LINES",\r |
| 150 | &pas_vlines, NULL, &pas_nlreg },\r |
| 151 | { MTAB_XTD | MTAB_VDV, 1, NULL, "DISCONNECT",\r |
| 152 | &tmxr_dscln, NULL, &pas_desc },\r |
| 153 | { UNIT_ATT, UNIT_ATT, "connections", NULL, NULL, &pas_summ },\r |
| 154 | { MTAB_XTD | MTAB_VDV | MTAB_NMO, 1, "CONNECTIONS", NULL,\r |
| 155 | NULL, &pas_show, NULL },\r |
| 156 | { MTAB_XTD | MTAB_VDV | MTAB_NMO, 0, "STATISTICS", NULL,\r |
| 157 | NULL, &pas_show, NULL },\r |
| 158 | { MTAB_XTD|MTAB_VDV, 0, "DEVNO", "DEVNO",\r |
| 159 | &set_dev, &show_dev, NULL },\r |
| 160 | { 0 }\r |
| 161 | };\r |
| 162 | \r |
| 163 | DEVICE pas_dev = {\r |
| 164 | "PAS", &pas_unit, pas_reg, pas_mod,\r |
| 165 | 1, 10, 31, 1, 16, 8,\r |
| 166 | &tmxr_ex, &tmxr_dep, &pas_reset,\r |
| 167 | NULL, &pas_attach, &pas_detach,\r |
| 168 | &pas_dib, DEV_NET | DEV_DISABLE\r |
| 169 | };\r |
| 170 | \r |
| 171 | /* PASL data structures\r |
| 172 | \r |
| 173 | pasl_dev PASL device descriptor\r |
| 174 | pasl_unit PASL unit descriptor\r |
| 175 | pasl_reg PASL register list\r |
| 176 | pasl_mod PASL modifiers list\r |
| 177 | */\r |
| 178 | \r |
| 179 | UNIT pasl_unit[] = {\r |
| 180 | { UDATA (&paso_svc, 0, 0), PASL_WAIT }, /* all but 8 dis */\r |
| 181 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 182 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 183 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 184 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 185 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 186 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 187 | { UDATA (&paso_svc, 0, 0), PASL_WAIT },\r |
| 188 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 189 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 190 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 191 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 192 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 193 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 194 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 195 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 196 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 197 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 198 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 199 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 200 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 201 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 202 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 203 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 204 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 205 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 206 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 207 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 208 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 209 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 210 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT },\r |
| 211 | { UDATA (&paso_svc, UNIT_DIS, 0), PASL_WAIT }\r |
| 212 | };\r |
| 213 | \r |
| 214 | MTAB pasl_mod[] = {\r |
| 215 | { TT_MODE, TT_MODE_UC, "UC", "UC", NULL },\r |
| 216 | { TT_MODE, TT_MODE_7B, "7b", "7B", NULL },\r |
| 217 | { TT_MODE, TT_MODE_8B, "8b", "8B", NULL },\r |
| 218 | { TT_MODE, TT_MODE_7P, "7p", "7P", NULL },\r |
| 219 | { UNIT_MDM, 0, "no dataset", "NODATASET", NULL },\r |
| 220 | { UNIT_MDM, UNIT_MDM, "dataset", "DATASET", NULL },\r |
| 221 | { MTAB_XTD|MTAB_VDV, 0, NULL, "DISCONNECT",\r |
| 222 | &tmxr_dscln, NULL, &pas_desc },\r |
| 223 | { MTAB_XTD|MTAB_VUN|MTAB_NC, 0, "LOG", "LOG",\r |
| 224 | &tmxr_set_log, &tmxr_show_log, &pas_desc },\r |
| 225 | { MTAB_XTD|MTAB_VUN|MTAB_NC, 0, NULL, "NOLOG",\r |
| 226 | &tmxr_set_nolog, NULL, &pas_desc },\r |
| 227 | { 0 }\r |
| 228 | };\r |
| 229 | \r |
| 230 | REG pasl_reg[] = {\r |
| 231 | { URDATA (TIME, pasl_unit[0].wait, 16, 24, 0,\r |
| 232 | PAS_LINES, REG_NZ + PV_LEFT) },\r |
| 233 | { NULL }\r |
| 234 | };\r |
| 235 | \r |
| 236 | DEVICE pasl_dev = {\r |
| 237 | "PASL", pasl_unit, pasl_reg, pasl_mod,\r |
| 238 | PAS_LINES, 10, 31, 1, 16, 8,\r |
| 239 | NULL, NULL, &pas_reset,\r |
| 240 | NULL, NULL, NULL,\r |
| 241 | NULL, 0\r |
| 242 | };\r |
| 243 | \r |
| 244 | /* PAS: IO routine */\r |
| 245 | \r |
| 246 | uint32 pas (uint32 dev, uint32 op, uint32 dat)\r |
| 247 | {\r |
| 248 | int32 ln = (dev - pas_dib.dno) >> 1;\r |
| 249 | int32 xmt = (dev - pas_dib.dno) & 1;\r |
| 250 | int32 t, old_cmd;\r |
| 251 | \r |
| 252 | switch (op) { /* case IO op */\r |
| 253 | \r |
| 254 | case IO_ADR: /* select */\r |
| 255 | return BY; /* byte only */\r |
| 256 | \r |
| 257 | case IO_RD: /* read */\r |
| 258 | pas_rchp[ln] = 0; /* clr chr pend */\r |
| 259 | pas_sta[ln] = pas_sta[ln] & ~STA_OVR; /* clr overrun */\r |
| 260 | return pas_rbuf[ln]; /* return buf */\r |
| 261 | \r |
| 262 | case IO_WD: /* write */\r |
| 263 | pas_xbuf[ln] = dat & 0xFF; /* store char */\r |
| 264 | pas_sta[ln] = pas_sta[ln] | STA_BSY; /* set busy */\r |
| 265 | sim_activate (&pasl_unit[ln], pasl_unit[ln].wait);\r |
| 266 | break;\r |
| 267 | \r |
| 268 | case IO_SS: /* status */\r |
| 269 | if (xmt) { /* xmt side? */\r |
| 270 | if (pas_ldsc[ln].conn == 0) /* not conn? */\r |
| 271 | t = STA_NCL2S | STA_BSY; /* busy, not clr */\r |
| 272 | else t = pas_sta[ln] & STA_XMT; /* else just busy */\r |
| 273 | }\r |
| 274 | else {\r |
| 275 | t = pas_sta[ln] & STA_RCV; /* get static */\r |
| 276 | if (!pas_rchp[ln]) t = t | STA_BSY; /* no char? busy */\r |
| 277 | if (pas_ldsc[ln].conn == 0) /* not connected? */\r |
| 278 | t = t | STA_BSY | STA_EX; /* = !dsr */\r |
| 279 | if (t & SET_EX) t = t | STA_EX; /* test for ex */\r |
| 280 | }\r |
| 281 | return t;\r |
| 282 | \r |
| 283 | case IO_OC: /* command */\r |
| 284 | old_cmd = pas_cmd[ln]; /* old cmd */\r |
| 285 | if (dat & CMD_TYP) { /* type 1? */\r |
| 286 | pas_cmd[ln] = (pas_cmd[ln] & 0xFF) | (dat << 8);\r |
| 287 | if (pas_cmd[ln] & CMD_WRT) /* write? */\r |
| 288 | pas_xarm[ln] = int_chg (v_PASX + ln + ln, dat, pas_xarm[ln]);\r |
| 289 | else pas_rarm[ln] = int_chg (v_PAS + ln + ln, dat, pas_rarm[ln]);\r |
| 290 | }\r |
| 291 | else pas_cmd[ln] = (pas_cmd[ln] & ~0xFF) | dat;\r |
| 292 | if (pasl_unit[ln].flags & UNIT_MDM) { /* modem ctrl? */\r |
| 293 | if ((pas_cmd[ln] & CMD_DTR) && (pas_sta[ln] & STA_RING))\r |
| 294 | pas_sta[ln] = pas_sta[ln] & ~(STA_CROF | STA_RING);\r |
| 295 | if (old_cmd & ~pas_cmd[ln] & CMD_DTR) {\r |
| 296 | tmxr_linemsg (&pas_ldsc[ln], "\r\nLine hangup\r\n");\r |
| 297 | tmxr_reset_ln (&pas_ldsc[ln]); /* reset line */\r |
| 298 | pas_sta[ln] = pas_sta[ln] | STA_CROF; /* no carrier */\r |
| 299 | if (pas_rarm[ln]) SET_INT (v_PAS + ln + ln);\r |
| 300 | }\r |
| 301 | }\r |
| 302 | break;\r |
| 303 | }\r |
| 304 | \r |
| 305 | return 0;\r |
| 306 | }\r |
| 307 | \r |
| 308 | /* Unit service - receive side\r |
| 309 | \r |
| 310 | Poll all active lines for input\r |
| 311 | Poll for new connections\r |
| 312 | */\r |
| 313 | \r |
| 314 | t_stat pasi_svc (UNIT *uptr)\r |
| 315 | {\r |
| 316 | int32 ln, c, out;\r |
| 317 | \r |
| 318 | if ((uptr->flags & UNIT_ATT) == 0) return SCPE_OK; /* attached? */\r |
| 319 | sim_activate (uptr, lfc_poll); /* continue poll */\r |
| 320 | ln = tmxr_poll_conn (&pas_desc); /* look for connect */\r |
| 321 | if (ln >= 0) { /* got one? */\r |
| 322 | if ((pasl_unit[ln].flags & UNIT_MDM) && /* modem control */\r |
| 323 | ((pas_cmd[ln] & CMD_DTR) == 0)) /* & !dtr? */\r |
| 324 | pas_sta[ln] = pas_sta[ln] | STA_RING | STA_CROF; /* set ring, no cd */\r |
| 325 | else pas_sta[ln] = pas_sta[ln] & ~STA_CROF; /* just answer */\r |
| 326 | if (pas_rarm[ln]) SET_INT (v_PAS + ln + ln); /* interrupt */\r |
| 327 | pas_ldsc[ln].rcve = 1; /* rcv enabled */ \r |
| 328 | }\r |
| 329 | tmxr_poll_rx (&pas_desc); /* poll for input */\r |
| 330 | for (ln = 0; ln < PAS_ENAB; ln++) { /* loop thru lines */\r |
| 331 | if (pas_ldsc[ln].conn) { /* connected? */\r |
| 332 | if (c = tmxr_getc_ln (&pas_ldsc[ln])) { /* any char? */\r |
| 333 | pas_sta[ln] = pas_sta[ln] & ~(STA_FR | STA_PF);\r |
| 334 | if (pas_rchp[ln]) pas_sta[ln] = pas_sta[ln] | STA_OVR;\r |
| 335 | if (pas_rarm[ln]) SET_INT (v_PAS + ln + ln);\r |
| 336 | if (c & SCPE_BREAK) { /* break? */\r |
| 337 | pas_sta[ln] = pas_sta[ln] | STA_FR; /* framing error */\r |
| 338 | pas_rbuf[ln] = 0; /* no character */\r |
| 339 | }\r |
| 340 | else { /* normal */\r |
| 341 | out = c & 0x7F; /* echo is 7b */\r |
| 342 | c = sim_tt_inpcvt (c, TT_GET_MODE (pasl_unit[ln].flags));\r |
| 343 | if (TT_GET_MODE (pasl_unit[ln].flags) != TT_MODE_8B)\r |
| 344 | c = pas_par (pas_cmd[ln], c); /* apply parity */\r |
| 345 | pas_rbuf[ln] = c; /* save char */\r |
| 346 | pas_rchp[ln] = 1; /* char pending */\r |
| 347 | if ((pas_cmd[ln] & CMD_ECHO) && pas_ldsc[ln].xmte) {\r |
| 348 | TMLN *lp = &pas_ldsc[ln]; /* get line */\r |
| 349 | out = sim_tt_outcvt (out, TT_GET_MODE (pasl_unit[ln].flags));\r |
| 350 | if (out >= 0) tmxr_putc_ln (lp, out); /* output char */\r |
| 351 | tmxr_poll_tx (&pas_desc); /* poll xmt */\r |
| 352 | }\r |
| 353 | } /* end else normal */\r |
| 354 | } /* end if char */\r |
| 355 | } /* end if conn */\r |
| 356 | else if ((pas_sta[ln] & STA_CROF) == 0) { /* not conn, was conn? */\r |
| 357 | pas_sta[ln] = pas_sta[ln] | STA_CROF; /* no carrier */\r |
| 358 | if (pas_rarm[ln]) SET_INT (v_PAS + ln + ln); /* intr */\r |
| 359 | }\r |
| 360 | } /* end for */\r |
| 361 | return SCPE_OK;\r |
| 362 | }\r |
| 363 | \r |
| 364 | /* Unit service - transmit side */\r |
| 365 | \r |
| 366 | t_stat paso_svc (UNIT *uptr)\r |
| 367 | {\r |
| 368 | int32 c;\r |
| 369 | uint32 ln = uptr - pasl_unit; /* line # */\r |
| 370 | \r |
| 371 | if (pas_ldsc[ln].conn) { /* connected? */\r |
| 372 | if (pas_ldsc[ln].xmte) { /* xmt enabled? */\r |
| 373 | TMLN *lp = &pas_ldsc[ln]; /* get line */\r |
| 374 | if (TT_GET_MODE (pasl_unit[ln].flags) == TT_MODE_8B)\r |
| 375 | c = pas_par (pas_cmd[ln], pas_xbuf[ln]); /* apply parity */\r |
| 376 | else c = sim_tt_outcvt (pas_xbuf[ln], TT_GET_MODE (pasl_unit[ln].flags));\r |
| 377 | if (c >= 0) {\r |
| 378 | tmxr_putc_ln (lp, c); /* output char */\r |
| 379 | }\r |
| 380 | tmxr_poll_tx (&pas_desc); /* poll xmt */\r |
| 381 | }\r |
| 382 | else { /* buf full */\r |
| 383 | tmxr_poll_tx (&pas_desc); /* poll xmt */\r |
| 384 | sim_activate (uptr, pasl_unit[ln].wait); /* wait */\r |
| 385 | return SCPE_OK;\r |
| 386 | }\r |
| 387 | }\r |
| 388 | pas_sta[ln] = pas_sta[ln] & ~STA_BSY; /* not busy */\r |
| 389 | if (pas_xarm[ln]) SET_INT (v_PASX + ln + ln); /* set intr */\r |
| 390 | return SCPE_OK;\r |
| 391 | }\r |
| 392 | \r |
| 393 | int32 pas_par (int32 cmd, int32 c)\r |
| 394 | {\r |
| 395 | int32 pf = GET_PAR (cmd);\r |
| 396 | static const uint8 odd_par[] = {\r |
| 397 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* 00 */\r |
| 398 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 399 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* 10 */\r |
| 400 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 401 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* 20 */\r |
| 402 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 403 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* 30 */\r |
| 404 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 405 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* 40 */\r |
| 406 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 407 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* 50 */\r |
| 408 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 409 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* 60 */\r |
| 410 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 411 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* 70 */\r |
| 412 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 413 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* 80 */\r |
| 414 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 415 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* 90 */\r |
| 416 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 417 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* A0 */\r |
| 418 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 419 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* B0 */\r |
| 420 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 421 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* C0 */\r |
| 422 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80,\r |
| 423 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* D0 */\r |
| 424 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 425 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80, /* E0 */\r |
| 426 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0,\r |
| 427 | 0x80, 0, 0, 0x80, 0, 0x80, 0x80, 0, /* F0 */\r |
| 428 | 0, 0x80, 0x80, 0, 0x80, 0, 0, 0x80\r |
| 429 | };\r |
| 430 | \r |
| 431 | switch (pf) { /* case on parity */\r |
| 432 | \r |
| 433 | case PAR_ODD:\r |
| 434 | return (odd_par[c & 0x7F]) | (c & 0x7F);\r |
| 435 | \r |
| 436 | case PAR_EVEN:\r |
| 437 | return (odd_par[c & 0x7F] ^ 0x80) | (c & 0x7F);\r |
| 438 | \r |
| 439 | case PAR_NONE:\r |
| 440 | case PAR_RAW:\r |
| 441 | break;\r |
| 442 | }\r |
| 443 | \r |
| 444 | return c & 0xFF;\r |
| 445 | }\r |
| 446 | \r |
| 447 | /* Reset routine */\r |
| 448 | \r |
| 449 | t_stat pas_reset (DEVICE *dptr)\r |
| 450 | {\r |
| 451 | int32 i;\r |
| 452 | \r |
| 453 | if (dptr->flags & DEV_DIS) { /* disabled? */\r |
| 454 | pas_dev.flags = pas_dev.flags | DEV_DIS; /* disable lines */\r |
| 455 | pasl_dev.flags = pasl_dev.flags | DEV_DIS;\r |
| 456 | }\r |
| 457 | else {\r |
| 458 | pas_dev.flags = pas_dev.flags & ~DEV_DIS; /* enable lines */\r |
| 459 | pasl_dev.flags = pasl_dev.flags & ~DEV_DIS;\r |
| 460 | }\r |
| 461 | if (pas_unit.flags & UNIT_ATT) /* master att? */\r |
| 462 | sim_activate_abs (&pas_unit, lfc_poll); /* cosched with clock */\r |
| 463 | else sim_cancel (&pas_unit); /* else stop */\r |
| 464 | for (i = 0; i < PAS_LINES; i++) pas_reset_ln (i);\r |
| 465 | return SCPE_OK;\r |
| 466 | }\r |
| 467 | \r |
| 468 | /* Attach master unit */\r |
| 469 | \r |
| 470 | t_stat pas_attach (UNIT *uptr, char *cptr)\r |
| 471 | {\r |
| 472 | t_stat r;\r |
| 473 | \r |
| 474 | r = tmxr_attach (&pas_desc, uptr, cptr); /* attach */\r |
| 475 | if (r != SCPE_OK) return r; /* error */\r |
| 476 | sim_activate_abs (uptr, 100); /* quick poll */\r |
| 477 | return SCPE_OK;\r |
| 478 | }\r |
| 479 | \r |
| 480 | /* Detach master unit */\r |
| 481 | \r |
| 482 | t_stat pas_detach (UNIT *uptr)\r |
| 483 | {\r |
| 484 | int32 i;\r |
| 485 | t_stat r;\r |
| 486 | \r |
| 487 | r = tmxr_detach (&pas_desc, uptr); /* detach */\r |
| 488 | for (i = 0; i < PAS_LINES; i++) pas_ldsc[i].rcve = 0; /* disable rcv */\r |
| 489 | sim_cancel (uptr); /* stop poll */\r |
| 490 | return r;\r |
| 491 | }\r |
| 492 | \r |
| 493 | /* Show summary processor */\r |
| 494 | \r |
| 495 | t_stat pas_summ (FILE *st, UNIT *uptr, int32 val, void *desc)\r |
| 496 | {\r |
| 497 | int32 i, t;\r |
| 498 | \r |
| 499 | for (i = t = 0; i < PAS_LINES; i++) t = t + (pas_ldsc[i].conn != 0);\r |
| 500 | if (t == 1) fprintf (st, "1 connection");\r |
| 501 | else fprintf (st, "%d connections", t);\r |
| 502 | return SCPE_OK;\r |
| 503 | }\r |
| 504 | \r |
| 505 | /* SHOW CONN/STAT processor */\r |
| 506 | \r |
| 507 | t_stat pas_show (FILE *st, UNIT *uptr, int32 val, void *desc)\r |
| 508 | {\r |
| 509 | int32 i, t;\r |
| 510 | \r |
| 511 | for (i = t = 0; i < PAS_LINES; i++) t = t + (pas_ldsc[i].conn != 0);\r |
| 512 | if (t) {\r |
| 513 | for (i = 0; i < PAS_LINES; i++) {\r |
| 514 | if (pas_ldsc[i].conn) {\r |
| 515 | if (val) tmxr_fconns (st, &pas_ldsc[i], i);\r |
| 516 | else tmxr_fstats (st, &pas_ldsc[i], i);\r |
| 517 | }\r |
| 518 | }\r |
| 519 | }\r |
| 520 | else fprintf (st, "all disconnected\n");\r |
| 521 | return SCPE_OK;\r |
| 522 | }\r |
| 523 | \r |
| 524 | /* Change number of lines */\r |
| 525 | \r |
| 526 | t_stat pas_vlines (UNIT *uptr, int32 val, char *cptr, void *desc)\r |
| 527 | {\r |
| 528 | int32 newln, i, t;\r |
| 529 | t_stat r;\r |
| 530 | \r |
| 531 | if (cptr == NULL) return SCPE_ARG;\r |
| 532 | newln = get_uint (cptr, 10, PAS_LINES, &r);\r |
| 533 | if ((r != SCPE_OK) || (newln == PAS_ENAB)) return r;\r |
| 534 | if (newln == 0) return SCPE_ARG;\r |
| 535 | if (newln < PAS_ENAB) {\r |
| 536 | for (i = newln, t = 0; i < PAS_ENAB; i++) t = t | pas_ldsc[i].conn;\r |
| 537 | if (t && !get_yn ("This will disconnect users; proceed [N]?", FALSE))\r |
| 538 | return SCPE_OK;\r |
| 539 | for (i = newln; i < PAS_ENAB; i++) {\r |
| 540 | if (pas_ldsc[i].conn) {\r |
| 541 | tmxr_linemsg (&pas_ldsc[i], "\r\nOperator disconnected line\r\n");\r |
| 542 | tmxr_reset_ln (&pas_ldsc[i]); /* reset line */\r |
| 543 | }\r |
| 544 | pasl_unit[i].flags = pasl_unit[i].flags | UNIT_DIS;\r |
| 545 | pas_reset_ln (i);\r |
| 546 | }\r |
| 547 | }\r |
| 548 | else {\r |
| 549 | for (i = PAS_ENAB; i < newln; i++) {\r |
| 550 | pasl_unit[i].flags = pasl_unit[i].flags & ~UNIT_DIS;\r |
| 551 | pas_reset_ln (i);\r |
| 552 | }\r |
| 553 | }\r |
| 554 | PAS_ENAB = newln;\r |
| 555 | return SCPE_OK;\r |
| 556 | }\r |
| 557 | \r |
| 558 | /* Reset an individual line */\r |
| 559 | \r |
| 560 | void pas_reset_ln (int32 i)\r |
| 561 | {\r |
| 562 | CLR_INT (v_PAS + i + i); /* clear int */\r |
| 563 | CLR_ENB (v_PAS + i + i);\r |
| 564 | CLR_INT (v_PASX + i + i); /* disable int */\r |
| 565 | CLR_ENB (v_PASX + i + i);\r |
| 566 | pas_rarm[i] = pas_xarm[i] = 0; /* disarm int */\r |
| 567 | pas_rbuf[i] = pas_xbuf[i] = 0; /* clear state */\r |
| 568 | pas_cmd[i] = 0;\r |
| 569 | pas_rchp[i] = 0;\r |
| 570 | pas_sta[i] = 0;\r |
| 571 | if (pas_ldsc[i].conn == 0) /* clear carrier */\r |
| 572 | pas_sta[i] = pas_sta[i] | STA_CROF;\r |
| 573 | sim_cancel (&pasl_unit[i]);\r |
| 574 | return;\r |
| 575 | }\r |
| 576 | \r |
| 577 | /* Init template */\r |
| 578 | \r |
| 579 | void pas_ini (t_bool dtpl)\r |
| 580 | {\r |
| 581 | int32 i, j;\r |
| 582 | \r |
| 583 | for (i = j = 0; i < PAS_ENAB; i++) {\r |
| 584 | pas_tplte[j] = j;\r |
| 585 | pas_tplte[j + 1] = j + o_PASX;\r |
| 586 | j = j + 2;\r |
| 587 | }\r |
| 588 | pas_tplte[j] = TPL_END;\r |
| 589 | return;\r |
| 590 | }\r |