что то не понятный ваш конвертер. и где метка bBCDx_2, на которую посылает brne?dr.doc писал(а):convert BIN to BCD.
Не кажется ли Вам, что слишком много делений (в том числе, возможно, и для нахождения остатка)?xkp писал(а):Берем наше число Х и делим его на 10000, результат в IND4. Остаток от Х теперь делим на 1000 - результат в IND3, остаток делим на 100 - IND2, остаток делим на 10 - IND1, и оставшийся остаток это IND0.
Код: Выделить всё
#define BCD16res0 R2
#define BCD16res1 R3
#define BCD16res2 R4
#define bin16r0 ACCUM - регистры входных данных(только регистры R16-R31)
#define bin16r1 ACCUMH
#define BB16_cnt1 tempi - временные регистры(только регистры R16-R31) после исполнения портятся
#define BB16_cnt2 tempih
// Input : ACCUMH:ACCUM - binary, X - pointer to 3 byte RAM for result
// Output: (X):(X+1):(X+2) - result of BCD conversion.
bin2BCD:
push BCD16res0
push BCD16res1
push BCD16res2
ser BB16_cnt2
mov BCD16res2, BB16_cnt2
BB16p5_L10k:
inc BCD16res2
subi bin16r0, low(10000)
sbci bin16r1, high(10000)
brcc BB16p5_L10k
subi bin16r0, low(-10000)
sbci bin16r1, high(-10000)
ldi BB16_cnt1, (256-16)
BB16p5_L1k:
subi BB16_cnt1, (-16)
subi bin16r0, low(1000)
sbci bin16r1, high(1000)
brcc BB16p5_L1k
subi bin16r0, low(-1000)
sbci bin16r1, high(-1000)
mov BCD16res1, BB16_cnt2
BB16p5_L100:
inc BCD16res1
subi bin16r0, low(100)
sbci bin16r1, high(100)
brcc BB16p5_L100
subi bin16r0, low(-100)
or BCD16res1, BB16_cnt1
ldi BB16_cnt1, (256-16)
BB16p5_L10:
subi BB16_cnt1, -16
subi bin16r0, 10
brcc BB16p5_L10
subi bin16r0, -10
mov BCD16res0, BB16_cnt1
or BCD16res0, bin16r0
// выгрузка в RAM
ST X+, BCD16res0
ST X+, BCD16res1
ST X+, BCD16res2
pop BCD16res2
pop BCD16res1
pop BCD16res0
ret
Большинство?Alexeyslav писал(а):Что значит никак? Большинство извстных мне алгоритмов основаны на вычитаниях... где же там деление?
Код: Выделить всё
ldi r16, 0x37 // заносим число 55, делимое
/// значения деления кладем в r18, r19
///деление
delenie: clr r18
clr r19 //очищаем r18,r19
minus_10: cpi r16,0xA //сравниваем r16 и 10
brlo minus_1 // выходим
subi r16,0xA // вычитаем из r16 10
inc r18 // инкремент r18
rjmp minus_10
minus_1: cpi r16,0x1
brlo exit
subi r16,0x1
inc r19
rjmp minus_1
exit: ret
насчет единиц не подумал..Alexeyslav писал(а): а единицы можно просто скопировать с исходного числа после вычитания десятков... зачем лишний раз цикл крутить.
Код: Выделить всё
unsigned char step=0;
unsigned char Data[4] = {0b00001000,0b00000100,0b00000010,0b00000001};
void main(void)
{
while (1)
{
PORTC=Data[step];
step++;
if (step == 4)
step=0;
}
}
Код: Выделить всё
ldi Temp,0
ReadArray:
ldi ZH,High(MyArray*2) ;загрузка адреса 0-го
ldi ZL,Low(MyArray*2) ;элемента в рег. пару Z
ldi Temp1,0
add ZL,Temp ;прибавление
adc ZH,Temp1 ;внутр. адреса
Массивы (до 256 элементов) удобно располагать в памяти программ начиная с нулевого младшего адресного байта, например, $F00 или $1300.Muzykant писал(а):Вы вроде и нового ничего не сказали, но теперь я, кажется, начал понимать..
Код: Выделить всё
ldi ZH,High(MyArray*2) ;загрузка адреса 0-го элемента в рег. пару Z
clr ZL ; младший адресный байт нулевой,
; равнозначно ldi ZH,High(MyArray*2)
ldi Temp1,0
add ZL,Temp ;прибавление внутр. адреса
; ZH уже трогать не надо, он у всех элементов массива одинаковый
...
.CSEG
.ORG $F00 ; явно указываем где разместить массив
MyArray:
.DB $01, $03, ... ; массив до 256 байтЭто потому что память программ у МК больше 256 команд (512 байт), потому и адресация двухбайтная.Muzykant писал(а):Меня как раз интересовало, зачем использовать 2 байта, если в массиве всего несколько элементов.