1*47955Sbostic /*-
2*47955Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*47955Sbostic * All rights reserved.
4*47955Sbostic *
5*47955Sbostic * %sccs.include.proprietary.c%
622877Smckusick */
722877Smckusick
822877Smckusick #ifndef lint
9*47955Sbostic static char sccsid[] = "@(#)vaxx.c 5.2 (Berkeley) 04/12/91";
10*47955Sbostic #endif /* not lint */
1122877Smckusick
1222877Smckusick #include <stdio.h>
1322877Smckusick #include "defines.h"
1422877Smckusick #include "machdefs.h"
1522877Smckusick
1622877Smckusick
1722877Smckusick
prchars(fp,s)1822877Smckusick prchars(fp, s)
1922877Smckusick FILEP fp;
2022877Smckusick int *s;
2122877Smckusick {
2222877Smckusick
2322877Smckusick fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
2422877Smckusick }
2522877Smckusick
2622877Smckusick
2722877Smckusick
pruse(fp,s)2822877Smckusick pruse(fp, s)
2922877Smckusick FILEP fp;
3022877Smckusick char *s;
3122877Smckusick {
3222877Smckusick fprintf(fp, "\t%s\n", s);
3322877Smckusick }
3422877Smckusick
3522877Smckusick
3622877Smckusick
prskip(fp,k)3722877Smckusick prskip(fp, k)
3822877Smckusick FILEP fp;
3922877Smckusick ftnint k;
4022877Smckusick {
4122877Smckusick fprintf(fp, "\t.space\t%ld\n", k);
4222877Smckusick }
4322877Smckusick
4422877Smckusick
4522877Smckusick
4622877Smckusick
4722877Smckusick
prcomblock(fp,name)4822877Smckusick prcomblock(fp, name)
4922877Smckusick FILEP fp;
5022877Smckusick char *name;
5122877Smckusick {
5222877Smckusick fprintf(fp, LABELFMT, name);
5322877Smckusick }
54