[unix-history] / bl.s

" bl\r
\r
jmp start\r
\r
.array: .+1\r
   s 2\r
   n 8\r
   n 7\r
   -1\r
   tad sp i\r
   cma\r
   tad lastv\r
   dac lastv\r
   lmq\r
   lac sp\r
   tad d1\r
   dac sp i\r
   isz sp\r
   lacq\r
   dac sp i\r
   isz sp\r
   jmp fetch\r
\r
.read: .+1\r
   s 2\r
   n 8\r
   n 7\r
   lac sp\r
   tad d1\r
   dac sp i\r
   isz sp\r
   jms getc\r
   dac sp i\r
   isz sp\r
   jmp fetch\r
\r
.write: .+1\r
   s 2\r
   n 8\r
   n 7\r
   lac sp i\r
   dac t1\r
   lrss 9\r
   jms putc\r
   lac t1\r
   jms putc\r
   jmp fetch\r
\r
.flush: .+1\r
   n 8\r
   n 7\r
   jms flush\r
   jmp fetch\r
\r
getc: 0\r
   lac iflg\r
   dzm iflg\r
   sza\r
   jmp getc i\r
   lac cibufp\r
   sad eibufp\r
   jmp 1f\r
   lac cibufp i\r
   and o777\r
   dac iflg\r
   lac cibufp i\r
   isz cibufp\r
   lrss 9\r
   jmp getc i\r
1:\r
   lac .fin\r
   sys read; ibufp: ..; 64\r
   sna spa\r
   jmp 1f\r
   tad ibufp\r
   dac eibufp\r
   lac ibufp\r
   dac cibufp\r
   jmp getc+1\r
1:\r
   lac o4\r
   jmp getc i\r
\r
putc: 0\r
   and o777\r
   sna\r
   jmp putc i\r
   lmq\r
   lac oflg\r
   sza\r
   jmp 1f\r
   lacq\r
   alss 9\r
   dac cobufp i\r
   dac oflg\r
   jmp putc i\r
1:\r
   lac cobufp i\r
   omq\r
   dac cobufp i\r
   dac cobufp i\r
   dzm oflg\r
   isz cobufp\r
   lac cobufp\r
   sad eobufp\r
   skp\r
   jmp putc i\r
   lac .fout\r
   sys write; obufp: ..; 64\r
   lac obufp\r
   dac cobufp\r
   jmp putc i\r
\r
stop:\r
   jms flush\r
   las\r
   sma\r
   sys save\r
   sys exit\r
\r
flush: 0\r
   lac oflg\r
   sza\r
   isz cobufp\r
   lac cobufp\r
   cma\r
   tad obufp\r
   cma\r
   sna\r
   jmp flush i\r
   dac 1f+1\r
   lac obufp\r
   dac 1f\r
   lac .fout\r
   sys write; 1: ..; ..\r
   lac obufp\r
   dac cobufp\r
   dzm oflg\r
   jmp flush i\r
\r
initio: 0\r
   lac 017777 i\r
   sad d4\r
   jmp 2f\r
   sad d8\r
   jmp 1f\r
\r
   law 9\r
   tad 017777\r
   dac .+3\r
   law 017\r
   sys creat; ..\r
   spa\r
   jmp stop\r
   dac .fout\r
1:\r
   law 5\r
   tad 017777\r
   dac .+2\r
   sys open; ..; 0\r
   spa\r
   jmp stop\r
   dac .fin\r
2:\r
   lac lastv\r
   dac eibufp\r
   dac cibufp\r
   -64\r
   tad lastv\r
   dac lastv\r
   dac ibufp\r
   lac lastv\r
   dac eobufp\r
   -64\r
   tad lastv\r
   dac lastv\r
   dac obufp\r
   dac cobufp\r
   dzm oflg\r
   jmp initio i\r
