; matrix transpose sample (reverse rows with columns). 

name "matrix"

org 100h

jmp start ; go to code... 

msg db "to the view matrix click vars button,", 0dh,0ah
    db " and set elements property to 3 for these items:", 0dh,0ah, 0ah
    db "   matrix    ", 0dh,0ah
    db "   row1      ", 0dh,0ah
    db "   row2      ", 0dh,0ah, 0dh,0ah
    db "or add print-out support to this program...", 0dh,0ah, '$'

matrix_size equ 3

; ----- matrix ------ 
matrix     db 1,2,3
row1       db 4,5,6
row2       db 7,8,9
;-------------------- 

i dw ?
j dw ?

start:
mov i, 0
next_i:

	; j = i + 1 
	mov cx, i
	inc cx
	mov j, cx
	next_j:

		mov si, i
		mov bx, j

		mov al, matrix_size
		mov cx, si
		mul cl
		mov si, ax
		mov dl, matrix[si][bx]

		mov si, i
		mov al, matrix_size
		mul bl
		mov bx, ax
		xchg matrix[bx][si], dl

		mov bx, j
		mov al, matrix_size
		mov cx, si
		mul cl
		mov si, ax
		mov matrix[si][bx], dl

	inc j
	cmp j, matrix_size
	jb next_j
inc i
cmp i, matrix_size/2
jbe next_i


; print message.... 
lea dx, msg
mov ah, 9
int 21h

; wait for any key press... 
mov ah, 0
int 16h

ret