187 lines
2.8 KiB
C
187 lines
2.8 KiB
C
/*
|
|
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
*
|
|
* This product is part of the Amsterdam Compiler Kit.
|
|
*
|
|
* Permission to use, sell, duplicate or disclose this software must be
|
|
* obtained in writing. Requests for such permissions may be sent to
|
|
*
|
|
* Dr. Andrew S. Tanenbaum
|
|
* Wiskundig Seminarium
|
|
* Vrije Universiteit
|
|
* Postbox 7161
|
|
* 1007 MC Amsterdam
|
|
* The Netherlands
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <assert.h>
|
|
#include <out.h>
|
|
|
|
#define DATTYPE 0
|
|
#define EOFTYPE 1
|
|
#define SEGTYPE 2
|
|
#define PCTYPE 3
|
|
|
|
#define MAXBYTE 0x18
|
|
|
|
int check;
|
|
int records;
|
|
int echo;
|
|
int bytecount;
|
|
int ttyfd;
|
|
|
|
char *progname;
|
|
|
|
char hex[] = "0123456789ABCDEF";
|
|
|
|
struct outhead ohead;
|
|
struct outsect sect[MAXSECT];
|
|
|
|
main(argc,argv) char **argv; {
|
|
int i,nd,pc,first;
|
|
register char *s;
|
|
|
|
|
|
progname = argv[0];
|
|
if (argc > 3)
|
|
fatal("usage: %s [object [tty]]\n",argv[0]);
|
|
s = "a.out";
|
|
if (argc >= 2)
|
|
s = argv[1];
|
|
if (! rd_open(s)) {
|
|
fprintf(stderr,"%s: can't open %s\n",progname,s);
|
|
exit(-1);
|
|
}
|
|
rd_ohead(&ohead);
|
|
if (ohead.oh_flags & HF_LINK) {
|
|
fprintf(stderr,"%s: %s contains unresolved references\n",progname,s);
|
|
exit(-1);
|
|
}
|
|
rd_sect(sect, ohead.oh_nsect);
|
|
ttyfd = 1;
|
|
first = 1;
|
|
for (i = 0; i < ohead.oh_nsect; i++) {
|
|
rd_outsect(i);
|
|
pc = sect[i].os_base;
|
|
while (sect[i].os_size) {
|
|
unsigned int sz = 8096, fl;
|
|
extern char *calloc();
|
|
register char *buf;
|
|
char *pbuf;
|
|
|
|
if (sz > sect[i].os_size) sz = sect[i].os_size;
|
|
sect[i].os_size -= sz;
|
|
pbuf = buf = calloc(sz, 1);
|
|
if (fl = sect[i].os_flen) {
|
|
if (fl > sz) fl = sz;
|
|
sect[i].os_flen -= fl;
|
|
|
|
rd_emit(buf, (long) fl);
|
|
}
|
|
while (sz >= MAXBYTE) {
|
|
data(MAXBYTE, (int) pc, buf);
|
|
sz -= MAXBYTE;
|
|
buf += MAXBYTE;
|
|
pc += MAXBYTE;
|
|
first = 0;
|
|
}
|
|
if (sz > 0) {
|
|
data(sz, (int) pc, buf);
|
|
first = 0;
|
|
}
|
|
free(pbuf);
|
|
}
|
|
}
|
|
if (first == 0)
|
|
eof();
|
|
if (echo)
|
|
for (;;)
|
|
reply();
|
|
}
|
|
|
|
data(nd,pc, buf)
|
|
register char *buf;
|
|
{
|
|
|
|
newline(nd,pc,DATTYPE);
|
|
do
|
|
byte(*buf++);
|
|
while (--nd);
|
|
endline();
|
|
}
|
|
|
|
eof() {
|
|
|
|
newline(0,records,EOFTYPE);
|
|
endline();
|
|
}
|
|
|
|
newline(n,pc,typ) {
|
|
|
|
records++;
|
|
put(';');
|
|
byte(n);
|
|
check = 0;
|
|
bytecount = n+4;
|
|
word(pc);
|
|
}
|
|
|
|
endline() {
|
|
|
|
word(check);
|
|
put('\r');
|
|
put('\n');
|
|
assert(bytecount == 0);
|
|
put(0);
|
|
put(0);
|
|
put(0);
|
|
put(0);
|
|
put(0);
|
|
put(0);
|
|
}
|
|
|
|
word(w) {
|
|
|
|
byte(w>>8);
|
|
byte(w);
|
|
}
|
|
|
|
byte(b) {
|
|
|
|
b &= 0377;
|
|
check += b;
|
|
--bytecount;
|
|
put(hex[(b>>4) & 017]);
|
|
put(hex[b & 017]);
|
|
}
|
|
|
|
put(c)
|
|
char c;
|
|
{
|
|
|
|
write(ttyfd,&c,1);
|
|
}
|
|
|
|
reply() {
|
|
register i;
|
|
char c;
|
|
|
|
if (echo == 0)
|
|
return;
|
|
i = read(ttyfd,&c,1);
|
|
assert(i > 0);
|
|
write(1,&c,1);
|
|
}
|
|
|
|
fatal(s,a) {
|
|
|
|
fprintf(stderr,"%s: ",progname);
|
|
fprintf(stderr,s,a);
|
|
fprintf(stderr,"\n");
|
|
exit(-1);
|
|
}
|
|
|
|
rd_fatal() { fatal("read error"); }
|