/dports/emulators/simh/simh-3.9.0_5/NOVA/ |
H A D | nova_pt.c | 121 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 D | pdp8_pt.c | 95 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 D | pdp11_pt.c | 135 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 D | mp-s.c | 137 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 D | altair_sio.c | 108 { 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 D | sds_stddev.c | 118 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 D | pdp18b_stddev.c | 259 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 D | ibm1130_ptrp.c | 67 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 D | hp2100_stddev.c | 264 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 D | i1620_pt.c | 84 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 D | lgp_stddev.c | 270 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 D | h316_stddev.c | 182 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 D | pdp1_stddev.c | 188 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 D | hp2100_pt.c | 330 #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 D | hp2100_pt.c | 336 #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 D | altairz80_sio.c | 354 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()
|