51 #define Dbl_rightshift(srcdstA, srcdstB, varamount)			\  argument
53         Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
57 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), 	\
58 	  (varamount), Dallp2(srcdstB));				\
62 #define Dbl_rightshift_exponentmantissa(srcdstA, srcdstB, varamount)	\  argument
64         Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> (varamount-32); \
68 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
69 	(varamount), Dallp2(srcdstB));					\
74 #define Dbl_leftshift(srcdstA, srcdstB, varamount)			\  argument
76 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
77 	Dallp2(srcdstB)=0;						\
82 		(Dallp2(srcdstB) >> (32-(varamount)));			\
83 	    Dallp2(srcdstB) <<= varamount;				\
94 #define Dbl_arithrightshiftby1(srcdstA,srcdstB)			\  argument
95     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
335 #define Dbl_right_align(srcdstA,srcdstB,shift,extent)			\  argument
344 	        Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
346 	        if(Dallp2(srcdstB) << 64 - (shift)) Ext_setone_low(extent); \
348 	    else Extall(extent) = Dallp2(srcdstB);			\
349 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
354 	    if(Dallp2(srcdstB)) Ext_setone_low(extent);			\
355 	    Dallp2(srcdstB) = 0;					\
364 	    Extall(extent) = Dallp2(srcdstB) << 32 - (shift);		\
365 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
366 	     Dallp2(srcdstB));						\
376 #define Dbl_fix_overshift(srcdstA,srcdstB,shift,extent)			\  argument
377 	    Extall(extent) = Dallp2(srcdstB) << 32 - (shift);		\
378 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << 32 - (shift)) |	\
379 		(Dallp2(srcdstB) >> (shift));				\
559 #define Dblext_right_align(srcdstA,srcdstB,srcdstC,srcdstD,shift) \  argument
568                 Variable_shift_double(Dextallp2(srcdstB),		\
571 		 Dextallp2(srcdstB),shiftamt,Dextallp2(srcdstB));	\
578                 Variable_shift_double(Dextallp2(srcdstB),		\
581 		 Dextallp2(srcdstB),shiftamt,Dextallp3(srcdstC));	\
586 		Dextallp3(srcdstC) = Dextallp2(srcdstB);		\
588 	     Dextallp2(srcdstB) = Dextallp1(srcdstA) >> shiftamt;	\
592                 sticky = (Dextallp2(srcdstB) << 31 - shiftamt) |	\
595 		 Dextallp2(srcdstB),shiftamt,Dextallp4(srcdstD));	\
599 		Dextallp4(srcdstD) = Dextallp2(srcdstB);		\
602 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
606 			 Dextallp2(srcdstB) | Dextallp3(srcdstC) |	\
610 		sticky = Dextallp2(srcdstB) | Dextallp3(srcdstC) |	\
614 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
664 #define Dblext_arithrightshiftby1(srcdstA,srcdstB,srcdstC,srcdstD)	\  argument
666     Shiftdouble(Dextallp2(srcdstB),Dextallp3(srcdstC),1,Dextallp3(srcdstC)); \
667     Shiftdouble(Dextallp1(srcdstA),Dextallp2(srcdstB),1,Dextallp2(srcdstB)); \