Like this?
func[n_,m_,l_]:=
Cases[
Tuples[{2n, 1m, 0l}, 3],
{x_, y_, z_} /;
x >= y >= z && FromDigits[{2n, 1m, 0l}, 2]n] >= FromDigits[{x, y, z}, 2]n]
]
func[2,1,0]
{{2, 1, 0}, {2, 0, 0}, {1, 1, 1}, {1, 1, 0}, {1, 0, 0}, {0, 0, 0}}