sext

wz=(bc|de|hl)
sext wz,a
	ld z,a
	rlca
	sbc a,a
	ld w,a



z=(b|c|d|e)
sext uhl,z
	ld a,z
	rlca
	sbc hl,hl
	ld l,z

sext uhl,a
	rlca
	sbc hl,hl
	rrca
	ld l,a


wz=(bc|de)
sext uhl,wz
	ld a,w
	rlca
	sbc hl,hl
	ld l,z
	ld h,w

sext uhl,hl
	ex de,hl
	add.s hl,hl
	sbc hl,hl
	ld l,e
	ld h,d



v=(a|b|c|d|e)
z=(b|c|d|e)
sext vuhl,z
	ld a,z
	rlca
	sbc hl,hl
	ld l,z
	ld v,h

v=(a|b|c|d|e)
sext vuhl,a
	rlca
	sbc hl,hl
	rrca
	ld l,a
	ld v,h


v=(a|b|c|d|e)
wz=(bc|de)
v!=w
sext vuhl,wz
	ld a,w
	rlca
	sbc hl,hl
	ld l,z
	ld v,h
	ld h,w


wz=(bc|de|hl)
sext auwz,uhl
	push hl
	add hl,hl
	pop wz
	sbc a,a