xref: /csrg-svn/usr.bin/pascal/src/pic.c (revision 48116)
1*48116Sbostic /*-
2*48116Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*48116Sbostic  * All rights reserved.
4*48116Sbostic  *
5*48116Sbostic  * %sccs.include.redist.c%
622185Sdist  */
7767Speter 
814740Sthien #ifndef lint
922185Sdist char copyright[] =
10*48116Sbostic "@(#) Copyright (c) 1980 The Regents of the University of California.\n\
1122185Sdist  All rights reserved.\n";
12*48116Sbostic #endif /* not lint */
13767Speter 
14*48116Sbostic #ifndef lint
15*48116Sbostic static char sccsid[] = "@(#)pic.c	5.2 (Berkeley) 04/16/91";
16*48116Sbostic #endif /* not lint */
17*48116Sbostic 
18767Speter #include "OPnames.h"
19767Speter 
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