mmxx.txt

矩阵乘法新算法

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 END 
CODE SEGMENT ；定义代码段 
ASSUME CS:CODE,DS:DATA 
START: MOV AX,DATA ；置DS段初值 
MOV DS,AX 
MOV AX,A 
SHOWINFORMATION:LEA DX,INFORMATION ；取信息提示地址偏移量 
MOV AH,9 ；9号功能调用显示提示信息 
INT 21H 
LEA DX,SPACE ；换行 
INT 21H 

LEA DX,M1 ；提示输入矩阵1 
MOV AH,9 
INT 21H 
MOV CX,09H 
MOV AH,1 
MOV BL,LEA OFFSET MATRIX1 ；取矩阵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: ENDP 
CODE ENDS 
END START