Поменять местами элементы в матрице, По заданному условию Опции

[Dub]

помогите решить задачку

Ввести элементы квадратной матрици 3X3 (байты положительны различны по величине).

Найти наименьший элемент среди пренадлежащих главной и побочной диоганалях MIN. Если MIN -элемент главной диагонали и
кратин 4 , поменять его местами с первым элементом последней строки, иначе с первым элементом первой строки.
Вывести на экран исходную и приобразованную матрицы.

Собственная наработка не дает результатов (не сохраняет в цикле данные в di)
Явно чтото делаю не правильно, тока сам не магу найти ошибку а точнее не вижу как это сделать

poisk_min proc
   push dx
   xor dx,dx
	mov cx, 2
	mov bx, 0
	mov dl,array_2[bx][si]
cikl_min1:
	mov si, 0
	mov di, 0
	push cx
	mov cx, 3
cikl_min2:
        cmp dl,array_2[bx][si]
		jna n
		mov dl,array_2[bx][si]
		mov ax,bx
                mov di,si  
        n:		
	inc si		
loop cikl_min2
        pop cx
	add bx,3
loop cikl_min1
      ; outint di
	   cmp ax,0
	   jne ne_0
	   test dl,11b
	   jnz ne_kr

    cmp di,0
    jne s_1
    mov cl,array[0][0]
    mov array[0][0],dl
    mov array[0][0],cl
    jmp es_1
s_1:
    cmp di,1
    jne s_2
    mov cl,array[0][0]
    mov array[0][0],dl
    mov array[8][0],cl
    jmp es_1
s_2:
    cmp di,2
    jne kon
    mov cl,array[0][0]
    mov array[0][0],dl
    mov array[8][0],cl
es_1:
    lea dx,str_minGK
    mov ah,9h
    int 21h	
jmp kon	   
ne_kr:
    mov cl, array[6][0]
    mov array[6][0],dl
    mov array[bx][si],cl
	lea dx,str_minGnK
    mov ah,9h
    int 21h	
jmp kon
ne_0:

    mov cl, array[0][6]
    mov array[0][6],dl
    mov array[bx][si],cl

	lea dx,str_minP
    mov ah,9h
    int 21h	
kon:	
    pop dx	
ret
poisk_min endp

В данной программе использую для поиска матрицу 2 на 2 побочные и главные диагонали и 3 на 3 где нужно поменять местами элементы по условию.

[Dub]

Если листинга процедуры нехватает, могу выложить файлом листинг всей программы, но не работает у меня только эта процедура. Точнее то что ниже цикла.

[volvo]

могу выложить файлом листинг всей программы

Выкладывай... Заодно расскажи, с каким ассемблером работаешь.

[Dub]

Выкладывай... Заодно расскажи, с каким ассемблером работаешь.

Работаю с Tasm =))
 Daleev1.txt ( 5.83 килобайт ) Кол-во скачиваний: 1024
 Daleev1.txt ( 5.83 килобайт ) Кол-во скачиваний: 1024
 Daleev1.txt ( 5.83 килобайт ) Кол-во скачиваний: 1024
 Daleev1.txt ( 5.83 килобайт ) Кол-во скачиваний: 1024


Добавлено через 2 мин.
ой случайно вставил 4

[Dub]

пипец di надо было во внешний цикл запихнуть вот я нуб =(((

но одно радует сам разобрался с проблемой =))

Добавлено через 14 мин.
Relative jump out of range by 000Ch bytes - это типо не может прыгнуть так далеко?

Добавлено через 14 мин.
Если возможно покажите более оптимальный кот на ассемблере, ату какойто он грамосткий получился

 
poisk_min proc
   push dx
   xor dx,dx
   mov di, 0
	mov cx, 2
	mov bx, 0
	mov dl,array_2[bx][si]
cikl_min1:
	mov si, 0
	push cx
	mov cx, 3
cikl_min2:
        cmp dl,array_2[bx][si]
		jna n
		mov dl,array_2[bx][si]
                        mov di,si
		mov ax,bx
                        
                        
        n:		
	inc si		
loop cikl_min2
    pop cx
	add bx,3
loop cikl_min1

	   cmp ax,0
	   jne ne_0
	   test dl,11b
	   jnz ne_kr
    mov cl,array[0][0]
    mov array[0][0],dl
 cmp di,0
    jne s_1
    mov array[0][0],cl
    jmp es_1
s_1:
    cmp di,1
    jne s_2
   mov array[4][0],cl
    jmp es_1
s_2:
    cmp di,2
    jne kon
    mov array[8][0],cl
es_1:
    lea dx,str_minGK
    mov ah,9h
    int 21h	
jmp kon	   
ne_kr:
    mov cl,array[6][0]
    mov array[6][0],dl
    cmp di,0
    jne s_11
    mov array[0][0],cl
    jmp es_11
s_11:
    cmp di,1
    jne s_22
   mov array[4][0],cl
    jmp es_11
s_22:
    cmp di,2
    jne kon
    mov array[8][0],cl
es_11:
    lea dx,str_minGnK
    mov ah,9h
    int 21h	
jmp kon
ne_0:
    mov cl,array[6][0]
    mov array[6][0],dl
    cmp di,0
    jne s_21
    mov array[6][0],cl
    jmp es_21
s_21:
    cmp di,1
    jne s_32
   mov array[4][0],cl
    jmp es_21
s_32:
    cmp di,2
    jne kon
    mov array[2][0],cl
es_21:
	lea dx,str_minP
    mov ah,9h
    int 21h	
kon:	
    pop dx	
ret
poisk_min endp

[volvo]

Что-то ты перемудрил тут... Все проще делается, насколько я это вижу:

process_matrix proc

	; тут сохранишь все, что надо

	mov bx, 0	; элемент (0, 0)
	mov ax, bx

	mov DL, array[bx]
	xor DH, DH	; Ноль - если минимум будет на главной диагонали
			; иначе - единица
	
	; ищем минимум среди элементов главной диагонали
	mov cx, 2
cycle_main:
	add bx, 3
	cmp DL, array[bx]
	jna no_1
	mov DL, array[bx]
	mov ax, bx	; сохраняем индекс минимума
no_1:
	loop cycle_main
	
	mov bx, 0
	; а теперь - проходим по дополнительной диагонали
	mov cx, 3
cycle_alt:
	add bx, 2
	cmp DL, array[bx]
	jna no_2
	mov DL, array[bx]
	mov DH, 1	; Признак того, что минимум - на побочной диагонали
	mov ax, bx	; сохраняем индекс минимума
no_2:
	loop cycle_alt
	
	; Ну, дальше все понятно, если DH = 0 - то проверить 
	; array[ax] на кратность 4, и поменять с элементом array[6],
	; иначе - array[ax] меняется с array[0]
	
	; восстанавливаешь все сохраненные регистры
	
	ret
process_matrix endp