4.3BSD - /usr/src/ucb/pascal/src/pic.c

   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: }

Defined functions

Defined variables