21,459
社区成员
发帖
与我相关
我的任务
分享
datarea segment
string db 10,0
mess1 db 10 dup(0)
mess2 db 'yes',13
input db 'Input: ', '$ '
clrf db 13,10, '$ '
datarea ends
prognam segment
assume cs:prognam,ds:datarea,es:datarea
start:
push ds
sub ax,ax
push ax
mov ax,datarea
mov ds,ax
mov es,ax
lea dx,input ; 输入字符串
mov ah,09h
int 21h
mov ah,0ah
lea dx,string
int 21h
lea dx,clrf ; 输出回车换行
mov ah,09h
int 21h
lea si,mess1
lea di,mess2
mov cx,3
repz cmpsb ; 字符串比较
jz link
mov dl, 'N'
jmp notlink
link:
mov dl, 'Y'
notlink:
mov ah,02h
int 21h
mov ah,4ch
int 21h
prognam ends
end start