xref: /csrg-svn/usr.bin/pascal/src/pic.c (revision 62213)
148116Sbostic /*-
2*62213Sbostic  * Copyright (c) 1980, 1993
3*62213Sbostic  *	The Regents of the University of California.  All rights reserved.
448116Sbostic  *
548116Sbostic  * %sccs.include.redist.c%
622185Sdist  */
7767Speter 
814740Sthien #ifndef lint
9*62213Sbostic static char copyright[] =
10*62213Sbostic "@(#) Copyright (c) 1980, 1993\n\
11*62213Sbostic 	The Regents of the University of California.  All rights reserved.\n";
1248116Sbostic #endif /* not lint */
13767Speter 
1448116Sbostic #ifndef lint
15*62213Sbostic static char sccsid[] = "@(#)pic.c	8.1 (Berkeley) 06/06/93";
1648116Sbostic #endif /* not lint */
1748116Sbostic 
18767Speter #include "OPnames.h"
19767Speter 
main()20767Speter main()  {
21767Speter 	register int j, k;
22767Speter 
23767Speter 	for(j = 0;  j < 32;  j++) {
24767Speter 		for (k = 0;  k < 256;  k += 32)
25767Speter 			if (otext[j+k])
26767Speter 				printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1);
27767Speter 			else
28767Speter 				printf("%03o\t\t", j+k);
29767Speter 		putchar('\n');
30767Speter 		if ((j+1)%8 == 0)
31767Speter 			putchar('\n');
32767Speter 	}
33767Speter 	printf("Starred opcodes are used internally in Pi and are never generated.\n");
34767Speter 	exit(0);
35767Speter }
36