精品 文档
1) 按程序流程图编制实验程序。 2) 输入源程序。
3) 汇编、连接程序，执行程序，检查结果。
4) 程序的执行可用DEBUG的G命令,也可用T命令单步跟踪执行。 五、源程序
实验五 EXAM5－1
STACK SEGMENT STACK DB 1024 DUP（0） STACK ENDS
CODE SEGMENT
ASSUME CS：CODE，SS：STACK START： MOV BL， 0 LP： MOV DL， 20H
MOV AH， 2 INT 21H
MOV AL， BL ADD AL, 0 DAA
AND AL， 0FH MOV BL， AL PUSH BX
OR AL， 30H MOV DL， AL MOV AH， 2 INT 21H
MOV BX， 3E8H
LP2： MOV CX， 176H ；延时1ms LP1： PUSHF
POPF
LOOP LP1 DEC BX JNZ LP2 POP BX INC BL JMP LP
CODE ENDS
END START
执行程序EXAM5－1·EXE，屏幕上依次循环显示一个数字一个空格：
0 1 2 3 4 5 6 7 8 9 ……
实验五 EXAM5-2
精品 文档 欢迎 下载
精品 文档
STACK SEGMENT STACK DB 1024 DUP（0） STACK ENDS DATA SEGMENT
BUFF DB 6，7 DUP（？），‘$’ DATA ENDS
INPUT MACRO BUFE
MOV DX， OFFSET BUFE MOV AH， 0AH INT 21H ENDM
PUTCHAR MACRO CHAR
MOV DL， CHAR MOV AH， 02H INT 21H ENDM CODE SEGMENT
ASSUME CS：CODE，DS：DATA，SS：STACK START： MOV AX， DATA
MOV DS， AX
INPUT BUFF ；读取字符串?BUFF PUTCHAR 0DH
PUTCHAR 0AH ；光标另起一行 MOV CX， 0003H NEXT：PUTCHAR 2AH
LOOP NEXT
MOV CL， BUFF+1 SUB CH， CH
MOV BX， OFFSET BUFF+2 BEGIN： MOV AL， [BX]
PUTCHAR AL INC BX LOOP BEGIN MOV CX， 0003H
NEXT1： PUTCHAR 2AH
LOOP NEXT1
精品 文档 欢迎 下载
精品 文档
MOV AH， 4CH INT 21H
CODE ENDS
END START
执行程序EXAM5－2·EXE，输入HELLO↙屏幕上显示结果： *** HELLO ***
实验五 EXAM5-5
NAME EXAM6
SSTACK SEGMENT STACK ’stack’ DB 1024 DUP（？） SSTACK ENDS DATA SEGMENT
ASKNAME DB 0DH，0AH，’Enter the’ DB ’dest file name：$’
ASKCONT DB 0DH，0AH，’Enter the string’ DB ’as file content：’0dh，0ah，’$’ FILEBUF DB 62，63DUP（？） HAND＿D DW？ MSGMER DB 0DH，0AH，0AH
DB ’Directory full’,0DH,0AH,’$’ MSGWER DB 0DH,0AH,0AH
DB ’Ｄisk full’,0DH,0AH,’$’ MSGSUC DB 0DH，0AH，0AH， DB ’Write file is Successful’
精品 文档 欢迎 下载
精品 文档
DB 0DH，0AH，’$’ DATA ENDS
DISPLY MACRO TEXT MOV DX，OFFSET TEXT MOV AH，09H INT 21H ENDM
CRHAND MACRO PATH，ATTR
MOV DX，OFFSET PATH MOV CL，ATTR XOR CH，CH MOV AH，3CH INT 21H ENDM
WRHAND MACRO HAND，BUFF，BYTE MOV BX，HAND
MOV DX，OFFSET BUFF ADD DX，2 MOV CL，BYTE XOR CH，CH MOV AH，40H INT 21H ENDM
CLHAND MACRO HAND
精品 文档 欢迎 下载
；文件名 ；文件属性 精品 文档
MOV BX，HAND MOV AH，3EH INT 21H ENDM CODE SEGMENT PROG PROC FAR
ASSUME CS：CODE，DS：DATA，SS：SSTACK PUSH DS MOV AX，0 PUSH AX MOV AX，DATA
MOV DS，AX
DISPLY ASKNAME ；提示输入文件名
MOV DX，OFFSET FILEBUF MOV AH，0AH INT 21H
MOV DI，OFFSET FILEBUF[2] MOV BL，FILEBUF[1] XOR BH，BH
MOV BYTE PTR[BX][DI]，00H
CRHAND FILEBUF[2]，0 ；创建并打开新文件
JC CRTERR
精品 文档 欢迎 下载
精品 文档
MOV HAND＿D，AX ；存文件句柄 DISPLY ASKCONT ；提示键入文件内容
MOV DX，OFFSET FILEBUF MOV AH，0AH INT 21H
WRHAND HAND＿D，FILEBUF，FILEBUF[1] JC WRITERR CLHAND HAND＿D DISPLY MSGSUC JMP EXIT CRTERR： DISPLY MSGMER JMP EXIT WRITERR：DISPLY MSGWER EXIT： RET PROG ENDP CODE ENDS END PROG
精品 文档 欢迎 下载
2020年汇编实验报告
