FreeCalypso > hg > fc-selenite

annotate helpers/mokosrec2bin.c @ 134:7d50d8d13711

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
FFS code sync with Magnetite + gcc version fix This change brings the new flash autodetection for FC and Pirelli targets from Magnetite, and should also fix the gcc version for C1xx and gtamodem targets, which were previously broken because they used TI's original flash autodetect code (which operates at address 0) while the boot ROM is mapped there.
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 11 Dec 2018 08:43:25 +0000
parents 47037439ed64
children 4c555a7a3435
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
115
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * GSM device firmwares that are built with TI's TMS470 toolchain in TI's
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 * canonical way come out in TI's *.m0 format produced by TI's hex470 tool.
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 * TI's *.m0 is a variant of the classic S-record format from Motorola,
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 * but the specific variant depends on the -memwidth and -romwidth options
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 * with which the hex470 tool is run.
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 *
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 * In TI's canonical architecture (as opposed to Mot/Compal's heavily modified
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 * version) this hex470 tool is run with -memwidth 16 -romwidth 16 options,
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 * and the *.m0 file comes out in the format variant which we have nicknamed
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 * "moko-style" after its most famous user. This variant is a byte-reversed
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 * S-record format in that each 16-bit word is byte-reversed relative to the
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13 * native byte order of the ARM7 processor. (This strange byte order actually
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 * makes some sense if one views the image as a long array of 16-bit hex
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 * values; 16 bits is the width of the flash memory on Calypso GSM devices and
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 * thus the natural unit size for flash programming.)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17 *
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 * The present mokosrec2bin utility converts these "moko-style" S-record files
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 * to straight binary, a conversion that includes flipping the order of bytes.
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 */
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 #include <sys/types.h>
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
23 #include <stdio.h>
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
24 #include <ctype.h>
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
25 #include <string.h>
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
26 #include <strings.h>
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
27 #include <stdlib.h>
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
28
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
29 char *infname;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
30 FILE *inf, *outf;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
31 u_char fillbyte;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
32 char srecbuf[80];
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
33 u_char srecbin[40];
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
34 int lineno, state;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
35 u_long lastaddr;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
36
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
37 u_char header[6] = {0x06, 0x00, 0x00, 'H', 'D', 'R'};
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
38
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
39 decode_hex_byte(s)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
40 char *s;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
41 {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
42 register int u, l;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
43
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
44 if (!isxdigit(s[0]) || !isxdigit(s[1]))
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
45 return(-1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
46 if (isdigit(s[0]))
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
47 u = s[0] - '0';
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
48 else if (isupper(s[0]))
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
49 u = s[0] - 'A' + 10;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
50 else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
51 u = s[0] - 'a' + 10;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
52 if (isdigit(s[1]))
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
53 l = s[1] - '0';
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
54 else if (isupper(s[1]))
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
55 l = s[1] - 'A' + 10;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
56 else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
57 l = s[1] - 'a' + 10;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
58 return((u << 4) | l);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
59 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
60
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
61 srec2bin()
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
62 {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
63 register int i, l, b;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
64
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
65 l = decode_hex_byte(srecbuf + 2);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
66 if (l < 1) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
67 fprintf(stderr, "%s line %d: S-record length octet is bad\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
68 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
69 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
70 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
71 srecbin[0] = l;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
72 if (l > 35) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
73 fprintf(stderr,
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
74 "%s line %d: S-record is longer than expected\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
75 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
76 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
77 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
78 for (i = 1; i <= l; i++) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
79 b = decode_hex_byte(srecbuf + i*2 + 2);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
80 if (b < 0) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
81 fprintf(stderr, "%s line %d: hex decode error\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
82 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
83 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
84 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
85 srecbin[i] = b;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
86 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
87 return(0);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
88 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
89
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
90 srec_cksum()
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
91 {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
92 u_char accum;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
93 register int i, len;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
94
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
95 len = srecbin[0] + 1;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
96 accum = 0;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
97 for (i = 0; i < len; i++)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
98 accum += srecbin[i];
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
99 if (accum != 0xFF) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
100 fprintf(stderr, "%s line %d: bad checksum\n", infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
101 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
102 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
103 return(0);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
104 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
105
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
106 main(argc, argv)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
107 char **argv;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
108 {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
109 register int i;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
110 u_long curaddr;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
111 int datalen;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
112
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
113 if (argc < 3 || argc > 4) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
114 usage: fprintf(stderr, "usage: %s input.m0 output.bin [fill-byte]\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
115 argv[0]);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
116 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
117 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
118 infname = argv[1];
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
119 inf = fopen(infname, "r");
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
120 if (!inf) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
121 perror(infname);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
122 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
123 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
124 if (argc > 3) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
125 i = decode_hex_byte(argv[3]);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
126 if (i >= 0)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
127 fillbyte = i;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
128 else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
129 goto usage;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
130 } else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
131 fillbyte = 0;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
132
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
133 state = 0;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
134 for (lineno = 1; ; lineno++) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
135 if (!fgets(srecbuf, sizeof srecbuf, inf)) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
136 fprintf(stderr, "%s: premature EOF\n", infname);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
137 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
138 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
139 if (srecbuf[0] != 'S') {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
140 fprintf(stderr, "%s line %d: not an S-record\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
141 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
142 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
143 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
144 switch (srecbuf[1]) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
145 case '0':
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
146 if (state == 0)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
147 break;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
148 else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
149 goto badtype;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
150 case '3':
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
151 if (state == 0)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
152 goto badtype;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
153 else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
154 break;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
155 case '7':
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
156 if (state == 2)
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
157 break;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
158 else
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
159 goto badtype;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
160 default:
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
161 badtype:
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
162 fprintf(stderr,
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
163 "%s line %d: S-record type unexpected\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
164 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
165 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
166 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
167 srec2bin();
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
168 srec_cksum();
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
169 if (state == 0) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
170 if (bcmp(srecbin, header, 6)) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
171 fprintf(stderr, "%s: expected header missing\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
172 infname);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
173 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
174 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
175 state = 1;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
176 continue;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
177 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
178 switch (srecbuf[1]) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
179 case '3':
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
180 if (srecbin[0] < 6) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
181 fprintf(stderr,
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
182 "%s line %d: S3 record is too short\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
183 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
184 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
185 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
186 curaddr = (srecbin[1] << 24) | (srecbin[2] << 16) |
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
187 (srecbin[3] << 8) | srecbin[4];
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
188 if (curaddr & 1) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
189 fprintf(stderr, "%s line %d: odd address\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
190 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
191 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
192 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
193 datalen = srecbin[0] - 5;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
194 if (datalen & 1) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
195 fprintf(stderr, "%s line %d: odd data length\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
196 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
197 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
198 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
199 if (state < 2) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
200 outf = fopen(argv[2], "w");
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
201 if (!outf) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
202 perror(argv[2]);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
203 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
204 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
205 state = 2;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
206 lastaddr = 0;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
207 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
208 if (curaddr < lastaddr) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
209 fprintf(stderr,
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
210 "%s line %d: address going backwards\n",
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
211 infname, lineno);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
212 exit(1);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
213 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
214 while (lastaddr < curaddr) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
215 putc(fillbyte, outf);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
216 lastaddr++;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
217 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
218 for (i = 0; i < datalen; i += 2) {
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
219 putc(srecbin[i + 6], outf);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
220 putc(srecbin[i + 5], outf);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
221 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
222 lastaddr = curaddr + datalen;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
223 continue;
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
224 case '7':
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
225 fclose(outf);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
226 exit(0);
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
227 default:
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
228 abort();
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
229 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
230 }
47037439ed64 mokosrec2bin.c brought into helpers like in Magnetite
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
231 }