xref: /csrg-svn/usr.bin/pascal/src/opc.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%
622179Sdist  */
7761Speter 
814737Sthien #ifndef lint
922179Sdist char copyright[] =
10*48116Sbostic "@(#) Copyright (c) 1980 The Regents of the University of California.\n\
1122179Sdist  All rights reserved.\n";
12*48116Sbostic #endif /* not lint */
13761Speter 
14*48116Sbostic #ifndef lint
15*48116Sbostic static char sccsid[] = "@(#)opc.c	5.2 (Berkeley) 04/16/91";
16*48116Sbostic #endif /* not lint */
17*48116Sbostic 
18761Speter #include "OPnames.h"
19761Speter 
20761Speter main()  {
21761Speter 	register int i;
22761Speter 
23761Speter 	for (i = 0;  i < 256;  i++)
24761Speter 		if (otext[i])
25761Speter 			printf("#define O_%s %04o\n", otext[i]+1, i);
26761Speter 	exit(0);
27761Speter }
28