Перевести отрицательное число в двоичную систему исчисления

Подскажите, как перевести отрицательно число из десятичной в двоичную систему исчисления? Написал функцию для полож чисел. Какой алгоритм для отрицательных?
Функция DecToBin(Знач Десятичное)

Перем Двоичное;
Перем ДвоичноеТемп;

Двоичное = "";
ДвоичноеТемп = "";

Пока Десятичное >= 2 Цикл
Остаток = Десятичное % 2;
ДвоичноеТемп = ДвоичноеТемп + Строка(Остаток);
Десятичное = Цел(Десятичное / 2);
КонецЦикла;
ДвоичноеТемп = ДвоичноеТемп + Строка(Цел(Десятичное));

// Инвертируем строку
Пока СтрДлина(ДвоичноеТемп) > 0 Цикл
Символ = Прав(ДвоичноеТемп, 1);
Двоичное = Двоичное + Символ;
ДвоичноеТемп = Лев(ДвоичноеТемп, СтрДлина(ДвоичноеТемп) - 1);
КонецЦикла;

Возврат Двоичное;

КонецФункции // DecToBin()