Return to ka630.c CVS log

Up to [CSRG BSD Unix] / 43BSD / sys / vax

Annotation of 43BSD/sys/vax/ka630.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     @(#)ka630.c     7.1 (Berkeley) 6/5/86
                      3:  */
                      4: #if defined(VAX630)
                      5: /* ka630.c routines for the ka630 clock chip... */
                      6: #include "param.h"
                      7: #include "time.h"
                      8: #include "kernel.h"
                      9: #include "vmmac.h"
                     10: 
                     11: #include "mtpr.h"
                     12: #include "cpu.h"
                     13: #include "clock.h"
                     14: #include "pte.h"
                     15: #include "ka630.h"
                     16: 
                     17: /*
                     18:  * These two fuctions handle the tod clock
                     19:  * This code is defunct at the end of the century.
                     20:  * Will Unix still be here then??
                     21:  */
                     22: 
                     23: struct cldevice cldevice;
                     24: struct ka630cpu ka630cpu;
                     25: 
                     26: short dayyr[12] = { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, };
                     27: /* Starts the tod clock. Called from clkstart... */
                     28: ka630tod(base)
                     29:        time_t base;
                     30: {
                     31:        register int tmp1, tmp2;
                     32:        struct pte *pte = &Clockmap[0];
                     33:        register struct cldevice *claddr = &cldevice;
                     34:        struct ka630cpu *ka630addr = &ka630cpu;
                     35: 
                     36:        /* Enable system page for registers */
                     37:        *(int *)pte = PG_V|PG_KW|btop(0x200b8000);
                     38:        pte = &Ka630map[0];
                     39:        *(int *)pte = PG_V|PG_KW|btop(0x20080000);
                     40:        mtpr(TBIA, 0);
                     41:        /*
                     42:         * Clear restart and boot in progress flags in the CPMBX. This has
                     43:         * nothing to do with the clock except that it the CPMBX reg. is a
                     44:         * byte in the clock's ram.
                     45:         */
                     46:        claddr->cpmbx=(u_short)((claddr->cpmbx&KA630CLK_LANG)|KA630CLK_REBOOT);
                     47:        /*
                     48:         * Enable memory parity error detection. again nothing to do with the
                     49:         * tod clock except for being a convenient place.
                     50:         */
                     51:        ka630addr->ka630_mser = KA630MSER_PAREN;
                     52:        claddr->csr1 = KA630CLK_SET;
                     53:        while ((claddr->csr0 & KA630CLK_UIP) != 0)
                     54:                ;
                     55:        /* If the clock is valid, use it. */
                     56:        if ((claddr->csr3 & KA630CLK_VRT) != 0 &&
                     57:            (claddr->csr1 & KA630CLK_ENABLE) == KA630CLK_ENABLE) {
                     58:                /* Convert yr,mon,day,hr,min,sec to sec past Jan.1, 1970. */
                     59:                tmp2 = 0;
                     60:                for (tmp1 = 70; tmp1 < claddr->yr; tmp1++) {
                     61:                        tmp2 += 365;
                     62:                        /* I just luv leap years... */
                     63:                        if (LEAPYEAR(tmp1))
                     64:                                tmp2++;
                     65:                }
                     66:                tmp2 += (dayyr[claddr->mon-1]+claddr->day-1);
                     67:                if (LEAPYEAR(claddr->yr) && claddr->mon > 2)
                     68:                        tmp2++;
                     69:                /* Finally got days past Jan. 1,1970. the rest is easy.. */
                     70:                time.tv_sec = tmp2*SECDAY+claddr->hr*HRSEC+
                     71:                        claddr->min*MINSEC+claddr->sec;
                     72:                tmp1 = claddr->csr2;
                     73:                claddr->csr0 = KA630CLK_RATE;
                     74:                claddr->csr1 = KA630CLK_ENABLE;
                     75:        } else if (base < 5*SECYR) {
                     76:                printf("WARNING: preposterous time in file system\n");
                     77:                time.tv_sec = 6*SECYR+186*SECDAY+SECDAY/2;
                     78:                ka630stod();
                     79:        } else {
                     80:                printf("WARNING: Time set via file system\n");
                     81:                time.tv_sec = base;
                     82:                ka630stod();
                     83:        }
                     84: }
                     85: /* Set the time of day clock, called via. stime system call.. */
                     86: ka630stod()
                     87: {
                     88:        register int tmp1, tmp3;
                     89:        register struct cldevice *claddr = &cldevice;
                     90:        long tmp2, tmp4;
                     91: 
                     92:        claddr->csr1 = KA630CLK_SET;
                     93:        while ((claddr->csr0 & KA630CLK_UIP) != 0)
                     94:                ;
                     95:        /* The reverse of above, sec. past Jan. 1,1970 to yr, mon... */
                     96:        tmp2 = time.tv_sec/HRSEC;
                     97:        tmp4 = tmp2 = tmp2/24;
                     98:        tmp1 = 69;
                     99:        while (tmp2 >= 0) {
                    100:                tmp3 = tmp2;
                    101:                tmp2 -= 365;
                    102:                tmp1++;
                    103:                if (LEAPYEAR(tmp1))
                    104:                        tmp2--;
                    105:        }
                    106:        /* Got the year... */
                    107:        claddr->yr = tmp1;
                    108:        tmp1 = -1;
                    109:        do {
                    110:                tmp2 = tmp3-dayyr[++tmp1];
                    111:                if (LEAPYEAR(claddr->yr) && tmp1 > 1)
                    112:                        tmp2--;
                    113:        } while (tmp2 >= 0);
                    114:        /* Finally, got the rest... */
                    115:        claddr->mon = tmp1;
                    116:        claddr->day = tmp3-dayyr[tmp1-1]+1;
                    117:        if (LEAPYEAR(claddr->yr) && tmp1 > 2)
                    118:                claddr->day--;
                    119:        tmp2 = time.tv_sec-(tmp4*SECDAY);
                    120:        claddr->hr = tmp2/HRSEC;
                    121:        tmp2 = tmp2%HRSEC;
                    122:        claddr->min = tmp2/MINSEC;
                    123:        tmp2 = tmp2%MINSEC;
                    124:        claddr->sec = tmp2;
                    125:        tmp1 = claddr->csr2;
                    126:        tmp1 = claddr->csr3;
                    127:        claddr->csr0 = KA630CLK_RATE;
                    128:        claddr->csr1 = KA630CLK_ENABLE;
                    129: }
                    130: #endif

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