а этюд забавный, по простому-то не судьба, на 2 байта короче?

;a=abs(e)
xor a
sub e
jp p,$+4
ld a,e