NetBSD/sys/arch/vax/boot/scsi_low.c

480 lines
14 KiB
C

/* $NetBSD: scsi_low.c,v 1.1 1996/08/02 11:22:34 ragge Exp $ */
/****************************************************************************
* NS32K Monitor SCSI low-level driver
* Bruce Culbertson
* 8 March 1990
* (This source is public domain source.)
*
* Originally written by Bruce Culbertson for a ns32016 port of Minix.
* Adapted from that for the pc532 (ns32632) monitor.
* Adapted from that for NetBSD/pc532 by Philip L. Bunde.
*
* Do not use DMA -- makes 32016 and pc532 versions compatible.
* Do not use interrupts -- makes it harder for the user code to bomb
* this code.
****************************************************************************/
#include "so.h"
#include "ka410.h"
#define BB_DEBUG(x) printf x
#define CLEAR_INTR() *ka410_intclr=INTR_SC
#define CHECK_INTR() *ka410_intreq&INTR_SC
#define OK 0
#define NOT_OK OK+1
#define PRIVATE
#define PUBLIC
#define WR_ADR(adr,val) (*((volatile unsigned char *)(adr))=(val))
#define RD_ADR(adr) (*((volatile unsigned char *)(adr)))
/* #define AIC6250 0 */
/* #define DP8490 1 */
#define MAX_CACHE 0x4000
/* SCSI bus phases
*/
#define PH_ODATA 0
#define PH_IDATA 1
#define PH_CMD 2
#define PH_STAT 3
#define PH_IMSG 7
#define PH_NONE 8
#define PH_IN(phase) ((phase) & 1)
/* NCR5380 SCSI controller registers
*/
#define SC_CTL 0x200C0080 /* base for control registers */
#define SC_DMA 0x200D0000 /* base for data registers (8/16K) */
#define SC_CURDATA SC_CTL+(4*0)
#define SC_OUTDATA SC_CTL+(4*0)
#define SC_ICMD SC_CTL+(4*1)
#define SC_MODE SC_CTL+(4*2)
#define SC_TCMD SC_CTL+(4*3)
#define SC_STAT1 SC_CTL+(4*4)
#define SC_STAT2 SC_CTL+(4*5)
#define SC_START_SEND SC_CTL+(4*5)
#define SC_INDATA SC_CTL+(4*6)
#define SC_RESETIP SC_CTL+(4*7)
#define SC_START_RCV SC_CTL+(4*7)
/* Bits in NCR5380 registers
*/
#define SC_A_RST 0x80
#define SC_A_SEL 0x04
#define SC_S_SEL 0x02
#define SC_S_REQ 0x20
#define SC_S_BSY 0x40
#define SC_S_BSYERR 0x04
#define SC_S_PHASE 0x08
#define SC_S_IRQ 0x10
#define SC_S_DRQ 0x40
#define SC_M_DMA 0x02
#define SC_M_BSY 0x04
#define SC_ENABLE_DB 0x01
/* Status of interrupt routine, returned in m1_i1 field of message.
*/
#define ISR_NOTDONE 0
#define ISR_OK 1
#define ISR_BSYERR 2
#define ISR_RSTERR 3
#define ISR_BADPHASE 4
#define ISR_TIMEOUT 5
#define ICU_ADR 0xfffffe00
#define ICU_IO (ICU_ADR+20)
#define ICU_DIR (ICU_ADR+21)
#define ICU_DATA (ICU_ADR+19)
#define ICU_SCSI_BIT 0x80
/* Miscellaneous
*/
#define MAX_WAIT (1000*1000)
#define SC_LOG_LEN 32
PRIVATE struct scsi_args *sc_ptrs;
PRIVATE char sc_cur_phase,
sc_reset_done = 1,
sc_have_msg,
sc_accept_int,
sc_dma_dir;
long sc_dma_port = SC_DMA,
sc_dma_adr;
#ifdef DEBUG
struct sc_log {
unsigned char stat1, stat2;
} sc_log [SC_LOG_LEN],
*sc_log_head = sc_log;
int sc_spurious_int;
#endif
unsigned char
sc_watchdog_error; /* watch dog error */
/* error messages */
char *scsi_errors[] = {
0, /* ISR_NOTDONE */
0, /* ISR_OK */
"busy error", /* ISR_BSYERR */
"reset error", /* ISR_RSTERR */
"NULL pointer for current phase", /* ISR_BADPHASE */
"timeout", /* ISR_TIMEOUT */
};
/*===========================================================================*
* exec_scsi_low *
*===========================================================================*/
/* Execute a generic SCSI command. Passed pointers to eight buffers:
* data-out, data-in, command, status, dummy, dummy, message-out, message-in.
*/
PUBLIC
int
exec_scsi_low (args, scsi_adr)
struct scsi_args *args;
long scsi_adr;
{
int ret;
BB_DEBUG (("exec_scsi_low(0x%x, %d)\n", args, scsi_adr));
sc_ptrs = args; /* make pointers globally accessible */
/* bertram ??? scCtlrSelect (DP8490); */
if (!sc_reset_done) sc_reset();
/* TCMD has some undocumented behavior in initiator mode. I think the
* data bus cannot be enabled if i/o is asserted.
*/
WR_ADR (SC_TCMD, 0);
if (OK != sc_wait_bus_free ()) { /* bus-free phase */
printf("SCSI: bus not free\n");
return NOT_OK;
}
sc_cur_phase = PH_NONE;
sc_have_msg = 0;
if (OK != sc_select (scsi_adr)) /* select phase */
return NOT_OK;
sc_watchdog_error = 0;
ret = sc_receive (); /* isr does the rest */
if (ret == ISR_OK) return OK;
else {
sc_reset();
printf("SCSI: %s\n", scsi_errors[ret]);
return NOT_OK;
}
}
/*===========================================================================*
* sc_reset *
*===========================================================================*/
/*
* Reset SCSI bus.
*/
PRIVATE
sc_reset()
{
volatile int i;
BB_DEBUG (("sc_reset()\n"));
WR_ADR (SC_MODE, 0); /* get into harmless state */
WR_ADR (SC_OUTDATA, 0);
WR_ADR (SC_ICMD, SC_A_RST); /* assert RST on SCSI bus */
i = 200; /* wait 25 usec */
while (i--);
WR_ADR (SC_ICMD, 0); /* deassert RST, get off bus */
sc_reset_done = 1;
}
/*===========================================================================*
* sc_wait_bus_free *
*===========================================================================*/
PRIVATE int
sc_wait_bus_free()
{
int i = MAX_WAIT;
volatile int j;
BB_DEBUG (("sc_wait_bus_free()\n"));
while (i--) {
/* Must be clear for 2 usec, so read twice */
if (RD_ADR (SC_STAT1) & (SC_S_BSY | SC_S_SEL)) continue;
for (j = 0; j < 25; ++j);
if (RD_ADR (SC_STAT1) & (SC_S_BSY | SC_S_SEL)) continue;
return OK;
}
sc_reset_done = 0;
return NOT_OK;
}
/*===========================================================================*
* sc_select *
*===========================================================================*/
/* This duplicates much of the work that the interrupt routine would do on a
* phase mismatch and, in fact, the original plan was to just do the select,
* let a phase mismatch occur, and let the interrupt routine do the rest.
* That didn't work because the 5380 did not reliably generate the phase
* mismatch interrupt after selection.
*/
PRIVATE int
sc_select(adr)
long adr;
{
int i, stat1;
long new_ptr;
BB_DEBUG (("sc_select(%d)\n", adr));
CLEAR_INTR();
WR_ADR (SC_OUTDATA, adr); /* SCSI bus address */
WR_ADR (SC_ICMD, SC_A_SEL | SC_ENABLE_DB);
for (i = 0;; ++i) { /* wait for target to assert SEL */
if (CHECK_INTR() == 0)
continue;
stat1 = RD_ADR (SC_STAT1);
if (stat1 & SC_S_BSY) break; /* select successful */
if (i > MAX_WAIT) { /* timeout */
printf("SCSI: SELECT timeout\n");
sc_reset();
return NOT_OK;
}
}
CLEAR_INTR();
WR_ADR (SC_ICMD, 0); /* clear SEL, disable data out */
WR_ADR (SC_OUTDATA, 0);
for (i = 0;; ++i) { /* wait for target to assert REQ */
if (CHECK_INTR() == 0)
continue;
if (stat1 & SC_S_REQ) break; /* target requesting transfer */
if (i > MAX_WAIT) { /* timeout */
printf("SCSI: REQ timeout\n");
sc_reset();
return NOT_OK;
}
stat1 = RD_ADR (SC_STAT1);
}
sc_cur_phase = (stat1 >> 2) & 7; /* get new phase from controller */
if (sc_cur_phase != PH_CMD) {
printf("SCSI: bad phase = %d\n", sc_cur_phase);
sc_reset();
return NOT_OK;
}
new_ptr = sc_ptrs->ptr[PH_CMD];
if (new_ptr == 0) {
printf("SCSI: NULL command pointer\n");
sc_reset();
return NOT_OK;
}
sc_accept_int = 1;
sc_dma_setup (DISK_WRITE, new_ptr);
CLEAR_INTR();
WR_ADR (SC_TCMD, PH_CMD);
WR_ADR (SC_ICMD, SC_ENABLE_DB);
WR_ADR (SC_MODE, SC_M_BSY | SC_M_DMA);
WR_ADR (SC_START_SEND, 0);
return OK;
}
/*===========================================================================*
* scsi_interrupt *
*===========================================================================*/
/* SCSI interrupt handler.
*/
PUBLIC
int
scsi_interrupt()
{
unsigned char stat2, dummy;
long new_ptr;
int ret = ISR_NOTDONE;
BB_DEBUG (("scsi_interrupt()\n"));
stat2 = RD_ADR (SC_STAT2); /* get status before clearing request */
# ifdef DEBUG /* debugging log of interrupts */
sc_log_head->stat1 = RD_ADR (SC_STAT1);
sc_log_head->stat2 = stat2;
if (++sc_log_head >= sc_log + SC_LOG_LEN) sc_log_head = sc_log;
sc_log_head->stat1 = sc_log_head->stat2 = 0xff;
# endif
for (;;) {
dummy = RD_ADR (SC_RESETIP); /* clear interrupt request */
if (!sc_accept_int || /* return if spurious interrupt */
(!sc_watchdog_error &&
(stat2 & SC_S_BSYERR) == 0 && (stat2 & SC_S_PHASE) != 0))
{
# ifdef DEBUG
++sc_spurious_int;
# endif
printf ("sc_spurious_int\n");
return ret;
}
RD_ADR (SC_MODE) &= ~SC_M_DMA; /* clear DMA mode */
WR_ADR (SC_ICMD, 0); /* disable data bus */
if (sc_cur_phase != PH_NONE) { /* if did DMA, save the new pointer */
new_ptr = sc_dma_adr; /* fetch new pointer from DMA cntlr */
if (sc_cur_phase == PH_IMSG && /* have message? */
new_ptr != sc_ptrs->ptr[PH_IMSG]) sc_have_msg = 1;
sc_ptrs->ptr[sc_cur_phase] = /* save pointer */
new_ptr;
}
if (sc_watchdog_error) ret = ISR_TIMEOUT;
else if (stat2 & SC_S_BSYERR) { /* target deasserted BSY? */
printf ("target deasserted BSY?\n");
if (sc_have_msg) ret = ISR_OK;
else ret = ISR_BSYERR;
} else if (!(stat2 & SC_S_PHASE)) {/* if phase mismatch, setup new phase */
printf ("phase mismatch\n");
sc_cur_phase = /* get new phase from controller */
(RD_ADR (SC_STAT1) >> 2) & 7;
new_ptr = sc_ptrs->ptr[sc_cur_phase];
if (new_ptr == 0) ret = ISR_BADPHASE;
else {
WR_ADR (SC_TCMD, sc_cur_phase); /* write new phase into TCMD */
if (PH_IN (sc_cur_phase)) { /* set DMA controller */
sc_dma_setup (DISK_READ, new_ptr);
RD_ADR (SC_MODE) |= SC_M_DMA;
CLEAR_INTR();
WR_ADR (SC_START_RCV, 0); /* tell SCSI to start DMA */
} else {
sc_dma_setup (DISK_WRITE, new_ptr);
RD_ADR (SC_MODE) |= SC_M_DMA;
WR_ADR (SC_ICMD, SC_ENABLE_DB);
CLEAR_INTR();
WR_ADR (SC_START_SEND, 0);
}
}
} else ret = ISR_RSTERR;
if (ret != ISR_NOTDONE) { /* if done, send message to task */
sc_watchdog_error = 0;
sc_accept_int = 0;
WR_ADR (SC_MODE, 0); /* clear monbsy, dma */
break; /* reti re-enables ints */
}
if (0 == ((stat2 = /* check for another interrupt */
RD_ADR (SC_STAT2)) & SC_S_IRQ))
{
break;
}
}
return ret;
}
/*===========================================================================*
* sc_dma_setup *
*===========================================================================*/
/* Fake DMA setup. Just store pointers and direction in global variables.
*
* The pseudo-DMA is subtler than it looks because of the cache.
*
* 1) When accessing I/O devices through a cache, some mechanism is
* necessary to ensure you access the device rather than the cache.
* On the 32532, the IODEC signal is supposed to be asserted for I/O
* addresses to accomplish this. However, a bug makes this much
* slower than necessary and severely hurts pseudo-DMA performance.
* Hence, IODEC is not asserted for the SCSI DMA port.
*
* 2) Because of (1), we must devise our own method of forcing the
* SCSI DMA port to be read. 0x8000000 addresses have been decoded
* to all access this port. By always using new addresses to access
* the DMA port (wrapping only after reading MAX_CACHE bytes), we
* force cache misses and, hence, device reads. Since the cache
* is write-through, we do not need to worry about writes.
*
* 3) It is possible to miss the last few bytes of a transfer if
* bus transfer size is not considered. The loop in sc_receive()
* transfers data until the interrupt signal is asserted. If
* bytes are transferred, the attempt to move the first byte of a
* double word causes the whole word to be read into the cache.
* Then the byte is transferred. If reading the double word
* completed the SCSI transfer, then the loop exits since
* interrupt is asserted. However, the last few bytes have only
* been moved into the cache -- they have not been moved to the
* DMA destination.
*
* 4) It is also possible to miss the first few bytes of a transfer.
* If the address used to access pseudo-dma port is not double word
* aligned, the whole double word is read into the cache, and then
* data is moved from the middle of the word (i.e. something other
* than the first bytes read from the SCSI controller) by the
* pseudo-dma loop in sc_receive().
*/
sc_dma_setup (dir, adr)
int dir;
long adr;
{
BB_DEBUG (("sc_dma_setup(%d, %d)\n", dir, adr));
CLEAR_INTR();
/* if (sc_dma_port > SC_DMA + MAX_CACHE) */
sc_dma_port = SC_DMA;
sc_dma_dir = dir;
sc_dma_adr = adr;
}
/*===========================================================================*
* sc_receive *
*===========================================================================*/
/* Replacement for Minix receive(), which waits for a message. This code
* spins, waiting for data to transfer or interrupt requests to handle.
* See sc_dma_setup for details.
*/
int
sc_receive()
{
int stat2, isr_ret;
int i, c;
BB_DEBUG (("sc_receive()\n"));
/*
* check the interrupt-flag and wait if it reappears...
*/
c = *ka410_intreq;
printf ("begin: %x/%x ", c, *ka410_intreq);
for (i=0; i<100; i++) {
if ((c = *ka410_intreq) & INTR_SC)
break;
printf (" %x ", c);
}
if (i==100)
printf ("timeout in sc_receive.\n");
#if 1
for (;;) {
stat2 = RD_ADR (SC_STAT2);
if (stat2 & SC_S_IRQ) {
if (ISR_NOTDONE != (isr_ret = scsi_interrupt())) break;
} else if (stat2 & SC_S_DRQ) { /* test really not necessary on pc532 */
if (sc_dma_dir == DISK_READ)
*((long *)sc_dma_adr)++ = *((volatile long *)sc_dma_port)++;
else *((volatile long *)sc_dma_port)++ = *((long *)sc_dma_adr)++;
}
}
#endif
printf ("isr_ret: %d (ISR_NOTDONE: %d)\n", isr_ret, ISR_NOTDONE);
return isr_ret;
}
/*===========================================================================*
* scCtlrSelect
*===========================================================================*/
/* Select a SCSI device.
*/
scCtlrSelect (ctlr)
int ctlr;
{
BB_DEBUG (("scCtlrSelect()\n"));
#if 0
RD_ADR (ICU_IO) &= ~ICU_SCSI_BIT; /* i/o, not port */
RD_ADR (ICU_DIR) &= ~ICU_SCSI_BIT; /* output */
if (ctlr == DP8490)
RD_ADR (ICU_DATA) &= ~ICU_SCSI_BIT; /* select = 0 for 8490 */
else
RD_ADR (ICU_DATA) |= ICU_SCSI_BIT; /* select = 1 for AIC6250 */
#endif
}