sys/arch/mvme68k/stand/wrtvid/wrtvid.c

   1 /*      $NetBSD: wrtvid.c,v 1.7 2008/01/12 09:54:33 tsutsui Exp $       */
   2
   3 /*-
   4  * Copyright (c) 2002 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Steve C. Woodford.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #include <sys/types.h>
  33 #include <sys/stat.h>
  34 #include <fcntl.h>
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37 #include <string.h>
  38
  39 /* mvme68k's boot block is 512 bytes long */
  40 #define SIZEOF_VID              0x200
  41
  42 /* The first field is effectively the vendor string, in this case NBSD */
  43 #define VID_ID_OFF              0x000
  44 #define  VID_ID                 "NBSD"
  45 #define  VID_ID_LEN             4
  46
  47 /* Start block for the 1st stage bootstrap code */
  48 #define VID_OSS_OFF             0x014
  49 #define  VID_OSS_TAPE           1
  50 #define  VID_OSS_DISK           2
  51
  52 /* Length, in 256-byte logical blocks, of the 1st stage bootstrap */
  53 #define VID_OSL_OFF             0x018
  54
  55 /* Start address of the bootstrap */
  56 #define VID_OSA_OFF             0x01e
  57 #define  VID_OSA                0x003f0000
  58
  59 /* Block number of config area */
  60 #define VID_CAS_OFF             0x093
  61 #define  VID_CAS                1
  62
  63 /* Length, in 256-byte logical blocks, of config area */
  64 #define VID_CAL_OFF             0x094
  65 #define  VID_CAL                1
  66
  67 /* Magic `MOTOROLA' string */
  68 #define VID_MOT_OFF             0x0f8
  69 #define  VID_MOT                "MOTOROLA"
  70 #define  VID_MOT_LEN            8
  71
  72 /* Logical block size, in bytes */
  73 #define CFG_REC_OFF             0x10a
  74 #define  CFG_REC                0x100
  75
  76 /* Physical sector size, in bytes */
  77 #define CFG_PSM_OFF             0x11e
  78 #define  CFG_PSM                0x200
  79
  80
  81 /*
  82  * Write a big-endian 32-bit value at the specified address
  83  */
  84 static void
  85 write32(uint8_t *vp, uint32_t value)
  86 {
  87
  88         *vp++ = (uint8_t)((value >> 24) & 0xff);
  89         *vp++ = (uint8_t)((value >> 16) & 0xff);
  90         *vp++ = (uint8_t)((value >> 8) & 0xff);
  91         *vp = (uint8_t)(value & 0xff);
  92 }
  93
  94 /*
  95  * Write a big-endian 16-bit value at the specified address
  96  */
  97 static void
  98 write16(uint8_t *vp, uint16_t value)
  99 {
 100
 101         *vp++ = (uint8_t)((value >> 8) & 0xff);
 102         *vp = (uint8_t)(value & 0xff);
 103 }
 104
 105 int
 106 main(int argc, char **argv)
 107 {
 108         struct stat st;
 109         uint16_t len;
 110         uint8_t *vid;
 111         char *fn;
 112         int is_disk;
 113         int fd;
 114
 115         if (argc != 2) {
 116 usage:
 117                 fprintf(stderr, "%s: <bootsd|bootst>\n", argv[0]);
 118                 exit(1);
 119         }
 120
 121         if (strcmp(argv[1], "bootsd") == 0) {
 122                 is_disk = 1;
 123                 fn = "sdboot";
 124         } else
 125         if (strcmp(argv[1], "bootst") == 0) {
 126                 is_disk = 0;
 127                 fn = "stboot";
 128         } else
 129                 goto usage;
 130
 131         if (stat(argv[1], &st) < 0) {
 132                 perror(argv[1]);
 133                 exit(1);
 134         }
 135
 136         /* How many 256-byte logical blocks (rounded up) */
 137         len = (uint16_t)((st.st_size + 255) / 256);
 138
 139         /* For tapes, round up to 8k */
 140         if (is_disk == 0) {
 141                 len += (8192 / 256) - 1;
 142                 len &= ~((8192 / 256) -1);
 143         }
 144
 145         if ((vid = malloc(SIZEOF_VID)) == NULL) {
 146                 perror(argv[0]);
 147                 exit(1);
 148         }
 149
 150         /* Generate the VID and CFG data */
 151         memset(vid, 0, SIZEOF_VID);
 152         memcpy(&vid[VID_ID_OFF], VID_ID, VID_ID_LEN);
 153         write32(&vid[VID_OSS_OFF], is_disk ? VID_OSS_DISK : VID_OSS_TAPE);
 154         write16(&vid[VID_OSL_OFF], len);
 155         write32(&vid[VID_OSA_OFF], VID_OSA);
 156         vid[VID_CAS_OFF] = VID_CAS;
 157         vid[VID_CAL_OFF] = VID_CAL;
 158         memcpy(&vid[VID_MOT_OFF], VID_MOT, VID_MOT_LEN);
 159         write16(&vid[CFG_REC_OFF], CFG_REC);
 160         write16(&vid[CFG_PSM_OFF], CFG_PSM);
 161
 162         /* Create and write it out */
 163         if ((fd = open(fn, O_WRONLY | O_CREAT | O_TRUNC, 0644)) < 0) {
 164                 perror(fn);
 165                 exit(1);
 166         }
 167
 168         if (write(fd, vid, SIZEOF_VID) != SIZEOF_VID) {
 169                 perror(fn);
 170                 exit(1);
 171         }
 172
 173         close(fd);
 174         free(vid);
 175
 176         return 0;
 177 }