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

sh.s fixes from Angelo's version

Browse Source
This commit is contained in:
phil
2019-10-20 11:39:30 -04:00
parent 870a3aee7d
commit e05cb50aab
2 changed files with 36 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scans/sh.s
+18 -23
View File
@@ -1,4 +1,4 @@
" ** 11-45-91.pdf page 30 " ** 11-56-91.pdf page 30
" sh " sh
clear: clear:
@@ -7,7 +7,7 @@ clear:
1: 1:
dzm i 8 dzm i 8
isz clear isz clear
jms 1b jmp 1b
lacq lacq
jmp 017771 jmp 017771
zerop: .-1 zerop: .-1
@@ -16,6 +16,7 @@ comerr:
lac d1 lac d1
sys write; errmes; 1 sys write; errmes; 1
shell: shell:
lac d1 lac d1
sys write; ready; 1 sys write; ready; 1
@@ -44,24 +45,23 @@ shell1:
lac delim lac delim
sad amper sad amper
jmp shell1 jmp shell1
lacq " hand written lacq " hand written: send
clq " send mesg to child clq " "done" (crossed out)
sys smes sys smes " mesg to child
comretrn: comretrn:
lac delim lac delim
sad newln sad newln
jmp shell jmp shell
jmp shell1 jmp shell1
loadcom: loadcom:
sys open; args; 0 sys open; args; 0
sma sma
jmp 1f jmp 1f
sys link; system; args; args sys link; system; args; args
spa spa
" ** 11-56-91.pdf page 31
" ** 11-45-91.pdf page 30
jmp 2f jmp 2f
-1 -1
dac lnkflg dac lnkflg
@@ -95,6 +95,7 @@ loadcom:
jmp 2f jmp 2f
lac d1 lac d1
sys write; in; 4 sys write; in; 4
lac d1
sys write; errmes; 1 sys write; errmes; 1
sys exit sys exit
2: 2:
@@ -119,12 +120,10 @@ loadcom:
dac boot+2 dac boot+2
cma cma
tad d7 tad d7
dac close dac clear
lac nargp lac nargp
dac 9 dac 9
" ** 11-56-91.pdf page 32
" ** 11-45-91.pdf page 32
2: 2:
lac i 9 lac i 9
dac i 8 dac i 8
@@ -186,9 +185,7 @@ endcom:
jmp getcom i jmp getcom i
cls: cls:
" ** 11-56-91.pdf page 33
" ** 11-45-91.pdf page 33
jms get jms get
jms getparm jms getparm
dac t1 dac t1
@@ -231,7 +228,7 @@ getparm:0
jmp comerr jmp comerr
jmp 2f jmp 2f
1: 1:
jmp get jms get
jms checkdlm jms checkdlm
jmp fill1 jmp fill1
2: 2:
@@ -251,8 +248,7 @@ getparm:0
jmp i getparm jmp i getparm
jmp 1b jmp 1b
" ** 11-45-91.pdf page 34 " ** 11-56-91.pdf page 34
fill: fill:
dac t1 dac t1
lac space lac space
@@ -314,8 +310,7 @@ rline:0
dac 8 dac 8
1: 1:
jms getcha jms getcha
" ** 11-56-91.pdf page 35
" ** 11-45-91.pdf page 35
dac i 15 dac i 15
sad newln sad newln
jmp i rline jmp i rline
@@ -377,8 +372,7 @@ doch:
dac 1b dac 1b
jmp 2b jmp 2b
cherr: cherr:
" ** 11-56-91.pdf page 36
" ** 11-45-91.pdf page 36
lac 1b lac 1b
dac .+3 dac .+3
lac d1 lac d1
@@ -391,10 +385,11 @@ lgout:
sys smes sys smes
sys exit sys exit
d1: 1 d1: 1
dm1: -1 dm1: -1
d4: 4 d4: 4
dm4: -5 dm4: -4
d2: 2 d2: 2
d7: 7 d7: 7
o17: 017 o17: 017
src/cmd/sh.s
+18 -23
View File
@@ -1,4 +1,4 @@
" ** 11-45-91.pdf page 30 " ** 11-56-91.pdf page 30
" sh " sh
clear: clear:
@@ -7,7 +7,7 @@ clear:
1: 1:
dzm i 8 dzm i 8
isz clear isz clear
jms 1b jmp 1b
lacq lacq
jmp 017771 jmp 017771
zerop: .-1 zerop: .-1
@@ -16,6 +16,7 @@ comerr:
lac d1 lac d1
sys write; errmes; 1 sys write; errmes; 1
shell: shell:
lac d1 lac d1
sys write; ready; 1 sys write; ready; 1
@@ -44,24 +45,23 @@ shell1:
lac delim lac delim
sad amper sad amper
jmp shell1 jmp shell1
lacq " hand written lacq " hand written: send
clq " send mesg to child clq " "done" (crossed out)
sys smes sys smes " mesg to child
comretrn: comretrn:
lac delim lac delim
sad newln sad newln
jmp shell jmp shell
jmp shell1 jmp shell1
loadcom: loadcom:
sys open; args; 0 sys open; args; 0
sma sma
jmp 1f jmp 1f
sys link; system; args; args sys link; system; args; args
spa spa
" ** 11-56-91.pdf page 31
" ** 11-45-91.pdf page 30
jmp 2f jmp 2f
-1 -1
dac lnkflg dac lnkflg
@@ -95,6 +95,7 @@ loadcom:
jmp 2f jmp 2f
lac d1 lac d1
sys write; in; 4 sys write; in; 4
lac d1
sys write; errmes; 1 sys write; errmes; 1
sys exit sys exit
2: 2:
@@ -119,12 +120,10 @@ loadcom:
dac boot+2 dac boot+2
cma cma
tad d7 tad d7
dac close dac clear
lac nargp lac nargp
dac 9 dac 9
" ** 11-56-91.pdf page 32
" ** 11-45-91.pdf page 32
2: 2:
lac i 9 lac i 9
dac i 8 dac i 8
@@ -186,9 +185,7 @@ endcom:
jmp getcom i jmp getcom i
cls: cls:
" ** 11-56-91.pdf page 33
" ** 11-45-91.pdf page 33
jms get jms get
jms getparm jms getparm
dac t1 dac t1
@@ -231,7 +228,7 @@ getparm:0
jmp comerr jmp comerr
jmp 2f jmp 2f
1: 1:
jmp get jms get
jms checkdlm jms checkdlm
jmp fill1 jmp fill1
2: 2:
@@ -251,8 +248,7 @@ getparm:0
jmp i getparm jmp i getparm
jmp 1b jmp 1b
" ** 11-45-91.pdf page 34 " ** 11-56-91.pdf page 34
fill: fill:
dac t1 dac t1
lac space lac space
@@ -314,8 +310,7 @@ rline:0
dac 8 dac 8
1: 1:
jms getcha jms getcha
" ** 11-56-91.pdf page 35
" ** 11-45-91.pdf page 35
dac i 15 dac i 15
sad newln sad newln
jmp i rline jmp i rline
@@ -377,8 +372,7 @@ doch:
dac 1b dac 1b
jmp 2b jmp 2b
cherr: cherr:
" ** 11-56-91.pdf page 36
" ** 11-45-91.pdf page 36
lac 1b lac 1b
dac .+3 dac .+3
lac d1 lac d1
@@ -391,10 +385,11 @@ lgout:
sys smes sys smes
sys exit sys exit
d1: 1 d1: 1
dm1: -1 dm1: -1
d4: 4 d4: 4
dm4: -5 dm4: -4
d2: 2 d2: 2
d7: 7 d7: 7
o17: 017 o17: 017