home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / f77 / pdp11x.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  604 b   |  52 lines
  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. }
  50.  
  51.  
  52.