[unix-history] / s6.s

" s6

itrunc: 0
   -7
   dac 9f+t
   lac idskpp
   dac 9f+t+1
1:
   lac 9f+t+1 i
   sna
   jmp 4f
   lac i.flags
   and o200000
   sna
   jmp 3f
   -64
   dac 9f+t+2
   lac dskbufp
   dac 9f+t+3
2:
   lac 9f+t+1 i
   jms dskrd
   lac 9f+t+3 i
   sza
   jms free
   isz 9f+t+3
   isz 9f+t+2
   jmp 2b
3:
   lac 9f+t+1 i
   jms free
   dzm 9f+t+1 i
4:
   isz 9f+t+1
   isz 9f+t
   jmp 1b
   lac i.flags
   and o577777
   dac i.flags
   jmp itrunc i
t = t+4

namei: 0
   jms iget
   -1
   tad namei i
   dac 9f+t+1
   isz namei
   lac i.flags
   and o20
   sna
   jmp namei i
   -8
   tad i.size
   cma
   lrss 3
   dac 9f+t
   sna
   jmp namei i
   dzm di
1:
   lac di


   jms dget
   lac d.i
   sna
   jmp 2f
   lac 9f+t+1
   dac 8
   lac d.name
   sad 8 i
   skp
   jmp 2f
   lac d.name+1
   sad 8 i
   skp
   jmp 2f
   lac d.name+2
   sad 8 i
   skp
   jmp 2f
   lac d.name+3
   sad 8 i
   skp
   jmp 2f
   lac d.i
   isz namei
   jmp namei i
2:
   isz di
   isz 9f+t
   jmp 1b
   jmp namei i
t = t+2

iget: 0
   dac ii
   cll; idiv; 5
   dac 9f+t
   lacq
   tad d2
   dac 9f+t+1
   jms dskrd
   lac 9f+t
   cll; mul; 12
   lacq
   tad dskbufp
   dac 9f+t
   dac .+2
   jms copy; ..; inode; 12
   jmp iget i

iput: 0
   lac 9f+t+1
   jms dskrd
   law inode-1
   dac 8
   -1
   tad 9f+t
   dac 9
   -12
   dac 9f+t+2
1:
   lac 8 i


   sad 9 i
   skp
   jmp 2f
   isz 9f+t+2
   jmp 1b
   jmp iput i
2:
   -1
   tad 8
   dac 8
   -1
   tad 9
   dac 9
1:
   lac 8 i
   dac 9 i
   isz 9f+t+2
   jmp 1b
   lac 9f+t+1
   jms dskwr
   jmp iput i
t = t+3

dget: 0
   dac di
   alss 3
   dac 9f+t
   jms pget
   dac 9f+t+1
   jms dskrd
   lac 9f+t
   and o77
   tad dskbufp
   dac 9f+t+2
   dac .+2
   jms copy; ..; dnode; 8
   lac 9f+t
   tad d8
   jms betwen; d0; i.size
      skp
   jmp dget i
   jms dacisize
   dzm d.i
   jmp dget i

dput: 0
   lac 9f+t+1
   jms dskrd
   lac 9f+t+2
   dac .+3
   jms copy; dnode; ..; 8
   lac 9f+t+1
   jms dskwr
   jmp dput i

t = t+3

pget: 0
   lrss 6
   dac 9f+t
   lac i.flags


   and o200000
   sza
   jmp 2f
   lac 9f+t
   jms betwen; d0; d6
      jmp 1f
   tad idskpp
   dac 9f+t
   lac 9f+t i
   sna
   jms alloc
   dac 9f+t i
   jmp pget i
1:
   jms alloc
   dac 9f+t+1
   jms copy; i.dskps; dskbuf; 7
   jms copyz; dskbuf+7; 64-7
   lac 9f+t+1
   jms dskwr
   lac 9f+t+1
   dac i.dskps
   jms copyz; i.dskps+1; 6
   lac i.flags
   xor o200000
   dac i.flags
2:
   lac 9f+t
   lrss 6
   jms betwen; d0; d6
      jms halt " file too big
   tad idskpp
   dac 9f+t+1
   lac 9f+t+1 i
   sna
   jms alloc
   dac 9f+t+1 i
   dac 9f+t+2
   jms dskrd
   lac 9f+t
   and o77
   tad dskbufp
   dac 9f+t+1
   lac 9f+t+1 i
   sza
   jmp pget i
   jms alloc
   dac 9f+t
   lac 9f+t+2
   jms dskrd
   lac 9f+t
   dac 9f+t+1 i
   lac 9f+t+2
   jms dskwr
   lac 9f+t
   jmp pget i
