Как поменять индекс массива в ассемблере?

Question

[Im p3l]

Добрый день, прошу помощи в программе.
Как в программе сделать, чтобы первое слагаемое ссылалось на X[i-1] вместо X[i] в формуле Y[i]=A*X[i-1] + B*X[i]
Сейчас в программе просто X[i]

SDATA SEGMENT WORD PUBLIC 'DATA'
A	DB -5								;- это два коэффициента
B	DB 17
ARRAY_X     DB -1,22,-34,12,-51, 68		; - массив чисел X
ARRAY_Y     DW 6  DUP(0)         		; - массив чисел Y
SDATA ENDS

SSTACK SEGMENT PARA STACK 'STACK'
DW 64 DUP (?)
STACK_POINT LABEL WORD
SSTACK ENDS

SCODE SEGMENT WORD PUBLIC 'CODE'
ASSUME CS:SCODE,DS:SDATA,SS:SSTACK

START:  MOV AX,SDATA					; Запись сегментного адреса
MOV DS,AX								; Данных в регистр DS
MOV AX,SSTACK							; Определение сегмента стека
MOV SS,AX								; и указателя стека
MOV SP,OFFSET STACK_POINT
										; Инициализация исходных данных
MOV SI,0								; SI содержит индекс массива X
MOV DI,0								; DI содержит индекс массива Y
MOV CX,6								; СX:= число элементов массива X
M1:MOV AL, A							; AL:= коэффициент A
CBW										; Расширение байта до слова
MOV BX, AX								; Сохранение коэффициента в BX									
MOV AL, ARRAY_X[SI] 					; Занесение очередного элемента массива X в аккумулятор
IMUL BX									; AX:=A*X[I]
push AX									; Помещение АХ в стек
										
MOV AL, B								; AL:= коэффициент B
CBW 									; Расширение байта до слова
MOV BX, AX								; Сохранение коэффициента в BX
MOV AL, ARRAY_X[SI]						; Занесение очередного элемента массива X в аккумулятор
IMUL BX									; AX:=B*X[I]
POP BX									; Извлечение A*X[I] из стека
ADD AX,BX								; Y[I]=:A*X[I]+B*X[I]

MOV ARRAY_Y[DI], AX						; запись в массив Y
INC DI									; увеличение DI на 1
INC DI									; увеличение DI на 1
INC SI									; увеличение SI на 1
LOOP M1									; переход на метку M1

MOV AX,4C00H							; выход из программы
INT 21H									; выполняется функция DOS, номер
SCODE   ENDS							; конец кодового сегмента программы
END START								; конец программы

Answer 1

[jcmvbkbc]

MOV AL, ARRAY_X[SI]
IMUL BX

Это неправильно: IMUL BX умножает AX на BX, а загружается из памяти только AL. Нужно либо знаково расширять AL в AX, либо, что логичнее, умножать AL на BL.

Comments

[Im p3l]

Хорошо, я это исправлю. Но тут вопрос немного в другом, каким образом можно сделать, чтобы работала формула Y[i]=A*X[i-1] + B*X[i]

[jcmvbkbc]

каким образом можно сделать, чтобы работала формула Y[i]=A*X[i-1] + B*X[i]

Lo Ran, как сказано выше, MOV AL, ARRAY_X[SI - 1]

все последующие значения так же будут не те

Я к тому, что si - 1 -- это правильно, но без правильного умножения было бы странно ожидать правильных результатов.

[Im p3l]

jcmvbkbc, попробовал сделать все как вы написали. Все равно значения не сходятся

[jcmvbkbc]

Lo Ran, покажите код с изменениями и результаты

[Im p3l]

jcmvbkbc,

SDATA SEGMENT WORD PUBLIC 'DATA'
A	DB -5								;- это два коэффициента
B	DB 17
ARRAY_X     DB -1,22,-34,12,-51, 68		; - массив чисел X
ARRAY_Y     DW 6  DUP(0)         		; - массив чисел Y
SDATA ENDS

