Return to pic.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / src

Annotation of 43BSDReno/pgrm/pascal/src/pic.c, revision 1.1

1.1     ! root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.