【正文】 INT 21H ENDMCODE SEGMENT ASSUME CS：CODE，DS：DATA，SS：STACKSTART： MOV AX， DATA MOV DS， AX INPUT BUFF ；讀取字符串?BUFF PUTCHAR 0DH PUTCHAR 0AH ；光標另起一行 MOV CX， 0003HNEXT：PUTCHAR 2AH LOOP NEXT MOV CL， BUFF+1 SUB CH， CH MOV BX， OFFSET BUFF+2BEGIN： MOV AL， [BX] PUTCHAR AL INC BX LOOP BEGIN MOV CX， 0003HNEXT1： PUTCHAR 2AH LOOP NEXT1 MOV AH， 4CH INT 21HCODE ENDS END START執(zhí)行程序EXAM5－2EXE，輸入HELLO↙屏幕上顯示結(jié)果：*** HELLO *** 實驗五 EXAM55 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，F(xiàn)ILEBUF[1] XOR BH，BH MOV BYTE PTR[BX][DI]，00H CRHAND FILEBUF[2]，0 ；創(chuàng)建并打開新文件 JC CRTERR MOV HAND＿D，AX ；存文件句柄 DISPLY ASKCONT ；提示鍵入文件內(nèi)容 MOV DX，OFFSET FILEBUF MOV AH，0AH INT 21H WRHAND HAND＿D，F(xiàn)ILEBUF，F(xiàn)ILEBUF[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