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