矩阵相乘 汇编

DATA SEGMENT ；数据段定义
INFORMATION DB "Please enter the matrix1!The array is 3*3!$" ；提示说明
SPACE DB 0DH,0AH,"$" ；换行
MATRIX1 DB 9 DUP(?),"$" ；矩阵1
MATRIX2 DB 9 DUP(?),"$" ；矩阵2
RESULT DB 9 DUP(?),"$" ；矩阵相乘结果
M1 DB 0DH,0AH,"The array1:$" ；提示信息
M2 DB 0DH,0AH,"The array2:$"
M3 DB 0DH,0AH,"Array1*Array2:$"
DATA ENDS
CODE SEGMENT ；定义代码段
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA ；置DS段初值
MOV DS,AX
SHOWINFORMATION:LEA DX,INFORMATION ；取信息提示地址偏移量
MOV AH,9 ；9号功能调用显示提示信息
INT 21H
LEA DX,SPACE ；换行
MOV AH,9
INT 21H

LEA DX,M1 ；提示输入矩阵1
MOV AH,9
INT 21H
MOV CX,09H
LEA BX,MATRIX1 ；取矩阵1的偏移地址
MOV AH,1
INPUT1: INT 21 ；1号功能调用，用来输入数组数值
MOV [BL],AL
ADD BL
MOV AH,1
LOOP INPUT1
LEA DX,M2 ；提示输入矩阵2
MOV AH,9
INT 21H
MOV CX,09H
MOV AH,1
MOV BL,LEA OFFSET MATRIX2 ；取矩阵2的偏移地址
INPUT2: INT 21 ；2号功能调用，用来输入数组数值
MOV [BL],AL
ADD BL
MOV AH,1
LOOP INPUT2

XOR AX,AX
MOV DL,OFFSET MATRIX1
MOV DH,OFFSET MATRIX2
MOV BH,OFFSET RESULT
MOV CX,03H
CALL LINEMULCOLOUM ；调用矩阵1某行和矩阵2的列相乘子程序
MOV DL,OFFSET MATRIX1+3
MOV DH,OFFSET MATRIX2
MOV BH,OFFSET RESULT+3
MOV CX,03H
CALL LINEMULCOLOUM

MOV DL,OFFSET MATRIX1+6
MOV DH,OFFSET MATRIX2
MOV BH,OFFSET RESULT+6
MOV CX,03H
CALL LINEMULCOLOUM

LEA DX,M1 ；显示矩阵信息以及相乘后的结果
MOV AH,9
INT 21H
LEA DX,MATRIX1
MOV AH,9
INT 21H
LEA DX,M2
MOV AH,9
INT 21H
LEA DX,MATRIX2
MOV AH,9
INT 21H
LEA DX,M3
MOV AH,9
INT 21H
LEA DX,RESULT
MOV AH,9
INT 21H
MOV AH,4CH
INT 21H
LINEMULCOLOUM PROC NEAR ；矩阵相乘子程序
STR: PUSH CX
MOV CX,3 ；设置循环次数
MOV AL,[DL] ；取矩阵1的偏移地址
MOV BL,[DH] ；取矩阵2的偏移地址
PUSH DX ；数值进栈保存
AGAIN: IMUL BL ；矩阵1的行和矩阵2的列相乘
ADD DX,AX
MOV [BH],DX
POP DX
MOV AH,DH
ADD AH,03H
MOV BL,[AH]
ADD DL,01H
MOV AL,[DL]
PUSH DX
LOOP AGAIN
POP DX
SUB DL,03H
ADD BH,01H
POP CX
LOOP STR
EXIT: END
CODE ENDS
END START