Gecko [ nrupathungauniversityblr.ac.in ]

Name	Size	Permission
mdoc	[ DIR ]	drwxr-xr-x
mm	[ DIR ]	drwxr-xr-x
62bit.tmac	4.99 KB	-rw-r--r--
X.tmac	3.13 KB	-rw-r--r--
Xps.tmac	1.56 KB	-rw-r--r--
a4.tmac	468 B	-rw-r--r--
an-ext.tmac	3.46 KB	-rw-r--r--
an-old.tmac	13.97 KB	-rw-r--r--
an.tmac	53 B	-rw-r--r--
andoc.tmac	1.81 KB	-rw-r--r--
composite.tmac	555 B	-rw-r--r--
cp1047.tmac	2.15 KB	-rw-r--r--
cs.tmac	4.46 KB	-rw-r--r--
de.tmac	4.49 KB	-rw-r--r--
den.tmac	1016 B	-rw-r--r--
devtag.tmac	3.7 KB	-rw-r--r--
doc-old.tmac	35.46 KB	-rw-r--r--
doc.tmac	72.7 KB	-rw-r--r--
dvi.tmac	23.71 KB	-rw-r--r--
e.tmac	21.1 KB	-rw-r--r--
ec.tmac	994 B	-rw-r--r--
eqnrc	1.39 KB	-rw-r--r--
europs.tmac	1.65 KB	-rw-r--r--
fallbacks.tmac	1.38 KB	-rw-r--r--
fr.tmac	5.17 KB	-rw-r--r--
hdmisc.tmac	3.23 KB	-rw-r--r--
hdtbl.tmac	16.83 KB	-rw-r--r--
html-end.tmac	440 B	-rw-r--r--
html.tmac	16.04 KB	-rw-r--r--
hyphen.cs	20.73 KB	-rw-r--r--
hyphen.den	37.47 KB	-rw-r--r--
hyphen.det	36.43 KB	-rw-r--r--
hyphen.fr	27.35 KB	-rw-r--r--
hyphen.sv	33.77 KB	-rw-r--r--
hyphen.us	27.21 KB	-rw-r--r--
hyphenex.cs	291 B	-rw-r--r--
hyphenex.det	118.13 KB	-rw-r--r--
hyphenex.us	15.31 KB	-rw-r--r--
ja.tmac	1.66 KB	-rw-r--r--
latin1.tmac	2.22 KB	-rw-r--r--
latin2.tmac	2.31 KB	-rw-r--r--
latin5.tmac	2.23 KB	-rw-r--r--
latin9.tmac	2.22 KB	-rw-r--r--
lbp.tmac	2.1 KB	-rw-r--r--
lj4.tmac	584 B	-rw-r--r--
m.tmac	76.71 KB	-rw-r--r--
man.tmac	58 B	-rw-r--r--
mandoc.tmac	61 B	-rw-r--r--
mdoc.tmac	57 B	-rw-r--r--
me.tmac	53 B	-rw-r--r--
mm.tmac	49 B	-rw-r--r--
mmse.tmac	53 B	-rw-r--r--
mom.tmac	51 B	-rw-r--r--
ms.tmac	53 B	-rw-r--r--
mse.tmac	3.19 KB	-rw-r--r--
om.tmac	382.05 KB	-rw-r--r--
papersize.tmac	3.99 KB	-rw-r--r--
pdf.tmac	27.48 KB	-rw-r--r--
pdfmark.tmac	68.82 KB	-rw-r--r--
pic.tmac	139 B	-rw-r--r--
ps.tmac	20.09 KB	-rw-r--r--
psatk.tmac	1.08 KB	-rw-r--r--
psold.tmac	1.79 KB	-rw-r--r--
pspic.tmac	4.64 KB	-rw-r--r--
refer-me.tmac	2.57 KB	-rw-r--r--
refer-mm.tmac	2.66 KB	-rw-r--r--
refer-ms.tmac	2.17 KB	-rw-r--r--
refer.tmac	9.34 KB	-rw-r--r--
s.tmac	36.86 KB	-rw-r--r--
safer.tmac	218 B	-rw-r--r--
spdf.tmac	4.96 KB	-rw-r--r--
sv.tmac	4.04 KB	-rw-r--r--
trace.tmac	6.97 KB	-rw-r--r--
trans.tmac	4.44 KB	-rw-r--r--
troffrc	1.38 KB	-rw-r--r--
troffrc-end	1.14 KB	-rw-r--r--
tty-char.tmac	5.08 KB	-rw-r--r--
tty.tmac	1.54 KB	-rw-r--r--
unicode.tmac	93 B	-rw-r--r--
www.tmac	39.81 KB	-rw-r--r--
zh.tmac	1.45 KB	-rw-r--r--

