| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 692 人关注过本帖
标题:请各位修改一个程序,谢谢
取消只看楼主 加入收藏
orange0813
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-7-2
收藏
 问题点数:0 回复次数:0 
请各位修改一个程序,谢谢

从键盘输入字符串,如是 小写字母,则转为大写字母输出。如是大写字母,原样输出。并约定,键入复位键[ESC]中止输入。例:输入: deddeDEDG 按复位键[ESC] 输出:deddededg

data segment
string db 10 dup(?)

str db 10 dup(?)
data ends

code segment
assume cs:code,ds:data
main proc far
mov ax,data
mov ds,ax
mov cx,10
lea di,str
lea si,string
get: mov ah,01h
int 21h
cmp al,1bh
jz done
mov byte ptr[si],al
inc si
loop get
done:lea si,string
again:mov al,[si]
cmp al,61h
jae next
mov byte ptr[di],al
jmp next1
next:
sub al,20h
mov byte ptr[di],al
next1:inc si
inc di
loop again
lea di,str
mov ah,02h
get1:mov dl,[di]

int 21h
inc di
loop get1
call nextline
ret
main endp

nextline proc near
mov dl ,0dh
mov ah,02h
int 21h
mov dl,0ah
mov ah,02h
int 21h
ret
nextline endp

code ends
end main

2006-07-03 22:02
快速回复:请各位修改一个程序,谢谢
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033831 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved