164 lines
3.5 KiB
C
164 lines
3.5 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
|
|
*
|
|
*/
|
|
|
|
char rcs_id[] = "$Header$" ;
|
|
|
|
/*
|
|
* The assumption is that this program is run on the same machine the
|
|
* assembler has run. So the assembler's idea of long fits cv's idea.
|
|
* The long's produced in the output file have the m68000 format.
|
|
* The idea's of the longs read in can be changed with the following
|
|
* flags:
|
|
* -v Vax longs
|
|
* -p Pdp 11 longs
|
|
* -m M68000 longs
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
char * prog ;
|
|
|
|
char flag ;
|
|
|
|
#define HDR_LENGTH 40
|
|
|
|
char hdr[HDR_LENGTH] ;
|
|
|
|
main(argc,argv) char **argv; {
|
|
long addr,maxaddr;
|
|
short count;
|
|
|
|
maxaddr=0;
|
|
if ( argc>1 && argv[1][0]=='-' ) {
|
|
flag=argv[1][1] ;
|
|
argc-- ; argv++ ;
|
|
}
|
|
if (argc != 3) {
|
|
fprintf(stderr,"Usage: %s [-[vpm]] VU-a.out pmds-a.out\n",argv[0]);
|
|
exit(-1);
|
|
}
|
|
prog=argv[0] ;
|
|
if (freopen(argv[1],"r",stdin)==NULL) {
|
|
fprintf(stderr,"%s: ",prog) ;
|
|
perror(argv[1]);
|
|
exit(-1);
|
|
}
|
|
if (freopen(argv[2],"w",stdout)==NULL) {
|
|
fprintf(stderr,"%s: ",prog) ;
|
|
perror(argv[2]);
|
|
exit(-1);
|
|
}
|
|
while ( getaddr(&addr) && getcnt(&count) ) {
|
|
fseek(stdout,addr+HDR_LENGTH,0);
|
|
while (count--) {
|
|
putchar(getchar());
|
|
if ( ferror(stdout) ) {
|
|
fprintf(stderr,"%s: write error\n",prog) ;
|
|
unlink(argv[2]) ; /* remove the output */
|
|
exit(2) ;
|
|
}
|
|
addr++;
|
|
}
|
|
if (addr>maxaddr)
|
|
maxaddr = addr;
|
|
}
|
|
sethdr(0,0410L) ; /* Magic */
|
|
sethdr(8,maxaddr) ;
|
|
fseek(stdout,0L,0);
|
|
fwrite(hdr,sizeof(hdr),1,stdout);
|
|
if ( ferror(stdout) ) {
|
|
fprintf(stderr,"%s: write error\n",prog) ;
|
|
unlink(argv[2]) ; /* remove the output */
|
|
exit(2) ;
|
|
}
|
|
chmod(argv[2],0755);
|
|
return 0;
|
|
}
|
|
|
|
getaddr(p_addr) long *p_addr ; {
|
|
char in[4] ;
|
|
short out[4] ;
|
|
int i ;
|
|
|
|
switch ( fread(in,1,4,stdin) ) {
|
|
case 0 : return 0 ;
|
|
case 4 : break ;;
|
|
default : fprintf(stderr,"%s: Illegal input format\n",prog) ;
|
|
return 0 ;
|
|
}
|
|
switch ( flag ) {
|
|
case 0 : *p_addr = *((long *)in) ;
|
|
return 1 ;
|
|
case 'v' :
|
|
out[0]=in[0] ; out[1]=in[1] ;
|
|
out[2]=in[2] ; out[3]=in[3] ;
|
|
break ;
|
|
case 'm' :
|
|
out[0]=in[3] ; out[1]=in[2] ;
|
|
out[2]=in[1] ; out[3]=in[0] ;
|
|
break ;
|
|
case 'p' :
|
|
out[0]=in[2] ; out[1]=in[3] ;
|
|
out[2]=in[0] ; out[3]=in[1] ;
|
|
break ;
|
|
default :
|
|
fprintf(stderr,"%s: Unknown conversion %c(%o)\n",
|
|
prog,flag,flag) ;
|
|
exit(-1) ;
|
|
}
|
|
for ( i=0 ; i<4 ; i++ ) out[i] &= 0xFF ;
|
|
*p_addr = 256 * ( 256 * ( 256 * out[3] + out[2] ) + out[1] ) + out[0];
|
|
return 1 ;
|
|
}
|
|
|
|
getcnt(p_cnt) short *p_cnt ; {
|
|
char in[2] ;
|
|
short out[2] ;
|
|
int i ;
|
|
|
|
switch ( fread(in,1,2,stdin) ) {
|
|
case 2 : break ;;
|
|
default : fprintf(stderr,"%s: Illegal input format\n",prog) ;
|
|
return 0 ;
|
|
}
|
|
switch ( flag ) {
|
|
case 0 : *p_cnt = *((short *)in) ;
|
|
return 1 ;
|
|
case 'v' :
|
|
case 'p' :
|
|
out[0]=in[0] ; out[1]=in[1] ;
|
|
break ;
|
|
case 'm' :
|
|
out[0]=in[1] ; out[1]=in[0] ;
|
|
break ;
|
|
default :
|
|
fprintf(stderr,"%s: Unknown conversion %c(%o)\n",
|
|
prog,flag,flag) ;
|
|
exit(-1) ;
|
|
}
|
|
for ( i=0 ; i<2 ; i++ ) out[i] &= 0xFF ;
|
|
*p_cnt = 256 * out[1] + out[0] ;
|
|
return 1 ;
|
|
}
|
|
|
|
sethdr(off,val) long val ; {
|
|
hdr[off] = val>>24 ;
|
|
hdr[off+1] = val>>16 ;
|
|
hdr[off+2] = val>>8 ;
|
|
hdr[off+3] = val ;
|
|
}
|