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 */
84static void
85write32(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 */
97static void
98write16(uint8_t *vp, uint16_t value)
99{
100
101	*vp++ = (uint8_t)((value >> 8) & 0xff);
102	*vp = (uint8_t)(value & 0xff);
103}
104
105int
106main(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) {
116usage:
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}
178