12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216 |
- /*
- * NCR/Symbios/LSI Logic 53c8xx driver for Plan 9
- * Nigel Roles (nigel@9fs.org)
- *
- * 13/3/01 Fixed microcode to support targets > 7
- *
- * 01/12/00 Removed previous comments. Fixed a small problem in
- * mismatch recovery for targets with synchronous offsets of >=16
- * connected to >=875s. Thanks, Jean.
- *
- * Known problems
- *
- * Read/write mismatch recovery may fail on 53c1010s. Really need to get a manual.
- */
- #define MAXTARGET 16 /* can be 8 or 16 */
- /* Define one or the other ... */
- //#define CPU
- #ifndef FS
- #define FS
- #endif
- #include "u.h"
- #include "../port/lib.h"
- #include "mem.h"
- #include "dat.h"
- #include "fns.h"
- #include "io.h"
- #ifndef FS
- #include "../port/error.h"
- #endif
- #include "ureg.h"
- #ifdef NAINCLUDE
- #include "na/na.h"
- #include "na/nasupport.h"
- #endif /* NAINCLUDE */
- /**********************************/
- /* Portable configuration macros */
- /**********************************/
- //#define BOOTDEBUG
- //#define SINGLE_TARGET
- //#define ASYNC_ONLY
- //#define QUICK_TIMEOUT
- //#define INTERNAL_SCLK
- //#define ALWAYS_DO_WDTR
- #define WMR_DEBUG
- /**********************************/
- /* CPU specific macros */
- /**********************************/
- #ifdef CPU
- #ifdef BOOTDEBUG
- #define KPRINT oprint
- #define IPRINT iprint
- #define DEBUG(n) 0
- #define IFLUSH() iflush()
- #else
- #define KPRINT kprint
- #define IPRINT kprint
- #define DEBUG(n) scsidebugs[n]
- #define IFLUSH()
- #endif
- #endif
- /*******************************/
- /* Fileserver specific defines */
- /*******************************/
- #ifdef FS
- #define DEVICENAME "ncr53c8xx"
- #define PRINTPREFIX DEVICENAME ": "
- #define xalloc(n) ialloc(n, 1)
- #define KADDR(a) ((void*)((ulong)(a)|KZERO))
- #define KPRINT if(0)print
- #define IPRINT if(0)print
- #define DEBUG(n) 0
- #define IFLUSH()
- #endif
- /*******************************/
- /* General */
- /*******************************/
- #ifndef DMASEG
- #define DMASEG(x) PADDR(x)
- #define legetl(x) (*(ulong*)(x))
- #define lesetl(x,v) (*(ulong*)(x) = (v))
- #define swabl(a,b,c)
- #define IRQBASE Int0vec
- #else
- #define IRQBASE (PCIvec + 5)
- #endif
- #define DMASEG_TO_KADDR(x) KADDR(PADDR(x))
- #define KPTR(x) ((x) == 0 ? 0 : DMASEG_TO_KADDR(x))
- #define MEGA 1000000L
- #ifdef INTERNAL_SCLK
- #define SCLK (33 * MEGA)
- #else
- #define SCLK (40 * MEGA)
- #endif
- #define ULTRA_NOCLOCKDOUBLE_SCLK (80 * MEGA)
- #define MAXSYNCSCSIRATE (5 * MEGA)
- #define MAXFASTSYNCSCSIRATE (10 * MEGA)
- #define MAXULTRASYNCSCSIRATE (20 * MEGA)
- #define MAXULTRA2SYNCSCSIRATE (40 * MEGA)
- #define MAXASYNCCORERATE (25 * MEGA)
- #define MAXSYNCCORERATE (25 * MEGA)
- #define MAXFASTSYNCCORERATE (50 * MEGA)
- #define MAXULTRASYNCCORERATE (80 * MEGA)
- #define MAXULTRA2SYNCCORERATE (160 * MEGA)
- #define X_MSG 1
- #define X_MSG_SDTR 1
- #define X_MSG_WDTR 3
- #ifndef NAINCLUDE
- struct na_patch {
- unsigned lwoff;
- unsigned char type;
- };
- #endif /* NAINCLUDE */
- extern int scsidebugs[];
- typedef struct Ncr {
- uchar scntl0; /* 00 */
- uchar scntl1;
- uchar scntl2;
- uchar scntl3;
- uchar scid; /* 04 */
- uchar sxfer;
- uchar sdid;
- uchar gpreg;
- uchar sfbr; /* 08 */
- uchar socl;
- uchar ssid;
- uchar sbcl;
- uchar dstat; /* 0c */
- uchar sstat0;
- uchar sstat1;
- uchar sstat2;
- uchar dsa[4]; /* 10 */
- uchar istat; /* 14 */
- uchar istatpad[3];
- uchar ctest0; /* 18 */
- uchar ctest1;
- uchar ctest2;
- uchar ctest3;
- uchar temp[4]; /* 1c */
- uchar dfifo; /* 20 */
- uchar ctest4;
- uchar ctest5;
- uchar ctest6;
- uchar dbc[3]; /* 24 */
- uchar dcmd; /* 27 */
- uchar dnad[4]; /* 28 */
- uchar dsp[4]; /* 2c */
- uchar dsps[4]; /* 30 */
- uchar scratcha[4]; /* 34 */
- uchar dmode; /* 38 */
- uchar dien;
- uchar dwt;
- uchar dcntl;
- uchar adder[4]; /* 3c */
- uchar sien0; /* 40 */
- uchar sien1;
- uchar sist0;
- uchar sist1;
- uchar slpar; /* 44 */
- uchar slparpad0;
- uchar macntl;
- uchar gpcntl;
- uchar stime0; /* 48 */
- uchar stime1;
- uchar respid;
- uchar respidpad0;
- uchar stest0; /* 4c */
- uchar stest1;
- uchar stest2;
- uchar stest3;
- uchar sidl; /* 50 */
- uchar sidlpad[3];
- uchar sodl; /* 54 */
- uchar sodlpad[3];
- uchar sbdl; /* 58 */
- uchar sbdlpad[3];
- uchar scratchb[4]; /* 5c */
- } Ncr;
- typedef struct Movedata {
- uchar dbc[4];
- uchar pa[4];
- } Movedata;
- typedef enum NegoState {
- NeitherDone, WideInit, WideResponse, WideDone,
- SyncInit, SyncResponse, BothDone
- } NegoState;
- typedef enum State {
- Allocated, Queued, Active, Done
- } State;
- typedef struct Dsa {
- union {
- uchar state[4];
- struct {
- uchar stateb;
- uchar result;
- uchar dmablks;
- uchar flag; /* setbyte(state,3,...) */
- };
- };
- union {
- ulong dmancr; /* For block transfer: NCR order (little-endian) */
- uchar dmaaddr[4];
- };
- uchar target; /* Target */
- uchar pad0[3];
- uchar lun; /* Logical Unit Number */
- uchar pad1[3];
- uchar scntl3;
- uchar sxfer;
- uchar pad2[2];
- uchar next[4]; /* chaining for SCRIPT (NCR byte order) */
- struct Dsa *freechain; /* chaining for freelist */
- Rendez;
- uchar scsi_id_buf[4];
- Movedata msg_out_buf;
- Movedata cmd_buf;
- Movedata data_buf;
- Movedata status_buf;
- uchar msg_out[10]; /* enough to include SDTR */
- uchar status;
- ushort p9status;
- uchar parityerror;
- } Dsa;
- typedef enum Feature {
- BigFifo = 1, /* 536 byte fifo */
- BurstOpCodeFetch = 2, /* burst fetch opcodes */
- Prefetch = 4, /* prefetch 8 longwords */
- LocalRAM = 8, /* 4K longwords of local RAM */
- Differential = 16, /* Differential support */
- Wide = 32, /* Wide capable */
- Ultra = 64, /* Ultra capable */
- ClockDouble = 128, /* Has clock doubler */
- ClockQuad = 256, /* Has clock quadrupler (same as Ultra2) */
- Ultra2 = 256,
- } Feature;
- typedef enum Burst {
- Burst2 = 0,
- Burst4 = 1,
- Burst8 = 2,
- Burst16 = 3,
- Burst32 = 4,
- Burst64 = 5,
- Burst128 = 6
- } Burst;
- typedef struct Variant {
- ushort did;
- uchar maxrid; /* maximum allowed revision ID */
- char *name;
- Burst burst; /* codings for max burst */
- uchar maxsyncoff; /* max synchronous offset - must be power of 2 */
- uchar registers; /* number of 32 bit registers */
- unsigned feature;
- } Variant;
- static unsigned char cf2[] = { 6, 2, 3, 4, 6, 8, 12, 16 };
- #define NULTRA2SCF (sizeof(cf2)/sizeof(cf2[0]))
- #define NULTRASCF (NULTRA2SCF - 2)
- #define NSCF (NULTRASCF - 1)
- typedef struct Controller {
- Lock;
- struct {
- uchar scntl3;
- uchar stest2;
- } bios;
- int ctlrno;
- uchar synctab[NULTRA2SCF - 1][8];/* table of legal tpfs */
- NegoState s[MAXTARGET];
- uchar scntl3[MAXTARGET];
- uchar sxfer[MAXTARGET];
- uchar cap[MAXTARGET]; /* capabilities byte from Identify */
- ushort capvalid; /* bit per target for validity of cap[] */
- ushort wide; /* bit per target set if wide negotiated */
- ulong sclk; /* clock speed of controller */
- uchar clockmult; /* set by synctabinit */
- uchar ccf; /* CCF bits */
- uchar tpf; /* best tpf value for this controller */
- uchar feature; /* requested features */
- int running; /* is the script processor running? */
- int ssm; /* single step mode */
- Ncr *n; /* pointer to registers */
- Variant *v; /* pointer to variant type */
- ulong *script; /* where the real script is */
- ulong scriptpa; /* where the real script is */
- struct {
- Lock;
- uchar head[4]; /* head of free list (NCR byte order) */
- Dsa *tail;
- Dsa *freechain;
- } dsalist;
- QLock q[MAXTARGET]; /* queues for each target */
- } Controller;
- #define SYNCOFFMASK(c) (((c)->v->maxsyncoff * 2) - 1)
- #define SSIDMASK(c) (((c)->v->feature & Wide) ? 15 : 7)
- static Controller *ctlrxx[MaxScsi];
- /* ISTAT */
- enum { Abrt = 0x80, Srst = 0x40, Sigp = 0x20, Sem = 0x10, Con = 0x08, Intf = 0x04, Sip = 0x02, Dip = 0x01 };
- /* DSTAT */
- enum { Dfe = 0x80, Mdpe = 0x40, Bf = 0x20, Abrted = 0x10, Ssi = 0x08, Sir = 0x04, Iid = 0x01 };
- /* SSTAT */
- enum { DataOut, DataIn, Cmd, Status, ReservedOut, ReservedIn, MessageOut, MessageIn };
- #define STATUS_COMPLETE 0x6000
- #define STATUS_FAIL 0x8000
- #define STATUS_SELECTION_TIMEOUT 0x0200
- static void setmovedata(Movedata*, ulong, ulong);
- static void advancedata(Movedata*, long);
- static int bios_set_differential(Controller *c);
- static char *phase[] = {
- "data out", "data in", "command", "status",
- "reserved out", "reserved in", "message out", "message in"
- };
- #ifdef BOOTDEBUG
- #define DEBUGSIZE 10240
- char debugbuf[DEBUGSIZE];
- char *debuglast;
- void
- iprint(char *format, ...)
- {
- if (debuglast == 0)
- debuglast = debugbuf;
- debuglast = doprint(debuglast, debugbuf + (DEBUGSIZE - 1), format, (&format + 1));
- }
- void
- iflush()
- {
- int s;
- char *endp;
- s = splhi();
- if (debuglast == 0)
- debuglast = debugbuf;
- if (debuglast == debugbuf) {
- splx(s);
- return;
- }
- endp = debuglast;
- splx(s);
- screenputs(debugbuf, endp - debugbuf);
- s = splhi();
- memmove(debugbuf, endp, debuglast - endp);
- debuglast -= endp - debugbuf;
- splx(s);
- }
- void
- oprint(char *format, ...)
- {
- int s;
- iflush();
- s = splhi();
- if (debuglast == 0)
- debuglast = debugbuf;
- debuglast = doprint(debuglast, debugbuf + (DEBUGSIZE - 1), format, (&format + 1));
- splx(s);
- iflush();
- }
- #endif
- #include "script.i"
- static Dsa *
- dsaalloc(Controller *c, int target, int lun)
- {
- Dsa *d;
- ilock(&c->dsalist);
- if ((d = c->dsalist.freechain) == 0) {
- d = xalloc(sizeof(*d));
- if (DEBUG(1))
- KPRINT(PRINTPREFIX "%d/%d: allocated new dsa %lux\n", target, lun, (ulong)d);
- lesetl(d->next, 0);
- lesetl(d->state, A_STATE_ALLOCATED);
- if (legetl(c->dsalist.head) == 0)
- lesetl(c->dsalist.head, DMASEG(d)); /* ATOMIC?!? */
- else
- lesetl(c->dsalist.tail->next, DMASEG(d)); /* ATOMIC?!? */
- c->dsalist.tail = d;
- }
- else {
- if (DEBUG(1))
- KPRINT(PRINTPREFIX "%d/%d: reused dsa %lux\n", target, lun, (ulong)d);
- c->dsalist.freechain = d->freechain;
- lesetl(d->state, A_STATE_ALLOCATED);
- }
- iunlock(&c->dsalist);
- d->target = target;
- d->lun = lun;
- return d;
- }
- static void
- dsafree(Controller *c, Dsa *d)
- {
- ilock(&c->dsalist);
- d->freechain = c->dsalist.freechain;
- c->dsalist.freechain = d;
- lesetl(d->state, A_STATE_FREE);
- iunlock(&c->dsalist);
- }
- static Dsa *
- dsafind(Controller *c, uchar target, uchar lun, uchar state)
- {
- Dsa *d;
- for (d = KPTR(legetl(c->dsalist.head)); d; d = KPTR(legetl(d->next))) {
- if (d->target != 0xff && d->target != target)
- continue;
- if (lun != 0xff && d->lun != lun)
- continue;
- if (state != 0xff && d->stateb != state)
- continue;
- break;
- }
- return d;
- }
- static void
- dumpncrregs(Controller *c, int intr)
- {
- int i;
- Ncr *n = c->n;
- int depth = c->v->registers / 4;
- KPRINT("sa = %.8lux\n", c->scriptpa);
- for (i = 0; i < depth; i++) {
- int j;
- for (j = 0; j < 4; j++) {
- int k = j * depth + i;
- uchar *p;
- /* display little-endian to make 32-bit values readable */
- p = (uchar*)n+k*4;
- if (intr)
- IPRINT(" %.2x%.2x%.2x%.2x %.2x %.2x", p[3], p[2], p[1], p[0], k * 4, (k * 4) + 0x80);
- else
- KPRINT(" %.2x%.2x%.2x%.2x %.2x %.2x", p[3], p[2], p[1], p[0], k * 4, (k * 4) + 0x80);
- USED(p);
- }
- if (intr)
- IPRINT("\n");
- else
- KPRINT("\n");
- }
- }
- static int
- chooserate(Controller *c, int tpf, int *scfp, int *xferpp)
- {
- /* find lowest entry >= tpf */
- int besttpf = 1000;
- int bestscfi = 0;
- int bestxferp = 0;
- int scf, xferp;
- int maxscf;
- if (c->v->feature & Ultra2)
- maxscf = NULTRA2SCF;
- else if (c->v->feature & Ultra)
- maxscf = NULTRASCF;
- else
- maxscf = NSCF;
- /*
- * search large clock factors first since this should
- * result in more reliable transfers
- */
- for (scf = maxscf; scf >= 1; scf--) {
- for (xferp = 0; xferp < 8; xferp++) {
- unsigned char v = c->synctab[scf - 1][xferp];
- if (v == 0)
- continue;
- if (v >= tpf && v < besttpf) {
- besttpf = v;
- bestscfi = scf;
- bestxferp = xferp;
- }
- }
- }
- if (besttpf == 1000)
- return 0;
- if (scfp)
- *scfp = bestscfi;
- if (xferpp)
- *xferpp = bestxferp;
- return besttpf;
- }
- static void
- synctabinit(Controller *c)
- {
- int scf;
- unsigned long scsilimit;
- int xferp;
- unsigned long cr, sr;
- int tpf;
- int fast;
- int maxscf;
- if (c->v->feature & Ultra2)
- maxscf = NULTRA2SCF;
- else if (c->v->feature & Ultra)
- maxscf = NULTRASCF;
- else
- maxscf = NSCF;
- /*
- * for chips with no clock doubler, but Ultra capable (e.g. 860, or interestingly the
- * first spin of the 875), assume 80MHz
- * otherwise use the internal (33 Mhz) or external (40MHz) default
- */
- if ((c->v->feature & Ultra) != 0 && (c->v->feature & (ClockDouble | ClockQuad)) == 0)
- c->sclk = ULTRA_NOCLOCKDOUBLE_SCLK;
- else
- c->sclk = SCLK;
- /*
- * otherwise, if the chip is Ultra capable, but has a slow(ish) clock,
- * invoke the doubler
- */
- if (SCLK <= 40000000) {
- if (c->v->feature & ClockDouble) {
- c->sclk *= 2;
- c->clockmult = 1;
- }
- else if (c->v->feature & ClockQuad) {
- c->sclk *= 4;
- c->clockmult = 1;
- }
- else
- c->clockmult = 0;
- }
- else
- c->clockmult = 0;
- /* derive CCF from sclk */
- /* woebetide anyone with SCLK < 16.7 or > 80MHz */
- if (c->sclk <= 25 * MEGA)
- c->ccf = 1;
- else if (c->sclk <= 3750000)
- c->ccf = 2;
- else if (c->sclk <= 50 * MEGA)
- c->ccf = 3;
- else if (c->sclk <= 75 * MEGA)
- c->ccf = 4;
- else if ((c->v->feature & ClockDouble) && c->sclk <= 80 * MEGA)
- c->ccf = 5;
- else if ((c->v->feature & ClockQuad) && c->sclk <= 120 * MEGA)
- c->ccf = 6;
- else if ((c->v->feature & ClockQuad) && c->sclk <= 160 * MEGA)
- c->ccf = 7;
- for (scf = 1; scf < maxscf; scf++) {
- /* check for legal core rate */
- /* round up so we run slower for safety */
- cr = (c->sclk * 2 + cf2[scf] - 1) / cf2[scf];
- if (cr <= MAXSYNCCORERATE) {
- scsilimit = MAXSYNCSCSIRATE;
- fast = 0;
- }
- else if (cr <= MAXFASTSYNCCORERATE) {
- scsilimit = MAXFASTSYNCSCSIRATE;
- fast = 1;
- }
- else if ((c->v->feature & Ultra) && cr <= MAXULTRASYNCCORERATE) {
- scsilimit = MAXULTRASYNCSCSIRATE;
- fast = 2;
- }
- else if ((c->v->feature & Ultra2) && cr <= MAXULTRA2SYNCCORERATE) {
- scsilimit = MAXULTRA2SYNCSCSIRATE;
- fast = 3;
- }
- else
- continue;
- for (xferp = 11; xferp >= 4; xferp--) {
- int ok;
- int tp;
- /* calculate scsi rate - round up again */
- /* start from sclk for accuracy */
- int totaldivide = xferp * cf2[scf];
- sr = (c->sclk * 2 + totaldivide - 1) / totaldivide;
- if (sr > scsilimit)
- break;
- /*
- * now work out transfer period
- * round down now so that period is pessimistic
- */
- tp = (MEGA * 1000) / sr;
- /*
- * bounds check it
- */
- if (tp < 25 || tp > 255 * 4)
- continue;
- /*
- * spot stupid special case for Ultra or Ultra2
- * while working out factor
- */
- if (tp == 25)
- tpf = 10;
- else if (tp == 50)
- tpf = 12;
- else if (tp < 52)
- continue;
- else
- tpf = tp / 4;
- /*
- * now check tpf looks sensible
- * given core rate
- */
- switch (fast) {
- case 0:
- /* scf must be ccf for SCSI 1 */
- ok = tpf >= 50 && scf == c->ccf;
- break;
- case 1:
- ok = tpf >= 25 && tpf < 50;
- break;
- case 2:
- /*
- * must use xferp of 4, or 5 at a pinch
- * for an Ultra transfer
- */
- ok = xferp <= 5 && tpf >= 12 && tpf < 25;
- break;
- case 3:
- ok = xferp == 4 && (tpf == 10 || tpf == 11);
- break;
- default:
- ok = 0;
- }
- if (!ok)
- continue;
- c->synctab[scf - 1][xferp - 4] = tpf;
- }
- }
- #ifndef NO_ULTRA2
- if (c->v->feature & Ultra2)
- tpf = 10;
- else
- #endif
- if (c->v->feature & Ultra)
- tpf = 12;
- else
- tpf = 25;
- for (; tpf < 256; tpf++) {
- if (chooserate(c, tpf, &scf, &xferp) == tpf) {
- unsigned tp = tpf == 10 ? 25 : (tpf == 12 ? 50 : tpf * 4);
- unsigned long khz = (MEGA + tp - 1) / (tp);
- KPRINT(PRINTPREFIX "tpf=%d scf=%d.%.1d xferp=%d mhz=%ld.%.3ld\n",
- tpf, cf2[scf] / 2, (cf2[scf] & 1) ? 5 : 0,
- xferp + 4, khz / 1000, khz % 1000);
- USED(khz);
- if (c->tpf == 0)
- c->tpf = tpf; /* note lowest value for controller */
- }
- }
- }
- static void
- synctodsa(Dsa *dsa, Controller *c)
- {
- /*
- KPRINT("synctodsa(dsa=%lux, target=%d, scntl3=%.2lx sxfer=%.2x)\n",
- dsa, dsa->target, c->scntl3[dsa->target], c->sxfer[dsa->target]);
- */
- dsa->scntl3 = c->scntl3[dsa->target];
- dsa->sxfer = c->sxfer[dsa->target];
- }
- static void
- setsync(Dsa *dsa, Controller *c, int target, uchar ultra, uchar scf, uchar xferp, uchar reqack)
- {
- c->scntl3[target] =
- (c->scntl3[target] & 0x08) | (((scf << 4) | c->ccf | (ultra << 7)) & ~0x08);
- c->sxfer[target] = (xferp << 5) | reqack;
- c->s[target] = BothDone;
- if (dsa) {
- synctodsa(dsa, c);
- c->n->scntl3 = c->scntl3[target];
- c->n->sxfer = c->sxfer[target];
- }
- }
- static void
- setasync(Dsa *dsa, Controller *c, int target)
- {
- setsync(dsa, c, target, 0, c->ccf, 0, 0);
- }
- static void
- setwide(Dsa *dsa, Controller *c, int target, uchar wide)
- {
- c->scntl3[target] = wide ? (1 << 3) : 0;
- setasync(dsa, c, target);
- c->s[target] = WideDone;
- }
- static int
- buildsdtrmsg(uchar *buf, uchar tpf, uchar offset)
- {
- *buf++ = X_MSG;
- *buf++ = 3;
- *buf++ = X_MSG_SDTR;
- *buf++ = tpf;
- *buf = offset;
- return 5;
- }
- static int
- buildwdtrmsg(uchar *buf, uchar expo)
- {
- *buf++ = X_MSG;
- *buf++ = 2;
- *buf++ = X_MSG_WDTR;
- *buf = expo;
- return 4;
- }
- static void
- start(Controller *c, long entry)
- {
- ulong p;
- if (c->running)
- panic(PRINTPREFIX "start called while running");
- c->running = 1;
- p = c->scriptpa + entry;
- lesetl(c->n->dsp, p);
- if (c->ssm)
- c->n->dcntl |= 0x4; /* start DMA in SSI mode */
- }
- static void
- ncrcontinue(Controller *c)
- {
- if (c->running)
- panic(PRINTPREFIX "ncrcontinue called while running");
- /* set the start DMA bit to continue execution */
- c->running = 1;
- c->n->dcntl |= 0x4;
- }
- static void
- softreset(Controller *c)
- {
- Ncr *n = c->n;
- n->istat = Srst; /* software reset */
- n->istat = 0;
- /* general initialisation */
- n->scid = (1 << 6) | 7; /* respond to reselect, ID 7 */
- n->respid = 1 << 7; /* response ID = 7 */
- #ifdef INTERNAL_SCLK
- n->stest1 = 0x80; /* disable external scsi clock */
- #else
- n->stest1 = 0x00;
- #endif
- n->stime0 = 0xdd; /* about 0.5 second timeout on each device */
- n->scntl0 |= 0x8; /* Enable parity checking */
- /* continued setup */
- n->sien0 = 0x8f;
- n->sien1 = 0x04;
- n->dien = 0x7d;
- n->stest3 = 0x80; /* TolerANT enable */
- c->running = 0;
- if (c->v->feature & BigFifo)
- n->ctest5 = (1 << 5);
- n->dmode = c->v->burst << 6; /* set burst length bits */
- if (c->v->burst & 4)
- n->ctest5 |= (1 << 2); /* including overflow into ctest5 bit 2 */
- if (c->v->feature & Prefetch)
- n->dcntl |= (1 << 5); /* prefetch enable */
- else if (c->v->feature & BurstOpCodeFetch)
- n->dmode |= (1 << 1); /* burst opcode fetch */
- if (c->v->feature & Differential) {
- /* chip capable */
- if ((c->feature & Differential) || bios_set_differential(c)) {
- /* user enabled, or some evidence bios set differential */
- if (n->sstat2 & (1 << 2))
- print(PRINTPREFIX "can't go differential; wrong cable\n");
- else {
- n->stest2 = (1 << 5);
- print(PRINTPREFIX "differential mode set\n");
- }
- }
- }
- if (c->clockmult) {
- n->stest1 |= (1 << 3); /* power up doubler */
- delay(2);
- n->stest3 |= (1 << 5); /* stop clock */
- n->stest1 |= (1 << 2); /* enable doubler */
- n->stest3 &= ~(1 << 5); /* start clock */
- /* pray */
- }
- }
- static void
- msgsm(Dsa *dsa, Controller *c, int msg, int *cont, int *wakeme)
- {
- uchar histpf, hisreqack;
- int tpf;
- int scf, xferp;
- int len;
- Ncr *n = c->n;
- switch (c->s[dsa->target]) {
- case SyncInit:
- switch (msg) {
- case A_SIR_MSG_SDTR:
- /* reply to my SDTR */
- histpf = n->scratcha[2];
- hisreqack = n->scratcha[3];
- KPRINT(PRINTPREFIX "%d: SDTN response %d %d\n",
- dsa->target, histpf, hisreqack);
- if (hisreqack == 0)
- setasync(dsa, c, dsa->target);
- else {
- /* hisreqack should be <= c->v->maxsyncoff */
- tpf = chooserate(c, histpf, &scf, &xferp);
- KPRINT(PRINTPREFIX "%d: SDTN: using %d %d\n",
- dsa->target, tpf, hisreqack);
- setsync(dsa, c, dsa->target, tpf < 25, scf, xferp, hisreqack);
- }
- *cont = -2;
- return;
- case A_SIR_EV_PHASE_SWITCH_AFTER_ID:
- /* target ignored ATN for message after IDENTIFY - not SCSI-II */
- KPRINT(PRINTPREFIX "%d: illegal phase switch after ID message - SCSI-1 device?\n", dsa->target);
- KPRINT(PRINTPREFIX "%d: SDTN: async\n", dsa->target);
- setasync(dsa, c, dsa->target);
- *cont = E_to_decisions;
- return;
- case A_SIR_MSG_REJECT:
- /* rejection of my SDTR */
- KPRINT(PRINTPREFIX "%d: SDTN: rejected SDTR\n", dsa->target);
- //async:
- KPRINT(PRINTPREFIX "%d: SDTN: async\n", dsa->target);
- setasync(dsa, c, dsa->target);
- *cont = -2;
- return;
- }
- break;
- case WideInit:
- switch (msg) {
- case A_SIR_MSG_WDTR:
- /* reply to my WDTR */
- KPRINT(PRINTPREFIX "%d: WDTN: response %d\n",
- dsa->target, n->scratcha[2]);
- setwide(dsa, c, dsa->target, n->scratcha[2]);
- *cont = -2;
- return;
- case A_SIR_EV_PHASE_SWITCH_AFTER_ID:
- /* target ignored ATN for message after IDENTIFY - not SCSI-II */
- KPRINT(PRINTPREFIX "%d: illegal phase switch after ID message - SCSI-1 device?\n", dsa->target);
- setwide(dsa, c, dsa->target, 0);
- *cont = E_to_decisions;
- return;
- case A_SIR_MSG_REJECT:
- /* rejection of my SDTR */
- KPRINT(PRINTPREFIX "%d: WDTN: rejected WDTR\n", dsa->target);
- setwide(dsa, c, dsa->target, 0);
- *cont = -2;
- return;
- }
- break;
- case NeitherDone:
- case WideDone:
- case BothDone:
- switch (msg) {
- case A_SIR_MSG_WDTR: {
- uchar hiswide, mywide;
- hiswide = n->scratcha[2];
- mywide = (c->v->feature & Wide) != 0;
- KPRINT(PRINTPREFIX "%d: WDTN: target init %d\n",
- dsa->target, hiswide);
- if (hiswide < mywide)
- mywide = hiswide;
- KPRINT(PRINTPREFIX "%d: WDTN: responding %d\n",
- dsa->target, mywide);
- setwide(dsa, c, dsa->target, mywide);
- len = buildwdtrmsg(dsa->msg_out, mywide);
- setmovedata(&dsa->msg_out_buf, DMASEG(dsa->msg_out), len);
- *cont = E_response;
- c->s[dsa->target] = WideResponse;
- return;
- }
- case A_SIR_MSG_SDTR:
- #ifdef ASYNC_ONLY
- *cont = E_reject;
- return;
- #else
- /* target decides to renegotiate */
- histpf = n->scratcha[2];
- hisreqack = n->scratcha[3];
- KPRINT(PRINTPREFIX "%d: SDTN: target init %d %d\n",
- dsa->target, histpf, hisreqack);
- if (hisreqack == 0) {
- /* he wants asynchronous */
- setasync(dsa, c, dsa->target);
- tpf = 0;
- }
- else {
- /* he wants synchronous */
- tpf = chooserate(c, histpf, &scf, &xferp);
- if (hisreqack > c->v->maxsyncoff)
- hisreqack = c->v->maxsyncoff;
- KPRINT(PRINTPREFIX "%d: using %d %d\n",
- dsa->target, tpf, hisreqack);
- setsync(dsa, c, dsa->target, tpf < 25, scf, xferp, hisreqack);
- }
- /* build my SDTR message */
- len = buildsdtrmsg(dsa->msg_out, tpf, hisreqack);
- setmovedata(&dsa->msg_out_buf, DMASEG(dsa->msg_out), len);
- *cont = E_response;
- c->s[dsa->target] = SyncResponse;
- return;
- #endif
- }
- break;
- case WideResponse:
- switch (msg) {
- case A_SIR_EV_RESPONSE_OK:
- c->s[dsa->target] = WideDone;
- KPRINT(PRINTPREFIX "%d: WDTN: response accepted\n", dsa->target);
- *cont = -2;
- return;
- case A_SIR_MSG_REJECT:
- setwide(dsa, c, dsa->target, 0);
- KPRINT(PRINTPREFIX "%d: WDTN: response REJECTed\n", dsa->target);
- *cont = -2;
- return;
- }
- break;
- case SyncResponse:
- switch (msg) {
- case A_SIR_EV_RESPONSE_OK:
- c->s[dsa->target] = BothDone;
- KPRINT(PRINTPREFIX "%d: SDTN: response accepted (%s)\n",
- dsa->target, phase[n->sstat1 & 7]);
- *cont = -2;
- return; /* chf */
- case A_SIR_MSG_REJECT:
- setasync(dsa, c, dsa->target);
- KPRINT(PRINTPREFIX "%d: SDTN: response REJECTed\n", dsa->target);
- *cont = -2;
- return;
- }
- break;
- }
- KPRINT(PRINTPREFIX "%d: msgsm: state %d msg %d\n",
- dsa->target, c->s[dsa->target], msg);
- *wakeme = 1;
- return;
- }
- static void
- calcblockdma(Dsa *d, ulong base, ulong count)
- {
- ulong blocks;
- if (DEBUG(3))
- blocks = 0;
- else {
- blocks = count / A_BSIZE;
- if (blocks > 255)
- blocks = 255;
- }
- d->dmablks = blocks;
- d->dmaaddr[0] = base;
- d->dmaaddr[1] = base >> 8;
- d->dmaaddr[2] = base >> 16;
- d->dmaaddr[3] = base >> 24;
- setmovedata(&d->data_buf, base + blocks * A_BSIZE, count - blocks * A_BSIZE);
- if (legetl(d->data_buf.dbc) == 0)
- d->flag = 1;
- }
- static ulong
- read_mismatch_recover(Controller *c, Ncr *n, Dsa *dsa)
- {
- ulong dbc;
- uchar dfifo = n->dfifo;
- int inchip;
- dbc = (n->dbc[2]<<16)|(n->dbc[1]<<8)|n->dbc[0];
- if (n->ctest5 & (1 << 5))
- inchip = ((dfifo | ((n->ctest5 & 3) << 8)) - (dbc & 0x3ff)) & 0x3ff;
- else
- inchip = ((dfifo & 0x7f) - (dbc & 0x7f)) & 0x7f;
- if (inchip) {
- IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: DMA FIFO = %d\n",
- dsa->target, dsa->lun, inchip);
- }
- if (n->sxfer & SYNCOFFMASK(c)) {
- /* SCSI FIFO */
- uchar fifo = n->sstat1 >> 4;
- if (c->v->maxsyncoff > 8)
- fifo |= (n->sstat2 & (1 << 4));
- if (fifo) {
- inchip += fifo;
- IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: SCSI FIFO = %d\n",
- dsa->target, dsa->lun, fifo);
- }
- }
- else {
- if (n->sstat0 & (1 << 7)) {
- inchip++;
- IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: SIDL full\n",
- dsa->target, dsa->lun);
- }
- if (n->sstat2 & (1 << 7)) {
- inchip++;
- IPRINT(PRINTPREFIX "%d/%d: read_mismatch_recover: SIDL msb full\n",
- dsa->target, dsa->lun);
- }
- }
- USED(inchip);
- return dbc;
- }
- static ulong
- write_mismatch_recover(Controller *c, Ncr *n, Dsa *dsa)
- {
- ulong dbc;
- uchar dfifo = n->dfifo;
- int inchip;
- dbc = (n->dbc[2]<<16)|(n->dbc[1]<<8)|n->dbc[0];
- USED(dsa);
- if (n->ctest5 & (1 << 5))
- inchip = ((dfifo | ((n->ctest5 & 3) << 8)) - (dbc & 0x3ff)) & 0x3ff;
- else
- inchip = ((dfifo & 0x7f) - (dbc & 0x7f)) & 0x7f;
- #ifdef WMR_DEBUG
- if (inchip) {
- IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: DMA FIFO = %d\n",
- dsa->target, dsa->lun, inchip);
- }
- #endif
- if (n->sstat0 & (1 << 5)) {
- inchip++;
- #ifdef WMR_DEBUG
- IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODL full\n", dsa->target, dsa->lun);
- #endif
- }
- if (n->sstat2 & (1 << 5)) {
- inchip++;
- #ifdef WMR_DEBUG
- IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODL msb full\n", dsa->target, dsa->lun);
- #endif
- }
- if (n->sxfer & SYNCOFFMASK(c)) {
- /* synchronous SODR */
- if (n->sstat0 & (1 << 6)) {
- inchip++;
- #ifdef WMR_DEBUG
- IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODR full\n",
- dsa->target, dsa->lun);
- #endif
- }
- if (n->sstat2 & (1 << 6)) {
- inchip++;
- #ifdef WMR_DEBUG
- IPRINT(PRINTPREFIX "%d/%d: write_mismatch_recover: SODR msb full\n",
- dsa->target, dsa->lun);
- #endif
- }
- }
- /* clear the dma fifo */
- n->ctest3 |= (1 << 2);
- /* wait till done */
- while ((n->dstat & Dfe) == 0)
- ;
- return dbc + inchip;
- }
- static void
- interrupt(Ureg *ur, void *a)
- {
- int wakeme = 0, cont = -1;
- uchar istat, dstat;
- ushort sist;
- Controller *c = a;
- Ncr *n = c->n;
- Dsa *dsa;
- USED(ur);
- if (DEBUG(1))
- IPRINT(PRINTPREFIX "int\n");
- ilock(c);
- istat = n->istat;
- if (istat & Intf) {
- Dsa *d;
- int wokesomething = 0;
- if (DEBUG(1))
- IPRINT(PRINTPREFIX "Intfly\n");
- n->istat = Intf;
- /* search for structures in A_STATE_DONE */
- for (d = KPTR(legetl(c->dsalist.head)); d; d = KPTR(legetl(d->next))) {
- if (d->stateb == A_STATE_DONE) {
- d->p9status = STATUS_COMPLETE | d->status;
- if (DEBUG(1))
- IPRINT(PRINTPREFIX "waking up dsa %lux\n", (ulong)d);
- wakeup(d);
- wokesomething = 1;
- }
- }
- if (!wokesomething)
- IPRINT(PRINTPREFIX "nothing to wake up\n");
- }
- if ((istat & (Sip | Dip)) == 0) {
- if (DEBUG(1))
- IPRINT(PRINTPREFIX "int end %x\n", istat);
- iunlock(c);
- return;
- }
- sist = (n->sist1<<8)|n->sist0; /* BUG? can two-byte read be inconsistent? */
- dstat = n->dstat;
- dsa = (Dsa *)DMASEG_TO_KADDR(legetl(n->dsa));
- c->running = 0;
- if (dsa == nil || dsa == (Dsa *)-1)
- panic("53c8xx: dsa == %ld in interrupt; bad controller", (long)dsa);
- if (istat & Sip) {
- if (DEBUG(1))
- IPRINT("sist = %.4x\n", sist);
- if (sist & 0x80) {
- ulong addr;
- ulong sa;
- ulong dbc;
- ulong tbc;
- int dmablks;
- ulong dmaaddr;
- addr = legetl(n->dsp);
- sa = addr - c->scriptpa;
- if (DEBUG(1) || DEBUG(2))
- IPRINT(PRINTPREFIX "%d/%d: Phase Mismatch sa=%.8lux\n",
- dsa->target, dsa->lun, sa);
- /*
- * now recover
- */
- if (sa == E_data_in_mismatch) {
- dbc = read_mismatch_recover(c, n, dsa);
- tbc = legetl(dsa->data_buf.dbc) - dbc;
- advancedata(&dsa->data_buf, tbc);
- if (DEBUG(1) || DEBUG(2))
- IPRINT(PRINTPREFIX "%d/%d: transferred = %ld residue = %ld\n",
- dsa->target, dsa->lun, tbc, legetl(dsa->data_buf.dbc));
- cont = E_to_decisions;
- }
- else if (sa == E_data_in_block_mismatch) {
- dbc = read_mismatch_recover(c, n, dsa);
- tbc = A_BSIZE - dbc;
- /* recover current state from registers */
- dmablks = n->scratcha[2];
- dmaaddr = legetl(n->scratchb);
- /* we have got to dmaaddr + tbc */
- /* we have dmablks * A_BSIZE - tbc + residue left to do */
- /* so remaining transfer is */
- IPRINT("in_block_mismatch: dmaaddr = 0x%lux tbc=%lud dmablks=%d\n",
- dmaaddr, tbc, dmablks);
- calcblockdma(dsa, dmaaddr + tbc,
- dmablks * A_BSIZE - tbc + legetl(dsa->data_buf.dbc));
- /* copy changes into scratch registers */
- IPRINT("recalc: dmablks %d dmaaddr 0x%lx pa 0x%lx dbc %ld\n",
- dsa->dmablks, legetl(dsa->dmaaddr),
- legetl(dsa->data_buf.pa), legetl(dsa->data_buf.dbc));
- n->scratcha[2] = dsa->dmablks;
- lesetl(n->scratchb, dsa->dmancr);
- cont = E_data_block_mismatch_recover;
- }
- else if (sa == E_data_out_mismatch) {
- dbc = write_mismatch_recover(c, n, dsa);
- tbc = legetl(dsa->data_buf.dbc) - dbc;
- advancedata(&dsa->data_buf, tbc);
- if (DEBUG(1) || DEBUG(2))
- IPRINT(PRINTPREFIX "%d/%d: transferred = %ld residue = %ld\n",
- dsa->target, dsa->lun, tbc, legetl(dsa->data_buf.dbc));
- cont = E_to_decisions;
- }
- else if (sa == E_data_out_block_mismatch) {
- dbc = write_mismatch_recover(c, n, dsa);
- tbc = legetl(dsa->data_buf.dbc) - dbc;
- /* recover current state from registers */
- dmablks = n->scratcha[2];
- dmaaddr = legetl(n->scratchb);
- /* we have got to dmaaddr + tbc */
- /* we have dmablks blocks - tbc + residue left to do */
- /* so remaining transfer is */
- IPRINT("out_block_mismatch: dmaaddr = %lux tbc=%lud dmablks=%d\n",
- dmaaddr, tbc, dmablks);
- calcblockdma(dsa, dmaaddr + tbc,
- dmablks * A_BSIZE - tbc + legetl(dsa->data_buf.dbc));
- /* copy changes into scratch registers */
- n->scratcha[2] = dsa->dmablks;
- lesetl(n->scratchb, dsa->dmancr);
- cont = E_data_block_mismatch_recover;
- }
- else if (sa == E_id_out_mismatch) {
- /*
- * target switched phases while attention held during
- * message out. The possibilities are:
- * 1. It didn't like the last message. This is indicated
- * by the new phase being message_in. Use script to recover
- *
- * 2. It's not SCSI-II compliant. The new phase will be other
- * than message_in. We should also indicate that the device
- * is asynchronous, if it's the SDTR that got ignored
- *
- * For now, if the phase switch is not to message_in, and
- * and it happens after IDENTIFY and before SDTR, we
- * notify the negotiation state machine.
- */
- ulong lim = legetl(dsa->msg_out_buf.dbc);
- uchar p = n->sstat1 & 7;
- dbc = write_mismatch_recover(c, n, dsa);
- tbc = lim - dbc;
- IPRINT(PRINTPREFIX "%d/%d: msg_out_mismatch: %lud/%lud sent, phase %s\n",
- dsa->target, dsa->lun, tbc, lim, phase[p]);
- if (p != MessageIn && tbc == 1) {
- msgsm(dsa, c, A_SIR_EV_PHASE_SWITCH_AFTER_ID, &cont, &wakeme);
- }
- else
- cont = E_id_out_mismatch_recover;
- }
- else if (sa == E_cmd_out_mismatch) {
- /*
- * probably the command count is longer than the device wants ...
- */
- ulong lim = legetl(dsa->cmd_buf.dbc);
- uchar p = n->sstat1 & 7;
- dbc = write_mismatch_recover(c, n, dsa);
- tbc = lim - dbc;
- IPRINT(PRINTPREFIX "%d/%d: cmd_out_mismatch: %lud/%lud sent, phase %s\n",
- dsa->target, dsa->lun, tbc, lim, phase[p]);
- USED(p, tbc);
- cont = E_to_decisions;
- }
- else {
- IPRINT(PRINTPREFIX "%d/%d: ma sa=%.8lux wanted=%s got=%s\n",
- dsa->target, dsa->lun, sa,
- phase[n->dcmd & 7],
- phase[n->sstat1 & 7]);
- dumpncrregs(c, 1);
- dsa->p9status = STATUS_FAIL; /* chf */
- wakeme = 1;
- }
- }
- /*else*/ if (sist & 0x400) {
- if (DEBUG(0))
- IPRINT(PRINTPREFIX "%d/%d Sto\n", dsa->target, dsa->lun);
- dsa->p9status = STATUS_SELECTION_TIMEOUT;
- dsa->stateb = A_STATE_DONE;
- softreset(c);
- cont = E_issue_check;
- wakeme = 1;
- }
- if (sist & 0x1) {
- IPRINT(PRINTPREFIX "%d/%d: parity error\n", dsa->target, dsa->lun);
- dsa->parityerror = 1;
- }
- if (sist & 0x4) {
- IPRINT(PRINTPREFIX "%d/%d: unexpected disconnect\n",
- dsa->target, dsa->lun);
- dumpncrregs(c, 1);
- //wakeme = 1;
- dsa->p9status = STATUS_FAIL;
- }
- }
- if (istat & Dip) {
- if (DEBUG(1))
- IPRINT("dstat = %.2x\n", dstat);
- /*else*/ if (dstat & Ssi) {
- ulong *p = DMASEG_TO_KADDR(legetl(n->dsp));
- ulong w = (uchar *)p - (uchar *)c->script;
- IPRINT("[%lux]", w);
- USED(w);
- cont = -2; /* restart */
- }
- if (dstat & Sir) {
- switch (legetl(n->dsps)) {
- case A_SIR_MSG_IO_COMPLETE:
- dsa->p9status = STATUS_COMPLETE | dsa->status;
- wakeme = 1;
- break;
- case A_SIR_MSG_SDTR:
- case A_SIR_MSG_WDTR:
- case A_SIR_MSG_REJECT:
- case A_SIR_EV_RESPONSE_OK:
- msgsm(dsa, c, legetl(n->dsps), &cont, &wakeme);
- break;
- case A_SIR_MSG_IGNORE_WIDE_RESIDUE:
- /* back up one in the data transfer */
- IPRINT(PRINTPREFIX "%d/%d: ignore wide residue %d, WSR = %d\n",
- dsa->target, dsa->lun, n->scratcha[1], n->scntl2 & 1);
- if (dsa->dmablks == 0 && dsa->flag)
- IPRINT(PRINTPREFIX "%d/%d: transfer over; residue ignored\n",
- dsa->target, dsa->lun);
- else
- calcblockdma(dsa, legetl(dsa->dmaaddr) - 1,
- dsa->dmablks * A_BSIZE + legetl(dsa->data_buf.dbc) + 1);
- cont = -2;
- break;
- case A_SIR_ERROR_NOT_MSG_IN_AFTER_RESELECT:
- IPRINT(PRINTPREFIX "%d: not msg_in after reselect (%s)",
- n->ssid & SSIDMASK(c), phase[n->sstat1 & 7]);
- dsa = dsafind(c, n->ssid & SSIDMASK(c), -1, A_STATE_DISCONNECTED);
- dumpncrregs(c, 1);
- wakeme = 1;
- break;
- case A_SIR_NOTIFY_MSG_IN:
- IPRINT(PRINTPREFIX "%d/%d: msg_in %d\n",
- dsa->target, dsa->lun, n->sfbr);
- cont = -2;
- break;
- case A_SIR_NOTIFY_DISC:
- IPRINT(PRINTPREFIX "%d/%d: disconnect:", dsa->target, dsa->lun);
- goto dsadump;
- case A_SIR_NOTIFY_STATUS:
- IPRINT(PRINTPREFIX "%d/%d: status\n", dsa->target, dsa->lun);
- cont = -2;
- break;
- case A_SIR_NOTIFY_COMMAND:
- IPRINT(PRINTPREFIX "%d/%d: commands\n", dsa->target, dsa->lun);
- cont = -2;
- break;
- case A_SIR_NOTIFY_DATA_IN:
- IPRINT(PRINTPREFIX "%d/%d: data in a %lx b %lx\n",
- dsa->target, dsa->lun, legetl(n->scratcha), legetl(n->scratchb));
- cont = -2;
- break;
- case A_SIR_NOTIFY_BLOCK_DATA_IN:
- IPRINT(PRINTPREFIX "%d/%d: block data in: a2 %x b %lx\n",
- dsa->target, dsa->lun, n->scratcha[2], legetl(n->scratchb));
- cont = -2;
- break;
- case A_SIR_NOTIFY_DATA_OUT:
- IPRINT(PRINTPREFIX "%d/%d: data out\n", dsa->target, dsa->lun);
- cont = -2;
- break;
- case A_SIR_NOTIFY_DUMP:
- IPRINT(PRINTPREFIX "%d/%d: dump\n", dsa->target, dsa->lun);
- dumpncrregs(c, 1);
- cont = -2;
- break;
- case A_SIR_NOTIFY_DUMP2:
- IPRINT(PRINTPREFIX "%d/%d: dump2:", dsa->target, dsa->lun);
- IPRINT(" sa %lux", legetl(n->dsp) - c->scriptpa);
- IPRINT(" dsa %lux", legetl(n->dsa));
- IPRINT(" sfbr %ux", n->sfbr);
- IPRINT(" a %lux", legetl(n->scratcha));
- IPRINT(" b %lux", legetl(n->scratchb));
- IPRINT(" ssid %ux", n->ssid);
- IPRINT("\n");
- cont = -2;
- break;
- case A_SIR_NOTIFY_WAIT_RESELECT:
- IPRINT(PRINTPREFIX "wait reselect\n");
- cont = -2;
- break;
- case A_SIR_NOTIFY_RESELECT:
- IPRINT(PRINTPREFIX "reselect: ssid %.2x sfbr %.2x at %ld\n",
- n->ssid, n->sfbr, TK2MS(m->ticks));
- cont = -2;
- break;
- case A_SIR_NOTIFY_ISSUE:
- IPRINT(PRINTPREFIX "%d/%d: issue:", dsa->target, dsa->lun);
- dsadump:
- IPRINT(" tgt=%d", dsa->target);
- IPRINT(" time=%ld", TK2MS(m->ticks));
- IPRINT("\n");
- cont = -2;
- break;
- case A_SIR_NOTIFY_ISSUE_CHECK:
- IPRINT(PRINTPREFIX "issue check\n");
- cont = -2;
- break;
- case A_SIR_NOTIFY_SIGP:
- IPRINT(PRINTPREFIX "responded to SIGP\n");
- cont = -2;
- break;
- case A_SIR_NOTIFY_DUMP_NEXT_CODE: {
- ulong *dsp = DMASEG_TO_KADDR(legetl(n->dsp));
- int x;
- IPRINT(PRINTPREFIX "code at %lux", dsp - c->script);
- for (x = 0; x < 6; x++)
- IPRINT(" %.8lux", dsp[x]);
- IPRINT("\n");
- USED(dsp);
- cont = -2;
- break;
- }
- case A_SIR_NOTIFY_WSR:
- IPRINT(PRINTPREFIX "%d/%d: WSR set\n", dsa->target, dsa->lun);
- cont = -2;
- break;
- case A_SIR_NOTIFY_LOAD_SYNC:
- IPRINT(PRINTPREFIX "%d/%d: scntl=%.2x sxfer=%.2x\n",
- dsa->target, dsa->lun, n->scntl3, n->sxfer);
- cont = -2;
- break;
- case A_SIR_NOTIFY_RESELECTED_ON_SELECT:
- IPRINT(PRINTPREFIX "%d/%d: reselected during select\n",
- dsa->target, dsa->lun);
- cont = -2;
- break;
- default:
- IPRINT(PRINTPREFIX "%d/%d: script error %ld\n",
- dsa->target, dsa->lun, legetl(n->dsps));
- dumpncrregs(c, 1);
- wakeme = 1;
- }
- }
- /*else*/ if (dstat & Iid) {
- ulong addr = legetl(n->dsp);
- ulong dbc = (n->dbc[2]<<16)|(n->dbc[1]<<8)|n->dbc[0];
- IPRINT(PRINTPREFIX "%d/%d: Iid pa=%.8lux sa=%.8lux dbc=%lux\n",
- dsa->target, dsa->lun,
- addr, addr - c->scriptpa, dbc);
- addr = (ulong)DMASEG_TO_KADDR(addr);
- IPRINT("%.8lux %.8lux %.8lux\n",
- *(ulong *)(addr - 12), *(ulong *)(addr - 8), *(ulong *)(addr - 4));
- USED(addr, dbc);
- if (dsa)
- dsa->p9status = STATUS_FAIL;
- wakeme = 1;
- }
- /*else*/ if (dstat & Bf) {
- if (dsa == nil)
- print(PRINTPREFIX "Bus Fault with dsa==0\n");
- else {
- print(PRINTPREFIX "%d/%d: Bus Fault\n", dsa->target, dsa->lun);
- dsa->p9status = STATUS_FAIL;
- }
- dumpncrregs(c, 1);
- wakeme = 1;
- }
- }
- if (cont == -2)
- ncrcontinue(c);
- else if (cont >= 0)
- start(c, cont);
- if (wakeme && dsa){
- if(dsa->p9status == 0xffff)
- dsa->p9status = STATUS_FAIL;
- wakeup(dsa);
- }
- iunlock(c);
- if (DEBUG(1)) {
- IPRINT(PRINTPREFIX "int end 1\n");
- }
- }
- static int
- done(void *arg)
- {
- return ((Dsa *)arg)->p9status != 0xffff;
- }
- static int
- xfunc(Controller *c, enum na_external x, unsigned long *v)
- {
- switch (x) {
- default:
- print("xfunc: can't find external %d\n", x);
- return 0;
- case X_scsi_id_buf:
- *v = offsetof(Dsa, scsi_id_buf[0]);
- break;
- case X_msg_out_buf:
- *v = offsetof(Dsa, msg_out_buf);
- break;
- case X_cmd_buf:
- *v = offsetof(Dsa, cmd_buf);
- break;
- case X_data_buf:
- *v = offsetof(Dsa, data_buf);
- break;
- case X_status_buf:
- *v = offsetof(Dsa, status_buf);
- break;
- case X_dsa_head:
- *v = DMASEG(&c->dsalist.head[0]);
- break;
- case X_ssid_mask:
- *v = SSIDMASK(c);
- break;
- }
- return 1;
- }
- static void
- setmovedata(Movedata *d, ulong pa, ulong bc)
- {
- d->pa[0] = pa;
- d->pa[1] = pa>>8;
- d->pa[2] = pa>>16;
- d->pa[3] = pa>>24;
- d->dbc[0] = bc;
- d->dbc[1] = bc>>8;
- d->dbc[2] = bc>>16;
- d->dbc[3] = bc>>24;
- }
- static void
- advancedata(Movedata *d, long v)
- {
- lesetl(d->pa, legetl(d->pa) + v);
- lesetl(d->dbc, legetl(d->dbc) - v);
- }
- static void
- dumpwritedata(uchar *data, int datalen)
- {
- int i;
- uchar *bp;
- if (!DEBUG(0)){
- USED(data, datalen);
- return;
- }
- if (datalen) {
- KPRINT(PRINTPREFIX "write:");
- for (i = 0, bp = data; i < 50 && i < datalen; i++, bp++)
- KPRINT("%.2ux", *bp);
- if (i < datalen) {
- KPRINT("...");
- }
- KPRINT("\n");
- }
- }
- static void
- dumpreaddata(uchar *data, int datalen)
- {
- int i;
- uchar *bp;
- if (!DEBUG(0)){
- USED(data, datalen);
- return;
- }
- if (datalen) {
- KPRINT(PRINTPREFIX "read:");
- for (i = 0, bp = data; i < 50 && i < datalen; i++, bp++)
- KPRINT("%.2ux", *bp);
- if (i < datalen) {
- KPRINT("...");
- }
- KPRINT("\n");
- }
- }
- static void
- busreset(Controller *c)
- {
- int x, ntarget;
- /* bus reset */
- c->n->scntl1 |= (1 << 3);
- delay(500);
- c->n->scntl1 &= ~(1 << 3);
- if(!(c->v->feature & Wide))
- ntarget = 8;
- else
- ntarget = MAXTARGET;
- for (x = 0; x < ntarget; x++) {
- setwide(0, c, x, 0);
- #ifndef ASYNC_ONLY
- c->s[x] = NeitherDone;
- #endif
- }
- c->capvalid = 0;
- }
- static void
- reset(Controller *c)
- {
- /* should wakeup all pending tasks */
- softreset(c);
- busreset(c);
- }
- static int
- io(Controller *c, uchar target, uchar lun, int rw, uchar *cmd, int cmdlen, uchar *data, int datalen,
- int *transferred)
- {
- uchar *bp;
- int bc;
- Dsa *d;
- Ncr *n = c->n;
- uchar target_expo, my_expo;
- ushort status;
- d = dsaalloc(c, target, lun);
- qlock(&c->q[target]); /* obtain access to target */
- /* load the transfer control stuff */
- d->scsi_id_buf[0] = 0;
- d->scsi_id_buf[1] = c->sxfer[target];
- d->scsi_id_buf[2] = target;
- d->scsi_id_buf[3] = c->scntl3[target];
- synctodsa(d, c);
- bc = 0;
- d->msg_out[bc] = 0x80 | lun;
- #ifndef NO_DISCONNECT
- d->msg_out[bc] |= (1 << 6);
- #endif
- bc++;
- /* work out what to do about negotiation */
- switch (c->s[target]) {
- default:
- KPRINT(PRINTPREFIX "%d: strange nego state %d\n", target, c->s[target]);
- c->s[target] = NeitherDone;
- /* fall through */
- case NeitherDone:
- if ((c->capvalid & (1 << target)) == 0)
- break;
- target_expo = (c->cap[target] >> 5) & 3;
- my_expo = (c->v->feature & Wide) != 0;
- if (target_expo < my_expo)
- my_expo = target_expo;
- #ifdef ALWAYS_DO_WDTR
- bc += buildwdtrmsg(d->msg_out + bc, my_expo);
- KPRINT(PRINTPREFIX "%d: WDTN: initiating expo %d\n", target, my_expo);
- c->s[target] = WideInit;
- break;
- #else
- if (my_expo) {
- bc += buildwdtrmsg(d->msg_out + bc, (c->v->feature & Wide) ? 1 : 0);
- KPRINT(PRINTPREFIX "%d: WDTN: initiating expo %d\n", target, my_expo);
- c->s[target] = WideInit;
- break;
- }
- KPRINT(PRINTPREFIX "%d: WDTN: narrow\n", target);
- /* fall through */
- #endif
- case WideDone:
- if (c->cap[target] & (1 << 4)) {
- KPRINT(PRINTPREFIX "%d: SDTN: initiating %d %d\n", target, c->tpf, c->v->maxsyncoff);
- bc += buildsdtrmsg(d->msg_out + bc, c->tpf, c->v->maxsyncoff);
- c->s[target] = SyncInit;
- break;
- }
- KPRINT(PRINTPREFIX "%d: SDTN: async only\n", target);
- c->s[target] = BothDone;
- break;
- case BothDone:
- break;
- }
- setmovedata(&d->msg_out_buf, DMASEG(d->msg_out), bc);
- setmovedata(&d->cmd_buf, DMASEG(cmd), cmdlen);
- calcblockdma(d, DMASEG(data), datalen);
- if (DEBUG(0)) {
- KPRINT(PRINTPREFIX "%d/%d: exec: ", target, lun);
- for (bp = cmd; bp < &cmd[cmdlen]; bp++)
- KPRINT("%.2ux", *bp);
- KPRINT("\n");
- if (rw)
- KPRINT(PRINTPREFIX "%d/%d: exec: limit=(%d)%ld\n",
- target, lun, d->dmablks, legetl(d->data_buf.dbc));
- else
- dumpwritedata(data, datalen);
- }
- setmovedata(&d->status_buf, DMASEG(&d->status), 1);
- d->p9status = 0xffff;
- d->parityerror = 0;
- d->stateb = A_STATE_ISSUE; /* start operation */
- ilock(c);
- if (c->ssm)
- c->n->dcntl |= 0x10; /* SSI */
- if (c->running) {
- n->istat |= Sigp;
- }
- else {
- start(c, E_issue_check);
- }
- iunlock(c);
- #ifdef CPU
- while(waserror())
- ;
- #ifdef QUICK_TIMEOUT
- tsleep(d, done, d, 30 * 1000);
- #else
- tsleep(d, done, d, 60 * 60 * 1000);
- #endif
- poperror();
- if (!done(d)) {
- KPRINT(PRINTPREFIX "%d/%d: exec: Timed out\n", target, lun);
- dumpncrregs(c, 0);
- dsafree(c, d);
- reset(c);
- qunlock(&c->q[target]);
- error(Eio);
- }
- #endif
- #ifdef FS
- sleep(d, done, d);
- #endif
- if (d->p9status == STATUS_SELECTION_TIMEOUT)
- c->s[target] = NeitherDone;
- if (d->parityerror) {
- d->p9status = STATUS_FAIL;
- }
- /*
- * adjust datalen
- */
- if (d->dmablks > 0)
- datalen -= d->dmablks * A_BSIZE;
- else if (d->flag == 0)
- datalen -= legetl(d->data_buf.dbc);
- if (transferred)
- *transferred = datalen;
- if (rw)
- dumpreaddata(data, datalen);
- if (DEBUG(0))
- KPRINT(PRINTPREFIX "%d/%d: exec: p9status=%d status %d rlen %d\n",
- target, lun, d->p9status, status, datalen);
- /*
- * spot the identify
- */
- if ((c->capvalid & (1 << target)) == 0 &&
- d->p9status == STATUS_COMPLETE && cmd[0] == 0x12 && datalen >= 8) {
- c->capvalid |= 1 << target;
- c->cap[target] = data[7];
- KPRINT(PRINTPREFIX "%d: capabilities %.2x\n", target, data[7]);
- }
- status = d->p9status;
- dsafree(c, d);
- qunlock(&c->q[target]);
- return status;
- }
- #ifdef CPU
- static int
- exec(Scsi *p, int rw)
- {
- int transferred;
- Controller *c = &controller; /* MULTIPLE - map from scsi bus to controller instance */
- p->status = io(c, p->target, p->lun, rw,
- p->cmd.base, p->cmd.lim - p->cmd.base,
- p->data.base, p->data.lim - p->data.base, &transferred);
- p->data.ptr = p->data.base + transferred;
- return p->status;
- }
- #endif
- #ifdef Plan9fs
- static int
- exec(Device d, int rw, uchar *cmd, int clen, void *data, int dlen)
- {
- Controller *c = &controller; /* MULTIPLE - map from scsi bus to controller instance */
- return io(c, d.unit, (cmd[1] >> 5) & 7, rw, cmd, clen, data, dlen, 0);
- }
- #endif /* Plan9fs
- #ifdef FS
- static int
- exec(Target* t, int rw, uchar* cmd, int cbytes, void* data, int* dbytes)
- {
- int n, s;
- Controller *ctlr;
- if((ctlr = ctlrxx[t->ctlrno]) == nil || ctlr->n == nil)
- return STharderr;
- if(t->targetno == 0x07)
- return STownid;
- if(dbytes)
- n = *dbytes;
- else
- n = 0;
- s = io(ctlr, t->targetno, (cmd[1] >> 5) & 7, rw, cmd, cbytes, data, n, dbytes);
- switch(s){
- case STATUS_COMPLETE:
- return STok;
- case STATUS_FAIL:
- return STharderr;
- case STATUS_SELECTION_TIMEOUT:
- return STtimeout;
- case 0x6002:
- return STcheck;
- default:
- print("scsi#%d: exec status 0x%ux\n", ctlr->ctlrno, s);
- return STharderr;
- }
- }
- #endif
- static void
- cribbios(Controller *c)
- {
- c->bios.scntl3 = c->n->scntl3;
- c->bios.stest2 = c->n->stest2;
- KPRINT(PRINTPREFIX "bios scntl3(%.2x) stest2(%.2x)\n", c->bios.scntl3, c->bios.stest2);
- }
- static int
- bios_set_differential(Controller *c)
- {
- /* Concept lifted from FreeBSD - thanks Gerard */
- /* basically, if clock conversion factors are set, then there is
- * evidence the bios had a go at the chip, and if so, it would
- * have set the differential enable bit in stest2
- */
- return (c->bios.scntl3 & 7) != 0 && (c->bios.stest2 & 0x20) != 0;
- }
- #define NCR_VID 0x1000
- #define NCR_810_DID 0x0001
- #define NCR_820_DID 0x0002 /* don't know enough about this one to support it */
- #define NCR_825_DID 0x0003
- #define NCR_815_DID 0x0004
- #define SYM_810AP_DID 0x0005
- #define SYM_860_DID 0x0006
- #define SYM_896_DID 0x000b
- #define SYM_895_DID 0x000c
- #define SYM_885_DID 0x000d /* ditto */
- #define SYM_875_DID 0x000f /* ditto */
- #define SYM_1010_DID 0x0020
- #define SYM_875J_DID 0x008f
- static Variant variant[] = {
- { NCR_810_DID, 0x0f, "NCR53C810", Burst16, 8, 24, 0 },
- { NCR_810_DID, 0x1f, "SYM53C810ALV", Burst16, 8, 24, Prefetch },
- { NCR_810_DID, 0xff, "SYM53C810A", Burst16, 8, 24, Prefetch },
- { SYM_810AP_DID, 0xff, "SYM53C810AP", Burst16, 8, 24, Prefetch },
- { NCR_815_DID, 0xff, "NCR53C815", Burst16, 8, 24, BurstOpCodeFetch },
- { NCR_825_DID, 0x0f, "NCR53C825", Burst16, 8, 24, Wide|BurstOpCodeFetch|Differential },
- { NCR_825_DID, 0xff, "SYM53C825A", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide },
- { SYM_860_DID, 0x0f, "SYM53C860", Burst16, 8, 24, Prefetch|Ultra },
- { SYM_860_DID, 0xff, "SYM53C860LV", Burst16, 8, 24, Prefetch|Ultra },
- { SYM_875_DID, 0x01, "SYM53C875r1", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide|Ultra },
- { SYM_875_DID, 0xff, "SYM53C875", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide|Ultra|ClockDouble },
- { SYM_875J_DID, 0xff, "SYM53C875j", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Differential|Wide|Ultra|ClockDouble },
- { SYM_885_DID, 0xff, "SYM53C885", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Wide|Ultra|ClockDouble },
- { SYM_895_DID, 0xff, "SYM53C895", Burst128, 16, 24, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 },
- { SYM_896_DID, 0xff, "SYM53C896", Burst128, 16, 64, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 },
- { SYM_1010_DID, 0xff, "SYM53C1010", Burst128, 16, 64, Prefetch|LocalRAM|BigFifo|Wide|Ultra|Ultra2 },
- };
- #define MAXVAR (sizeof(variant)/sizeof(variant[0]))
- #ifndef NAINCLUDE
- static int
- na_fixup(Controller *c, ulong pa_reg,
- struct na_patch *patch, int patches,
- int (*externval)(Controller*, int, ulong*))
- {
- int p;
- int v;
- ulong *script, pa_script;
- unsigned long lw, lv;
- script = c->script;
- pa_script = c->scriptpa;
- for (p = 0; p < patches; p++) {
- switch (patch[p].type) {
- case 1:
- /* script relative */
- script[patch[p].lwoff] += pa_script;
- break;
- case 2:
- /* register i/o relative */
- script[patch[p].lwoff] += pa_reg;
- break;
- case 3:
- /* data external */
- lw = script[patch[p].lwoff];
- v = (lw >> 8) & 0xff;
- if (!(*externval)(c, v, &lv))
- return 0;
- v = lv & 0xff;
- script[patch[p].lwoff] = (lw & 0xffff00ffL) | (v << 8);
- break;
- case 4:
- /* 32 bit external */
- lw = script[patch[p].lwoff];
- if (!(*externval)(c, lw, &lv))
- return 0;
- script[patch[p].lwoff] = lv;
- break;
- case 5:
- /* 24 bit external */
- lw = script[patch[p].lwoff];
- if (!(*externval)(c, lw & 0xffffff, &lv))
- return 0;
- script[patch[p].lwoff] = (lw & 0xff000000L) | (lv & 0xffffffL);
- break;
- }
- }
- return 1;
- }
- #endif /* NAINCLUDE */
- typedef struct Adapter {
- Pcidev* pcidev;
- int port;
- int irq;
- int rid;
- } Adapter;
- static Msgbuf* adapter;
- static void
- scanpci(void)
- {
- Pcidev *p;
- Msgbuf *mb, *last;
- Adapter *ap;
- p = nil;
- last = nil;
- while(p = pcimatch(p, NCR_VID, 0)){
- mb = mballoc(sizeof(Adapter), 0, Mxxx);
- ap = (Adapter*)mb->data;
- ap->pcidev = p;
- ap->port = p->mem[0].bar & ~0x01;
- if(adapter == nil)
- adapter = mb;
- else
- last->next = mb;
- last = mb;
- }
- }
- static int
- init(Controller* ctlr, ISAConf* isa, int differential)
- {
- int is64, var, rid;
- ulong regpa, scriptpa;
- Pcidev *pcidev;
- Msgbuf *mb, **mbb;
- Adapter *ap;
- extern ulong upamalloc(ulong, int, int);
- /*
- * Any adapter matches if no isa->port is supplied,
- * otherwise the ports must match.
- */
- pcidev = nil;
- mbb = &adapter;
- for(mb = *mbb; mb; mb = mb->next){
- ap = (Adapter*)mb->data;
- if(isa->port == 0 || isa->port == ap->port){
- pcidev = ap->pcidev;
- *mbb = mb->next;
- mbfree(mb);
- break;
- }
- mbb = &mb->next;
- }
- if(pcidev == nil)
- return 0;
- rid = pcicfgr8(pcidev, PciRID);
- for (var = 0; var < MAXVAR; var++) {
- if (pcidev->did == variant[var].did && rid <= variant[var].maxrid)
- break;
- }
- if (var >= MAXVAR)
- return 0;
- print("scsi#%d: %s rev. 0x%.2x intr=%d command=%.4x\n",
- ctlr->ctlrno, variant[var].name, rid,
- pcidev->intl, pcicfgr16(pcidev, PciPCR));
- is64 = pcidev->mem[1].bar & 0x04;
- if(is64 && pcidev->mem[2].bar){
- print("scsi#%d: registers in 64-bit space\n",
- ctlr->ctlrno);
- return 0;
- }
- regpa = upamalloc(pcidev->mem[1].bar & ~0x0F, pcidev->mem[1].size, 0);
- if (regpa == 0) {
- print("scsi#%d: failed to map registers\n", ctlr->ctlrno);
- return 0;
- }
- ctlr->n = KADDR(regpa);
- ctlr->v = &variant[var];
- scriptpa = 0;
- if ((ctlr->v->feature & LocalRAM) && sizeof(na_script) <= 4096) {
- if(is64){
- if((pcidev->mem[3].bar & 0x04) && pcidev->mem[4].bar){
- print("scsi#%d: RAM in 64-bit space\n",
- ctlr->ctlrno);
- scriptpa = 0;
- }
- else
- scriptpa = upamalloc(pcidev->mem[3].bar & ~0x0F,
- pcidev->mem[3].size, 0);
- }
- else
- scriptpa = upamalloc(pcidev->mem[2].bar & ~0x0F,
- pcidev->mem[2].size, 0);
- if (scriptpa == 0)
- print("scsi#%d: failed to map onboard RAM\n", ctlr->ctlrno);
- else {
- ctlr->script = KADDR(scriptpa);
- ctlr->scriptpa = scriptpa;
- memmove(ctlr->script, na_script, sizeof(na_script));
- print("scsi#%d: local SCRIPT ram enabled\n", ctlr->ctlrno);
- }
- }
- if (scriptpa == 0) {
- /* either the map failed, or this chip does not have local RAM
- * it will need a copy of the microcode
- */
- /*
- * should allocate memory and copy na_script into it for
- * multiple controllers here
- * single controller version uses the microcode in place
- */
- ctlr->script = na_script;
- ctlr->scriptpa = DMASEG(na_script);
- }
- /* fixup script */
- if (!na_fixup(ctlr, regpa, na_patches, NA_PATCHES, xfunc)) {
- print("script fixup failed\n");
- return 0;
- }
- if (differential)
- ctlr->feature |= Differential;
- swabl(ctlr->script, ctlr->script, sizeof(na_script));
- ctlr->dsalist.freechain = 0;
- lesetl(ctlr->dsalist.head, 0);
- isa->port = (ulong)KADDR(regpa);
- isa->irq = pcidev->intl;
- synctabinit(ctlr);
- cribbios(ctlr);
- /*
- intrenable(isa->irq, interrupt, ctlr, pcidev->tbdf);
- */
- setvec(IRQBASE + isa->irq, interrupt, ctlr);
- reset(ctlr);
- return 1;
- }
- #ifdef CPU
- int (*
- ncr53c8xxreset(void))(Scsi*, int)
- {
- ISAConf isaconf;
- int ic;
- int differential = 0;
- int o;
- Controller *c;
- memset(&isaconf, 0, sizeof(isaconf));
- strcpy(isaconf.type, DEVICENAME);
- ic = isaconfig("scsi", 0, &isaconf);
- /* search any ISA opts */
- if (ic) {
- for (o = 0; o < isaconf.nopt; o++) {
- if (strcmp(isaconf.opt[o], "diff") == 0)
- differential = 1;
- }
- }
- c = &controller; /* MULTIPLE - map from scsi bus to controller instance */
- if (init(c, differential))
- return exec;
- return 0;
- }
- #endif
- #ifdef Plan9fs
- int (*
- ncr53c8xxreset(int /*ctlrno*/, ISAConf */*isa*/))(Device, int, uchar*, int, void*, int)
- {
- Controller *c = &controller; /* MULTIPLE - map from scsi bus to controller instance */
- if (init(c, 0))
- return exec;
- return 0;
- }
- #endif /* Plan9fs */
- #ifdef FS
- Scsiio
- ncr53c8xxreset(int ctlrno, ISAConf* isa)
- {
- int differential, o;
- Controller *ctlr;
- static int scandone;
- if(scandone == 0){
- scanpci();
- scandone = 1;
- }
- differential = 0;
- for (o = 0; o < isa->nopt; o++) {
- if (strcmp(isa->opt[o], "diff") == 0)
- differential = 1;
- }
- if((ctlr = xalloc(sizeof(Controller))) == 0){
- print("scsi#%d: %s: controller allocation failed\n",
- ctlrno, isa->type);
- return 0;
- }
- ctlrxx[ctlrno] = ctlr;
- ctlr->ctlrno = ctlrno;
- if (init(ctlr, isa, differential))
- return exec;
- return 0;
- }
- #endif /* FS */
|