6502/xa65
1
0
Fork 0
mirror of https://github.com/fachat/xa65.git synced 2024-06-01 07:41:52 +00:00
Code Issues Projects Releases Wiki Activity

beta4

Browse Source
This commit is contained in:
Andre Fachat 2023-11-02 21:57:40 +01:00
parent b4d26c3545
commit 4efdd2a59a
4 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
xa/misc/ldo65.c
View File

@ -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", 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); zbase, tzlen, (zbase + tzlen), file->zbase, file->zlen, file->zdiff);
*/ */
if (verbose > 0) { if (verbose > 0) {
printf("Relocating file: %s\n", file->fname); 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); 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); 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); 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); 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]; old = buf[1] + 256*buf[2];
new = old + reldiff(seg); new = old + reldiff(seg);
if (verbose > 1) { 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); fp->fname, name, old, seg, reldiff(seg), new);
} }
buf[1] = new & 255; buf[1] = new & 255;

4
xa/src/xal.c
View File

@ -707,7 +707,7 @@ int ll_pdef(char *t)
return(E_NODEF); return(E_NODEF);
} }
/* /*
* Write out the list of global labels in an o65 file * Write out the list of global labels in an o65 file
*/ */
int l_write(FILE *fp) int l_write(FILE *fp)
@ -740,7 +740,7 @@ int l_write(FILE *fp)
// segment byte // segment byte
afl = ltp->afl; 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) // if asolute of undefined (< SEG_TEXT, i.e. 0 or 1)
// then invert bit 0 (0 = absolute) // then invert bit 0 (0 = absolute)
if( (afl & (A_FMASK>>8)) < SEG_TEXT) { if( (afl & (A_FMASK>>8)) < SEG_TEXT) {

10
xa/src/xat.c
View File

@ -105,13 +105,13 @@ char *kt[] ={
/* arithmetic operators (purely for listing, parsing is done programmatically */ /* arithmetic operators (purely for listing, parsing is done programmatically */
char *arith_ops[] = { char *arith_ops[] = {
"", "+", "-", // 0,1,2 "", "+", "-", // 0,1,2
"*", "/", // 3,4 "*", "/", // 3,4
">>", "<<", // 5,6 ">>", "<<", // 5,6
"<", ">", "=", // 7,8,9 "<", ">", "=", // 7,8,9
"<=", ">=", "<>", // 10,11,12 "<=", ">=", "<>", // 10,11,12
"&", "^", "|", // 13,14,15 "&", "^", "|", // 13,14,15
"&&", "||", "==", "!=", "!" // 16,17,18,19,20 "&&", "||", "==", "!=", "!" // 16,17,18 (9),19 (12),20 (NYI)
}; };
/* length of arithmetic operators indexed by operator number */ /* length of arithmetic operators indexed by operator number */

BIN
xa/tests/csapiec/testseg.ok
View File

Binary file not shown.