Return to pdp11x.c CVS log

Up to [Research Unix] / researchv10no / cmd / f77 / alt

researchv10 Norman

#include <stdio.h>
#include "defines"
#include "machdefs"



prchars(fp, s)
FILEP fp;
register int *s;
{
register int i;

fprintf(fp, ".byte ");
for(i = 0; i<SZSHORT ; ++i)
	fprintf(fp, "%o%c", *s++, (i==SZSHORT-1 ? '\n' : ',' ) );
}





pruse(fp, s)
FILEP fp;
char *s;
{
fprintf(fp, "%s\n", s);
}





prskip(fp, k)
FILEP fp;
ftnint k;
{
/* works around bug in the pdp11 assembler that bombs on  . = .+x  for x>= 32768 */
for( ; k > 30000 ; k -= 30000)
	fprintf(fp, "\t. = .+30000.\n");
fprintf(fp, "\t. = .+%ld.\n", k);
}


prcomblock(fp, name)
FILEP fp;
char *name;
{
fprintf(fp, LABELFMT, name);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.