一个简单的汇编语言编程

2024-10-28 20:43:53

推荐回答（3个）

回答1：

终于调通了，先以乘积矩阵中元素值不大于9来输入矩阵1和矩阵2各元素的值，我是以下面的两个矩阵为例调试的程序：
矩阵1为：
1 1 1
1 1 2
1 1 3
矩阵2为：
3 1 1
2 1 1
1 1 1
得到结果矩阵为：
6 3 3
7 4 4
8 5 5

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(0),"$" ;矩阵相乘结果
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
MAIN PROC FAR
MOV AX,DATA ;置DS段初值
MOV DS,AX
LEA DX,INFORMATION ;取信息提示地址偏移量
MOV AH,9 ;9号功能调用显示提示信息
INT 21H
LEA DX,SPACE;换行
MOV AH,9 ;9号功能调用显示提示信息
INT 21H

LEA DX,M1;提示输入矩阵1
MOV AH,9
INT 21H

MOV CX,09H
MOV BX,OFFSET MATRIX1;取矩阵1的偏移地址
INPUT1:
MOV AH,1
INT 21H;1号功能调用，用来输入数组数值
MOV [BX],AL
INC BX
LOOP INPUT1

LEA DX,M2 ;提示输入矩阵2
MOV AH,9
INT 21H

MOV CX,09H
MOV BX,OFFSET MATRIX2 ;取矩阵2的偏移地址
INPUT2:
MOV AH,1
INT 21H ;1号功能调用，用来输入数组数值
MOV [BX],AL
INC BX
LOOP INPUT2

MOV CX,3;设置循环次数
MOV BP,OFFSET RESULT
MOV SI,OFFSET MATRIX1

NEXT:
PUSH CX
XOR AX,AX
MOV DI,OFFSET MATRIX2
MOV CX,3;设置循环次数

NEXT1:
PUSH CX
XOR AX,AX
MOV CX,3;设置循环次数

AGAIN:
MOV AL,[SI] ;取矩阵1的偏移地址
SUB AL,30H;字符转换成数字
MOV BL,[DI] ;取矩阵2的偏移地址
SUB BL,30H;字符转换成数字
IMUL BL ;矩阵1的行和矩阵2的列相乘
ADD DS:[BP],Al
INC SI
ADD DI,3
LOOP AGAIN
ADD BYTE PTR DS:[BP],30H;数字转换成字符
SUB SI,3
SUB DI,8
INC BP
POP CX
LOOP NEXT1

ADD SI,3
POP CX
LOOP NEXT

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,1
INT 21H

MOV AH,4CH
INT 21H
MAIN ENDP
CODE ENDS
END MAIN

回答2：

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

几乘几都没问题。。。

回答3：

用16位汇编忒麻烦，用masm8.0写了个，玩一下：

.386
.model flat, stdcall
option casemap :none

includelib kernel32.lib
includelib msvcrt.lib

printf proto C :VARARG
putchar proto C :DWORD
system proto C :DWORD
ExitProcess proto :DWORD

CTXT MACRO quoted_text:VARARG
LOCAL local_text
.data
local_text db quoted_text, 0
align 4
.code
EXITM
ENDM

SADD MACRO quoted_text:VARARG
EXITM
ENDM

; matrix的维度
M equ 10
N equ 10
P equ 10

.data
; ------------------------
; matrix1 M * N
; ------------------------
mx1 dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1

; ------------------------
; matrix2 N * P
; ------------------------
mx2 dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1
dd 1,1,1,1,1,1,1,1,1,1

; ------------------------
; matrix3 M * P
; ------------------------
mx3 dd M*P dup(0)

.code
start:
xor eax, eax
lp1:
jmp ts1
up1:
pop eax
inc eax
ts1:
cmp eax, M
jge over
push eax
lp2:
xor ebx, ebx
jmp ts2
up2:
pop ebx
inc ebx
ts2:
cmp ebx, P
jge jtb_up1
push ebx
lp3:
xor ecx, ecx
jmp ts3
up3:
pop ecx
inc ecx
ts3:
cmp ecx, N
jge jtb_up2
push ecx

mov edx, eax
imul edx, edx, P*4
push edx
mov esi, mx3[edx+ebx*4]

mov edx, eax
imul edx, edx, N*4
mov edi, mx1[edx+ecx*4]

mov edx, ecx
imul edx, edx, P*4
imul edi, mx2[edx+ebx*4]
add esi, edi

pop edx
mov mx3[edx+ebx*4], esi

jmp up3
jtb_up2:
push eax
mov edx, eax
imul edx, edx, P*4
invoke printf, SADD("%2d "), dword ptr mx3[edx+ebx*4]
pop eax

jmp up2
jtb_up1:
invoke putchar, 10

jmp up1
over:
invoke system, SADD("pause")
invoke ExitProcess, 0
end start

现学现卖，用WINDLX写的，简单点了，而且你主要是要观察流水线操作：

.data
mx1: .word 1,2,3,4,5,6
mx2: .word 1,2,3,4,5,6
mx3: .word 0,0,0,0,0,0 ; mx3 = mx1 * mx2

.text
.global main
xor r0, r0, r0
add r1, r0, 0
add r3, r0, 0
loop:
lw r4, mx1(r3)
lw r5, mx2(r3)
multu r6, r4, r5
sw mx3(r3), r6
add r3, r3, 4
add r1, r1, 1
sgeui r2, r1, 6
bnez r2, finish
j loop
finish:
trap 0