Cacher is the code snippet organizer for pro developers

.MODEL SMALL
.STACK 100H
.DATA
V1 DB ?
V2 DB ?
V3 DB ?
V4 DB ?
V5 DB ?
C1 DB 1
M1 DB 'Enter 5 characters $'
M2 DB 'U$'
M3 DB 'L$'

.CODE
MAIN PROC
    MOV AX,@DATA
    MOV DS,AX
    
    LEA DX,M1
    MOV AH,9
    INT 21H
    
    MOV AH,2
    MOV DL,0DH
    INT 21H
    MOV DL, 0AH
    INT 21H
    
    MOV AH,1
    INT 21H
    MOV V1,AL
    
    MOV AH,1
    INT 21H
    MOV V2,AL
    
    MOV AH,1
    INT 21H
    MOV V3,AL
    
    MOV AH,1
    INT 21H
    MOV V4,AL
    
    MOV AH,1
    INT 21H
    MOV V5,AL
    
    MOV AH,2
    MOV DL,0DH
    INT 21H
    MOV DL, 0AH
    INT 21H
    
    MOV CX,25
    MOV CL,90
    MOV CH,V1
    JMP MZS
    
    MZS:
    CMP CH,CL
    JNGE ULUP
    JGE LLUP
    
    ULUP:
    MOV BL,065
    CMP CH,BL
    JE L1
    JNE L2
    
    L1:
    CMP CH,BL
    JNE A1
    JE UEXIT
    A1:
    ADD BL,1
    CMP CH,BL
    JNE L1
    JE UEXIT
    
    L2:
    CMP CH,BL
    JNE A2
    JE UEXIT
    A2:
    ADD BL,1
    CMP CH,BL
    JNE L2
    JE UEXIT
    
    LLUP:
    MOV BH,097
    CMP CH,BH
    JE U1
    JNE U2
    
    U1:
    CMP CH,BH
    JNE B1
    JE LEXIT
    B1:
    ADD BH,1
    CMP CH,BH
    JNE U1
    JE LEXIT
    
    U2:
    CMP CH,BH
    JNE B2
    JE LEXIT
    B2:
    ADD BH,1
    CMP CH,BH
    JNE U2
    JE LEXIT
    
    
    UEXIT:
    LEA DX,M2
    MOV AH,9
    INT 21H
    JMP MZS
    
    JMP EXIT

    LEXIT:
    LEA DX,M3
    MOV AH,9
    INT 21H
    JMP MZS
    JMP EXIT
    
    EXIT:
    MOV AH,4CH
    INT 21H
    MAIN ENDP
END MAIN