7870 IF FP>0 THEN DI=-DI