Помогите с ассемблером (задачей про матрицы) внутри...

есть программа уже составленная, но с ошибкой, можете поглядеть?

IN 0 ; ввод количества элементов массивов

STOR A,N ; запомнить количество элементов по адресу n

MVI b,A ; загрузить в rB адрес массива A

geta:PUSH A ; сохранить в стеке счетчик цикла

IN 1 ; ввести очередной элемент массива A

STOR A,00(B) ; запомнить его по адресу (b)+0

ADI B,01 ; вычислить адрес следующего элемента

POP A ; восстановить из стека счетчик цикла

LOOP A,geta ; замкнуть цикл по метке geta

MVI B,B ; загрузить в рB адрес массива B

LOAD A,N ; загрузить в регистр A количество элементов

getb:PUSH A

IN 2 ; ввести очередной элемент массива B

STOR A,00(B) ; запомнить его по адресу (b)+0

ADI B,01 ; вычислить адрес следующего элемента

POP A ; восстановить из стека счетчик цикла

LOOP A,getb ; замкнуть цикл по метке getb

MVI b,0 ; загружаетм в регистр B - 1

stor b,I

load a,N

xchg

cycl: load b,N

cmr a,b

jp exit

load a,N

load b,I

sbr a,b

stor a,tmp ;N-i

load a,b(tmp)

load b,a(I)

mur a,a

stor a,c(I)

load a,I

adi a,1

stor a,I

jmp cycl

exit: STOP

; останов

N: .DS 1 ; резервирование 1 байта под количество элементов

A: .ds 0a ; резервирование 10 байтов под массив A

B: .ds 0a ; резервирование 10 байтов под массив B

C: .ds 0a ; резервирование 10 байтов под массив C

tmp: .ds 0a

.org 60 ; установить абсолютный адрес 60h

; подпрограмма вычисления выражения