Return to spl.c CVS log

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

Annotation of cci/d/ether/spl.c, revision 1.1.1.1

1.1       root        1: /*     spl.c   Tahoe version Feb. 1983         */
                      2: #include "mtpr.h"
                      3: 
                      4: short  spl8()
                      5: {
                      6:        register short oldipl;
                      7: 
                      8:        oldipl = mfpr(IPL);
                      9:        mtpr(0x18);
                     10:        return (oldipl);
                     11: }
                     12: 
                     13: splx(oldipl)
                     14: short oldipl;
                     15: {
                     16:        mtpr(oldipl);
                     17: }
                     18: 
                     19: mtpr(value)
                     20: {
                     21:        asm("mtpr 4(fp), $0x8");
                     22: }
                     23: 
                     24: mfpr(regno)
                     25: {
                     26:        asm("mfpr 4(fp), r0");
                     27: }

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