# 2.11BSD#431 - /usr/src/usr.bin/f77/pdp11x.c

##### Functions

    prchars           X
    prcomblock        X
    prskip            X
    pruse             X

       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

prchars defined in line 7; used 3 times

- in /usr/src/usr.bin/f77/driver.c line 1167
- in /usr/src/usr.bin/f77/put.c line 289, 296

prcomblock defined in line 44; used 1 times

- in /usr/src/usr.bin/f77/driver.c line 1041

prskip defined in line 33; used 2 times

- in /usr/src/usr.bin/f77/driver.c line 1098
- in /usr/src/usr.bin/f77/pdp11.c line 265

pruse defined in line 22; used 3 times

- in /usr/src/usr.bin/f77/driver.c line 1024
- in /usr/src/usr.bin/f77/init.c line 139
- in /usr/src/usr.bin/f77/proc.c line 397

Last modified: 1987-02-17 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 441 |