DSolve[Derivative[1][y][x] == (2*a*(-1 + 4*a*x - y[x]^2))/(128*a^4*x^3 - y[x] + 4*a*x*y[x] - 96*a^3*x^2*y[x]^2 - y[x]^3 + 24*a^2*x*y[x]^4 - 2*a*y[x]^6),y[x],x]