xref: /csrg-svn/usr.bin/f77/pass1.vax/vaxx.c (revision 22877)
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) 06/07/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 }
53