2.9BSD - /usr/src/cmd/f77/pdp11x.c

   1: #include <stdio.h>
   2: #include "defines"
   3: #include "locdefs"
   4: 
   5: 
   6: 
   7: prchars(fp, s)
   8: FILEP fp;
   9: register int *s;
  10: {
  11: register int i;
  12: 
  13: fprintf(fp, ".byte ");
  14: for(i = 0; i<SZSHORT ; ++i)
  15:     fprintf(fp, "%o%c", *s++, (i==SZSHORT-1 ? '\n' : ',' ) );
  16: }
  17: 
  18: 
  19: 
  20: 
  21: 
  22: pruse(fp, s)
  23: FILEP fp;
  24: char *s;
  25: {
  26: fprintf(fp, "%s\n", s);
  27: }
  28: 
  29: 
  30: 
  31: 
  32: 
  33: prskip(fp, k)
  34: FILEP fp;
  35: ftnint k;
  36: {
  37: /* works around bug in the pdp11 assembler that bombs on  . = .+x  for x>= 32768 */
  38: for( ; k > 30000 ; k -= 30000)
  39:     fprintf(fp, "\t. = .+30000.\n");
  40: fprintf(fp, "\t. = .+%ld.\n", k);
  41: }
  42: 
  43: 
  44: prcomblock(fp, name)
  45: FILEP fp;
  46: char *name;
  47: {
  48: fprintf(fp, LABELFMT, name);
  49: }

Defined functions