(mask ,(1- (ash 1 bits)))
(shift (* extra ,bits)))
(unless (= value mask)
- (inst mov mask-tn (lognot (ash mask shift)))
+ (inst mov mask-tn (ldb (byte 64 0)
+ (lognot (ash mask shift))))
(inst and old mask-tn))
(unless (zerop value)
(inst mov mask-tn (ash value shift))