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