科技始終來自於惰性!!! 惰性萬歲

.286         
.MODEL SMALL
.STACK
.DATA
    MSG BYTE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
    L_MSG EQU $-MSG
   

.CODE
BEG:MOV AX,@DATA
    MOV DS,AX
    MOV BX,0
    MOV CX,L_MSG
AA: MOV DL,MSG[BX] 
    OR DL,00100000B   ;將MSG內的大寫改成小寫

;*********印出小寫*******
    MOV AH,2
    INT 21H
;**********************
    MOV MSG[BX],DL   ;將轉成的小寫依序丟入MSG內將原本的大寫改成小寫

    INC BX 
    LOOP AA  

    MOV BX,0
    MOV CX,L_MSG
BB: MOV DL,MSG[BX]
    XOR DL,00100000B ;將MSG的小寫改成大寫

;*********印出大寫*******
    MOV AH,2
    INT 21H

;**********************

    INC BX 
    LOOP BB
    
    
    MOV AH,4CH
    INT 21H
    END BEG