xref: /csrg-svn/usr.bin/pascal/src/pic.c (revision 14740)
1767Speter /* Copyright (c) 1979 Regents of the University of California */
2767Speter 
3*14740Sthien #ifndef lint
4*14740Sthien static	char sccsid[] = "@(#)pic.c 1.2 08/19/83";
5*14740Sthien #endif
6767Speter 
7767Speter #include "OPnames.h"
8767Speter 
9767Speter main()  {
10767Speter 	register int j, k;
11767Speter 
12767Speter 	for(j = 0;  j < 32;  j++) {
13767Speter 		for (k = 0;  k < 256;  k += 32)
14767Speter 			if (otext[j+k])
15767Speter 				printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1);
16767Speter 			else
17767Speter 				printf("%03o\t\t", j+k);
18767Speter 		putchar('\n');
19767Speter 		if ((j+1)%8 == 0)
20767Speter 			putchar('\n');
21767Speter 	}
22767Speter 	printf("Starred opcodes are used internally in Pi and are never generated.\n");
23767Speter 	exit(0);
24767Speter }
25