88 #define Dbl_rightshift(srcdstA, srcdstB, varamount)			\  argument
90 	Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
94 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB),		\
95 	  (varamount), Dallp2(srcdstB));				\
99 #define Dbl_rightshift_exponentmantissa(srcdstA, srcdstB, varamount)	\  argument
101 	Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> ((varamount)-32); \
105 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
106 	(varamount), Dallp2(srcdstB));					\
111 #define Dbl_leftshift(srcdstA, srcdstB, varamount)			\  argument
113 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
114 	Dallp2(srcdstB)=0;						\
119 		(Dallp2(srcdstB) >> (32-(varamount)));			\
120 	    Dallp2(srcdstB) <<= varamount;				\
131 #define Dbl_arithrightshiftby1(srcdstA,srcdstB)			\  argument
132     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
371 #define Dbl_right_align(srcdstA,srcdstB,shift,extent)			\  argument
380 		Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
382 		if(Dallp2(srcdstB) << (64 - (shift))) Ext_setone_low(extent); \
384 	    else Extall(extent) = Dallp2(srcdstB);			\
385 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
390 	    if(Dallp2(srcdstB)) Ext_setone_low(extent);			\
391 	    Dallp2(srcdstB) = 0;					\
400 	    Extall(extent) = Dallp2(srcdstB) << (32 - (shift));		\
401 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
402 	     Dallp2(srcdstB));						\
412 #define Dbl_fix_overshift(srcdstA,srcdstB,shift,extent)			\  argument
413 	    Extall(extent) = Dallp2(srcdstB) << (32 - (shift));		\
414 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << (32 - (shift))) |	\
415 		(Dallp2(srcdstB) >> (shift));				\