Code Editor : 62bit.tmac

.\" -*- nroff -*-
.\"
.\" 62bit.tmac
.\"
.\" Copyright (C) 2003-2014  Free Software Foundation, Inc.
.\"      Written by Werner Lemberg (wl@gnu.org)
.\"
.\" This file is part of groff.
.\"
.\" groff is free software; you can redistribute it and/or modify it under
.\" the terms of the GNU General Public License as published by the Free
.\" Software Foundation, either version 3 of the License, or
.\" (at your option) any later version.
.\"
.\" groff is distributed in the hope that it will be useful, but WITHOUT ANY
.\" WARRANTY; without even the implied warranty of MERCHANTABILITY or
.\" FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
.\" for more details.
.\"
.\" You should have received a copy of the GNU General Public License
.\" along with this program. If not, see <http://www.gnu.org/licenses/>.
.\"
.\"
.\"
.\" This file provides macros for addition, multiplication, and division of
.\" 62bit signed integers.  Its main application is to `scale' 31bit values,
.\" namely, to perform the operation `a * b / c' accurately.
.\"
.\" Note that it is the duty of the user to check whether the input values
.\" fit within 31 bits (this is the range [-1073741824,1073741823]).
.\"
.
.if d add31to62 \
.  nx
.
.
.\" .add31to62 <x> <y> <z>
.\"
.\" Add a 31bit signed integer to a signed 62bit integer.  Result is a
.\" signed 62bit integer:
.\"
.\"   <x> + (<y>h * 2^30 + <y>l) = <z>h * 2^30 + <z>l
.\"
.\"
.\" in: \n[<x>], \n[<y>h], \n[<y>l]
.\"
.\" out: \n[<z>h], \n[<z>l]
.\"
.\" Example: .add31to62 p q r
.\"
.\"          -> input registers: \n[p], \n[qh], \n[ql]
.\"             output registers: \n[rh], \n[rl]
.\"
.de1 add31to62
.  nr 62bit-lo2 (\\n[\\$2l])
.  nr 62bit-hi2 (\\n[\\$2h])
.
.  nr 62bit-i ((\\n[\\$1] + \\n[62bit-lo2]) / 1073741824)
.  nr \\$3l ((\\n[\\$1] + \\n[62bit-lo2]) % 1073741824)
.
.  ie ((\\n[62bit-lo2] > 0) & (\\n[\\$3l] < 0)) \{\
.    nr \\$3l +1073741824
.    nr 62bit-i -1
.  \}
.  el \
.    if ((\\n[62bit-lo2] < 0) & (\\n[\\$3l] > 0)) \{\
.      nr \\$3l -1073741824
.      nr 62bit-i +1
.    \}
.
.  nr \\$3h (\\n[62bit-hi2] + \\n[62bit-i])
..
.
.
.\" .mult31by31 <x> <y> <z>
.\"
.\" Multiply two 31bit signed integers.  Result is a 62bit signed
.\" integer:
.\"
.\"   <x> * <y> = <z>h * 2^30 + <z>l
.\"
.\"
.\" in: \n[<x>], \n[<y>]
.\"
.\" out: \n[<z>h], \n[<z>l]
.\"
.\" Example: .mult31by31 a b c
.\"
.\"          -> input registers: \n[a], \n[b]
.\"             output registers: \n[ch], \n[cl]
.\"
.de1 mult31by31
.  nr 62bit-1 (\\n[\\$1])
.  nr 62bit-2 (\\n[\\$2])
.
.  nr 62bit-sign 1
.  if !\\n[62bit-1] \{\
.    nr 62bit-sign -(\\n[62bit-sign])
.    nr 62bit-1 -(\\n[62bit-1])
.  \}
.  if !\\n[62bit-2] \{\
.    nr 62bit-sign -(\\n[62bit-sign])
.    nr 62bit-2 -(\\n[62bit-2])
.  \}
.
.  nr 62bit-lo1 (\\n[62bit-1] % 32768)
.  nr 62bit-hi1 (\\n[62bit-1] / 32768)
.  nr 62bit-lo2 (\\n[62bit-2] % 32768)
.  nr 62bit-hi2 (\\n[62bit-2] / 32768)
.
.  nr 62bit-lo3 (\\n[62bit-lo1] * \\n[62bit-lo2] % 1073741824)
.  nr 62bit-i1 (\\n[62bit-lo1] * \\n[62bit-hi2] % 1073741824)
.  nr 62bit-i2 (\\n[62bit-lo2] * \\n[62bit-hi1] % 1073741824)
.  nr 62bit-hi3 (\\n[62bit-hi1] * \\n[62bit-hi2] % 1073741824)
.
.  nr 62bit-i1 (\\n[62bit-i1] + \\n[62bit-i2] % 1073741824)
.  \" check carry overflow of 62bit-i1 + 62bit-i2
.  if (\\n[62bit-i1] < \\n[62bit-i2]) \
.    nr 62bit-hi3 +32768
.
.  nr 62bit-hi3 +(\\n[62bit-i1] / 32768)
.  \" multiply by 32768 in small steps to avoid overflow
.  nr 62bit-i 16 1
.  while \\n-[62bit-i] \
.    nr 62bit-i1 (\\n[62bit-i1] * 2 % 1073741824)
.
.  nr 62bit-lo3 (\\n[62bit-lo3] + \\n[62bit-i1] % 1073741824)
.  \" check carry overflow of 62bit-i1 + lo
.  if (\\n[62bit-lo3] < \\n[62bit-i1]) \
.    nr 62bit-hi3 +1
.
.  if !\\n[62bit-sign] \{\
.    nr 62bit-lo3 -(\\n[62bit-lo3])
.    nr 62bit-hi3 -(\\n[62bit-hi3])
.  \}
.  nr \\$3l \\n[62bit-lo3]
.  nr \\$3h \\n[62bit-hi3]
..
.
.
.\" .div62by31 <x> <y> <z>
.\"
.\" Divide a signed 62bit integer by a 31bit integer.  Result is a
.\" 31bit signed integer:
.\"
.\"   (<x>h * 2^30 + <x>l) / <y> = <z>
.\"
.\"
.\" in: \n[<x>h], \n[<x>l], \n[<y>]
.\"
.\" out: \n[<z>]
.\"
.\" Example: .div62by31 foo bar baz
.\"
.\"          -> input registers: \n[fooh] \n[fool] \n[bar]
.\"             output register: \n[baz]
.\"
.de1 div62by31
.  nr 62bit-lo1 \\n[\\$1l]
.  nr 62bit-hi1 \\n[\\$1h]
.  nr 62bit-2 \\n[\\$2]
.  nr 62bit-3 0
.
.  nr 62bit-sign 1
.  if ((\\n[62bit-lo1] < 0) : (\\n[62bit-hi1] < 0)) \{\
.    nr 62bit-sign -(\\n[62bit-sign])
.    nr 62bit-lo1 -(\\n[62bit-lo1])
.    nr 62bit-hi1 -(\\n[62bit-hi1])
.  \}
.  if !\\n[62bit-2] \{\
.    nr 62bit-sign -(\\n[62bit-sign])
.    nr 62bit-2 -(\\n[62bit-2])
.  \}
.
.  nr 62bit-i 31 1
.  while \\n-[62bit-i] \{\
.    nr 62bit-hi1 (\\n[62bit-hi1] * 2 % 1073741824)
.    nr 62bit-3 (\\n[62bit-3] * 2)
.    nr 62bit-hi1 +(\\n[62bit-lo1] / 536870912)
.
.    if (\\n[62bit-hi1] >= \\n[62bit-2]) \{\
.      nr 62bit-hi1 -\\n[62bit-2]
.      nr 62bit-3 +1
.    \}
.    nr 62bit-lo1 (\\n[62bit-lo1] * 2 % 1073741824)
.  \}
.
.  if !\\n[62bit-sign] \
.    nr 62bit-3 -(\\n[62bit-3])
.  nr \\$3 \\n[62bit-3]
..
.
.\" EOF

${this.title}

Code Editor : 62bit.tmac