xref: /csrg-svn/usr.bin/pascal/src/pic.c (revision 767)
1*767Speter /* Copyright (c) 1979 Regents of the University of California */
2*767Speter 
3*767Speter static	char sccsid[] = "@(#)pic.c 1.1 08/27/80";
4*767Speter 
5*767Speter #include "OPnames.h"
6*767Speter 
7*767Speter main()  {
8*767Speter 	register int j, k;
9*767Speter 
10*767Speter 	for(j = 0;  j < 32;  j++) {
11*767Speter 		for (k = 0;  k < 256;  k += 32)
12*767Speter 			if (otext[j+k])
13*767Speter 				printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1);
14*767Speter 			else
15*767Speter 				printf("%03o\t\t", j+k);
16*767Speter 		putchar('\n');
17*767Speter 		if ((j+1)%8 == 0)
18*767Speter 			putchar('\n');
19*767Speter 	}
20*767Speter 	printf("Starred opcodes are used internally in Pi and are never generated.\n");
21*767Speter 	exit(0);
22*767Speter }
23