第1个回答 2019-02-12
怎么也不弄点悬赏分啊,呵呵
输入后回车显示大写字母
DATASEGMENT
ADB'ENTERTHESTRING:$'
BUFDB100
LENDB?
STRDB100DUP(?)
ZSdb0dh,0ah
WEDB100DUP('$')
DATAENDS
CODESEGMENT
MAINPROCFAR
ASSUMECS:CODE,DS:DATA
START:PUSHDS
MOVAX,0
PUSHAX
MOVAX,DATA
MOVDS,AX
LEADX,A
MOVAH,9H
INT21H
LEADX,BUF
MOVAH,0AH
INT21H
movcl,len
movch,0
LEABX,STR
leaSI,WE
CONT:moval,0
MOVAL,[BX]
CMPAL,'a'
JbNEXT
CMPAL,'z'
JANEXT
SUBAL,32
MOV[SI],AL
JMPNEXT2
NEXT:MOV[SI],AL
JMPNEXT2
NEXT2:INCBX
INCSI
LOOPCONT
MOVDX,0
LEADX,ZS
MOVAH,9H
INT21H
RET
MAINENDP
CODEENDS
ENDSTART