b2m, ты тоже недоиспользовал возможности процедуры - исходное число не ограничивается HL, можно в DHL разместить число до 9FFFF. При этом ничего не нужно добавлять и процедура даже станет короче за счет замены LXI D,16 на MVI E,16.