xref: /openbmc/qemu/pc-bios/s390-ccw/cio.c (revision aecdfcc3)
1 /*
2  * S390 Channel I/O
3  *
4  * Copyright (c) 2013 Alexander Graf <agraf@suse.de>
5  * Copyright (c) 2019 IBM Corp.
6  *
7  * Author(s): Jason J. Herne <jjherne@us.ibm.com>
8  *
9  * This work is licensed under the terms of the GNU GPL, version 2 or (at
10  * your option) any later version. See the COPYING file in the top-level
11  * directory.
12  */
13 
14 #include "libc.h"
15 #include "s390-ccw.h"
16 #include "s390-arch.h"
17 #include "helper.h"
18 #include "cio.h"
19 
20 static char chsc_page[PAGE_SIZE] __attribute__((__aligned__(PAGE_SIZE)));
21 
22 static int __do_cio(SubChannelId schid, uint32_t ccw_addr, int fmt, Irb *irb);
23 
enable_mss_facility(void)24 int enable_mss_facility(void)
25 {
26     int ret;
27     ChscAreaSda *sda_area = (ChscAreaSda *) chsc_page;
28 
29     memset(sda_area, 0, PAGE_SIZE);
30     sda_area->request.length = 0x0400;
31     sda_area->request.code = 0x0031;
32     sda_area->operation_code = 0x2;
33 
34     ret = chsc(sda_area);
35     if ((ret == 0) && (sda_area->response.code == 0x0001)) {
36         return 0;
37     }
38     return -EIO;
39 }
40 
enable_subchannel(SubChannelId schid)41 void enable_subchannel(SubChannelId schid)
42 {
43     Schib schib;
44 
45     stsch_err(schid, &schib);
46     schib.pmcw.ena = 1;
47     msch(schid, &schib);
48 }
49 
cu_type(SubChannelId schid)50 uint16_t cu_type(SubChannelId schid)
51 {
52     SenseId sense_data;
53     Ccw1 sense_id_ccw = {
54         .cmd_code = CCW_CMD_SENSE_ID,
55         .flags = CCW_FLAG_SLI,
56         .count = sizeof(sense_data),
57         .cda = ptr2u32(&sense_data),
58     };
59 
60     if (do_cio(schid, CU_TYPE_UNKNOWN, ptr2u32(&sense_id_ccw), CCW_FMT1)) {
61         panic("Failed to run SenseID CCw\n");
62     }
63 
64     return sense_data.cu_type;
65 }
66 
basic_sense(SubChannelId schid,uint16_t cutype,void * sense_data,uint16_t data_size)67 int basic_sense(SubChannelId schid, uint16_t cutype, void *sense_data,
68                  uint16_t data_size)
69 {
70     Ccw1 senseCcw = {
71         .cmd_code = CCW_CMD_BASIC_SENSE,
72         .count = data_size,
73         .cda = ptr2u32(sense_data),
74     };
75     Irb irb;
76 
77     return __do_cio(schid, ptr2u32(&senseCcw), CCW_FMT1, &irb);
78 }
79 
irb_error(Irb * irb)80 static bool irb_error(Irb *irb)
81 {
82     if (irb->scsw.cstat) {
83         return true;
84     }
85     return irb->scsw.dstat != (SCSW_DSTAT_DEVEND | SCSW_DSTAT_CHEND);
86 }
87 
print_eckd_dasd_sense_data(SenseDataEckdDasd * sd)88 static void print_eckd_dasd_sense_data(SenseDataEckdDasd *sd)
89 {
90     char msgline[512];
91 
92     if (sd->config_info & 0x8000) {
93         sclp_print("Eckd Dasd Sense Data (fmt 24-bytes):\n");
94     } else {
95         sclp_print("Eckd Dasd Sense Data (fmt 32-bytes):\n");
96     }
97 
98     strcat(msgline, "    Sense Condition Flags :");
99     if (sd->common_status & SNS_STAT0_CMD_REJECT) {
100         strcat(msgline, " [Cmd-Reject]");
101     }
102     if (sd->common_status & SNS_STAT0_INTERVENTION_REQ) {
103         strcat(msgline, " [Intervention-Required]");
104     }
105     if (sd->common_status & SNS_STAT0_BUS_OUT_CHECK) {
106         strcat(msgline, " [Bus-Out-Parity-Check]");
107     }
108     if (sd->common_status & SNS_STAT0_EQUIPMENT_CHECK) {
109         strcat(msgline, " [Equipment-Check]");
110     }
111     if (sd->common_status & SNS_STAT0_DATA_CHECK) {
112         strcat(msgline, " [Data-Check]");
113     }
114     if (sd->common_status & SNS_STAT0_OVERRUN) {
115         strcat(msgline, " [Overrun]");
116     }
117     if (sd->common_status & SNS_STAT0_INCOMPL_DOMAIN) {
118         strcat(msgline, " [Incomplete-Domain]");
119     }
120 
121     if (sd->status[0] & SNS_STAT1_PERM_ERR) {
122         strcat(msgline, " [Permanent-Error]");
123     }
124     if (sd->status[0] & SNS_STAT1_INV_TRACK_FORMAT) {
125         strcat(msgline, " [Invalid-Track-Fmt]");
126     }
127     if (sd->status[0] & SNS_STAT1_EOC) {
128         strcat(msgline, " [End-of-Cyl]");
129     }
130     if (sd->status[0] & SNS_STAT1_MESSAGE_TO_OPER) {
131         strcat(msgline, " [Operator-Msg]");
132     }
133     if (sd->status[0] & SNS_STAT1_NO_REC_FOUND) {
134         strcat(msgline, " [No-Record-Found]");
135     }
136     if (sd->status[0] & SNS_STAT1_FILE_PROTECTED) {
137         strcat(msgline, " [File-Protected]");
138     }
139     if (sd->status[0] & SNS_STAT1_WRITE_INHIBITED) {
140         strcat(msgline, " [Write-Inhibited]");
141     }
142     if (sd->status[0] & SNS_STAT1_IMPRECISE_END) {
143         strcat(msgline, " [Imprecise-Ending]");
144     }
145 
146     if (sd->status[1] & SNS_STAT2_REQ_INH_WRITE) {
147         strcat(msgline, " [Req-Inhibit-Write]");
148     }
149     if (sd->status[1] & SNS_STAT2_CORRECTABLE) {
150         strcat(msgline, " [Correctable-Data-Check]");
151     }
152     if (sd->status[1] & SNS_STAT2_FIRST_LOG_ERR) {
153         strcat(msgline, " [First-Error-Log]");
154     }
155     if (sd->status[1] & SNS_STAT2_ENV_DATA_PRESENT) {
156         strcat(msgline, " [Env-Data-Present]");
157     }
158     if (sd->status[1] & SNS_STAT2_IMPRECISE_END) {
159         strcat(msgline, " [Imprecise-End]");
160     }
161     strcat(msgline, "\n");
162     sclp_print(msgline);
163 
164     print_int("    Residual Count     =", sd->res_count);
165     print_int("    Phys Drive ID      =", sd->phys_drive_id);
166     print_int("    low cyl address    =", sd->low_cyl_addr);
167     print_int("    head addr & hi cyl =", sd->head_high_cyl_addr);
168     print_int("    format/message     =", sd->fmt_msg);
169     print_int("    fmt-dependent[0-7] =", sd->fmt_dependent_info[0]);
170     print_int("    fmt-dependent[8-15]=", sd->fmt_dependent_info[1]);
171     print_int("    prog action code   =", sd->program_action_code);
172     print_int("    Configuration info =", sd->config_info);
173     print_int("    mcode / hi-cyl     =", sd->mcode_hicyl);
174     print_int("    cyl & head addr [0]=", sd->cyl_head_addr[0]);
175     print_int("    cyl & head addr [1]=", sd->cyl_head_addr[1]);
176     print_int("    cyl & head addr [2]=", sd->cyl_head_addr[2]);
177 }
178 
print_irb_err(Irb * irb)179 static void print_irb_err(Irb *irb)
180 {
181     uint64_t this_ccw = *(uint64_t *)u32toptr(irb->scsw.cpa);
182     uint64_t prev_ccw = *(uint64_t *)u32toptr(irb->scsw.cpa - 8);
183     char msgline[256];
184 
185     sclp_print("Interrupt Response Block Data:\n");
186 
187     strcat(msgline, "    Function Ctrl :");
188     if (irb->scsw.ctrl & SCSW_FCTL_START_FUNC) {
189         strcat(msgline, " [Start]");
190     }
191     if (irb->scsw.ctrl & SCSW_FCTL_HALT_FUNC) {
192         strcat(msgline, " [Halt]");
193     }
194     if (irb->scsw.ctrl & SCSW_FCTL_CLEAR_FUNC) {
195         strcat(msgline, " [Clear]");
196     }
197     strcat(msgline, "\n");
198     sclp_print(msgline);
199 
200     msgline[0] = '\0';
201     strcat(msgline, "    Activity Ctrl :");
202     if (irb->scsw.ctrl & SCSW_ACTL_RESUME_PEND) {
203         strcat(msgline, " [Resume-Pending]");
204     }
205     if (irb->scsw.ctrl & SCSW_ACTL_START_PEND) {
206         strcat(msgline, " [Start-Pending]");
207     }
208     if (irb->scsw.ctrl & SCSW_ACTL_HALT_PEND) {
209         strcat(msgline, " [Halt-Pending]");
210     }
211     if (irb->scsw.ctrl & SCSW_ACTL_CLEAR_PEND) {
212         strcat(msgline, " [Clear-Pending]");
213     }
214     if (irb->scsw.ctrl & SCSW_ACTL_CH_ACTIVE) {
215         strcat(msgline, " [Channel-Active]");
216     }
217     if (irb->scsw.ctrl & SCSW_ACTL_DEV_ACTIVE) {
218         strcat(msgline, " [Device-Active]");
219     }
220     if (irb->scsw.ctrl & SCSW_ACTL_SUSPENDED) {
221         strcat(msgline, " [Suspended]");
222     }
223     strcat(msgline, "\n");
224     sclp_print(msgline);
225 
226     msgline[0] = '\0';
227     strcat(msgline, "    Status Ctrl :");
228     if (irb->scsw.ctrl & SCSW_SCTL_ALERT) {
229         strcat(msgline, " [Alert]");
230     }
231     if (irb->scsw.ctrl & SCSW_SCTL_INTERMED) {
232         strcat(msgline, " [Intermediate]");
233     }
234     if (irb->scsw.ctrl & SCSW_SCTL_PRIMARY) {
235         strcat(msgline, " [Primary]");
236     }
237     if (irb->scsw.ctrl & SCSW_SCTL_SECONDARY) {
238         strcat(msgline, " [Secondary]");
239     }
240     if (irb->scsw.ctrl & SCSW_SCTL_STATUS_PEND) {
241         strcat(msgline, " [Status-Pending]");
242     }
243 
244     strcat(msgline, "\n");
245     sclp_print(msgline);
246 
247     msgline[0] = '\0';
248     strcat(msgline, "    Device Status :");
249     if (irb->scsw.dstat & SCSW_DSTAT_ATTN) {
250         strcat(msgline, " [Attention]");
251     }
252     if (irb->scsw.dstat & SCSW_DSTAT_STATMOD) {
253         strcat(msgline, " [Status-Modifier]");
254     }
255     if (irb->scsw.dstat & SCSW_DSTAT_CUEND) {
256         strcat(msgline, " [Ctrl-Unit-End]");
257     }
258     if (irb->scsw.dstat & SCSW_DSTAT_BUSY) {
259         strcat(msgline, " [Busy]");
260     }
261     if (irb->scsw.dstat & SCSW_DSTAT_CHEND) {
262         strcat(msgline, " [Channel-End]");
263     }
264     if (irb->scsw.dstat & SCSW_DSTAT_DEVEND) {
265         strcat(msgline, " [Device-End]");
266     }
267     if (irb->scsw.dstat & SCSW_DSTAT_UCHK) {
268         strcat(msgline, " [Unit-Check]");
269     }
270     if (irb->scsw.dstat & SCSW_DSTAT_UEXCP) {
271         strcat(msgline, " [Unit-Exception]");
272     }
273     strcat(msgline, "\n");
274     sclp_print(msgline);
275 
276     msgline[0] = '\0';
277     strcat(msgline, "    Channel Status :");
278     if (irb->scsw.cstat & SCSW_CSTAT_PCINT) {
279         strcat(msgline, " [Program-Ctrl-Interruption]");
280     }
281     if (irb->scsw.cstat & SCSW_CSTAT_BADLEN) {
282         strcat(msgline, " [Incorrect-Length]");
283     }
284     if (irb->scsw.cstat & SCSW_CSTAT_PROGCHK) {
285         strcat(msgline, " [Program-Check]");
286     }
287     if (irb->scsw.cstat & SCSW_CSTAT_PROTCHK) {
288         strcat(msgline, " [Protection-Check]");
289     }
290     if (irb->scsw.cstat & SCSW_CSTAT_CHDCHK) {
291         strcat(msgline, " [Channel-Data-Check]");
292     }
293     if (irb->scsw.cstat & SCSW_CSTAT_CHCCHK) {
294         strcat(msgline, " [Channel-Ctrl-Check]");
295     }
296     if (irb->scsw.cstat & SCSW_CSTAT_ICCHK) {
297         strcat(msgline, " [Interface-Ctrl-Check]");
298     }
299     if (irb->scsw.cstat & SCSW_CSTAT_CHAINCHK) {
300         strcat(msgline, " [Chaining-Check]");
301     }
302     strcat(msgline, "\n");
303     sclp_print(msgline);
304 
305     print_int("    cpa=", irb->scsw.cpa);
306     print_int("    prev_ccw=", prev_ccw);
307     print_int("    this_ccw=", this_ccw);
308 }
309 
310 /*
311  * Handles executing ssch, tsch and returns the irb obtained from tsch.
312  * Returns 0 on success, -1 if unexpected status pending and we need to retry,
313  * otherwise returns condition code from ssch/tsch for error cases.
314  */
__do_cio(SubChannelId schid,uint32_t ccw_addr,int fmt,Irb * irb)315 static int __do_cio(SubChannelId schid, uint32_t ccw_addr, int fmt, Irb *irb)
316 {
317     /*
318      * QEMU's CIO implementation requires prefetch and 64-bit idaws. We
319      * allow all paths.
320      */
321     CmdOrb orb = {
322         .fmt = fmt,
323         .pfch = 1,
324         .c64 = 1,
325         .lpm = 0xFF,
326         .cpa = ccw_addr,
327     };
328     int rc;
329 
330     IPL_assert(fmt == 0 || fmt == 1, "Invalid ccw format");
331 
332     /* ccw_addr must be <= 24 bits and point to at least one whole ccw. */
333     if (fmt == 0) {
334         IPL_assert(ccw_addr <= 0xFFFFFF - 8, "Invalid ccw address");
335     }
336 
337     rc = ssch(schid, &orb);
338     if (rc == 1 || rc == 2) {
339         /* Subchannel status pending or busy. Eat status and ask for retry. */
340         tsch(schid, irb);
341         return -1;
342     }
343     if (rc) {
344         print_int("ssch failed with cc=", rc);
345         return rc;
346     }
347 
348     consume_io_int();
349 
350     /* collect status */
351     rc = tsch(schid, irb);
352     if (rc) {
353         print_int("tsch failed with cc=", rc);
354     }
355 
356     return rc;
357 }
358 
359 /*
360  * Executes a channel program at a given subchannel. The request to run the
361  * channel program is sent to the subchannel, we then wait for the interrupt
362  * signaling completion of the I/O operation(s) performed by the channel
363  * program. Lastly we verify that the i/o operation completed without error and
364  * that the interrupt we received was for the subchannel used to run the
365  * channel program.
366  *
367  * Note: This function assumes it is running in an environment where no other
368  * cpus are generating or receiving I/O interrupts. So either run it in a
369  * single-cpu environment or make sure all other cpus are not doing I/O and
370  * have I/O interrupts masked off. We also assume that only one device is
371  * active (generating i/o interrupts).
372  *
373  * Returns non-zero on error.
374  */
do_cio(SubChannelId schid,uint16_t cutype,uint32_t ccw_addr,int fmt)375 int do_cio(SubChannelId schid, uint16_t cutype, uint32_t ccw_addr, int fmt)
376 {
377     Irb irb = {};
378     SenseDataEckdDasd sd;
379     int rc, retries = 0;
380 
381     while (true) {
382         rc = __do_cio(schid, ccw_addr, fmt, &irb);
383 
384         if (rc == -1) {
385             retries++;
386             continue;
387         }
388         if (rc) {
389             /* ssch/tsch error. Message already reported by __do_cio */
390             break;
391         }
392 
393         if (!irb_error(&irb)) {
394             break;
395         }
396 
397         /*
398          * Unexpected unit check, or interface-control-check. Use sense to
399          * clear (unit check only) then retry.
400          */
401         if ((unit_check(&irb) || iface_ctrl_check(&irb)) && retries <= 2) {
402             if (unit_check(&irb)) {
403                 basic_sense(schid, cutype, &sd, sizeof(sd));
404             }
405             retries++;
406             continue;
407         }
408 
409         sclp_print("cio device error\n");
410         print_int("  ssid  ", schid.ssid);
411         print_int("  cssid ", schid.cssid);
412         print_int("  sch_no", schid.sch_no);
413         print_int("  ctrl-unit type", cutype);
414         sclp_print("\n");
415         print_irb_err(&irb);
416         if (cutype == CU_TYPE_DASD_3990 || cutype == CU_TYPE_DASD_2107 ||
417             cutype == CU_TYPE_UNKNOWN) {
418             if (!basic_sense(schid, cutype, &sd, sizeof(sd))) {
419                 print_eckd_dasd_sense_data(&sd);
420             }
421         }
422         rc = -1;
423         break;
424     }
425 
426     return rc;
427 }
428