read_fp
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);
if (!(read_fp(par, FP_PM) &
if (!(read_fp(par, FP_PM) &
fp = read_fp(par, FP_PM);
fp = read_fp(par, FP_PM);
fp = read_fp(par, FP_PT1);
fp = read_fp(par, FP_PM);
fp_pm = read_fp(par, FP_PM);