LWTools: lwasm/output.c annotate

annotate lwasm/output.c @ 425:9f0448022f1f

Fix address overflows in SREC and IHEX file formats Thanks to hider <stego@satx.rr.com> for pointing out an overflow that caused 16 bit addresses to be output as 5 hex digits in cases where an address counter wrapped. Simply mask the addresses down to 16 bits.

author	William Astle <lost@l-w.ca>
date	Thu, 03 Nov 2016 21:36:17 -0600
parents	7f538053492c
children	58cafa61ab40

rev	line source
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	2 output.c
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	3 Copyright © 2009, 2010 William Astle
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	4
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	5 This file is part of LWASM.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	6
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	7 LWASM is free software: you can redistribute it and/or modify it under the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	8 terms of the GNU General Public License as published by the Free Software
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	9 Foundation, either version 3 of the License, or (at your option) any later
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	10 version.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	11
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	12 This program is distributed in the hope that it will be useful, but WITHOUT
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	15 more details.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	16
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	17 You should have received a copy of the GNU General Public License along with
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	18 this program. If not, see <http://www.gnu.org/licenses/>.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	19
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	20
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	21 Contains the code for actually outputting the assembled code
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	22 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	23 #include <errno.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	24 #include <stdio.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	25 #include <string.h>
360 ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	26
ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	27 #ifndef _MSC_VER
ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	28 #include <unistd.h> // for unlink
ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	29 #endif
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	30
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	31 #include <lw_alloc.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	32 #include <lw_expr.h>
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	33
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	34 #include "lwasm.h"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	35
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	36 void write_code_raw(asmstate_t as, FILE of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	37 void write_code_decb(asmstate_t as, FILE of);
406 4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	38 void write_code_BASIC(asmstate_t as, FILE of);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	39 void write_code_rawrel(asmstate_t as, FILE of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	40 void write_code_obj(asmstate_t as, FILE of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	41 void write_code_os9(asmstate_t as, FILE of);
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	42 void write_code_hex(asmstate_t as, FILE of);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	43 void write_code_srec(asmstate_t as, FILE of);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	44 void write_code_ihex(asmstate_t as, FILE of);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	45
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	46 // this prevents warnings about not using the return value of fwrite()
221 2b784a28428e Silence a few warnings William Astle <lost@l-w.ca> parents: 195 diff changeset	47 // r++ prevents the "set but not used" warnings; should be optimized out
2b784a28428e Silence a few warnings William Astle <lost@l-w.ca> parents: 195 diff changeset	48 #define writebytes(s, l, c, f) do { int r; r = fwrite((s), (l), (c), (f)); r++; } while (0)
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	49
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	50 void do_output(asmstate_t *as)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	51 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	52 FILE *of;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	53
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	54 if (as -> errorcount > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	55 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	56 fprintf(stderr, "Not doing output due to assembly errors.\n");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	57 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	58 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	59
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	60 of = fopen(as -> output_file, "wb");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	61 if (!of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	62 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	63 fprintf(stderr, "Cannot open '%s' for output", as -> output_file);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	64 perror("");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	65 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	66 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	67
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	68 switch (as -> output_format)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	69 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	70 case OUTPUT_RAW:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	71 write_code_raw(as, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	72 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	73
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	74 case OUTPUT_DECB:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	75 write_code_decb(as, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	76 break;
406 4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	77
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	78 case OUTPUT_BASIC:
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	79 write_code_BASIC(as, of);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	80 break;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	81
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	82 case OUTPUT_RAWREL:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	83 write_code_rawrel(as, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	84 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	85
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	86 case OUTPUT_OBJ:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	87 write_code_obj(as, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	88 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	89
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	90 case OUTPUT_OS9:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	91 write_code_os9(as, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	92 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	93
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	94 case OUTPUT_HEX:
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	95 write_code_hex(as, of);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	96 break;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	97
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	98 case OUTPUT_SREC:
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	99 write_code_srec(as, of);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	100 break;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	101
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	102 case OUTPUT_IHEX:
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	103 write_code_ihex(as, of);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	104 break;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	105
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	106 default:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	107 fprintf(stderr, "BUG: unrecognized output format when generating output file\n");
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	108 fclose(of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	109 unlink(as -> output_file);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	110 return;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	111 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	112
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	113 fclose(of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	114 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	115
406 4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	116 int write_code_BASIC_fprintf(FILE of, int linelength, int linenumber, int value)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	117 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	118 if (linelength > 247)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	119 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	120 fprintf(of, "\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	121 linelength = fprintf(of, "%d DATA ", *linenumber);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	122 *linenumber += 10;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	123 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	124 else
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	125 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	126 linelength += fprintf(of, ",");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	127 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	128 linelength += fprintf(of, "%d", value);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	129
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	130 return linelength;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	131 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	132
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	133 void write_code_BASIC(asmstate_t as, FILE of)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	134 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	135 line_t *cl;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	136 line_t *startblock = as -> line_head;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	137 line_t *endblock;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	138 int linenumber, linelength, startaddress, lastaddress, address;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	139 int outidx;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	140
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	141 fprintf(of, "10 READ A,B\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	142 fprintf(of, "20 IF A=-1 THEN 70\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	143 fprintf(of, "30 FOR C = A TO B\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	144 fprintf(of, "40 READ D:POKE C,D\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	145 fprintf(of, "50 NEXT C\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	146 fprintf(of, "60 GOTO 10\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	147
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	148 if (as -> execaddr == 0)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	149 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	150 fprintf(of, "70 END");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	151 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	152 else
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	153 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	154 fprintf(of, "70 EXEC %d", as -> execaddr);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	155 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	156
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	157 linenumber = 80;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	158 linelength = 255;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	159
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	160 while(startblock)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	161 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	162 startaddress = -1;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	163 endblock = NULL;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	164
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	165 for (cl = startblock; cl; cl = cl -> next)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	166 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	167 if (cl -> outputl < 0)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	168 continue;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	169
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	170 address = lw_expr_intval(cl -> addr);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	171
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	172 if (startaddress == -1)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	173 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	174 startaddress = address;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	175 lastaddress = address + cl -> outputl - 1;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	176 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	177 else
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	178 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	179 if (lastaddress != address - 1)
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	180 {
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	181 endblock = cl;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	182 break;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	183 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	184
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	185 lastaddress += cl -> outputl;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	186 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	187 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	188
410 7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	189 if (startaddress != -1)
406 4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	190 {
410 7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	191 linelength = write_code_BASIC_fprintf(of, linelength, &linenumber, startaddress);
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	192 linelength = write_code_BASIC_fprintf(of, linelength, &linenumber, lastaddress);
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	193
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	194 for (cl = startblock; cl != endblock; cl = cl -> next)
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	195 {
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	196 if (cl -> outputl < 0)
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	197 continue;
406 4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	198
410 7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	199 for (outidx=0; outidx<cl -> outputl; outidx++)
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	200 {
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	201 linelength = write_code_BASIC_fprintf(of, linelength, &linenumber, cl -> output[outidx]);
7f538053492c Fix a possible uninitialized variable reference William Astle <lost@l-w.ca> parents: 406 diff changeset	202 }
406 4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	203 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	204 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	205
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	206 startblock = cl;
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	207 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	208
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	209 linelength = write_code_BASIC_fprintf(of, linelength, &linenumber, -1);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	210 linelength = write_code_BASIC_fprintf(of, linelength, &linenumber, -1);
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	211
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	212 fprintf(of, "\n");
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	213 }
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	214
4411a6123716 Add "basic" output format William Astle <lost@l-w.ca> parents: 360 diff changeset	215
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	216 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	217 rawrel output treats an ORG directive as an offset from the start of the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	218 file. Undefined results will occur if an ORG directive moves the output
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	219 pointer backward. This particular implementation uses "fseek" to handle
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	220 ORG requests and to skip over RMBs.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	221
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	222 This simple brain damanged method simply does an fseek before outputting
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	223 each instruction.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	224 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	225 void write_code_rawrel(asmstate_t as, FILE of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	226 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	227 line_t *cl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	228
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	229 for (cl = as -> line_head; cl; cl = cl -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	230 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	231 if (cl -> outputl <= 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	232 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	233
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	234 fseek(of, lw_expr_intval(cl -> addr), SEEK_SET);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	235 writebytes(cl -> output, cl -> outputl, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	236 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	237 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	238
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	239 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	240 raw merely writes all the bytes directly to the file as is. ORG is just a
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	241 reference for the assembler to handle absolute references. Multiple ORG
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	242 statements will produce mostly useless results
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	243 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	244 void write_code_raw(asmstate_t as, FILE of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	245 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	246 line_t *cl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	247
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	248 for (cl = as -> line_head; cl; cl = cl -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	249 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	250 if (cl -> len > 0 && cl -> outputl == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	251 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	252 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	253 for (i = 0; i < cl -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	254 writebytes("\0", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	255 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	256 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	257 else if (cl -> outputl > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	258 writebytes(cl -> output, cl -> outputl, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	259 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	260 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	261
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	262
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	263 /*
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	264 OS9 target also just writes all the bytes in order. No need for anything
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	265 else.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	266 */
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	267 void write_code_os9(asmstate_t as, FILE of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	268 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	269 line_t *cl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	270
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	271 for (cl = as -> line_head; cl; cl = cl -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	272 {
127 d92b9c968731 Removed protection from outputting code outside os9 module in os9 target lost@l-w.ca parents: 12 diff changeset	273 // if (cl -> inmod == 0)
d92b9c968731 Removed protection from outputting code outside os9 module in os9 target lost@l-w.ca parents: 12 diff changeset	274 // continue;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	275 if (cl -> len > 0 && cl -> outputl == 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	276 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	277 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	278 for (i = 0; i < cl -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	279 writebytes("\0", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	280 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	281 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	282 else if (cl -> outputl > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	283 writebytes(cl -> output, cl -> outputl, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	284 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	285 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	286
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	287 void write_code_decb(asmstate_t as, FILE of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	288 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	289 long preambloc;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	290 line_t *cl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	291 int blocklen = -1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	292 int nextcalc = -1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	293 unsigned char outbuf[5];
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	294 int caddr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	295
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	296 for (cl = as -> line_head; cl; cl = cl -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	297 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	298 if (cl -> outputl < 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	299 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	300 caddr = lw_expr_intval(cl -> addr);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	301 if (caddr != nextcalc && cl -> outputl > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	302 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	303 // need preamble here
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	304 if (blocklen > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	305 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	306 // update previous preamble if needed
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	307 fseek(of, preambloc, SEEK_SET);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	308 outbuf[0] = (blocklen >> 8) & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	309 outbuf[1] = blocklen & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	310 writebytes(outbuf, 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	311 fseek(of, 0, SEEK_END);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	312 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	313 blocklen = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	314 nextcalc = caddr;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	315 outbuf[0] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	316 outbuf[1] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	317 outbuf[2] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	318 outbuf[3] = (nextcalc >> 8) & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	319 outbuf[4] = nextcalc & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	320 preambloc = ftell(of) + 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	321 writebytes(outbuf, 5, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	322 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	323 nextcalc += cl -> outputl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	324 writebytes(cl -> output, cl -> outputl, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	325 blocklen += cl -> outputl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	326 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	327 if (blocklen > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	328 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	329 fseek(of, preambloc, SEEK_SET);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	330 outbuf[0] = (blocklen >> 8) & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	331 outbuf[1] = blocklen & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	332 writebytes(outbuf, 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	333 fseek(of, 0, SEEK_END);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	334 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	335
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	336 // now write postamble
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	337 outbuf[0] = 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	338 outbuf[1] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	339 outbuf[2] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	340 outbuf[3] = (as -> execaddr >> 8) & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	341 outbuf[4] = (as -> execaddr) & 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	342 writebytes(outbuf, 5, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	343 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	344
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	345 int fetch_output_byte(line_t cl, char value, int *addr)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	346 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	347 static int outidx = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	348 static int lastaddr = -2;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	349
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	350 // try to read next byte in current line's output field
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	351 if ((cl -> outputl > 0) && (outidx < cl -> outputl))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	352 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	353 *addr = lw_expr_intval(cl -> addr) + outidx;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	354 value = (cl -> output + outidx++);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	355
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	356 // this byte follows the previous byte (contiguous, rc = 1)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	357 if (*addr == lastaddr + 1)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	358 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	359 lastaddr = *addr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	360 return 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	361 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	362
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	363 // this byte does not follow prev byte (disjoint, rc = -1)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	364 else
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	365 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	366 lastaddr = *addr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	367 return -1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	368 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	369 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	370
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	371 // no (more) output from this line (rc = 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	372 else
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	373 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	374 outidx = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	375 return 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	376 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	377 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	378
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	379
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	380 /* a simple ASCII hex file format */
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	381
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	382 void write_code_hex(asmstate_t as, FILE of)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	383 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	384 const int RECLEN = 16;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	385
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	386 line_t *cl;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	387 char outbyte;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	388 int outaddr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	389 int rc;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	390
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	391 for (cl = as -> line_head; cl; cl = cl -> next)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	392 do
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	393 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	394 rc = fetch_output_byte(cl, &outbyte, &outaddr);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	395
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	396 // if address jump or xxx0 address, start new line
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	397 if ((rc == -1) \|\| ((rc == 1) && (outaddr % RECLEN == 0)))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	398 {
425 9f0448022f1f Fix address overflows in SREC and IHEX file formats William Astle <lost@l-w.ca> parents: 410 diff changeset	399 fprintf(of, "\r\n%04X:", (unsigned int)(outaddr & 0xffff));
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	400 fprintf(of, "%02X", (unsigned char)outbyte);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	401 rc = -1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	402 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	403 if (rc == 1)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	404 fprintf(of, ",%02X", (unsigned char)outbyte);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	405 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	406 while (rc);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	407 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	408
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	409
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	410 /* Motorola S19 hex file format */
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	411
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	412 void write_code_srec(asmstate_t as, FILE of)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	413 {
360 ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	414 #define SRECLEN 16
ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	415 #define HDRLEN 51
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	416
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	417 line_t *cl;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	418 char outbyte;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	419 int outaddr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	420 int rc;
360 ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	421 unsigned int i;
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	422 int recaddr = 0;
360 ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	423 unsigned int recdlen = 0;
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	424 unsigned char recdata[SRECLEN];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	425 int recsum;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	426 int reccnt = -1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	427 char rechdr[HDRLEN];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	428
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	429 for (cl = as -> line_head; cl; cl = cl -> next)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	430 do
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	431 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	432 rc = fetch_output_byte(cl, &outbyte, &outaddr);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	433
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	434 // if address jump or xxx0 address, start new S1 record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	435 if ((rc == -1) \|\| ((rc == 1) && (outaddr % SRECLEN == 0)))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	436 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	437 // if not already done so, emit an S0 header record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	438 if (reccnt < 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	439 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	440 // build header from version and filespec
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	441 // e.g. "[lwtools X.Y] filename.asm"
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	442 strcpy(rechdr, "[");
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	443 strcat(rechdr, PACKAGE_STRING);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	444 strcat(rechdr, "] ");
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	445 i = strlen(rechdr);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	446 strncat(rechdr, cl -> linespec, HDRLEN - 1 - i);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	447 recsum = strlen(rechdr) + 3;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	448 fprintf(of, "S0%02X0000", recsum);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	449 for (i = 0; i < strlen(rechdr); i++)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	450 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	451 fprintf(of, "%02X", (unsigned char)rechdr[i]);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	452 recsum += (unsigned char)rechdr[i];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	453 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	454 fprintf(of, "%02X\r\n", (unsigned char)(~recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	455 reccnt = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	456 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	457
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	458 // flush any current S1 record before starting new one
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	459 if (recdlen > 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	460 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	461 recsum = recdlen + 3;
425 9f0448022f1f Fix address overflows in SREC and IHEX file formats William Astle <lost@l-w.ca> parents: 410 diff changeset	462 fprintf(of, "S1%02X%04X", recdlen + 3, recaddr & 0xffff);
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	463 for (i = 0; i < recdlen; i++)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	464 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	465 fprintf(of, "%02X", (unsigned char)recdata[i]);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	466 recsum += (unsigned char)recdata[i];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	467 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	468 recsum += (recaddr >> 8) & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	469 recsum += recaddr & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	470 fprintf(of, "%02X\r\n", (unsigned char)(~recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	471 reccnt += 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	472 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	473
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	474 // now start the new S1 record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	475 recdlen = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	476 recaddr = outaddr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	477 rc = 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	478 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	479
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	480 // for each new byte read, add to recdata[]
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	481 if (rc == 1)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	482 recdata[recdlen++] = outbyte;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	483 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	484 while (rc);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	485
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	486 // done with all output lines, flush the final S1 record (if any)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	487 if (recdlen > 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	488 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	489 recsum = recdlen + 3;
425 9f0448022f1f Fix address overflows in SREC and IHEX file formats William Astle <lost@l-w.ca> parents: 410 diff changeset	490 fprintf(of, "S1%02X%04X", recdlen + 3, recaddr & 0xffff);
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	491 for (i = 0; i < recdlen; i++)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	492 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	493 fprintf(of, "%02X", (unsigned char)recdata[i]);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	494 recsum += (unsigned char)recdata[i];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	495 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	496 recsum += (recaddr >> 8) & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	497 recsum += recaddr & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	498 fprintf(of, "%02X\r\n", (unsigned char)(~recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	499 reccnt += 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	500 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	501
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	502 // if any S1 records were output, close with S5 and S9 records
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	503 if (reccnt > 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	504 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	505 // emit S5 count record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	506 recsum = 3;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	507 recsum += (reccnt >> 8) & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	508 recsum += reccnt & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	509 fprintf(of, "S503%04X", (unsigned int)reccnt);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	510 fprintf(of, "%02X\r\n", (unsigned char)(~recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	511
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	512 // emit S9 end-of-file record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	513 recsum = 3;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	514 recsum += (as -> execaddr >> 8) & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	515 recsum += (as -> execaddr) & 0xFF;
425 9f0448022f1f Fix address overflows in SREC and IHEX file formats William Astle <lost@l-w.ca> parents: 410 diff changeset	516 fprintf(of, "S903%04X", as -> execaddr & 0xffff);
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	517 fprintf(of, "%02X\r\n", (unsigned char)(~recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	518 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	519 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	520
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	521
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	522 /* Intel hex file format */
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	523
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	524 void write_code_ihex(asmstate_t as, FILE of)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	525 {
360 ade217fd76a5 Use #define instead of const int to avoid issues with some compilers William Astle <lost@l-w.ca> parents: 321 diff changeset	526 #define IRECLEN 16
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	527
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	528 line_t *cl;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	529 char outbyte;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	530 int outaddr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	531 int rc;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	532 int i;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	533 int recaddr = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	534 int recdlen = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	535 unsigned char recdata[IRECLEN];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	536 int recsum;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	537 int reccnt = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	538
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	539 for (cl = as -> line_head; cl; cl = cl -> next)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	540 do
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	541 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	542 rc = fetch_output_byte(cl, &outbyte, &outaddr);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	543
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	544 // if address jump or xxx0 address, start new ihx record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	545 if ((rc == -1) \|\| ((rc == 1) && (outaddr % IRECLEN == 0)))
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	546 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	547 // flush any current ihex record before starting new one
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	548 if (recdlen > 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	549 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	550 recsum = recdlen;
425 9f0448022f1f Fix address overflows in SREC and IHEX file formats William Astle <lost@l-w.ca> parents: 410 diff changeset	551 fprintf(of, ":%02X%04X00", recdlen, recaddr & 0xffff);
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	552 for (i = 0; i < recdlen; i++)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	553 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	554 fprintf(of, "%02X", (unsigned char)recdata[i]);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	555 recsum += (unsigned char)recdata[i];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	556 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	557 recsum += (recaddr >> 8) & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	558 recsum += recaddr & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	559 fprintf(of, "%02X\r\n", (unsigned char)(256 - recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	560 reccnt += 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	561 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	562
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	563 // now start the new ihex record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	564 recdlen = 0;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	565 recaddr = outaddr;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	566 rc = 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	567 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	568
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	569 // for each new byte read, add to recdata[]
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	570 if (rc == 1)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	571 recdata[recdlen++] = outbyte;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	572 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	573 while (rc);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	574
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	575 // done with all output lines, flush the final ihex record (if any)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	576 if (recdlen > 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	577 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	578 recsum = recdlen;
425 9f0448022f1f Fix address overflows in SREC and IHEX file formats William Astle <lost@l-w.ca> parents: 410 diff changeset	579 fprintf(of, ":%02X%04X00", recdlen, recaddr & 0xffff);
321 d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	580 for (i = 0; i < recdlen; i++)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	581 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	582 fprintf(of, "%02X", (unsigned char)recdata[i]);
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	583 recsum += (unsigned char)recdata[i];
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	584 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	585 recsum += (recaddr >> 8) & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	586 recsum += recaddr & 0xFF;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	587 fprintf(of, "%02X\r\n", (unsigned char)(256 - recsum));
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	588 reccnt += 1;
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	589 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	590
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	591 // if any ihex records were output, close with a "01" record
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	592 if (reccnt > 0)
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	593 {
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	594 fprintf(of, ":00000001FF");
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	595 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	596 }
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	597
d4ac484d0ec6 Add support for Motorola SREC and Intel Hex output formats to lwasm. Tom LeMense <tlemense@yahoo.com> parents: 221 diff changeset	598
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	599 void write_code_obj_sbadd(sectiontab_t *s, unsigned char b)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	600 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	601 if (s -> oblen >= s -> obsize)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	602 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	603 s -> obytes = lw_realloc(s -> obytes, s -> obsize + 128);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	604 s -> obsize += 128;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	605 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	606 s -> obytes[s -> oblen] = b;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	607 s -> oblen += 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	608 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	609
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	610
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	611 int write_code_obj_expraux(lw_expr_t e, void *of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	612 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	613 int tt;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	614 int v;
12 6b9991fb39b6 Brought forward patch to fix bug with complex external references generating invalid relocations in the object file lost@l-w.ca parents: 2 diff changeset	615 int count = 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	616 unsigned char buf[16];
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	617
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	618 tt = lw_expr_type(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	619
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	620 switch (tt)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	621 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	622 case lw_expr_type_oper:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	623 buf[0] = 0x04;
12 6b9991fb39b6 Brought forward patch to fix bug with complex external references generating invalid relocations in the object file lost@l-w.ca parents: 2 diff changeset	624
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	625 switch (lw_expr_whichop(e))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	626 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	627 case lw_expr_oper_plus:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	628 buf[1] = 0x01;
12 6b9991fb39b6 Brought forward patch to fix bug with complex external references generating invalid relocations in the object file lost@l-w.ca parents: 2 diff changeset	629 count = lw_expr_operandcount(e) - 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	630 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	631
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	632 case lw_expr_oper_minus:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	633 buf[1] = 0x02;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	634 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	635
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	636 case lw_expr_oper_times:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	637 buf[1] = 0x03;
12 6b9991fb39b6 Brought forward patch to fix bug with complex external references generating invalid relocations in the object file lost@l-w.ca parents: 2 diff changeset	638 count = lw_expr_operandcount(e) - 1;
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	639 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	640
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	641 case lw_expr_oper_divide:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	642 buf[1] = 0x04;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	643 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	644
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	645 case lw_expr_oper_mod:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	646 buf[1] = 0x05;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	647 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	648
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	649 case lw_expr_oper_intdiv:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	650 buf[1] = 0x06;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	651 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	652
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	653 case lw_expr_oper_bwand:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	654 buf[1] = 0x07;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	655 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	656
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	657 case lw_expr_oper_bwor:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	658 buf[1] = 0x08;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	659 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	660
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	661 case lw_expr_oper_bwxor:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	662 buf[1] = 0x09;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	663 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	664
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	665 case lw_expr_oper_and:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	666 buf[1] = 0x0A;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	667 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	668
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	669 case lw_expr_oper_or:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	670 buf[1] = 0x0B;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	671 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	672
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	673 case lw_expr_oper_neg:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	674 buf[1] = 0x0C;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	675 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	676
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	677 case lw_expr_oper_com:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	678 buf[1] = 0x0D;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	679 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	680
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	681 default:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	682 buf[1] = 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	683 }
12 6b9991fb39b6 Brought forward patch to fix bug with complex external references generating invalid relocations in the object file lost@l-w.ca parents: 2 diff changeset	684 while (count--)
6b9991fb39b6 Brought forward patch to fix bug with complex external references generating invalid relocations in the object file lost@l-w.ca parents: 2 diff changeset	685 writebytes(buf, 2, 1, of);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	686 return 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	687
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	688 case lw_expr_type_int:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	689 v = lw_expr_intval(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	690 buf[0] = 0x01;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	691 buf[1] = (v >> 8) & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	692 buf[2] = v & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	693 writebytes(buf, 3, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	694 return 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	695
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	696 case lw_expr_type_special:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	697 v = lw_expr_specint(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	698 switch (v)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	699 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	700 case lwasm_expr_secbase:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	701 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	702 // replaced with a synthetic symbol
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	703 sectiontab_t *se;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	704 se = lw_expr_specptr(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	705
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	706 writebytes("\x03\x02", 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	707 writebytes(se -> name, strlen(se -> name) + 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	708 return 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	709 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	710 case lwasm_expr_import:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	711 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	712 importlist_t *ie;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	713 ie = lw_expr_specptr(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	714 buf[0] = 0x02;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	715 writebytes(buf, 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	716 writebytes(ie -> symbol, strlen(ie -> symbol) + 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	717 return 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	718 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	719 case lwasm_expr_syment:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	720 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	721 struct symtabe *se;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	722 se = lw_expr_specptr(e);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	723 buf[0] = 0x03;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	724 writebytes(buf, 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	725 writebytes(se -> symbol, strlen(se -> symbol), 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	726 if (se -> context != -1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	727 {
2 7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	728 sprintf((char *)buf, "\x01%d", se -> context);
7317fbe024af Clean up insane number of compiler warnings under -Wall lost@l-w.ca parents: 0 diff changeset	729 writebytes(buf, strlen((char *)buf), 1, of);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	730 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	731 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	732 return 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	733 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	734 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	735
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	736 default:
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	737 // unrecognized term type - replace with integer 0
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	738 // fprintf(stderr, "Unrecognized term type: %s\n", lw_expr_print(e));
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	739 buf[0] = 0x01;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	740 buf[1] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	741 buf[2] = 0x00;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	742 writebytes(buf, 3, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	743 break;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	744 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	745 return 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	746 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	747
195 17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	748 void write_code_obj_auxsym(asmstate_t as, FILE of, sectiontab_t s, struct symtabe se2)
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	749 {
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	750 struct symtabe *se;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	751 unsigned char buf[16];
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	752
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	753 if (!se2)
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	754 return;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	755 write_code_obj_auxsym(as, of, s, se2 -> left);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	756
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	757 for (se = se2; se; se = se -> nextver)
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	758 {
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	759 lw_expr_t te;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	760
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	761 debug_message(as, 200, "Consider symbol %s (%p) for export in section %p", se -> symbol, se -> section, s);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	762
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	763 // ignore symbols not in this section
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	764 if (se -> section != s)
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	765 continue;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	766
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	767 debug_message(as, 200, " In section");
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	768
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	769 if (se -> flags & symbol_flag_set)
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	770 continue;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	771
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	772 debug_message(as, 200, " Not symbol_flag_set");
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	773
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	774 te = lw_expr_copy(se -> value);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	775 debug_message(as, 200, " Value=%s", lw_expr_print(te));
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	776 as -> exportcheck = 1;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	777 as -> csect = s;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	778 lwasm_reduce_expr(as, te);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	779 as -> exportcheck = 0;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	780
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	781 debug_message(as, 200, " Value2=%s", lw_expr_print(te));
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	782
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	783 // don't output non-constant symbols
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	784 if (!lw_expr_istype(te, lw_expr_type_int))
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	785 {
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	786 lw_expr_destroy(te);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	787 continue;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	788 }
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	789
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	790 writebytes(se -> symbol, strlen(se -> symbol), 1, of);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	791 if (se -> context >= 0)
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	792 {
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	793 writebytes("\x01", 1, 1, of);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	794 sprintf((char *)buf, "%d", se -> context);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	795 writebytes(buf, strlen((char *)buf), 1, of);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	796 }
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	797 // the "" is NOT an error
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	798 writebytes("", 1, 1, of);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	799
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	800 // write the address
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	801 buf[0] = (lw_expr_intval(te) >> 8) & 0xff;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	802 buf[1] = lw_expr_intval(te) & 0xff;
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	803 writebytes(buf, 2, 1, of);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	804 lw_expr_destroy(te);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	805 }
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	806 write_code_obj_auxsym(as, of, s, se2 -> right);
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	807 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	808
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	809 void write_code_obj(asmstate_t as, FILE of)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	810 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	811 line_t *l;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	812 sectiontab_t *s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	813 reloctab_t *re;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	814 exportlist_t *ex;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	815
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	816 int i;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	817 unsigned char buf[16];
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	818
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	819 // output the magic number and file header
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	820 // the 8 is NOT an error
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	821 writebytes("LWOBJ16", 8, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	822
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	823 // run through the entire system and build the byte streams for each
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	824 // section; at the same time, generate a list of "local" symbols to
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	825 // output for each section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	826 // NOTE: for "local" symbols, we will append \x01 and the ascii string
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	827 // of the context identifier (so sym in context 1 would be "sym\x011"
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	828 // we can do this because the linker can handle symbols with any
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	829 // character other than NUL.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	830 // also we will generate a list of incomplete references for each
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	831 // section along with the actual definition that will be output
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	832
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	833 // once all this information is generated, we will output each section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	834 // to the file
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	835
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	836 // NOTE: we build everything in memory then output it because the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	837 // assembler accepts multiple instances of the same section but the
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	838 // linker expects only one instance of each section in the object file
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	839 // so we need to collect all the various pieces of a section together
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	840 // (also, the assembler treated multiple instances of the same section
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	841 // as continuations of previous sections so we would need to collect
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	842 // them together anyway.
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	843
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	844 for (l = as -> line_head; l; l = l -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	845 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	846 if (l -> csect)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	847 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	848 // we're in a section - need to output some bytes
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	849 if (l -> outputl > 0)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	850 for (i = 0; i < l -> outputl; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	851 write_code_obj_sbadd(l -> csect, l -> output[i]);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	852 else if (l -> outputl == 0 \|\| l -> outputl == -1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	853 for (i = 0; i < l -> len; i++)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	854 write_code_obj_sbadd(l -> csect, 0);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	855 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	856 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	857
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	858 // run through the sections
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	859 for (s = as -> sections; s; s = s -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	860 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	861 // write the name
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	862 writebytes(s -> name, strlen(s -> name) + 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	863
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	864 // write the flags
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	865 if (s -> flags & section_flag_bss)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	866 writebytes("\x01", 1, 1, of);
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	867 if (s -> flags & section_flag_constant)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	868 writebytes("\x02", 1, 1, of);
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	869
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	870 // indicate end of flags - the "" is NOT an error
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	871 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	872
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	873 // now the local symbols
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	874
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	875 // a symbol for section base address
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	876 if ((s -> flags & section_flag_constant) == 0)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	877 {
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	878 writebytes("\x02", 1, 1, of);
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	879 writebytes(s -> name, strlen(s -> name) + 1, 1, of);
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	880 // address 0; "\0" is not an error
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	881 writebytes("\0", 2, 1, of);
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	882 }
195 17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	883
17bd59f045af Changed symbol table to use a binary tree. William Astle <lost@l-w.ca> parents: 156 diff changeset	884 write_code_obj_auxsym(as, of, s, as -> symtab.head);
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	885 // flag end of local symbol table - "" is NOT an error
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	886 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	887
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	888 // now the exports -- FIXME
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	889 for (ex = as -> exportlist; ex; ex = ex -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	890 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	891 int eval;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	892 lw_expr_t te;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	893 line_t tl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	894
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	895 if (ex -> se == NULL)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	896 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	897 if (ex -> se -> section != s)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	898 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	899 te = lw_expr_copy(ex -> se -> value);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	900 as -> csect = ex -> se -> section;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	901 as -> exportcheck = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	902 tl.as = as;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	903 as -> cl = &tl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	904 lwasm_reduce_expr(as, te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	905 as -> exportcheck = 0;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	906 as -> cl = NULL;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	907 if (!lw_expr_istype(te, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	908 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	909 lw_expr_destroy(te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	910 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	911 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	912 eval = lw_expr_intval(te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	913 lw_expr_destroy(te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	914 writebytes(ex -> symbol, strlen(ex -> symbol) + 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	915 buf[0] = (eval >> 8) & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	916 buf[1] = eval & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	917 writebytes(buf, 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	918 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	919
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	920 // flag end of exported symbols - "" is NOT an error
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	921 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	922
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	923 // FIXME - relocation table
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	924 for (re = s -> reloctab; re; re = re -> next)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	925 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	926 int offset;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	927 lw_expr_t te;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	928 line_t tl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	929
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	930 tl.as = as;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	931 as -> cl = &tl;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	932 as -> csect = s;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	933 as -> exportcheck = 1;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	934
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	935 if (re -> expr == NULL)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	936 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	937 // this is an error but we'll simply ignore it
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	938 // and not output this expression
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	939 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	940 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	941
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	942 // work through each term in the expression and output
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	943 // the proper equivalent to the object file
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	944 if (re -> size == 1)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	945 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	946 // flag an 8 bit relocation (low 8 bits will be used)
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	947 buf[0] = 0xFF;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	948 buf[1] = 0x01;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	949 writebytes(buf, 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	950 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	951
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	952 te = lw_expr_copy(re -> offset);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	953 lwasm_reduce_expr(as, te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	954 if (!lw_expr_istype(te, lw_expr_type_int))
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	955 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	956 lw_expr_destroy(te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	957 continue;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	958 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	959 offset = lw_expr_intval(te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	960 lw_expr_destroy(te);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	961
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	962 // output expression
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	963 lw_expr_testterms(re -> expr, write_code_obj_expraux, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	964
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	965 // flag end of expressions
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	966 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	967
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	968 // write the offset
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	969 buf[0] = (offset >> 8) & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	970 buf[1] = offset & 0xff;
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	971 writebytes(buf, 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	972 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	973
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	974 // flag end of incomplete references list
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	975 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	976
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	977 // now blast out the code
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	978
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	979 // length
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	980 if (s -> flags & section_flag_constant)
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	981 {
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	982 buf[0] = 0;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	983 buf[1] = 0;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	984 }
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	985 else
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	986 {
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	987 buf[0] = s -> oblen >> 8 & 0xff;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	988 buf[1] = s -> oblen & 0xff;
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	989 }
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	990 writebytes(buf, 2, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	991
156 fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	992
fc8386b13399 Added 'constant' sections to object file handling for lwasm and lwlink lost@l-w.ca parents: 127 diff changeset	993 if (!(s -> flags & section_flag_bss) && !(s -> flags & section_flag_constant))
0 2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	994 {
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	995 writebytes(s -> obytes, s -> oblen, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	996 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	997 }
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	998
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	999 // flag no more sections
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1000 // the "" is NOT an error
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1001 writebytes("", 1, 1, of);
2c24602be78f Initial import from lwtools 3.0.1 version, with new hand built build system and file reorganization lost@l-w.ca parents: diff changeset	1002 }

Mercurial > hg > index.cgi

annotate lwasm/output.c @ 425:9f0448022f1f