массив из 5 чисел

[newbieee]

Ниже приведен пример текста программы, которая на языке ассемблер в заданном массиве определяет элемент с максимальной величиной.

Задание: Требуется разработать ассемблерную программу для обработки массива из 5 чисел в соответствии с данными ниже.
Вид обработки: Найти сумму абсолютных величин
Тип массива: Байт

SGSTACK SEGMENT PARA STACK 'STACK'
    DB 32 DUP(?)
SGSTACK ENDS
 
DATA SEGMENT PARA PUBLIC 'DATA'
    MAX DW ?
    ARRAY DW 10H, 20H, 30H, 0D0H,0A0H
DATA ENDS
 
CODE SEGMENT PARA PUBLIC 'CODE'
        ASSUME CS:CODE, DS:DATA, SS:SGSTACK
 
START:  MOV AX, DATA    ; загрузить в DS
        MOV DS, AX  ;селектор сегмента данных
        LEA BX, ARRAY   ; загрузить в BX начальный адрес массива
        MOV CX, 4       ; инициализировать счетчик
        MOV AX, [BX]    ; инициализировать начальное значение max
        
CYCLE:  ADD BX, 2       ; перейти к следующему элементу массива
        CMP [BX], AX    ; сравнить два значения
        JBE BE      ; переход если равен или ниже
        MOV AX, [BX]    ; сохранить большее значение
BE:     LOOP    CYCLE   ; проверка на выход из цикла (--CX при CX=0)
        MOV MAX, AX ; сохранение максимального значения
        
EXIT:       XOR AL, AL  ; выход в OS
        MOV AH, 4CH
        INT 21H
CODE ENDS
END START

[Stilet]

Что-то в таком духе надо полагать:

format MZ

push    cs
pop     ds

mov cx,4 ;Итератор для цикла
xor bx,bx ;Сумматор
mov si,arr ;Указатель на массив
for:
 mov al,[si] ;Получаем число
 cmp al,0
 jg plus
 neg al ;преобразуем как абсолют
plus: 
 add bl,al ;Суммируем
 inc si ;Перебираемся на следующий элемент.
loop for

 ret


;section '.data' data readable writable
arr db 1,-2,3,4,-5

[vadimych]

Без переходов.

.model tiny
.code
org 100h
start:

mov si,offset array
mov cx,sizeof array/2
xor bx,bx
xor dx,dx

@@:
lodsw
test ax,ax
sets dl
neg dx
xor ax,dx
neg dx
add ax,dx
add bx,ax
loop @b

ret
array dw -400,8,-800,4,10
end start

[Mikl___]

vadimych,
что бы инструкцию sets компилятор понял - нужно после .code добавлять строку .686

[vadimych]

Mikl___,
Microsoft (R) Macro Assembler Version 10.00.30319.01 понимает без этого. Не отставай от жизни.

[Mikl___]

vadimych,
согласись, что понять какая версия у ml.exe и link.exe из твоего фрагмента программы невозможно, а с .model tiny у link.exe проблем не возникло? 10 версия, вроде бы, СОМ-программы не создает...

[vadimych]

Каюсь, не понять. Впредь буду писать версию ассемблера и линкера.

ml /omf /Zm %*.asm
link16 /t %*.obj;

[Mikl___]

vadimych,
в компо нет желания сразиться, самому с собой, сам понимаешь, не интересно...

[vadimych]

Mikl___,
я б с удовольствием. Но пока нет достаточно свободного времени. Извини.

[newbieee]

Это правильно?) Почему всё что написали, везде ошибки выдает ассемблер! Emu8086 , win7 pro x64,license.

Вот код с сайбер форума, что не так тут?)

SGSTACK SEGMENT PARA STACK 'STACK'
    DB 32 DUP(?)
SGSTACK ENDS
 
DATA SEGMENT PARA PUBLIC 'DATA'
    SUM DW ?
    ARRAY DB 10H, -20H, 30H, -0D0H,0A0H
DATA ENDS
 
CODE SEGMENT PARA PUBLIC 'CODE'
        ASSUME CS:CODE, DS:DATA, SS:SGSTACK
 
START:  MOV AX, DATA    ; загрузить в DS
        MOV DS, AX  ;селектор сегмента данных
        LEA BX, ARRAY   ; загрузить в BX начальный адрес массива
        MOV CX, 5       ; инициализировать счетчик
        MOV AX, 0       ; инициализировать начальное значение sum
XOR DX,DX
CYCLE:  
        MOV DL,[BX]
        CMP DL,0 ;
        JGE NEXT  ;если число >= 0
        NEG DL ;получить обратное в дополнительном коде
NEXT:
        ADD AX,DX   ; добавить к сумме
        INC BX       ; перейти к следующему элементу массива
        LOOP    CYCLE   ; проверка на выход из цикла (--CX при CX=0)
        MOV SUM AX ; сохранение максимального значения
        
EXIT:       
        XOR AL, AL  ; выход в OS
        MOV AH, 4CH
        INT 21H
CODE ENDS
END START

При запуске такие ошибки:

(6) over 8 bits: -0D0H
(27) insufficient operands for MOV
(27) wrong parameters: MOV SUM AX
(27) probably it's an undefined var: SUM AX