![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to init.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / oworm / scsi|
Return to init.c CVS log | Up to [Research Unix] / researchv10dc / cmd / oworm / scsi |
1.1 root 1: #include "scsi.h"
2:
3: #define DEV "/dev/scsi"
4:
5: static char *regname[][2] =
6: {
7: "??", "",
8: "sa", "mscp",
9: "csr", "per"
10: };
11:
12: int scsi_fd;
13: int scsi_id;
14: int scsi_verbose;
15: int scsi_shush;
16:
17: scsiinit(complain)
18: {
19: scsi_shush = 0;
20: if((scsi_fd = open(DEV, 2)) < 0){
21: if(complain)
22: perror(DEV);
23: return(1);
24: }
25: return(0);
26: }
27:
28: scsiid(id)
29: {
30: scsi_id = id;
31: }
32:
33: scsiclro(o)
34: register struct scsi_o *o;
35: {
36: extern char *memset();
37: memset((char *)o, 0xDD, sizeof(*o));
38: }
39:
40: tdreg(fd, sa, mscp)
41: {
42: char buf[256];
43: extern char *strcat();
44:
45: #define add(x) strcat(buf, x)
46:
47: buf[0] = 0;
48: if(mscp&0x8000) add(", host buffer access");
49: if(mscp&0x2000) add(", SCSI bus hung");
50: if(mscp&0x1000) add(", resettable bad bus phase");
51: if(mscp&0x0800) add(", select timeout");
52: if(mscp&0x0200) add(", parity error");
53: switch(mscp&0x3F)
54: {
55: case 011: add(", dma error"); break;
56: case 012: add(", controller error"); break;
57: default: add(", bad mscp error code!!"); break;
58: }
59: if(buf[0] == 0)
60: fprint(fd, "mscp: zero");
61: else {
62: fprint(fd, "mscp:%s", &buf[1]);
63: }
64: fprint(fd, "; ");
65: fprint(fd, "sa: %hux\n", sa);
66: }
67:
68: #define CSR_DONE 0x8000
69: #define CSR_ERROR 0x1000
70: #define CSR_R 0x0020
71: #define CSR_M 0x0010
72: #define CSR_I 0x0008
73: #define CSR_C 0x0004
74: #define CSR_S 0x0002
75: #define CSR_B 0x0001
76: #define CSR_BITS (CSR_DONE|CSR_ERROR|CSR_R|CSR_M|CSR_I|CSR_C|CSR_S|CSR_B)
77:
78: #define PER_CHECK 0x2000
79: #define PER_DRBUSY 0x1000
80: #define PER_SBUSY 0x0040
81: #define PER_SELECT 0x0010
82:
83: usreg(fd, csr, per)
84: {
85: char buf[256];
86: extern char *strcat();
87:
88: buf[0] = 0;
89: if(csr&CSR_DONE) add(", i/o done");
90: if(csr&CSR_ERROR) add(", error");
91: if(csr&CSR_R) add(", request active");
92: if(csr&CSR_M) add(", message active");
93: if(csr&CSR_I) add(", i/o active");
94: if(csr&CSR_C) add(", c/d active");
95: if(csr&CSR_S) add(", select active");
96: if(csr&CSR_B) add(", busy active");
97: if(buf[0] == 0)
98: fprint(fd, "CSR: zero");
99: else {
100: fprint(fd, "CSR:%s", &buf[1]);
101: if(csr&!CSR_BITS)
102: fprint(fd, " BAD BITS SET 0x%ux", csr&!CSR_BITS);
103: }
104: fprint(fd, "; ");
105: buf[0] = 0;
106: if(per&PER_CHECK) add(", check status");
107: if(per&PER_DRBUSY) add(", drive busy");
108: if(per&PER_SBUSY) add(", busy timeout");
109: if(per&PER_SELECT) add(", select timeout");
110: if(buf[0] == 0)
111: fprint(fd, "PER: zero\n");
112: else
113: fprint(fd, "PER:%s\n", &buf[1]);
114: }
115:
116: scsidump(o)
117: register struct scsi_o *o;
118: {
119: extern char *exstab[], *smsg[];
120:
121: Fprint(1, "%s=0x%uhx %s=0x%uhx status=0x%uhx(%s) message=0x%uhx\n",
122: regname[o->type][0], o->reg1, regname[o->type][1], o->reg2,
123: o->scsistatus, smsg[(o->scsistatus>>1)&0xF], o->scsimesg);
124: Fprint(1, "data=0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x", o->data[0],
125: o->data[1], o->data[2], o->data[3], o->data[4], o->data[5],
126: o->data[6], o->data[7], o->data[8], o->data[9], o->data[10],
127: o->data[11]);
128: if(o->data[0] == 0x70)
129: Fprint(1, " (extended sense: %s)", exstab[o->data[2]&0xF]);
130: Fprint(1, "\n");
131: }
132:
133: prcheck(fd, o)
134: register struct scsi_o *o;
135: {
136: int ot;
137: extern char *exstab[], *smsg[];
138:
139: ot = o->type;
140: if((ot < 0) || (ot > 2)) ot = 0;
141: Fprint(fd, "%s=0x%uhx %s=0x%uhx status=0x%uhx(%s)",
142: regname[ot][0], o->reg1, regname[ot][1], o->reg2,
143: o->scsistatus, smsg[(o->scsistatus>>1)&0xF]);
144: if(o->data[0] == 0x70)
145: Fprint(fd, " (ext: %s)", exstab[o->data[2]&0xF]);
146: Fputc(fd, '\n');
147: }
148:
149: scsiio(i, icnt, o, ocnt, str)
150: struct scsi_i *i;
151: struct scsi_o *o;
152: char *str;
153: {
154: int n, loop;
155:
156: for(loop = 0; loop < 20; loop++){
157: if((n = write(scsi_fd, (char *)i, INN(icnt))) != INN(icnt)){
158: perror("write");
159: fprint(2, "%s: wrote %d, really wrote %d\n", str, INN(icnt), n);
160: return(-1);
161: }
162: scsiclro(o);
163: if((n = read(scsi_fd, (char *)o, OUTN(ocnt))) != OUTN(ocnt)){
164: if((n == 8) && (o->scsistatus == 8))
165: continue;
166: if(!scsi_shush){
167: if(n < 0)
168: perror("read");
169: fprint(2, "%s: wanted %d, got %d\n", str, OUTN(ocnt), n);
170: prcheck(2, o);
171: Fflush(2);
172: }
173: if(n < 0)
174: switch(o->type)
175: {
176: case TD_VIKING: tdreg(2, o->reg1, o->reg2); break;
177: case USD_1158: usreg(2, o->reg1, o->reg2); break;
178: default: fprint(2, "BAD board type %d\n", o->type); break;
179: }
180: return(-1);
181: }
182: if(o->scsistatus == 0)
183: break;
184: }
185: return(0);
186: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.