blob: f8dae008d74a8202d6cfcea56b0eba789ea3ead4 [file] [log] [blame]
wdenkc7de8292002-11-19 11:04:11 +00001/*
2 * (C) Copyright 2001
wdenk8bde7f72003-06-27 21:31:46 +00003 * Hans-Joerg Frieden, Hyperion Entertainment
wdenkc7de8292002-11-19 11:04:11 +00004 * Hans-JoergF@hyperion-entertainment.com
5 *
Wolfgang Denk1a459662013-07-08 09:37:19 +02006 * SPDX-License-Identifier: GPL-2.0+
wdenkc7de8292002-11-19 11:04:11 +00007 */
8#include <common.h>
9#include <command.h>
10#include <ide.h>
wdenkc7de8292002-11-19 11:04:11 +000011#include "part_amiga.h"
12
Stephen Warren2c1af9d2013-02-28 15:03:46 +000013#ifdef HAVE_BLOCK_DEVICE
wdenkc7de8292002-11-19 11:04:11 +000014
15#undef AMIGA_DEBUG
16
17#ifdef AMIGA_DEBUG
18#define PRINTF(fmt, args...) printf(fmt ,##args)
19#else
20#define PRINTF(fmt, args...)
21#endif
22
23struct block_header
24{
25 u32 id;
26 u32 summed_longs;
27 s32 chk_sum;
28};
29
30static unsigned char block_buffer[DEFAULT_SECTOR_SIZE];
31static struct rigid_disk_block rdb = {0};
32static struct bootcode_block bootcode = {0};
33
34/*
35 * Copy a bcpl to a c string
36 */
37static void bcpl_strcpy(char *to, char *from)
38{
39 int len = *from++;
40
41 while (len)
42 {
43 *to++ = *from++;
44 len--;
45 }
46 *to = 0;
47}
48
49/*
50 * Print a BCPL String. BCPL strings start with a byte with the length
51 * of the string, and don't contain a terminating nul character
52 */
53static void bstr_print(char *string)
54{
55 int len = *string++;
56 char buffer[256];
57 int i;
wdenk8bde7f72003-06-27 21:31:46 +000058
wdenkc7de8292002-11-19 11:04:11 +000059 i = 0;
60 while (len)
61 {
62 buffer[i++] = *string++;
63 len--;
64 }
65
66 buffer[i] = 0;
67 printf("%-10s", buffer);
68}
69
70/*
71 * Sum a block. The checksum of a block must end up at zero
72 * to be valid. The chk_sum field is selected so that adding
73 * it yields zero.
74 */
75int sum_block(struct block_header *header)
76{
77 s32 *block = (s32 *)header;
78 u32 i;
79 s32 sum = 0;
80
81 for (i = 0; i < header->summed_longs; i++)
82 sum += *block++;
wdenk8bde7f72003-06-27 21:31:46 +000083
wdenkc7de8292002-11-19 11:04:11 +000084 return (sum != 0);
85}
86
87/*
88 * Print an AmigaOS disk type. Disk types are a four-byte identifier
89 * describing the file system. They are usually written as a three-letter
90 * word followed by a backslash and a version number. For example,
91 * DOS\0 would be the original file system. SFS\0 would be SmartFileSystem.
92 * DOS\1 is FFS.
93 */
94static void print_disk_type(u32 disk_type)
95{
96 char buffer[6];
97 buffer[0] = (disk_type & 0xFF000000)>>24;
98 buffer[1] = (disk_type & 0x00FF0000)>>16;
99 buffer[2] = (disk_type & 0x0000FF00)>>8;
100 buffer[3] = '\\';
101 buffer[4] = (disk_type & 0x000000FF) + '0';
102 buffer[5] = 0;
103 printf("%s", buffer);
104}
105
106/*
107 * Print the info contained within the given partition block
108 */
109static void print_part_info(struct partition_block *p)
110{
111 struct amiga_part_geometry *g;
wdenk8bde7f72003-06-27 21:31:46 +0000112
wdenkc7de8292002-11-19 11:04:11 +0000113 g = (struct amiga_part_geometry *)&(p->environment);
114
115 bstr_print(p->drive_name);
wdenk8bde7f72003-06-27 21:31:46 +0000116 printf("%6d\t%6d\t",
117 g->low_cyl * g->block_per_track * g->surfaces ,
wdenkc7de8292002-11-19 11:04:11 +0000118 (g->high_cyl - g->low_cyl + 1) * g->block_per_track * g->surfaces - 1);
119 print_disk_type(g->dos_type);
120 printf("\t%5d\n", g->boot_priority);
121}
122
123/*
124 * Search for the Rigid Disk Block. The rigid disk block is required
125 * to be within the first 16 blocks of a drive, needs to have
126 * the ID AMIGA_ID_RDISK ('RDSK') and needs to have a valid
127 * sum-to-zero checksum
128 */
Simon Glass4101f682016-02-29 15:25:34 -0700129struct rigid_disk_block *get_rdisk(struct blk_desc *dev_desc)
wdenkc7de8292002-11-19 11:04:11 +0000130{
131 int i;
132 int limit;
133 char *s;
134
Simon Glass00caae62017-08-03 12:22:12 -0600135 s = env_get("amiga_scanlimit");
wdenkc7de8292002-11-19 11:04:11 +0000136 if (s)
unsik Kim75eb82e2009-02-25 11:31:24 +0900137 limit = simple_strtoul(s, NULL, 10);
wdenkc7de8292002-11-19 11:04:11 +0000138 else
139 limit = AMIGA_BLOCK_LIMIT;
140
141 for (i=0; i<limit; i++)
142 {
Simon Glass2a981dc2016-02-29 15:25:52 -0700143 ulong res = blk_dread(dev_desc, i, 1, (ulong *)block_buffer);
wdenkc7de8292002-11-19 11:04:11 +0000144 if (res == 1)
145 {
146 struct rigid_disk_block *trdb = (struct rigid_disk_block *)block_buffer;
147 if (trdb->id == AMIGA_ID_RDISK)
148 {
149 PRINTF("Rigid disk block suspect at %d, checking checksum\n",i);
150 if (sum_block((struct block_header *)block_buffer) == 0)
151 {
152 PRINTF("FOUND\n");
153 memcpy(&rdb, trdb, sizeof(struct rigid_disk_block));
154 return (struct rigid_disk_block *)&rdb;
155 }
156 }
157 }
158 }
159 PRINTF("Done scanning, no RDB found\n");
160 return NULL;
161}
162
wdenk8bde7f72003-06-27 21:31:46 +0000163/*
wdenkc7de8292002-11-19 11:04:11 +0000164 * Search for boot code
165 * Again, the first boot block must be located somewhere in the first 16 blocks, or rooted in the
166 * Ridgid disk block
167 */
168
Simon Glass4101f682016-02-29 15:25:34 -0700169struct bootcode_block *get_bootcode(struct blk_desc *dev_desc)
wdenkc7de8292002-11-19 11:04:11 +0000170{
171 int i;
172 int limit;
173 char *s;
174
Simon Glass00caae62017-08-03 12:22:12 -0600175 s = env_get("amiga_scanlimit");
wdenkc7de8292002-11-19 11:04:11 +0000176 if (s)
unsik Kim75eb82e2009-02-25 11:31:24 +0900177 limit = simple_strtoul(s, NULL, 10);
wdenkc7de8292002-11-19 11:04:11 +0000178 else
179 limit = AMIGA_BLOCK_LIMIT;
180
181 PRINTF("Scanning for BOOT from 0 to %d\n", limit);
182
183 for (i = 0; i < limit; i++)
184 {
Simon Glass2a981dc2016-02-29 15:25:52 -0700185 ulong res = blk_dread(dev_desc, i, 1, (ulong *)block_buffer);
wdenkc7de8292002-11-19 11:04:11 +0000186 if (res == 1)
187 {
188 struct bootcode_block *boot = (struct bootcode_block *)block_buffer;
189 if (boot->id == AMIGA_ID_BOOT)
190 {
191 PRINTF("BOOT block at %d, checking checksum\n", i);
192 if (sum_block((struct block_header *)block_buffer) == 0)
193 {
194 PRINTF("Found valid bootcode block\n");
195 memcpy(&bootcode, boot, sizeof(struct bootcode_block));
196 return &bootcode;
197 }
198 }
199 }
200 }
201
202 PRINTF("No boot code found on disk\n");
203 return 0;
204}
205
wdenk8bde7f72003-06-27 21:31:46 +0000206/*
wdenkc7de8292002-11-19 11:04:11 +0000207 * Test if the given partition has an Amiga partition table/Rigid
208 * Disk block
209 */
Simon Glass084bf4c2016-02-29 15:26:04 -0700210static int part_test_amiga(struct blk_desc *dev_desc)
wdenkc7de8292002-11-19 11:04:11 +0000211{
212 struct rigid_disk_block *rdb;
213 struct bootcode_block *bootcode;
214
Simon Glass084bf4c2016-02-29 15:26:04 -0700215 PRINTF("part_test_amiga: Testing for an Amiga RDB partition\n");
wdenk8bde7f72003-06-27 21:31:46 +0000216
wdenkc7de8292002-11-19 11:04:11 +0000217 rdb = get_rdisk(dev_desc);
218 if (rdb)
219 {
220 bootcode = get_bootcode(dev_desc);
221 if (bootcode)
Simon Glass084bf4c2016-02-29 15:26:04 -0700222 PRINTF("part_test_amiga: bootable Amiga disk\n");
wdenkc7de8292002-11-19 11:04:11 +0000223 else
Simon Glass084bf4c2016-02-29 15:26:04 -0700224 PRINTF("part_test_amiga: non-bootable Amiga disk\n");
wdenkc7de8292002-11-19 11:04:11 +0000225
226 return 0;
227 }
wdenk8bde7f72003-06-27 21:31:46 +0000228 else
wdenkc7de8292002-11-19 11:04:11 +0000229 {
Simon Glass084bf4c2016-02-29 15:26:04 -0700230 PRINTF("part_test_amiga: no RDB found\n");
wdenkc7de8292002-11-19 11:04:11 +0000231 return -1;
232 }
233
234}
235
wdenk8bde7f72003-06-27 21:31:46 +0000236/*
wdenkc7de8292002-11-19 11:04:11 +0000237 * Find partition number partnum on the given drive.
238 */
Simon Glass4101f682016-02-29 15:25:34 -0700239static struct partition_block *find_partition(struct blk_desc *dev_desc,
240 int partnum)
wdenkc7de8292002-11-19 11:04:11 +0000241{
242 struct rigid_disk_block *rdb;
243 struct partition_block *p;
244 u32 block;
245
246 PRINTF("Trying to find partition block %d\n", partnum);
247 rdb = get_rdisk(dev_desc);
wdenk8bde7f72003-06-27 21:31:46 +0000248 if (!rdb)
wdenkc7de8292002-11-19 11:04:11 +0000249 {
250 PRINTF("find_partition: no rdb found\n");
251 return NULL;
252 }
wdenk8bde7f72003-06-27 21:31:46 +0000253
wdenkc7de8292002-11-19 11:04:11 +0000254 PRINTF("find_partition: Scanning partition list\n");
255
256 block = rdb->partition_list;
257 PRINTF("find_partition: partition list at 0x%x\n", block);
258
259 while (block != 0xFFFFFFFF)
260 {
Simon Glass2a981dc2016-02-29 15:25:52 -0700261 ulong res = blk_dread(dev_desc, block, 1, (ulong *)block_buffer);
wdenkc7de8292002-11-19 11:04:11 +0000262 if (res == 1)
263 {
264 p = (struct partition_block *)block_buffer;
265 if (p->id == AMIGA_ID_PART)
266 {
267 PRINTF("PART block suspect at 0x%x, checking checksum\n",block);
268 if (sum_block((struct block_header *)p) == 0)
269 {
270 if (partnum == 0) break;
wdenk8bde7f72003-06-27 21:31:46 +0000271 else
wdenkc7de8292002-11-19 11:04:11 +0000272 {
273 partnum--;
274 block = p->next;
275 }
276 }
277 } else block = 0xFFFFFFFF;
278 } else block = 0xFFFFFFFF;
279 }
280
wdenk8bde7f72003-06-27 21:31:46 +0000281 if (block == 0xFFFFFFFF)
wdenkc7de8292002-11-19 11:04:11 +0000282 {
283 PRINTF("PART block not found\n");
284 return NULL;
285 }
286
287 return (struct partition_block *)block_buffer;
288}
289
wdenk8bde7f72003-06-27 21:31:46 +0000290/*
wdenkc7de8292002-11-19 11:04:11 +0000291 * Get info about a partition
292 */
Simon Glass3e8bd462016-02-29 15:25:48 -0700293static int part_get_info_amiga(struct blk_desc *dev_desc, int part,
Simon Glass96e5b032016-02-29 15:25:47 -0700294 disk_partition_t *info)
wdenkc7de8292002-11-19 11:04:11 +0000295{
296 struct partition_block *p = find_partition(dev_desc, part-1);
297 struct amiga_part_geometry *g;
298 u32 disk_type;
299
300 if (!p) return -1;
301
302 g = (struct amiga_part_geometry *)&(p->environment);
303 info->start = g->low_cyl * g->block_per_track * g->surfaces;
304 info->size = (g->high_cyl - g->low_cyl + 1) * g->block_per_track * g->surfaces - 1;
305 info->blksz = rdb.block_bytes;
Simon Glass95a6f9d2016-02-29 15:25:45 -0700306 bcpl_strcpy((char *)info->name, p->drive_name);
wdenk8bde7f72003-06-27 21:31:46 +0000307
wdenkc7de8292002-11-19 11:04:11 +0000308
309 disk_type = g->dos_type;
310
311 info->type[0] = (disk_type & 0xFF000000)>>24;
312 info->type[1] = (disk_type & 0x00FF0000)>>16;
313 info->type[2] = (disk_type & 0x0000FF00)>>8;
314 info->type[3] = '\\';
315 info->type[4] = (disk_type & 0x000000FF) + '0';
316 info->type[5] = 0;
wdenk8bde7f72003-06-27 21:31:46 +0000317
wdenkc7de8292002-11-19 11:04:11 +0000318 return 0;
319}
320
Simon Glass084bf4c2016-02-29 15:26:04 -0700321static void part_print_amiga(struct blk_desc *dev_desc)
wdenk8bde7f72003-06-27 21:31:46 +0000322{
wdenkc7de8292002-11-19 11:04:11 +0000323 struct rigid_disk_block *rdb;
324 struct bootcode_block *boot;
325 struct partition_block *p;
326 u32 block;
327 int i = 1;
328
329 rdb = get_rdisk(dev_desc);
wdenk8bde7f72003-06-27 21:31:46 +0000330 if (!rdb)
wdenkc7de8292002-11-19 11:04:11 +0000331 {
Simon Glass084bf4c2016-02-29 15:26:04 -0700332 PRINTF("part_print_amiga: no rdb found\n");
wdenkc7de8292002-11-19 11:04:11 +0000333 return;
334 }
wdenk8bde7f72003-06-27 21:31:46 +0000335
Simon Glass084bf4c2016-02-29 15:26:04 -0700336 PRINTF("part_print_amiga: Scanning partition list\n");
wdenkc7de8292002-11-19 11:04:11 +0000337
338 block = rdb->partition_list;
Simon Glass084bf4c2016-02-29 15:26:04 -0700339 PRINTF("part_print_amiga: partition list at 0x%x\n", block);
wdenkc7de8292002-11-19 11:04:11 +0000340
341 printf("Summary: DiskBlockSize: %d\n"
342 " Cylinders : %d\n"
343 " Sectors/Track: %d\n"
344 " Heads : %d\n\n",
345 rdb->block_bytes, rdb->cylinders, rdb->sectors,
346 rdb->heads);
347
348 printf(" First Num. \n"
349 "Nr. Part. Name Block Block Type Boot Priority\n");
350
351 while (block != 0xFFFFFFFF)
352 {
353 ulong res;
354
355 PRINTF("Trying to load block #0x%X\n", block);
wdenk8bde7f72003-06-27 21:31:46 +0000356
Simon Glass2a981dc2016-02-29 15:25:52 -0700357 res = blk_dread(dev_desc, block, 1, (ulong *)block_buffer);
wdenkc7de8292002-11-19 11:04:11 +0000358 if (res == 1)
359 {
360 p = (struct partition_block *)block_buffer;
361 if (p->id == AMIGA_ID_PART)
362 {
363 PRINTF("PART block suspect at 0x%x, checking checksum\n",block);
364 if (sum_block((struct block_header *)p) == 0)
365 {
366 printf("%-4d ", i); i++;
367 print_part_info(p);
368 block = p->next;
369 }
370 } else block = 0xFFFFFFFF;
371 } else block = 0xFFFFFFFF;
372 }
373
374 boot = get_bootcode(dev_desc);
375 if (boot)
376 {
377 printf("Disk is bootable\n");
378 }
379}
380
Simon Glass96e5b032016-02-29 15:25:47 -0700381U_BOOT_PART_TYPE(amiga) = {
382 .name = "AMIGA",
383 .part_type = PART_TYPE_AMIGA,
Petr Kulhavy87b85302016-09-09 10:27:15 +0200384 .max_entries = AMIGA_ENTRY_NUMBERS,
Simon Glass3e8bd462016-02-29 15:25:48 -0700385 .get_info = part_get_info_amiga,
Simon Glass084bf4c2016-02-29 15:26:04 -0700386 .print = part_print_amiga,
387 .test = part_test_amiga,
Simon Glass96e5b032016-02-29 15:25:47 -0700388};
389
wdenkc7de8292002-11-19 11:04:11 +0000390#endif