Return to kgclock.c CVS log

Up to [Net/2] / Net2 / arch / vax / uba

Annotation of Net2/arch/vax/uba/kgclock.c, revision 1.1

1.1     ! root        1: /*-
        !             2:  * Copyright (c) 1982, 1986 The Regents of the University of California.
        !             3:  * All rights reserved.
        !             4:  *
        !             5:  * Redistribution and use in source and binary forms, with or without
        !             6:  * modification, are permitted provided that the following conditions
        !             7:  * are met:
        !             8:  * 1. Redistributions of source code must retain the above copyright
        !             9:  *    notice, this list of conditions and the following disclaimer.
        !            10:  * 2. Redistributions in binary form must reproduce the above copyright
        !            11:  *    notice, this list of conditions and the following disclaimer in the
        !            12:  *    documentation and/or other materials provided with the distribution.
        !            13:  * 3. All advertising materials mentioning features or use of this software
        !            14:  *    must display the following acknowledgement:
        !            15:  *     This product includes software developed by the University of
        !            16:  *     California, Berkeley and its contributors.
        !            17:  * 4. Neither the name of the University nor the names of its contributors
        !            18:  *    may be used to endorse or promote products derived from this software
        !            19:  *    without specific prior written permission.
        !            20:  *
        !            21:  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
        !            22:  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
        !            23:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
        !            24:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
        !            25:  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
        !            26:  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
        !            27:  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
        !            28:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
        !            29:  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
        !            30:  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
        !            31:  * SUCH DAMAGE.
        !            32:  *
        !            33:  *     @(#)kgclock.c   7.4 (Berkeley) 5/9/91
        !            34:  */
        !            35: 
        !            36: #include "kg.h"
        !            37: #if NKG > 0
        !            38: /*
        !            39:  * KL-11 as profiling clock
        !            40:  */
        !            41: #include "../include/pte.h"
        !            42: #include "../include/psl.h"
        !            43: 
        !            44: #include "sys/param.h"
        !            45: #include "sys/map.h"
        !            46: #include "sys/buf.h"
        !            47: #include "sys/time.h"
        !            48: #include "sys/kernel.h"
        !            49: 
        !            50: #include "ubavar.h"
        !            51: 
        !            52: int    kgprobe(), kgattach();
        !            53: struct uba_device *kginfo[1];
        !            54: u_short        kgstd[] = { 0177560, 0 };
        !            55: struct uba_driver kgdriver =
        !            56:     { kgprobe, 0, kgattach, 0, kgstd, "kg", kginfo };
        !            57: 
        !            58: struct klregs {
        !            59:        u_short fill[2];
        !            60:        u_short tcsr;
        !            61:        u_short tbuf;
        !            62: };
        !            63: #define        KLSTRT  0300            /* intr enbl + done */
        !            64: struct klregs *klbase;
        !            65: 
        !            66: int    usekgclock = 1;         /* if zero, kgclock is disabled */
        !            67: 
        !            68: kgprobe(reg)
        !            69:        caddr_t reg;
        !            70: {
        !            71:        register int br, cvec;  /* value-result */
        !            72:        register struct klregs *klp = (struct klregs *)reg;
        !            73: 
        !            74:        klp->tcsr = KLSTRT;
        !            75:        DELAY(100000);
        !            76:        klp->tcsr = 0;
        !            77:        return (sizeof(struct klregs));
        !            78: }
        !            79: 
        !            80: kgattach(ui)
        !            81:        struct uba_device *ui;
        !            82: {
        !            83: 
        !            84:        klbase = (struct klregs *)ui->ui_addr;
        !            85: }
        !            86: 
        !            87: /*
        !            88:  * start the sampling clock
        !            89:  */
        !            90: startkgclock()
        !            91: {
        !            92: 
        !            93:        if (klbase && usekgclock && phz == 0)
        !            94:                klbase->tcsr = KLSTRT;  /* enable interrupts */
        !            95: }
        !            96: 
        !            97: /* ARGSUSED */
        !            98: kgclock(dev, r0, r1, r2, r3, r4 ,r5, pc, ps)
        !            99:        caddr_t pc;
        !           100:        int ps;
        !           101: {
        !           102:        register int k;
        !           103:        static long otime;
        !           104:        static long calibrate;
        !           105: 
        !           106:        if (usekgclock == 0) {
        !           107:                phz = 0;
        !           108:                otime = 0;
        !           109:                return;
        !           110:        }
        !           111:        klbase->tbuf = 0377;    /* reprime clock (scope sync too) */
        !           112:        if (phz == 0) {
        !           113:                if (otime == 0) {
        !           114:                        otime = time.tv_sec + 1;
        !           115:                        calibrate = 0;
        !           116:                }
        !           117:                if (time.tv_sec >= otime)
        !           118:                        calibrate++;
        !           119:                if (time.tv_sec >= otime + 4) {
        !           120:                        phz = calibrate / 4;
        !           121:                        otime = 0;
        !           122:                }
        !           123:                return;
        !           124:        }
        !           125:        gatherstats(pc, ps);    /* this routine lives in kern_clock.c */
        !           126: }
        !           127: #endif

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