shifting negative long vars

[Kamikaze47]

ive solved the problem with this code to divide x by 256:

IF x.31 then                 ' if negative:
    x=~x+1                   ' convert from 2s complement
    x=x>>8                   ' shift
    x=~(x-1)                 ' convert back to 2s complement
    x.31=1                   ' set signed bit (negative)
    if x=$80000000 then x=0  ' negative 0 is 0
ELSE                         ' else (positive):
    x=x>>8                   ' shift
ENDIF

[Kamikaze47]

after some playing i found a simpler way:

negative=x.31           ' Save the sign bit
x=(ABS x)>>8            ' Shift the absolute value
IF negative THEN x=0-x  ' Make negative again