Записать в регистр DPTR

[uniqm]

очень нужна помощь в написании программы под МК-51
само задание вот:Записать в регистр DPTR сумму двоичных чисел массива 20Н-3FH. Наименьшее число продублировать в регистре В.Заранее благодарен

[8Observer8]

Среда Keil uVision 3 --> http://rutracker.org/forum/viewtopic.php?t=916646

Функция init_array - инициализирует массив arr.

Функция sum_array - считает сумму и сохраняет её в регистре DPTR.

Поиск наименьшего элемента массива попробуйте реализовать сами.

NAME        PROCS                   ; beginning of program
MAIN        SEGMENT CODE            ; declare a segment of code
myvar       SEGMENT IDATA

arr         IDATA    20h
arr_end     IDATA    40h
BSIZE       EQU      arr_end-arr

CSEG     AT    0                 ; absolute address of code segment
USING    0                       ; use general-purpose registers (GPR): R0-R7

jmp     start
RSEG    MAIN                    ; beginning a segment of code

start:

    ; initialization of array
    call init_array

    ; summing up of array (result in DPTR)
    call sum_array

    sjmp $                      ; infinite loop


init_array:
    ; set counter in zero
    mov R0, #cnt
    mov @R0, #0

    ; get address of array
    mov R1, #arr

nxt_init_arr:
    mov A, @R0
    mov @R1, A
    inc @R0
    inc R1
    cjne @R0, #BSIZE, nxt_init_arr
    ret

sum_array:
    ; set counter in zero
    mov R0, #cnt
    mov @R0, #0

    ; get address of array
    mov R1, #arr

    ; set accumulator register in zero
    mov A, #0

    ; set DPH in zero
    mov DPH, #0

nxt_sum_array:
    clr c
    addc A, @R1
    jnc dont_carry
    inc DPH
    clr c
dont_carry:
    inc @R0
    inc R1
    cjne @R0, #BSIZE, nxt_sum_array
    mov DPL, A
    ret

RSEG      myvar 
cnt:      ds     1

END                             ; end of program

P.S. Это случайно не ваши одногруппники?
http://www.programmersforum.ru/showthread.php?t=203590
http://www.programmersforum.ru/showthread.php?t=203863

[uniqm]

Сообщение от 8Observer8

Среда Keil uVision 3 --> http://rutracker.org/forum/viewtopic.php?t=916646

Функция init_array - инициализирует массив arr.

Функция sum_array - считает сумму и сохраняет её в регистре DPTR.

Поиск наименьшего элемента массива попробуйте реализовать сами.

NAME        PROCS                   ; beginning of program
MAIN        SEGMENT CODE            ; declare a segment of code
myvar       SEGMENT IDATA

arr         IDATA    20h
arr_end     IDATA    40h
BSIZE       EQU      arr_end-arr

CSEG     AT    0                 ; absolute address of code segment
USING    0                       ; use general-purpose registers (GPR): R0-R7

jmp     start
RSEG    MAIN                    ; beginning a segment of code

start:

    ; initialization of array
    call init_array

    ; summing up of array (result in DPTR)
    call sum_array

    sjmp $                      ; infinite loop


init_array:
    ; set counter in zero
    mov R0, #cnt
    mov @R0, #0

    ; get address of array
    mov R1, #arr

nxt_init_arr:
    mov A, @R0
    mov @R1, A
    inc @R0
    inc R1
    cjne @R0, #BSIZE, nxt_init_arr
    ret

sum_array:
    ; set counter in zero
    mov R0, #cnt
    mov @R0, #0

    ; get address of array
    mov R1, #arr

    ; set accumulator register in zero
    mov A, #0

    ; set DPH in zero
    mov DPH, #0

nxt_sum_array:
    clr c
    addc A, @R1
    jnc dont_carry
    inc DPH
    clr c
dont_carry:
    inc @R0
    inc R1
    cjne @R0, #BSIZE, nxt_sum_array
    mov DPL, A
    ret

RSEG      myvar 
cnt:      ds     1

END                             ; end of program

P.S. Это случайно не ваши одногруппники?
http://www.programmersforum.ru/showthread.php?t=203590
http://www.programmersforum.ru/showthread.php?t=203863

