mirror of
https://github.com/kenrector/sds-kit.git
synced 2026-02-27 00:59:44 +00:00
Delete sds_nm.c
This commit is contained in:
ken rector
GitHub
258
tools/sds_nm.c
258
tools/sds_nm.c
@@ -1,258 +0,0 @@
|
||||
/* sdsnm.c - produce namelist for SDS binary object file */
|
||||
|
||||
/* created by Ken Rector, Aug 23, 2020 */
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
|
||||
#define eof 027657537
|
||||
|
||||
|
||||
FILE *infile, *outfile;
|
||||
|
||||
const char sds930_to_ascii[64] = {
|
||||
'0', '1', '2', '3', '4', '5', '6', '7',
|
||||
'8', '9', ' ', '=', '\'', ':', '>', '%', /* 17 = check mark */
|
||||
'+', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
|
||||
'H', 'I', '?', '.', ')', '[', '<', '@', /* 37 = stop code */
|
||||
'-', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
|
||||
'Q', 'R', '!', '$', '*', ']', ';', '^', /* 57 = triangle */
|
||||
' ', '/', 'S', 'T', 'U', 'V', 'W', 'X',
|
||||
'Y', 'Z', '?', ',', '(', '~', '\\', '#' /* 72 = rec mark */
|
||||
}; /* 75 = squiggle, 77 = del */
|
||||
|
||||
typedef struct df {
|
||||
int lbl1;
|
||||
int lbl2;
|
||||
int value;
|
||||
int bias;
|
||||
} df;
|
||||
|
||||
df def[1000];
|
||||
df adef[1000];
|
||||
df ref[1000];
|
||||
int ddd = 0;
|
||||
int addd = 0;
|
||||
int rddd = 0;
|
||||
int bias = 0;
|
||||
int fbias = 0;
|
||||
|
||||
unsigned int get24(){
|
||||
unsigned int i;
|
||||
|
||||
i = fgetc(infile) & 077;
|
||||
i = i<<6 | (fgetc(infile) & 077);
|
||||
i = i<<6 | (fgetc(infile) & 077);
|
||||
i = i<<6 | (fgetc(infile) & 077);
|
||||
return(i);
|
||||
}
|
||||
|
||||
unsigned int get24bcd(){
|
||||
unsigned int i;
|
||||
|
||||
i = sds930_to_ascii[fgetc(infile) & 077];
|
||||
i = (sds930_to_ascii[fgetc(infile) & 077]) << 8 | i;
|
||||
i = (sds930_to_ascii[fgetc(infile) & 077]) << 16 | i;
|
||||
i = (sds930_to_ascii[fgetc(infile) & 077]) << 24 | i;
|
||||
return(i);
|
||||
}
|
||||
|
||||
int cmpfnc (const void * a, const void * b) {
|
||||
df *x = (df *)a;
|
||||
df *y = (df *)b;
|
||||
return ( x->value - y->value );
|
||||
}
|
||||
|
||||
|
||||
int main(int argc, char *argv[]) {
|
||||
unsigned int i,j,n;
|
||||
unsigned int bin,type,cksm,cnt;
|
||||
int len;
|
||||
int max;
|
||||
int nf;
|
||||
|
||||
int l1;
|
||||
int l2;
|
||||
int val;
|
||||
char length[24];
|
||||
char *lll;
|
||||
|
||||
if (argc < 3)
|
||||
{
|
||||
printf("Usage: sds_nm bias binfile ... \n");
|
||||
printf("where bias is an octal value defining the origin of\n");
|
||||
printf("the first file in a list of object files\n");
|
||||
printf("binfile ... is a list of SDS standard binary object files\n");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
i = sscanf(argv[1], "%o", &bias);
|
||||
if ( i != 1)
|
||||
printf("invalid bias\n");
|
||||
outfile = stdout;
|
||||
|
||||
printf("\n\n EXTERNAL DEFS \n");
|
||||
for (nf = 2;nf < argc;nf++) {
|
||||
infile = fopen(argv[nf], "rb");
|
||||
if (!infile) {
|
||||
printf("Cannot open %s\n", argv[nf]);
|
||||
return 1;
|
||||
}
|
||||
|
||||
do {
|
||||
len = 40;
|
||||
i = get24(); // control word
|
||||
len--;
|
||||
if (feof(infile))
|
||||
break;
|
||||
if (i!=eof) {
|
||||
if ((bin = (i >> 12) & 07) != 05) {
|
||||
for (j = 0; j < len;j++) { // skip non binary card
|
||||
i = get24();
|
||||
}
|
||||
continue;
|
||||
}
|
||||
type = i >> 21; // control type
|
||||
cnt = (i >> 15) & 077;
|
||||
cnt--; // count this control word
|
||||
cksm = i & 07777;
|
||||
switch (type) {
|
||||
case 0: // data
|
||||
while (cnt) {
|
||||
i = get24();
|
||||
cnt--;
|
||||
len--;
|
||||
}
|
||||
for (j = 0;j < len;j++)
|
||||
i = get24();
|
||||
break;
|
||||
case 3: // end
|
||||
max = get24() & 077777; // save max location
|
||||
cnt--;
|
||||
len--;
|
||||
while (cnt) {
|
||||
i = get24();
|
||||
cnt--;
|
||||
len--;
|
||||
}
|
||||
for (j = 0;j < len;j++)
|
||||
i = get24();
|
||||
break;
|
||||
case 1: //ext def/ref
|
||||
while(cnt) {
|
||||
l1 = get24bcd();
|
||||
cnt--;
|
||||
len--;
|
||||
l2 = get24bcd();
|
||||
cnt--;
|
||||
len--;
|
||||
val = get24();
|
||||
cnt--;
|
||||
len--;
|
||||
def[ddd].value = n & 077777;
|
||||
switch (val >> 22) {
|
||||
case 0: // common or program length
|
||||
break;
|
||||
case 1: // external ref
|
||||
for (j = 0; j < rddd;j++) {
|
||||
if ((l1 == ref[j].lbl1) &&
|
||||
(l2 == ref[j].lbl2))
|
||||
break;
|
||||
}
|
||||
if (j == rddd) {
|
||||
ref[rddd].lbl1 = l1; // add ref to list
|
||||
ref[rddd].lbl2 = l2;
|
||||
ref[rddd].value = nf;
|
||||
ref[rddd].bias = bias;
|
||||
rddd++;
|
||||
}
|
||||
break;
|
||||
case 2: // external def
|
||||
if (val & 0100000) {
|
||||
def[ddd].lbl1 = l1;
|
||||
def[ddd].lbl2 = l2;
|
||||
def[ddd].value = (val & 077777777);
|
||||
def[ddd].bias = bias;
|
||||
ddd++;
|
||||
}
|
||||
else {
|
||||
adef[addd].lbl1 = l1;
|
||||
adef[addd].lbl2 = l2;
|
||||
adef[addd].value = (val & 077777777);
|
||||
addd++;
|
||||
}
|
||||
break;
|
||||
case 3: // external ref w/added item
|
||||
break;
|
||||
}
|
||||
|
||||
}
|
||||
for (j = 0;j < len;j++)
|
||||
i = get24();
|
||||
break;
|
||||
default:
|
||||
printf("unknown record type %o\n",i);
|
||||
}
|
||||
}
|
||||
n++;
|
||||
} while(!feof(infile));
|
||||
|
||||
qsort(def,ddd,sizeof(df),cmpfnc);
|
||||
qsort(adef,addd,sizeof(df),cmpfnc);
|
||||
|
||||
|
||||
printf("\nFile: %s Load Address: %05o\n",argv[nf],bias);
|
||||
if (ddd) {
|
||||
printf("Relocatable:\n");
|
||||
for (j = 0; j < ddd; j++) {
|
||||
printf("\t");
|
||||
char *c = (char *)&def[j];
|
||||
for (i = 0; i < 8; i++)
|
||||
printf("%c",*c++);
|
||||
printf(" %05o",def[j].value & 077777);
|
||||
printf(" %05o\n",(def[j].value+def[j].bias) & 077777);
|
||||
}
|
||||
}
|
||||
if (addd) {
|
||||
printf("\n Absolute:\n");
|
||||
for (j = 0; j < addd; j++) {
|
||||
printf("\t");
|
||||
char *c = (char *)&adef[j];
|
||||
for (i = 0; i < 8; i++)
|
||||
printf("%c",*c++);
|
||||
printf(" %05o\n",adef[j].value & 077777);
|
||||
}
|
||||
printf("\n");
|
||||
}
|
||||
if (rddd) {
|
||||
printf("\n Unsatisfied Refs:\n");
|
||||
for (j = 0; j < rddd; j++) {
|
||||
for (n = 0; n < ddd; n++) {
|
||||
if ((ref[j].lbl1 == def[n].lbl1) &&
|
||||
(ref[j].lbl2 == def[n].lbl2))
|
||||
break;
|
||||
}
|
||||
if (n == ddd) {
|
||||
for (n = 0; n < addd; n++) {
|
||||
if ((ref[j].lbl1 == adef[n].lbl1) &&
|
||||
(ref[j].lbl2 == adef[n].lbl2))
|
||||
break;
|
||||
}
|
||||
if (n == addd) {
|
||||
printf("\t%s %s\n",(char *)&ref[j],argv[ref[j].value]);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
fclose(infile);
|
||||
ddd = 0;
|
||||
addd = 0;
|
||||
rddd = 0;
|
||||
bias += max;
|
||||
}
|
||||
fclose(outfile);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user