1 上 海 电 力 学 院 实 验 报 告 课程名称 汇编语言 实验项目 实验 9 磁盘文件存储技术 姓名 学号 班级 专业 教师姓名 实验日期 一、实验目的：
掌握文件的基本操作，如新建打开关闭等操作 二、实验内容 参照试验指导书，和教材 409 页和 414 页程序，建立一个文件，并加密，mykey=6A（你姓第一个字母的 ASCII）例如，ASCII（j）=6A； 文件内容为 学号：20073487 姓名：jiangjinyu 班级：
****** 兴趣爱好：
******** 0 最后输入 0，会避免显示出现异常 三、程序源代码 1．建立文件;--------------------------------------creath proc near mov ah,3ch mov cx,0 lea dx,pathnam int 21h jc a1 mov handle,ax ret a1: lea dx,opnmsg call errm ret creath endp;--------------------------------------writh proc near mov ah,40h
2 mov bx,handle mov cx,32 lea dx,namerec int 21h jnc d1 lea dx,wrtmsg call errm mov namelen,0 d1: ret writh endp;--------------------------------------clseh proc near mov namerec,1ah call writh mov ah,3eh mov bx,handle int 21h ret clseh endp;--------------------------------------cipher proc near mov cx,30 mov al,myKey loop1: xor namerec[si],al inc si loop loop1 ret cipher endp;--------------------------------------end begin 2．读取文件;--------------------------------------openh proc near mov ah,3dh mov al,0 lea dx,pathnam int 21h jc b1 mov handle,ax ret b1: mov endcde,01
3 lea dx,openmsg call errm ret openh endp;--------------------------------------readh proc near mov ah,3fh mov bx,handle mov cx,32 lea dx,ioarea int 21h mov si,0 call uncipher jc c1 cmp ax,0 je c2 cmp ioarea,1ah je c2 ret c1: lea dx,readmsg call errm c2: mov endcde,01 ret readh endp;--------------------------------------disph proc near mov ah,40h mov bx,01 mov cx,32 lea dx,ioarea int 21h cmp row,24 jae d1 inc row ret d1: mov ax,0601h call scren call curs ret disph endp
4;--------------------------------------四、运行结果 1． 建立文件
