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