Faster, ты в своей процедуре ничего не пропустил случаем?
LD HL,BUF
LD (HL),A
А из (HL) потом ничего не извлекается?