Property: Shortfx
From SpecNext official Wiki
E
x:=(IXY+d)*[0]; (IXY+d)*:=(IXY+d)*>>1; (IXY+d)*[7]:=CF; CF:=x +
x:=(IXY+d)*[0]; (IXY+d)*:=(IXY+d)*>>1; (IXY+d)*[7]:=x; CF:=x +
x:=(IXY+d)*[7]; (IXY+d)*:=(IXY+d)*<<1; (IXY+d)*[0]:=CF; CF:=x +
x:=(IXY+d)*[7]; (IXY+d)*:=(IXY+d)*<<1; (IXY+d)*[0]:=x; CF:=x +
x:=A[0]; A:=A>>1; A[7]:=CF; CF:=x +
x:=A[0]; A:=A>>1; A[7]:=x; CF:=x +
x:=A[7]; A:=A<<1; A[0]:=CF; CF:=x +
x:=A[7]; A:=A<<1; A[0]:=x; CF:=x +
x:=HL*[0]; HL*:=HL*>>1; HL*[7]:=CF; CF:=x +
x:=HL*[0]; HL*:=HL*>>1; HL*[7]:=x; CF:=x +
x:=HL*[7]; HL*:=HL*<<1; HL*[0]:=CF; CF:=x +
x:=HL*[7]; HL*:=HL*<<1; HL*[0]:=x; CF:=x +
x:=r[0]; r:=r>>1; r[7]:=CF; CF:=x +
x:=r[0]; r:=r>>1; r[7]:=x; CF:=x +
x:=r[7]; r:=r<<1; r[0]:=CF; CF:=x +
x:=r[7]; r:=r<<1; r[0]:=x; CF:=x +
x=HL*; HL*[0123]:=A[0123]; HL*[7654]:=x[0123]; A[0123]:=x[7654] +
x=HL*; HL*[7654]:=A[0123]; HL*[0123]:=x[7654]; A[0123]:=x[0123] +
{if HL*!=A DE*:=HL*;} DE++; HL++; BC-- +
{if HL*!=A DE*:=HL*;} DE++; HL--; BC-- +