The new code is based on timestamps, rather than delays. This eliminates the need to update every timer in timer_process(), which cost a non-trivial amount of CPU time on low-end machines. This involved changes to every user of the timer code, so this change almost certainly introduces bugs.
835 lines
26 KiB
C
835 lines
26 KiB
C
#include <stdlib.h>
|
|
#include "ibm.h"
|
|
#include "device.h"
|
|
#include "io.h"
|
|
#include "mem.h"
|
|
#include "rom.h"
|
|
#include "scsi.h"
|
|
#include "scsi_53c400.h"
|
|
#include "timer.h"
|
|
|
|
#define POLL_TIME_US 1
|
|
#define MAX_BYTES_TRANSFERRED_PER_POLL 50
|
|
|
|
typedef struct ncr5380_t
|
|
{
|
|
uint8_t output_data;
|
|
uint8_t icr;
|
|
uint8_t mode;
|
|
uint8_t tcr;
|
|
uint8_t ser;
|
|
uint8_t isr;
|
|
|
|
int target_id;
|
|
int target_bsy;
|
|
int target_req;
|
|
|
|
uint8_t bus_status;
|
|
|
|
int dma_mode;
|
|
|
|
void (*dma_changed)(struct ncr5380_t *ncr, int mode, int enable);
|
|
void *p;
|
|
|
|
scsi_bus_t bus;
|
|
} ncr5380_t;
|
|
|
|
typedef struct lcs6821n_t
|
|
{
|
|
rom_t bios_rom;
|
|
|
|
mem_mapping_t mapping;
|
|
|
|
uint8_t block_count;
|
|
int block_count_loaded;
|
|
|
|
uint8_t status_ctrl;
|
|
|
|
uint8_t buffer[0x80];
|
|
int buffer_pos;
|
|
int buffer_host_pos;
|
|
|
|
uint8_t int_ram[0x40];
|
|
uint8_t ext_ram[0x600];
|
|
|
|
ncr5380_t ncr;
|
|
|
|
int ncr5380_dma_enabled;
|
|
|
|
pc_timer_t dma_timer;
|
|
|
|
int ncr_busy;
|
|
} lcs6821n_t;
|
|
|
|
#define ICR_DBP 0x01
|
|
#define ICR_ATN 0x02
|
|
#define ICR_SEL 0x04
|
|
#define ICR_BSY 0x08
|
|
#define ICR_ACK 0x10
|
|
#define ICR_ARB_LOST 0x20
|
|
#define ICR_ARB_IN_PROGRESS 0x40
|
|
|
|
#define MODE_ARBITRATE 0x01
|
|
#define MODE_DMA 0x02
|
|
#define MODE_MONITOR_BUSY 0x04
|
|
#define MODE_ENA_EOP_INT 0x08
|
|
|
|
#define STATUS_ACK 0x01
|
|
#define STATUS_BUSY_ERROR 0x04
|
|
#define STATUS_INT 0x10
|
|
#define STATUS_DRQ 0x40
|
|
#define STATUS_END_OF_DMA 0x80
|
|
|
|
#define TCR_IO 0x01
|
|
#define TCR_CD 0x02
|
|
#define TCR_MSG 0x04
|
|
#define TCR_REQ 0x08
|
|
#define TCR_LAST_BYTE_SENT 0x80
|
|
|
|
enum
|
|
{
|
|
DMA_IDLE = 0,
|
|
DMA_SEND,
|
|
DMA_TARGET_RECEIVE,
|
|
DMA_INITIATOR_RECEIVE
|
|
};
|
|
|
|
static void set_dma_enable(lcs6821n_t *scsi, int enable)
|
|
{
|
|
if (enable)
|
|
{
|
|
if (!timer_is_enabled(&scsi->dma_timer))
|
|
timer_set_delay_u64(&scsi->dma_timer, TIMER_USEC * POLL_TIME_US);
|
|
}
|
|
else
|
|
timer_disable(&scsi->dma_timer);
|
|
}
|
|
|
|
static void ncr53c400_dma_changed(ncr5380_t *ncr, int mode, int enable)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)ncr->p;
|
|
|
|
scsi->ncr5380_dma_enabled = (mode && enable);
|
|
|
|
set_dma_enable(scsi, scsi->ncr5380_dma_enabled && scsi->block_count_loaded);
|
|
}
|
|
|
|
void ncr5380_reset(ncr5380_t *ncr)
|
|
{
|
|
memset(ncr, 0, sizeof(ncr5380_t));
|
|
}
|
|
|
|
static uint32_t get_bus_host(ncr5380_t *ncr)
|
|
{
|
|
uint32_t bus_host = 0;
|
|
|
|
if (ncr->icr & ICR_DBP)
|
|
bus_host |= BUS_DBP;
|
|
if (ncr->icr & ICR_SEL)
|
|
bus_host |= BUS_SEL;
|
|
if (ncr->icr & ICR_ATN)
|
|
bus_host |= BUS_ATN;
|
|
if (ncr->tcr & TCR_IO)
|
|
bus_host |= BUS_IO;
|
|
if (ncr->tcr & TCR_CD)
|
|
bus_host |= BUS_CD;
|
|
if (ncr->tcr & TCR_MSG)
|
|
bus_host |= BUS_MSG;
|
|
if (ncr->tcr & TCR_REQ)
|
|
bus_host |= BUS_REQ;
|
|
if (ncr->icr & ICR_BSY)
|
|
bus_host |= BUS_BSY;
|
|
if (ncr->icr & ICR_ACK)
|
|
bus_host |= BUS_ACK;
|
|
if (ncr->mode & MODE_ARBITRATE)
|
|
bus_host |= BUS_ARB;
|
|
// pclog("get_bus_host %02x %08x\n", ncr->output_data, BUS_SETDATA(ncr->output_data));
|
|
return bus_host | BUS_SETDATA(ncr->output_data);
|
|
}
|
|
|
|
void ncr5380_write(uint32_t addr, uint8_t val, void *p)
|
|
{
|
|
ncr5380_t *ncr = (ncr5380_t *)p;
|
|
int bus_host = 0;
|
|
|
|
// pclog("ncr5380_write: addr=%06x val=%02x %04x:%04x\n", addr, val, CS,cpu_state.pc);
|
|
switch (addr & 7)
|
|
{
|
|
case 0: /*Output data register*/
|
|
ncr->output_data = val;
|
|
break;
|
|
|
|
case 1: /*Initiator Command Register*/
|
|
if ((val & (ICR_BSY | ICR_SEL)) == (ICR_BSY | ICR_SEL) &&
|
|
(ncr->icr & (ICR_BSY | ICR_SEL)) == ICR_SEL)
|
|
{
|
|
uint8_t temp = ncr->output_data & 0x7f;
|
|
|
|
ncr->target_id = -1;
|
|
while (temp)
|
|
{
|
|
temp >>= 1;
|
|
ncr->target_id++;
|
|
}
|
|
// pclog("Select - target ID = %i\n", ncr->target_id);
|
|
|
|
if (!ncr->target_id)
|
|
ncr->target_bsy = 1;
|
|
}
|
|
|
|
ncr->icr = val;
|
|
break;
|
|
|
|
case 2: /*Mode register*/
|
|
if ((val & MODE_ARBITRATE) && !(ncr->mode & MODE_ARBITRATE))
|
|
{
|
|
ncr->icr &= ~ICR_ARB_LOST;
|
|
ncr->icr |= ICR_ARB_IN_PROGRESS;
|
|
}
|
|
|
|
// output = 1;
|
|
ncr->mode = val;
|
|
ncr->dma_changed(ncr, ncr->dma_mode, ncr->mode & MODE_DMA);
|
|
if (!(ncr->mode & MODE_DMA))
|
|
{
|
|
ncr->tcr &= ~TCR_LAST_BYTE_SENT;
|
|
ncr->isr &= ~STATUS_END_OF_DMA;
|
|
ncr->dma_mode = DMA_IDLE;
|
|
}
|
|
break;
|
|
|
|
case 3: /*Target Command Register*/
|
|
ncr->tcr = val;
|
|
/* switch (val & (TCR_MSG | TCR_CD | TCR_IO))
|
|
{
|
|
case TCR_CD:
|
|
ncr->target_req = 1;
|
|
break;
|
|
}*/
|
|
break;
|
|
case 4: /*Select Enable Register*/
|
|
ncr->ser = val;
|
|
break;
|
|
|
|
case 5: /*Start DMA Send*/
|
|
ncr->dma_mode = DMA_SEND;
|
|
ncr->dma_changed(ncr, ncr->dma_mode, ncr->mode & MODE_DMA);
|
|
break;
|
|
|
|
case 7: /*Start DMA Initiator Receive*/
|
|
ncr->dma_mode = DMA_INITIATOR_RECEIVE;
|
|
ncr->dma_changed(ncr, ncr->dma_mode, ncr->mode & MODE_DMA);
|
|
break;
|
|
|
|
default:
|
|
pclog("Bad NCR5380 write %06x %02x\n", addr, val);
|
|
}
|
|
|
|
bus_host = get_bus_host(ncr);
|
|
|
|
scsi_bus_update(&ncr->bus, bus_host);
|
|
}
|
|
|
|
uint8_t ncr5380_read(uint32_t addr, void *p)
|
|
{
|
|
ncr5380_t *ncr = (ncr5380_t *)p;
|
|
uint32_t bus = 0;
|
|
uint8_t temp = 0xff;
|
|
|
|
switch (addr & 7)
|
|
{
|
|
case 0: /*Current SCSI Data*/
|
|
//output = 3;
|
|
//fatal("Here\n");
|
|
if (ncr->icr & ICR_DBP)
|
|
temp = ncr->output_data;
|
|
else
|
|
{
|
|
bus = scsi_bus_read(&ncr->bus);
|
|
temp = BUS_GETDATA(bus);
|
|
}
|
|
break;
|
|
case 1: /*Initiator Command Register*/
|
|
temp = ncr->icr;
|
|
break;
|
|
case 2: /*Mode Register*/
|
|
temp = ncr->mode;
|
|
break;
|
|
case 3: /*Target Command Register*/
|
|
temp = ncr->tcr;
|
|
break;
|
|
|
|
case 4: /*Current SCSI Bus Status*/
|
|
temp = 0;//get_bus_host(ncr);
|
|
bus = scsi_bus_read(&ncr->bus);
|
|
// pclog(" SCSI bus status = %02x %02x\n", temp, bus);
|
|
temp |= (bus & 0xff);
|
|
// pclog(" SCSI bus status = %02x\n", temp);
|
|
break;
|
|
|
|
case 5: /*Bus and Status Register*/
|
|
temp = 0;
|
|
|
|
bus = get_bus_host(ncr);
|
|
if (scsi_bus_match(&ncr->bus, bus))
|
|
temp |= 8;
|
|
bus = scsi_bus_read(&ncr->bus);
|
|
|
|
if (bus & BUS_ACK)
|
|
temp |= STATUS_ACK;
|
|
if ((bus & BUS_REQ) && (ncr->mode & MODE_DMA))
|
|
temp |= STATUS_DRQ;
|
|
if ((bus & BUS_REQ) && (ncr->mode & MODE_DMA))
|
|
{
|
|
int bus_state = 0;
|
|
if (bus & BUS_IO)
|
|
bus_state |= TCR_IO;
|
|
if (bus & BUS_CD)
|
|
bus_state |= TCR_CD;
|
|
if (bus & BUS_MSG)
|
|
bus_state |= TCR_MSG;
|
|
if ((ncr->tcr & 7) != bus_state)
|
|
ncr->isr |= STATUS_INT;
|
|
}
|
|
if (!(bus & BUS_BSY) && (ncr->mode & MODE_MONITOR_BUSY))
|
|
temp |= STATUS_BUSY_ERROR;
|
|
temp |= (ncr->isr & (STATUS_INT | STATUS_END_OF_DMA));
|
|
|
|
// pclog(" bus and status register = %02x\n", temp);
|
|
break;
|
|
|
|
case 7: /*Reset Parity/Interrupt*/
|
|
ncr->isr &= ~STATUS_INT;
|
|
break;
|
|
|
|
default:
|
|
pclog("Bad NCR5380 read %06x\n", addr);
|
|
}
|
|
// pclog("ncr5380_read: addr=%06x temp=%02x pc=%04x:%04x\n", addr, temp, CS,cpu_state.pc);
|
|
return temp;
|
|
}
|
|
|
|
#define CTRL_DATA_DIR (1 << 6)
|
|
|
|
#define STATUS_BUFFER_NOT_READY (1 << 2)
|
|
#define STATUS_53C80_ACCESSIBLE (1 << 7)
|
|
|
|
static uint8_t lcs6821n_read(uint32_t addr, void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
uint8_t temp = 0xff;
|
|
//if (addr >= 0xca000)
|
|
addr &= 0x3fff;
|
|
// pclog("lcs6821n_read %08x\n", addr);
|
|
if (addr < 0x2000)
|
|
temp = scsi->bios_rom.rom[addr & 0x1fff];
|
|
else if (addr < 0x3800)
|
|
temp = 0xff;
|
|
else if (addr >= 0x3a00)
|
|
temp = scsi->ext_ram[addr - 0x3a00];
|
|
else switch (addr & 0x3f80)
|
|
{
|
|
case 0x3800:
|
|
// pclog("Read intRAM %02x %02x\n", addr & 0x3f, scsi->int_ram[addr & 0x3f]);
|
|
temp = scsi->int_ram[addr & 0x3f];
|
|
break;
|
|
|
|
case 0x3880:
|
|
// pclog("Read 53c80 %04x\n", addr);
|
|
temp = ncr5380_read(addr, &scsi->ncr);
|
|
break;
|
|
|
|
case 0x3900:
|
|
//pclog(" Read 3900 %i %02x\n", scsi->buffer_host_pos, scsi->status_ctrl);
|
|
if (scsi->buffer_host_pos >= 128 || !(scsi->status_ctrl & CTRL_DATA_DIR))
|
|
temp = 0xff;
|
|
else
|
|
{
|
|
temp = scsi->buffer[scsi->buffer_host_pos++];
|
|
|
|
if (scsi->buffer_host_pos == 128)
|
|
scsi->status_ctrl |= STATUS_BUFFER_NOT_READY;
|
|
}
|
|
break;
|
|
|
|
case 0x3980:
|
|
switch (addr)
|
|
{
|
|
case 0x3980: /*Status*/
|
|
temp = scsi->status_ctrl;// | 0x80;
|
|
if (!scsi->ncr_busy)
|
|
temp |= STATUS_53C80_ACCESSIBLE;
|
|
break;
|
|
case 0x3981: /*Block counter register*/
|
|
temp = scsi->block_count;
|
|
break;
|
|
case 0x3982: /*Switch register read*/
|
|
// temp = 7 | (7 << 3);
|
|
temp = 0xff;
|
|
break;
|
|
case 0x3983:
|
|
temp = 0xff;
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
|
|
// if (addr >= 0x3880) pclog("lcs6821n_read: addr=%05x val=%02x %04x:%04x\n", addr, temp, CS,cpu_state.pc);
|
|
|
|
return temp;
|
|
}
|
|
|
|
static void lcs6821n_write(uint32_t addr, uint8_t val, void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
|
|
addr &= 0x3fff;
|
|
|
|
// /*if (addr >= 0x3880) */pclog("lcs6821n_write: addr=%05x val=%02x %04x:%04x %i %02x\n", addr, val, CS,cpu_state.pc, scsi->buffer_host_pos, scsi->status_ctrl);
|
|
|
|
if (addr >= 0x3a00)
|
|
scsi->ext_ram[addr - 0x3a00] = val;
|
|
else switch (addr & 0x3f80)
|
|
{
|
|
case 0x3800:
|
|
// pclog("Write intram %02x %02x\n", addr & 0x3f, val);
|
|
scsi->int_ram[addr & 0x3f] = val;
|
|
break;
|
|
|
|
case 0x3880:
|
|
// pclog("Write 53c80 %04x %02x\n", addr, val);
|
|
ncr5380_write(addr, val, &scsi->ncr);
|
|
break;
|
|
|
|
case 0x3900:
|
|
if (!(scsi->status_ctrl & CTRL_DATA_DIR) && scsi->buffer_host_pos < 128)
|
|
{
|
|
// pclog(" Write %i %02x\n", scsi->buffer_host_pos, val);
|
|
scsi->buffer[scsi->buffer_host_pos++] = val;
|
|
if (scsi->buffer_host_pos == 128)
|
|
{
|
|
scsi->status_ctrl |= STATUS_BUFFER_NOT_READY;
|
|
scsi->ncr_busy = 1;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 0x3980:
|
|
switch (addr)
|
|
{
|
|
case 0x3980: /*Control*/
|
|
if ((val & CTRL_DATA_DIR) && !(scsi->status_ctrl & CTRL_DATA_DIR))
|
|
{
|
|
scsi->buffer_host_pos = 128;
|
|
scsi->status_ctrl |= STATUS_BUFFER_NOT_READY;
|
|
}
|
|
else if (!(val & CTRL_DATA_DIR) && (scsi->status_ctrl & CTRL_DATA_DIR))
|
|
{
|
|
scsi->buffer_host_pos = 0;
|
|
scsi->status_ctrl &= ~STATUS_BUFFER_NOT_READY;
|
|
}
|
|
scsi->status_ctrl = (scsi->status_ctrl & 0x87) | (val & 0x78);
|
|
break;
|
|
case 0x3981: /*Block counter register*/
|
|
scsi->block_count = val;
|
|
scsi->block_count_loaded = 1;
|
|
set_dma_enable(scsi, scsi->ncr5380_dma_enabled && scsi->block_count_loaded);
|
|
if (scsi->status_ctrl & CTRL_DATA_DIR)
|
|
{
|
|
scsi->buffer_host_pos = 128;
|
|
scsi->status_ctrl |= STATUS_BUFFER_NOT_READY;
|
|
}
|
|
else
|
|
{
|
|
scsi->buffer_host_pos = 0;
|
|
scsi->status_ctrl &= ~STATUS_BUFFER_NOT_READY;
|
|
}
|
|
break;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
static uint8_t t130b_read(uint32_t addr, void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
uint8_t temp = 0xff;
|
|
//if (addr >= 0xca000)
|
|
addr &= 0x3fff;
|
|
|
|
if (addr < 0x1800)
|
|
temp = scsi->bios_rom.rom[addr & 0x1fff];
|
|
else if (addr < 0x1880)
|
|
temp = scsi->ext_ram[addr & 0x7f];
|
|
// else
|
|
// pclog("Bad T130B read %04x\n", addr);
|
|
|
|
// if (addr >= 0x3880) pclog("lcs6821n_read: addr=%05x val=%02x %04x:%04x\n", addr, temp, CS,cpu_state.pc);
|
|
|
|
return temp;
|
|
}
|
|
static void t130b_write(uint32_t addr, uint8_t val, void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
|
|
addr &= 0x3fff;
|
|
|
|
// if (addr >= 0x3880) pclog("lcs6821n_write: addr=%05x val=%02x %04x:%04x %i %02x\n", addr, val, CS,cpu_state.pc, scsi->buffer_host_pos, scsi->status_ctrl);
|
|
|
|
if (addr >= 0x1800 && addr < 0x1880)
|
|
scsi->ext_ram[addr & 0x7f] = val;
|
|
// else
|
|
// pclog("Bad T130B write %04x %02x\n", addr, val);
|
|
}
|
|
|
|
static uint8_t t130b_in(uint16_t port, void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
uint8_t temp = 0xff;
|
|
|
|
switch (port & 0xf)
|
|
{
|
|
case 0x0: case 0x1: case 0x2: case 0x3:
|
|
temp = lcs6821n_read((port & 7) | 0x3980, scsi);
|
|
break;
|
|
|
|
case 0x4: case 0x5:
|
|
temp = lcs6821n_read(0x3900, scsi);
|
|
break;
|
|
|
|
case 0x8: case 0x9: case 0xa: case 0xb:
|
|
case 0xc: case 0xd: case 0xe: case 0xf:
|
|
temp = ncr5380_read(port, &scsi->ncr);
|
|
break;
|
|
}
|
|
|
|
if (CS != 0xdc00)
|
|
{
|
|
//pclog("t130b_in: port=%04x val=%02x %04x:%04x\n", port, temp, CS,cpu_state.pc);
|
|
//output = 3;
|
|
//fatal("Here\n");
|
|
}
|
|
return temp;
|
|
}
|
|
static void t130b_out(uint16_t port, uint8_t val, void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
|
|
//if (CS != 0xdc00) pclog("t130b_out: port=%04x val=%02x %04x:%04x\n", port, val, CS,cpu_state.pc);
|
|
|
|
switch (port & 0xf)
|
|
{
|
|
case 0x0: case 0x1: case 0x2: case 0x3:
|
|
lcs6821n_write((port & 7) | 0x3980, val, scsi);
|
|
break;
|
|
|
|
case 0x4: case 0x5:
|
|
lcs6821n_write(0x3900, val, scsi);
|
|
break;
|
|
|
|
case 0x8: case 0x9: case 0xa: case 0xb:
|
|
case 0xc: case 0xd: case 0xe: case 0xf:
|
|
ncr5380_write(port, val, &scsi->ncr);
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void ncr53c400_dma_callback(void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
ncr5380_t *ncr = &scsi->ncr;
|
|
int c;
|
|
int bytes_transferred = 0;
|
|
|
|
//pclog("dma_Callback poll\n");
|
|
timer_advance_u64(&scsi->dma_timer, TIMER_USEC * POLL_TIME_US);
|
|
|
|
switch (scsi->ncr.dma_mode)
|
|
{
|
|
case DMA_SEND:
|
|
if (scsi->status_ctrl & CTRL_DATA_DIR)
|
|
{
|
|
pclog("DMA_SEND with DMA direction set wrong\n");
|
|
break;
|
|
}
|
|
|
|
// if (!device_data[ncr->target_id])
|
|
// fatal("DMA with no device\n");
|
|
|
|
if (!(scsi->status_ctrl & STATUS_BUFFER_NOT_READY))
|
|
{
|
|
// pclog(" !(scsi->status_ctrl & STATUS_BUFFER_NOT_READY)\n");
|
|
break;
|
|
}
|
|
|
|
if (!scsi->block_count_loaded)
|
|
{
|
|
// pclog("!scsi->block_count_loaded\n");
|
|
break;
|
|
}
|
|
|
|
while (bytes_transferred < MAX_BYTES_TRANSFERRED_PER_POLL)
|
|
{
|
|
int bus;
|
|
uint8_t data;
|
|
|
|
for (c = 0; c < 10; c++)
|
|
{
|
|
uint8_t status = scsi_bus_read(&ncr->bus);
|
|
|
|
if (status & BUS_REQ)
|
|
break;
|
|
}
|
|
if (c == 10)
|
|
{
|
|
// pclog(" No req\n");
|
|
break;
|
|
}
|
|
|
|
/*Data ready*/
|
|
data = scsi->buffer[scsi->buffer_pos];
|
|
bus = get_bus_host(ncr) & ~BUS_DATAMASK;
|
|
bus |= BUS_SETDATA(data);
|
|
|
|
scsi_bus_update(&ncr->bus, bus | BUS_ACK);
|
|
scsi_bus_update(&ncr->bus, bus & ~BUS_ACK);
|
|
// pclog(" Sent data %02x %i\n", data, scsi->buffer_pos);
|
|
|
|
scsi->buffer_pos++;
|
|
bytes_transferred++;
|
|
|
|
if (scsi->buffer_pos == 128)
|
|
{
|
|
scsi->buffer_pos = 0;
|
|
scsi->buffer_host_pos = 0;
|
|
scsi->status_ctrl &= ~STATUS_BUFFER_NOT_READY;
|
|
scsi->block_count = (scsi->block_count - 1) & 255;
|
|
scsi->ncr_busy = 0;
|
|
// pclog("Sent buffer %i\n", scsi->block_count);
|
|
if (!scsi->block_count)
|
|
{
|
|
scsi->block_count_loaded = 0;
|
|
set_dma_enable(scsi, 0);
|
|
// scsi->buffer_host_pos = 128;
|
|
// scsi->status_ctrl |= STATUS_BUFFER_NOT_READY;
|
|
|
|
ncr->tcr |= TCR_LAST_BYTE_SENT;
|
|
ncr->isr |= STATUS_END_OF_DMA;
|
|
if (ncr->mode & MODE_ENA_EOP_INT)
|
|
ncr->isr |= STATUS_INT;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
|
|
case DMA_INITIATOR_RECEIVE:
|
|
if (!(scsi->status_ctrl & CTRL_DATA_DIR))
|
|
{
|
|
pclog("DMA_INITIATOR_RECEIVE with DMA direction set wrong\n");
|
|
break;
|
|
}
|
|
|
|
if (!(scsi->status_ctrl & STATUS_BUFFER_NOT_READY))
|
|
break;
|
|
|
|
if (!scsi->block_count_loaded)
|
|
break;
|
|
|
|
while (bytes_transferred < MAX_BYTES_TRANSFERRED_PER_POLL)
|
|
{
|
|
int bus;
|
|
uint8_t temp;
|
|
|
|
for (c = 0; c < 10; c++)
|
|
{
|
|
uint8_t status = scsi_bus_read(&ncr->bus);
|
|
|
|
if (status & BUS_REQ)
|
|
break;
|
|
}
|
|
if (c == 10)
|
|
break;
|
|
|
|
/*Data ready*/
|
|
bus = scsi_bus_read(&ncr->bus);
|
|
temp = BUS_GETDATA(bus);
|
|
// pclog(" Got data %02x %i\n", temp, scsi->buffer_pos);
|
|
|
|
bus = get_bus_host(ncr);
|
|
|
|
scsi_bus_update(&ncr->bus, bus | BUS_ACK);
|
|
scsi_bus_update(&ncr->bus, bus & ~BUS_ACK);
|
|
|
|
scsi->buffer[scsi->buffer_pos++] = temp;
|
|
bytes_transferred++;
|
|
|
|
if (scsi->buffer_pos == 128)
|
|
{
|
|
scsi->buffer_pos = 0;
|
|
scsi->buffer_host_pos = 0;
|
|
scsi->status_ctrl &= ~STATUS_BUFFER_NOT_READY;
|
|
scsi->block_count = (scsi->block_count - 1) & 255;
|
|
// pclog("Got buffer %i\n", scsi->block_count);
|
|
if (!scsi->block_count)
|
|
{
|
|
scsi->block_count_loaded = 0;
|
|
set_dma_enable(scsi, 0);
|
|
|
|
// output=3;
|
|
ncr->isr |= STATUS_END_OF_DMA;
|
|
if (ncr->mode & MODE_ENA_EOP_INT)
|
|
ncr->isr |= STATUS_INT;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
break;
|
|
|
|
default:
|
|
pclog("DMA callback bad mode %i\n", scsi->ncr.dma_mode);
|
|
break;
|
|
}
|
|
|
|
{
|
|
int bus = scsi_bus_read(&ncr->bus);
|
|
|
|
if (!(bus & BUS_BSY) && (ncr->mode & MODE_MONITOR_BUSY))
|
|
{
|
|
ncr->mode &= ~MODE_DMA;
|
|
ncr->dma_mode = DMA_IDLE;
|
|
ncr->dma_changed(ncr, ncr->dma_mode, ncr->mode & MODE_DMA);
|
|
}
|
|
}
|
|
}
|
|
|
|
static void *scsi_53c400_init(char *bios_fn)
|
|
{
|
|
lcs6821n_t *scsi = malloc(sizeof(lcs6821n_t));
|
|
memset(scsi, 0, sizeof(lcs6821n_t));
|
|
|
|
rom_init(&scsi->bios_rom, bios_fn, 0xdc000, 0x4000, 0x3fff, 0, MEM_MAPPING_EXTERNAL);
|
|
mem_mapping_disable(&scsi->bios_rom.mapping);
|
|
|
|
mem_mapping_add(&scsi->mapping, 0xdc000, 0x4000,
|
|
lcs6821n_read, NULL, NULL,
|
|
lcs6821n_write, NULL, NULL,
|
|
scsi->bios_rom.rom, 0, scsi);
|
|
|
|
ncr5380_reset(&scsi->ncr);
|
|
|
|
scsi->ncr.dma_changed = ncr53c400_dma_changed;
|
|
scsi->ncr.p = scsi;
|
|
|
|
scsi->status_ctrl = STATUS_BUFFER_NOT_READY;
|
|
scsi->buffer_host_pos = 128;
|
|
|
|
scsi_bus_init(&scsi->ncr.bus);
|
|
|
|
timer_add(&scsi->dma_timer, ncr53c400_dma_callback, scsi, 0);
|
|
|
|
return scsi;
|
|
}
|
|
|
|
static void *scsi_lcs6821n_init()
|
|
{
|
|
return scsi_53c400_init("Longshine LCS-6821N - BIOS version 1.04.bin");
|
|
}
|
|
static void *scsi_rt1000b_init()
|
|
{
|
|
return scsi_53c400_init("Rancho_RT1000_RTBios_version_8.10R.bin");
|
|
}
|
|
|
|
static void *scsi_t130b_init(char *bios_fn)
|
|
{
|
|
lcs6821n_t *scsi = malloc(sizeof(lcs6821n_t));
|
|
memset(scsi, 0, sizeof(lcs6821n_t));
|
|
|
|
rom_init(&scsi->bios_rom, "trantor_t130b_bios_v2.14.bin", 0xdc000, 0x4000, 0x3fff, 0, MEM_MAPPING_EXTERNAL);
|
|
|
|
mem_mapping_add(&scsi->mapping, 0xdc000, 0x4000,
|
|
t130b_read, NULL, NULL,
|
|
t130b_write, NULL, NULL,
|
|
scsi->bios_rom.rom, 0, scsi);
|
|
io_sethandler(0x0350, 0x0010,
|
|
t130b_in, NULL, NULL,
|
|
t130b_out, NULL, NULL,
|
|
scsi);
|
|
|
|
ncr5380_reset(&scsi->ncr);
|
|
|
|
scsi->ncr.dma_changed = ncr53c400_dma_changed;
|
|
scsi->ncr.p = scsi;
|
|
|
|
scsi->status_ctrl = STATUS_BUFFER_NOT_READY;
|
|
scsi->buffer_host_pos = 128;
|
|
|
|
scsi_bus_init(&scsi->ncr.bus);
|
|
|
|
timer_add(&scsi->dma_timer, ncr53c400_dma_callback, scsi, 0);
|
|
|
|
return scsi;
|
|
}
|
|
|
|
static void scsi_53c400_close(void *p)
|
|
{
|
|
lcs6821n_t *scsi = (lcs6821n_t *)p;
|
|
|
|
scsi_bus_close(&scsi->ncr.bus);
|
|
|
|
free(scsi);
|
|
}
|
|
|
|
static int scsi_lcs6821n_available()
|
|
{
|
|
return rom_present("Longshine LCS-6821N - BIOS version 1.04.bin");
|
|
}
|
|
|
|
static int scsi_rt1000b_available()
|
|
{
|
|
return rom_present("Rancho_RT1000_RTBios_version_8.10R.bin");
|
|
}
|
|
|
|
static int scsi_t130b_available()
|
|
{
|
|
return rom_present("trantor_t130b_bios_v2.14.bin");
|
|
}
|
|
|
|
device_t scsi_lcs6821n_device =
|
|
{
|
|
"Longshine LCS-6821N (SCSI)",
|
|
0,
|
|
scsi_lcs6821n_init,
|
|
scsi_53c400_close,
|
|
scsi_lcs6821n_available,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
};
|
|
|
|
device_t scsi_rt1000b_device =
|
|
{
|
|
"Ranco RT1000B (SCSI)",
|
|
0,
|
|
scsi_rt1000b_init,
|
|
scsi_53c400_close,
|
|
scsi_rt1000b_available,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
};
|
|
|
|
device_t scsi_t130b_device =
|
|
{
|
|
"Trantor T130B (SCSI)",
|
|
0,
|
|
scsi_t130b_init,
|
|
scsi_53c400_close,
|
|
scsi_t130b_available,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
NULL
|
|
};
|