Return to sys.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / ioex

Annotation of cci/d/ioex/sys.c, revision 1.1

1.1     ! root        1: 
        !             2: asm(".set NBPG,1024");
        !             3: asm(".set TBIA,10");
        !             4: asm(".set PCBB,14");
        !             5: asm(".set SCBB,18");
        !             6: asm(".set PACC,23");
        !             7: asm(".set PADC,25");
        !             8: 
        !             9: long clock_cnt = 0;
        !            10: 
        !            11: clock()
        !            12: {
        !            13:        clock_cnt++;
        !            14: }
        !            15: 
        !            16: 
        !            17: /*     **********************************************************
        !            18:        This routine saved a vector in SCB and set it to a new one
        !            19:        input parameters :
        !            20:        which1 : Vector no; 0,1,2,..X
        !            21:        saved_vec : pointer to a location to saved original vector
        !            22:        new_vec   : address of new handler
        !            23:        **********************************************************
        !            24: */
        !            25: set_handler(which1,saved_vec,new_vec)
        !            26: long which1, *saved_vec, new_vec; 
        !            27: {      register long *st_base;
        !            28: 
        !            29:        asm("mfpr $SCBB,r12");          /* st_base = &_scb */
        !            30:        st_base += which1;
        !            31:        *saved_vec = *st_base;          /* Save original vector */
        !            32:        *st_base = new_vec;
        !            33: }
        !            34: 
        !            35: 
        !            36: /*     ******************************************************************
        !            37:        This routine set new PTE for any Page Table. If input var 'pte'==0
        !            38:        then this routine will only READ the PTE specify.
        !            39:        Input parameter :
        !            40:        reg_no     : contain a number specify one of the following :
        !            41:                     SBR,SLR,P0BR,P0LR,P1BR,P1LR,P2BR,P2LR
        !            42:        old_pte    : pointer to location to save original PTE
        !            43:                     (Used to READ pte when var 'pte'==0)
        !            44:        which1     : PTE no; 0,1,2...X
        !            45:        pte        : New pte
        !            46:        ******************************************************************
        !            47: */
        !            48: fix_pte(reg_no,which1,old_pte,pte)
        !            49: long reg_no, *old_pte, which1, pte;
        !            50: {      
        !            51:        register long *st_base;
        !            52: 
        !            53:        asm("mfpr 4(fp),r12");          /* st_base = base address  */
        !            54:        st_base += which1;
        !            55:        *old_pte = *st_base;            /* Save original PTE */
        !            56:        if (pte) {
        !            57:                *st_base = pte;                 /* Set new PTE */
        !            58:                asm("mtpr $0,$TBIA");   /* Invalidate translation buffers */
        !            59:                asm("mtpr $0,$PADC");           /* Purge all data cache */
        !            60:                }
        !            61: }
        !            62: 
        !            63: uncache(va)
        !            64: long *va;
        !            65: {
        !            66:        asm("mtpr 4(fp),$0x1c");
        !            67: }

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