64 #define Dbl_rightshift(srcdstA, srcdstB, varamount)			\  argument
66         Dallp2(srcdstB) = Dallp1(srcdstA) >> (varamount-32);		\
70 	Variable_shift_double(Dallp1(srcdstA), Dallp2(srcdstB), 	\
71 	  (varamount), Dallp2(srcdstB));				\
75 #define Dbl_rightshift_exponentmantissa(srcdstA, srcdstB, varamount)	\  argument
77         Dallp2(srcdstB) = Dexponentmantissap1(srcdstA) >> (varamount-32); \
81 	Variable_shift_double(Dexponentmantissap1(srcdstA), Dallp2(srcdstB), \
82 	(varamount), Dallp2(srcdstB));					\
87 #define Dbl_leftshift(srcdstA, srcdstB, varamount)			\  argument
89 	Dallp1(srcdstA) = Dallp2(srcdstB) << (varamount-32);		\
90 	Dallp2(srcdstB)=0;						\
95 		(Dallp2(srcdstB) >> (32-(varamount)));			\
96 	    Dallp2(srcdstB) <<= varamount;				\
107 #define Dbl_arithrightshiftby1(srcdstA,srcdstB)			\  argument
108     Shiftdouble(Dallp1(srcdstA),Dallp2(srcdstB),1,Dallp2(srcdstB));\
348 #define Dbl_right_align(srcdstA,srcdstB,shift,extent)			\  argument
357 	        Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),	\
359 	        if(Dallp2(srcdstB) << 64 - (shift)) Ext_setone_low(extent); \
361 	    else Extall(extent) = Dallp2(srcdstB);			\
362 	    Dallp2(srcdstB) = Dallp1(srcdstA) >> (shift - 32);		\
367 	    if(Dallp2(srcdstB)) Ext_setone_low(extent);			\
368 	    Dallp2(srcdstB) = 0;					\
377 	    Extall(extent) = Dallp2(srcdstB) << 32 - (shift);		\
378 	    Variable_shift_double(Dallp1(srcdstA),Dallp2(srcdstB),shift, \
379 	     Dallp2(srcdstB));						\
389 #define Dbl_fix_overshift(srcdstA,srcdstB,shift,extent)			\  argument
390 	    Extall(extent) = Dallp2(srcdstB) << 32 - (shift);		\
391 	    Dallp2(srcdstB) = (Dallp1(srcdstA) << 32 - (shift)) |	\
392 		(Dallp2(srcdstB) >> (shift));				\
572 #define Dblext_right_align(srcdstA,srcdstB,srcdstC,srcdstD,shift) \  argument
581                 Variable_shift_double(Dextallp2(srcdstB),		\
584 		 Dextallp2(srcdstB),shiftamt,Dextallp2(srcdstB));	\
591                 Variable_shift_double(Dextallp2(srcdstB),		\
594 		 Dextallp2(srcdstB),shiftamt,Dextallp3(srcdstC));	\
599 		Dextallp3(srcdstC) = Dextallp2(srcdstB);		\
601 	     Dextallp2(srcdstB) = Dextallp1(srcdstA) >> shiftamt;	\
605                 sticky = (Dextallp2(srcdstB) << 31 - shiftamt) |	\
608 		 Dextallp2(srcdstB),shiftamt,Dextallp4(srcdstD));	\
612 		Dextallp4(srcdstD) = Dextallp2(srcdstB);		\
615 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
619 			 Dextallp2(srcdstB) | Dextallp3(srcdstC) |	\
623 		sticky = Dextallp2(srcdstB) | Dextallp3(srcdstC) |	\
627 	     Dextallp1(srcdstA) = Dextallp2(srcdstB) = 0;		\
677 #define Dblext_arithrightshiftby1(srcdstA,srcdstB,srcdstC,srcdstD)	\  argument
679     Shiftdouble(Dextallp2(srcdstB),Dextallp3(srcdstC),1,Dextallp3(srcdstC)); \
680     Shiftdouble(Dextallp1(srcdstA),Dextallp2(srcdstB),1,Dextallp2(srcdstB)); \