arch/m68k-amiga/boot/romcheck.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: m68k-amiga ROM checksum generator
   6     Lang: english
   7  */
   8
   9 #include <stdint.h>
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12 #include <unistd.h>
  13 #include <fcntl.h>
  14 #include <errno.h>
  15
  16 #include <sys/mman.h>
  17
  18 static int amiga_checksum(uint8_t *mem, int size, uint32_t chkoff, int update)
  19 {
  20     uint32_t oldcksum = 0, cksum = 0, prevck = 0;
  21     int i;
  22
  23     for (i = 0; i < size; i+=4) {
  24         uint32_t val = (mem[i+0] << 24) +
  25                        (mem[i+1] << 16) +
  26                        (mem[i+2] <<  8) +
  27                        (mem[i+3] <<  0);
  28
  29         /* Clear old checksum */
  30         if (update && i == chkoff) {
  31                 oldcksum = val;
  32                 val = 0;
  33         }
  34
  35         cksum += val;
  36         if (cksum < prevck)
  37             cksum++;
  38         prevck = cksum;
  39     }
  40
  41     cksum = ~cksum;
  42
  43     if (update && cksum != oldcksum) {
  44         printf("Updating checksum from 0x%08x to 0x%08x\n", oldcksum, cksum);
  45
  46         mem[chkoff + 0] = (cksum >> 24) & 0xff;
  47         mem[chkoff + 1] = (cksum >> 16) & 0xff;
  48         mem[chkoff + 2] = (cksum >>  8) & 0xff;
  49         mem[chkoff + 3] = (cksum >>  0) & 0xff;
  50
  51         return 1;
  52    }
  53
  54    return 0;
  55 }
  56
  57 int main(int argc, char **argv)
  58 {
  59         int err, fd, i;
  60         void *rom;
  61         uint8_t *p;
  62         uint32_t size = 512 * 1024;
  63         off_t len;
  64
  65         fd = open(argv[1], O_RDWR | O_CREAT, 0666);
  66         if (fd < 0) {
  67                 perror(argv[1]);
  68                 return EXIT_FAILURE;
  69         }
  70
  71         /* Pad with 0xff */
  72         for (len = lseek(fd, 0, SEEK_END); len < size; len++) {
  73             unsigned char ff = 0xff;
  74             write(fd, &ff, 1);
  75         }
  76
  77         rom = mmap(NULL, size, PROT_READ | PROT_WRITE,
  78                         MAP_SHARED, fd, 0);
  79         if (rom == MAP_FAILED) {
  80                 perror(argv[1]);
  81                 close(fd);
  82                 return EXIT_FAILURE;
  83         }
  84
  85         /* add interrupt vector offsets, needed by 68000 and 68010 */
  86         p = (uint8_t*)rom + size - 16;
  87         for (i = 0; i < 7; i++) {
  88                 p[i * 2 + 1] = i + 0x18;
  89                 p[i * 2 + 0] = 0;
  90         }
  91
  92         /* set rom size */
  93         p = (uint8_t*)rom + size - 20;
  94         p[0] = size >> 24;
  95         p[1] = size >> 16;
  96         p[2] = size >>  8;
  97         p[3] = size >>  0;
  98
  99         err = amiga_checksum(rom, size, size - 24, 0);
 100         err = amiga_checksum(rom, size, size - 24, 1);
 101
 102         munmap(rom, size);
 103
 104         close(fd);
 105
 106         return EXIT_SUCCESS;
 107 }
 108
 109