Вот так вот и пишем на Паскале:)
procedure TrimmerNeutral; //+++)
begin
asm
movx a, @r0
add a, #PulseNeuLo
mov r4, a
inc r0
movx a, @r0
addc a, #PulseNeuHi
mov r5, a
end;
end;

Плюсики в комментарии к заголоку означают, что процедура была трижды проверена в прошлом. Поставил четвёртый " +". Хорошо, когда есть такие вещи. Четыре плюса за четыре года.

И никакого объектного программирования:).

{+}