t = t+3

iwrite: 0
   dac 9f+t
   lac iwrite


   dac iread
   lac cskp
   dac iwrite
   jmp 1f

iread: 0
   dac 9f+t
   lac cnop
   dac iwrite
1:
   -1
   tad iread i
   dac 10
   dac 11
   isz iread
   lac iread i
   dac 9f+t+1
   isz iread
   lac o70000
   xct iwrite
   lac i.size
   cma
   tad 9f+t
   cma
   jms betwen; d0; 9f+t+1
      lac 9f+t+1
   dac 9f+t+2
   cma
   tad d1
   sna
   jmp iread i
   dac 9f+t+1
1:
   lac 9f+t
   jms pget
   dac 9f+t+3
   jms dskrd
   lac 9f+t
   and o77
   tad dskbufp
   tad dm1
   xct iwrite
   jmp .+3
   dac 10
cskp:
   skp
   dac 11
2:
   lac 11 i
   dac 10 i
   isz 9f+t
   isz 9f+t+1
   jmp 3f
      xct iwrite
      jmp 4f
      lac 9f+t
      jms betwen; d0; i.size
         dac i.size
      lac 9f+t+3
      jms dskwr
   4:
      lac 9f+t+2
      jmp iread i
3:
   lac 9f+t
   and o77
   sza
   jmp 2b
   xct iwrite
   jmp 1b
   lac 9f+t+3
   jms dskwr
   jmp 1b
t = t+4

finac: 0
   lac u.ac
   jms fget
      jms error
   lac f.flags
   sma
   jms error
   lac f.i
   jms iget
   jmp finac i

dacisize: 0
   dac i.size
   jms iput
   lac i.size
   jmp dacisize i
Commit	Line	Data
69f28986 KT	1	" s6
	2
	3	itrunc: 0
	4	-7
	5	dac 9f+t
	6	lac idskpp
	7	dac 9f+t+1
	8	1:
	9	lac 9f+t+1 i
	10	sna
	11	jmp 4f
	12	lac i.flags
	13	and o200000
	14	sna
	15	jmp 3f
	16	-64
	17	dac 9f+t+2
	18	lac dskbufp
	19	dac 9f+t+3
	20	2:
	21	lac 9f+t+1 i
	22	jms dskrd
	23	lac 9f+t+3 i
	24	sza
	25	jms free
	26	isz 9f+t+3
	27	isz 9f+t+2
	28	jmp 2b
	29	3:
	30	lac 9f+t+1 i
	31	jms free
	32	dzm 9f+t+1 i
	33	4:
	34	isz 9f+t+1
	35	isz 9f+t
	36	jmp 1b
	37	lac i.flags
	38	and o577777
	39	dac i.flags
	40	jmp itrunc i
	41	t = t+4
	42
	43	namei: 0
	44	jms iget
	45	-1
	46	tad namei i
	47	dac 9f+t+1
	48	isz namei
	49	lac i.flags
	50	and o20
	51	sna
	52	jmp namei i
	53	-8
	54	tad i.size
	55	cma
	56	lrss 3
	57	dac 9f+t
	58	sna
	59	jmp namei i
	60	dzm di
	61	1:
	62	lac di
	63
	64
