Return to vaxx.c CVS log

Up to [CSRG BSD Unix] / 43BSD / usr.bin / f77 / src / f77pass1

Annotation of 43BSD/usr.bin/f77/src/f77pass1/vaxx.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.  The Berkeley software License Agreement
                      4:  * specifies the terms and conditions for redistribution.
                      5:  */
                      6: 
                      7: #ifndef lint
                      8: static char sccsid[] = "@(#)vaxx.c     5.1 (Berkeley) 6/7/85";
                      9: #endif not lint
                     10: 
                     11: #include <stdio.h>
                     12: #include "defines.h"
                     13: #include "machdefs.h"
                     14: 
                     15: 
                     16: 
                     17: prchars(fp, s)
                     18: FILEP fp;
                     19: int *s;
                     20: {
                     21: 
                     22: fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
                     23: }
                     24: 
                     25: 
                     26: 
                     27: pruse(fp, s)
                     28: FILEP fp;
                     29: char *s;
                     30: {
                     31: fprintf(fp, "\t%s\n", s);
                     32: }
                     33: 
                     34: 
                     35: 
                     36: prskip(fp, k)
                     37: FILEP fp;
                     38: ftnint k;
                     39: {
                     40: fprintf(fp, "\t.space\t%ld\n", k);
                     41: }
                     42: 
                     43: 
                     44: 
                     45: 
                     46: 
                     47: prcomblock(fp, name)
                     48: FILEP fp;
                     49: char *name;
                     50: {
                     51: fprintf(fp, LABELFMT, name);
                     52: }

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