mirror of https://github.com/fachat/xa65.git
beta4
This commit is contained in:
parent
b4d26c3545
commit
4efdd2a59a
|
@ -304,16 +304,16 @@ printf("tbase=%04x+len=%04x->%04x, file->tbase=%04x, f.tlen=%04x -> tdiff=%04x\n
|
|||
printf("zbase=%04x+len=%04x->%04x, file->zbase=%04x, f.zlen=%04x -> zdiff=%04x\n",
|
||||
zbase, tzlen, (zbase + tzlen), file->zbase, file->zlen, file->zdiff);
|
||||
*/
|
||||
|
||||
|
||||
if (verbose > 0) {
|
||||
printf("Relocating file: %s\n", file->fname);
|
||||
printf(" text: from %04x to %04x (diff is %04x, length is %04x)\n",
|
||||
printf(" text: from %04x to %04x (diff is %04x, length is %04x)\n",
|
||||
file->tbase, file->tbase + file->tdiff, file->tdiff, file->tlen);
|
||||
printf(" data: from %04x to %04x (diff is %04x, length is %04x)\n",
|
||||
printf(" data: from %04x to %04x (diff is %04x, length is %04x)\n",
|
||||
file->dbase, file->dbase + file->ddiff, file->ddiff, file->dlen);
|
||||
printf(" bss: from %04x to %04x (diff is %04x, length is %04x)\n",
|
||||
printf(" bss: from %04x to %04x (diff is %04x, length is %04x)\n",
|
||||
file->bbase, file->bbase + file->bdiff, file->bdiff, file->blen);
|
||||
printf(" zero: from %02x to %02x (diff is %02x, length is %02x)\n",
|
||||
printf(" zero: from %02x to %02x (diff is %02x, length is %02x)\n",
|
||||
file->zbase, file->zbase + file->zdiff, file->zdiff, file->zlen);
|
||||
}
|
||||
|
||||
|
@ -711,7 +711,7 @@ unsigned char *reloc_globals(unsigned char *buf, file65 *fp) {
|
|||
old = buf[1] + 256*buf[2];
|
||||
new = old + reldiff(seg);
|
||||
if (verbose > 1) {
|
||||
printf("%s:%s: old=%04x, seg=%d, rel=%04x, new=%04x\n",
|
||||
printf("%s:%s: old=%04x, seg=%d, rel=%04x, new=%04x\n",
|
||||
fp->fname, name, old, seg, reldiff(seg), new);
|
||||
}
|
||||
buf[1] = new & 255;
|
||||
|
|
|
@ -707,7 +707,7 @@ int ll_pdef(char *t)
|
|||
return(E_NODEF);
|
||||
}
|
||||
|
||||
/*
|
||||
/*
|
||||
* Write out the list of global labels in an o65 file
|
||||
*/
|
||||
int l_write(FILE *fp)
|
||||
|
@ -740,7 +740,7 @@ int l_write(FILE *fp)
|
|||
|
||||
// segment byte
|
||||
afl = ltp->afl;
|
||||
// hack to switch undef and abs flag from internal to file format
|
||||
// hack to switch undef and abs flag from internal to file format
|
||||
// if asolute of undefined (< SEG_TEXT, i.e. 0 or 1)
|
||||
// then invert bit 0 (0 = absolute)
|
||||
if( (afl & (A_FMASK>>8)) < SEG_TEXT) {
|
||||
|
|
10
xa/src/xat.c
10
xa/src/xat.c
|
@ -105,13 +105,13 @@ char *kt[] ={
|
|||
|
||||
/* arithmetic operators (purely for listing, parsing is done programmatically */
|
||||
char *arith_ops[] = {
|
||||
"", "+", "-", // 0,1,2
|
||||
"*", "/", // 3,4
|
||||
">>", "<<", // 5,6
|
||||
"", "+", "-", // 0,1,2
|
||||
"*", "/", // 3,4
|
||||
">>", "<<", // 5,6
|
||||
"<", ">", "=", // 7,8,9
|
||||
"<=", ">=", "<>", // 10,11,12
|
||||
"<=", ">=", "<>", // 10,11,12
|
||||
"&", "^", "|", // 13,14,15
|
||||
"&&", "||", "==", "!=", "!" // 16,17,18,19,20
|
||||
"&&", "||", "==", "!=", "!" // 16,17,18 (9),19 (12),20 (NYI)
|
||||
};
|
||||
|
||||
/* length of arithmetic operators indexed by operator number */
|
||||
|
|
Binary file not shown.
Loading…
Reference in New Issue