99 #define Dbl_leftshiftby1_withextent(lefta,leftb,right,resulta,resultb)	\  argument
100     Shiftdouble(Dallp1(lefta), Dallp2(leftb), 31, Dallp1(resulta));	\
400 #define Dbl_subtract(lefta,leftb,righta,rightb,resulta,resultb)			\  argument
401     if( Dallp2(rightb) > Dallp2(leftb) ) Dallp1(lefta)--;	\
403     Dallp1(resulta) = Dallp1(lefta) - Dallp1(righta)
407 #define Dbl_subtract_withextension(lefta,leftb,righta,rightb,extent,resulta,resultb)	\  argument
408     Dbl_subtract(lefta,leftb,righta,rightb,resulta,resultb);		\
414 #define Dbl_addition(lefta,leftb,righta,rightb,resulta,resultb)		\  argument
417     Dallp1(resulta) = Dallp1(lefta) + Dallp1(righta);			\
635 #define Dblext_subtract(lefta,leftb,leftc,leftd,righta,rightb,rightc,rightd,resulta,resultb,resultc…  argument
638 	    if( (Dextallp2(leftb)--) == 0) Dextallp1(lefta)--;	\
641         if( (Dextallp2(leftb)--) == 0) Dextallp1(lefta)--;	\
643     if( Dextallp2(rightb) > Dextallp2(leftb) ) Dextallp1(lefta)--; \
645     Dextallp1(resulta) = Dextallp1(lefta) - Dextallp1(righta)
647 #define Dblext_addition(lefta,leftb,leftc,leftd,righta,rightb,rightc,rightd,resulta,resultb,resultc…  argument
656 		    Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta)+1; \
657 	    else Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta); \
661 		    Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta)+1; \
662 	    else Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta); \
668 		    Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta)+1; \
669 	    else Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta); \
673 		    Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta)+1; \
674 	    else Dextallp1(resulta) = Dextallp1(lefta)+Dextallp1(righta)