]>
Commit | Line | Data |
---|---|---|
c7de829c WD |
1 | /* |
2 | * (C) Copyright 2001 | |
8bde7f77 | 3 | * Hans-Joerg Frieden, Hyperion Entertainment |
c7de829c WD |
4 | * Hans-JoergF@hyperion-entertainment.com |
5 | * | |
6 | * See file CREDITS for list of people who contributed to this | |
7 | * project. | |
8 | * | |
9 | * This program is free software; you can redistribute it and/or | |
10 | * modify it under the terms of the GNU General Public License as | |
11 | * published by the Free Software Foundation; either version 2 of | |
12 | * the License, or (at your option) any later version. | |
13 | * | |
14 | * This program is distributed in the hope that it will be useful, | |
15 | * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 | * GNU General Public License for more details. | |
18 | * | |
19 | * You should have received a copy of the GNU General Public License | |
20 | * along with this program; if not, write to the Free Software | |
21 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, | |
22 | * MA 02111-1307 USA | |
23 | */ | |
24 | #include <common.h> | |
25 | #include <command.h> | |
26 | #include <ide.h> | |
c7de829c WD |
27 | #include "part_amiga.h" |
28 | ||
7bd2722e | 29 | #if defined(CONFIG_CMD_IDE) || \ |
75eb82ec | 30 | defined(CONFIG_CMD_MG_DISK) || \ |
7bd2722e MF |
31 | defined(CONFIG_CMD_SCSI) || \ |
32 | defined(CONFIG_CMD_USB) || \ | |
33 | defined(CONFIG_MMC) || \ | |
34 | defined(CONFIG_SYSTEMACE) | |
c7de829c WD |
35 | |
36 | #undef AMIGA_DEBUG | |
37 | ||
38 | #ifdef AMIGA_DEBUG | |
39 | #define PRINTF(fmt, args...) printf(fmt ,##args) | |
40 | #else | |
41 | #define PRINTF(fmt, args...) | |
42 | #endif | |
43 | ||
44 | struct block_header | |
45 | { | |
46 | u32 id; | |
47 | u32 summed_longs; | |
48 | s32 chk_sum; | |
49 | }; | |
50 | ||
51 | static unsigned char block_buffer[DEFAULT_SECTOR_SIZE]; | |
52 | static struct rigid_disk_block rdb = {0}; | |
53 | static struct bootcode_block bootcode = {0}; | |
54 | ||
55 | /* | |
56 | * Copy a bcpl to a c string | |
57 | */ | |
58 | static void bcpl_strcpy(char *to, char *from) | |
59 | { | |
60 | int len = *from++; | |
61 | ||
62 | while (len) | |
63 | { | |
64 | *to++ = *from++; | |
65 | len--; | |
66 | } | |
67 | *to = 0; | |
68 | } | |
69 | ||
70 | /* | |
71 | * Print a BCPL String. BCPL strings start with a byte with the length | |
72 | * of the string, and don't contain a terminating nul character | |
73 | */ | |
74 | static void bstr_print(char *string) | |
75 | { | |
76 | int len = *string++; | |
77 | char buffer[256]; | |
78 | int i; | |
8bde7f77 | 79 | |
c7de829c WD |
80 | i = 0; |
81 | while (len) | |
82 | { | |
83 | buffer[i++] = *string++; | |
84 | len--; | |
85 | } | |
86 | ||
87 | buffer[i] = 0; | |
88 | printf("%-10s", buffer); | |
89 | } | |
90 | ||
91 | /* | |
92 | * Sum a block. The checksum of a block must end up at zero | |
93 | * to be valid. The chk_sum field is selected so that adding | |
94 | * it yields zero. | |
95 | */ | |
96 | int sum_block(struct block_header *header) | |
97 | { | |
98 | s32 *block = (s32 *)header; | |
99 | u32 i; | |
100 | s32 sum = 0; | |
101 | ||
102 | for (i = 0; i < header->summed_longs; i++) | |
103 | sum += *block++; | |
8bde7f77 | 104 | |
c7de829c WD |
105 | return (sum != 0); |
106 | } | |
107 | ||
108 | /* | |
109 | * Print an AmigaOS disk type. Disk types are a four-byte identifier | |
110 | * describing the file system. They are usually written as a three-letter | |
111 | * word followed by a backslash and a version number. For example, | |
112 | * DOS\0 would be the original file system. SFS\0 would be SmartFileSystem. | |
113 | * DOS\1 is FFS. | |
114 | */ | |
115 | static void print_disk_type(u32 disk_type) | |
116 | { | |
117 | char buffer[6]; | |
118 | buffer[0] = (disk_type & 0xFF000000)>>24; | |
119 | buffer[1] = (disk_type & 0x00FF0000)>>16; | |
120 | buffer[2] = (disk_type & 0x0000FF00)>>8; | |
121 | buffer[3] = '\\'; | |
122 | buffer[4] = (disk_type & 0x000000FF) + '0'; | |
123 | buffer[5] = 0; | |
124 | printf("%s", buffer); | |
125 | } | |
126 | ||
127 | /* | |
128 | * Print the info contained within the given partition block | |
129 | */ | |
130 | static void print_part_info(struct partition_block *p) | |
131 | { | |
132 | struct amiga_part_geometry *g; | |
8bde7f77 | 133 | |
c7de829c WD |
134 | g = (struct amiga_part_geometry *)&(p->environment); |
135 | ||
136 | bstr_print(p->drive_name); | |
8bde7f77 WD |
137 | printf("%6d\t%6d\t", |
138 | g->low_cyl * g->block_per_track * g->surfaces , | |
c7de829c WD |
139 | (g->high_cyl - g->low_cyl + 1) * g->block_per_track * g->surfaces - 1); |
140 | print_disk_type(g->dos_type); | |
141 | printf("\t%5d\n", g->boot_priority); | |
142 | } | |
143 | ||
144 | /* | |
145 | * Search for the Rigid Disk Block. The rigid disk block is required | |
146 | * to be within the first 16 blocks of a drive, needs to have | |
147 | * the ID AMIGA_ID_RDISK ('RDSK') and needs to have a valid | |
148 | * sum-to-zero checksum | |
149 | */ | |
150 | struct rigid_disk_block *get_rdisk(block_dev_desc_t *dev_desc) | |
151 | { | |
152 | int i; | |
153 | int limit; | |
154 | char *s; | |
155 | ||
156 | s = getenv("amiga_scanlimit"); | |
157 | if (s) | |
75eb82ec | 158 | limit = simple_strtoul(s, NULL, 10); |
c7de829c WD |
159 | else |
160 | limit = AMIGA_BLOCK_LIMIT; | |
161 | ||
162 | for (i=0; i<limit; i++) | |
163 | { | |
164 | ulong res = dev_desc->block_read(dev_desc->dev, i, 1, | |
165 | (ulong *)block_buffer); | |
166 | if (res == 1) | |
167 | { | |
168 | struct rigid_disk_block *trdb = (struct rigid_disk_block *)block_buffer; | |
169 | if (trdb->id == AMIGA_ID_RDISK) | |
170 | { | |
171 | PRINTF("Rigid disk block suspect at %d, checking checksum\n",i); | |
172 | if (sum_block((struct block_header *)block_buffer) == 0) | |
173 | { | |
174 | PRINTF("FOUND\n"); | |
175 | memcpy(&rdb, trdb, sizeof(struct rigid_disk_block)); | |
176 | return (struct rigid_disk_block *)&rdb; | |
177 | } | |
178 | } | |
179 | } | |
180 | } | |
181 | PRINTF("Done scanning, no RDB found\n"); | |
182 | return NULL; | |
183 | } | |
184 | ||
8bde7f77 | 185 | /* |
c7de829c WD |
186 | * Search for boot code |
187 | * Again, the first boot block must be located somewhere in the first 16 blocks, or rooted in the | |
188 | * Ridgid disk block | |
189 | */ | |
190 | ||
191 | struct bootcode_block *get_bootcode(block_dev_desc_t *dev_desc) | |
192 | { | |
193 | int i; | |
194 | int limit; | |
195 | char *s; | |
196 | ||
197 | s = getenv("amiga_scanlimit"); | |
198 | if (s) | |
75eb82ec | 199 | limit = simple_strtoul(s, NULL, 10); |
c7de829c WD |
200 | else |
201 | limit = AMIGA_BLOCK_LIMIT; | |
202 | ||
203 | PRINTF("Scanning for BOOT from 0 to %d\n", limit); | |
204 | ||
205 | for (i = 0; i < limit; i++) | |
206 | { | |
207 | ulong res = dev_desc->block_read(dev_desc->dev, i, 1, (ulong *)block_buffer); | |
208 | if (res == 1) | |
209 | { | |
210 | struct bootcode_block *boot = (struct bootcode_block *)block_buffer; | |
211 | if (boot->id == AMIGA_ID_BOOT) | |
212 | { | |
213 | PRINTF("BOOT block at %d, checking checksum\n", i); | |
214 | if (sum_block((struct block_header *)block_buffer) == 0) | |
215 | { | |
216 | PRINTF("Found valid bootcode block\n"); | |
217 | memcpy(&bootcode, boot, sizeof(struct bootcode_block)); | |
218 | return &bootcode; | |
219 | } | |
220 | } | |
221 | } | |
222 | } | |
223 | ||
224 | PRINTF("No boot code found on disk\n"); | |
225 | return 0; | |
226 | } | |
227 | ||
8bde7f77 | 228 | /* |
c7de829c WD |
229 | * Test if the given partition has an Amiga partition table/Rigid |
230 | * Disk block | |
231 | */ | |
232 | int test_part_amiga(block_dev_desc_t *dev_desc) | |
233 | { | |
234 | struct rigid_disk_block *rdb; | |
235 | struct bootcode_block *bootcode; | |
236 | ||
237 | PRINTF("test_part_amiga: Testing for an Amiga RDB partition\n"); | |
8bde7f77 | 238 | |
c7de829c WD |
239 | rdb = get_rdisk(dev_desc); |
240 | if (rdb) | |
241 | { | |
242 | bootcode = get_bootcode(dev_desc); | |
243 | if (bootcode) | |
244 | PRINTF("test_part_amiga: bootable Amiga disk\n"); | |
245 | else | |
246 | PRINTF("test_part_amiga: non-bootable Amiga disk\n"); | |
247 | ||
248 | return 0; | |
249 | } | |
8bde7f77 | 250 | else |
c7de829c WD |
251 | { |
252 | PRINTF("test_part_amiga: no RDB found\n"); | |
253 | return -1; | |
254 | } | |
255 | ||
256 | } | |
257 | ||
8bde7f77 | 258 | /* |
c7de829c WD |
259 | * Find partition number partnum on the given drive. |
260 | */ | |
261 | static struct partition_block *find_partition(block_dev_desc_t *dev_desc, int partnum) | |
262 | { | |
263 | struct rigid_disk_block *rdb; | |
264 | struct partition_block *p; | |
265 | u32 block; | |
266 | ||
267 | PRINTF("Trying to find partition block %d\n", partnum); | |
268 | rdb = get_rdisk(dev_desc); | |
8bde7f77 | 269 | if (!rdb) |
c7de829c WD |
270 | { |
271 | PRINTF("find_partition: no rdb found\n"); | |
272 | return NULL; | |
273 | } | |
8bde7f77 | 274 | |
c7de829c WD |
275 | PRINTF("find_partition: Scanning partition list\n"); |
276 | ||
277 | block = rdb->partition_list; | |
278 | PRINTF("find_partition: partition list at 0x%x\n", block); | |
279 | ||
280 | while (block != 0xFFFFFFFF) | |
281 | { | |
282 | ulong res = dev_desc->block_read(dev_desc->dev, block, 1, | |
283 | (ulong *)block_buffer); | |
284 | if (res == 1) | |
285 | { | |
286 | p = (struct partition_block *)block_buffer; | |
287 | if (p->id == AMIGA_ID_PART) | |
288 | { | |
289 | PRINTF("PART block suspect at 0x%x, checking checksum\n",block); | |
290 | if (sum_block((struct block_header *)p) == 0) | |
291 | { | |
292 | if (partnum == 0) break; | |
8bde7f77 | 293 | else |
c7de829c WD |
294 | { |
295 | partnum--; | |
296 | block = p->next; | |
297 | } | |
298 | } | |
299 | } else block = 0xFFFFFFFF; | |
300 | } else block = 0xFFFFFFFF; | |
301 | } | |
302 | ||
8bde7f77 | 303 | if (block == 0xFFFFFFFF) |
c7de829c WD |
304 | { |
305 | PRINTF("PART block not found\n"); | |
306 | return NULL; | |
307 | } | |
308 | ||
309 | return (struct partition_block *)block_buffer; | |
310 | } | |
311 | ||
8bde7f77 | 312 | /* |
c7de829c WD |
313 | * Get info about a partition |
314 | */ | |
315 | int get_partition_info_amiga (block_dev_desc_t *dev_desc, int part, disk_partition_t *info) | |
316 | { | |
317 | struct partition_block *p = find_partition(dev_desc, part-1); | |
318 | struct amiga_part_geometry *g; | |
319 | u32 disk_type; | |
320 | ||
321 | if (!p) return -1; | |
322 | ||
323 | g = (struct amiga_part_geometry *)&(p->environment); | |
324 | info->start = g->low_cyl * g->block_per_track * g->surfaces; | |
325 | info->size = (g->high_cyl - g->low_cyl + 1) * g->block_per_track * g->surfaces - 1; | |
326 | info->blksz = rdb.block_bytes; | |
327 | bcpl_strcpy(info->name, p->drive_name); | |
8bde7f77 | 328 | |
c7de829c WD |
329 | |
330 | disk_type = g->dos_type; | |
331 | ||
332 | info->type[0] = (disk_type & 0xFF000000)>>24; | |
333 | info->type[1] = (disk_type & 0x00FF0000)>>16; | |
334 | info->type[2] = (disk_type & 0x0000FF00)>>8; | |
335 | info->type[3] = '\\'; | |
336 | info->type[4] = (disk_type & 0x000000FF) + '0'; | |
337 | info->type[5] = 0; | |
8bde7f77 | 338 | |
c7de829c WD |
339 | return 0; |
340 | } | |
341 | ||
342 | void print_part_amiga (block_dev_desc_t *dev_desc) | |
8bde7f77 | 343 | { |
c7de829c WD |
344 | struct rigid_disk_block *rdb; |
345 | struct bootcode_block *boot; | |
346 | struct partition_block *p; | |
347 | u32 block; | |
348 | int i = 1; | |
349 | ||
350 | rdb = get_rdisk(dev_desc); | |
8bde7f77 | 351 | if (!rdb) |
c7de829c WD |
352 | { |
353 | PRINTF("print_part_amiga: no rdb found\n"); | |
354 | return; | |
355 | } | |
8bde7f77 | 356 | |
c7de829c WD |
357 | PRINTF("print_part_amiga: Scanning partition list\n"); |
358 | ||
359 | block = rdb->partition_list; | |
360 | PRINTF("print_part_amiga: partition list at 0x%x\n", block); | |
361 | ||
362 | printf("Summary: DiskBlockSize: %d\n" | |
363 | " Cylinders : %d\n" | |
364 | " Sectors/Track: %d\n" | |
365 | " Heads : %d\n\n", | |
366 | rdb->block_bytes, rdb->cylinders, rdb->sectors, | |
367 | rdb->heads); | |
368 | ||
369 | printf(" First Num. \n" | |
370 | "Nr. Part. Name Block Block Type Boot Priority\n"); | |
371 | ||
372 | while (block != 0xFFFFFFFF) | |
373 | { | |
374 | ulong res; | |
375 | ||
376 | PRINTF("Trying to load block #0x%X\n", block); | |
8bde7f77 | 377 | |
c7de829c WD |
378 | res = dev_desc->block_read(dev_desc->dev, block, 1, |
379 | (ulong *)block_buffer); | |
380 | if (res == 1) | |
381 | { | |
382 | p = (struct partition_block *)block_buffer; | |
383 | if (p->id == AMIGA_ID_PART) | |
384 | { | |
385 | PRINTF("PART block suspect at 0x%x, checking checksum\n",block); | |
386 | if (sum_block((struct block_header *)p) == 0) | |
387 | { | |
388 | printf("%-4d ", i); i++; | |
389 | print_part_info(p); | |
390 | block = p->next; | |
391 | } | |
392 | } else block = 0xFFFFFFFF; | |
393 | } else block = 0xFFFFFFFF; | |
394 | } | |
395 | ||
396 | boot = get_bootcode(dev_desc); | |
397 | if (boot) | |
398 | { | |
399 | printf("Disk is bootable\n"); | |
400 | } | |
401 | } | |
402 | ||
403 | #endif |