114 lines
3.5 KiB
C
114 lines
3.5 KiB
C
|
#include <windows.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include "disasm.h" /* wsprintf() */
|
||
|
|
#include "drwatson.h"
|
||
|
|
|
||
|
|
#define _lread(h, adr, cnt) _lread(h, (LPSTR)(adr), cnt)
|
||
|
|
|
||
|
|
/* Last entry in .SYM file */
|
||
|
|
|
||
|
|
typedef struct tagMAPEND {
|
||
|
|
unsigned chnend; /* end of map chain (0) */
|
||
|
|
char rel; /* release */
|
||
|
|
char ver; /* version */
|
||
|
|
} MAPEND;
|
||
|
|
|
||
|
|
/* Structure of .SYM file symbol entry */
|
||
|
|
|
||
|
|
typedef struct tagSYMDEF {
|
||
|
|
unsigned sym_val; /* 16 bit symbol addr or const */
|
||
|
|
char nam_len; /* 8 bit symbol name length */
|
||
|
|
} SYMDEF;
|
||
|
|
|
||
|
|
/* Structure of a .SYM file segment entry */
|
||
|
|
|
||
|
|
typedef struct tagSEGDEF {
|
||
|
|
unsigned nxt_seg; /* 16 bit ptr to next segment(0 if end) */
|
||
|
|
int sym_cnt; /* 16 bit count of symbols in sym list */
|
||
|
|
unsigned sym_ptr; /* 16 bit ptr to symbol list */
|
||
|
|
unsigned seg_lsa; /* 16 bit Load Segment address */
|
||
|
|
unsigned seg_in0; /* 16 bit instance 0 physical address */
|
||
|
|
unsigned seg_in1; /* 16 bit instance 1 physical address */
|
||
|
|
unsigned seg_in2; /* 16 bit instance 2 physical address */
|
||
|
|
unsigned seg_in3; /* 16 bit instance 3 physical address */
|
||
|
|
unsigned seg_lin; /* 16 bit ptr to line number record */
|
||
|
|
char seg_ldd; /* 8 bit boolean 0 if seg not loaded */
|
||
|
|
char seg_cin; /* 8 bit current instance */
|
||
|
|
char nam_len; /* 8 bit Segment name length */
|
||
|
|
} SEGDEF;
|
||
|
|
|
||
|
|
/* Structure of a .SYM file MAP entry */
|
||
|
|
|
||
|
|
typedef struct tagMAPDEF {
|
||
|
|
unsigned map_ptr; /* 16 bit ptr to next map (0 if end) */
|
||
|
|
unsigned lsa ; /* 16 bit Load Segment address */
|
||
|
|
unsigned pgm_ent; /* 16 bit entry point segment value */
|
||
|
|
int abs_cnt; /* 16 bit count of constants in map */
|
||
|
|
unsigned abs_ptr; /* 16 bit ptr to constant chain */
|
||
|
|
int seg_cnt; /* 16 bit count of segments in map */
|
||
|
|
unsigned seg_ptr; /* 16 bit ptr to segment chain */
|
||
|
|
char nam_max; /* 8 bit Maximum Symbol name length */
|
||
|
|
char nam_len; /* 8 bit Symbol table name length */
|
||
|
|
} MAPDEF;
|
||
|
|
|
||
|
|
/* should cache last 4 files, last 4 segments, last 4 symbol blocks */
|
||
|
|
|
||
|
|
void cdecl Show(char *foo, ...);
|
||
|
|
|
||
|
|
#define MAXSYM 64
|
||
|
|
char *FindSym(unsigned segIndex, unsigned offset, int h) {
|
||
|
|
static char sym_name[MAXSYM+5];
|
||
|
|
char name[MAXSYM+3];
|
||
|
|
int i;
|
||
|
|
MAPDEF mod;
|
||
|
|
SEGDEF seg;
|
||
|
|
SYMDEF sym, *sp;
|
||
|
|
|
||
|
|
if (sizeof(mod) != _lread(h, &mod, sizeof(mod))) return 0;
|
||
|
|
if (segIndex > (unsigned)mod.seg_cnt) return 0;
|
||
|
|
seg.nxt_seg = mod.seg_ptr;
|
||
|
|
for (i=0; i<mod.seg_cnt; i++) {
|
||
|
|
_llseek(h, (long)seg.nxt_seg << 4, SEEK_SET);
|
||
|
|
_lread(h, &seg, sizeof(seg));
|
||
|
|
if (seg.seg_lsa == segIndex) break;
|
||
|
|
}
|
||
|
|
if (seg.seg_lsa != segIndex) return 0;
|
||
|
|
_llseek(h, seg.nam_len, SEEK_CUR);
|
||
|
|
sym_name[0] = 0;
|
||
|
|
sym.sym_val = 0xffff;
|
||
|
|
sym.nam_len = 0;
|
||
|
|
for (i=0; i<seg.sym_cnt; i++) {
|
||
|
|
unsigned len = sizeof(sym) + sym.nam_len;
|
||
|
|
if (len >= sizeof(name)) return 0;
|
||
|
|
if (len != _lread(h, name, len)) return 0;
|
||
|
|
sp = (SYMDEF *)(name + sym.nam_len);
|
||
|
|
if (sp->sym_val > offset)
|
||
|
|
break;
|
||
|
|
sym = *sp;
|
||
|
|
}
|
||
|
|
name[sym.nam_len] = 0;
|
||
|
|
if (name[0] == 0) return 0;
|
||
|
|
if (sym.sym_val == offset) strcpy(sym_name, name);
|
||
|
|
else sprintf(sym_name, "%s+%04x", (FP)name, offset-sym.sym_val);
|
||
|
|
return sym_name;
|
||
|
|
} /* FindSym */
|
||
|
|
|
||
|
|
char *NearestSym(int segIndex, unsigned offset, char *exeName) {
|
||
|
|
char fName[80];
|
||
|
|
/* OFSTRUCT reOpen; */
|
||
|
|
char *s;
|
||
|
|
int h;
|
||
|
|
|
||
|
|
strcpy(fName, exeName);
|
||
|
|
strcpy(fName+strlen(fName)-4, ".sym");
|
||
|
|
|
||
|
|
h = _lopen(fName, OF_READ | OF_SHARE_DENY_WRITE);
|
||
|
|
|
||
|
|
if (h == -1) return 0;
|
||
|
|
s = FindSym(segIndex, offset, h);
|
||
|
|
_lclose(h);
|
||
|
|
return s;
|
||
|
|
} /* NearestSym */
|
||
|
|
|