7900 IF DI<0 AND FP<0 THEN XD=X : XE=XY : FPD=FP : MX=1