jona/unix-v6
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add original unix v6

Browse Source
This commit is contained in:
memnoth
2018-01-27 22:35:41 +09:00
commit 2c7099ee50
664 changed files with 106254 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/s7/roff2.s
+404
View File
@@ -0,0 +1,404 @@
/
/
/ roff2 -- runoff
casead:
jsr pc,rbreak
inc ad
rts pc
rts pc
casebr:
jsr pc,rbreak
rts pc
casecc:
jsr pc,skipcont
jsr pc,getchar
cmp r0,$'\n
beq 1f
movb r0,cc
1:
mov r0,ch
rts pc
casece:
jsr pc,rbreak
jsr r5,number; 0
jsr pc,min
mov r0,ce
jsr pc,need
rts pc
caseds:
jsr pc,rbreak
mov $2,ls
rts pc
casefi:
jsr pc,rbreak
inc fi
rts pc
casein:
jsr pc,rbreak
jsr r5,number; in
jsr pc,min
mov r0,in
mov r0,un
rts pc
caseix:
jsr r5,number; in
jsr pc,min
mov r0,in
rts pc
caseli:
jsr r5,number; 0
mov r0,-(sp)
1:
dec (sp)
blt 1f
jsr pc,flushi
clr nlflg
jsr pc,text
br 1b
1:
tst (sp)+
rts pc
casell:
jsr r5,number; ll
jsr pc,min
mov r0,ll
rts pc
casels:
jsr pc,rbreak
jsr pc,skipcont
jsr pc,getchar
cmp r0,$'\n
bne 1f
mov ls1,ls
rts pc
1:
mov r0,ch
jsr r5,number1; ls
dec r0
jsr pc,min
inc r0
mov r0,ls
mov r0,ls1
rts pc
casena:
jsr pc,rbreak
clr ad
rts pc
casene:
jsr r5,number; 0
jsr pc,min
jsr pc,need
rts pc
casenf:
jsr pc,rbreak
clr fi
rts pc
casepa:
casebp:
jsr pc,rbreak
jsr pc,eject
jsr pc,skipcont
tst nlflg
bne 1f
jsr r5,number; pn
jsr pc,min
mov r0,pn
1:
rts pc
casebl:
jsr pc,rbreak
jsr r5,number; 0
jsr pc,min
mov r0,-(sp)
jsr pc,need2
1:
dec (sp)
blt 1f
mov $' ,r0
jsr pc,storeline
jsr pc,rbreak
br 1b
1:
tst (sp)+
rts pc
casepl:
jsr r5,number; pl
mov r0,pl
jsr pc,topbot
rts pc
casesk:
jsr r5,number; 0
jsr pc,min
mov r0,skip
rts pc
casesp:
jsr pc,rbreak
jsr r5,number; 0
jsr r5,nlines; nline
rts pc
casess:
jsr pc,rbreak
mov $1,ls
rts pc
casetr:
jsr pc,skipcont
1:
jsr pc,getchar
cmp r0,$'\n
beq 1f
mov r0,r1
jsr pc,getchar
cmp r0,$'\n
bne 2f
mov $' ,r0
2:
movb r0,trtab(r1)
br 1b
1:
rts pc
caseta:
mov $tabtab,r1
1:
jsr r5,number; 0
jsr pc,min
dec r0
ble 1f
movb r0,(r1)+
br 1b
1:
clrb (r1)+
rts pc
caseti:
jsr pc,rbreak
jsr r5,number; in
jsr pc,min
mov r0,un
rts pc
caseul:
jsr r5,number; 0
jsr pc,min
mov r0,ul
rts pc
caseun:
jsr r5,number; 0
sub in,r0
neg r0
jsr pc,min
mov r0,un
rts pc
casehx:
tst hx
beq 1f
clr hx
br 2f
1:
inc hx
2:
jsr pc,topbot
rts pc
casehe:
jsr r5,headin; ehead
mov ehead,ohead
rts pc
casefo:
jsr r5,headin; efoot
mov efoot,ofoot
rts pc
caseeh:
jsr r5,headin; ehead
rts pc
caseoh:
jsr r5,headin; ohead
rts pc
caseef:
jsr r5,headin; efoot
rts pc
caseof:
jsr r5,headin; ofoot
rts pc
casem1:
jsr r5,number; ma1
jsr pc,min
mov r0,ma1
br 1f
casem2:
jsr r5,number; ma2
jsr pc,min
mov r0,ma2
br 1f
casem3:
jsr r5,number; ma3
jsr pc,min
mov r0,ma3
br 1f
casem4:
jsr r5,number; ma4
jsr pc,min
mov r0,ma4
1:
jsr pc,topbot
rts pc
casehc:
jsr pc,skipcont
jsr pc,getchar
cmp r0,$'\n
bne 1f
movb $200,r0
1:
mov r0,ohc
rts pc
casetc:
jsr pc,skipcont
jsr pc,getchar
cmp r0,$'\n
bne 1f
mov $' ,r0
1:
mov r0,tabc
rts pc
casehy:
jsr r5,number; 0
mov r0,hyf
rts pc
casen1:
jsr pc,rbreak
mov $1,numbmod
br 1f
casen2:
jsr pc,rbreak
mov $2,numbmod
1:
clr nn
jsr r5,number; 0
tst r0
ble 1f
mov r0,lnumber
rts pc
1:
clr numbmod
rts pc
casenn:
jsr r5,number; 0
jsr pc,min
mov r0,nn
rts pc
caseni:
jsr r5,number; ni
jsr pc,min
mov r0,ni
rts pc
casejo:
jsr r5,number; 0
mov r0,jfomod
rts pc
casear:
clr ro
rts pc
casero:
inc ro
rts pc
casenx:
jsr pc,skipcont
jsr r5,getname; nextf
inc nx
jsr pc,nextfile
inc nlflg
clr ip
mov $ilist,ilistp
rts pc
casepo:
jsr pc,rbreak
jsr r5,number; po
jsr pc,min
mov r0,po
rts pc
casede:
tst ip
bne 5f
jsr pc,skipcont
jsr r5,getname; bname
clr skp
mov $contab,r1
clr -(sp)
1:
mov (r1)+,(sp)
beq 2f
bic $100000,(sp)
cmp bname,(sp)
bne 3f
2:
bis $100000,bname
mov nextb,(r1)
mov bname,-(r1)
br 4f
3:
cmp (r1)+,$-1
bne 1b
inc skp
4:
tst (r1)+
jsr pc,copyb
tst (sp)+
5:
rts pc
caseig:
inc skp
jsr pc,copyb
rts pc
casemk:
jsr pc,rbreak
mov $002,r0 /stx
jsr pc,putchar
rts pc