Function Movsx(A:byte):DWORD; begin if A and $80 = 0 then Result := A else Result := $FFFFFF00 or A; end;