[unix-history] / s3.s

" s3

searchu: 0
   lac searchu i
   dac 9f+t+1
   -mnproc
   dac 9f+t
   law ulist-1
   dac 8
1:
   lac 8 i
   dac lu
   lac 8 i
   dac lu+1
   lac 8 i
   dac lu+2
   lac 8 i
   dac lu+3
   jms 9f+t+1 i
   isz 9f+t
   jmp 1b
   isz searchu
   jmp searchu i
t = t+2

lookfor: 0
   jms searchu; 1f
   isz lookfor
   isz lookfor
   jmp lookfor i
1: 0
   lac lu
   rtl; rtl; and o7
   sad lookfor i
   skp
   jmp 1b i
   -3
   tad 8
   and o17777
   isz lookfor
   jmp lookfor i

.fork:
   jms lookfor; 0 " not-used
      skp
      jms error
   dac 9f+t
   isz uniqpid
   lac uniqpid
   dac u.ac
   law sysexit
   dac u.swapret
   lac o200000
   tad u.ulistp i
   dac u.ulistp i
   jms dskswap; 07000
   lac 9f+t
   dac u.ulistp
   lac o100000
   xor u.ulistp i
   dac u.ulistp i
   lac u.pid
   dac u.ac
   lac uniqpid
   dac u.pid
   isz 9f+t
   dac 9f+t i
   isz u.rq+8
   dzm u.intflg
   jmp sysexit
t= t+1

badcal:
   clon
   -1
   dac 7
.save:
   lac d1
   jms iget
   cla
   jms iwrite; 4096; 4096
   jms iwrite; userdata; 64
   jms iput

.exit:
   lac u.dspbuf
   sna
   jmp .+3
   law dspbuf
   jms movdsp
   jms awake
   lac u.ulistp i
   and o77777
   dac u.ulistp i
   isz u.ulistp
   dzm u.ulistp i
   jms swap

.rmes:
   jms awake
   lac o100000
   tad u.ulistp i
   dac u.ulistp i
   law 2
   tad u.ulistp
   dac 9f+t
   -1
   dac 9f+t i
   jms swap
   law 2
   tad u.ulistp
   dac 9f+t
   lac 9f+t i
   cma
   dac u.ac
   dzm 9f+t i
   isz 9f+t
   lac 9f+t i
   dac u.mq
   dzm 9f+t i
   jmp sysexit
t = t+1

.smes:
   lac u.ac
   sna spa
   jms error
   jms searchu; 1f
   law 2
   tad u.ulistp
   dac 9f+t
   dzm 9f+t i
   jms error
1: 0
   lac lu+1
   sad u.ac
   skp
   jmp 1b i
   lac lu+2
   sad dm1
   jmp 1f
   lac o100000
   tad u.ulistp i
   dac u.ulistp i
   law 2
   tad u.ulistp
   dac 9f+t
   lac u.ac
   dac 9f+t i
   jms swap
   law 2
   tad u.ulistp
   dac 9f+t
   dzm 9f+t i
   jmp .smes
1:
   -3
   tad 8
   dac 9f+t
   lac o700000
   tad 9f+t i
   dac 9f+t i
   isz 9f+t
   isz 9f+t
   lac u.pid
   cma
   dac 9f+t i
   isz 9f+t
   lac u.mq
   dac 9f+t i
   jmp okexit
t = t+1

awake: 0
   jms searchu; 1f
   jmp awake i
1: 0
   lac u.pid
   sad lu+2
   skp
   jmp 1b i
   -3
   tad 8
   dac 9f+t
   lac o700000
   tad 9f+t i
   dac 9f+t i
   jmp 1b i
t = t+1

swr:
sww:
   jmp .-4 i
   .halt; rttyi; rkbdi; rppti; .halt
   .halt; wttyo; wdspo; wppto

.halt: jms halt

rttyi:
   jms chkint1
   lac d1
   jms getchar
      jmp 1f
   and o177
   jms betwen; o101; o132
      skp
   tad o40
   alss 9
   jmp passone
1:
   jms sleep; sfiles+0
   jms swap
   jmp rttyi

wttyo:
   jms chkint1
   jms forall
   sna
   jmp fallr
   lmq
   lac sfiles+1
   spa
   jmp 1f
   xor o400000
   dac sfiles+1
   lacq
   tls
   sad o12
   jms putcr
   jmp fallr
1:
   lacq
   dac char
   jms putchar
      skp
   jmp fallr
   jms sleep; sfiles+1
   jms swap
   jmp wttyo

