|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)pic.c 1.1 8/27/80"; ! 4: ! 5: #include "OPnames.h" ! 6: ! 7: main() { ! 8: register int j, k; ! 9: ! 10: for(j = 0; j < 32; j++) { ! 11: for (k = 0; k < 256; k += 32) ! 12: if (otext[j+k]) ! 13: printf("%03o%cO_%s\t", j+k, *otext[j+k], otext[j+k]+1); ! 14: else ! 15: printf("%03o\t\t", j+k); ! 16: putchar('\n'); ! 17: if ((j+1)%8 == 0) ! 18: putchar('\n'); ! 19: } ! 20: printf("Starred opcodes are used internally in Pi and are never generated.\n"); ! 21: exit(0); ! 22: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.