Skip to content

dvk_kcgd: use new 1801vp033 device #14278

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Oct 8, 2025
+523 −118
Merged

dvk_kcgd: use new 1801vp033 device #14278

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
227 changes: 227 additions & 0 deletions src/mame/ussr/1801vp033.cpp
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,227 @@
// license:BSD-3-Clause
// copyright-holders:Sergey Svishchev
/**********************************************************************

1801VP1-033 Gate Array emulation

https://github.com/1801BM1/k1801/blob/master/033/doc/bpic.md

Multifunction device; function is chosen at power-up time:

BPIC - bidirectional 8-bit parallel port with interrupt support
(for printers, paper tape readers and terminals)
PIC - bidirectional 16-bit parallel port with interrupt support
FDIC - bidirectional parallel-to-serial interface
(for external floppy drive, clone of RX01 or RX02)

Unimplemented: FDIC function and bidirectional mode of BPIC function

**********************************************************************/

#include "emu.h"
#include "1801vp033.h"

//#define VERBOSE (LOG_GENERAL)
#include "logmacro.h"


//**************************************************************************
// MACROS / CONSTANTS
//**************************************************************************



//**************************************************************************
// DEVICE DEFINITIONS
//**************************************************************************

DEFINE_DEVICE_TYPE(K1801VP033, k1801vp033_device, "1801vp1_033", "1801VP1-033")



//**************************************************************************
// LIVE DEVICE
//**************************************************************************

//-------------------------------------------------
// k1801vp033_device - constructor
//-------------------------------------------------

k1801vp033_device::k1801vp033_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock)
: device_t(mconfig, K1801VP033, tag, owner, clock)
, device_z80daisy_interface(mconfig, *this)
, m_bpic_write_rxrdy(*this)
, m_bpic_write_txrdy(*this)
, m_bpic_write_reset(*this)
, m_bpic_write_strobe(*this)
, m_bpic_write_pd(*this)
, m_pic_write_reqa(*this)
, m_pic_write_reqb(*this)
, m_pic_write_csr0(*this)
, m_pic_write_csr1(*this)
, m_pic_write_out(*this)
, m_rxvec(0)
, m_txvec(0)
{
}


//-------------------------------------------------
// device_start - device-specific startup
//-------------------------------------------------

void k1801vp033_device::device_start()
{
m_rcsr = m_tcsr = m_rbuf = m_tbuf = 0;
m_rxrdy = m_txrdy = CLEAR_LINE;

m_bpic_write_strobe(1);

// register for state saving
save_item(NAME(m_rcsr));
save_item(NAME(m_rbuf));
save_item(NAME(m_tcsr));
save_item(NAME(m_tbuf));
}


//-------------------------------------------------
// device_reset - device-specific reset
//-------------------------------------------------

void k1801vp033_device::device_reset()
{
m_tbuf = 0;
m_txrdy = CLEAR_LINE;
m_tcsr &= ~(CSR_IE | PICCSR_IEA | PICCSR_IEB);
m_tcsr |= BPICCSR_DRQ;
}

//-------------------------------------------------
// daisy chained interrupts
//-------------------------------------------------

int k1801vp033_device::z80daisy_irq_state()
{
if (m_rxrdy == ASSERT_LINE || m_txrdy == ASSERT_LINE)
return Z80_DAISY_INT;
else
return 0;
}

int k1801vp033_device::z80daisy_irq_ack()
{
int vec = -1;

if (m_rxrdy == ASSERT_LINE)
{
m_rxrdy = CLEAR_LINE;
vec = m_rxvec;
}
else if (m_txrdy == ASSERT_LINE)
{
m_txrdy = CLEAR_LINE;
vec = m_txvec;
}

return vec;
}


//-------------------------------------------------
// read - register read
//-------------------------------------------------

uint16_t k1801vp033_device::bpic_read(offs_t offset)
{
uint16_t data = 0;

switch (offset & 3)
{
case 0:
data = m_tcsr & BPICCSR_RD;
break;

case 2:
data = m_tbuf;
break;
}

return data;
}


uint16_t k1801vp033_device::pic_read(offs_t offset)
{
uint16_t data = 0;

switch (offset & 3)
{
case 0:
data = m_tcsr & PICCSR_RD;
break;

case 1:
data = m_tbuf;
break;

case 2:
data = m_rbuf;
break;
}

return data;
}

//-------------------------------------------------
// write - register write
//-------------------------------------------------

void k1801vp033_device::bpic_write(offs_t offset, uint16_t data, uint16_t mem_mask)
{
LOG("%s W %06o <- %06o & %06o\n", machine().describe_context(), 0177510 + (offset << 1), data, mem_mask);

switch (offset & 3)
{
case 0:
if ((data & CSR_IE) == 0)
{
clear_virq(m_bpic_write_txrdy, 1, 1, m_txrdy);
}
else if ((m_tcsr & (BPICCSR_DRQ + CSR_IE)) == BPICCSR_DRQ)
{
raise_virq(m_bpic_write_txrdy, 1, 1, m_txrdy);
}
m_tcsr = ((m_tcsr & ~BPICCSR_WR) | (data & BPICCSR_WR));
m_bpic_write_reset(!BIT(m_tcsr, 14));
break;

case 2:
m_tbuf = data & 0377;
m_tcsr &= ~BPICCSR_DRQ;
clear_virq(m_bpic_write_txrdy, m_tcsr, CSR_IE, m_txrdy);
m_bpic_write_pd(m_tbuf);
m_bpic_write_strobe(0);
m_bpic_write_strobe(1);
break;
}
}

