getf Operation Font Conventions
if (PR[qp]) {
check_target_register(;
if (tmp_isrcode = fp_reg_disabled(f2, 0, 0, 0))
disabled_fp_register_fault(tmp_isrcode, 0);

if (single_form) {
GR[r1]{31:0} = fp_fr_to_mem_format( FR[f2], 4, 0);
GR[r1]{63:32} = 0;
} else if (double_form) {
GR[r1] = fp_fr_to_mem_format(FR[f2], 8, 0);
} else if (exponent_form) {
GR[r1]{63:18} = 0;
GR[r1]{16:0} = FR[f2].exponent;
GR[r1]{17} = FR[f2].sign;
} else // significand_form
GR[r1] = FR[f2].significand;
if ( fp_is_natval(FR[f2]))
GR[r1].nat = 1;
else
GR[r1].nat = 0;
}