V7M/src/cmd/roff/roff4.s
/
/
/ roff4 -- runoff
text:
/ inc tottext
clr ulstate
clr wch
clr wne
tst ce
bne nofill
tst fi
beq nofill
jsr pc,getchar
2:
mov r0,ch
cmp $' ,r0
bne 2f
jsr pc,rbreak
1:
jsr pc,getchar
cmp $' ,r0
bne 2b
inc un
br 1b
2:
cmp r0,$'\n
bne 2f
jsr pc,rbreak
clr ch
jsr pc,nline
br 4f
2:
tst wch
bne 3f
jsr pc,getword
br 4f
3:
jsr pc,movword
bne 2b
jsr pc,adjust
br 2b
4:
dec ul
bge 1f
clr ul
1:
rts pc
nofill:
jsr pc,rbreak
1:
jsr pc,gettchar
cmp r0,$'\n
beq 1f
jsr pc,width
add r1,ne
jsr pc,storeline
br 1b
1:
tst ce
ble 2f
dec ce
mov nel,r0
asr r0
bpl 1f
clr r0
1:
add r0,un
tst numbmod
beq 2f
add $2,un
2:
clr fac
clr fmq
mov $1000,nwd
mov $' ,r0
jsr pc,storeline
jsr pc,rbreak
dec ul
bpl 2f
clr ul
2:
rts pc
adjust:
mov r2,-(sp)
mov r3,-(sp)
clr r2
clr r3
tst ad
beq 1f
mov nwd,r0
dec r0
ble 1f
mov nel,r3
ble 1f
dvd r0,r2
1:
mov r3,fac
mov r2,fmq
mov (sp)+,r3
mov (sp)+,r2
jsr pc,rbreak
rts pc
fill:
mov fmq,r0
1:
inc r0
dec nc
cmpb (r2)+,$'
beq 1b
dec r2
bit $1,totout
beq 2f
inc fac
cmp fac,nwd
blt 1f
inc r0
br 1f
2:
dec fac
bmi 1f
inc r0
1:
jsr pc,space
movb (r2),r0
rts pc
movword:
mov wch,wordend
mov wordp,r4
add r4,wordend
tst nwd
bne 2f
1:
movb (r4)+,r0
cmp r0,$'
bne 1f
dec wch
jsr pc,width
sub r1,wne
br 1b
1:
dec r4
2:
cmp wne,nel
ble 1f
cmp nel,$4
ble 1f
mov ls,r0
add nl,r0
cmp r0,bl
bgt 2f
mov ls,r0
asl r0
add nl,r0
cmp r0,bl
bgt 1f
2:
jsr pc,hyphen
1:
clr nhyph
mov wch,-(sp)
1:
movb (r4)+,r0
cmp r0,$'-
bne 2f
movb (r4),r2
jsr pc,alph2
bne 2f
bisb $200,(r4)
2:
tst r0
bpl 2f
bic $!177,r0
mov r4,r3
sub $4,r3
cmp r3,$word
blo 2f
movb (r3),r2
bic $!177,r2
jsr pc,alph2
beq 3f
cmp nel,$2
ble 2f
3:
mov r0,-(sp)
clr r0
jsr pc,storeline
mov (sp)+,r0
inc nhyph
2:
jsr pc,width
sub r1,wne
jsr pc,storeline
dec wch
bne 1b
tst nel
blt 1f
inc nwd
tst (sp)+
clz
rts pc
1:
mov linep,r3
1:
tst nhyph
bne 2f
tst nwd
beq 3f
cmp wch,(sp)
beq 4f
2:
movb -(r3),r0
bne 2f
dec nhyph
bne 5f
tst nwd
beq 6f
5:
tst nel
ble 2f
6:
cmpb -1(r3),$'-
beq 3f
movb $'-,(r3)
dec nel
inc ne
br 3f
2:
dec nc
tstb (r3)
beq 1b
jsr pc,width
sub r1,ne
add r1,nel
inc wch
dec r4
add r1,wne
br 1b
3:
inc nwd
4:
mov r4,wordp
bicb $!177,(r4)
cmp r4,$word
bge 4f
4
4:
tst (sp)+
sez
rts pc
topbot:
mov pl,r0
bne 1f
clr bl
rts pc
1:
sub ma3,r0
sub ma4,r0
sub hx,r0
mov r0,bl
mov ma1,r0
add ma2,r0
add hx,r0
cmp r0,bl
blt 1f
mov $2,r0
mov r0,ma1
mov r0,ma2
mov r0,ma3
mov r0,ma4
mov $66.,pl
br topbot
1:
cmp nl,bl
ble 1f
mov bl,nl
1:
rts pc
width:
cmp r0,ohc
beq 2f
tst r0
beq 2f
cmp r0,$0177
beq 2f
cmp r0,$010
bne 1f
mov $-1,r1
rts pc
1:
cmp $' ,r0
bgt 2f
mov $1,r1
rts pc
2:
clr r1
rts pc
headin:
jsr pc,skipcont
mov nextb,r1
mov r1,*(r5)+
jsr pc,gettchar
cmp r0,$'\n
beq 2f
mov r0,r2
1:
jsr pc,gettchar
cmp r0,$'\n
beq 2f
cmp r0,r2
bne 3f
clr r0
3:
jsr pc,wbf
br 1b
2:
clr r0
jsr pc,wbf
mov r1,nextb
mov ll,llh
rts r5
headout:
tst hx
bne 0f
tst (r5)+
rts r5
0:
clr -(sp)
mov *(r5),r2
mov ibf1,nfile
jsr r5,headseg; width
mov r0,-(sp)
jsr r5,headseg; width
mov r0,-(sp)
jsr r5,headseg; width
mov r0,-(sp)
mov po,r0
jsr pc,space
tst numbmod
beq 1f
mov $5,r0
add ni,r0
mov r0,6(sp)
1:
mov *(r5)+,r2
jsr r5,headseg; putchar
mov llh,r0
add 6(sp),r0
sub 2(sp),r0
asr r0
sub 4(sp),r0
bge 1f
clr r0
1:
mov r0,-(sp)
jsr pc,space
jsr r5,headseg; putchar
mov llh,r0
sub (sp)+,r0
sub (sp)+,r0
sub (sp)+,r0
sub (sp)+,r0
add (sp)+,r0
jsr pc,space
jsr r5,headseg; putchar
jsr pc,newline
rts r5
headseg:
clr -(sp)
1:
mov r1,-(sp)
mov r2,r1
inc r2
jsr pc,rdsufb
mov (sp)+,r1
tstb r0
beq 1f
cmp r0,$'%
beq 2f
jsr pc,*(r5)
add r1,(sp)
br 1b
2:
mov pn,r0
clr r1
tst ro
beq 2f
mov $ones,onesp
mov $fives,fivesp
jsr pc,roman
add r1,(sp)
br 1b
2:
jsr pc,decml
add r1,(sp)
br 1b
1:
mov (sp)+,r0
tst (r5)+
rts r5
space:
jsr r5,nlines; putchar
rts pc
nlines:
mov r0,-(sp)
1:
dec (sp)
blt 1f
mov $' ,r0
jsr pc,*(r5)
br 1b
1:
cmp (r5)+,(sp)+
rts r5
decimal:
jsr pc,decml
tst (r5)+
rts r5
decml:
mov r2,-(sp)
mov r3,-(sp)
jsr pc,decml1
mov (sp)+,r3
mov (sp)+,r2
rts pc
decml1:
mov r1,-(sp)
clr r2
mov r0,r3
dvd $10.,r2
mov r3,-(sp)
mov r2,r0
beq 1f
jsr pc,decml
mov r1,2(sp)
1:
mov (sp)+,r0
add $'0,r0
jsr pc,*(r5)
add (sp)+,r1
rts pc
roman:
mov r2,-(sp)
mov r3,-(sp)
jsr pc,roman1
mov (sp)+,r3
mov (sp)+,r2
rts pc
roman1:
clr r2
mov r0,r3
bne .+4
rts pc
mov r1,-(sp)
dvd $10.,r2
mov r3,-(sp)
mov r2,r0
inc onesp
inc fivesp
jsr pc,roman
mov r1,2(sp)
dec onesp
dec fivesp
clr r2
mov (sp)+,r3
dvd $5.,r2
cmp r3,$4
bne 1f
movb *onesp,r0
jsr pc,*(r5)
add r1,(sp)
tst r2
beq 2f
inc onesp
movb *onesp,r0
dec onesp
br 3f
2:
movb *fivesp,r0
3:
jsr pc,*(r5)
add (sp)+,r1
rts pc
1:
tst r2
beq 2f
movb *fivesp,r0
jsr pc,*(r5)
add r1,(sp)
2:
dec r3
blt 1f
movb *onesp,r0
jsr pc,*(r5)
add r1,(sp)
br 2b
1:
mov (sp)+,r1
rts pc