folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sigma: COC device, committed two fixes for sigma_coc.c.

Browse source 
sigma: COC device, add LNORDER command option
sigma: COC device, handle transmit long, stop transmit and receive break
This commit is contained in:
ken rector 2023-03-12 15:16:38 -07:00 • committed by Paul Koning
parent f1811c49bd
commit f1f8cf9cb1
1 changed files with 57 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
sigma/sigma_coc.c Normal file → Executable file
View file

@ -1,6 +1,6 @@
/* sigma_coc.c: Sigma character-oriented communications subsystem simulator /* sigma_coc.c: Sigma character-oriented communications subsystem simulator
Copyright (c) 2007-2008, Robert M Supnik Copyright (c) 2007-2022, Robert M Supnik
Permission is hereby granted, free of charge, to any person obtaining a Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"), copy of this software and associated documentation files (the "Software"),
@ -24,6 +24,9 @@
in this Software without prior written authorization from Robert M Supnik. in this Software without prior written authorization from Robert M Supnik.
coc 7611 communications multiplexor coc 7611 communications multiplexor
24-Aug-22 RMS Transmit long space is 0x6, not 0xD (Ken Rector)
Added LNORDER modifier
*/ */
#include "sigma_io_defs.h" #include "sigma_io_defs.h"
@ -82,8 +85,9 @@ uint32 muxc_cmd = MUXC_IDLE; /* channel state */
uint32 mux_rint = INTV (INTG_E2, 0); uint32 mux_rint = INTV (INTG_E2, 0);
uint32 mux_xint = INTV (INTG_E2, 1); uint32 mux_xint = INTV (INTG_E2, 1);
static int32 mux_order[MUX_LINES] = { -1 }; /* line connection order */
TMLN mux_ldsc[MUX_LINES] = { 0 }; /* line descrs */ TMLN mux_ldsc[MUX_LINES] = { 0 }; /* line descrs */
TMXR mux_desc = { MUX_LINES_DFLT, 0, 0, mux_ldsc }; /* mux descrr */ TMXR mux_desc = { MUX_LINES_DFLT, 0, 0, mux_ldsc, mux_order }; /* mux descr */
extern uint32 chan_ctl_time; extern uint32 chan_ctl_time;
extern uint32 CC; extern uint32 CC;
@ -145,6 +149,8 @@ MTAB mux_mod[] = {
&io_set_dva, &io_show_dva, NULL }, &io_set_dva, &io_show_dva, NULL },
{ MTAB_XTD | MTAB_VDV, 0, "LINES", "LINES", { MTAB_XTD | MTAB_VDV, 0, "LINES", "LINES",
&mux_vlines, &tmxr_show_lines, (void *) &mux_desc }, &mux_vlines, &tmxr_show_lines, (void *) &mux_desc },
{ MTAB_XTD | MTAB_VDV | MTAB_NMO, 0, "LINEORDER", "LINEORDER",
&tmxr_set_lnorder, &tmxr_show_lnorder, (void *) &mux_desc },
{ MTAB_XTD|MTAB_VDV|MTAB_NMO, 0, "CSTATE", NULL, { MTAB_XTD|MTAB_VDV|MTAB_NMO, 0, "CSTATE", NULL,
NULL, &io_show_cst, NULL }, NULL, &io_show_cst, NULL },
{ MTAB_XTD|MTAB_VDV|MTAB_NMO, RTC_COC, "POLL", "POLL", { MTAB_XTD|MTAB_VDV|MTAB_NMO, RTC_COC, "POLL", "POLL",
@ -305,7 +311,28 @@ switch (op) { /* case on op */
return 0; return 0;
} }
/* MUX: DIO dispatch routine */ /* MUX: DIO dispatch routine
Although only 9 of 16 function codes are documented, schematics
indicate that there are don't cares in decoding.
0000 sense receiver status
0001 turn receiver on
0010 turn receiver off
0011 turn receiver DSR off
0100 sense transmitter status
0101 transmit character
0110 transmit long space (based on software)
0111 turn transmitter DSR off
1000 unused (equivalent to 0000)
1001 unused
1010 unused
1011 unused
1100 unused (equivalent to 0100)
1101 transmit long space (in documentation; not correct)
1110 turn transmitter off
1111 unused
*/
uint32 mux_dio (uint32 op, uint32 rn, uint32 ad) uint32 mux_dio (uint32 op, uint32 rn, uint32 ad)
{ {
@ -321,27 +348,30 @@ if (op == OP_RD) { /* read direct */
return 0; return 0;
} }
ln = MUXDAT_GETLIN (R[rn]); /* get line num */ ln = MUXDAT_GETLIN (R[rn]); /* get line num */
if (fnc & 0x4) { /* transmit */ if ((fnc & 0x4) != 0) { /* transmit */
if ((coc != 0) || /* nx COC or */ if ((coc != 0) || /* nx COC or */
(ln >= MUX_NUMLIN)) { /* nx line? */ (ln >= MUX_NUMLIN)) { /* nx line? */
CC |= CC4; CC |= CC4;
return 0; return 0;
} }
if ((fnc & 0x7) == 0x5) { /* send char? */ switch (fnc) { /* case on fnc */
if (fnc & 0x8) /* space? */ case 0x5: case 0x6: /* xmit, xmit long space */
mux_xbuf[ln] = 0; if (fnc == 0x5) /* send char? */
else mux_xbuf[ln] = MUXDAT_GETCHR (R[rn]); /* no, get char */ mux_xbuf[ln] = MUXDAT_GETCHR (R[rn]); /* get char */
else mux_xbuf[ln] = 0; /* just space */
sim_activate (&muxl_unit[ln], muxl_unit[ln].wait); sim_activate (&muxl_unit[ln], muxl_unit[ln].wait);
mux_sta[ln] = (mux_sta[ln] | MUXL_XIA) & ~MUXL_XIR; mux_sta[ln] = (mux_sta[ln] | MUXL_XIA) & ~MUXL_XIR;
mux_scan_next (1); /* unlock scanner */ mux_scan_next (1); /* unlock scanner */
} break;
else if (fnc == 0x06) { /* stop transmit */ case 0xE: /* stop transmit */
mux_sta[ln] &= ~MUXL_XIA|MUXL_XIR; /* disable int */ mux_sta[ln] &= ~MUXL_XIA|MUXL_XIR; /* disable int */
mux_scan_next (1); /* unlock scanner */ mux_scan_next (1); /* unlock scanner */
} break;
else if (fnc == 0x07) { /* disconnect */ case 0x7: /* disconnect */
tmxr_reset_ln (&mux_ldsc[ln]); /* reset line */ tmxr_reset_ln (&mux_ldsc[ln]); /* reset line */
mux_reset_ln (ln); /* reset state */ mux_reset_ln (ln); /* reset state */
default: /* fall through */
break;
} }
CC = (sim_is_active (&muxl_unit[ln])? 0: CC4) | CC = (sim_is_active (&muxl_unit[ln])? 0: CC4) |
(mux_ldsc[ln].conn? CC3: 0); (mux_ldsc[ln].conn? CC3: 0);
@ -350,18 +380,21 @@ else { /* receive */
if ((coc != 0) || /* nx COC or */ if ((coc != 0) || /* nx COC or */
(ln >= MUX_NUMLIN)) /* nx line */ (ln >= MUX_NUMLIN)) /* nx line */
return 0; return 0;
if (fnc == 0x01) { /* set rcv enable */ switch (fnc) { /* case on fnc */
case 0x1: /* set rcv enable */
if (mux_ldsc[ln].conn) /* connected? */ if (mux_ldsc[ln].conn) /* connected? */
mux_ldsc[ln].rcve = 1; /* just enable */ mux_ldsc[ln].rcve = 1; /* just enable */
else mux_sta[ln] |= MUXL_REP; /* enable pending */ else mux_sta[ln] |= MUXL_REP; /* enable pending */
} break;
else if (fnc == 0x02) { /* clr rcv enable */ case 0x2: /* clr rcv enable */
mux_ldsc[ln].rcve = 0; mux_ldsc[ln].rcve = 0;
mux_sta[ln] &= ~MUXL_REP; mux_sta[ln] &= ~MUXL_REP;
} break;
else if (fnc == 0x03) { /* disconnect */ case 0x3: /* disconnect */
tmxr_reset_ln (&mux_ldsc[ln]); /* reset line */ tmxr_reset_ln (&mux_ldsc[ln]); /* reset line */
mux_reset_ln (ln); /* reset state */ mux_reset_ln (ln); /* reset state */
default: /* fall through */
break;
} }
if (mux_sta[ln] & MUXL_RBP) /* break pending? */ if (mux_sta[ln] & MUXL_RBP) /* break pending? */
CC = CC3|CC4; CC = CC3|CC4;
@ -418,16 +451,19 @@ tmxr_poll_rx (&mux_desc); /* poll for input */
for (ln = 0; ln < MUX_NUMLIN; ln++) { /* loop thru lines */ for (ln = 0; ln < MUX_NUMLIN; ln++) { /* loop thru lines */
if (mux_ldsc[ln].conn) { /* connected? */ if (mux_ldsc[ln].conn) { /* connected? */
if ((c = tmxr_getc_ln (&mux_ldsc[ln]))) { /* get char */ if ((c = tmxr_getc_ln (&mux_ldsc[ln]))) { /* get char */
if (c & SCPE_BREAK) /* break? */ if (c & SCPE_BREAK) { /* break? */
mux_sta[ln] |= MUXL_RBP; /* set rcv brk */ mux_sta[ln] |= MUXL_RBP; /* set rcv brk */
c = 0; /* space */
ln |= 0x80; /* break flag */
}
else { /* normal char */ else { /* normal char */
mux_sta[ln] &= ~MUXL_RBP; /* clr rcv brk */ mux_sta[ln] &= ~MUXL_RBP; /* clr rcv brk */
c = sim_tt_inpcvt (c, TT_GET_MODE (muxl_unit[ln].flags)); c = sim_tt_inpcvt (c, TT_GET_MODE (muxl_unit[ln].flags));
mux_rbuf[ln] = c; /* save char */ mux_rbuf[ln] = c; /* save char */
if ((muxc_cmd == MUXC_RCV) && /* chan active? */
(r = muxi_put_char (c, ln))) /* char to chan */
return r;
} /* end else char */ } /* end else char */
if ((muxc_cmd == MUXC_RCV) && /* chan active? */
(r = muxi_put_char (c, ln))) /* char to chan */
return r;
} /* end if char */ } /* end if char */
} /* end if conn */ } /* end if conn */
else mux_sta[ln] &= ~MUXL_RBP; /* disconnected */ else mux_sta[ln] &= ~MUXL_RBP; /* disconnected */