DATAS SEGMENT
;此处输入数据段代码DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
NEXT:
mov AH,01
INT 21H
CMP AL,'A'
JB STOP
CMP AL,'z'
JA STOP
ADD AL,20H
MOV DL,AL
MOV AH,02
INT 21H
STOP:
JMP NEXT
MOV AH,4CH
INT 21H
CODES ENDS
END START