/* hp2100_fp1.h: HP 2100/1000 multiple-precision floating point declarations | |
Copyright (c) 2005-2017, J. David Bryan | |
Permission is hereby granted, free of charge, to any person obtaining a | |
copy of this software and associated documentation files (the "Software"), | |
to deal in the Software without restriction, including without limitation | |
the rights to use, copy, modify, merge, publish, distribute, sublicense, | |
and/or sell copies of the Software, and to permit persons to whom the | |
Software is furnished to do so, subject to the following conditions: | |
The above copyright notice and this permission notice shall be included in | |
all copies or substantial portions of the Software. | |
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL | |
THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER | |
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN | |
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. | |
Except as contained in this notice, the name of the author shall not be used | |
in advertising or otherwise to promote the sale, use or other dealings in | |
this Software without prior written authorization from the author. | |
15-Feb-17 JDB Deleted unneeded guard macro definition | |
24-Dec-14 JDB Changed fp_ucom return from uint32 to uint16 | |
14-Mar-13 MP Changed guard macro name to avoid reserved namespace | |
16-Oct-06 JDB Generalized FP calling sequences for F-Series | |
12-Oct-06 JDB Altered x_trun for F-Series FFP compatibility | |
*/ | |
/* Special operands. */ | |
#define ACCUM NULL /* result not returned */ | |
static const OP NOP = { { 0, 0, 0, 0, 0 } }; /* unneeded operand */ | |
/* Generalized floating-point handlers. */ | |
void fp_prec (uint16 opcode, OPSIZE *operand_l, OPSIZE *operand_r, OPSIZE *result); | |
uint32 fp_exec (uint16 opcode, OP *result, OP operand_l, OP operand_r); | |
OP fp_accum (const OP *operand, OPSIZE precision); | |
uint32 fp_pack (OP *result, OP mantissa, int32 exponent, OPSIZE precision); | |
uint32 fp_nrpack (OP *result, OP mantissa, int32 exponent, OPSIZE precision); | |
uint32 fp_unpack (OP *mantissa, int32 *exponent, OP packed, OPSIZE precision); | |
uint16 fp_ucom (OP *mantissa, OPSIZE precision); | |
uint32 fp_pcom (OP *packed, OPSIZE precision); | |
uint32 fp_trun (OP *result, OP source, OPSIZE precision); | |
uint32 fp_cvt (OP *result, OPSIZE source_precision, OPSIZE dest_precision); |