DATAS SEGMENT
;此处输入数据段代码
A DB 200 DUP(?)
B DB " -> $ "
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
;此处输入代码段代码
LEA BX,A
T1: MOV AH,1
INT 21H
MOV [BX],AL
INC BX
CMP AL,'q';Q结束
JE Y1
JMP T1
T5: ;DEC BX
MOV CL,[BX]
CMP CL,'0'
JB T9
CMP CL,'9'
JA T3
MOV DL,[BX]
JMP T2
T3: CMP CL,'A'
JB T9
CMP CL,'Z'
JA T4
MOV DL,CL
ADD DL,20H
JMP T2
T4: CMP CL,'a'
JB T9
CMP CL,'z'
JA T9
MOV DL,CL
SUB DL,20H
JMP T2
Y1: LEA DX,B
MOV AH,9
INT 21H
LEA BX,A
JMP T5
T2:
MOV AH,2
INT 21H
;CMP BX,0
;JE T9
CMP DL,'Q'
JE T8
INC BX
JMP T5
T9: CMP DL,'Q'
JE T8
INC BX
JMP T5
T8: MOV AH,4CH
INT 21H
CODES ENDS
END START
汇编语言输入小写输出转化为大写
最新推荐文章于 2023-12-20 17:10:16 发布