汇编语言实现小写转为大写

法一：

DATA SEGMENT

    MES1    DB  'Input:',0AH,0DH,'$'
    MES2    DB  0AH,0DH,'Output:',0AH,0DH,'$'
    XXX     DB  10,?,10 DUP('$')
DATA ENDS


CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV  AX,DATA
MOV  DS,AX
 
        LEA  DX,MES1
        MOV  AH,9
        INT  21H


INPUT:  LEA  DX,XXX
        MOV  AH,0AH
        INT  21H
 
        LEA  DX,MES2
        MOV  AH,9
        INT  21H


        MOV  CL,XXX+1
        MOV  CH,0
        LEA  BX,XXX+2
OUTPUT:
        MOV  DL,[BX]
        SUB  DL,20H
        MOV  AH,2
        INT  21H
        INC  BX
        LOOP OUTPUT
        
        MOV  AX,4C00H
        INT  21H
CODE  ENDS

       END   START

DATA SEGMENT
    MES1    DB  'Input:',0AH,0DH,'$'
    MES2    DB  0AH,0DH,'Output:',0AH,0DH,'$'
    XXX     DB  10,?,10 DUP('$')
DATA ENDS


法二：

CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:
MOV  AX,DATA
MOV  DS,AX
 
        LEA  DX,MES1
        MOV  AH,9
        INT  21H




INPUT:  LEA  DX,XXX
        MOV  AH,0AH
        INT  21H
 
        LEA  DX,MES2
        MOV  AH,9
        INT  21H


        MOV  CL,XXX+1
        MOV  CH,0
        LEA  BX,XXX+2
OUTPUT:
        MOV  DX,[BX]
        SUB  DX,20H
        MOV  [BX],DX
        INC  BX
        LOOP OUTPUT
        
        LEA  DX,XXX+2
        MOV  AH,9
        INT  21H


        MOV  AX,4C00H
        INT  21H
CODE  ENDS
       END   START