|
|
1.1 root 1: #include <stdio.h>
2: #include "defines"
3: #include "machdefs"
4:
5:
6:
7: prchars(fp, s)
8: FILEP fp;
9: int *s;
10: {
11:
12: fprintf(fp, ".byte 0%o,0%o\n", s[0], s[1]);
13: }
14:
15:
16:
17: pruse(fp, s)
18: FILEP fp;
19: char *s;
20: {
21: fprintf(fp, "\t%s\n", s);
22: }
23:
24:
25:
26: prskip(fp, k)
27: FILEP fp;
28: ftnint k;
29: {
30: fprintf(fp, "\t.space\t%ld\n", k);
31: }
32:
33:
34:
35:
36:
37: prcomblock(fp, name)
38: FILEP fp;
39: char *name;
40: {
41: fprintf(fp, LABELFMT, name);
42: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.