1 /* spl.c 1.2 85/07/29 */
2
3 #include "../tahoe/mtpr.h"
4
spl0()5 spl0()
6 {
7 register int oldipl;
8
9 oldipl = mfpr(IPL);
10 mtpr(IPL, 0);
11 return (oldipl);
12 }
13
spl1()14 spl1()
15 {
16 register int oldipl;
17
18 oldipl = mfpr(IPL);
19 mtpr(IPL, 1);
20 return (oldipl);
21 }
22
splnet()23 splnet()
24 {
25 register int oldipl;
26
27 oldipl = mfpr(IPL);
28 mtpr(IPL, 0xC);
29 return (oldipl);
30 }
31
spl8()32 spl8()
33 {
34 register int oldipl;
35
36 oldipl = mfpr(IPL);
37 mtpr(IPL, 0x10+8);
38 return (oldipl);
39 }
40
41 #ifdef notdef /* use splx() instead */
spl5()42 spl5()
43 {
44 register int oldipl;
45
46 oldipl = mfpr(IPL);
47 mtpr(IPL, 0x10+5);
48 return (oldipl);
49 }
50
spl4()51 spl4()
52 {
53 register int oldipl;
54
55 oldipl = mfpr(IPL);
56 mtpr(IPL, 0x10+4);
57 return (oldipl);
58 }
59
spl6()60 spl6()
61 {
62 register int oldipl;
63
64 oldipl = mfpr(IPL);
65 mtpr(IPL, 0x10+6);
66 return (oldipl);
67 }
68 #endif
69
splimp()70 splimp()
71 {
72 register int oldipl;
73
74 oldipl = mfpr(IPL);
75 mtpr(IPL, 0x10+8);
76 return (oldipl);
77 }
78
splsoftclock()79 splsoftclock()
80 {
81 register int oldipl;
82
83 oldipl = mfpr(IPL);
84 mtpr(IPL, 8);
85 return (oldipl);
86 }
87
splx(oldipl)88 splx(oldipl)
89 int oldipl;
90 {
91
92 mtpr(IPL, oldipl);
93 }
94