home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / neqn / sqrt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  326 b   |  13 lines
  1. # include "e.h"
  2.  
  3. sqrt(p2) int p2; {
  4.     yyval = p2;
  5.     nrwid(p2, ps, p2);
  6.     printf(".ds %d \\v'%du'\\e\\L'%du'\\l'\\n(%du'",
  7.         p2, ebase[p2], -eht[p2], p2);
  8.     printf("\\v'%du'\\h'-\\n(%du'\\*(%d\n", eht[p2]-ebase[p2], p2, p2);
  9.     eht[p2] =+ VERT(1);
  10.     if(dbg)printf(".\tsqrt: S%d <- S%d;b=%d, h=%d\n", 
  11.         p2, p2, ebase[p2], eht[p2]);
  12. }
  13.