git.subgeniuskitty.com - unix-history/.git/blame

Commit	Line	Data
69f28986 KT	1	"[handwritten page number top right of scan - 1]
	2	" ed1
	3	lac d1
	4	sys write; 1f; 3
	5	lac o17
	6	sys creat; tname
	7	spa
	8	sys save
	9	dac sfo
	10	sys open; tname; 0
	11	spa
	12	sys save
	13	dac sfi
	14	-1
	15	tad lnodp
	16	dac zermp
	17	tad d1
	18	dac zerop
	19	dac dot
	20	tad d1
	21	dac eofp
	22	dzm i eofp
	23	dzm i zerop
	24	dzm lastre
	25	dzm fbuf
	26	lac d1
	27	dac dskadr
	28	dac wrflg
	29	dzm diskin
	30	"o------------> [scan markup]
	31	jmp advanc
	32	1:
	33	<ed>; <it>; 012
	34	advanc:
	35	jms rline
	36	lac linep
	37	dac tal
	38	dzm adrflg
	39	jms addres
	40	jmp comand
	41	-1
	42	dac adrflg
	43	lac addr
	44	dac addr1
	45	dac addr2
	46	1:
	47	lac char
	48	sad o54
	49	jmp 2f
	50	sad o73
	51	skp
	52	jmp chkwrp
	53	lac addr
	54	dac dot
	55	2:
	56	jms addres
	57	jmp error
	58	lac addr2
	59	dac addr1
	60	lac addr
	61	dac addr2
	62	jmp 1b
	63	"[handwritten page number top right of scan - 2]
	64	chkwrp:
