Plot[-(Log[x]/Log[2]), {x, 0, 512}, PlotRange -> {-512, 0}, AspectRatio -> 1, ImageSize ->Medium]