1 /*****************************************************************************/
5 /* Assembler output for the sp65 sprite and bitmap utility */
9 /* (C) 2012, Ullrich von Bassewitz */
10 /* Roemerstrasse 52 */
11 /* D-70794 Filderstadt */
12 /* EMail: uz@cc65.org */
15 /* This software is provided 'as-is', without any expressed or implied */
16 /* warranty. In no event will the authors be held liable for any damages */
17 /* arising from the use of this software. */
19 /* Permission is granted to anyone to use this software for any purpose, */
20 /* including commercial applications, and to alter it and redistribute it */
21 /* freely, subject to the following restrictions: */
23 /* 1. The origin of this software must not be misrepresented; you must not */
24 /* claim that you wrote the original software. If you use this software */
25 /* in a product, an acknowledgment in the product documentation would be */
26 /* appreciated but is not required. */
27 /* 2. Altered source versions must be plainly marked as such, and must not */
28 /* be misrepresented as being the original software. */
29 /* 3. This notice may not be removed or altered from any source */
32 /*****************************************************************************/
53 /*****************************************************************************/
55 /*****************************************************************************/
59 static int ValidAsmLabel (const char* L)
60 /* Check an assembler label for validity */
62 /* Must begin with underscore or alphabetic character */
63 if (*L != '_' && !IsAlpha (*L)) {
68 /* Remainder must be as above plus digits */
70 if (*L != '_' && !IsAlNum (*L)) {
82 static unsigned GetBytesPerLine (const Collection* A)
83 /* Return the number of bytes per line from the attribute collection A */
86 unsigned BytesPerLine = 16;
88 /* Check for a bytesperline attribute */
89 const char* V = GetAttrVal (A, "bytesperline");
90 if ((V && sscanf (V, "%u%c", &BytesPerLine, &C) != 1) ||
91 (BytesPerLine < 1 || BytesPerLine > 64)) {
92 Error ("Invalid value for attribute `bytesperline'");
99 static unsigned GetBase (const Collection* A)
100 /* Return the number base from the attribute collection A */
105 /* Check for a base attribute */
106 const char* V = GetAttrVal (A, "base");
107 if ((V && sscanf (V, "%u%c", &Base, &C) != 1) ||
108 (Base != 2 && Base != 10 && Base != 16)) {
109 Error ("Invalid value for attribute `base'");
116 static const char* GetLabel (const Collection* A)
117 /* Return the assembler label from the attribute collection A */
119 /* Check for a label attribute */
120 const char* Label = GetAttrVal (A, "label");
121 if (Label && !ValidAsmLabel (Label)) {
122 Error ("Invalid value for attribute `label'");
129 static const char* GetSegment (const Collection* A)
130 /* Return the segment name from the attribute collection A */
132 /* Check for a label attribute */
133 const char* Seg = GetAttrVal (A, "segment");
134 if (Seg && !ValidAsmLabel (Seg)) {
135 Error ("Invalid value for attribute `segment'");
142 void WriteAsmFile (const StrBuf* Data, const Collection* A)
143 /* Write the contents of Data to the given file in assembler (ca65) format */
150 /* Get the file name */
151 const char* Name = NeedAttrVal (A, "name", "write");
153 /* Check the number of bytes per line */
154 unsigned BytesPerLine = GetBytesPerLine (A);
156 /* Get the number base */
157 unsigned Base = GetBase (A);
159 /* Get the assembler label */
160 const char* Label = GetLabel (A);
162 /* Get the segment */
163 const char* Segment = GetSegment (A);
165 /* Open the output file */
166 F = fopen (Name, "w");
168 Error ("Cannot open output file `%s': %s", Name, strerror (errno));
171 /* Write a readable header */
174 "; This file was generated by %s %s\n"
178 GetVersionAsString ());
181 /* If we have a segment defined, output a segment directive */
183 fprintf (F, ".segment \"%s\"\n\n", Segment);
186 /* If we have an assembler label, output that */
188 fprintf (F, "%s:\n", Label);
192 D = SB_GetConstBuf (Data);
193 Size = SB_GetLen (Data);
198 /* Output one line */
199 unsigned Chunk = Size;
200 if (Chunk > BytesPerLine) {
201 Chunk = BytesPerLine;
203 fputs (" .byte ", F);
204 for (I = 0; I < Chunk; ++I) {
205 unsigned char V = *D++;
211 fprintf (F, "%%%u%u%u%u%u%u%u%u",
212 (V >> 7) & 0x01, (V >> 6) & 0x01,
213 (V >> 5) & 0x01, (V >> 4) & 0x01,
214 (V >> 3) & 0x01, (V >> 2) & 0x01,
215 (V >> 1) & 0x01, (V >> 0) & 0x01);
219 fprintf (F, "%u", V);
223 fprintf (F, "$%02X", V);
230 /* Bump the counters */
234 /* Add an empty line at the end */
238 if (fclose (F) != 0) {
239 Error ("Error closing output file `%s': %s", Name, strerror (errno));