V6/usr/source/s7/nroff3.s
/
/
/ nroff3
skipcont:
/ mov r2,-(sp)
0:
jsr pc,getchar
/ mov r0,r2
/ jsr pc,alph2
/ beq 0b
1:
cmp $' ,r0
bne 1f
jsr pc,getchar
br 1b
1:
/ mov (sp)+,r2
mov r0,ch
tst nlflg
rts pc
rbreak:
jsr pc,rbreak1
clr totout
rts pc
rbreak1:
clr trap
tst nb
beq 1f
rts pc
1:
cmp nl,$-1
bne 1f
jsr pc,newln1
rts pc
1:
tst nc
bne 1f
tst pendw
bne 4f
tst wch
beq 4f
jsr pc,setnel
jsr pc,movword
nop
1:
clrb *linep
clr nls
inc totout
tst lastl
bmi 1f
mov ne,lastl
br 0f
1:
mov ll,lastl
0:
tst op
bne 0f
mov po,r0
jsr pc,space
0:
jsr pc,donum
mov un,r0
jsr pc,space
jsr pc,jfo
mov $line,r2
1:
movb (r2)+,r0
cmp $' ,r0
bne 2f
jsr pc,fill
tst nc
bne 1b
br 3f
2:
jsr pc,putchar
dec nc
bgt 1b
3:
clr nwd
clr ne
mov in,un
jsr pc,setnel
jsr pc,newline
cmp nl,hnl
ble 0f
mov nl,hnl
0:
tst trap
bne 3f
mov ls,r2
dec r2
clr r0
jsr pc,findt
cmp r1,r2
bgt 1f
mov r1,r0
jsr r5,nlines; newline
br 3f
1:
mov r2,r0
jsr r5,nlines;newline
3:
/ clr pendb
clr spread
rts pc
4:
jsr pc,setnel
rts pc
jfo:
tst jfomod
beq 1f
mov fac,r0
add fmq,r0
beq 1f
clr fac
clr fmq
mov nel,r0
cmp jfomod,$1
bne 2f
asr r0
2:
jsr pc,space
1:
rts pc
donum:
tst numbmod
beq 2f
dec nn
blt 1f
0:
mov $3,r0
add nms,r0
add ni,r0
jsr pc,space
rts pc
1:
mov lnumber,r1
sxt r0
mov ndf,-(sp)
dvd (sp)+,r0
tst r1
beq 1f
inc lnumber
br 0b
1:
clr r0
cmp lnumber,$100.
bge 1f
inc r0
cmp lnumber,$10.
bge 1f
inc r0
1:
add ni,r0
jsr pc,space
mov lnumber,r0
jsr r5,decimal; putchar
mov nms,r0
jsr pc,space
inc lnumber
2:
rts pc
newline:
mov $'\n,r0
jsr pc,putchar
tst op
beq 1f
inc dnl
rts pc
1:
tst x.5
beq 1f
mov $032,r0
jsr pc,putchar
1:
inc nl
cmp nl,pl
blo 3f
newln1:
clr nl
clr hnl
clr ejf
mov $ilist,ejl
tst donef
beq 2f
tst nc
bne 1f
tst wch
bne 1f
jmp done1
1:
tst ndone
jne done1
inc ndone
clr donef
cmp frame,$stk
bne 2f
inc nflush
2:
inc pn
tst npn
beq 1f
mov npn,pn
clr npn
1:
cmp pn,pto
ble 2f
jsr pc,flush
jmp place
2:
tst stop
beq 2f
cmp pn,pfrom
blo 2f
jsr pc,flush
/ mov sp,r1
/ sys signal; 2; 1f
mov ttyid,r0
sys read; char; 1
1:
/ mov r1,sp
/ sys signal; 2; place
2:
/ cmp numbmod,$1
/ bne 3f
/ mov $1,lnumber
3:
clr trap
jsr pc,findnl
tst r1
beq 4f
mov [mlist-nlist](r1),r0
mov frame,-(sp)
jsr pc,cont1
cmp (sp)+,frame
beq 4f
inc trap
/ inc nlflg
rts pc
4:
tst ejf
beq 5f
cmp ilistp,ejl
beq newline
5:
rts pc
findnl:
mov $nlist,r1
1:
mov (r1),r0
tst r0
bpl 2f
add pl,r0
inc r0
2:
cmp nl,r0
beq 4f
3:
tst (r1)+
cmp r1,$nliste
bne 1b
clr r1
rts pc
4:
tst [mlist-nlist](r1)
beq 3b
rts pc
number:
jsr pc,skipcont
number1:
clr -(sp)
mov r1,-(sp)
mov r3,-(sp)
clr r3
clr -(sp)
1:
jsr pc,getchar
cmp r0,$'+
beq 2f
cmp r0,$'-
beq 2f
mov r0,ch
1:
jsr pc,atoi
beq 3f
mov r0,r3
inc 6(sp)
br 3f
2:
mov r0,(sp)
br 1b
3:
tst 6(sp)
bne 1f
mov $1,r3
1:
mov (r5)+,r0
beq 1f
mov (r0),r0
1:
mov (sp)+,r1
cmp r1,$'-
bne 1f
sub r3,r0
br 2f
1:
cmp r1,$'+
bne 1f
add r3,r0
br 2f
1:
mov r3,r0
2:
mov (sp)+,r3
mov (sp)+,r1
tst (sp)+
rts r5
eject:
/ tst ejf
/ bne 2f
inc ejf
mov r0,ejl
tst trap
bne 2f
jsr pc,newline
2:
rts pc
storeline:
cmp linep,$line+linsiz
bhis 1f
movb r0,*linep
inc linep
jsr pc,width
add r1,ne
sub r1,nel
inc nc
rts pc
1:
tst over
bne 2f
jsr r5,stringfl; linemes
2:
inc over
rts pc
linemes: <Line overflow\n\0>
.even
getword:
clr -(sp)
clr -(sp)
mov pendw,r2
bne 5f
mov $word,r2
clr over
clr wne
clr wch
clr nhyph
clr hypedf
mov $word,wordp
1:
jsr pc,gettchar
bmi 4f
cmpb r0,$'\n
bne 0f
clr wne
clr wch
br 3f
0:
cmpb r0,ohc
bne 2f
inc hypedf
br 1b
2:
cmpb $' ,r0
bne 2f
jsr pc,storeword
br 1b
2:
4:
mov r0,-(sp)
mov $' ,r0
/ bis chbits,r0
jsr pc,storeword
tst spaceflg
beq 2f
jsr pc,storeword
clr spaceflg
2:
mov (sp)+,r0
2:
tst r0
bmi 0f
cmpb r0,$005
beq 6f
0:
inc 2(sp)
jsr pc,storeword
bisb (sp),-1(r2) /add in hyphen
clr (sp)
5:
jsr pc,gettchar
bmi 1f
cmpb r0,ohc
bne 1f
inc hypedf
jsr pc,gettchar
mov $200,(sp)
1:
tst r0
bmi 2b
cmpb $' ,r0
beq 1f
cmpb $'\n,r0
bne 2b
cmpb -1(r2),$'.
beq 0f
cmpb -1(r2),$'!
beq 0f
cmpb -1(r2),$'?
bne 1f
0:
inc spaceflg
1:
add $2,4(sp)
clrb (r2)+
3:
clr pendw
cmp (sp)+,(sp)+
mov $word,wordp
jsr pc,setnel
/ jsr pc,wordout
rts pc
6:
tst (sp)+
tst (sp)+
beq 7f
mov r2,pendw
0:
clr nflush
jsr pc,flushi
rts pc
7:
clr wch
br 0b
setnel:
tst nc
bne 2f
mov $line,linep
mov ll,nel
tst un1
blt 1f
mov un1,un
mov $-1,un1
1:
sub un,nel
clr ne
clr fac
clr fmq
2:
rts pc
storeword:
cmp r2,$eword
bhis 1f
jsr pc,width
add r1,wne
inc wch
movb r0,(r2)+
rts pc
1:
tst over
bne 2f
jsr r5,stringfl; wordmes
2:
inc over
rts pc
wordmes: <Word overflow\n\0>
.even
need:
need2:
mov r0,-(sp)
clr r0
jsr pc,findt
cmp (sp)+,r1
ble 1f
/ mov ilistp,r0
/ jsr pc,eject
mov r1,r0
clr nls
jsr r5,nlines;newline
1:
rts pc
min:
tst r0
bge 1f
clr r0
1:
rts pc
getname:
mov r1,-(sp)
mov r2,-(sp)
mov (r5),r1
mov $namesiz,r2
1:
jsr pc,getchar
tst nlflg
bne 2f
cmp r0,$040
beq 2f
cmp r0,$0176
blos 4f
2:
mov r0,ch
3:
clrb (r1)+
mov (sp)+,r2
mov (sp)+,r1
tstb *(r5)+
rts r5
4:
movb r0,(r1)+
dec r2
beq 3b
br 1b
copyb:
inc copyf
jsr pc,flushi
clr nlflg
clr -(sp)
mov $1,-(sp)
1:
jsr pc,getchar
bmi 9f
cmpb r0,$'\n
bne 2f
mov $1,(sp)
clr nlflg
br 4f
2:
cmpb r0,$'.
bne 9f
cmp (sp),$1
bgt 3f
blt 9f
inc (sp)
br 4f
3:
tst skp
bne 0f
jsr pc,wbfl
mov 2(sp),r1
clr r0
jsr pc,wbt
0:
inc (sp)
br 5f
9:
clr (sp)
4:
mov r1,2(sp)
tst skp
bne 5f
jsr pc,wbf
5:
cmp (sp),$3
bne 1b
cmp (sp)+,(sp)+
6:
clr copyf
rts pc
allocmes: <Out of temp file space.\n\0>
.even
alloc:
mov r1,-(sp)
clr nextb
mov $blist,r1
1:
tst (r1)+
beq 3f
cmp r1,$eblist
blo 1b
2:
mov (sp)+,r1
tst nextb
rts pc
3:
mov $-1,-(r1)
jsr pc,offset
cmp r1,first
blo 2b
mov r1,nextb
br 2b
free:
mov r1,-(sp)
mov r0,r1
beq 2f
1:
jsr pc,blistptr
tst (r1)
beq 2f
cmp (r1),$-1
bne 3f
clr (r1)
2:
mov (sp)+,r1
rts pc
3:
mov (r1),-(sp)
clr (r1)
mov (sp)+,r1
br 1b
offset:
sub $blist,r1
ash $7,r1
add first,r1
rts pc
blistptr:
mov r0,-(sp)
clr r0
sub first,r1
ashc $-7,r0
bic $1,r1
add $blist,r1
mov (sp)+,r0
rts pc
wbt:
jsr pc,wbf
jsr pc,wbfl
rts pc
wbf:
tst woff
bne 0f
mov r1,woff
mov $wbuf,wbufp
0:
mov r0,*wbufp
add $2,wbufp
add $2,r1
bit $377,r1
bne 2f
sub $2,r1
jsr pc,blistptr
cmp (r1),$-1
bne 1f
jsr pc,wbfl
jsr pc,alloc
bne 0f
jsr r5,stringfl;allocmes
jmp done
0:
mov nextb,(r1)
1:
mov (r1),r1
2:
cmp wbufp,$wbufe
bhis wbfl
rts pc
wbfl:
tst woff
beq 0f
mov wbufp,9f
sub $wbuf,9f
beq 0f
mov ibf,r0
sys 0;7f
.data
7: sys seek; woff:..;0
.text
mov ibf,r0
sys 0;7f
.data
7: sys write; wbuf; 9:..
.text
clr woff
mov $-1,roff
0:
rts pc
rbf:
mov ip,r1
jsr pc,rbf0
bne 0f
tst app
bne 1f
jsr pc,popi
rts pc
0:
jsr pc,incoff
1:
mov r1,ip
rts pc
rbf0:
mov r1,-(sp)
bic $377,r1
cmp r1,roff
beq 1f
mov r1,roff
mov ibf1,r0
sys 0;7f
.data
7: sys seek; roff:-1 ;0
.text
mov ibf1,r0
sys read;rbuf;256.
tst r0
bne 1f
tst (sp)+
sez
rts pc
1:
mov (sp),r0
bic $!377,r0
mov (sp)+,r1
mov rbuf(r0),r0
rts pc
incoff:
add $2,r1
bit $377,r1
bne 1f
sub $2,r1
jsr pc,blistptr
mov (r1),r1
beq 5f
cmp $-1,r1
beq 5f
1:
rts pc
5:
jsr r5,stringfl; badmes
jmp place
badmes: <Bad storage allocation\n\0>
.even
alph:
movb (r0),r2
alph2:
cmp r2,$'A
blo 1f
cmp r2,$'Z
blos 2f
cmp r2,$'a
blo 1f
cmp r2,$'z
bhi 1f
2:
sez
rts pc
1:
clz
rts pc
rdsufb:
mov r1,-(sp)
bic $177,r1
cmp r1,sufoff
beq 2f
mov r1,sufoff
mov suff,r0
sys 0;7f
.data
7: sys seek; sufoff: -1; 0
.text
mov suff,r0
sys read; sufbuf; 128.
2:
mov (sp),r0
bic $!177,r0
movb sufbuf(r0),r0
mov (sp)+,r1
rts pc
atoi:
jsr pc,atoi1
bne 1f
rts pc
1:
mov r1,-(sp)
mov r0,-(sp)
1:
jsr pc,getchar
cmp r0,$'+
beq 4f
cmp r0,$'-
beq 5f
2:
cmp r0,$'*
bne 2f
jsr pc,atoi1
beq 3f
mov r0,r1
mpy (sp),r1
mov r1,(sp)
br 1b
2:
cmp r0,$'\/
bne 2f
jsr pc,atoi1
beq 3f
mov r0,-(sp)
mov 2(sp),r1
sxt r0
dvd (sp),r0
mov r0,2(sp)
tst (sp)+
br 1b
2:
mov r0,ch
3:
mov (sp)+,r0
mov (sp)+,r1
tst pc
rts pc
4:
jsr pc,atoi1
beq 3b
add r0,(sp)
br 1b
5:
jsr pc,atoi1
beq 3b
sub r0,(sp)
br 1b
atoi1:
clr -(sp)
mov r3,-(sp)
clr -(sp)
clr r3
jsr pc,getchar
cmp r0,$'-
bne 2f
inc (sp)
1:
jsr pc,getchar
2:
sub $'0,r0
cmp r0,$9
bhi 1f
inc 4(sp)
mpy $10.,r3
add r0,r3
br 1b
1:
add $'0,r0
mov r0,ch
bne 0f
mov $' ,ch
0:
tst (sp)+
beq 1f
neg r3
1:
mov r3,r0
mov (sp)+,r3
tst (sp)+
rts pc
findt:
mov r0,-(sp)
mov $-1,-(sp)
mov $nlist,r1
1:
tst [mlist-nlist](r1)
bne 3f
2:
tst (r1)+
cmp r1,$nliste
ble 1b
br 8f
3:
mov (r1),r0
tst 2(sp)
bmi 6f /- traps
beq 4f /all traps
tst (r1) /+ traps
bmi 2b
4:
tst (r1)
bpl 5f
mov pl,r0
inc r0
add (r1),r0
5:
sub nl,r0
ble 2b
cmp r0,(sp)
bhis 2b
mov r0,(sp)
br 2b
6:
tst (r1)
bpl 2b
br 4b
8:
mov (sp),r1
bpl 9f
mov pl,r1
sub nl,r1
9:
cmp (sp)+,(sp)+
rts pc
findr:
mov $rlist,r1
1:
tst (r1)
beq 2f
cmp (r1)+,r0
beq 3f
cmp r1,$rliste
blos 1b
tst numerr
bne 0f
jsr r5,stringfl; 9f
0:
inc numerr
/ clr r1
/ rts pc
cmp numerr,$1
jeq edone
jmp done2
2:
mov r0,(r1)
br 4f
3:
tst -(r1)
4:
add $[vlist-rlist],r1
rts pc
9: <No more number registers.\n\0>
.even
setn0:
clr -(sp)
clr -(sp)
mov $1,nform
jbr setn1
setn:
mov r1,-(sp)
clr -(sp)
clr temp
jsr pc,get1
cmpb r0,$'+
bne 1f
inc (sp)
0:
jsr pc,get1
1:
cmpb r0,$'\\
bne 1f
3:
jsr pc,get1
jsr r5,switch;esctab
cmpb r0,dolc
bne 1f
jsr pc,seta
br 0b
1:
tst temp
bne 2f
bic $!177,r0
cmpb r0,$'(
bne 1f
inc temp
jsr pc,get1
2:
bic $!177,r0
cmpb r0,$'\\
beq 3b
mov r0,-(sp)
jsr pc,get1
bic $!177,r0
swab r0
bis (sp)+,r0
1:
cmpb 2(sp),$372
beq 5f /exit if called by \k
clr nform
cmp r0,$".v
bne 0f
mov ls,r0
br setn1
0:
cmp r0,$".p
bne 0f
mov pl,r0
br setn1
0:
cmp r0,$".t
bne 0f
clr r0
jsr pc,findt
mov r1,r0
br setn1
0:
cmp r0,$".o
bne 0f
mov po,r0
br setn1
0:
cmp r0,$".l
bne 0f
mov ll,r0
br setn1
0:
cmp r0,$".i
bne 0f
mov in,r0
br setn1
0:
cmp r0,$".$
bne 0f
mov *frame,r0
br setn1
0:
cmp r0,$".x
bne 0f
mov evp,r0
br setn1
0:
cmp r0,$".c
bne 0f
mov iline,r0
br setn1
0:
cmp r0,$".h
bne 0f
mov hnl,r0
br setn1
0:
cmp r0,$".n
bne 0f
mov lastl,r0
br setn1
0:
jsr pc,findr
tst r1
beq 5f
tst (sp)
beq 1f
add [inclist-vlist](r1),(r1)
1:
mov (r1),r0
mov [flist-vlist](r1),nform
setn1:
mov r4,-(sp)
mov $cbuf,r4
tst r0
bge 1f
movb $'-,(r4)+
neg r0
1:
jsr r5,fnumb0;wrc
clrb (r4)
mov (sp)+,r4
mov $cbuf,cp
5:
tst (sp)+
mov (sp)+,r1
rts pc
wrc:
cmp r4,$stk
bhis 1f
movb r0,(r4)+
1:
rts pc
seta:
jsr pc,get1
cmp r0,$'\\
bne 1f
jsr pc,get1
jsr r5,switch;esctab
cmp r0,numc
bne 1f
clr r1
jsr pc,setn
br seta
1:
sub $060,r0
ble 2f
cmp r0,$9.
bgt 2f
cmp r0,*frame
bgt 2f
asl r0
add frame,r0
add $stksiz-2,r0
mov (r0),ap
2:
rts pc
stksiz = 16.
pushi:
clr r0
mov enda,-(sp)
sub $stksiz,(sp)
cmp nxf,(sp)+
blo 0f
jsr pc,setbrk
beq 2f
br pushi
0:
mov nxf,r0
tst (r0)+ /nargs
mov frame,(r0)+
mov ip,(r0)+
mov nspace,(r0)+
clr nspace
mov rchar,(r0)+
clr rchar
mov pendt,(r0)+
mov ap,(r0)+
mov ch,(r0)+
clr ch
clr ap
clr pendt
mov nxf,frame
tst *nxf
bne 1f
add $stksiz,nxf
br 2f
1:
mov r1,nxf
2:
tst r0
rts pc
popi:
cmp frame,$stk
beq 1f
mov frame,r0
mov r0,nxf
clr (r0)+
mov (r0)+,frame
mov (r0)+,ip
mov (r0)+,nspace
mov (r0)+,rchar
mov (r0)+,pendt
mov (r0)+,ap
mov (r0)+,r0
/ cmp frame,litlev
/ bhis 1f
/ clr lit
1:
rts pc
setbrk:
tst noset
bne 2f
mov enda,-(sp)
add $516.,(sp)
bic $777,(sp)
mov (sp)+,0f
sys 0;7f
.data
7: sys break; 0:..
.text
bes 1f
mov 0b,enda
sub $2,enda
clz
rts pc
1:
inc noset
2:
sez
rts pc
collect:
inc copyf
jsr pc,skipcont
clr *nxf
mov nxf,r2
add $stksiz,r2
mov r2,r1
add $18.,r1
mov r1,-(sp)
mov nxf,-(sp)
cmp r1,enda
blo 1f
jsr pc,setbrk
beq 7f
1:
clr quote
cmp r2,2(sp)
beq 9f
jsr pc,skipcont
tst nlflg
bne 9f
mov r1,(r2)+
jsr pc,getchar
cmp r0,$'"
bne 3f
inc quote
2:
jsr pc,getchar
3:
tst nlflg
bne 8f
tst quote
bne 4f
cmp r0,$' /
beq 8f
br 5f
4:
cmp r0,$'"
bne 5f
jsr pc,getchar
cmpb r0,$'"
bne 8f
5:
movb r0,(r1)+
mov enda,-(sp)
sub $4,(sp)
cmp r1,(sp)+
blo 2b
jsr pc,setbrk
beq 6f
br 2b
8:
mov r0,ch
6:
clrb (r1)+
tst nlflg
bne 9f
tst noset
beq 1b
9:
mov (sp),nxf
sub nxf,r2
sub $stksiz,r2
asr r2
mov r2,*nxf
bit $1,r1
beq 7f
inc r1
7:
clr copyf
cmp (sp)+,(sp)+
rts pc