\I\X47:Add nonzero numbers and \PB{\&{return}}\X
|
\I\X47:Add nonzero numbers and \PB{\&{return}}\X
|
\U46.
|
\U46.
|
\I\X49:Adjust for difference in exponents\X
|
\I\X49:Adjust for difference in exponents\X
|
\U47.
|
\U47.
|
\I\X14:Check that \PB{$\|x<\|z$}; otherwise give trivial answer\X
|
\I\X14:Check that \PB{$\|x<\|z$}; otherwise give trivial answer\X
|
\U13.
|
\U13.
|
\I\X51:Compare two numbers with respect to epsilon and \PB{\&{return}}\X
|
\I\X51:Compare two numbers with respect to epsilon and \PB{\&{return}}\X
|
\U50.
|
\U50.
|
\I\X53:Compute the difference of fraction parts, \PB{\|o}\X
|
\I\X53:Compute the difference of fraction parts, \PB{\|o}\X
|
\U51.
|
\U51.
|
\I\X65:Compute the significant digits in the large-exponent case\X
|
\I\X65:Compute the significant digits in the large-exponent case\X
|
\U64.
|
\U64.
|
\I\X64:Compute the significant digits \PB{\|s} and decimal exponent \PB{\|e}\X
|
\I\X64:Compute the significant digits \PB{\|s} and decimal exponent \PB{\|e}\X
|
\U54.
|
\U54.
|
\I\X90:Convert to short float\X
|
\I\X90:Convert to short float\X
|
\U89.
|
\U89.
|
\I\X83:Determine the binary fraction and binary exponent\X
|
\I\X83:Determine the binary fraction and binary exponent\X
|
\U78.
|
\U78.
|
\I\X16:Determine the number of significant places \PB{\|n} in the divisor \PB{%
|
\I\X16:Determine the number of significant places \PB{\|n} in the divisor \PB{%
|
\|v}\X
|
\|v}\X
|
\U13.
|
\U13.
|
\I\X20:Determine the quotient digit \PB{\|q[\|j]}\X
|
\I\X20:Determine the quotient digit \PB{\|q[\|j]}\X
|
\U13.
|
\U13.
|
\I\X45:Divide nonzero numbers and \PB{\&{return}}\X
|
\I\X45:Divide nonzero numbers and \PB{\&{return}}\X
|
\U44.
|
\U44.
|
\I\X48:Exchange \PB{\|y} with \PB{\|z}\X
|
\I\X48:Exchange \PB{\|y} with \PB{\|z}\X
|
\Us47\ET51.
|
\Us47\ET51.
|
\I\X55:Extract the exponent \PB{\|e} and determine the fraction interval $[f%
|
\I\X55:Extract the exponent \PB{\|e} and determine the fraction interval $[f%
|
\dts g]$ or $(f\dts g)$\X
|
\dts g]$ or $(f\dts g)$\X
|
\U54.
|
\U54.
|
\I\X21:Find the trial quotient, $\hat q$\X
|
\I\X21:Find the trial quotient, $\hat q$\X
|
\U20.
|
\U20.
|
\I\X4, 9, 30, 32, 69, 75:Global variables\X
|
\I\X4, 9, 30, 32, 69, 75:Global variables\X
|
\U1.
|
\U1.
|
\I\X57:Handle the special case when the fraction part is zero\X
|
\I\X57:Handle the special case when the fraction part is zero\X
|
\U55.
|
\U55.
|
\I\X23:If the result was negative, decrease $\hat q$ by 1\X
|
\I\X23:If the result was negative, decrease $\hat q$ by 1\X
|
\U20.
|
\U20.
|
\I\X87:Integerize and \PB{\&{return}}\X
|
\I\X87:Integerize and \PB{\&{return}}\X
|
\U86.
|
\U86.
|
\I\X56, 66:Local variables for \PB{\\{print\_float}}\X
|
\I\X56, 66:Local variables for \PB{\\{print\_float}}\X
|
\U54.
|
\U54.
|
\I\X70, 76, 81:Local variables for \PB{\\{scan\_const}}\X
|
\I\X70, 76, 81:Local variables for \PB{\\{scan\_const}}\X
|
\U68.
|
\U68.
|
\I\X79:Move the digits from \PB{\\{buf}} to \PB{$\ff$}\X
|
\I\X79:Move the digits from \PB{\\{buf}} to \PB{$\ff$}\X
|
\U78.
|
\U78.
|
\I\X43:Multiply nonzero numbers and \PB{\&{return}}\X
|
\I\X43:Multiply nonzero numbers and \PB{\&{return}}\X
|
\U41.
|
\U41.
|
\I\X17:Normalize the divisor\X
|
\I\X17:Normalize the divisor\X
|
\U13.
|
\U13.
|
\I\X36, 59:Other type definitions\X
|
\I\X36, 59:Other type definitions\X
|
\U1.
|
\U1.
|
\I\X84:Pack and round the answer\X
|
\I\X84:Pack and round the answer\X
|
\U78.
|
\U78.
|
\I\X19:Pack \PB{\|q} and \PB{\|u} to \PB{\\{acc}} and \PB{\\{aux}}\X
|
\I\X19:Pack \PB{\|q} and \PB{\|u} to \PB{\\{acc}} and \PB{\\{aux}}\X
|
\U13.
|
\U13.
|
\I\X11:Pack \PB{\|w} into the outputs \PB{\\{aux}} and \PB{\\{acc}}\X
|
\I\X11:Pack \PB{\|w} into the outputs \PB{\\{aux}} and \PB{\\{acc}}\X
|
\U8.
|
\U8.
|
\I\X67:Print the significant digits with proper context\X
|
\I\X67:Print the significant digits with proper context\X
|
\U54.
|
\U54.
|
\I\X80:Put the 9-digit number \PB{${*}\|p$}\thinspace\dots\thinspace\PB{${*}(%
|
\I\X80:Put the 9-digit number \PB{${*}\|p$}\thinspace\dots\thinspace\PB{${*}(%
|
\|p+\T{8})$} into \PB{$\ff.\\{dat}[\|k]$}\X
|
\|p+\T{8})$} into \PB{$\ff.\\{dat}[\|k]$}\X
|
\U79.
|
\U79.
|
\I\X95:Reduce \PB{$(\\{ye},\\{yf})$} by a multiple of \PB{\\{zf}}; \PB{\&{goto}
|
\I\X95:Reduce \PB{$(\\{ye},\\{yf})$} by a multiple of \PB{\\{zf}}; \PB{\&{goto}
|
\\{zero\_out}} if the remainder is zero, \PB{\&{goto} \\{try\_complement}} if
|
\\{zero\_out}} if the remainder is zero, \PB{\&{goto} \\{try\_complement}} if
|
appropriate\X
|
appropriate\X
|
\U94.
|
\U94.
|
\I\X94:Remainderize nonzero numbers and \PB{\&{return}}\X
|
\I\X94:Remainderize nonzero numbers and \PB{\&{return}}\X
|
\U93.
|
\U93.
|
\I\X78:Return a floating point constant\X
|
\I\X78:Return a floating point constant\X
|
\U73.
|
\U73.
|
\I\X72:Return infinity\X
|
\I\X72:Return infinity\X
|
\U68.
|
\U68.
|
\I\X71:Return the standard NaN\X
|
\I\X71:Return the standard NaN\X
|
\U68.
|
\U68.
|
\I\X33:Round and return the result\X
|
\I\X33:Round and return the result\X
|
\U31.
|
\U31.
|
\I\X35:Round and return the short result\X
|
\I\X35:Round and return the short result\X
|
\U34.
|
\U34.
|
\I\X74:Scan a fraction part\X
|
\I\X74:Scan a fraction part\X
|
\U73.
|
\U73.
|
\I\X73:Scan a number and \PB{\&{return}}\X
|
\I\X73:Scan a number and \PB{\&{return}}\X
|
\U68.
|
\U68.
|
\I\X77:Scan an exponent\X
|
\I\X77:Scan an exponent\X
|
\U73.
|
\U73.
|
\I\X63:Store $f$ and $g$ as multiprecise integers\X
|
\I\X63:Store $f$ and $g$ as multiprecise integers\X
|
\U54.
|
\U54.
|
\I\X2:Stuff for \CEE/ preprocessor\X
|
\I\X2:Stuff for \CEE/ preprocessor\X
|
\U1.
|
\U1.
|
\I\X5, 6, 7, 8, 12, 13, 24, 25, 26, 27, 28, 29, 31, 34, 37, 38, 39, 40, 41, 44,
|
\I\X5, 6, 7, 8, 12, 13, 24, 25, 26, 27, 28, 29, 31, 34, 37, 38, 39, 40, 41, 44,
|
46, 50, 54, 60, 61, 62, 68, 82, 85, 86, 88, 89, 91, 93:Subroutines\X
|
46, 50, 54, 60, 61, 62, 68, 82, 85, 86, 88, 89, 91, 93:Subroutines\X
|
\U1.
|
\U1.
|
\I\X22:Subtract $b^j\hat q v$ from \PB{\|u}\X
|
\I\X22:Subtract $b^j\hat q v$ from \PB{\|u}\X
|
\U20.
|
\U20.
|
\I\X92:Take the square root and \PB{\&{return}}\X
|
\I\X92:Take the square root and \PB{\&{return}}\X
|
\U91.
|
\U91.
|
\I\X3:Tetrabyte and octabyte type definitions\X
|
\I\X3:Tetrabyte and octabyte type definitions\X
|
\U1.
|
\U1.
|
\I\X42:The usual NaN cases\X
|
\I\X42:The usual NaN cases\X
|
\Us41, 44, 46\ETs93.
|
\Us41, 44, 46\ETs93.
|
\I\X18:Unnormalize the remainder\X
|
\I\X18:Unnormalize the remainder\X
|
\U13.
|
\U13.
|
\I\X15:Unpack the dividend and divisor to \PB{\|u} and \PB{\|v}\X
|
\I\X15:Unpack the dividend and divisor to \PB{\|u} and \PB{\|v}\X
|
\U13.
|
\U13.
|
\I\X10:Unpack the multiplier and multiplicand to \PB{\|u} and \PB{\|v}\X
|
\I\X10:Unpack the multiplier and multiplicand to \PB{\|u} and \PB{\|v}\X
|
\U8.
|
\U8.
|
\I\X52:Unsubnormalize \PB{\|y} and \PB{\|z}, if they are subnormal\X
|
\I\X52:Unsubnormalize \PB{\|y} and \PB{\|z}, if they are subnormal\X
|
\U51.
|
\U51.
|
|
|
|
|