xref: /original-bsd/usr.bin/pascal/src/pic.c (revision c3e32dec)
1 /*-
2  * Copyright (c) 1980, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char copyright[] =
10 "@(#) Copyright (c) 1980, 1993\n\
11 	The Regents of the University of California.  All rights reserved.\n";
12 #endif /* not lint */
13 
14 #ifndef lint
15 static char sccsid[] = "@(#)pic.c	8.1 (Berkeley) 06/06/93";
16 #endif /* not lint */
17 
18 #include "OPnames.h"
19 
20 main()  {
21 	register int j, k;
22 
23 	for(j = 0;  j < 32;  j++) {
24 		for (k = 0;  k < 256;  k += 32)
25 			if (otext[j+k])
26 				printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1);
27 			else
28 				printf("%03o\t\t", j+k);
29 		putchar('\n');
30 		if ((j+1)%8 == 0)
31 			putchar('\n');
32 	}
33 	printf("Starred opcodes are used internally in Pi and are never generated.\n");
34 	exit(0);
35 }
36