From patchwork Mon Apr 22 19:18:11 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Alexander Graf X-Patchwork-Id: 238643 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from lists.gnu.org (lists.gnu.org [208.118.235.17]) (using TLSv1 with cipher AES256-SHA (256/256 bits)) (Client did not present a certificate) by ozlabs.org (Postfix) with ESMTPS id A5CED2C015F for ; Tue, 23 Apr 2013 05:19:50 +1000 (EST) Received: from localhost ([::1]:51585 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UUMHE-0003TT-O1 for incoming@patchwork.ozlabs.org; Mon, 22 Apr 2013 15:19:48 -0400 Received: from eggs.gnu.org ([208.118.235.92]:52708) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UUMGY-0003HJ-IV for qemu-devel@nongnu.org; Mon, 22 Apr 2013 15:19:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UUMGX-0001Jw-Aq for qemu-devel@nongnu.org; Mon, 22 Apr 2013 15:19:06 -0400 Received: from cantor2.suse.de ([195.135.220.15]:44149 helo=mx2.suse.de) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UUMGX-0001Aj-47 for qemu-devel@nongnu.org; Mon, 22 Apr 2013 15:19:05 -0400 Received: from relay2.suse.de (unknown [195.135.220.254]) by mx2.suse.de (Postfix) with ESMTP id 2EC2BA5357; Mon, 22 Apr 2013 21:18:19 +0200 (CEST) From: Alexander Graf To: qemu-devel@nongnu.org Date: Mon, 22 Apr 2013 21:18:11 +0200 Message-Id: <1366658298-9275-6-git-send-email-agraf@suse.de> X-Mailer: git-send-email 1.6.0.2 In-Reply-To: <1366658298-9275-1-git-send-email-agraf@suse.de> References: <1366658298-9275-1-git-send-email-agraf@suse.de> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4.x X-Received-From: 195.135.220.15 Cc: Christian Borntraeger , Dominik Dingel Subject: [Qemu-devel] [PATCH 05/12] S390: ccw firmware: Add main program X-BeenThere: qemu-devel@nongnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org Sender: qemu-devel-bounces+incoming=patchwork.ozlabs.org@nongnu.org This C file is the main driving piece of the s390 ccw firmware. It provides a search for a workable block device, sets it as the default to boot off of and boots from it. Signed-off-by: Alexander Graf --- pc-bios/s390-ccw/main.c | 56 +++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 56 insertions(+), 0 deletions(-) create mode 100644 pc-bios/s390-ccw/main.c diff --git a/pc-bios/s390-ccw/main.c b/pc-bios/s390-ccw/main.c new file mode 100644 index 0000000..0913aac --- /dev/null +++ b/pc-bios/s390-ccw/main.c @@ -0,0 +1,56 @@ +/* + * S390 virtio-ccw loading program + * + * Copyright (c) 2013 Alexander Graf + * + * This work is licensed under the terms of the GNU GPL, version 2 or (at + * your option) any later version. See the COPYING file in the top-level + * directory. + */ + +#include "s390-ccw.h" + +struct subchannel_id blk_schid; +char stack[PAGE_SIZE * 8] __attribute__((__aligned__(PAGE_SIZE))); + +void virtio_panic(const char *string) +{ + sclp_print(string); + while (1) { } +} + +static void virtio_setup(void) +{ + struct irb irb; + int i; + int r; + bool found = false; + + blk_schid.one = 1; + + for (i = 0; i < 0x10000; i++) { + blk_schid.sch_no = i; + r = tsch(blk_schid, &irb); + if (r != 3) { + if (virtio_is_blk(blk_schid)) { + found = true; + break; + } + } + } + + if (!found) { + virtio_panic("No virtio-blk device found!\n"); + } + + virtio_setup_block(blk_schid); +} + +int main(void) +{ + sclp_setup(); + virtio_setup(); + if (zipl_load() < 0) + sclp_print("Failed to load OS from hard disk\n"); + while (1) { } +}