FP_PM
write_fp(par, FP_PM, read_fp(par, FP_PM) & ~FP_PM_P);
write_fp(par, FP_PM, read_fp(par, FP_PM) | FP_PM_P);
fp_pm = read_fp(par, FP_PM);
write_fp(par, FP_PM, fp_pm);
case FP_PM:
if (par->fp[FP_PM] & FP_PM_P) {
if (!(read_fp(par, FP_PM) &
write_fp(par, FP_PM, par->fp[FP_PM]);
if (!(read_fp(par, FP_PM) &
write_fp(par, FP_PM, par->fp[FP_PM]);
if (i != FP_PM && i != FP_RSVD_0)
write_fp(par, FP_PM, par->fp[FP_PM] & ~FP_PM_P);
fp = read_fp(par, FP_PM);
if (par->fp[FP_PM] & FP_PM_P) {
write_fp(par, FP_PM, par->fp[FP_PM]);
write_fp(par, FP_PM, par->fp[FP_PM]);
fp = read_fp(par, FP_PM);
write_fp(par, FP_PM, fp);
fp = read_fp(par, FP_PM);
write_fp(par, FP_PM, fp);
fp_pm = read_fp(par, FP_PM);
write_fp(par, FP_PM, fp_pm);