65	-1
66	tad addr1
67	jms betwen; d1; addr2
68	jmp error
69
70	comand:
71	lac char
72	sad o141
73	jmp ca
74	sad o143
75	jmp cc
76	sad o144
77	jmp cd
78	sad o160
79	jmp cp
80	sad o161
81	jmp cq
82	sad o162
83	jmp cr
84	sad o163
85	jmp cs
86	sad o167
87	jmp cw
88	sad o12
89	jmp cnl
90	sad o75
91	jmp ceq
92	jmp error
93	ca:
94	jms newline
95	jms setfl
96	lac addr2
97	dac dot
98	ca1:
99	jms rline
100	lac line
101	sad o56012
102	jmp advanc
103	jms append
104	jmp ca1
105
106	cc: cd:
107	jms newline
108	jms setdd
109	lac addr1
110	sad zerop
111	jmp error
112	dac dot
113	tad dm1
114	dac 9
115	lac addr2
116	dac 8
117	2:
118	lac i 8
119	dac i 9
120	sza
121	jmp 2b
122	lac 9
123	"[handwritten page number top right of scan - 3]
124	dac eofp
125	lac char
126	sad o144
127	jmp advanc
128	-1
129	tad dot
130	dac dot
131	jmp ca1
132
133	cp:
134	jms newline
135	cp1:
136	jms setdd
137	lac addr1
138	sad zerop
139	jmp error
140	1:
141	lac addr1
142	dac dot
143	lac i addr1
144	jms gline
145	dac 2f
146	lac d1
147	sys write; line; 2: 0
148	lac addr1
149	sad addr1
150	jmp advanc
151	tad d1
152	dac addr1
153	jmp 1b
154
155	cq:
156	jms newline
157	lac adrflg
158	sza
159	jmp error
160	sys exit
161
162	cr:
163	jms setfl
164	lac addr2
165	dac dot
166	jms rname
167	"------------> [scan markup]
168	sys open; fbuf; 0
169	spa
170	jmp error
171	dac tfi
172	lac linep
173	dac tal
174	dzm num
175	1:
176	lac tfi
177	sys read; tbuf; 64
178	sza
179	jmp 2f
180	lac tfi
181	sys close
182	jms number
183	jmp advanc
184	2:
185	cma
186	"[handwritten page number top right of scan - 4]
187	tad d1
188	rcl
189	dac c1
190	lac tbufp
191	dac tal1
192	2:
193	jms getsc; tal1
194	sna
195	jmp 3f
196	jms putsc; tal
197	isz num
198	sad o12
199	skp
200	jmp 3f
201	lac tal
202	add o400000
203	and o17777
204	cma
205	tad linep
206	cma
207	dac linsiz
208	jms append
209	lac linep
210	dac tal
211	3:
212	isz c1
213	jmp 2b
214	jmp 1b
215	cw:
216	jms setfl
217	lac i addr1
218	sna
219	jmp error
220	jms rname
221	lac o17
222	sys creat; fbuf
223	spa
224	jmp error
225	dac tfi
226	-128
227	dac c2
228	lac tbufp
229	dac tal1
230	dzm num
231	1:
232	lac i addr1
233	jms gline
234	rcl
235	cma
236	tad d1
237	dac c1
238	lac linep
239	dac tal
240	2:
241	jms getsc; tal
242	sna
243	jmp 3f
244	isz num
245	jmp putsc; tal1
246	isz c2
247	"[handwritten page number top right of scan - 5]
248	jmp 3f
249	lac tfi
250	sys write; tbuf; 64
251	-128
252	dac c2
253	lac tbufp
254	dac tal1
255	3:
256	isz c1
257	jmp 2b
258	lac addr1
259	sad addr2
260	jmp 1f
261	isz addr1
262	jmp 1b
263	1:
264	lac tal1
265	sma cla
266	jmp 1f
267	jms putsc; tal1
268	1:
269	-1
270	tad tbufp
271	cma
272	tad tal1
273	dac 1f
274	lac tfi
275	sys write; tbuf; 1: 0
276	lac tfi
277	sys close
278	jms number
279	jmp advanc
280
281	cnl:
282	lac adrflg
283	sna
284	jmp 1f
285	lac addr2
286	dac addr1
287	jmp cp1
288	1:
289	lac dot
290	tad d1
291	sad eofp
292	jmp error
293	dac dot
294	jmp cp1
295
296	ceq:
297	jms newline
298	jms setfl
299	lac addr2
300	dac dot
301	cma
302	tad zerop
303	cma
304	dac num
305	jms number
306	jmp advanc
307
308	setdd: 0
309	"[handwritten page number top right of scan - 6]
310	lac adrflg
311	sza
312	jmp i setdd
313	lac dot
314	dac addr1
315	dac addr2
316	jmp i setdd
317
318	setfl: 0
319	lac adrflg
320	sza
321	jmp i setfl
322	lac zerop
323	tad d1
324	dac addr1
325	-1
326	tad eofp
327	dac addr2
328	jmp i setfl
329
330	newline: 0
331	jms getsc; tal
332	sad o12
333	jmp i newline
334	jmp error
335
336	addres: 0
337	dzm minflg "..) [stray scan mark?]
338	-1
339	dac addr
340	ad1:
341	jms getsc; tal
342	ad2:
343	jms betwen; d47; d58
344	skp
345	jmp numb
346	sad o40 "[o40 circled in scan]
347	jmp ad1 "[hand drawn check mark follows operand in scan]
348	sad o11
349	jmp ad1 "[hand drawn check mark follows operand in scan]
350	"[check mark underlined in scan]
351	sad o55
352	jmp amin "[hand drawn check mark follows operand in scan]
353	sad o56
354	jmp adot "[hand drawn check mark follows operand in scan]
355	sad o53
356	jmp ad1 "[hand drawn check mark follows operand in scan]
357	sad o44
358	jmp adol "[hand drawn check mark follows operand in scan]
359	sad o57
360	jmp fsrch "[hand drawn check mark follows operand in scan]
361	sad o77
362	jmp bsrch "[hand drawn check mark follows operand in scan]
363	dac char
364	lac minflg
365	sza
366	jmp error
367	lac addr
368	sma
369	isz addres
370	jmp i addres
371	"[handwritten page number top right of scan - 7]
372	adot:
373	lac minflg
374	sza
375	jmp error
376	lac addr
377	sma
378	jmp error
379	lac dot
380	dac addr
381	jmp ad1
382
383	adol:
384	lac minflg
385	sza
386	jmp error
387	lac addr
388	sma
389	jmp error
390	-1
391	tad eofp
392	dac addr
393	jmp ad1
394
395	amin:
396	-1
397	dac minflg
398	jmp ad1
399
400	numb:
401	dac char
402	sad o60
403	jmp 1f
404	lac d10
405	jmp 2f
406	1:
407	lac d8
408	2:
409	dac 2f
410	dzm num
411	1:
412	lac num
413	cll; mul; 2: 0
414	lacq
415	tad char
416	tad dm48
417	dac num
418	jms getsc; tal
419	dac char
420	jms betwen; d47; d58
421	skp
422	jmp 1b
423	lac minflg
424	sna
425	jmp 1f
426	-1
427	tad num
428	cma
429	dac num
430	dzm minflg
431	1:
432	lac addr
433	"[handwritten page number top right of scan - 8]
434	spa
435	lac zerop
436	tad num
437	dac addr
438	jms betwen; zermp; eofp
439	jmp error
440	lac char
441	jmp ad2
442
443	number: 0
444	lac d100000
445	dac n1
446	law tbuf-1
447	dac 8
448	n0:
449	lac num
450	cll; idiv; n1: 0
451	dac num
452	lacq
453	tad d48
454	dac i 8
455	lac n1
456	cll; idiv; 10
457	lacq
458	dac n1
459	sza
460	jmp n0
461	lac o12
462	dac i 8
463	law tbuf-1
464	dac 8
465	dac 9
466	-5
467	dac n1
468	n2:
469	lac i 8
470	sad d48
471	skp
472	jmp n3
473	dzm i 9
474	isz n1
475	jmp n2
476	n3:
477	lac d1
478	sys write; tbuf; 7
479	jmp i number
480
481	rname: 0
482	lac fbufp
483	dac tal1
484	-8
485	dac c1
486	1:
487	jms getsc; tal
488	sad o40
489	jmp 1b
490	sad o12
491	jmp 1f
492	jms putsc; tal1
493	isz c1
494	jmp 1b
495	"[handwritten page number top right of scan - 9]
496	jmp i rname
497	1:
498	lac tal1
499	sad fbufp
500	skp
501	jmp 1f
502	lac fbuf
503	sna
504	jmp error
505	jmp i rname
506	1:
507	lac o40
508	jms putsc; tal1
509	isz c1
510	jmp 1b
511	jmp i rname
512
513	gline: 0
514	dac glint1
515	jms getdsk
516	lac glint1 " [these 6 lines were surrounded by a box
517	and o1777 " that was Xed out with an arrow pointing to it]:
518	tad dskbfp " --
519	dac ital "\|\/\|
520	lac linep "\|/\\|<---
521	dac otal " --
522	1:
523	lac ital
524	sad edskbfp
525	skp
526	jmp 2f
527	lac diskin
528	tad d1024
529	jms getdsk
530	lac dskbfp
531	dac ital
532	2:
533	jms getsc; ital
534	jms putsc; otal
535	sad o12
536	skp
537	jmp 1b
538	lac otal
539	sma
540	jmp 1f
541	cla
542	jms putsc; otal
543	1:
544	lac linpm1
545	cma
546	tad otal
547	jmp i gline
548
549	rline: 0
550	lac linep
551	dac tal
552
553	1:
554	cla
555	sys read; char; 1
556	lac char
557	"[handwritten page number top right of scan - 10]
558	lrss 9
559	jms esc
560	lac char
561	and o777
562	jms esc
563	jmp 1b
564
565	esc: 0
566	sna
567	jmp i esc
568	jms putsc; tal
569	sad o12
570	jmp 2f
571	sad o100
572	jmp 1f
573	sad o43
574	skp
575	jmp i esc
576	-1
577	tad tal
578	dac tal
579	and o17777
580	sad linpm1
581	jmp 1f
582	jmp i esc
583
584	1:
585	lac linep
586	dac tal
587	jmp i esc
588
589	2:
590	lac tal
591	sma cla
592	jmp 1f
593	jms putsc; tal
594	1:
595	-1
596	tad linep
597	cma
598	tad tal
599	dac linsiz
600	jmp i rline
601
602	getsc: 0
603	lac i getsc
604	dac sctalp
605	isz getsc
606	lac i sctalp
607	dac sctal
608	add o400000
609	dac i sctalp
610	ral
611	lac i sctal
612	szl
613	lrss 9
614	and o777
615	jmp i getsc
616
617	putsc: 0
618	and o777
619	"[handwritten page number top right of scan - 11]
620	lmq
621	lac i putsc
622	dac sctalp
623	isz putsc
624	lac i sctalp
625	dac sctal
626	add o400000
627	dac i sctalp
628	sma cla
629	jmp 1f
630	llss 27
631	dac i sctal
632	lrss 9
633	jmp i putsc
634
635	1:
636	lac i sctal
637	and o777000
638	omq
639	dac i sctal
640	lacq
641	jmp i putsc
642
643	append: 0
644	-1
645	tad eofp
646	dac 8
647	cma
648	tad dot
649	dac apt1
650	1:
651	lac i 8
652	dac i 8
653	-3
654	tad 8
655	dac 8
656	isz apt1
657	jmp 1b
658	isz eofp
659	dzm i eofp
660	isz dot
661	jms addline
662	jmp i append
663
664	addline: 0
665	lac dskadr
666	dac i dot
667	jms getdsk "[line crossed out - scan markup]
668	-1
669	tad linsiz
670	cma
671	dac apt1
672	law line-1
673	dac 8
674	lac dskadr "[line crossed out - scan markup]
675	and o1777 "[line crossed out - scan markup]
676	tad dskbfp "[line crossed out - scan markup]
677	dac otal "[line crossed out - scan markup]
678	lac dskadr "[line crossed out - scan markup]
679	tad linsiz "[line crossed out - scan markup]
680	dac dskadr "[line crossed out - scan markup]
681	"[handwritten page number top right of scan - 12]
682	1:
683	lac otal " [these 9 lines were surrounded by a box
684	sad edskbfp " that was Xed out]:
685	skp " --
686	jmp 2f "\|\/\|
687	lac diskin "\|/\\|
688	tad d1024 " --
689	jms getdsk "
690	lac dskbfp "
691	dac otal "
692	2: "[line crossed out - scan markup]
693	lac i 8
694	dac i otal "[line crossed out and a note that looks like jms prtwrd]
695	isz otal
696	dzm wrflg "[line crossed out - scan markup]
697	isz apt1
698	jmp 1b
699	jmp i addline
700
701
702	getdsk: 0 "[the entire getdsk procedure was surrounded
703	and o776000 " by a box that was Xed out]:
704	sad diskin " --
705	jmp i getdsk "\|\/\|
706	dac 2f "\|/\\|
707	lac wrflg " --
708	sza "
709	jmp 3f "
710	lac diskin "
711	dac 1f "
712	lac sfo "
713	sys seek; 1: 0; 0 "
714	lac sfo "
715	sys write; dskbuf; 1024 "
716	lac d1 "
717	dac wrflg "
718	3: "
719	lac 2f "
720	dac diskin "
721	lac sfi "
722	sys seek; 2: 0; 0 "
723	spa "
724	jmp i getdsk "
725	lac sfi "
726	sys read; dskbuf; 1024 "
727	jmp i getdsk "
728
729	betwen: 0
730	dac bett1
731	lac i betwen
732	dac bett2
733	isz betwen
734	lac i bett2
735	cma
736	tad bett1
737	spa
738	jmp 1f
739	lac i betwen
740	dac bett2
741	isz betwen
742	-1
743	tad i bett2
744	"[handwritten page number top right of scan - 13]
745	cma
746	tad bett1
747	spa
748	1:
749	isz betwen
750	lac bett1
751	jmp i betwen
752
753	error:
754	lac d1
755	sys write; 1f; 1
756	jmp advanc
757	1:
758	077012