Return to pdp11x.c CVS log

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

Annotation of researchv10no/cmd/f77/alt/pdp11x.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include "defines"
                      3: #include "machdefs"
                      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: 

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