Subject: Re: I feel extremely stupid now and the new SCSI driver
To: Valtteri Vuorikoski <vuori@sci.fi>
From: Allen Briggs <briggs@puma.bevd.blacksburg.va.us>
List: port-mac68k
Date: 09/02/1995 11:18:25
> Meanwhile, I tried the new SCSI driver. It boots and it
> runs, but it breaks serial on my IIsi; nothing gets in/out
> of the serial port and rts/cts stays low when I start cu or pppd.
So the only difference between working serial and non-working serial
is the use of that scsi driver? Try using the patch that I posted
last night, along with the attached mac68k5380.c file. If you didn't
save the patch, I can send that to you as well, but you will need that.
-allen
/* $NetBSD: mac68k5380.c,v 1.3 1995/09/02 05:36:22 briggs Exp $ */
/*
* Copyright (c) 1995 Allen Briggs
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Allen Briggs
* 4. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* Derived from atari5380.c for the mac68k port of NetBSD.
*
*/
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/device.h>
#include <sys/syslog.h>
#include <sys/buf.h>
#include <scsi/scsi_all.h>
#include <scsi/scsi_message.h>
#include <scsi/scsiconf.h>
/*
* Include the driver definitions
*/
#include <atari/dev/ncr5380reg.h>
#include <machine/stdarg.h>
#include "../mac68k/via.h"
/*
* Set the various driver options
*/
#define NREQ 18 /* Size of issue queue */
#define AUTO_SENSE 1 /* Automatically issue a request-sense */
#define DRNAME ncrscsi /* used in various prints */
#undef DBG_SEL /* Show the selection process */
#undef DBG_REQ /* Show enqueued/ready requests */
#undef DBG_NOWRITE /* Do not allow writes to the targets */
#undef DBG_PIO /* Show the polled-I/O process */
#undef DBG_INF /* Show information transfer process */
#define DBG_NOSTATIC /* No static functions, all in DDB trace*/
#define DBG_PID /* Keep track of driver */
#undef REAL_DMA /* Use DMA if sensible */
#define fair_to_keep_dma() 1
#define claimed_dma() 1
#define reconsider_dma()
#define USE_PDMA 1 /* Use special pdma-transfer function */
#define ENABLE_NCR5380(sc) cur_softc = sc;
/*
* softc of currently active controller (well, we only have one for now).
*/
static struct ncr_softc *cur_softc;
struct scsi_5380 {
volatile u_char scsi_5380[8*16]; /* 8 regs, 1 every 16th byte. */
};
extern vm_offset_t SCSIBase;
static volatile u_char *ncr = (volatile u_char *) 0x10000;
static volatile u_char *ncr_5380_with_drq = (volatile u_char *) 0x6000;
static volatile u_char *ncr_5380_without_drq = (volatile u_char *) 0x12000;
#define SCSI_5380 ((struct scsi_5380 *) ncr)
#define GET_5380_REG(rnum) SCSI_5380->scsi_5380[((rnum)<<4)]
#define SET_5380_REG(rnum,val) (SCSI_5380->scsi_5380[((rnum)<<4)] = (val))
static __inline__ void
scsi_clr_ipend()
{
int tmp;
tmp = GET_5380_REG(NCR5380_IRCV);
}
extern __inline__ void
scsi_ienable()
{
int s;
s = splhigh();
if (VIA2 == VIA2OFF)
via_reg(VIA2, vIER) = 0x80 | (V2IF_SCSIIRQ | V2IF_SCSIDRQ);
else
via_reg(VIA2, rIER) = 0x80 | (V2IF_SCSIIRQ | V2IF_SCSIDRQ);
splx(s);
}
extern __inline__ void
scsi_idisable()
{
int s;
s = splhigh();
if (VIA2 == VIA2OFF)
via_reg(VIA2, vIER) = (V2IF_SCSIIRQ | V2IF_SCSIDRQ);
else
via_reg(VIA2, rIER) = (V2IF_SCSIIRQ | V2IF_SCSIDRQ);
splx(s);
}
static void
scsi_mach_init(sc)
struct ncr_softc *sc;
{
static int initted = 0;
if (initted++)
panic("scsi_mach_init called again.\n");
ncr = (volatile u_char *)
(SCSIBase + (u_long) ncr);
ncr_5380_with_drq = (volatile u_char *)
(SCSIBase + (u_int) ncr_5380_with_drq);
ncr_5380_without_drq = (volatile u_char *)
(SCSIBase + (u_int) ncr_5380_without_drq);
}
static int
machine_match(pdp, cdp, auxp, cd)
struct device *pdp;
struct cfdata *cdp;
void *auxp;
struct cfdriver *cd;
{
if (matchbyname(pdp, cdp, auxp) == 0)
return 0;
if (!mac68k_machine.scsi80)
return 0;
if (cdp->cf_unit != 0)
return 0;
return 1;
}
#if USE_PDMA
int pdma_5380_dir = 0;
void (*pdma_xfer_fun)(void) = NULL;
volatile int pdma_5380_pending = 0;
volatile u_char *pending_5380_data;
volatile u_long pending_5380_count;
#define DEBUG 1 /* Maybe we try with this off eventually. */
#if DEBUG
int pdma_5380_sends = 0;
int pdma_5380_bytes = 0;
volatile char *pdma_5380_state="";
void
pdma_stat()
{
printf("PDMA SCSI: %d xfers completed for %d bytes, pending = %d.\n",
pdma_5380_sends, pdma_5380_bytes, pdma_5380_pending);
printf("xfer fun = 0x%x, pdma_5380_dir = %d.\n",
pdma_xfer_fun, pdma_5380_dir);
printf("datap = 0x%x, remainder = %d.\n",
pending_5380_data, pending_5380_count);
printf("pdma_5380_state = %s.\n", pdma_5380_state);
}
#endif
#endif
void
pdma_cleanup(void)
{
SC_REQ *reqp = connected;
int bytes, s;
s = splbio();
pdma_5380_pending = 0;
pdma_xfer_fun = NULL;
#if DEBUG
pdma_5380_state = "in pdma_cleanup().";
pdma_5380_sends++;
pdma_5380_bytes+=(reqp->xdata_len - pending_5380_count);
#endif
/*
* Update pointers.
*/
reqp->xdata_ptr += reqp->xdata_len - pending_5380_count;
reqp->xdata_len = pending_5380_count;
/*
* Reset DMA mode.
*/
SET_5380_REG(NCR5380_MODE, GET_5380_REG(NCR5380_MODE) & ~SC_M_DMA);
/*
* Tell interrupt functions that DMA has ended.
*/
reqp->dr_flag &= ~DRIVER_IN_DMA;
SET_5380_REG(NCR5380_MODE, IMODE_BASE);
SET_5380_REG(NCR5380_ICOM, 0);
splx(s);
/*
* Back for more punishment.
*/
run_main(cur_softc);
}
static int
scsi_main_irq()
{
if (pdma_xfer_fun) {
#if DEBUG
pdma_5380_state = "got irq interrupt in xfer.";
#endif
/*
* If Mr. IRQ isn't set one might wonder how we got
* here. It does happen, though.
*/
if (!(GET_5380_REG(NCR5380_DMSTAT) & SC_IRQ_SET)) {
return 0;
}
/*
* For a phase mis-match, ATN is a "don't care," IRQ is 1 and
* all other bits in the Bus & Status Register are 0. Also,
* the current SCSI Bus Status Register has a 1 for BSY and
* REQ. Since we're just checking that this interrupt isn't a
* reselection or a reset, we just check for either.
*/
if ( ((GET_5380_REG(NCR5380_DMSTAT) & (0xff & ~SC_ATN_STAT))
== SC_IRQ_SET)
&& (GET_5380_REG(NCR5380_IDSTAT) & (SC_S_BSY|SC_S_REQ))) {
pdma_cleanup();
return 1;
} else {
scsi_show();
panic("Spurious interrupt during PDMA xfer.\n");
}
}
return 0;
}
void
ncr5380_irq_intr(void)
{
if (scsi_main_irq()) {
return;
}
if (GET_5380_REG(NCR5380_DMSTAT) & SC_IRQ_SET) {
scsi_idisable();
ncr_ctrl_intr(cur_softc);
}
}
void
ncr5380_drq_intr(void)
{
#if USE_PDMA
if (pdma_xfer_fun) {
#if DEBUG
pdma_5380_state = "got drq interrupt.";
#endif
pdma_xfer_fun();
}
#endif
}
#if USE_PDMA
static void
pdma_xfer_in()
{
/*
* Can we "unroll" this any? I don't think so--in fact, I
* question the safety of using long word transfers. The
* device could theoretically disconnect at any time.
* The long word xfer is controlled by the Mac's circuitry,
* and we can't know how much it transferred if the device
* decides to disconnect on us.
* If it does disconnect in the middle of a long xfer, it
* should get a bus error--we might be able to derive from
* that bus error where the transaction stopped, but I
* don't want to think about that...
*/
while (GET_5380_REG(NCR5380_DMSTAT) & SC_DMA_REQ)
if (pending_5380_count) {
*((u_char *) pending_5380_data)++ = *ncr_5380_with_drq;
pending_5380_count --;
} else {
#if DEBUG
pdma_5380_state = "done in xfer in.";
#endif
SET_5380_REG(NCR5380_MODE,
GET_5380_REG(NCR5380_MODE) & ~SC_M_DMA);
return;
}
#if DEBUG
pdma_5380_state = "handled drq interrupt.";
#endif
}
/*
* Macroed for readability.
*/
#define DONE ( (GET_5380_REG(NCR5380_DMSTAT) & SC_ACK_STAT) \
|| (GET_5380_REG(NCR5380_IDSTAT) & SC_S_REQ) )
static void
pdma_xfer_out()
{
/*
* See comment on pdma_xfer_in(), above.
*/
while (GET_5380_REG(NCR5380_DMSTAT) & SC_DMA_REQ)
if (pending_5380_count) {
*ncr_5380_with_drq = *((u_char *) pending_5380_data)++;
pending_5380_count --;
} else {
#if DEBUG
pdma_5380_state = "done in xfer out--waiting.";
#endif
while (!DONE);
#if DEBUG
pdma_5380_state = "done in xfer out--really done.";
#endif
pdma_cleanup();
return;
}
#if DEBUG
pdma_5380_state = "handled drq interrupt.";
#endif
}
#define SCSI_TIMEOUT_VAL 10000000
static int
transfer_pdma(phasep, data, count)
u_char *phasep;
u_char *data;
u_long *count;
{
SC_REQ *reqp = connected;
int len = *count, i, scsi_timeout = SCSI_TIMEOUT_VAL;
int s, err;
if (pdma_5380_pending) {
panic("ncrscsi: transfer_pdma called when operation already "
"pending.\n");
}
#if DEBUG
pdma_5380_state = "in transfer_pdma.";
#endif
scsi_idisable();
/*
* Don't bother with PDMA for short transfers or if we can't sleep.
*/
if ((reqp->dr_flag & DRIVER_NOINT) || (*count < 128)) {
#if DEBUG
pdma_5380_state = "using transfer_pio.";
#endif
transfer_pio(phasep, data, count);
return -1;
}
switch (*phasep) {
default:
panic("Unexpected phase in transfer_pdma.\n");
case PH_DATAOUT:
pdma_5380_dir = 1;
break;
case PH_DATAIN:
pdma_5380_dir = 2;
break;
}
/*
* Match phases with target.
*/
SET_5380_REG(NCR5380_TCOM, *phasep);
/*
* We are probably already at spl2(), so this is likely a no-op.
* Paranoia.
*/
s = splbio();
/*
* Clear pending interrupts.
*/
scsi_clr_ipend();
/*
* Wait until target asserts BSY.
*/
while ( ((GET_5380_REG(NCR5380_IDSTAT) & SC_S_BSY) == 0) &&
((GET_5380_REG(NCR5380_IDSTAT) & SC_S_BSY) == 0) &&
((GET_5380_REG(NCR5380_IDSTAT) & SC_S_BSY) == 0) &&
(--scsi_timeout) );
if (!scsi_timeout) {
#if DIAGNOSTIC
printf("scsi timeout: waiting for BSY in %s.\n",
(pdma_5380_dir == 1) ? "pdma_out" : "pdma_in");
#endif
goto scsi_timeout_error;
}
/*
* Tell the driver that we're in DMA mode.
*/
reqp->dr_flag |= DRIVER_IN_DMA;
/*
* Set DMA mode and assert data bus.
*/
SET_5380_REG(NCR5380_MODE, GET_5380_REG(NCR5380_MODE) | SC_M_DMA);
SET_5380_REG(NCR5380_ICOM, GET_5380_REG(NCR5380_ICOM) | SC_ADTB);
/*
* Load static/volatile values for DRQ interrupt handlers.
*/
pending_5380_data = (volatile u_char *) data;
pending_5380_count = len;
#if DEBUG
pdma_5380_state = "wait for interrupt.";
#endif
/*
* Set the transfer function to be called on DRQ interrupts.
* And note that we're waiting.
*/
pdma_xfer_fun = (pdma_5380_dir == 1) ? pdma_xfer_out : pdma_xfer_in;
pdma_5380_pending = 1;
/*
* Initiate the DMA transaction--sending or receiving.
*/
if (pdma_5380_dir == 1) {
SET_5380_REG(NCR5380_DMSTAT, 0);
} else {
SET_5380_REG(NCR5380_IRCV, 0);
}
/*
* Now that we're set up, enable interrupts and drop processor
* priority back down.
*/
scsi_ienable();
splx(s);
return 0;
scsi_timeout_error:
/*
* Clear the DMA mode.
*/
SET_5380_REG(NCR5380_MODE, GET_5380_REG(NCR5380_MODE) & ~SC_M_DMA);
return -1;
}
#endif /* if USE_PDMA */
/* Include general routines. */
#include <atari/dev/ncr5380.c>