Commit | Line | Data |
---|---|---|
4ad4d0b0 KT |
1 | / |
2 | / | |
3 | ||
4 | / roff4 -- runoff | |
5 | ||
6 | text: | |
7 | / inc tottext | |
8 | clr ulstate | |
9 | clr wch | |
10 | clr wne | |
11 | tst ce | |
12 | bne nofill | |
13 | tst fi | |
14 | beq nofill | |
15 | jsr pc,getchar | |
16 | 2: | |
17 | mov r0,ch | |
18 | cmp $' ,r0 | |
19 | bne 2f | |
20 | jsr pc,rbreak | |
21 | 1: | |
22 | jsr pc,getchar | |
23 | cmp $' ,r0 | |
24 | bne 2b | |
25 | inc un | |
26 | br 1b | |
27 | 2: | |
28 | cmp r0,$'\n | |
29 | bne 2f | |
30 | jsr pc,rbreak | |
31 | clr ch | |
32 | jsr pc,nline | |
33 | br 4f | |
34 | 2: | |
35 | tst wch | |
36 | bne 3f | |
37 | jsr pc,getword | |
38 | br 4f | |
39 | 3: | |
40 | jsr pc,movword | |
41 | bne 2b | |
42 | jsr pc,adjust | |
43 | br 2b | |
44 | 4: | |
45 | dec ul | |
46 | bge 1f | |
47 | clr ul | |
48 | 1: | |
49 | rts pc | |
50 | ||
51 | nofill: | |
52 | jsr pc,rbreak | |
53 | 1: | |
54 | jsr pc,gettchar | |
55 | cmp r0,$'\n | |
56 | beq 1f | |
57 | jsr pc,width | |
58 | add r1,ne | |
59 | jsr pc,storeline | |
60 | br 1b | |
61 | 1: | |
62 | tst ce | |
63 | ble 2f | |
64 | dec ce | |
65 | mov nel,r0 | |
66 | asr r0 | |
67 | bpl 1f | |
68 | clr r0 | |
69 | 1: | |
70 | add r0,un | |
71 | tst numbmod | |
72 | beq 2f | |
73 | add $2,un | |
74 | 2: | |
75 | clr fac | |
76 | clr fmq | |
77 | mov $1000,nwd | |
78 | mov $' ,r0 | |
79 | jsr pc,storeline | |
80 | jsr pc,rbreak | |
81 | dec ul | |
82 | bpl 2f | |
83 | clr ul | |
84 | 2: | |
85 | rts pc | |
86 | ||
87 | adjust: | |
88 | mov r2,-(sp) | |
89 | mov r3,-(sp) | |
90 | clr r2 | |
91 | clr r3 | |
92 | tst ad | |
93 | beq 1f | |
94 | mov nwd,r0 | |
95 | dec r0 | |
96 | ble 1f | |
97 | mov nel,r3 | |
98 | ble 1f | |
99 | dvd r0,r2 | |
100 | 1: | |
101 | mov r3,fac | |
102 | mov r2,fmq | |
103 | mov (sp)+,r3 | |
104 | mov (sp)+,r2 | |
105 | jsr pc,rbreak | |
106 | rts pc | |
107 | ||
108 | fill: | |
109 | mov fmq,r0 | |
110 | 1: | |
111 | inc r0 | |
112 | dec nc | |
113 | cmpb (r2)+,$' | |
114 | beq 1b | |
115 | dec r2 | |
116 | bit $1,totout | |
117 | beq 2f | |
118 | inc fac | |
119 | cmp fac,nwd | |
120 | blt 1f | |
121 | inc r0 | |
122 | br 1f | |
123 | 2: | |
124 | dec fac | |
125 | bmi 1f | |
126 | inc r0 | |
127 | 1: | |
128 | jsr pc,space | |
129 | movb (r2),r0 | |
130 | rts pc | |
131 | ||
132 | movword: | |
133 | mov wch,wordend | |
134 | mov wordp,r4 | |
135 | add r4,wordend | |
136 | tst nwd | |
137 | bne 2f | |
138 | 1: | |
139 | movb (r4)+,r0 | |
140 | cmp r0,$' | |
141 | bne 1f | |
142 | dec wch | |
143 | jsr pc,width | |
144 | sub r1,wne | |
145 | br 1b | |
146 | 1: | |
147 | dec r4 | |
148 | 2: | |
149 | cmp wne,nel | |
150 | ble 1f | |
151 | cmp nel,$4 | |
152 | ble 1f | |
153 | mov ls,r0 | |
154 | add nl,r0 | |
155 | cmp r0,bl | |
156 | bgt 2f | |
157 | mov ls,r0 | |
158 | asl r0 | |
159 | add nl,r0 | |
160 | cmp r0,bl | |
161 | bgt 1f | |
162 | 2: | |
163 | jsr pc,hyphen | |
164 | 1: | |
165 | clr nhyph | |
166 | mov wch,-(sp) | |
167 | 1: | |
168 | movb (r4)+,r0 | |
169 | cmp r0,$'- | |
170 | bne 2f | |
171 | movb (r4),r2 | |
172 | jsr pc,alph2 | |
173 | bne 2f | |
174 | bisb $200,(r4) | |
175 | 2: | |
176 | tst r0 | |
177 | bpl 2f | |
178 | bic $!177,r0 | |
179 | mov r4,r3 | |
180 | sub $4,r3 | |
181 | cmp r3,$word | |
182 | blo 2f | |
183 | movb (r3),r2 | |
184 | bic $!177,r2 | |
185 | jsr pc,alph2 | |
186 | beq 3f | |
187 | cmp nel,$2 | |
188 | ble 2f | |
189 | 3: | |
190 | mov r0,-(sp) | |
191 | clr r0 | |
192 | jsr pc,storeline | |
193 | mov (sp)+,r0 | |
194 | inc nhyph | |
195 | 2: | |
196 | jsr pc,width | |
197 | sub r1,wne | |
198 | jsr pc,storeline | |
199 | dec wch | |
200 | bne 1b | |
201 | tst nel | |
202 | blt 1f | |
203 | inc nwd | |
204 | tst (sp)+ | |
205 | clz | |
206 | rts pc | |
207 | 1: | |
208 | mov linep,r3 | |
209 | 1: | |
210 | tst nhyph | |
211 | bne 2f | |
212 | tst nwd | |
213 | beq 3f | |
214 | cmp wch,(sp) | |
215 | beq 4f | |
216 | 2: | |
217 | movb -(r3),r0 | |
218 | bne 2f | |
219 | dec nhyph | |
220 | bne 5f | |
221 | tst nwd | |
222 | beq 6f | |
223 | 5: | |
224 | tst nel | |
225 | ble 2f | |
226 | 6: | |
227 | cmpb -1(r3),$'- | |
228 | beq 3f | |
229 | movb $'-,(r3) | |
230 | dec nel | |
231 | inc ne | |
232 | br 3f | |
233 | 2: | |
234 | dec nc | |
235 | tstb (r3) | |
236 | beq 1b | |
237 | jsr pc,width | |
238 | sub r1,ne | |
239 | add r1,nel | |
240 | inc wch | |
241 | dec r4 | |
242 | add r1,wne | |
243 | br 1b | |
244 | 3: | |
245 | inc nwd | |
246 | 4: | |
247 | mov r4,wordp | |
248 | bicb $!177,(r4) | |
249 | cmp r4,$word | |
250 | bge 4f | |
251 | 4 | |
252 | 4: | |
253 | tst (sp)+ | |
254 | sez | |
255 | rts pc | |
256 | ||
257 | topbot: | |
258 | mov pl,r0 | |
259 | bne 1f | |
260 | clr bl | |
261 | rts pc | |
262 | 1: | |
263 | sub ma3,r0 | |
264 | sub ma4,r0 | |
265 | sub hx,r0 | |
266 | mov r0,bl | |
267 | mov ma1,r0 | |
268 | add ma2,r0 | |
269 | add hx,r0 | |
270 | cmp r0,bl | |
271 | blt 1f | |
272 | mov $2,r0 | |
273 | mov r0,ma1 | |
274 | mov r0,ma2 | |
275 | mov r0,ma3 | |
276 | mov r0,ma4 | |
277 | mov $66.,pl | |
278 | br topbot | |
279 | 1: | |
280 | cmp nl,bl | |
281 | ble 1f | |
282 | mov bl,nl | |
283 | 1: | |
284 | rts pc | |
285 | ||
286 | width: | |
287 | cmp r0,ohc | |
288 | beq 2f | |
289 | tst r0 | |
290 | beq 2f | |
291 | cmp r0,$0177 | |
292 | beq 2f | |
293 | cmp r0,$010 | |
294 | bne 1f | |
295 | mov $-1,r1 | |
296 | rts pc | |
297 | 1: | |
298 | cmp $' ,r0 | |
299 | bgt 2f | |
300 | mov $1,r1 | |
301 | rts pc | |
302 | 2: | |
303 | clr r1 | |
304 | rts pc | |
305 | ||
306 | headin: | |
307 | jsr pc,skipcont | |
308 | mov nextb,r1 | |
309 | mov r1,*(r5)+ | |
310 | jsr pc,gettchar | |
311 | cmp r0,$'\n | |
312 | beq 2f | |
313 | mov r0,r2 | |
314 | 1: | |
315 | jsr pc,gettchar | |
316 | cmp r0,$'\n | |
317 | beq 2f | |
318 | cmp r0,r2 | |
319 | bne 3f | |
320 | clr r0 | |
321 | 3: | |
322 | jsr pc,wbf | |
323 | br 1b | |
324 | 2: | |
325 | clr r0 | |
326 | jsr pc,wbf | |
327 | mov r1,nextb | |
328 | mov ll,llh | |
329 | rts r5 | |
330 | ||
331 | headout: | |
332 | tst hx | |
333 | bne 0f | |
334 | tst (r5)+ | |
335 | rts r5 | |
336 | 0: | |
337 | clr -(sp) | |
338 | mov *(r5),r2 | |
339 | mov ibf1,nfile | |
340 | jsr r5,headseg; width | |
341 | mov r0,-(sp) | |
342 | jsr r5,headseg; width | |
343 | mov r0,-(sp) | |
344 | jsr r5,headseg; width | |
345 | mov r0,-(sp) | |
346 | mov po,r0 | |
347 | jsr pc,space | |
348 | tst numbmod | |
349 | beq 1f | |
350 | mov $5,r0 | |
351 | add ni,r0 | |
352 | mov r0,6(sp) | |
353 | 1: | |
354 | mov *(r5)+,r2 | |
355 | jsr r5,headseg; putchar | |
356 | mov llh,r0 | |
357 | add 6(sp),r0 | |
358 | sub 2(sp),r0 | |
359 | asr r0 | |
360 | sub 4(sp),r0 | |
361 | bge 1f | |
362 | clr r0 | |
363 | 1: | |
364 | mov r0,-(sp) | |
365 | jsr pc,space | |
366 | jsr r5,headseg; putchar | |
367 | mov llh,r0 | |
368 | sub (sp)+,r0 | |
369 | sub (sp)+,r0 | |
370 | sub (sp)+,r0 | |
371 | sub (sp)+,r0 | |
372 | add (sp)+,r0 | |
373 | jsr pc,space | |
374 | jsr r5,headseg; putchar | |
375 | jsr pc,newline | |
376 | rts r5 | |
377 | ||
378 | headseg: | |
379 | clr -(sp) | |
380 | 1: | |
381 | mov r1,-(sp) | |
382 | mov r2,r1 | |
383 | inc r2 | |
384 | jsr pc,rdsufb | |
385 | mov (sp)+,r1 | |
386 | tstb r0 | |
387 | beq 1f | |
388 | cmp r0,$'% | |
389 | beq 2f | |
390 | jsr pc,*(r5) | |
391 | add r1,(sp) | |
392 | br 1b | |
393 | 2: | |
394 | mov pn,r0 | |
395 | clr r1 | |
396 | tst ro | |
397 | beq 2f | |
398 | mov $ones,onesp | |
399 | mov $fives,fivesp | |
400 | jsr pc,roman | |
401 | add r1,(sp) | |
402 | br 1b | |
403 | 2: | |
404 | jsr pc,decml | |
405 | add r1,(sp) | |
406 | br 1b | |
407 | 1: | |
408 | mov (sp)+,r0 | |
409 | tst (r5)+ | |
410 | rts r5 | |
411 | ||
412 | space: | |
413 | jsr r5,nlines; putchar | |
414 | rts pc | |
415 | ||
416 | nlines: | |
417 | mov r0,-(sp) | |
418 | 1: | |
419 | dec (sp) | |
420 | blt 1f | |
421 | mov $' ,r0 | |
422 | jsr pc,*(r5) | |
423 | br 1b | |
424 | 1: | |
425 | cmp (r5)+,(sp)+ | |
426 | rts r5 | |
427 | ||
428 | decimal: | |
429 | jsr pc,decml | |
430 | tst (r5)+ | |
431 | rts r5 | |
432 | ||
433 | decml: | |
434 | mov r2,-(sp) | |
435 | mov r3,-(sp) | |
436 | jsr pc,decml1 | |
437 | mov (sp)+,r3 | |
438 | mov (sp)+,r2 | |
439 | rts pc | |
440 | ||
441 | decml1: | |
442 | mov r1,-(sp) | |
443 | clr r2 | |
444 | mov r0,r3 | |
445 | dvd $10.,r2 | |
446 | mov r3,-(sp) | |
447 | mov r2,r0 | |
448 | beq 1f | |
449 | jsr pc,decml | |
450 | mov r1,2(sp) | |
451 | 1: | |
452 | mov (sp)+,r0 | |
453 | add $'0,r0 | |
454 | jsr pc,*(r5) | |
455 | add (sp)+,r1 | |
456 | rts pc | |
457 | ||
458 | roman: | |
459 | mov r2,-(sp) | |
460 | mov r3,-(sp) | |
461 | jsr pc,roman1 | |
462 | mov (sp)+,r3 | |
463 | mov (sp)+,r2 | |
464 | rts pc | |
465 | roman1: | |
466 | clr r2 | |
467 | mov r0,r3 | |
468 | bne .+4 | |
469 | rts pc | |
470 | mov r1,-(sp) | |
471 | dvd $10.,r2 | |
472 | mov r3,-(sp) | |
473 | mov r2,r0 | |
474 | inc onesp | |
475 | inc fivesp | |
476 | jsr pc,roman | |
477 | mov r1,2(sp) | |
478 | dec onesp | |
479 | dec fivesp | |
480 | clr r2 | |
481 | mov (sp)+,r3 | |
482 | dvd $5.,r2 | |
483 | cmp r3,$4 | |
484 | bne 1f | |
485 | movb *onesp,r0 | |
486 | jsr pc,*(r5) | |
487 | add r1,(sp) | |
488 | tst r2 | |
489 | beq 2f | |
490 | inc onesp | |
491 | movb *onesp,r0 | |
492 | dec onesp | |
493 | br 3f | |
494 | 2: | |
495 | movb *fivesp,r0 | |
496 | 3: | |
497 | jsr pc,*(r5) | |
498 | add (sp)+,r1 | |
499 | rts pc | |
500 | 1: | |
501 | tst r2 | |
502 | beq 2f | |
503 | movb *fivesp,r0 | |
504 | jsr pc,*(r5) | |
505 | add r1,(sp) | |
506 | 2: | |
507 | dec r3 | |
508 | blt 1f | |
509 | movb *onesp,r0 | |
510 | jsr pc,*(r5) | |
511 | add r1,(sp) | |
512 | br 2b | |
513 | 1: | |
514 | mov (sp)+,r1 | |
515 | rts pc | |
516 |