SSTACK SEGMENT PARA STACK 'STACK'
DW 64 DUP (?)
STACK_POINT LABEL WORD
SSTACK ENDS

SCODE SEGMENT WORD PUBLIC 'CODE'
ASSUME CS:SCODE,DS:SDATA,SS:SSTACK

START:  MOV AX,SDATA					; Запись сегментного адреса
MOV DS,AX								; Данных в регистр DS
MOV AX,SSTACK							; Определение сегмента стека
MOV SS,AX								; и указателя стека
MOV SP,OFFSET STACK_POINT
                    ; Инициализация исходных данных
MOV SI,0								; SI содержит индекс массива X
MOV DI,0								; DI содержит индекс массива Y
MOV CX,6								; СX:= число элементов массива X
M1:MOV AL, A							; AL:= коэффициент A
CBW										; Расширение байта до слова
MOV BX, AX								; Сохранение коэффициента в BX									
MOV AL, ARRAY_X[SI-1] 					; Занесение очередного элемента массива X в аккумулятор
IMUL BL									; AX:=A*X[I]
push AX									; Помещение АХ в стек
                    
MOV AL, B								; AL:= коэффициент B
CBW 									; Расширение байта до слова
MOV BX, AX								; Сохранение коэффициента в BX
MOV AL, ARRAY_X[SI]						; Занесение очередного элемента массива X в аккумулятор
IMUL BL									; AX:=B*X[I]
POP BX									; Извлечение A*X[I] из стека
ADD AX,BX								; Y[I]=:A*X[I]+B*X[I]

MOV ARRAY_Y[DI], AX						; запись в массив Y
INC DI									; увеличение DI на 1
INC DI									; увеличение DI на 1
INC SI									; увеличение SI на 1
LOOP M1									; переход на метку M1

MOV AX,4C00H							; выход из программы
INT 21H									; выполняется функция DOS, номер
SCODE   ENDS							; конец кодового сегмента программы
END START								; конец программы

Вот что получается:


Такие числа должны получится:
ARRAY_Y (?, 17B, FE2C, 176, FCD9, 385) ? - первый элемент, для которого значение берется из мусора

[jcmvbkbc]

Lo Ran,
0x17b -- это верно. 0x17b у вас и получилось: 0x7b -- младшая часть -- записана по адресу 50ed:000a, 0x01 -- старшая часть -- записана по адресу 50ed:000b.
0xfe2c -- это неверно: -5 * 22 + 17 * -34 = 0xfd50, что, опять же, у вас получилось (50ed:000с и 50ed:000d).
0x176 -- это опять верно и опять получилось.
0xfcd9 -- опять неверно: -5 * 12 + 17 * -51 = 0xfc61, что снова получилось (50ed:0010 и 50ed:0011)
0x385 -- опять неверно: -5 * -51 + 17 * 68 = 0x583, что снова получилось.

В турбодебаггере вроде есть переключатель, как просматривать дамп памяти -- байтами или словами.

[Im p3l]

jcmvbkbc, огромное спасибо! я понял, приложение на смартфоне не правильно переводит отрицательные числа в шестнадцатеричные =( Вот почему у меня не сходились ответы

[jcmvbkbc]

я понял, приложение на смартфоне не правильно переводит отрицательные числа

Мне кажется вы там знак потеряли:
0xfe2c == 5 * 22 + 17 * -34
0xfcd9 == 5 * 12 + 17 * -51
0x385 == 5 * -51 + 17 * 68

Answer 2

[freeExec]

Должно же работать как
MOV AL, ARRAY_X[SI - 1]

Comments

[Im p3l]

так не работает, выдает совершенно другие значения

[freeExec]

Lo Ran, естественно, если тупо подставить, то будет брать мусор за пределами массива, т.к. элемента -1 не существует.

[Im p3l]

freeExec, по идее он только первый элемент в новом массиве запишет со значением из мусора, но все последующие значения так же будут не те