void k1801vp033_device::pic_write(offs_t offset, uint16_t data, uint16_t mem_mask)
{
LOG("%s W %06o <- %06o & %06o\n", machine().describe_context(), 0177510 + (offset << 1), data, mem_mask);

switch (offset & 3)
{
case 0:
m_tcsr = ((m_tcsr & ~PICCSR_WR) | (data & PICCSR_WR));
m_pic_write_csr0(BIT(m_tcsr, 0));
m_pic_write_csr1(BIT(m_tcsr, 1));
break;

case 1:
COMBINE_DATA(&m_tbuf);
m_pic_write_out(0, m_tbuf, mem_mask);
break;
}
}
117 changes: 117 additions & 0 deletions src/mame/ussr/1801vp033.h
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,117 @@
// license:BSD-3-Clause
// copyright-holders:Sergey Svishchev
/**********************************************************************

1801VP1-033 Gate Array emulation

**********************************************************************/

#ifndef MAME_USSR_1801VP033_H
#define MAME_USSR_1801VP033_H

#pragma once

#include "machine/pdp11.h"
#include "machine/z80daisy.h"


//**************************************************************************
// TYPE DEFINITIONS
//**************************************************************************

// ======================> k1801vp033_device

class k1801vp033_device : public device_t,
public device_z80daisy_interface
{
public:
// construction/destruction
k1801vp033_device(const machine_config &mconfig, const char *tag, device_t *owner, uint32_t clock);

// BPIC mode

void set_txvec(int vec) { m_txvec = vec; }
void set_rxvec(int vec) { m_rxvec = vec; }

auto bpic_txrdy_wr_callback() { return m_bpic_write_txrdy.bind(); }
auto bpic_reset_wr_callback() { return m_bpic_write_reset.bind(); }
auto bpic_strobe_wr_callback() { return m_bpic_write_strobe.bind(); }
auto bpic_pd_wr_callback() { return m_bpic_write_pd.bind(); }

uint16_t bpic_read(offs_t offset);
void bpic_write(offs_t offset, uint16_t data, uint16_t mem_mask = ~0);

void bpic_write_drq(int state) { if (state) { m_tcsr |= BPICCSR_DRQ; raise_virq(m_bpic_write_txrdy, m_tcsr, CSR_IE, m_txrdy); } }
void bpic_write_err(int state) { if (state) m_tcsr |= CSR_ERR; else m_tcsr &= ~CSR_ERR; }

// PIC mode

void set_vec_a(int vec) { m_txvec = vec; }
void set_vec_b(int vec) { m_rxvec = vec; }

auto pic_out_wr_callback() { return m_pic_write_out.bind(); }
auto pic_csr0_wr_callback() { return m_pic_write_csr0.bind(); }
auto pic_csr1_wr_callback() { return m_pic_write_csr1.bind(); }

uint16_t pic_read(offs_t offset);
void pic_write(offs_t offset, uint16_t data, uint16_t mem_mask = ~0);

void pic_write_reqa(int state) { if (state) { m_tcsr |= PICCSR_REQA; raise_virq(m_pic_write_reqa, m_tcsr, PICCSR_IEA, m_txrdy); } }
void pic_write_reqb(int state) { if (state) { m_tcsr |= PICCSR_REQB; raise_virq(m_pic_write_reqb, m_tcsr, PICCSR_IEB, m_rxrdy); } }
void pic_write_rbuf(uint16_t data) { m_rbuf = data; }

protected:
// device-level overrides
virtual void device_start() override;
virtual void device_reset() override;

// device_z80daisy_interface overrides
virtual int z80daisy_irq_state() override;
virtual int z80daisy_irq_ack() override;
virtual void z80daisy_irq_reti() override {};

private:
static constexpr uint16_t BPICCSR_RDY = 0000040;
static constexpr uint16_t BPICCSR_DRQ = 0000200;
static constexpr uint16_t BPICCSR_RESET = 0040000;
static constexpr uint16_t BPICCSR_RD = (CSR_DONE | CSR_IE | CSR_ERR | BPICCSR_RDY | BPICCSR_DRQ);
static constexpr uint16_t BPICCSR_WR = (CSR_IE | BPICCSR_RESET);

static constexpr uint16_t PICCSR_CSR0 = 0000001;
static constexpr uint16_t PICCSR_CSR1 = 0000002;
static constexpr uint16_t PICCSR_IEB = 0000040;
static constexpr uint16_t PICCSR_IEA = 0000100;
static constexpr uint16_t PICCSR_REQA = 0000200;
static constexpr uint16_t PICCSR_REQB = 0100000;
static constexpr uint16_t PICCSR_RD = (PICCSR_REQB | PICCSR_REQA | PICCSR_IEA | PICCSR_IEB | PICCSR_CSR1 | PICCSR_CSR0);
static constexpr uint16_t PICCSR_WR = (PICCSR_IEA | PICCSR_IEB | PICCSR_CSR1 | PICCSR_CSR0);

devcb_write_line m_bpic_write_rxrdy;
devcb_write_line m_bpic_write_txrdy;
devcb_write_line m_bpic_write_reset;
devcb_write_line m_bpic_write_strobe;
devcb_write8 m_bpic_write_pd;

devcb_write_line m_pic_write_reqa;
devcb_write_line m_pic_write_reqb;
devcb_write_line m_pic_write_csr0;
devcb_write_line m_pic_write_csr1;
devcb_write16 m_pic_write_out;

line_state m_rxrdy;
line_state m_txrdy;

int m_rxvec;
int m_txvec;

uint16_t m_rcsr;
uint16_t m_rbuf;
uint16_t m_tcsr;
uint16_t m_tbuf;
};


// device type definition
DECLARE_DEVICE_TYPE(K1801VP033, k1801vp033_device)

#endif // MAME_USSR_1801VP033_H
Loading
Loading