- [somniumchase] 我一运行就说没有数字 01/01 11:44
- [游客] 为什么啊 08/07 15:36
- [游客] 如果想快一些 就改下面这里 dx值改成1H delay: push ax 04/19 02:53
- [lshhjx] 注释在程序中很重要,楼主不知道吗? 12/08 13:40
- [biaggi] 看不明白,在下還須學習 11/06 08:11
- [游客] 我运行的时候直接显示Unkown filename跳出了- -请问怎么改 06/16 21:44
- [游客] 勿庸置疑,注释是好习惯。与人方便自己方便。 04/12 10:33
- [游客] 老实说,看着真心累呀! 04/07 18:37
- [游客] 很无语,初学者就多看书,不要动不动要别人注释,基础打好了,再自己注释,这样比别人帮你注释好得多 12/17 19:43
- [dgkepu] 初学者:不懂,希望有多点注释带着学习学习! 12/07 20:52
- [游客] windows 7是一个64Bit操作系统,它不兼容DOS,无法识别16Bit系统。重装系统wind 02/28 21:05
- [游客] windows 7是一个64Bit操作系统,它不兼容DOS,无法识别16Bit系统。重装系统wind 02/28 21:05
- [466987333] 你好,高手,我想请教一个问题。 我用的是win7操作系统,32位的,里面没有找masm目录,是不是 12/12 17:30
- [lanfioncc] 那个太高级了。。。我还有点看不懂。。不过谢谢!!! 11/27 11:23
- [yc2010] 实验16中的 table: dw sub1,sub2,sub3,sub4 可不可以改成呢? 09/11 09:08
- [yc2010] mov bl,ah mov bh,0 add bx,bx ----------->这里为 09/07 21:03
- [yc2010] 为什么要add bx,bx呢? 09/07 20:55
- [yc2010] 那是不是像table[bx],ds[bx]....等(内存单元)都是表示一个字节呢? 09/06 21:10
- [masmaster] 杨季文的《80X86汇编语言程序设计教程》 09/01 12:52
- [游客] to masmaster shl左移4位,那al传进来的4,5,6位背景色不就没了. 为什 09/01 11:00
[2010-09-17 20:11] 习题4.40
写一个能够比较两个文本内容的程序。 设文本文件由若干行组成。文本行以回车和换行符结束。 比较以行为单位进行。如果两行不等,那么就显示着两行,并标上行号
答:
;----------------------------------------------------;
assume cs:code,ds:data,ss:stack
data segment
filea db 11 dup (0),0 ;文件名存放地址
fileb db 11 dup (0),0 ;文件名存放地址
fafh dw 0 ;文件a句柄
fbfh dw 0 ;文件b句柄
buffa db 10 dup (0) ;文件a缓冲
buffb db 10 dup (0) ;文件b缓冲
errmsg db 'Error!$' ;错误信息
no db 0 ;行号
data ends
stack segment stack ;定义栈段
dw 128 dup (0)
stack ends
code segment
start:
mov ax,data ;指定数据段
mov ds,ax
;------------------------------------------------;
;把命令行中的文件名复制到filea和fileb
mov cx,0 ;计数器
lea si,es:82h ;装入命令名地址
mov di,offset filea ;目标地址
cp1:
mov al,es:[si]
inc cx ;文件名长度计数
cmp al,20h ;如是空格则处理fileb
jz jxcp
mov [di],al ;传送
inc si ;指向下一字符
inc di ;指向下一单元
jmp cp1
jxcp: ;开始复制fileb
lea si,es:82h ;装入文件名地址
add si,cx ;设定文件名具体地址
mov di,offset fileb ;目标地址
cp2:
mov al,es:[si] ;开始复制
cmp al,0dh ;如遇回车则结束
jz cpok
mov [di],al ;
inc si ;指向下一字符
inc di ;指向下一单元
jmp cp2
cpok: ;复制结束
;------------------------------------------------;
;打开文件filea
mov ax,3d02h ;以读写方式打开filea
mov dx,offset filea ;文件filea首地址
int 21h ;调用3dh号功能
jc err ;如出错则退出
mov fafh,ax ;保存filea的句柄
;打开文件fileb
mov ax,3d02h ;以读写方式打开fileb
mov dx,offset fileb ;文件fileb首地址
int 21h ;调用3dh号功能
jc err ;出错则退出
mov fbfh,ax ;保存fileb的句柄
;------------------------------------------------;
;开始将文件信息逐行读入缓冲
r1: ;读filea
mov bx,fafh ;文件句柄复制给BX
mov cx,1 ;每次传送一个字节
mov dx,offset buffa ;目标地址
mov di,dx ;偏移
ra:
mov ah,3fh ;调用3fh功能
int 21h
jc err ;出粗则退出
cmp byte ptr [di],0ah ;如遇换行符则读fileb
jz r2
cmp byte ptr [di],0 ;如遇0则结束
jz over
inc di ;偏移+1
inc dx ;目标地址+1
jmp ra
r2: ;读fileb
inc di ;偏移+1
inc dx ;目标地址+1
push di ;暂存,下一行使用
push dx ;暂存
mov bx,fbfh ;fileb句柄装入BX
mov cx,1 ;每次传送1字节
mov dx,offset buffb ;目标地址
mov di,dx ;偏移
rb:
mov ah,3fh ;调用3fh功能
int 21h
jc err ;出错退出
cmp byte ptr [di],0ah ;回车则进行比较
jz bj
inc di ;偏移+1
inc dx ;目标地址+1
jmp rb
bj: ;逐行读取完成开始比较
inc byte ptr no ;行数加1
call comp ;调用比较子程序
jnc bd ;不同,调用bc子程序
call clean ;清理缓冲区
pop dx ;恢复filea偏移和
pop di ;目标地址
jmp r1
bd: ;显示不同行信息
mov dl,no ;打印行号
add dl,30h
mov ah,2
int 21h
mov dl,3ah ;打印冒号用于分隔
mov ah,2
int 21h
call show ;显示不同行
call crlf ;回车
call clean ;清理缓冲区
pop dx ;恢复filea偏移和
pop di ;目标地址
jmp r1
;------------------------------------------------;
;关闭文件filea和fileb
ok:
mov bx,fafh ;filea句柄复制给BX
mov ah,3eh ;调用3eh功能
int 21h
jc err ;出错退出
mov bx,fbfh ;fileb句柄复制给BX
mov ah,3eh ;调用3eh功能
int 21h
jc err ;出错退出
jmp over ;结束程序
;------------------------------------------------;
err: mov dx,offset errmsg ;出错信息提示
mov ah,9
int 21h
;------------------------------------------------;
over: mov ah,4ch ;返回DOS
int 21h
;所用子程序
;回车
crlf proc uses ax dx
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h
ret
crlf endp
;
;比较
;
comp proc uses ax bx cx dx si di
mov si,offset buffa
mov di,offset buffb
mov cx,10
clc
_cmp:
mov al,[si]
cmp al,[di]
jnz ol
inc si
inc di
loop _cmp
stc
ret
ol:
ret
comp endp
;
;显示
;
show proc uses ax bx cx dx si di
mov si,offset buffa
s1:
mov dl,[si]
cmp dl,0dh
jz jx1
mov ah,2
int 21h
inc si
jmp s1
jx1:
mov dl,20h
mov ah,2
int 21h
mov si,offset buffb
s2:
mov dl,[si]
cmp dl,0dh
jz tc
mov ah,2
int 21h
inc si
jmp s2
tc:
ret
show endp
;
;清理缓冲
clean proc uses ax bx cx dx si di
mov si,offset buffa
mov di,offset buffb
mov cx,10
qc:
mov byte ptr [si],0
mov byte ptr [di],0
inc si
inc di
loop qc
ret
clean endp
;
code ends
end start
;----------------------------------------------------;
凑合着写的, 有时间再优化吧。
答:
;----------------------------------------------------;
assume cs:code,ds:data,ss:stack
data segment
filea db 11 dup (0),0 ;文件名存放地址
fileb db 11 dup (0),0 ;文件名存放地址
fafh dw 0 ;文件a句柄
fbfh dw 0 ;文件b句柄
buffa db 10 dup (0) ;文件a缓冲
buffb db 10 dup (0) ;文件b缓冲
errmsg db 'Error!$' ;错误信息
no db 0 ;行号
data ends
stack segment stack ;定义栈段
dw 128 dup (0)
stack ends
code segment
start:
mov ax,data ;指定数据段
mov ds,ax
;------------------------------------------------;
;把命令行中的文件名复制到filea和fileb
mov cx,0 ;计数器
lea si,es:82h ;装入命令名地址
mov di,offset filea ;目标地址
cp1:
mov al,es:[si]
inc cx ;文件名长度计数
cmp al,20h ;如是空格则处理fileb
jz jxcp
mov [di],al ;传送
inc si ;指向下一字符
inc di ;指向下一单元
jmp cp1
jxcp: ;开始复制fileb
lea si,es:82h ;装入文件名地址
add si,cx ;设定文件名具体地址
mov di,offset fileb ;目标地址
cp2:
mov al,es:[si] ;开始复制
cmp al,0dh ;如遇回车则结束
jz cpok
mov [di],al ;
inc si ;指向下一字符
inc di ;指向下一单元
jmp cp2
cpok: ;复制结束
;------------------------------------------------;
;打开文件filea
mov ax,3d02h ;以读写方式打开filea
mov dx,offset filea ;文件filea首地址
int 21h ;调用3dh号功能
jc err ;如出错则退出
mov fafh,ax ;保存filea的句柄
;打开文件fileb
mov ax,3d02h ;以读写方式打开fileb
mov dx,offset fileb ;文件fileb首地址
int 21h ;调用3dh号功能
jc err ;出错则退出
mov fbfh,ax ;保存fileb的句柄
;------------------------------------------------;
;开始将文件信息逐行读入缓冲
r1: ;读filea
mov bx,fafh ;文件句柄复制给BX
mov cx,1 ;每次传送一个字节
mov dx,offset buffa ;目标地址
mov di,dx ;偏移
ra:
mov ah,3fh ;调用3fh功能
int 21h
jc err ;出粗则退出
cmp byte ptr [di],0ah ;如遇换行符则读fileb
jz r2
cmp byte ptr [di],0 ;如遇0则结束
jz over
inc di ;偏移+1
inc dx ;目标地址+1
jmp ra
r2: ;读fileb
inc di ;偏移+1
inc dx ;目标地址+1
push di ;暂存,下一行使用
push dx ;暂存
mov bx,fbfh ;fileb句柄装入BX
mov cx,1 ;每次传送1字节
mov dx,offset buffb ;目标地址
mov di,dx ;偏移
rb:
mov ah,3fh ;调用3fh功能
int 21h
jc err ;出错退出
cmp byte ptr [di],0ah ;回车则进行比较
jz bj
inc di ;偏移+1
inc dx ;目标地址+1
jmp rb
bj: ;逐行读取完成开始比较
inc byte ptr no ;行数加1
call comp ;调用比较子程序
jnc bd ;不同,调用bc子程序
call clean ;清理缓冲区
pop dx ;恢复filea偏移和
pop di ;目标地址
jmp r1
bd: ;显示不同行信息
mov dl,no ;打印行号
add dl,30h
mov ah,2
int 21h
mov dl,3ah ;打印冒号用于分隔
mov ah,2
int 21h
call show ;显示不同行
call crlf ;回车
call clean ;清理缓冲区
pop dx ;恢复filea偏移和
pop di ;目标地址
jmp r1
;------------------------------------------------;
;关闭文件filea和fileb
ok:
mov bx,fafh ;filea句柄复制给BX
mov ah,3eh ;调用3eh功能
int 21h
jc err ;出错退出
mov bx,fbfh ;fileb句柄复制给BX
mov ah,3eh ;调用3eh功能
int 21h
jc err ;出错退出
jmp over ;结束程序
;------------------------------------------------;
err: mov dx,offset errmsg ;出错信息提示
mov ah,9
int 21h
;------------------------------------------------;
over: mov ah,4ch ;返回DOS
int 21h
;所用子程序
;回车
crlf proc uses ax dx
mov ah,2
mov dl,0dh
int 21h
mov dl,0ah
int 21h
ret
crlf endp
;
;比较
;
comp proc uses ax bx cx dx si di
mov si,offset buffa
mov di,offset buffb
mov cx,10
clc
_cmp:
mov al,[si]
cmp al,[di]
jnz ol
inc si
inc di
loop _cmp
stc
ret
ol:
ret
comp endp
;
;显示
;
show proc uses ax bx cx dx si di
mov si,offset buffa
s1:
mov dl,[si]
cmp dl,0dh
jz jx1
mov ah,2
int 21h
inc si
jmp s1
jx1:
mov dl,20h
mov ah,2
int 21h
mov si,offset buffb
s2:
mov dl,[si]
cmp dl,0dh
jz tc
mov ah,2
int 21h
inc si
jmp s2
tc:
ret
show endp
;
;清理缓冲
clean proc uses ax bx cx dx si di
mov si,offset buffa
mov di,offset buffb
mov cx,10
qc:
mov byte ptr [si],0
mov byte ptr [di],0
inc si
inc di
loop qc
ret
clean endp
;
code ends
end start
;----------------------------------------------------;
凑合着写的, 有时间再优化吧。
评论次数(0) |
浏览次数(392) |
类型(汇编习题集) |
收藏此文 |