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
prchars(fp,s)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
pruse(fp,s)28 pruse(fp, s)
29 FILEP fp;
30 char *s;
31 {
32 fprintf(fp, "\t%s\n", s);
33 }
34
35
36
prskip(fp,k)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
prcomblock(fp,name)48 prcomblock(fp, name)
49 FILEP fp;
50 char *name;
51 {
52 fprintf(fp, LABELFMT, name);
53 }
54