1 /* $NetBSD: wrtvid.c,v 1.10 2021/05/06 13:23:36 rin 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 #if HAVE_NBTOOL_CONFIG_H
33 #include "nbtool_config.h"
34 #endif
35
36 #include <sys/types.h>
37 #include <sys/stat.h>
38 #include <fcntl.h>
39 #include <stdio.h>
40 #include <stdlib.h>
41 #include <string.h>
42 #include <unistd.h>
43
44 /* mvme68k's boot block is 512 bytes long */
45 #define SIZEOF_VID 0x200
46
47 /* The first field is effectively the vendor string, in this case NBSD */
48 #define VID_ID_OFF 0x000
49 #define VID_ID "NBSD"
50 #define VID_ID_LEN 4
51
52 /* Start block for the 1st stage bootstrap code */
53 #define VID_OSS_OFF 0x014
54 #define VID_OSS_TAPE 1
55 #define VID_OSS_DISK 2
56
57 /* Length, in 256-byte logical blocks, of the 1st stage bootstrap */
58 #define VID_OSL_OFF 0x018
59
60 /* Start address of the bootstrap */
61 #define VID_OSA_OFF 0x01e
62 #define VID_OSA 0x003f0000
63
64 /* Block number of config area */
65 #define VID_CAS_OFF 0x093
66 #define VID_CAS 1
67
68 /* Length, in 256-byte logical blocks, of config area */
69 #define VID_CAL_OFF 0x094
70 #define VID_CAL 1
71
72 /* Magic `MOTOROLA' string */
73 #define VID_MOT_OFF 0x0f8
74 #define VID_MOT "MOTOROLA"
75 #define VID_MOT_LEN 8
76
77 /* Logical block size, in bytes */
78 #define CFG_REC_OFF 0x10a
79 #define CFG_REC 0x100
80
81 /* Physical sector size, in bytes */
82 #define CFG_PSM_OFF 0x11e
83 #define CFG_PSM 0x200
84
85
86 /*
87 * Write a big-endian 32-bit value at the specified address
88 */
89 static void
write32(uint8_t * vp,uint32_t value)90 write32(uint8_t *vp, uint32_t value)
91 {
92
93 *vp++ = (uint8_t)((value >> 24) & 0xff);
94 *vp++ = (uint8_t)((value >> 16) & 0xff);
95 *vp++ = (uint8_t)((value >> 8) & 0xff);
96 *vp = (uint8_t)(value & 0xff);
97 }
98
99 /*
100 * Write a big-endian 16-bit value at the specified address
101 */
102 static void
write16(uint8_t * vp,uint16_t value)103 write16(uint8_t *vp, uint16_t value)
104 {
105
106 *vp++ = (uint8_t)((value >> 8) & 0xff);
107 *vp = (uint8_t)(value & 0xff);
108 }
109
110 int
main(int argc,char ** argv)111 main(int argc, char **argv)
112 {
113 struct stat st;
114 uint16_t len;
115 uint8_t *vid;
116 char *fn;
117 int is_disk;
118 int fd;
119
120 if (argc != 2) {
121 usage:
122 fprintf(stderr, "%s: <bootsd|bootst>\n", argv[0]);
123 exit(1);
124 }
125
126 if (strcmp(argv[1], "bootsd") == 0) {
127 is_disk = 1;
128 fn = "sdboot";
129 } else
130 if (strcmp(argv[1], "bootst") == 0) {
131 is_disk = 0;
132 fn = "stboot";
133 } else
134 goto usage;
135
136 if (stat(argv[1], &st) < 0) {
137 perror(argv[1]);
138 exit(1);
139 }
140
141 /* How many 256-byte logical blocks (rounded up) */
142 len = (uint16_t)((st.st_size + 255) / 256);
143
144 /* For tapes, round up to 8k */
145 if (is_disk == 0) {
146 len += (8192 / 256) - 1;
147 len &= ~((8192 / 256) -1);
148 }
149
150 if ((vid = malloc(SIZEOF_VID)) == NULL) {
151 perror(argv[0]);
152 exit(1);
153 }
154
155 /* Generate the VID and CFG data */
156 memset(vid, 0, SIZEOF_VID);
157 memcpy(&vid[VID_ID_OFF], VID_ID, VID_ID_LEN);
158 write32(&vid[VID_OSS_OFF], is_disk ? VID_OSS_DISK : VID_OSS_TAPE);
159 write16(&vid[VID_OSL_OFF], len);
160 write32(&vid[VID_OSA_OFF], VID_OSA);
161 vid[VID_CAS_OFF] = VID_CAS;
162 vid[VID_CAL_OFF] = VID_CAL;
163 memcpy(&vid[VID_MOT_OFF], VID_MOT, VID_MOT_LEN);
164 write16(&vid[CFG_REC_OFF], CFG_REC);
165 write16(&vid[CFG_PSM_OFF], CFG_PSM);
166
167 /* Create and write it out */
168 if ((fd = open(fn, O_WRONLY | O_CREAT | O_TRUNC, 0644)) < 0) {
169 perror(fn);
170 exit(1);
171 }
172
173 if (write(fd, vid, SIZEOF_VID) != SIZEOF_VID) {
174 perror(fn);
175 exit(1);
176 }
177
178 close(fd);
179 free(vid);
180
181 return 0;
182 }
183