projects
/
unix-history
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6aa8a75
)
Bell 32V development
author
Tom London
<tbl@research.uucp>
Tue, 12 Dec 1978 06:14:59 +0000
(
01:14
-0500)
committer
Tom London
<tbl@research.uucp>
Tue, 12 Dec 1978 06:14:59 +0000
(
01:14
-0500)
Work on file usr/src/cmd/neqn/sqrt.c
Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v
usr/src/cmd/neqn/sqrt.c
[new file with mode: 0644]
patch
|
blob
diff --git a/usr/src/cmd/neqn/sqrt.c
b/usr/src/cmd/neqn/sqrt.c
new file mode 100644
(file)
index 0000000..
ea20bea
--- /dev/null
+++ b/
usr/src/cmd/neqn/sqrt.c
@@ -0,0
+1,12
@@
+# include "e.h"
+
+sqrt(p2) int p2; {
+ yyval = p2;
+ nrwid(p2, ps, p2);
+ printf(".ds %d \\v'%du'\\e\\L'%du'\\l'\\n(%du'",
+ p2, ebase[p2], -eht[p2], p2);
+ printf("\\v'%du'\\h'-\\n(%du'\\*(%d\n", eht[p2]-ebase[p2], p2, p2);
+ eht[p2] += VERT(1);
+ if(dbg)printf(".\tsqrt: S%d <- S%d;b=%d, h=%d\n",
+ p2, p2, ebase[p2], eht[p2]);
+}