Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " s5 |
2 | ||
3 | dskswap: 0 | |
4 | cll; als 3 | |
5 | dac 9f+t | |
6 | jms dsktrans; -64; userdata; 9f+t; dskswap | |
7 | lac 9f+t | |
8 | tad o20 | |
9 | dac 9f+t | |
10 | jms dsktrans; -4096; 4096; 9f+t; dskswap | |
11 | isz dskswap | |
12 | jmp dskswap i | |
13 | t = t+1 | |
14 | ||
15 | access: 0 | |
16 | lac i.flags | |
17 | lmq | |
18 | lac u.uid | |
19 | spa | |
20 | jmp access i | |
21 | sad i.uid | |
22 | lrs 2 | |
23 | lacq | |
24 | and mode | |
25 | sza | |
26 | jmp access i | |
27 | jms error | |
28 | ||
29 | fassign: 0 | |
30 | -10 | |
31 | dac 9f+t | |
32 | 1: | |
33 | lac 9f+t | |
34 | tad d10 | |
35 | jms fget | |
36 | jms halt " will not happen | |
37 | lac f.flags | |
38 | sma | |
39 | jmp 1f | |
40 | isz 9f+t | |
41 | jmp 1b | |
42 | jmp fassign i | |
43 | 1: | |
44 | lac mode | |
45 | xor o400000 | |
46 | dac f.flags | |
47 | lac ii | |
48 | dac f.i | |
49 | lac 9f+t | |
50 | tad d10 | |
51 | dac u.ac | |
52 | dzm f.badd | |
53 | jms fput | |
54 | isz fassign | |
55 | jmp fassign i | |
56 | t = t+1 | |
57 | ||
58 | fget: 0 | |
59 | jms betwen; d0; d9 | |
60 | jmp fget i | |
61 | cll; mul; 3 | |
62 | lacq | |
63 | ||
64 | tad ofilesp | |
65 | dac 9f+t | |
66 | dac .+2 | |
67 | jms copy; ..; fnode; 3 | |
68 | isz fget | |
69 | jmp fget i | |
70 | ||
71 | fput: 0 | |
72 | lac 9f+t | |
73 | dac .+3 | |
74 | jms copy; fnode; ..; 3 | |
75 | jmp fput i | |
76 | t = t+1 | |
77 | ||
78 | forall: 0 | |
79 | lac u.base | |
80 | sad u.limit | |
81 | jmp 1f | |
82 | lac u.base | |
83 | ral | |
84 | lac u.base i | |
85 | snl | |
86 | lrs 9 | |
87 | and o777 | |
88 | jmp forall i | |
89 | fallr: | |
90 | lac u.base | |
91 | add o400000 | |
92 | dac u.base | |
93 | jmp forall+1 | |
94 | 1: | |
95 | lac u.count | |
96 | dac u.ac | |
97 | jmp sysexit | |
98 | ||
99 | sleep: 0 | |
100 | law ulist-1 | |
101 | dac 8 | |
102 | lac o200000 | |
103 | lmq | |
104 | 1: | |
105 | lac u.ulistp i | |
106 | sad 8 i | |
107 | jmp 1f | |
108 | isz 8 | |
109 | isz 8 | |
110 | isz 8 | |
111 | cla; lrs 1 | |
112 | jmp 1b | |
113 | 1: | |
114 | tad o100000 | |
115 | dac u.ulistp i | |
116 | lac sleep i | |
117 | dac 9f+t | |
118 | lac 9f+t i | |
119 | omq | |
120 | dac 9f+t i | |
121 | isz sleep | |
122 | jmp sleep i | |
123 | t = t+1 | |
124 | ||
125 | ||
126 | dslot: 0 | |
127 | dzm di | |
128 | skp | |
129 | 1: | |
130 | isz di | |
131 | lac di | |
132 | jms dget | |
133 | lac d.i | |
134 | sza | |
135 | jmp 1b | |
136 | jmp dslot i | |
137 | ||
138 | icreat: 0 | |
139 | dac 9f+t | |
140 | jms dslot | |
141 | lac o20 | |
142 | dac ii | |
143 | 1: | |
144 | isz ii | |
145 | lac ii | |
146 | jms iget | |
147 | lac i.flags | |
148 | spa | |
149 | jmp 1b | |
150 | lac ii | |
151 | dac d.i | |
152 | jms copy; name; d.name; 4 | |
153 | isz s.uniq | |
154 | lac s.uniq | |
155 | dac d.uniq | |
156 | dac i.uniq | |
157 | lac 9f+t | |
158 | xor o400000 | |
159 | dac i.flags | |
160 | lac u.uid | |
161 | dac i.uid | |
162 | -1 | |
163 | dac i.nlks | |
164 | dzm i.size | |
165 | jms copyz; i.dskps; 7 | |
166 | jms iput | |
167 | jms dput | |
168 | jmp icreat i | |
169 | t = t+1 | |
170 | ||
171 | dspput: 0 | |
172 | and o177 | |
173 | sna | |
174 | jmp i dspput | |
175 | sad o14 | |
176 | jmp 1f | |
177 | lmq | |
178 | sad o12 | |
179 | jms dspnl | |
180 | lac dsploc i | |
181 | sad o400000 | |
182 | jmp dspleft | |
183 | omq | |
184 | dac dsploc i | |
185 | isz dsploc | |
186 | jmp i dspput | |
187 | ||
188 | ||
189 | 1: | |
190 | jms dspinit | |
191 | jmp dspput i | |
192 | ||
193 | dspleft: | |
194 | lac dsploc | |
195 | sad edspbuf | |
196 | jmp 1f | |
197 | dac 8 | |
198 | lac o400000 | |
199 | dac 8 i | |
200 | cla; llss 18+7 | |
201 | dac dsploc i | |
202 | jmp dspput i | |
203 | ||
204 | dspnl: 0 | |
205 | lac dsplno | |
206 | sad d33 | |
207 | jmp 1f | |
208 | isz dsplno | |
209 | jmp dspnl i | |
210 | 1: | |
211 | lac o2000 | |
212 | wbl | |
213 | isz dspput | |
214 | jmp dspput i | |
215 | ||
216 | dspinit: 0 | |
217 | lac dspbufp3 | |
218 | dac dsploc | |
219 | lac o400000 | |
220 | dac dspbuf+3 | |
221 | dzm dsplno | |
222 | jmp dspinit i | |
223 | ||
224 | movdsp: 0 | |
225 | iof | |
226 | cdf | |
227 | dac dspbufp | |
228 | -1 | |
229 | dac .dspb | |
230 | ion | |
231 | jmp movdsp i | |
232 | ||
233 | arg: 0 | |
234 | lac u.rq+8 i | |
235 | isz u.rq+8 | |
236 | jmp arg i | |
237 | ||
238 | argname: 0 | |
239 | jms arg | |
240 | dac .+2 | |
241 | jms copy; ..; name; 4 | |
242 | lac u.cdir | |
243 | jms namei; name | |
244 | jms error | |
245 | jmp argname i | |
246 | ||
247 | seektell: 0 | |
248 | jms arg | |
249 | dac u.base | |
250 | ||
251 | jms arg | |
252 | dac u.limit | |
253 | jms finac | |
254 | lac u.limit | |
255 | sna | |
256 | jmp seektell i | |
257 | sad d1 | |
258 | jmp .+3 | |
259 | lac i.size | |
260 | jmp seektell i | |
261 | lac f.badd | |
262 | jmp seektell i | |
263 | ||
264 | isown: 0 | |
265 | jms argname | |
266 | jms iget | |
267 | lac u.uid | |
268 | sma | |
269 | sad i.uid | |
270 | skp | |
271 | jms error | |
272 | jmp isown i | |
273 |