Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/lo68/n.c

#include "cout.h"
#include "sendc68.h"

#define MAGIC1 MAGIC+1
int hdsize=0;

int loctr=0;
int pflg=0;
int syno=0;
int symflg;
extern int fout;
long lseek();
main(argc,argv)
char **argv;
{

long l,l1;
        register i,j,k;

        if(argc<2) {
                printf("Usage: nm68 objectfile\n");
                exit();
        }
        hdsize = HDSIZE;
        fout = dup(1);
        i = 1;
        openfile(argv[i]);
        l = couthd.ch_tsize+couthd.ch_dsize+hdsize;
        lseek(ibuf.fildes,l,0);
        ibuf.nunused = 0;
        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();
                }
        }
}