Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " check |
2 | ||
3 | lac d1 | |
4 | sys sysloc | |
5 | dac iget | |
6 | ||
7 | lac d2 | |
8 | sys sysloc | |
9 | dac inode | |
10 | ||
11 | lac d4 | |
12 | sys sysloc | |
13 | dac nxfblk | |
14 | tad d1 | |
15 | dac nfblks | |
16 | tad d1 | |
17 | dac fblks | |
18 | ||
19 | lac d5 | |
20 | sys sysloc | |
21 | dac copy | |
22 | ||
23 | lac d6 | |
24 | sys sysloc | |
25 | dac copyz | |
26 | ||
27 | lac d7 | |
28 | sys sysloc | |
29 | dac betwen | |
30 | ||
31 | lac d8 | |
32 | sys sysloc | |
33 | dac dskrd | |
34 | ||
35 | lac d10 | |
36 | sys sysloc | |
37 | dac dskbuf | |
38 | dac dskbuf1 | |
39 | ||
40 | dzm indircnt | |
41 | dzm icnt | |
42 | dzm licnt | |
43 | dzm blcnt | |
44 | dzm curi | |
45 | jms copyz i; usetab; 500 | |
46 | ||
47 | iloop: | |
48 | isz curi | |
49 | -3400 | |
50 | tad curi | |
51 | sma | |
52 | jmp part2 | |
53 | lac curi | |
54 | jms iget i | |
55 | jms copy i; inode: 0; linode; 12 | |
56 | lac iflags | |
57 | sma | |
58 | jmp iloop | |
59 | isz icnt | |
60 | lac iflags | |
61 | and o40 | |
62 | sza | |
63 | jmp iloop | |
64 | law idskps | |
65 | dac t1 | |
66 | -7 | |
67 | dac t2 | |
68 | 1: | |
69 | lac i t1 | |
70 | sza | |
71 | jms dupcheck | |
72 | isz t1 | |
73 | isz t2 | |
74 | jmp 1b | |
75 | lac iflags | |
76 | and o200000 | |
77 | sna | |
78 | jmp iloop | |
79 | ||
80 | isz licnt | |
81 | law idskps | |
82 | dac t1 | |
83 | -7 | |
84 | dac t2 | |
85 | 1: | |
86 | lac i t1 | |
87 | sna | |
88 | jmp 3f | |
89 | jms dskrd i | |
90 | jms copy i; dskbuf: 0; ldskbuf; 64 | |
91 | isz indircnt | |
92 | law ldskbuf | |
93 | dac t3 | |
94 | -64 | |
95 | dac t4 | |
96 | 2: | |
97 | lac i t3 | |
98 | sza | |
99 | jms dupcheck | |
100 | isz t3 | |
101 | isz t4 | |
102 | jmp 2b | |
103 | 3: | |
104 | isz t1 | |
105 | isz t2 | |
106 | jmp 1b | |
107 | jmp iloop | |
108 | ||
109 | dupcheck: 0 | |
110 | isz blcnt | |
111 | jms betwen i; d709; d6400 | |
112 | jmp badadr | |
113 | dac t5 | |
114 | lrss 4 | |
115 | tad usetabp | |
116 | dac t6 | |
117 | cla | |
118 | llss 4 | |
119 | tad alsscom | |
120 | dac 2f | |
121 | lac d1 | |
122 | 2: alss 0 | |
123 | dac bit | |
124 | lac i t6 | |
125 | and bit | |
126 | sza | |
127 | jmp dup | |
128 | lac i t6 | |
129 | xor bit | |
130 | dac i t6 | |
131 | jmp i dupcheck | |
132 | ||
133 | badadr: | |
134 | jms print | |
135 | lac d1 | |
136 | sys write; badmes; 3 | |
137 | jmp i dupcheck | |
138 | badmes: | |
139 | < b>;<ad>;<r 012 | |
140 | ||
141 | dup: | |
142 | lac t5 | |
143 | jms print | |
144 | lac d1 | |
145 | sys write; dupmes; 3 | |
146 | lac curi | |
147 | jms print | |
148 | lac d1 | |
149 | sys write; dupmes+3; 1 | |
150 | jmp i dupcheck | |
151 | dupmes: | |
152 | < d>;<up>; 040; 012 | |
153 | ||
154 | print: 0 | |
155 | lmq | |
156 | law prbuf-1 | |
157 | dac 8 | |
158 | -6 | |
159 | dac t6 | |
160 | 1: | |
161 | cla | |
162 | llss 3 | |
163 | tad o60 | |
164 | dac i 8 | |
165 | isz t6 | |
166 | jmp 1b | |
167 | lac d1 | |
168 | sys write; prbuf; 6 | |
169 | jmp i print | |
170 | ||
171 | part2: | |
172 | lac icnt | |
173 | jmp print | |
174 | lac d1 | |
175 | sys write; m3; m3s | |
176 | lac licnt | |
177 | jms print | |
178 | lac d1 | |
179 | sys write; m4; m4s | |
180 | lac indircnt | |
181 | jms print | |
182 | lac d1 | |
183 | sys write; m5; m5s | |
184 | lac blcnt | |
185 | jms print | |
186 | lac d1 | |
187 | sys write; m6; m6s | |
188 | dzm blcnt | |
189 | ||
190 | -1 | |
191 | tad nfblks i | |
192 | cma | |
193 | sma | |
194 | jmp 2f | |
195 | dac t1 | |
196 | lac fblks | |
197 | dac t2 | |
198 | 1: | |
199 | lac i t2 | |
200 | jms dupcheck | |
201 | isz t2 | |
202 | isz t1 | |
203 | jmp 1b | |
204 | ||
205 | 2: | |
206 | lac nxfblk i | |
207 | 1: | |
208 | sna | |
209 | jmp part3 | |
210 | dac t1 | |
211 | jms dupcheck | |
212 | lac t1 | |
213 | jms dskrd i | |
214 | jms copy i; dskbuf1: 0; ldskbuf; 64 | |
215 | law ldskbuf | |
216 | dac t1 | |
217 | -9 | |
218 | dac t2 | |
219 | 2: | |
220 | isz t1 | |
221 | lac i t1 | |
222 | jms dupcheck | |
223 | isz t2 | |
224 | jmp 2b | |
225 | lac ldskbuf | |
226 | jmp 1b | |
227 | ||
228 | part3: | |
229 | lac blcnt | |
230 | jms print | |
231 | lac d1 | |
232 | sys write; m7; m7s | |
233 | lac d709 | |
234 | dac t1 | |
235 | 1: | |
236 | isz t1 | |
237 | lac t1 | |
238 | sad d6400 | |
239 | sys exit | |
240 | lrss 4 | |
241 | tad usetabp | |
242 | dac t2 | |
243 | cla | |
244 | llss 4 | |
245 | tad alsscom | |
246 | dac 2f | |
247 | lac d1 | |
248 | 2: alss 0 | |
249 | dac bit | |
250 | lac i t2 | |
251 | and bit | |
252 | sza | |
253 | jmp 1b | |
254 | lac t1 | |
255 | jms print | |
256 | lac d1 | |
257 | sys write; m8; m8s | |
258 | jmp 1b | |
259 | ||
260 | d1: 1 | |
261 | d2: 2 | |
262 | d4: 4 | |
263 | d5: 5 | |
264 | d6: 6 | |
265 | d7: 7 | |
266 | d8: 8 | |
267 | d10: 10 | |
268 | o60: 060 | |
269 | o400000: 0400000 | |
270 | o400001: 0400001 | |
271 | o40: 040 | |
272 | o200000: 0200000 | |
273 | alsscom: alss 0 | |
274 | d709: 709 | |
275 | d6400: 6400 | |
276 | ||
277 | m3: | |
278 | 040;<fi>;<le>;<s 012 | |
279 | m3s = .-m3 | |
280 | m4: | |
281 | 040;<la>;<rg>;<e 012 | |
282 | m4s = .-m4 | |
283 | m5: | |
284 | 040;<in>;<di>;<r 012 | |
285 | m5s = .-m5 | |
286 | m6: | |
287 | 040;<us>;<ed>;012 | |
288 | m6s = .-m6 | |
289 | m7: | |
290 | 040;<fr>;<ee>;012 | |
291 | m7s = .-m7 | |
292 | m8: | |
293 | 040;<mi>;<ss>;<in>;<g 012 | |
294 | m8s = .-m8 | |
295 | ||
296 | usetabp: usetab | |
297 | curi: 0 | |
298 | bit: 0 | |
299 | blcnt: 0 | |
300 | indircnt: 0 | |
301 | icnt: 0 | |
302 | licnt: 0 | |
303 | t1: 0 | |
304 | t2: 0 | |
305 | t3: 0 | |
306 | t4: 0 | |
307 | t5: 0 | |
308 | t6: 0 | |
309 | ||
310 | iget: 0 | |
311 | nxfblk: 0 | |
312 | nfblks: 0 | |
313 | fblks: 0 | |
314 | copy: 0 | |
315 | copyz: 0 | |
316 | betwen: 0 | |
317 | dskrd: 0 | |
318 | ||
319 | ldskbuf: .=.+64 | |
320 | linode: .=.+12 | |
321 | iflags = linode | |
322 | idskps = iflags+1 | |
323 | usetab: .=.+500 | |
324 | prbuf: .=.+6 |