\r
.fin: 0\r
.fout: 1\r
eibufp: 0\r
cibufp: 0\r
iflg: 0\r
eobufp: 0\r
cobufp: 0\r
oflg: 0\r
lastv: 017770\r
\r
o777: 0777\r
d4:o4: 4\r
d8: 8
Commit	Line	Data
69f28986 KT	1	" bl\r
	2	\r
	3	jmp start\r
	4	\r
	5	.array: .+1\r
	6	s 2\r
	7	n 8\r
	8	n 7\r
	9	-1\r
	10	tad sp i\r
	11	cma\r
	12	tad lastv\r
	13	dac lastv\r
	14	lmq\r
	15	lac sp\r
	16	tad d1\r
	17	dac sp i\r
	18	isz sp\r
	19	lacq\r
	20	dac sp i\r
	21	isz sp\r
	22	jmp fetch\r
	23	\r
	24	.read: .+1\r
	25	s 2\r
	26	n 8\r
	27	n 7\r
	28	lac sp\r
	29	tad d1\r
	30	dac sp i\r
	31	isz sp\r
	32	jms getc\r
	33	dac sp i\r
	34	isz sp\r
	35	jmp fetch\r
	36	\r
	37	.write: .+1\r
	38	s 2\r
	39	n 8\r
	40	n 7\r
	41	lac sp i\r
	42	dac t1\r
	43	lrss 9\r
	44	jms putc\r
	45	lac t1\r
	46	jms putc\r
	47	jmp fetch\r
	48	\r
	49	.flush: .+1\r
	50	n 8\r
	51	n 7\r
	52	jms flush\r
	53	jmp fetch\r
	54	\r
	55	getc: 0\r
	56	lac iflg\r
	57	dzm iflg\r
	58	sza\r
	59	jmp getc i\r
	60	lac cibufp\r
	61	sad eibufp\r
	62	jmp 1f\r
	63	lac cibufp i\r
	64	and o777\r
65	dac iflg\r
66	lac cibufp i\r
67	isz cibufp\r
68	lrss 9\r
69	jmp getc i\r
70	1:\r
71	lac .fin\r
72	sys read; ibufp: ..; 64\r
73	sna spa\r
74	jmp 1f\r
75	tad ibufp\r
76	dac eibufp\r
77	lac ibufp\r
78	dac cibufp\r
79	jmp getc+1\r
80	1:\r
81	lac o4\r
82	jmp getc i\r
83	\r
84	putc: 0\r
85	and o777\r
86	sna\r
87	jmp putc i\r
88	lmq\r
89	lac oflg\r
90	sza\r
91	jmp 1f\r
92	lacq\r
93	alss 9\r
94	dac cobufp i\r
95	dac oflg\r
96	jmp putc i\r
97	1:\r
98	lac cobufp i\r
99	omq\r
100	dac cobufp i\r
101	dac cobufp i\r
102	dzm oflg\r
103	isz cobufp\r
104	lac cobufp\r
105	sad eobufp\r
106	skp\r
107	jmp putc i\r
108	lac .fout\r
109	sys write; obufp: ..; 64\r
110	lac obufp\r
111	dac cobufp\r
112	jmp putc i\r
113	\r
114	stop:\r
115	jms flush\r
116	las\r
117	sma\r
118	sys save\r
119	sys exit\r
120	\r
121	flush: 0\r
122	lac oflg\r
123	sza\r
124	isz cobufp\r
125	lac cobufp\r
126	cma\r
127	tad obufp\r
128	cma\r
129	sna\r
130	jmp flush i\r
131	dac 1f+1\r
132	lac obufp\r
133	dac 1f\r
134	lac .fout\r
135	sys write; 1: ..; ..\r
136	lac obufp\r
137	dac cobufp\r
138	dzm oflg\r
139	jmp flush i\r
140	\r
141	initio: 0\r
142	lac 017777 i\r
143	sad d4\r
144	jmp 2f\r
145	sad d8\r
146	jmp 1f\r
147	\r
148	law 9\r
149	tad 017777\r
150	dac .+3\r
151	law 017\r
152	sys creat; ..\r
153	spa\r
154	jmp stop\r
155	dac .fout\r
156	1:\r
157	law 5\r
158	tad 017777\r
159	dac .+2\r
160	sys open; ..; 0\r
161	spa\r
162	jmp stop\r
163	dac .fin\r
164	2:\r
165	lac lastv\r
166	dac eibufp\r
167	dac cibufp\r
168	-64\r
169	tad lastv\r
170	dac lastv\r
171	dac ibufp\r
172	lac lastv\r
173	dac eobufp\r
174	-64\r
175	tad lastv\r
176	dac lastv\r
177	dac obufp\r
178	dac cobufp\r
179	dzm oflg\r
180	jmp initio i\r
181	\r
182	.fin: 0\r
183	.fout: 1\r
184	eibufp: 0\r
185	cibufp: 0\r
186	iflg: 0\r
187	eobufp: 0\r
188	cobufp: 0\r
189	oflg: 0\r
190	lastv: 017770\r
191	\r
192	o777: 0777\r
193	d4:o4: 4\r
194	d8: 8