видимо это с потока)правда мы пишем самыми простыми командами и ваше решение не подойдет.Но спасибо за помощь

[8Observer8]

правда мы пишем самыми простыми командами и ваше решение не подойдет.

Кстати, на си совсем просто получится.

[uniqm]

да понятно что на си там строк 15)но увы,надо на ассемблере

[8Observer8]

Я не понимаю. Ваша цель какая?

1) Научиться программировать микроконтроллеры
2) Получить зачёт

Если второе, то это печально. Значит, вы:

- либо выбрали не то направление, не ту специальность, не тот факультет (может на гуманитарный
факультет надо было идти)

- либо у вас нет мотивации (или вы её не осознаёте)

Пока у вас есть возможность учиться - пользуйтесь ею. Когда будите работать - вам учиться будет
сложнее, если у вас нет базы. Формируйте эту базу сейчас.

Если вы не хотите, чтобы у вас в будущем были проблемы, то вы обязаны:
1) поставить среду (к примеру, Keil);
2) скопировать туда мою программу;
3) пройти программу по шагам. Попутно отмечая, что делает тот или иной оператор (система
команд здесь --> http://www.8052.com/set8051);
4) описать в этой теме все непонятные места. Можно вот так:

Что делает эта команда и почему здесь решётка?:

mov R1, #0

Что делает эта последовательность команд?:

    mov R0, #cnt
    mov @R0, #0

Что делает эта функция?:

init_array:
    ; set counter in zero
    mov R0, #cnt
    mov @R0, #0

    ; get address of array
    mov R1, #arr

nxt_init_arr:
    mov A, @R0
    mov @R1, A
    inc @R0
    inc R1
    cjne @R0, #BSIZE, nxt_init_arr
    ret

Что для чего эта строка?:

MAIN        SEGMENT CODE

Что это такое?:

arr         IDATA    20h
arr_end     IDATA    40h
BSIZE       EQU      arr_end-arr

В процессе такого разговора возможно следующее:
- будут найдены ошибки (которые при компиляции не обнаруживаются);
- будет найдено более правильное решение;
- в процессе обсуждения более старшие и опытные форумчане помогут
ликвидировать пробелы в наших знаниях;

Если вы всё-таки настроены серьёзно, то нужно:
5) найти в интернете схемы программаторов;
6) программы для прошивки;
7) собрать программатор;

Самое интересное:
8) искать идеи (проекты) и реализовывать их (к примеру, заняться робототехникой на уровне
хобби; это в учёбе вам поможет и в работе);
9) самому придумывать проекты и реализовывать их.

Удачи!

P.S. И что значит написать проще? Программа написана - если она может выполняться в целевой
среде (ну хотя бы в эмуляторе).

[uniqm]

MOV R0,#20H ;загрузка адреса массива
MOV R7,#32 ;загрузка размера массива
MOV 70,#FFH ;загрузка максимального числа для сравнения
MOV 71,#0 ;ячейка для сохранения аккумулятор
M1: MOV A,@R0 ;загрузка значения элемента массива
CJNE A,70,M5 ;переход на М5 если не равны
JMP M7 ;переход на М7
M5: JC M6 ;переход на М6 если перенос равен 1
JMP M7 ;переход на М7
M6: MOV 70,A ;сохранения аккумулятора в 70 ячейку
M7: MOV A,71 ;запись в аккумулятор 71 ячейки
ADD A,@R0 ;сложение элемента массива с аккумулятором
MOV 71,A ;сохранение аккумулятора в 71 ячейку
INC R0 ;инкремент R0
MOV DPL,A ;запись в DPL результата сложения
LCALL M3 ;вызов подпрограммы М3
DJNZ R7,M1 ;зацикливание и переход на М1
SJMP M4 ;переход на М4
M2: INC DPH ;увеличение на один DPH
CLR C ;сброс переноса
M3: JC M2 ;переход на М2 если перенос равен 1
RET ;возврат из подпрограммы
M4: MOV B,70 ;запись в регистр В наименьшего числа
END
вот так решил задание.Приняли)значит правильно