143226Sbostic #include <stdio.h>
2*43229Sbostic #include "defines.h"
3*43229Sbostic #include "machdefs.h"
443226Sbostic 
543226Sbostic 
643226Sbostic 
743226Sbostic prchars(fp, s)
843226Sbostic FILEP fp;
943226Sbostic int *s;
1043226Sbostic {
1143226Sbostic 
1243226Sbostic fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
1343226Sbostic }
1443226Sbostic 
1543226Sbostic 
1643226Sbostic 
1743226Sbostic pruse(fp, s)
1843226Sbostic FILEP fp;
1943226Sbostic char *s;
2043226Sbostic {
2143226Sbostic fprintf(fp, "\t%s\n", s);
2243226Sbostic }
2343226Sbostic 
2443226Sbostic 
2543226Sbostic 
2643226Sbostic prskip(fp, k)
2743226Sbostic FILEP fp;
2843226Sbostic ftnint k;
2943226Sbostic {
3043226Sbostic fprintf(fp, "\t.space\t%ld\n", k);
3143226Sbostic }
3243226Sbostic 
3343226Sbostic 
3443226Sbostic 
3543226Sbostic 
3643226Sbostic 
3743226Sbostic prcomblock(fp, name)
3843226Sbostic FILEP fp;
3943226Sbostic char *name;
4043226Sbostic {
4143226Sbostic fprintf(fp, LABELFMT, name);
4243226Sbostic }
43