DATA SEGMENT
STRING DB 100,?,100 DUP(0)
PROMPT DB 'Please input:',13,10,'$'
RESULT DB 'The result is:',13,10,'$'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
LEA DX,PROMPT ;取PROMPT偏移地址->DX
MOV AH,9H ;功能号09H->AH,显示'Please input:'
INT 21H
LEA DX,STRING ;输入字符串
MOV AH,0AH INT 21H
MOV DL,0AH
MOV AH,2H INT 21H
LEA DX,RESULT ;取RESULT偏移地址->DX
MOV AH,9H ;功能号09H->AH,显示'The result is:'
INT 21H
LEA BX,STRING+1
MOV CL,[BX]
MOV CH,0
ADD BX,CX
NEXT: MOV DL,[BX]
MOV AH,2
INT 21H
DEC BX
LOOP NEXT
MOV AH,4CH
INT 21H
CODE ENDS
END START
2009年3月29日星期日
订阅:
博文评论 (Atom)
没有评论:
发表评论