汇编语言程序设计实验七 文件操作(2)

上海应用技术学院 实验报告

AGAIN:MOV AH, 3FH

第 6 页

ASSUME CS:CODE,DS:DATA MOV DS, AX MOV DONE, 0 LEA

START: MOV AX, DATA

DX, FILENAME2

MOV AL, 01H MOV AH, 3DH INT 21H JC ERR11

; 打开不成功,转ERR11

MOV HANDLE2, AX LEA

DX, FILENAME1

; 为“读”打开文件1

MOV AL, 0 MOV AH, 3DH INT 21H JC ERR12

MOV HANDLE1, AX MOV AH, 42H MOV AL, 02 MOV DX, 0 MOV CX, 0

MOV BX, HANDLE2 INT 21H JC ERR2

; 读文件1

LEA DX, DTA

MOV BX, HANDLE1 MOV CX, 256 INT 21H JC ERR3 CMP

AX, 0

JNE AGA1 MOV DONE,1 JMP

FINISH

; 文件结束,转FINISH

上海应用技术学院 实验报告

AGA1: CMP

CONT: PUSH AX

ERR11: LEA

INT 21H JMP

EXIT

DX, FAIL1

; 打开文件1失败,显示信息

DX, FAIL1

MOV AH, 09H

MOV AH, 40H LEA POP

DX, DTA CX

; 写文件失败,转ERR4

; 写文件2

JE CONT MOV DONE,1

; 文件结束,置完成标志

AX, 256

MOV BX, HANDLE2 INT 21H JC ERR4 CMP

MOV AH, 3EH

; 关闭文件1

MOV BX, HANDLE1 INT 21H

MOV BX, HANDLE2 INT 21H JMP

READF2

; 关闭文件2

JE AGAIN

DONE,0

FINISH:

FINISH1:MOV AH, 3EH

ERR12: LEA

INT 21H JMP JMP JMP

MOV AH, 09H

FINISH1

ERR2: LEA ERR3: LEA ERR4: LEA

DX, FAIL2 DX, FAIL3 DX, FAIL4

; 移动指针失败,显示信息 ; 读文件失败,显示信息 ; 写文件失败,显示信息

; 显示出错信息

DISP DISP

DISP: MOV AH, 09H

INT 21H

第 7 页

上海应用技术学院 实验报告

READF2:

MOV AH,3DH LEA

MOV AL,00H INT 21H

MOV HANDLE2,AX

DX,DTA2

MOV BX,HANDLE2 MOV CX,1 MOV AH,3FH INT 21H JC ERR3 CMP CMP

AX,0 DTA2,1AH

JE CLOSE JE CLOSE MOV DL,DTA2 MOV AH,02H INT 21H JMP

ONE

;打开文件2

DX,FILENAME2

;为读而打开

JMP

FINISH

; 转FINISH,关闭文件

ONE: LEA

CLOSE: MOV AH,3EH

MOV BX,HANDLE2 INT 21H INT 21H END 1.

START

EXIT: MOV AX,4C00H CODE ENDS 五、运行结果

第 8 页

上海应用技术学院 实验报告

.

第 9 页

上海应用技术学院 实验报告

2.

第 10 页