Home
last modified time | relevance | path

Searched refs:ptp_unit (Results 1 – 16 of 16) sorted by relevance

/dports/emulators/simh/simh-3.9.0_5/NOVA/
H A Dnova_pt.c121 UNIT ptp_unit = variable
127 { ORDATA (BUF, ptp_unit.buf, 8) },
132 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
133 { DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
147 "PTP", &ptp_unit, ptp_reg, ptp_mod /* 2007-May-30, bkr */,
246 ptp_unit.buf = AC & 0377; in ptp()
254 sim_activate (&ptp_unit, ptp_unit.wait); /* activate unit */ in ptp()
276 if ((ptp_unit.flags & UNIT_ATT) == 0) /* attached? */ in ptp_svc()
278 if (putc ((ptp_unit.buf & ((ptp_unit.flags & UNIT_8B)? 0377: 0177)), ptp_unit.fileref) == EOF) { in ptp_svc()
280 clearerr (ptp_unit.fileref); in ptp_svc()
[all …]
/dports/emulators/simh/simh-3.9.0_5/PDP8/
H A Dpdp8_pt.c95 UNIT ptp_unit = { variable
100 { ORDATA (BUF, ptp_unit.buf, 8) },
104 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
105 { DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
116 "PTP", &ptp_unit, ptp_reg, ptp_mod,
216 sim_activate (&ptp_unit, ptp_unit.wait); /* activate unit */ in ptp()
230 if ((ptp_unit.flags & UNIT_ATT) == 0) /* attached? */ in ptp_svc()
232 if (putc (ptp_unit.buf, ptp_unit.fileref) == EOF) { in ptp_svc()
234 clearerr (ptp_unit.fileref); in ptp_svc()
237 ptp_unit.pos = ptp_unit.pos + 1; in ptp_svc()
[all …]
/dports/emulators/simh/simh-3.9.0_5/PDP11/
H A Dpdp11_pt.c135 UNIT ptp_unit = { variable
161 "PTP", &ptp_unit, ptp_reg, ptp_mod,
283 *data = ptp_unit.buf; in ptp_rd()
310 sim_activate (&ptp_unit, ptp_unit.wait); in ptp_wr()
325 if ((ptp_unit.flags & UNIT_ATT) == 0) in ptp_svc()
327 if (putc (ptp_unit.buf, ptp_unit.fileref) == EOF) { in ptp_svc()
329 clearerr (ptp_unit.fileref); in ptp_svc()
333 ptp_unit.pos = ptp_unit.pos + 1; in ptp_svc()
341 ptp_unit.buf = 0; in ptp_reset()
343 if ((ptp_unit.flags & UNIT_ATT) == 0) in ptp_reset()
[all …]
/dports/emulators/simh/simh-3.9.0_5/swtp6800/common/
H A Dmp-s.c137 UNIT ptp_unit = { UDATA (&ptp_svc, UNIT_SEQ + UNIT_ATTABLE, 0), KBD_POLL_WAIT variable
140 "PTP", &ptp_unit, NULL, NULL,
210 ptp_unit.buf = 0; in ptp_reset()
211 ptp_unit.u3 = 0x02; in ptp_reset()
212 sim_activate (&ptp_unit, ptp_unit.wait); // activate unit in ptp_reset()
247 ptp_unit.u3 = 0x02; // reset punch in sio0s()
248 ptp_unit.buf = 0; in sio0s()
249 ptp_unit.pos = 0; in sio0s()
283 putc(data, ptp_unit.fileref); in sio0d()
284 ptp_unit.pos++; // step character counter in sio0d()
[all …]
/dports/emulators/simh/simh-3.9.0_5/ALTAIR/
H A Daltair_sio.c108 { ORDATA (DATA, ptp_unit.buf, 8) },
109 { ORDATA (STAT, ptp_unit.u3, 8) },
110 { ORDATA (POS, ptp_unit.pos, T_ADDR_W) },
115 "PTP", &ptp_unit, ptp_reg, NULL,
174 ptp_unit.buf = 0; in ptp_reset()
175 ptp_unit.u3 = 0x02; in ptp_reset()
176 sim_cancel (&ptp_unit); /* deactivate unit */ in ptp_reset()
230 ptp_unit.u3 = 0; in sio1s()
231 ptp_unit.buf = 0; in sio1s()
232 ptp_unit.pos = 0; in sio1s()
[all …]
/dports/emulators/simh/simh-3.9.0_5/SDS/
H A Dsds_stddev.c118 UNIT ptp_unit = { variable
123 { ORDATA (BUF, ptp_unit.buf, 7) },
126 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
127 { DRDATA (TIME, ptp_unit.wait, 24), REG_NZ + PV_LEFT },
139 "PTP", &ptp_unit, ptp_reg, ptp_mod,
363 sim_activate (&ptp_unit, ptp_unit.wait); /* activate */ in ptp()
374 sim_activate (&ptp_unit, ptp_unit.wait); /* activate */ in ptp()
418 clearerr (ptp_unit.fileref); in ptp_out()
421 ptp_unit.pos = ptp_unit.pos + 1; /* inc position */ in ptp_out()
432 sim_cancel (&ptp_unit); /* stop */ in ptp_set_err()
[all …]
/dports/emulators/simh/simh-3.9.0_5/PDP18B/
H A Dpdp18b_stddev.c259 UNIT ptp_unit = { variable
911 sim_activate (&ptp_unit, ptp_unit.wait); /* activate unit */ in ptp()
926 ptp_unit.buf = ptp_unit.buf & 0177; /* force 7b */ in ptp_svc()
927 if ((ptp_unit.buf == 0) || (ptp_unit.buf == 0177)) in ptp_svc()
930 if (putc (ptp_unit.buf, ptp_unit.fileref) == EOF) { /* I/O error? */ in ptp_svc()
933 clearerr (ptp_unit.fileref); in ptp_svc()
936 ptp_unit.pos = ptp_unit.pos + 1; in ptp_svc()
955 ptp_unit.buf = 0; in ptp_reset()
972 ptp_unit.flags = ptp_unit.flags & ~UNIT_PASCII; in ptp_attach()
974 ptp_unit.flags = ptp_unit.flags | UNIT_PASCII; in ptp_attach()
[all …]
/dports/emulators/simh/simh-3.9.0_5/Ibm1130/
H A Dibm1130_ptrp.c67 UNIT ptp_unit[1] = { variable
77 "PTP", ptp_unit, ptp_reg, NULL,
94 if ((ptr_dsw & PTR1134_DSW_PUNCH_NOT_READY) == 0 && IS_ONLINE(ptp_unit)) { in xio_1134_papertape()
95 putc((M[iocc_addr & mem_mask] >> 8) & 0xFF, ptp_unit->fileref); in xio_1134_papertape()
96 ptp_unit->pos++; in xio_1134_papertape()
98 sim_activate(ptp_unit, ptp_wait); /* schedule interrupt */ in xio_1134_papertape()
187 sim_cancel(ptp_unit); in ptp_reset()
192 if (IS_ONLINE(ptp_unit)) in ptp_reset()
/dports/emulators/simh/simh-3.9.0_5/HP2100/
H A Dhp2100_stddev.c264 UNIT ptp_unit = { variable
269 { ORDATA (BUF, ptp_unit.buf, 8) },
273 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
274 { DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
288 "PTP", &ptp_unit, ptp_reg, ptp_mod,
687 sim_activate (&ptp_unit, ptp_unit.wait); in ptpio()
720 if ((ptp_unit.flags & UNIT_ATT) == 0) /* attached? */ in ptp_svc()
722 if (putc (ptp_unit.buf, ptp_unit.fileref) == EOF) { /* output byte */ in ptp_svc()
724 clearerr (ptp_unit.fileref); in ptp_svc()
727 ptp_unit.pos = ftell (ptp_unit.fileref); /* update position */ in ptp_svc()
[all …]
/dports/emulators/simh/simh-3.9.0_5/I1620/
H A Di1620_pt.c84 UNIT ptp_unit = { variable
89 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
94 "PTP", &ptp_unit, ptp_reg, NULL,
483 if ((ptp_unit.flags & UNIT_ATT) == 0) { /* attached? */ in ptp_write()
487 if (putc (c, ptp_unit.fileref) == EOF) { /* write char */ in ptp_write()
490 clearerr (ptp_unit.fileref); in ptp_write()
493 ptp_unit.pos = ptp_unit.pos + 1; /* count char */ in ptp_write()
/dports/emulators/simh/simh-3.9.0_5/LGP/
H A Dlgp_stddev.c270 UNIT ptp_unit = { variable
275 { ORDATA (BUF, ptp_unit.buf, 8) },
276 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
277 { DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
297 "PTP", &ptp_unit, ptp_reg, ptp_mod,
436 if (sim_is_active (&ptp_unit)) /* busy? */ in op_p()
438 ptp_unit.buf = ch; /* save char */ in op_p()
439 sim_activate (&ptp_unit, ptp_unit.wait); /* activate ptp */ in op_p()
611 sim_cancel (&ptp_unit); in ptp_reset()
612 ptp_unit.buf = 0; in ptp_reset()
/dports/emulators/simh/simh-3.9.0_5/H316/
H A Dh316_stddev.c182 UNIT ptp_unit = { variable
187 { ORDATA (BUF, ptp_unit.buf, 8) },
191 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
192 { ORDATA (PSTATE, ptp_unit.STA, 2), REG_HIDDEN },
193 { DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
200 "PTP", &ptp_unit, ptp_reg, pt_mod,
472 sim_cancel (&ptp_unit); /* stop punch */ in ptpio()
475 sim_activate (&ptp_unit, ptp_ptime); in ptpio()
483 (ptp_power || sim_is_active (&ptp_unit))) || in ptpio()
494 sim_activate (&ptp_unit, ptp_unit.wait); in ptpio()
[all …]
/dports/emulators/simh/simh-3.9.0_5/PDP1/
H A Dpdp1_stddev.c188 UNIT ptp_unit = { variable
193 { ORDATA (BUF, ptp_unit.buf, 8) },
196 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
197 { DRDATA (TIME, ptp_unit.wait, 24), PV_LEFT },
210 "PTP", &ptp_unit, ptp_reg, ptp_mod,
488 ptp_unit.buf = (dev == 0006)? ((dat >> 12) | 0200): (dat & 0377); in ptp()
494 sim_activate (&ptp_unit, ptp_unit.wait); /* start unit */ in ptp()
523 ptp_unit.buf = 0; /* clear state */ in ptp_reset()
526 sim_cancel (&ptp_unit); /* deactivate unit */ in ptp_reset()
/dports/emulators/simh-hpdoc/simh-hpdoc-3.11.0/SCP/HP2100/
H A Dhp2100_pt.c330 #define ptp_unit pt_unit [ptp] /* paper tape punch unit */ macro
447 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
489 &ptp_unit, /* unit array */
1137 sim_cancel (&ptp_unit); /* and cancel any punch in progress */ in ptp_reset()
/dports/emulators/simh-hp2100/simh-hp2100-3.11.0.31/SCP/HP2100/
H A Dhp2100_pt.c336 #define ptp_unit pt_unit [ptp] /* paper tape punch unit */ macro
455 { DRDATA (POS, ptp_unit.pos, T_ADDR_W), PV_LEFT },
497 &ptp_unit, /* unit array */
1168 sim_cancel (&ptp_unit); /* cancel any punch in progress */ in ptp_reset()
/dports/emulators/simh/simh-3.9.0_5/AltairZ80/
H A Daltairz80_sio.c354 static UNIT ptp_unit = { variable
359 "PTP", &ptp_unit, NULL, ptpptr_mod,
835 …if (ptp_unit.flags & UNIT_ATT) /* unit must be attached … in sio1dCore()
836 putc(data, ptp_unit.fileref); in sio1dCore()
1266 else if (uptr == &ptp_unit) in attachCPM()
1808 attachCPM(&ptp_unit); in simh_out()
1812 detach_unit(&ptp_unit); in simh_out()