mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 16:04:18 +00:00
133 lines
2.1 KiB
Plaintext
133 lines
2.1 KiB
Plaintext
#include "cout.h"
|
|
#include "sendc68.h"
|
|
#include <stdio.h>
|
|
#define MAGIC1 MAGIC+1
|
|
int hdsize=0;
|
|
int input=0;
|
|
int loctr=0;
|
|
int pflg=0;
|
|
int syno=0;
|
|
int symflg;
|
|
long lseek();
|
|
main(argc,argv)
|
|
char **argv;
|
|
{
|
|
|
|
long l,l1;
|
|
register i,j,k;
|
|
BYTE *buffer;
|
|
if(argc<2) {
|
|
printf("Usage: nm68 filename\n");
|
|
exit();
|
|
}
|
|
hdsize = HDSIZE;
|
|
i = 1;
|
|
openfile(argv[1]); /* Open input file */
|
|
if (couthd.ch_ssize > 65534L)
|
|
{
|
|
printf("nm68: Too many symbols\n");
|
|
exit(-1);
|
|
}
|
|
i = couthd.ch_ssize;
|
|
if((buffer=malloc(i)) == NULL)
|
|
{
|
|
printf("nm68: Insufficient memory\n");
|
|
exit(-1);
|
|
}
|
|
|
|
l = couthd.ch_tsize+couthd.ch_dsize+hdsize;
|
|
lseek(ibuf.fildes,l,0);
|
|
if(read(input,buffer,i) != i)
|
|
{
|
|
printf("nm68: Input read error\n");
|
|
exit(-1);
|
|
}
|
|
/*
|
|
* Ok, now the symbol table is in memory. Sort it and print it.
|
|
*/
|
|
|
|
l1 = couthd.ch_ssize;
|
|
syno = 0;
|
|
while(l1) {
|
|
syno++;
|
|
for(i=0; i<8; i++) /* Print Symbol name*/
|
|
{
|
|
k = getc(&ibuf) & 0377;
|
|
if (k < ' ') k = ' '; /* Filter ctrl chars*/
|
|
putchar(k);
|
|
}
|
|
putchar((char)'\t');
|
|
j = getw(&ibuf); /*flags*/
|
|
l.hiword = getw(&ibuf);
|
|
l.loword = getw(&ibuf);
|
|
printf("%8lx",l);
|
|
prtflags(j);
|
|
l1 -= OSTSIZE;
|
|
}
|
|
myflush();
|
|
}
|
|
|
|
prtflags(af)
|
|
{
|
|
|
|
register f;
|
|
|
|
f = af;
|
|
if(f&SYEQ)
|
|
printf(" equ");
|
|
if(f&SYGL)
|
|
printf(" global");
|
|
if(f&SYER)
|
|
printf(" reg");
|
|
if(f&SYXR)
|
|
printf(" external");
|
|
if(f&SYDA)
|
|
printf(" data");
|
|
else if(f&SYTX)
|
|
printf(" text");
|
|
else if(f&SYBS)
|
|
printf(" bss");
|
|
else
|
|
printf(" abs");
|
|
putchar((char)'\n');
|
|
}
|
|
openfile(ap)
|
|
char *ap;
|
|
{
|
|
|
|
register char *p;
|
|
|
|
p = ap;
|
|
if((ibuf.fildes=fopen(p,&ibuf,1)) < 0) {
|
|
printf("unable to open %s\n",p);
|
|
exit();
|
|
}
|
|
ifilname = p; /*point to current file name for error msgs*/
|
|
if(read(ibuf.fildes,&couthd,2) != 2) {
|
|
printf("read error on file: %s\n",ifilname);
|
|
exit();
|
|
}
|
|
ibuf.nunused = 0;
|
|
lseek(ibuf.fildes,0L,0);
|
|
readhdr(); /*read file header*/
|
|
}
|
|
readhdr()
|
|
{
|
|
|
|
register int i;
|
|
register short *p;
|
|
|
|
p = &couthd;
|
|
for(i=0; i<HDSIZE/2; i++)
|
|
*p++ = getw(&ibuf);
|
|
if(couthd.ch_magic != MAGIC) {
|
|
if(couthd.ch_magic==MAGIC1) {
|
|
hdsize =+ 8;
|
|
}
|
|
else {
|
|
printf("file format error: %s\n",ifilname);
|
|
exit();
|
|
}
|
|
}
|
|
}
|