1*47951Sbostic /*-
2*47951Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*47951Sbostic * All rights reserved.
4*47951Sbostic *
5*47951Sbostic * %sccs.include.proprietary.c%
6*47951Sbostic */
7*47951Sbostic
8*47951Sbostic #ifndef lint
9*47951Sbostic static char sccsid[] = "@(#)tahoex.c 5.3 (Berkeley) 04/12/91";
10*47951Sbostic #endif /* not lint */
11*47951Sbostic
1243226Sbostic #include <stdio.h>
1343229Sbostic #include "defines.h"
1443229Sbostic #include "machdefs.h"
1543226Sbostic
1643226Sbostic
1743226Sbostic
prchars(fp,s)1843226Sbostic prchars(fp, s)
1943226Sbostic FILEP fp;
2043226Sbostic int *s;
2143226Sbostic {
2243226Sbostic
2343226Sbostic fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
2443226Sbostic }
2543226Sbostic
2643226Sbostic
2743226Sbostic
pruse(fp,s)2843226Sbostic pruse(fp, s)
2943226Sbostic FILEP fp;
3043226Sbostic char *s;
3143226Sbostic {
3243226Sbostic fprintf(fp, "\t%s\n", s);
3343226Sbostic }
3443226Sbostic
3543226Sbostic
3643226Sbostic
prskip(fp,k)3743226Sbostic prskip(fp, k)
3843226Sbostic FILEP fp;
3943226Sbostic ftnint k;
4043226Sbostic {
4143226Sbostic fprintf(fp, "\t.space\t%ld\n", k);
4243226Sbostic }
4343226Sbostic
4443226Sbostic
4543226Sbostic
4643226Sbostic
4743226Sbostic
prcomblock(fp,name)4843226Sbostic prcomblock(fp, name)
4943226Sbostic FILEP fp;
5043226Sbostic char *name;
5143226Sbostic {
5243226Sbostic fprintf(fp, LABELFMT, name);
5343226Sbostic }
54