汇编实验八：文件操作.docVIP

计算机与信息技术学院 实验报告 姓 名 学 号 专业班级 课程名称 实验日期 成 绩 指导教师 批改日期 实验名称 data segment PATHNM1 db d:\a.txt,0 PATHNM2 db d:\a1.txt,0 PATHNM3 db d:\a2.txt,0 fanhuizhi1 dw ? fanhuizhi2 dw ? fanhuizhi3 dw ? huanchongqu db 256 dup( ) zishu dw ? data ends code segment main proc far assume cs:code,ds:data start: mov ax,data mov ds,ax call openfile call newfile1 call newfile2 mov ax,4c00h int 21h main endp openfile proc near mov ah,3dh mov al,00 lea dx,PATHNM1 int 21h jc error1 mov fanhuizhi1,ax;打开文件 mov ah,3fh mov bx,fanhuizhi1 mov cx,256 lea dx,huanchongqu int 21h jc error2 mov zishu,ax;将文件写入缓冲区 mov ah,3eh mov bx,fanhuizhi1 int 21h ret;关闭文件 error1: mov ah,02 mov dl,31h int 21h ret error2: mov dl,32h mov ah,02h int 21h ret openfile endp newfile1 proc near mov ah,3ch mov cx,0 lea dx,PATHNM2 int 21h jc error3 mov fanhuizhi2,ax;新建文件 mov ax,zishu mov dl,02 idiv dl mov cl,al mov ah,40h mov bx,fanhuizhi2 lea dx,huanchongqu int 21h jc error4;将缓冲区前一半写入文件 mov ah,3eh mov bx,fanhuizhi2 int 21h ret;关闭文件 error3: mov dl,33h mov ah,02h int 21h ret error4: mov dl,34h mov ah,02h int 21h ret newfile1 endp newfile2 proc near mov ah,3ch mov cx,0 lea dx,PATHNM3 int 21h jc error5 mov fanhuizhi3,ax;新建文件 mov ax,zishu mov dl,02 idiv dl mov cl,al mov ah,0 mov bx,ax mov ah,40h lea dx,huanchongqu[bx] mov bx,fanhuizhi3 int 21h jc error6;将缓冲区前一半写入文件 mov ah,3eh mov bx,fanhuizhi3 int 21h ret;关闭文件 error5: mov dl,35h mov ah,02h int 21h ret error6: mov dl,36h mov ah,02h int 21h ret newfile2 endp code ends end start 实验结果: 结果分析: 先调用doc的3d调用打开文件，在用3f调用读取文件内容到缓冲区，在调用3e关闭文件。再调用3c创建一个文件，把前一半用40写入文件，调用3e关闭文件。再调用3c创建一个文件，把后一半用40写入文件，调用3e关闭文件。