Всем привет.
Написал вот такой алгоритм деления. И вроде делит всё правильно и разрядность данных ее не пугает и остаток сохраняет , но чувство того , что чего-то упустил осталось.
А вот не пойму , что.
BeginDIV и ENDDIV - макросы для стека. ldwi - раскрывается в LDI. Retneg: - возврат к отрицательному числу , если делимое было отрицательное.
Код
;+ Подпрограмма деления 32/16.Все результаты сохраняются в SRAM
ValueX2:
cli
BeginDIV
clr Flags
clr count
clr mean1
clr mean0
clr minut
ldwi Z,(StartRAM085+MulMCH); загружаем адрес значения MC
ld temp,Z+
ld temp1,Z+
ld mean0,Z+
ld mean1,Z+ ; загружаем значение MC
lds rab,(StartRAM085+AddMCX1H); загружаем значение делителя
lds rab1,(StartRAM085+AddMCX1L)
Div:
sub temp1,rab1
sbc temp,rab
sbc minut,zero
brmi TestNEG ; Если 0 - загружаем среднее (младший) MC
inc count ; Если не 0 - прибавляем счётчик результата
sts (StartRAM085+TailH),minut;+
sts (StartRAM085+TailMH),temp;+
sts (StartRAM085+TailML),temp1;+ Здесь остаток
sts (StartRAM085+TailLH),mean0;+
sts (StartRAM085+TailL),mean1;+
rjmp DIV ; Снова делим
TestNEG:
tst count ; Ноль после деления?
brne SaveX2 ; НЕТ - сохраняем значение старшее
sbrc Flags,fl_Shift
rjmp InitShift
ldi count,4
clr minut
ldwi Z,(StartRAM085+MulMCH); загружаем адрес MC
ld temp,Z+
ld temp1,Z+
rjmp ShiftT
InitShift:
ldi count,4
ldwi Z,(StartRAM085+MulMCH)
ld minut,Z+
ld temp,Z+
ld temp1,Z+
ld mean0,Z+
ld mean1,Z+
ShiftT:
lsl mean1
rol mean0
rol temp1
rol temp
rol minut
dec count
brne ShiftT
ldwi Z,(StartRAM085+MulMCH)
st Z+,minut
st Z+,temp
st Z+,temp1
st Z+,mean0
st Z+,mean1
sbr Flags,1<<fl_Shift
rjmp Div
;************************************************
SaveX2:
sbrc Flags,fl_ResultH
rjmp RESX2M
sts (StartRAM085+X2H),count; Сохраняем сотые
sbr Flags,1<<fl_ResultH
rjmp Forward
RESX2M:
sbrc Flags,fl_ResultM
rjmp RESX2L
sts (StartRAM085+X2M),count; Сохраняем десятые
sbr Flags,1<<fl_ResultM
rjmp Forward
RESX2L:
sts (StartRAM085+X2L),count; Сохраняем единицы
sbr Flags,1<<fl_ResultL
rjmp ValDiv
Forward:
clr count
ldwi Z,(StartRAM085+TailH)
ld minut,Z+
ld temp,Z+
ld temp1,Z+
ld mean0,Z+
ld mean1,Z+
ldi count,4
rjmp ShiftT
ValDiv:
lds rab,(StartRAM085+dtMCH)
sbrc rab,MsbOne
rjmp RetNeg
RetNeg:
lds temp,(StartRAM085+X2H)
lds temp1,(StartRAM085+X2M)
lds rab,(StartRAM085+X2L)
ldi count,4
swap rab
Cycle:
lsl rab
rol temp1
dec count
brne Cycle
mov rab1,zero
mov rab,zero
sub rab1,temp1
sbc rab,temp
sub rab1,one
sbc rab,zero
sts (StartRAM085+X2H),rab
sts (StartRAM085+X2M),rab1
EndDIV
reti
Проверьте
Aug 3 2010, 16:51
Код большой слишком, долго ковырять, а пропустить что-то запросто. Я бы вам рекомендовал сделать простой тест: 100500 тыщ раз в цикле вызывать эту функцию с рандомными параметрами, и вызывать эталонную функцию с этими же параметрами. Потом сравниваете результаты, и если ошибка - смотрите что где. Не 100% гарантия, но может быть близко при хорошем генераторе.
