13e4415a7SThomas Huth /*
23e4415a7SThomas Huth * S390 virtio-ccw network boot loading program
33e4415a7SThomas Huth *
43e4415a7SThomas Huth * Copyright 2017 Thomas Huth, Red Hat Inc.
53e4415a7SThomas Huth *
63e4415a7SThomas Huth * Based on the S390 virtio-ccw loading program (main.c)
73e4415a7SThomas Huth * Copyright (c) 2013 Alexander Graf <agraf@suse.de>
83e4415a7SThomas Huth *
929d12216SThomas Huth * And based on the network loading code from SLOF (netload.c)
1029d12216SThomas Huth * Copyright (c) 2004, 2008 IBM Corporation
1129d12216SThomas Huth *
123e4415a7SThomas Huth * This code is free software; you can redistribute it and/or modify it
133e4415a7SThomas Huth * under the terms of the GNU General Public License as published by the
143e4415a7SThomas Huth * Free Software Foundation; either version 2 of the License, or (at your
153e4415a7SThomas Huth * option) any later version.
163e4415a7SThomas Huth */
173e4415a7SThomas Huth
183e4415a7SThomas Huth #include <stdint.h>
193e4415a7SThomas Huth #include <stdbool.h>
203e4415a7SThomas Huth #include <stdio.h>
213e4415a7SThomas Huth #include <stdlib.h>
223e4415a7SThomas Huth #include <string.h>
233e4415a7SThomas Huth #include <unistd.h>
2429d12216SThomas Huth
2529d12216SThomas Huth #include <tftp.h>
2629d12216SThomas Huth #include <ethernet.h>
2729d12216SThomas Huth #include <dhcp.h>
2829d12216SThomas Huth #include <dhcpv6.h>
2929d12216SThomas Huth #include <ipv4.h>
3029d12216SThomas Huth #include <ipv6.h>
3129d12216SThomas Huth #include <dns.h>
323e4415a7SThomas Huth #include <time.h>
33ec623990SThomas Huth #include <pxelinux.h>
343e4415a7SThomas Huth
353e4415a7SThomas Huth #include "s390-ccw.h"
36120d0410SJason J. Herne #include "cio.h"
373e4415a7SThomas Huth #include "virtio.h"
38*e70bc57bSJanosch Frank #include "s390-time.h"
393e4415a7SThomas Huth
4029d12216SThomas Huth #define DEFAULT_BOOT_RETRIES 10
4129d12216SThomas Huth #define DEFAULT_TFTP_RETRIES 20
4229d12216SThomas Huth
433e4415a7SThomas Huth extern char _start[];
write_iplb_location(void)449bfc04f9SJanosch Frank void write_iplb_location(void) {}
453e4415a7SThomas Huth
46c4942ee9SThomas Huth #define KERNEL_ADDR ((void *)0L)
47c4942ee9SThomas Huth #define KERNEL_MAX_SIZE ((long)_start)
48ec623990SThomas Huth #define ARCH_COMMAND_LINE_SIZE 896 /* Taken from Linux kernel */
49c4942ee9SThomas Huth
500d8261b5SThomas Huth /* STSI 3.2.2 offset of first vmdb + offset of uuid inside vmdb */
510d8261b5SThomas Huth #define STSI322_VMDB_UUID_OFFSET ((8 + 12) * 4)
520d8261b5SThomas Huth
533e4415a7SThomas Huth IplParameterBlock iplb __attribute__((aligned(PAGE_SIZE)));
54c4942ee9SThomas Huth static char cfgbuf[2048];
553e4415a7SThomas Huth
563e4415a7SThomas Huth static SubChannelId net_schid = { .one = 1 };
57ec623990SThomas Huth static uint8_t mac[6];
583e4415a7SThomas Huth static uint64_t dest_timer;
593e4415a7SThomas Huth
set_timer(int val)603e4415a7SThomas Huth void set_timer(int val)
613e4415a7SThomas Huth {
62*e70bc57bSJanosch Frank dest_timer = get_time_ms() + val;
633e4415a7SThomas Huth }
643e4415a7SThomas Huth
get_timer(void)653e4415a7SThomas Huth int get_timer(void)
663e4415a7SThomas Huth {
67*e70bc57bSJanosch Frank return dest_timer - get_time_ms();
683e4415a7SThomas Huth }
693e4415a7SThomas Huth
get_sec_ticks(void)703e4415a7SThomas Huth int get_sec_ticks(void)
713e4415a7SThomas Huth {
723e4415a7SThomas Huth return 1000; /* number of ticks in 1 second */
733e4415a7SThomas Huth }
743e4415a7SThomas Huth
7529d12216SThomas Huth /**
7629d12216SThomas Huth * Obtain IP and configuration info from DHCP server (either IPv4 or IPv6).
7729d12216SThomas Huth * @param fn_ip contains the following configuration information:
7829d12216SThomas Huth * client MAC, client IP, TFTP-server MAC, TFTP-server IP,
7929d12216SThomas Huth * boot file name
8029d12216SThomas Huth * @param retries Number of DHCP attempts
8129d12216SThomas Huth * @return 0 : IP and configuration info obtained;
8229d12216SThomas Huth * non-0 : error condition occurred.
8329d12216SThomas Huth */
dhcp(struct filename_ip * fn_ip,int retries)8429d12216SThomas Huth static int dhcp(struct filename_ip *fn_ip, int retries)
8529d12216SThomas Huth {
8629d12216SThomas Huth int i = retries + 1;
8729d12216SThomas Huth int rc = -1;
8829d12216SThomas Huth
8929d12216SThomas Huth printf(" Requesting information via DHCP: ");
9029d12216SThomas Huth
9129d12216SThomas Huth dhcpv4_generate_transaction_id();
9229d12216SThomas Huth dhcpv6_generate_transaction_id();
9329d12216SThomas Huth
9429d12216SThomas Huth do {
9529d12216SThomas Huth printf("\b\b\b%03d", i - 1);
9629d12216SThomas Huth if (!--i) {
9729d12216SThomas Huth printf("\nGiving up after %d DHCP requests\n", retries);
9829d12216SThomas Huth return -1;
9929d12216SThomas Huth }
100134f0b3dSThomas Huth fn_ip->ip_version = 4;
10129d12216SThomas Huth rc = dhcpv4(NULL, fn_ip);
10229d12216SThomas Huth if (rc == -1) {
103134f0b3dSThomas Huth fn_ip->ip_version = 6;
10429d12216SThomas Huth set_ipv6_address(fn_ip->fd, 0);
10529d12216SThomas Huth rc = dhcpv6(NULL, fn_ip);
10629d12216SThomas Huth if (rc == 0) {
10729d12216SThomas Huth memcpy(&fn_ip->own_ip6, get_ipv6_address(), 16);
10829d12216SThomas Huth break;
10929d12216SThomas Huth }
11029d12216SThomas Huth }
11129d12216SThomas Huth if (rc != -1) { /* either success or non-dhcp failure */
11229d12216SThomas Huth break;
11329d12216SThomas Huth }
11429d12216SThomas Huth } while (1);
11529d12216SThomas Huth printf("\b\b\b\bdone\n");
11629d12216SThomas Huth
11729d12216SThomas Huth return rc;
11829d12216SThomas Huth }
11929d12216SThomas Huth
12029d12216SThomas Huth /**
12129d12216SThomas Huth * Seed the random number generator with our mac and current timestamp
12229d12216SThomas Huth */
seed_rng(uint8_t mac[])12329d12216SThomas Huth static void seed_rng(uint8_t mac[])
12429d12216SThomas Huth {
12529d12216SThomas Huth uint64_t seed;
12629d12216SThomas Huth
12729d12216SThomas Huth asm volatile(" stck %0 " : : "Q"(seed) : "memory");
12829d12216SThomas Huth seed ^= (mac[2] << 24) | (mac[3] << 16) | (mac[4] << 8) | mac[5];
12929d12216SThomas Huth srand(seed);
13029d12216SThomas Huth }
13129d12216SThomas Huth
tftp_load(filename_ip_t * fnip,void * buffer,int len)1320c188229SThomas Huth static int tftp_load(filename_ip_t *fnip, void *buffer, int len)
13329d12216SThomas Huth {
13429d12216SThomas Huth tftp_err_t tftp_err;
13529d12216SThomas Huth int rc;
13629d12216SThomas Huth
137134f0b3dSThomas Huth rc = tftp(fnip, buffer, len, DEFAULT_TFTP_RETRIES, &tftp_err);
13829d12216SThomas Huth
139c4942ee9SThomas Huth if (rc < 0) {
140c4942ee9SThomas Huth /* Make sure that error messages are put into a new line */
141c4942ee9SThomas Huth printf("\n ");
142c4942ee9SThomas Huth }
143c4942ee9SThomas Huth
144c4942ee9SThomas Huth if (rc > 1024) {
145c4942ee9SThomas Huth printf(" TFTP: Received %s (%d KBytes)\n", fnip->filename, rc / 1024);
146c4942ee9SThomas Huth } else if (rc > 0) {
147c4942ee9SThomas Huth printf(" TFTP: Received %s (%d Bytes)\n", fnip->filename, rc);
148134f0b3dSThomas Huth } else {
149134f0b3dSThomas Huth const char *errstr = NULL;
150134f0b3dSThomas Huth int ecode;
151134f0b3dSThomas Huth tftp_get_error_info(fnip, &tftp_err, rc, &errstr, &ecode);
152134f0b3dSThomas Huth printf("TFTP error: %s\n", errstr ? errstr : "unknown error");
15329d12216SThomas Huth }
15429d12216SThomas Huth
15529d12216SThomas Huth return rc;
15629d12216SThomas Huth }
15729d12216SThomas Huth
net_init(filename_ip_t * fn_ip)1580c188229SThomas Huth static int net_init(filename_ip_t *fn_ip)
15929d12216SThomas Huth {
16029d12216SThomas Huth int rc;
16129d12216SThomas Huth
1620c188229SThomas Huth memset(fn_ip, 0, sizeof(filename_ip_t));
16329d12216SThomas Huth
16429d12216SThomas Huth rc = virtio_net_init(mac);
16529d12216SThomas Huth if (rc < 0) {
16629d12216SThomas Huth puts("Could not initialize network device");
16729d12216SThomas Huth return -101;
16829d12216SThomas Huth }
1690c188229SThomas Huth fn_ip->fd = rc;
17029d12216SThomas Huth
17129d12216SThomas Huth printf(" Using MAC address: %02x:%02x:%02x:%02x:%02x:%02x\n",
17229d12216SThomas Huth mac[0], mac[1], mac[2], mac[3], mac[4], mac[5]);
17329d12216SThomas Huth
17429d12216SThomas Huth set_mac_address(mac); /* init ethernet layer */
17529d12216SThomas Huth seed_rng(mac);
17629d12216SThomas Huth
1770c188229SThomas Huth rc = dhcp(fn_ip, DEFAULT_BOOT_RETRIES);
17829d12216SThomas Huth if (rc >= 0) {
179134f0b3dSThomas Huth if (fn_ip->ip_version == 4) {
1800c188229SThomas Huth set_ipv4_address(fn_ip->own_ip);
18129d12216SThomas Huth }
18229d12216SThomas Huth } else {
18329d12216SThomas Huth puts("Could not get IP address");
18429d12216SThomas Huth return -101;
18529d12216SThomas Huth }
18629d12216SThomas Huth
187134f0b3dSThomas Huth if (fn_ip->ip_version == 4) {
18829d12216SThomas Huth printf(" Using IPv4 address: %d.%d.%d.%d\n",
1890c188229SThomas Huth (fn_ip->own_ip >> 24) & 0xFF, (fn_ip->own_ip >> 16) & 0xFF,
1900c188229SThomas Huth (fn_ip->own_ip >> 8) & 0xFF, fn_ip->own_ip & 0xFF);
191134f0b3dSThomas Huth } else if (fn_ip->ip_version == 6) {
19229d12216SThomas Huth char ip6_str[40];
1930c188229SThomas Huth ipv6_to_str(fn_ip->own_ip6.addr, ip6_str);
19429d12216SThomas Huth printf(" Using IPv6 address: %s\n", ip6_str);
19529d12216SThomas Huth }
19629d12216SThomas Huth
19729d12216SThomas Huth if (rc == -2) {
19829d12216SThomas Huth printf("ARP request to TFTP server (%d.%d.%d.%d) failed\n",
1990c188229SThomas Huth (fn_ip->server_ip >> 24) & 0xFF, (fn_ip->server_ip >> 16) & 0xFF,
2000c188229SThomas Huth (fn_ip->server_ip >> 8) & 0xFF, fn_ip->server_ip & 0xFF);
20129d12216SThomas Huth return -102;
20229d12216SThomas Huth }
20329d12216SThomas Huth if (rc == -4 || rc == -3) {
20429d12216SThomas Huth puts("Can't obtain TFTP server IP address");
20529d12216SThomas Huth return -107;
20629d12216SThomas Huth }
20729d12216SThomas Huth
2080c188229SThomas Huth printf(" Using TFTP server: ");
209134f0b3dSThomas Huth if (fn_ip->ip_version == 4) {
2100c188229SThomas Huth printf("%d.%d.%d.%d\n",
2110c188229SThomas Huth (fn_ip->server_ip >> 24) & 0xFF, (fn_ip->server_ip >> 16) & 0xFF,
2120c188229SThomas Huth (fn_ip->server_ip >> 8) & 0xFF, fn_ip->server_ip & 0xFF);
213134f0b3dSThomas Huth } else if (fn_ip->ip_version == 6) {
21429d12216SThomas Huth char ip6_str[40];
2150c188229SThomas Huth ipv6_to_str(fn_ip->server_ip6.addr, ip6_str);
21629d12216SThomas Huth printf("%s\n", ip6_str);
21729d12216SThomas Huth }
21829d12216SThomas Huth
219134f0b3dSThomas Huth if (strlen(fn_ip->filename) > 0) {
2200c188229SThomas Huth printf(" Bootfile name: '%s'\n", fn_ip->filename);
22129d12216SThomas Huth }
22229d12216SThomas Huth
22329d12216SThomas Huth return rc;
22429d12216SThomas Huth }
22529d12216SThomas Huth
net_release(filename_ip_t * fn_ip)2260c188229SThomas Huth static void net_release(filename_ip_t *fn_ip)
2270c188229SThomas Huth {
228134f0b3dSThomas Huth if (fn_ip->ip_version == 4) {
2290c188229SThomas Huth dhcp_send_release(fn_ip->fd);
2300c188229SThomas Huth }
2310c188229SThomas Huth }
2320c188229SThomas Huth
233c4942ee9SThomas Huth /**
2340d8261b5SThomas Huth * Retrieve the Universally Unique Identifier of the VM.
2350d8261b5SThomas Huth * @return UUID string, or NULL in case of errors
2360d8261b5SThomas Huth */
get_uuid(void)2370d8261b5SThomas Huth static const char *get_uuid(void)
2380d8261b5SThomas Huth {
2390d8261b5SThomas Huth register int r0 asm("0");
2400d8261b5SThomas Huth register int r1 asm("1");
2410d8261b5SThomas Huth uint8_t *mem, *buf, uuid[16];
2420d8261b5SThomas Huth int i, cc, chk = 0;
2430d8261b5SThomas Huth static char uuid_str[37];
2440d8261b5SThomas Huth
2450d8261b5SThomas Huth mem = malloc(2 * PAGE_SIZE);
2460d8261b5SThomas Huth if (!mem) {
2470d8261b5SThomas Huth puts("Out of memory ... can not get UUID.");
2480d8261b5SThomas Huth return NULL;
2490d8261b5SThomas Huth }
2500d8261b5SThomas Huth buf = (uint8_t *)(((uint64_t)mem + PAGE_SIZE - 1) & ~(PAGE_SIZE - 1));
2510d8261b5SThomas Huth memset(buf, 0, PAGE_SIZE);
2520d8261b5SThomas Huth
2530d8261b5SThomas Huth /* Get SYSIB 3.2.2 */
2540d8261b5SThomas Huth r0 = (3 << 28) | 2;
2550d8261b5SThomas Huth r1 = 2;
2560d8261b5SThomas Huth asm volatile(" stsi 0(%[addr])\n"
2570d8261b5SThomas Huth " ipm %[cc]\n"
2580d8261b5SThomas Huth " srl %[cc],28\n"
2590d8261b5SThomas Huth : [cc] "=d" (cc)
2600d8261b5SThomas Huth : "d" (r0), "d" (r1), [addr] "a" (buf)
2610d8261b5SThomas Huth : "cc", "memory");
2620d8261b5SThomas Huth if (cc) {
26309be82ceSYifan Luo free(mem);
2640d8261b5SThomas Huth return NULL;
2650d8261b5SThomas Huth }
2660d8261b5SThomas Huth
2670d8261b5SThomas Huth for (i = 0; i < 16; i++) {
2680d8261b5SThomas Huth uuid[i] = buf[STSI322_VMDB_UUID_OFFSET + i];
2690d8261b5SThomas Huth chk |= uuid[i];
2700d8261b5SThomas Huth }
2710d8261b5SThomas Huth free(mem);
2720d8261b5SThomas Huth if (!chk) {
2730d8261b5SThomas Huth return NULL;
2740d8261b5SThomas Huth }
2750d8261b5SThomas Huth
2760d8261b5SThomas Huth sprintf(uuid_str, "%02x%02x%02x%02x-%02x%02x-%02x%02x-%02x%02x-"
2770d8261b5SThomas Huth "%02x%02x%02x%02x%02x%02x", uuid[0], uuid[1], uuid[2], uuid[3],
2780d8261b5SThomas Huth uuid[4], uuid[5], uuid[6], uuid[7], uuid[8], uuid[9], uuid[10],
2790d8261b5SThomas Huth uuid[11], uuid[12], uuid[13], uuid[14], uuid[15]);
2800d8261b5SThomas Huth
2810d8261b5SThomas Huth return uuid_str;
2820d8261b5SThomas Huth }
2830d8261b5SThomas Huth
2840d8261b5SThomas Huth /**
285ec623990SThomas Huth * Load a kernel with initrd (i.e. with the information that we've got from
286ec623990SThomas Huth * a pxelinux.cfg config file)
287ec623990SThomas Huth */
load_kernel_with_initrd(filename_ip_t * fn_ip,struct pl_cfg_entry * entry)288ec623990SThomas Huth static int load_kernel_with_initrd(filename_ip_t *fn_ip,
289ec623990SThomas Huth struct pl_cfg_entry *entry)
290ec623990SThomas Huth {
291ec623990SThomas Huth int rc;
292ec623990SThomas Huth
293ec623990SThomas Huth printf("Loading pxelinux.cfg entry '%s'\n", entry->label);
294ec623990SThomas Huth
295ec623990SThomas Huth if (!entry->kernel) {
296ec623990SThomas Huth printf("Kernel entry is missing!\n");
297ec623990SThomas Huth return -1;
298ec623990SThomas Huth }
299ec623990SThomas Huth
300ec623990SThomas Huth strncpy(fn_ip->filename, entry->kernel, sizeof(fn_ip->filename));
301ec623990SThomas Huth rc = tftp_load(fn_ip, KERNEL_ADDR, KERNEL_MAX_SIZE);
302ec623990SThomas Huth if (rc < 0) {
303ec623990SThomas Huth return rc;
304ec623990SThomas Huth }
305ec623990SThomas Huth
306ec623990SThomas Huth if (entry->initrd) {
307ec623990SThomas Huth uint64_t iaddr = (rc + 0xfff) & ~0xfffUL;
308ec623990SThomas Huth
309ec623990SThomas Huth strncpy(fn_ip->filename, entry->initrd, sizeof(fn_ip->filename));
310ec623990SThomas Huth rc = tftp_load(fn_ip, (void *)iaddr, KERNEL_MAX_SIZE - iaddr);
311ec623990SThomas Huth if (rc < 0) {
312ec623990SThomas Huth return rc;
313ec623990SThomas Huth }
314ec623990SThomas Huth /* Patch location and size: */
315ec623990SThomas Huth *(uint64_t *)0x10408 = iaddr;
316ec623990SThomas Huth *(uint64_t *)0x10410 = rc;
317ec623990SThomas Huth rc += iaddr;
318ec623990SThomas Huth }
319ec623990SThomas Huth
320ec623990SThomas Huth if (entry->append) {
321ec623990SThomas Huth strncpy((char *)0x10480, entry->append, ARCH_COMMAND_LINE_SIZE);
322ec623990SThomas Huth }
323ec623990SThomas Huth
324ec623990SThomas Huth return rc;
325ec623990SThomas Huth }
326ec623990SThomas Huth
327ec623990SThomas Huth #define MAX_PXELINUX_ENTRIES 16
328ec623990SThomas Huth
net_try_pxelinux_cfg(filename_ip_t * fn_ip)329ec623990SThomas Huth static int net_try_pxelinux_cfg(filename_ip_t *fn_ip)
330ec623990SThomas Huth {
331ec623990SThomas Huth struct pl_cfg_entry entries[MAX_PXELINUX_ENTRIES];
332ec623990SThomas Huth int num_ent, def_ent = 0;
333ec623990SThomas Huth
3340d8261b5SThomas Huth num_ent = pxelinux_load_parse_cfg(fn_ip, mac, get_uuid(),
3350d8261b5SThomas Huth DEFAULT_TFTP_RETRIES,
336ec623990SThomas Huth cfgbuf, sizeof(cfgbuf),
337ec623990SThomas Huth entries, MAX_PXELINUX_ENTRIES, &def_ent);
338ec623990SThomas Huth if (num_ent > 0) {
339ec623990SThomas Huth return load_kernel_with_initrd(fn_ip, &entries[def_ent]);
340ec623990SThomas Huth }
341ec623990SThomas Huth
342ec623990SThomas Huth return -1;
343ec623990SThomas Huth }
344ec623990SThomas Huth
345ec623990SThomas Huth /**
346c4942ee9SThomas Huth * Load via information from a .INS file (which can be found on CD-ROMs
347c4942ee9SThomas Huth * for example)
348c4942ee9SThomas Huth */
handle_ins_cfg(filename_ip_t * fn_ip,char * cfg,int cfgsize)349c4942ee9SThomas Huth static int handle_ins_cfg(filename_ip_t *fn_ip, char *cfg, int cfgsize)
350c4942ee9SThomas Huth {
351c4942ee9SThomas Huth char *ptr;
352c4942ee9SThomas Huth int rc = -1, llen;
353c4942ee9SThomas Huth void *destaddr;
354c4942ee9SThomas Huth char *insbuf = cfg;
355c4942ee9SThomas Huth
356c4942ee9SThomas Huth ptr = strchr(insbuf, '\n');
357c4942ee9SThomas Huth if (!ptr) {
358c4942ee9SThomas Huth puts("Does not seem to be a valid .INS file");
359c4942ee9SThomas Huth return -1;
360c4942ee9SThomas Huth }
361c4942ee9SThomas Huth
362c4942ee9SThomas Huth *ptr = 0;
363c4942ee9SThomas Huth printf("\nParsing .INS file:\n %s\n", &insbuf[2]);
364c4942ee9SThomas Huth
365c4942ee9SThomas Huth insbuf = ptr + 1;
366c4942ee9SThomas Huth while (*insbuf && insbuf < cfg + cfgsize) {
367c4942ee9SThomas Huth ptr = strchr(insbuf, '\n');
368c4942ee9SThomas Huth if (ptr) {
369c4942ee9SThomas Huth *ptr = 0;
370c4942ee9SThomas Huth }
371c4942ee9SThomas Huth llen = strlen(insbuf);
372c4942ee9SThomas Huth if (!llen) {
373c4942ee9SThomas Huth insbuf = ptr + 1;
374c4942ee9SThomas Huth continue;
375c4942ee9SThomas Huth }
376c4942ee9SThomas Huth ptr = strchr(insbuf, ' ');
377c4942ee9SThomas Huth if (!ptr) {
378c4942ee9SThomas Huth puts("Missing space separator in .INS file");
379c4942ee9SThomas Huth return -1;
380c4942ee9SThomas Huth }
381c4942ee9SThomas Huth *ptr = 0;
382134f0b3dSThomas Huth strncpy(fn_ip->filename, insbuf, sizeof(fn_ip->filename));
383c4942ee9SThomas Huth destaddr = (char *)atol(ptr + 1);
384c4942ee9SThomas Huth rc = tftp_load(fn_ip, destaddr, (long)_start - (long)destaddr);
385c4942ee9SThomas Huth if (rc <= 0) {
386c4942ee9SThomas Huth break;
387c4942ee9SThomas Huth }
388c4942ee9SThomas Huth insbuf += llen + 1;
389c4942ee9SThomas Huth }
390c4942ee9SThomas Huth
391c4942ee9SThomas Huth return rc;
392c4942ee9SThomas Huth }
393c4942ee9SThomas Huth
net_try_direct_tftp_load(filename_ip_t * fn_ip)394c4942ee9SThomas Huth static int net_try_direct_tftp_load(filename_ip_t *fn_ip)
395c4942ee9SThomas Huth {
396c4942ee9SThomas Huth int rc;
397c4942ee9SThomas Huth void *loadaddr = (void *)0x2000; /* Load right after the low-core */
398c4942ee9SThomas Huth
399c4942ee9SThomas Huth rc = tftp_load(fn_ip, loadaddr, KERNEL_MAX_SIZE - (long)loadaddr);
400c4942ee9SThomas Huth if (rc < 0) {
401c4942ee9SThomas Huth return rc;
402c4942ee9SThomas Huth } else if (rc < 8) {
403c4942ee9SThomas Huth printf("'%s' is too small (%i bytes only).\n", fn_ip->filename, rc);
404c4942ee9SThomas Huth return -1;
405c4942ee9SThomas Huth }
406c4942ee9SThomas Huth
407c4942ee9SThomas Huth /* Check whether it is a configuration file instead of a kernel */
408c4942ee9SThomas Huth if (rc < sizeof(cfgbuf) - 1) {
409c4942ee9SThomas Huth memcpy(cfgbuf, loadaddr, rc);
410c4942ee9SThomas Huth cfgbuf[rc] = 0; /* Make sure that it is NUL-terminated */
411c4942ee9SThomas Huth if (!strncmp("* ", cfgbuf, 2)) {
412c4942ee9SThomas Huth return handle_ins_cfg(fn_ip, cfgbuf, rc);
413c4942ee9SThomas Huth }
414ec623990SThomas Huth /*
415ec623990SThomas Huth * pxelinux.cfg support via bootfile name is just here for developers'
416ec623990SThomas Huth * convenience (it eases testing with the built-in DHCP server of QEMU
417ec623990SThomas Huth * that does not support RFC 5071). The official way to configure a
418ec623990SThomas Huth * pxelinux.cfg file name is to use DHCP options 209 and 210 instead.
419ec623990SThomas Huth * So only use the pxelinux.cfg parser here for files that start with
420ec623990SThomas Huth * a magic comment string.
421ec623990SThomas Huth */
422ec623990SThomas Huth if (!strncasecmp("# pxelinux", cfgbuf, 10)) {
423ec623990SThomas Huth struct pl_cfg_entry entries[MAX_PXELINUX_ENTRIES];
424ec623990SThomas Huth int num_ent, def_ent = 0;
425ec623990SThomas Huth
426ec623990SThomas Huth num_ent = pxelinux_parse_cfg(cfgbuf, sizeof(cfgbuf), entries,
427ec623990SThomas Huth MAX_PXELINUX_ENTRIES, &def_ent);
428ec623990SThomas Huth if (num_ent <= 0) {
429ec623990SThomas Huth return -1;
430ec623990SThomas Huth }
431ec623990SThomas Huth return load_kernel_with_initrd(fn_ip, &entries[def_ent]);
432ec623990SThomas Huth }
433c4942ee9SThomas Huth }
434c4942ee9SThomas Huth
435c4942ee9SThomas Huth /* Move kernel to right location */
436c4942ee9SThomas Huth memmove(KERNEL_ADDR, loadaddr, rc);
437c4942ee9SThomas Huth
438c4942ee9SThomas Huth return rc;
439c4942ee9SThomas Huth }
440c4942ee9SThomas Huth
write_subsystem_identification(void)4419a848adfSThomas Huth void write_subsystem_identification(void)
4429a848adfSThomas Huth {
4439a848adfSThomas Huth SubChannelId *schid = (SubChannelId *) 184;
4449a848adfSThomas Huth uint32_t *zeroes = (uint32_t *) 188;
4459a848adfSThomas Huth
4469a848adfSThomas Huth *schid = net_schid;
4479a848adfSThomas Huth *zeroes = 0;
4489a848adfSThomas Huth }
4499a848adfSThomas Huth
find_net_dev(Schib * schib,int dev_no)4503e4415a7SThomas Huth static bool find_net_dev(Schib *schib, int dev_no)
4513e4415a7SThomas Huth {
4523e4415a7SThomas Huth int i, r;
4533e4415a7SThomas Huth
4543e4415a7SThomas Huth for (i = 0; i < 0x10000; i++) {
4553e4415a7SThomas Huth net_schid.sch_no = i;
4563e4415a7SThomas Huth r = stsch_err(net_schid, schib);
4573e4415a7SThomas Huth if (r == 3 || r == -EIO) {
4583e4415a7SThomas Huth break;
4593e4415a7SThomas Huth }
4603e4415a7SThomas Huth if (!schib->pmcw.dnv) {
4613e4415a7SThomas Huth continue;
4623e4415a7SThomas Huth }
4633668cb7cSJason J. Herne enable_subchannel(net_schid);
4643e4415a7SThomas Huth if (!virtio_is_supported(net_schid)) {
4653e4415a7SThomas Huth continue;
4663e4415a7SThomas Huth }
4673e4415a7SThomas Huth if (virtio_get_device_type() != VIRTIO_ID_NET) {
4683e4415a7SThomas Huth continue;
4693e4415a7SThomas Huth }
4703e4415a7SThomas Huth if (dev_no < 0 || schib->pmcw.dev == dev_no) {
4713e4415a7SThomas Huth return true;
4723e4415a7SThomas Huth }
4733e4415a7SThomas Huth }
4743e4415a7SThomas Huth
4753e4415a7SThomas Huth return false;
4763e4415a7SThomas Huth }
4773e4415a7SThomas Huth
virtio_setup(void)4783e4415a7SThomas Huth static void virtio_setup(void)
4793e4415a7SThomas Huth {
4803e4415a7SThomas Huth Schib schib;
4813e4415a7SThomas Huth int ssid;
4823e4415a7SThomas Huth bool found = false;
4833e4415a7SThomas Huth uint16_t dev_no;
4843e4415a7SThomas Huth
4853e4415a7SThomas Huth /*
4863e4415a7SThomas Huth * We unconditionally enable mss support. In every sane configuration,
4873e4415a7SThomas Huth * this will succeed; and even if it doesn't, stsch_err() can deal
4883e4415a7SThomas Huth * with the consequences.
4893e4415a7SThomas Huth */
4903e4415a7SThomas Huth enable_mss_facility();
4913e4415a7SThomas Huth
4923e4415a7SThomas Huth if (store_iplb(&iplb)) {
4933e4415a7SThomas Huth IPL_assert(iplb.pbt == S390_IPL_TYPE_CCW, "IPL_TYPE_CCW expected");
4943e4415a7SThomas Huth dev_no = iplb.ccw.devno;
4953e4415a7SThomas Huth debug_print_int("device no. ", dev_no);
4963e4415a7SThomas Huth net_schid.ssid = iplb.ccw.ssid & 0x3;
4973e4415a7SThomas Huth debug_print_int("ssid ", net_schid.ssid);
4983e4415a7SThomas Huth found = find_net_dev(&schib, dev_no);
4993e4415a7SThomas Huth } else {
5003e4415a7SThomas Huth for (ssid = 0; ssid < 0x3; ssid++) {
5013e4415a7SThomas Huth net_schid.ssid = ssid;
5023e4415a7SThomas Huth found = find_net_dev(&schib, -1);
5033e4415a7SThomas Huth if (found) {
5043e4415a7SThomas Huth break;
5053e4415a7SThomas Huth }
5063e4415a7SThomas Huth }
5073e4415a7SThomas Huth }
5083e4415a7SThomas Huth
5093e4415a7SThomas Huth IPL_assert(found, "No virtio net device found");
5103e4415a7SThomas Huth }
5113e4415a7SThomas Huth
main(void)5123e4415a7SThomas Huth void main(void)
5133e4415a7SThomas Huth {
5140c188229SThomas Huth filename_ip_t fn_ip;
515c4942ee9SThomas Huth int rc, fnlen;
51629d12216SThomas Huth
5173e4415a7SThomas Huth sclp_setup();
5183e4415a7SThomas Huth sclp_print("Network boot starting...\n");
5193e4415a7SThomas Huth
5203e4415a7SThomas Huth virtio_setup();
5213e4415a7SThomas Huth
5220c188229SThomas Huth rc = net_init(&fn_ip);
5230c188229SThomas Huth if (rc) {
5240c188229SThomas Huth panic("Network initialization failed. Halting.\n");
5250c188229SThomas Huth }
5260c188229SThomas Huth
527134f0b3dSThomas Huth fnlen = strlen(fn_ip.filename);
528c4942ee9SThomas Huth if (fnlen > 0 && fn_ip.filename[fnlen - 1] != '/') {
529c4942ee9SThomas Huth rc = net_try_direct_tftp_load(&fn_ip);
530c4942ee9SThomas Huth }
531ec623990SThomas Huth if (rc <= 0) {
532ec623990SThomas Huth rc = net_try_pxelinux_cfg(&fn_ip);
533ec623990SThomas Huth }
5340c188229SThomas Huth
5350c188229SThomas Huth net_release(&fn_ip);
5360c188229SThomas Huth
53729d12216SThomas Huth if (rc > 0) {
53829d12216SThomas Huth sclp_print("Network loading done, starting kernel...\n");
5399a848adfSThomas Huth jump_to_low_kernel();
54029d12216SThomas Huth }
54129d12216SThomas Huth
5423e4415a7SThomas Huth panic("Failed to load OS from network\n");
5433e4415a7SThomas Huth }
544