21,459
社区成员
发帖
与我相关
我的任务
分享
;用子程序实现。输入一个字符串,该串以”$”结 束,将该字符串转成大写后显示输出。
data segment
buf db 20,?,20 dup(?),'$'
data ends
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
lea dx,buf
mov ah,0ah
int 21h
mov cl,buf+1
mov ch,0
lea bx,buf+2
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
s: mov al,[bx]
call change
inc bx
loop s
lea dx,buf[2]
mov ah,09h
int 21h
mov ax,4c00h
int 21h
change proc
push ax
and al,11011111B
mov [bx],al
pop ax
ret
change endp
code ends
end start