2 // RMAC - Reboot's Macro Assembler for the Atari Jaguar Console System
3 // LISTING.C - Listing Output
4 // Copyright (C) 199x Landon Dyer, 2011-2012 Reboot and Friends
5 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
6 // Source utilised with the kind permission of Landon Dyer
8 // --------------------------------------------------------------------------
9 // 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7
10 // 012345678901234567890123456789012345678901234567890123456789012345678901234567
11 // filename.... Reboot's Macro Assembler N.N.NN (Unknown)
12 // nnnnn aaaaaaaa dddddddddddddddddddd T source code
13 // nnnnn aaaaaaaa dddddddddddddddd
23 char * list_fname; // Listing filename
24 uint8_t subttl[TITLESIZ]; // Current subtitle
25 int listing; // Listing level
26 int pagelen = 61; // Lines on a page
27 int nlines; // #lines on page so far
28 LONG lsloc; // `sloc' at start of line
31 static int lcursect; // `cursect' at start of line
32 static int llineno; // `curlineno' at start of line
33 static int pageno; // Current page number
34 static int pagewidth; // #columns on a page
35 static int subflag; // 0, don't do .eject on subttl (set 1)
36 static char lnimage[IMAGESIZ]; // Image of output line
37 static char title[TITLESIZ]; // Current title
38 static char datestr[20]; // Current date dd-mon-yyyy
39 static char timestr[20]; // Current time hh:mm:ss [am|pm]
40 static char buf[IMAGESIZ]; // Buffer for numbers
41 static long unused; // For supressing 'write' warnings
43 static char * month[16] = {
44 "", "Jan", "Feb", "Mar",
45 "Apr", "May", "Jun", "Jul",
46 "Aug", "Sep", "Oct", "Nov",
52 // Eject the page, reset the line count and bump the page number
67 // Return GEMDOS format date
76 tm = localtime(&tloc);
77 v = ((tm->tm_year - 80) << 9) | ((tm->tm_mon + 1) << 5) | tm->tm_mday;
84 // Return GEMDOS format time
93 tm = localtime(&tloc);
94 v = (tm->tm_hour << 11) | (tm->tm_min) << 5 | tm->tm_sec;
101 // Generate a time string
103 void time_string(char * buf, VALUE time)
118 sprintf(buf, "%d:%02d:%02d %s",
119 hour, (int)((time >> 5) & 0x3F), (int)((time & 0x1F) << 1), ampm);
124 // Generate a date string
126 void date_string(char * buf, VALUE date)
128 sprintf(buf, "%d-%s-%d",
129 (int)(date & 0x1F), month[(date >> 5) & 0xF], (int)((date >> 9) + 1980));
134 // Transform letters a-f in the address and data columns of the listing to
135 // uppercase. (People seem to like uppercase hex better in assembly-language
138 void uc_ln(char * ln)
143 for(i=LOC_COL; i<SRC_COL; ++i)
145 if ((j = ln[i]) >= 'a' && j <= 'f')
146 ln[i] = (char)(j - 0x20);
152 // Fill region 'dest' with 'len' characters 'c' and null terminate the region
154 void lnfill(char * dest, int len, char chr)
164 // Create listing file with the appropriate name
166 void list_setup(void)
170 strcpy(fnbuf, list_fname);
174 strcpy(fnbuf, firstfname);
175 fext(fnbuf, ".prn", 1);
180 if ((list_fd = open(fnbuf, _OPEN_FLAGS, _PERM_MODE)) < 0)
186 // Tag listing with a character, typically for errors or warnings
188 void taglist(char chr)
190 lnimage[TAG_COL + 1] = chr;
195 // Print a line to the listing file
197 void println(const char * ln)
201 // Create listing file, if necessary
202 if (list_fname != NULL)
206 unused = write(list_fd, ln, length);
207 unused = write(list_fd, "\n", 1L);
212 // Ship line 'ln' out; do page breaks and title stuff
214 void ship_ln(const char * ln)
216 // If listing level is <= 0, then don't print anything
220 // Notice bottom of page
221 if (nlines >= pagelen - BOT_MAR)
224 // Print title, boilerplate, and subtitle at top of page
229 date_string(datestr, dos_date());
230 time_string(timestr, dos_time());
232 "%-40s%-20s Page %-4d %s %s RMAC %01i.%01i.%02i (%s)",
233 title, curfname, pageno, timestr, datestr, MAJOR, MINOR, PATCH,
236 sprintf(buf, "%s", subttl);
248 // Initialize listing generator
250 void InitListing(void)
252 extern VALUE dos_date(), dos_time();
261 date_string(datestr, dos_date());
262 time_string(timestr, dos_time());
277 DEBUG printf("~list: lsloc=$%X sloc=$%X\n", lsloc, sloc);
281 sprintf(buf, "%08X", lsloc);
282 strncpy(lnimage + LOC_COL, buf, 8);
285 if (llineno != curlineno)
287 sprintf(buf, "%5d", llineno);
288 strncpy(lnimage + LN_COL, buf, 5);
291 // List bytes only when section stayed the same and the section is not a
292 // "no-data" (SBSS) section. An extra annoyance is caused by "ds.b" in a
293 // microprocessor mode, which prints out bytes of zero as if they had been
294 // deposited with dcb. The fix (kludge) is an extra variable which records
295 // the fact that a 'ds.x' directive generated all the data, and it
296 // shouldn't be listed
297 SaveSection(); // Update section variables
299 if (lcursect == cursect && (sect[lcursect].scattr & SBSS) == 0
300 && lsloc != sloc && just_bss == 0)
302 ch = sect[lcursect].sfcode;
304 for(; ch!=NULL; ch=ch->chnext)
306 if (lsloc >= ch->chloc && lsloc < (ch->chloc + ch->ch_size))
310 // Fatal: Can't find chunk holding code
314 interror(6); // Can't find generated code in section
317 p = ch->chptr + (lsloc - ch->chloc);
321 for(count=sloc-lsloc; count--; col+=2, ++lsloc)
329 lnfill(lnimage, SRC_COL, SPACE); // Fill with spaces
330 sprintf(buf, "%08X", lsloc);
331 strncpy(lnimage + LOC_COL, buf, 8);
334 if (lsloc >= (ch->chloc + ch->ch_size))
336 if ((ch = ch->chnext) == NULL)
343 fixcount = fixtest(lcursect, lsloc);
349 p++; // Advance anyway
352 sprintf(buf, "%02x", *p++ & 0xff);
354 strncpy(lnimage + col, buf, 2);
357 // Flush partial line
373 // Copy current (saved) line to output buffer and tag it with a character
375 void lstout(char tag)
384 lnfill(lnimage, SRC_COL, SPACE); // Fill with spaces
385 lnimage[TAG_COL] = tag;
387 // Copy line image and handle control characters
388 d = lnimage + SRC_COL;
390 for(s=lnbuf; *s; ++s)
392 if (*s >= 0x20 || *s == '\t')
397 *d++ = (char)(*s + 0x40);
406 // Output a value to listing
408 int listvalue(VALUE v)
410 sprintf(buf, "=%08X", v);
411 strncpy(lnimage + DATA_COL - 1, buf, 9);
417 * .subttl [-] "string"
420 * o leading '-' supresses page eject
421 * o don't .eject on first .subttl, but do so on all other ones,
422 * o arrange not to print the .subttl directive
437 return error("missing string");
439 // strcpy(subttl, (char *)tok[1]);
440 strcpy(subttl, string[tok[1]]);
444 // Always eject on pages 2+
445 if (ejectok && (subflag || pageno > 1))
455 // Set title on titles not on the first page, do an eject and clobber the
461 return error("missing string");
463 // strcpy(title, (char*)tok[1]);
464 strcpy(title, string[tok[1]]);