147 lines
2.3 KiB
C
147 lines
2.3 KiB
C
/*
|
|
* fix system image for I/D space
|
|
* Move data down to 0; move text to 4K.
|
|
* Also put the data at the start of the
|
|
* file and the text after it.
|
|
*/
|
|
|
|
int tbuf[259];
|
|
int rbuf[259];
|
|
int obuf[259];
|
|
int txtsiz;
|
|
int datsiz;
|
|
int bsssiz;
|
|
int symsiz;
|
|
|
|
int txtrel 8192;
|
|
int datrel;
|
|
|
|
|
|
main(argc, argv)
|
|
char **argv;
|
|
{
|
|
register word, rel, s;
|
|
|
|
if (argc<3) {
|
|
printf("Arg count\n");
|
|
exit(1);
|
|
}
|
|
if ((tbuf[0] = open(argv[1], 0)) < 0) {
|
|
printf("Input file\n");
|
|
exit(1);
|
|
}
|
|
rbuf[0] = open(argv[1], 0);
|
|
if ((fcreat(argv[2], obuf)) < 0) {
|
|
printf("Output file\n");
|
|
exit(1);
|
|
}
|
|
if (getw(tbuf) != 0407) {
|
|
printf("Bad input format\n");
|
|
exit(1);
|
|
}
|
|
putw(0407, obuf);
|
|
txtsiz = getw(tbuf);
|
|
datsiz = getw(tbuf);
|
|
bsssiz = getw(tbuf);
|
|
symsiz = getw(tbuf);
|
|
getw(tbuf);
|
|
getw(tbuf);
|
|
if (getw(tbuf) != 0) {
|
|
printf("No relocation bits\n");
|
|
exit(1);
|
|
}
|
|
putw(txtsiz, obuf);
|
|
putw(datsiz, obuf);
|
|
putw(bsssiz, obuf);
|
|
putw(symsiz, obuf);
|
|
putw(0, obuf);
|
|
putw(0, obuf);
|
|
putw(1, obuf);
|
|
datrel = -txtsiz;
|
|
/*
|
|
* Copy out data first
|
|
*/
|
|
tbuf[1] = 0;
|
|
seek(tbuf[0], 020+txtsiz, 0);
|
|
seek(rbuf[0], 020+txtsiz, 0);
|
|
seek(rbuf[0], txtsiz, 1);
|
|
seek(rbuf[0], datsiz, 1);
|
|
s = datsiz >> 1;
|
|
while (s--) {
|
|
word = getw(tbuf);
|
|
rel = getw(rbuf);
|
|
if (rel&01)
|
|
word =- datrel;
|
|
word =+ getrel(rel);
|
|
putw(word, obuf);
|
|
}
|
|
/*
|
|
* Now to the text.
|
|
*/
|
|
rbuf[1] = 0;
|
|
tbuf[1] = 0;
|
|
seek(rbuf[0], 020+txtsiz, 0);
|
|
seek(rbuf[0], datsiz, 1);
|
|
seek(tbuf[0], 020, 0);
|
|
s = txtsiz >> 1;
|
|
while(s--) {
|
|
rel = getw(rbuf);
|
|
word = getw(tbuf);
|
|
if (rel&01)
|
|
word =- txtrel;
|
|
word =+ getrel(rel);
|
|
putw(word, obuf);
|
|
}
|
|
/*
|
|
* The symbol table.
|
|
*/
|
|
tbuf[1] = 0;
|
|
seek(tbuf[0], 020+txtsiz, 0);
|
|
seek(tbuf[0], txtsiz, 1);
|
|
seek(tbuf[0], datsiz, 1);
|
|
seek(tbuf[0], datsiz, 1);
|
|
s = symsiz;
|
|
while ((s =- 12) >= 0) {
|
|
putw(getw(tbuf), obuf);
|
|
putw(getw(tbuf), obuf);
|
|
putw(getw(tbuf), obuf);
|
|
putw(getw(tbuf), obuf);
|
|
rel = getw(tbuf);
|
|
putw(rel, obuf);
|
|
word = getw(tbuf);
|
|
switch(rel&07) {
|
|
case 2:
|
|
word =+ txtrel;
|
|
break;
|
|
|
|
case 3:
|
|
case 4:
|
|
word =+ datrel;
|
|
}
|
|
putw(word, obuf);
|
|
}
|
|
fflush(obuf);
|
|
close(obuf[0]);
|
|
exit(0);
|
|
}
|
|
|
|
getrel(r)
|
|
{
|
|
switch (r&016) {
|
|
|
|
case 02: /* ref to text */
|
|
return(txtrel);
|
|
|
|
case 04: /* ref to data */
|
|
case 06: /* ref to bss */
|
|
return(datrel);
|
|
|
|
case 0:
|
|
return(0);
|
|
|
|
default:
|
|
printf("Bad relocation %o\n", r);
|
|
return(0);
|
|
}
|
|
}
|