Return to vaxx.c CVS log

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

Annotation of researchv10no/cmd/f77/vaxx.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: int *s;
                     10: {
                     11: 
                     12: fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
                     13: }
                     14: 
                     15: 
                     16: 
                     17: pruse(fp, s)
                     18: FILEP fp;
                     19: char *s;
                     20: {
                     21: fprintf(fp, "\t%s\n", s);
                     22: }
                     23: 
                     24: 
                     25: 
                     26: prskip(fp, k)
                     27: FILEP fp;
                     28: ftnint k;
                     29: {
                     30: fprintf(fp, "\t.space\t%ld\n", k);
                     31: }
                     32: 
                     33: 
                     34: 
                     35: 
                     36: 
                     37: prcomblock(fp, name)
                     38: FILEP fp;
                     39: char *name;
                     40: {
                     41: fprintf(fp, LABELFMT, name);
                     42: }

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