xref: /original-bsd/usr.bin/pascal/src/pic.c (revision 2301fdfb)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  */
6 
7 #ifndef lint
8 char copyright[] =
9 "@(#) Copyright (c) 1980 Regents of the University of California.\n\
10  All rights reserved.\n";
11 #endif not lint
12 
13 #include "OPnames.h"
14 
15 main()  {
16 	register int j, k;
17 
18 	for(j = 0;  j < 32;  j++) {
19 		for (k = 0;  k < 256;  k += 32)
20 			if (otext[j+k])
21 				printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1);
22 			else
23 				printf("%03o\t\t", j+k);
24 		putchar('\n');
25 		if ((j+1)%8 == 0)
26 			putchar('\n');
27 	}
28 	printf("Starred opcodes are used internally in Pi and are never generated.\n");
29 	exit(0);
30 }
31