rkbdi:
   jms chkint1
   lac d3
   jms getchar
      jmp 3f
   lmq
   and o155
   sad o55
   jmp 1f
   lacq
   and o137
   sad o134
   skp
   jmp 2f
1:
   lacq
   xor o20
   lmq
2:
   lacq
   dac u.limit
1:
   jms chkint1
   lac u.limit
   jms dspput
      jmp 1f
   jms sleep; sfiles+6
   jms swap
   jmp 1b
1:
   lac u.limit
   alss 9
   jmp passone
3:
   jms sleep; sfiles+2
   jms swap
   jmp rkbdi

wdspo:
   jms chkint1
   jms forall
   jms dspput
      jmp fallr
   jms sleep; sfiles+6
   jms swap
   jmp wdspo


rppti:
   lac d4
   jms getchar
      jmp .+3
   alss 9
   jmp passone
   lac sfiles+3
   sma
   rsa
1:
   jms sleep; sfiles+3
   jms swap
   jmp rppti

wppto:
   jms forall
   sna
   jmp fallr
   lmq
   lac sfiles+4
   spa
   jmp 1f
   xor o400000
   dac sfiles+4
   lacq
   psa
   jmp fallr
1:
   lacq
   dac char
   lac d5
   jms putchar
      skp
   jmp fallr
   jms sleep; sfiles+4
   jms swap
   jmp wppto

passone:
   sad o4000
   jmp okexit
   dac u.base i
   lac d1
   dac u.ac
   jmp sysexit

error: 0
   -1
   dac u.ac
   jmp sysexit

chkint1: 0
   dzm .insys
   jms chkint
      skp
   jmp .save
   -1
   dac .insys
   jmp chkint1 i
Commit	Line	Data
69f28986 KT	1	" s3
	2
	3	searchu: 0
	4	lac searchu i
	5	dac 9f+t+1
	6	-mnproc
	7	dac 9f+t
	8	law ulist-1
	9	dac 8
	10	1:
	11	lac 8 i
	12	dac lu
	13	lac 8 i
	14	dac lu+1
	15	lac 8 i
	16	dac lu+2
	17	lac 8 i
	18	dac lu+3
	19	jms 9f+t+1 i
	20	isz 9f+t
	21	jmp 1b
	22	isz searchu
	23	jmp searchu i
	24	t = t+2
	25
	26	lookfor: 0
	27	jms searchu; 1f
	28	isz lookfor
	29	isz lookfor
	30	jmp lookfor i
	31	1: 0
	32	lac lu
	33	rtl; rtl; and o7
	34	sad lookfor i
	35	skp
	36	jmp 1b i
	37	-3
	38	tad 8
	39	and o17777
	40	isz lookfor
	41	jmp lookfor i
	42
	43	.fork:
	44	jms lookfor; 0 " not-used
	45	skp
	46	jms error
	47	dac 9f+t
	48	isz uniqpid
	49	lac uniqpid
	50	dac u.ac
	51	law sysexit
	52	dac u.swapret
	53	lac o200000
	54	tad u.ulistp i
	55	dac u.ulistp i
	56	jms dskswap; 07000
	57	lac 9f+t
	58	dac u.ulistp
	59	lac o100000
	60	xor u.ulistp i
	61	dac u.ulistp i
	62	lac u.pid
	63	dac u.ac
	64	lac uniqpid