65	jms dget
66	lac d.i
67	sna
68	jmp 2f
69	lac 9f+t+1
70	dac 8
71	lac d.name
72	sad 8 i
73	skp
74	jmp 2f
75	lac d.name+1
76	sad 8 i
77	skp
78	jmp 2f
79	lac d.name+2
80	sad 8 i
81	skp
82	jmp 2f
83	lac d.name+3
84	sad 8 i
85	skp
86	jmp 2f
87	lac d.i
88	isz namei
89	jmp namei i
90	2:
91	isz di
92	isz 9f+t
93	jmp 1b
94	jmp namei i
95	t = t+2
96
97	iget: 0
98	dac ii
99	cll; idiv; 5
100	dac 9f+t
101	lacq
102	tad d2
103	dac 9f+t+1
104	jms dskrd
105	lac 9f+t
106	cll; mul; 12
107	lacq
108	tad dskbufp
109	dac 9f+t
110	dac .+2
111	jms copy; ..; inode; 12
112	jmp iget i
113
114	iput: 0
115	lac 9f+t+1
116	jms dskrd
117	law inode-1
118	dac 8
119	-1
120	tad 9f+t
121	dac 9
122	-12
123	dac 9f+t+2
124	1:
125	lac 8 i
126
127
128	sad 9 i
129	skp
130	jmp 2f
131	isz 9f+t+2
132	jmp 1b
133	jmp iput i
134	2:
135	-1
136	tad 8
137	dac 8
138	-1
139	tad 9
140	dac 9
141	1:
142	lac 8 i
143	dac 9 i
144	isz 9f+t+2
145	jmp 1b
146	lac 9f+t+1
147	jms dskwr
148	jmp iput i
149	t = t+3
150
151	dget: 0
152	dac di
153	alss 3
154	dac 9f+t
155	jms pget
156	dac 9f+t+1
157	jms dskrd
158	lac 9f+t
159	and o77
160	tad dskbufp
161	dac 9f+t+2
162	dac .+2
163	jms copy; ..; dnode; 8
164	lac 9f+t
165	tad d8
166	jms betwen; d0; i.size
167	skp
168	jmp dget i
169	jms dacisize
170	dzm d.i
171	jmp dget i
172
173	dput: 0
174	lac 9f+t+1
175	jms dskrd
176	lac 9f+t+2
177	dac .+3
178	jms copy; dnode; ..; 8
179	lac 9f+t+1
180	jms dskwr
181	jmp dput i
182
183	t = t+3
184
185	pget: 0
186	lrss 6
187	dac 9f+t
188	lac i.flags
189
190
191	and o200000
192	sza
193	jmp 2f
194	lac 9f+t
195	jms betwen; d0; d6
196	jmp 1f
197	tad idskpp
198	dac 9f+t
199	lac 9f+t i
200	sna
201	jms alloc
202	dac 9f+t i
203	jmp pget i
204	1:
205	jms alloc
206	dac 9f+t+1
207	jms copy; i.dskps; dskbuf; 7
208	jms copyz; dskbuf+7; 64-7
209	lac 9f+t+1
210	jms dskwr
211	lac 9f+t+1
212	dac i.dskps
213	jms copyz; i.dskps+1; 6
214	lac i.flags
215	xor o200000
216	dac i.flags
217	2:
218	lac 9f+t
219	lrss 6
220	jms betwen; d0; d6
221	jms halt " file too big
222	tad idskpp
223	dac 9f+t+1
224	lac 9f+t+1 i
225	sna
226	jms alloc
227	dac 9f+t+1 i
228	dac 9f+t+2
229	jms dskrd
230	lac 9f+t
231	and o77
232	tad dskbufp
233	dac 9f+t+1
234	lac 9f+t+1 i
235	sza
236	jmp pget i
237	jms alloc
238	dac 9f+t
239	lac 9f+t+2
240	jms dskrd
241	lac 9f+t
242	dac 9f+t+1 i
243	lac 9f+t+2
244	jms dskwr
245	lac 9f+t
246	jmp pget i
247	t = t+3
248
249	iwrite: 0
250	dac 9f+t
251	lac iwrite
252
253
254	dac iread
255	lac cskp
256	dac iwrite
257	jmp 1f
258
259	iread: 0
260	dac 9f+t
261	lac cnop
262	dac iwrite
263	1:
264	-1
265	tad iread i
266	dac 10
267	dac 11
268	isz iread
269	lac iread i
270	dac 9f+t+1
271	isz iread
272	lac o70000
273	xct iwrite
274	lac i.size
275	cma
276	tad 9f+t
277	cma
278	jms betwen; d0; 9f+t+1
279	lac 9f+t+1
280	dac 9f+t+2
281	cma
282	tad d1
283	sna
284	jmp iread i
285	dac 9f+t+1
286	1:
287	lac 9f+t
288	jms pget
289	dac 9f+t+3
290	jms dskrd
291	lac 9f+t
292	and o77
293	tad dskbufp
294	tad dm1
295	xct iwrite
296	jmp .+3
297	dac 10
298	cskp:
299	skp
300	dac 11
301	2:
302	lac 11 i
303	dac 10 i
304	isz 9f+t
305	isz 9f+t+1
306	jmp 3f
307	xct iwrite
308	jmp 4f
309	lac 9f+t
310	jms betwen; d0; i.size
311	dac i.size
312	lac 9f+t+3
313	jms dskwr
314	4:
315	lac 9f+t+2
316	jmp iread i
317	3:
318	lac 9f+t
319	and o77
320	sza
321	jmp 2b
322	xct iwrite
323	jmp 1b
324	lac 9f+t+3
325	jms dskwr
326	jmp 1b
327	t = t+4
328
329	finac: 0
330	lac u.ac
331	jms fget
332	jms error
333	lac f.flags
334	sma
335	jms error
336	lac f.i
337	jms iget
338	jmp finac i
339
340	dacisize: 0
341	dac i.size
342	jms iput
343	lac i.size
344	jmp dacisize i