xref: /csrg-svn/usr.bin/pascal/src/pic.c (revision 22185)
1*22185Sdist /*
2*22185Sdist  * Copyright (c) 1980 Regents of the University of California.
3*22185Sdist  * All rights reserved.  The Berkeley software License Agreement
4*22185Sdist  * specifies the terms and conditions for redistribution.
5*22185Sdist  */
6767Speter 
714740Sthien #ifndef lint
8*22185Sdist char copyright[] =
9*22185Sdist "@(#) Copyright (c) 1980 Regents of the University of California.\n\
10*22185Sdist  All rights reserved.\n";
11*22185Sdist #endif not lint
12767Speter 
13767Speter #include "OPnames.h"
14767Speter 
15767Speter main()  {
16767Speter 	register int j, k;
17767Speter 
18767Speter 	for(j = 0;  j < 32;  j++) {
19767Speter 		for (k = 0;  k < 256;  k += 32)
20767Speter 			if (otext[j+k])
21767Speter 				printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1);
22767Speter 			else
23767Speter 				printf("%03o\t\t", j+k);
24767Speter 		putchar('\n');
25767Speter 		if ((j+1)%8 == 0)
26767Speter 			putchar('\n');
27767Speter 	}
28767Speter 	printf("Starred opcodes are used internally in Pi and are never generated.\n");
29767Speter 	exit(0);
30767Speter }
31