(assemble ()
(inst and temp value lowtag-mask)
(inst xor temp lowtag)
(if not-p
(inst bne temp zero-tn target)
(inst beq temp zero-tn target))
(assemble ()
(inst and temp value lowtag-mask)
(inst xor temp lowtag)
(if not-p
(inst bne temp zero-tn target)
(inst beq temp zero-tn target))