// license:BSD-3-Clause // copyright-holders:Joakim Larsson Edstrom /********************************************************************** * * Motorola MC68230 PI/T Parallell Interface and Timer * * PORT MODES INCLUDE : * - BIT I/O * - UNIDIRECTIONAL 8 BIT AND 16 BIT * - BIDIRECTIONAL 8 BIT AND 16 BIT * PROGRAMMABLE HANDSHAKING OPTIONS * 24-BIT PROGRAMMABLE TIMER MODES * FIVE SEPARATE INTERRUPT VECTORS SEPARATE PORT AND TIMER INTERRUPT SERVICE REQUESTS * REGISTERS AREREAD/WRITEAND DIRECTLY ADDRESSABLE * REGISTERS ARE ADDRESSED FOR MOVEP (Move Peripheral) AND DMAC COMPATIBILITY * * Revisions: 2015-07-15 JLE initial * * Todo * - Complete support for clock and timers * - Add interrupt support * - Add DMA support * - Add double buffering for each submode **********************************************************************/ #include "68230pit.h" #define VERBOSE 0 #define LOGPRINT(x) do { if (VERBOSE) logerror x; } while (0) #define LOG(x) #define LOGR(x) #define LOGINT(x) LOGPRINT(x) #define LOGSETUP(x) LOGPRINT(x) #if VERBOSE == 2 #define logerror printf #endif #ifdef _MSC_VER #define FUNCNAME __func__ #define LLFORMAT "%I64%" #else #define FUNCNAME __PRETTY_FUNCTION__ #define LLFORMAT "%lld" #endif //************************************************************************** // DEVICE TYPE DEFINITIONS //************************************************************************** const device_type PIT68230 = &device_creator; //------------------------------------------------- // pit68230_device - constructors //------------------------------------------------- pit68230_device::pit68230_device(const machine_config &mconfig, device_type type, const char *name, const char *tag, device_t *owner, UINT32 clock, UINT32 variant, const char *shortname, const char *source) : device_t (mconfig, type, name, tag, owner, clock, shortname, source) , m_pa_out_cb(*this) , m_pa_in_cb(*this) , m_pb_out_cb(*this) , m_pb_in_cb(*this) , m_pc_out_cb(*this) , m_pc_in_cb(*this) , m_h1_out_cb (*this) , m_h2_out_cb (*this) , m_h3_out_cb (*this) , m_h4_out_cb (*this) , m_pgcr(0) , m_psrr(0) , m_paddr(0) , m_pbddr(0) , m_pcddr(0) , m_pivr(0) , m_pacr(0) , m_pbcr(0) , m_padr(0) , m_pbdr(0) , m_pcdr(0) , m_psr(0) , m_tcr(0) , m_tivr(0) , m_cpr(0) // , m_cprh(0) // Collectivelly handled by m_cpr // , m_cprm(0) // Collectivelly handled by m_cpr // , m_cprl(0) // Collectivelly handled by m_cpr , m_cntr(0) , m_tsr(0) { } pit68230_device::pit68230_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock) : device_t (mconfig, PIT68230, "PIT68230", tag, owner, clock, "pit68230", __FILE__) , m_pa_out_cb (*this) , m_pa_in_cb(*this) , m_pb_out_cb(*this) , m_pb_in_cb(*this) , m_pc_out_cb(*this) , m_pc_in_cb(*this) , m_h1_out_cb(*this) , m_h2_out_cb(*this) , m_h3_out_cb(*this) , m_h4_out_cb(*this) , m_pgcr(0) , m_psrr(0) , m_paddr(0) , m_pbddr(0) , m_pcddr(0) , m_pivr(0) , m_pacr(0) , m_pbcr(0) , m_padr(0) , m_pbdr(0) , m_pcdr(0) , m_psr(0) , m_tcr(0) , m_tivr(0) , m_cpr(0) // , m_cprh(0) // Collectivelly handled by m_cpr // , m_cprm(0) // Collectivelly handled by m_cpr // , m_cprl(0) // Collectivelly handled by m_cpr , m_cntr(0) , m_tsr(0) { } //------------------------------------------------- // device_start - device-specific startup //------------------------------------------------- void pit68230_device::device_start () { LOG(("%s\n", FUNCNAME)); // resolve callbacks m_pa_out_cb.resolve_safe(); m_pa_in_cb.resolve_safe(0); m_pb_out_cb.resolve_safe(); m_pb_in_cb.resolve_safe(0); m_pc_out_cb.resolve_safe(); m_pc_in_cb.resolve_safe(0); m_h1_out_cb.resolve_safe(); m_h2_out_cb.resolve_safe(); m_h3_out_cb.resolve_safe(); m_h4_out_cb.resolve_safe(); // Timers pit_timer = timer_alloc(TIMER_ID_PIT); // state saving save_item(NAME(m_pgcr)); save_item(NAME(m_psrr)); save_item(NAME(m_paddr)); save_item(NAME(m_pbddr)); save_item(NAME(m_pcddr)); save_item(NAME(m_pivr)); save_item(NAME(m_pacr)); save_item(NAME(m_pbcr)); save_item(NAME(m_padr)); save_item(NAME(m_pbdr)); save_item(NAME(m_pcdr)); save_item(NAME(m_psr)); save_item(NAME(m_tcr)); save_item(NAME(m_tivr)); save_item(NAME(m_cpr)); save_item(NAME(m_cntr)); save_item(NAME(m_tsr)); } //------------------------------------------------- // device_reset - device-specific reset //------------------------------------------------- void pit68230_device::device_reset () { LOG(("%s %s \n",tag(), FUNCNAME)); m_pgcr = 0; m_psrr = 0; m_paddr = 0; m_pbddr = 0; m_pcddr = 0; m_pivr = 0x0f; m_pacr = 0; m_h2_out_cb(m_pacr); m_pbcr = 0; m_padr = 0; m_pa_out_cb((offs_t)0, m_padr); m_pbdr = 0; m_pb_out_cb((offs_t)0, m_pbdr); m_psr = 0; m_tcr = 0; m_tivr = 0x0f; m_tsr = 0; } //------------------------------------------------- // device_timer - handler timer events //------------------------------------------------- void pit68230_device::device_timer (emu_timer &timer, device_timer_id id, INT32 param, void *ptr) { switch(id) { case TIMER_ID_PIT: if (m_cntr-- == 0) // Zero detect { /* TODO: Check mode and use preload value if required or just rollover 24 bit */ if ((m_tcr & REG_TCR_ZD) == 0) m_cntr = m_cpr; else // mask off to 24 bit on rollover m_cntr &= 0xffffff; } break; default: LOG(("Unhandled Timer ID %d\n", id)); break; } } void pit68230_device::h1_set (UINT8 state) { LOG(("%s %s %d @ m_psr %2x => ",tag(), FUNCNAME, state, m_psr)); if (state) m_psr |= 1; else m_psr &= ~1; LOG(("%02x %lld\n", m_psr, machine ().firstcpu->total_cycles ())); } void pit68230_device::portb_setbit (UINT8 bit, UINT8 state) { LOG(("%s %s %d/%d @ m_pbdr %2x => ", tag(), FUNCNAME, bit, state, m_pbdr)); if (state) m_pbdr |= (1 << bit); else m_pbdr &= ~(1 << bit); LOG(("%02x %lld\n", m_pbdr, machine ().firstcpu->total_cycles ())); } #if VERBOSE > 2 static INT32 ow_cnt = 0; static INT32 ow_data = 0; static INT32 ow_ofs = 0; #endif void pit68230_device::wr_pitreg_pgcr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pgcr = data; } void pit68230_device::wr_pitreg_psrr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_psrr = data; } void pit68230_device::wr_pitreg_paddr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_paddr = data; } void pit68230_device::wr_pitreg_pbddr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pbddr = data; } void pit68230_device::wr_pitreg_pcddr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pcddr = data; } void pit68230_device::wr_pitreg_pivr(UINT8 data) { LOG(("%s(%02x) \"%s\": Not implemented yet\n", FUNCNAME, data, tag())); } void pit68230_device::wr_pitreg_pacr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pacr = data; // callbacks /*PACR in Mode 0 * 5 43 H2 Control in Submode 00 && 01 * ------------------------------------ * 0 XX Input pin - edge-sensitive status input, H2S is set on an asserted edge. * 1 00 Output pin - negated, H2S is always clear. * 1 01 Output pin - asserted, H2S is always clear. * 1 10 Output pin - interlocked input handshake protocol, H2S is always clear. * 1 11 Output pin - pulsed input handshake protocol, H2S is always clear. * * 5 43 H2 Control in Submode 1x * ------------------------------------ * 0 XX Input pin - edge-sensitive status input, H2S is set on an asserted edge. * 1 X0 Output pin - negated, H2S is always cleared. * 1 X1 Output pin - asserted, H2S is always cleared. */ m_h2_out_cb (m_pacr & 0x08 ? 1 : 0); // TODO: Check mode and submodes } void pit68230_device::wr_pitreg_pbcr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pbcr = data; } void pit68230_device::wr_pitreg_padr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_padr |= (data & m_paddr); // callbacks m_pa_out_cb ((offs_t)0, m_padr); } void pit68230_device::wr_pitreg_pbdr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pbdr |= (data & m_pbddr); // callbacks m_pb_out_cb ((offs_t)0, m_pbdr & m_pbddr); } void pit68230_device::wr_pitreg_pcdr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_pcdr |= (data & m_pcddr); // callbacks m_pc_out_cb ((offs_t)0, m_pcdr); } void pit68230_device::wr_pitreg_psr(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_psr = data; } /* The timer control register (TCR) determines all operations of the timer. Bits 7-5 configure the PC3/TOUT and PC7/TIACKpins for port C, square wave, vectored interrupt, or autovectored interrupt operation bit 4 specifies whether the counter receives data from the counter preload register or continues counting when zero detect is reached ; bit 3 is unused and is read as zero bits 2 and 1 configure the path from the CLK and TINpins to the counter controller ; and bit 0 ena-bles the timer. This register is readable and writable at all times. All bits are cleared to zero when the RESET pin is asserted. TCR bits 7 6 5 TOUT/TIACK Control ---------------------------- 0 0 X The dual-function pins PC3/TOUT and PC7/TIACK carry the port C function. 0 1 X The dual-function pinPC3/TOUT carries the TOUT function. In the run state it is used as a squarewave output and is toggled on zero detect. The TOUT pin is high while in the halt state. The dualfunction pin PC7/TIACK carries the PC7 function. 1 0 0 The dual-function pin PC3/TOUT carries the TOUT function. In the run or halt state it is used as a timer interrupt request output. The timer interrupt is disabled, thus, the pin is always three stated. The dual-function pin PC7/TIACK carries the TIACK function ; however, since interrupt request is negated, the PI/T produces no response (i.e., no data or DTACK) to an asserted TIACK. Refer to 5.1.3. Timer Interrupt Acknowledge Cycles for details. 1 0 1 The dual-function pin PC3/TOUT carries the TOUTfunction and is used as a timer interrupt request output. The timer interrupt is enabled ; thus, the pin is low when the timer ZDS status bit is one. The dual-function pin PC7/TIACK carries the TIACK function and is used as a timer interrupt acknowledge input. Refer to the5.1.3. Timer InterruptAcknowledge Cycles fordetails. Thiscombination supports vectored timer interrupts. 1 1 0 The dual-function pin PC3/TOUT function. In the run or halt state it is used as a timer interrupt request output. The timer interrupt is disabled ; thus, the pin is always three-stated. The dual-function pin PC7/TIACK carries the PC7 function. 1 1 1 The dual-function pin PC3/TOUT carries the TOUTfunction and is used as a timer interrupt request output. The timer interrupt is enabled ; thus, the pin is low when the timer ZDS status bit is one. The dual-function pin PC7/TIACK carries the PC7 function and autovectored interrupts are supported. TCR bit 4 - Zero Detect Control 0 The counter is loaded fromthe counter preload register on the first clock to the 24-bit counter after zero detect, then resumes counting. 1 The counter rolls over on zero detect, then continues counting. TCR bit 3 - Unused and is always read as zero. TCR bits 2 1 Clock Control 0 0 The PC2/TIN input pin carries the port C function, and the CLK pin and prescaler are used. The prescaler is decremented on the falling transition of the CLKpin ; the 24-bit counter is decremented, rolls over, or is loaded from the counter preload registers when the prescaler rolls over from $OO to $1F. The timer enable bit determines whether the timer is in the run or halt state. 0 1 The PC2/TIN pin serves as a timer input, and the CLK pin and prescaler are used. The prescaler is decremented on the falling transition of the CLK pin ; the 24-bit counter is decremented, rolls over, or is loaded from the counter preload registers when the prescaler rolls over from $00 to $1F. The timer is in the run state when the timer enable bit is one and the TIN pin is high ; otherwise, the timer is in the halt state. 1 0 The PC2/TIN pin serves as a timer input and the prescaler is used. The prescaler is decremented following the rising transition of the TIN pin after being synchronized with the internal clock. The 24-bit counter is decremented, rolls over, or is loaded from the counter preload registers when the prescaler rolls over from $00 to $1F. The timer enable bit determines whether the timer is in the run or halt state. 1 1 The PC2/TIN pin serves as a timer input and the prescaler is not used. The 24-bit counter is decremented, rolls over, or is loaded from the counter preload registers following the rising edge of the TIN pin after being synchronized with the internal clock. The timer enable bit determines whether the timer is in the run or halt state. TCR bit 0 - Timer Enable 0 Disabled 1 Enabled */ void pit68230_device::wr_pitreg_tcr(UINT8 data) { int tout = 0; int tiack = 0; int irq = 0; int psc = 0; int clk = 0; int pen = 0; int sqr = 0; LOG(("%s(%02x) %s\n", FUNCNAME, data, tag())); m_tcr = data; switch (m_tcr & REG_TCR_TOUT_TIACK_MASK) { case REG_TCR_PC3_PC7: case REG_TCR_PC3_PC7_DC: LOG(("- PC3 and PC7 used as I/O pins\n")); break; case REG_TCR_TOUT_PC7_SQ: case REG_TCR_TOUT_PC7_SQ_DC: LOG(("- PC3 used as SQuare wave TOUT and PC7 used as I/O pin - not supported yet\n")); sqr = 1; break; case REG_TCR_TOUT_TIACK: LOG(("- PC3 used as TOUT and PC7 used as TIACK - not supported yet\n")); tout = 1; tiack = 1; break; case REG_TCR_TOUT_TIACK_INT: LOG(("- PC3 used as TOUT and PC7 used as TIACK, Interrupts enabled - not supported yet\n")); tout = 1; tiack = 1; irq = 1; break; case REG_TCR_TOUT_PC7: LOG(("- PC3 used as TOUT and PC7 used as I/O pin - not supported yet\n")); break; case REG_TCR_TOUT_PC7_INT: LOG(("- PC3 used as TOUT and PC7 used as I/O pin, Interrupts enabled - not supported yet\n")); break; } switch (m_tcr & REG_TCR_CC_MASK) { case REG_TCR_CC_PC2_CLK_PSC: LOG(("- PC2 used as I/O pin,CLK and x32 prescaler are used\n")); clk = 1; psc = 1; break; case REG_TCR_CC_TEN_CLK_PSC: LOG(("- PC2 used as Timer enable/disable, CLK and presacaler are used\n")); pen = 1; clk = 1; psc = 1; break; case REG_TCR_CC_TIN_PSC: LOG(("- PC2 used as Timer clock and the presacaler is used - not supported yet\n")); psc = 1; break; case REG_TCR_CC_TIN_RAW: LOG(("- PC2 used as Timer clock and the presacaler is NOT used - not supported yet\n")); break; } LOG(("%s", m_tcr & REG_TCR_ZR ? "- Spec violation, should always be 0!\n" : "")); LOG(("- Timer %s when reaching 0 (zero)\n", m_tcr & REG_TCR_ZD ? "rolls over" : "reload the preload values")); LOG(("- Timer is %s\n", m_tcr & REG_TCR_ENABLE ? "enabled" : "disabled")); if (m_tcr & REG_TCR_ENABLE) { m_cntr = 0; if (pen == 1){ LOG(("PC2 enable/disable TBD\n")); } if (clk == 1) { int rate = clock() / (psc == 1 ? 32 : 1); pit_timer->adjust(attotime::from_hz(rate), TIMER_ID_PIT, attotime::from_hz(rate)); LOG(("PIT timer started @ rate: %d and CLK: %d,\n", rate, clock())); } } else { pit_timer->adjust(attotime::never, TIMER_ID_PIT, attotime::never); m_tcr = tout + tiack + irq + sqr; // remove this when the variables are used for the different modes!! Just here to to avoid warnings } } void pit68230_device::wr_pitreg_tivr(UINT8 data) { LOG(("%s(%02x) \"%s\": \n", FUNCNAME, data, tag())); m_tivr = data; } void pit68230_device::wr_pitreg_cprh(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_cpr &= ~0xff0000; m_cpr |= ((data << 16) & 0xff0000); } void pit68230_device::wr_pitreg_cprm(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_cpr &= ~0x00ff00; m_cpr |= ((data << 8) & 0x00ff00); } void pit68230_device::wr_pitreg_cprl(UINT8 data) { LOG(("%s(%02x) \"%s\": %s - %02x\n", FUNCNAME, data, tag(), FUNCNAME, data)); m_cpr &= ~0x0000ff; m_cpr |= ((data << 0) & 0x0000ff); } void pit68230_device::wr_pitreg_tsr(UINT8 data) { LOG(("%s(%02x) \"%s\": \n", FUNCNAME, data, tag())); m_tsr = data; } WRITE8_MEMBER (pit68230_device::write) { LOG(("\"%s\" %s: Register write '%02x' -> [%02x]\n", tag(), FUNCNAME, data, offset )); LOGSETUP((" * %s Reg %02x <- %02x \n", tag(), offset, data)); switch (offset) { case PIT_68230_PGCR: wr_pitreg_pgcr(data); break; case PIT_68230_PSRR: wr_pitreg_psrr(data); break; case PIT_68230_PADDR: wr_pitreg_paddr(data); break; case PIT_68230_PBDDR: wr_pitreg_pbddr(data); break; case PIT_68230_PCDDR: wr_pitreg_pcddr(data); break; case PIT_68230_PIVR: wr_pitreg_pivr(data); break; case PIT_68230_PACR: wr_pitreg_pacr(data); break; case PIT_68230_PBCR: wr_pitreg_pbcr(data); break; case PIT_68230_PADR: wr_pitreg_padr(data); break; case PIT_68230_PBDR: wr_pitreg_pbdr(data); break; case PIT_68230_PAAR: break; // Ignores write per spec, read only register case PIT_68230_PBAR: break; // Ignores write per spec, read only register case PIT_68230_PCDR: wr_pitreg_pcdr(data); break; case PIT_68230_PSR: wr_pitreg_psr(data); break; case PIT_68230_TCR: wr_pitreg_tcr(data); break; case PIT_68230_TIVR: wr_pitreg_tivr(data); break; case PIT_68230_CPRH: wr_pitreg_cprh(data); break; case PIT_68230_CPRM: wr_pitreg_cprm(data); break; case PIT_68230_CPRL: wr_pitreg_cprl(data); break; case PIT_68230_CNTRH: break; // Ignores write per spec, read only register case PIT_68230_CNTRM: break; // Ignores write per spec, read only register case PIT_68230_CNTRL: break; // Ignores write per spec, read only register case PIT_68230_TSR: wr_pitreg_tsr(data); break; default: LOG (("Unhandled Write of %02x to register %02x", data, offset)); } #if VERBOSE > 2 if (offset != ow_ofs || data != ow_data || ow_cnt >= 1000) { logerror ("\npit68230_device::write: previous identical operation performed %02x times\n", ow_cnt); ow_cnt = 0; ow_data = data; ow_ofs = offset; logerror ("pit68230_device::write: offset=%02x data=%02x %lld\n", ow_ofs, ow_data, machine ().firstcpu->total_cycles ()); } else ow_cnt++; #endif } #if VERBOSE > 2 static INT32 or_cnt = 0; static INT32 or_data = 0; static INT32 or_ofs = 0; #endif UINT8 pit68230_device::rr_pitreg_pgcr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pgcr)); return m_pgcr; } UINT8 pit68230_device::rr_pitreg_psrr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_psrr)); return m_psrr; } UINT8 pit68230_device::rr_pitreg_paddr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_paddr)); return m_paddr; } UINT8 pit68230_device::rr_pitreg_pbddr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pbddr)); return m_pbddr; } UINT8 pit68230_device::rr_pitreg_pcddr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pcddr)); return m_pcddr; } UINT8 pit68230_device::rr_pitreg_pivr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pivr)); return m_pivr; } UINT8 pit68230_device::rr_pitreg_pacr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pacr)); return m_pacr; } UINT8 pit68230_device::rr_pitreg_pbcr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pbcr)); return m_pbcr; } UINT8 pit68230_device::rr_pitreg_padr() { m_padr &= m_paddr; m_padr |= (m_pa_in_cb() & ~m_paddr); LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_padr)); return m_padr; } /* 4.6.2. PORT B DATA REGISTER (PBDR). The port B data register is a holding * register for moving data to and from port B pins. The port B data direction * register determines whether each pin is an input (zero) or an output (one). * This register is readable and writable at all times. Depending on the chosen * mode/submode, reading or writing may affect the double-buffered handshake * mechanism. The port B data register is not affected by the assertion of the * RESET pin. PB0-PB7 sits on pins 17-24 on a 48 pin DIP package */ UINT8 pit68230_device::rr_pitreg_pbdr() { m_pbdr &= m_pbddr; m_pbdr |= (m_pb_in_cb() & ~m_pbddr); LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pbdr)); return m_pbdr; } UINT8 pit68230_device::rr_pitreg_pcdr() { m_pcdr &= m_pcddr; m_pcdr |= (m_pc_in_cb() & ~m_pcddr); LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_pcdr)); return m_pcdr; } /* The port A alternate register is an alternate register for reading the port A pins. It is a read-only address and no other PI/T condition is affected. In all modes, the instantaneous pin level is read and no input latching is performed except at the data bus interface. Writes to this address are answered with DTACK, but the data is ignored.*/ UINT8 pit68230_device::rr_pitreg_paar() { // NOTE: no side effect emulated so using ..padr UINT8 ret; ret = m_pa_in_cb(); LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, ret)); return ret; } /* The port B alternate register is an alternate register for reading the port B pins. It is a read-only address and no other PI/T condition is affected. In all modes, the instantaneous pin level is read and no input latching is performed except at the data bus interface.Writes to this address are answered with DTACK, but the data is ignored.*/ UINT8 pit68230_device::rr_pitreg_pbar() { // NOTE: no side effect emulated so using ..pbdr UINT8 ret; ret = m_pb_in_cb(); LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, ret)); return ret; } /* 4.8. PORT STATUS REGISTER (PSR) The port status register contains information about * handshake pin activity. Bits 7-4 show the instantaneous level of the respective handshake * pin, and are independent of the handshake pin sense bits in the port general control * register. Bits 3-0 are the respective status bits referred to throughout this document. * Their interpretation depends on the programmed mode/submode of the PI/T. For bits * 3-0 a one is the active or asserted state. */ UINT8 pit68230_device::rr_pitreg_psr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_psr)); return m_psr; } UINT8 pit68230_device::rr_pitreg_tcr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_tcr)); return m_tcr; } UINT8 pit68230_device::rr_pitreg_tivr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_tivr)); return m_tivr; } UINT8 pit68230_device::rr_pitreg_cprh() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, (m_cpr >> 16) & 0xff)); return (m_cpr >> 16) & 0xff; } UINT8 pit68230_device::rr_pitreg_cprm() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, (m_cpr >> 8) & 0xff)); return (m_cpr >> 8) & 0xff; } UINT8 pit68230_device::rr_pitreg_cprl() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, (m_cpr >> 0) & 0xff)); return (m_cpr >> 0) & 0xff; } UINT8 pit68230_device::rr_pitreg_cntrh() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, (m_cntr >> 16) & 0xff)); return (m_cntr >> 16) & 0xff; } UINT8 pit68230_device::rr_pitreg_cntrm() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, (m_cntr >> 8) & 0xff)); return (m_cntr >> 8) & 0xff; } UINT8 pit68230_device::rr_pitreg_cntrl() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, (m_cntr >> 0) & 0xff)); return (m_cntr >> 0) & 0xff; } UINT8 pit68230_device::rr_pitreg_tsr() { LOGR(("%s %s <- %02x\n",tag(), FUNCNAME, m_tsr)); return m_tsr; } READ8_MEMBER (pit68230_device::read){ UINT8 data; switch (offset) { case PIT_68230_PGCR: data = rr_pitreg_pgcr(); break; case PIT_68230_PSRR: data = rr_pitreg_psrr(); break; case PIT_68230_PADDR: data = rr_pitreg_paddr(); break; case PIT_68230_PBDDR: data = rr_pitreg_pbddr(); break; case PIT_68230_PCDDR: data = rr_pitreg_pcddr(); break; case PIT_68230_PIVR: data = rr_pitreg_pivr(); break; case PIT_68230_PACR: data = rr_pitreg_pacr(); break; case PIT_68230_PBCR: data = rr_pitreg_pbcr(); break; case PIT_68230_PADR: data = rr_pitreg_padr(); break; case PIT_68230_PBDR: data = rr_pitreg_pbdr(); break; case PIT_68230_PAAR: data = rr_pitreg_paar(); break; case PIT_68230_PBAR: data = rr_pitreg_pbar(); break; case PIT_68230_PCDR: data = rr_pitreg_pcdr(); break; case PIT_68230_PSR: data = rr_pitreg_psr(); break; case PIT_68230_TCR: data = rr_pitreg_tcr(); break; case PIT_68230_TIVR: data = rr_pitreg_tivr(); break; case PIT_68230_CPRH: data = rr_pitreg_cprh(); break; case PIT_68230_CPRM: data = rr_pitreg_cprm(); break; case PIT_68230_CPRL: data = rr_pitreg_cprl(); break; case PIT_68230_CNTRH: data = rr_pitreg_cntrh(); break; case PIT_68230_CNTRM: data = rr_pitreg_cntrm(); break; case PIT_68230_CNTRL: data = rr_pitreg_cntrl(); break; case PIT_68230_TSR: data = rr_pitreg_tsr(); break; default: LOG (("Unhandled read register %02x\n", offset)); data = 0; } #if VERBOSE > 2 if (offset != or_ofs || data != or_data || or_cnt >= 1000) { logerror ("\npit68230_device::read: previous identical operation performed %02x times\n", or_cnt); or_cnt = 0; or_data = data; or_ofs = offset; logerror ("pit68230_device::read: offset=%02x data=%02x %lld\n", or_ofs, or_data, machine ().firstcpu->total_cycles ()); } else or_cnt++; #endif return data; }