|
|
1.1 root 1: /* spl.c Tahoe version Feb. 1983 */
2: #include "../machine/mtpr.h"
3:
4: int spl0()
5: {
6: register int oldipl;
7:
8: oldipl = mfpr(IPL);
9: mtpr(0, IPL);
10: return (oldipl);
11: }
12:
13: int spl1()
14: {
15: register int oldipl;
16:
17: oldipl = mfpr(IPL);
18: mtpr(0x10+1, IPL);
19: return (oldipl);
20: }
21:
22: int spl2()
23: {
24: register int oldipl;
25:
26: oldipl = mfpr(IPL);
27: mtpr(0x10+2, IPL);
28: return (oldipl);
29: }
30:
31: int spl3()
32: {
33: register int oldipl;
34:
35: oldipl = mfpr(IPL);
36: mtpr(0x10+3, IPL);
37: return (oldipl);
38: }
39:
40: int spl4()
41: {
42: register int oldipl;
43:
44: oldipl = mfpr(IPL);
45: mtpr(0x10+4, IPL);
46: return (oldipl);
47: }
48:
49: int spl5()
50: {
51: register int oldipl;
52:
53: oldipl = mfpr(IPL);
54: mtpr(0x10+5, IPL);
55: return (oldipl);
56: }
57:
58: int spl6()
59: {
60: register int oldipl;
61:
62: oldipl = mfpr(IPL);
63: mtpr(0x10+6, IPL);
64: return (oldipl);
65: }
66:
67: int spl7()
68: {
69: register int oldipl;
70:
71: oldipl = mfpr(IPL);
72: mtpr(0x10+7, IPL);
73: return (oldipl);
74: }
75:
76: int spl8()
77: {
78: register int oldipl;
79:
80: oldipl = mfpr(IPL);
81: mtpr(0x10+8, IPL);
82: return (oldipl);
83: }
84:
85: int splimp()
86: {
87: register int oldipl;
88:
89: oldipl = mfpr(IPL);
90: mtpr(0x10+8, IPL);
91: return (oldipl);
92: }
93:
94: int splnet()
95: {
96: register int oldipl;
97:
98: oldipl = mfpr(IPL);
99: mtpr(0xC, IPL);
100: return (oldipl);
101: }
102:
103: splx(oldipl)
104: int oldipl;
105: {
106: mtpr(oldipl, IPL);
107: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.