65	dac u.pid
66	isz 9f+t
67	dac 9f+t i
68	isz u.rq+8
69	dzm u.intflg
70	jmp sysexit
71	t= t+1
72
73	badcal:
74	clon
75	-1
76	dac 7
77	.save:
78	lac d1
79	jms iget
80	cla
81	jms iwrite; 4096; 4096
82	jms iwrite; userdata; 64
83	jms iput
84
85	.exit:
86	lac u.dspbuf
87	sna
88	jmp .+3
89	law dspbuf
90	jms movdsp
91	jms awake
92	lac u.ulistp i
93	and o77777
94	dac u.ulistp i
95	isz u.ulistp
96	dzm u.ulistp i
97	jms swap
98
99	.rmes:
100	jms awake
101	lac o100000
102	tad u.ulistp i
103	dac u.ulistp i
104	law 2
105	tad u.ulistp
106	dac 9f+t
107	-1
108	dac 9f+t i
109	jms swap
110	law 2
111	tad u.ulistp
112	dac 9f+t
113	lac 9f+t i
114	cma
115	dac u.ac
116	dzm 9f+t i
117	isz 9f+t
118	lac 9f+t i
119	dac u.mq
120	dzm 9f+t i
121	jmp sysexit
122	t = t+1
123
124	.smes:
125	lac u.ac
126	sna spa
127	jms error
128	jms searchu; 1f
129	law 2
130	tad u.ulistp
131	dac 9f+t
132	dzm 9f+t i
133	jms error
134	1: 0
135	lac lu+1
136	sad u.ac
137	skp
138	jmp 1b i
139	lac lu+2
140	sad dm1
141	jmp 1f
142	lac o100000
143	tad u.ulistp i
144	dac u.ulistp i
145	law 2
146	tad u.ulistp
147	dac 9f+t
148	lac u.ac
149	dac 9f+t i
150	jms swap
151	law 2
152	tad u.ulistp
153	dac 9f+t
154	dzm 9f+t i
155	jmp .smes
156	1:
157	-3
158	tad 8
159	dac 9f+t
160	lac o700000
161	tad 9f+t i
162	dac 9f+t i
163	isz 9f+t
164	isz 9f+t
165	lac u.pid
166	cma
167	dac 9f+t i
168	isz 9f+t
169	lac u.mq
170	dac 9f+t i
171	jmp okexit
172	t = t+1
173
174	awake: 0
175	jms searchu; 1f
176	jmp awake i
177	1: 0
178	lac u.pid
179	sad lu+2
180	skp
181	jmp 1b i
182	-3
183	tad 8
184	dac 9f+t
185	lac o700000
186	tad 9f+t i
187	dac 9f+t i
188	jmp 1b i
189	t = t+1
190
191	swr:
192	sww:
193	jmp .-4 i
194	.halt; rttyi; rkbdi; rppti; .halt
195	.halt; wttyo; wdspo; wppto
196
197	.halt: jms halt
198
199	rttyi:
200	jms chkint1
201	lac d1
202	jms getchar
203	jmp 1f
204	and o177
205	jms betwen; o101; o132
206	skp
207	tad o40
208	alss 9
209	jmp passone
210	1:
211	jms sleep; sfiles+0
212	jms swap
213	jmp rttyi
214
215	wttyo:
216	jms chkint1
217	jms forall
218	sna
219	jmp fallr
220	lmq
221	lac sfiles+1
222	spa
223	jmp 1f
224	xor o400000
225	dac sfiles+1
226	lacq
227	tls
228	sad o12
229	jms putcr
230	jmp fallr
231	1:
232	lacq
233	dac char
234	jms putchar
235	skp
236	jmp fallr
237	jms sleep; sfiles+1
238	jms swap
239	jmp wttyo
240
241	rkbdi:
242	jms chkint1
243	lac d3
244	jms getchar
245	jmp 3f
246	lmq
247	and o155
248	sad o55
249	jmp 1f
250	lacq
251	and o137
252	sad o134
253	skp
254	jmp 2f
255	1:
256	lacq
257	xor o20
258	lmq
259	2:
260	lacq
261	dac u.limit
262	1:
263	jms chkint1
264	lac u.limit
265	jms dspput
266	jmp 1f
267	jms sleep; sfiles+6
268	jms swap
269	jmp 1b
270	1:
271	lac u.limit
272	alss 9
273	jmp passone
274	3:
275	jms sleep; sfiles+2
276	jms swap
277	jmp rkbdi
278
279	wdspo:
280	jms chkint1
281	jms forall
282	jms dspput
283	jmp fallr
284	jms sleep; sfiles+6
285	jms swap
286	jmp wdspo
287
288
289	rppti:
290	lac d4
291	jms getchar
292	jmp .+3
293	alss 9
294	jmp passone
295	lac sfiles+3
296	sma
297	rsa
298	1:
299	jms sleep; sfiles+3
300	jms swap
301	jmp rppti
302
303	wppto:
304	jms forall
305	sna
306	jmp fallr
307	lmq
308	lac sfiles+4
309	spa
310	jmp 1f
311	xor o400000
312	dac sfiles+4
313	lacq
314	psa
315	jmp fallr
316	1:
317	lacq
318	dac char
319	lac d5
320	jms putchar
321	skp
322	jmp fallr
323	jms sleep; sfiles+4
324	jms swap
325	jmp wppto
326
327	passone:
328	sad o4000
329	jmp okexit
330	dac u.base i
331	lac d1
332	dac u.ac
333	jmp sysexit
334
335	error: 0
336	-1
337	dac u.ac
338	jmp sysexit
339
340	chkint1: 0
341	dzm .insys
342	jms chkint
343	skp
344	jmp .save
345	-1
346	dac .insys
347	jmp chkint1 i