Next Five letter of a given letter

.model small

.stack 100h

.data

.code

main proc

    mov ah,01
    int 21h
    mov bl,al

    xor cl,cl ;clear cl

    mov cl,bl

    mov ah,2
    mov dl,13
    int  21h

    mov ah,2
    mov dl,10
    int  21h


    cmp bx,97
    jge small_to_big

        add bl,33
        mov ah,2
        mov dl,bl
        int 21h

        add bl,1
        mov ah,2
        mov dl,bl
        int 21h

        add bl,1
        mov ah,2
        mov dl,bl
        int 21h


        add bl,1
        mov ah,2
        mov dl,bl
        int 21h


        add bl,1
        mov ah,2
        mov dl,bl
        int 21h

        mov ah,2
        mov dl,13
        int  21h

        mov ah,2
        mov dl,10
        int  21h

        xor ch,ch

        mov al,65

        sub al,cl;
        mov cl,al
        add cl,122;

        mov ah,02
        mov dl,cl
        int 21h

        sub cl,1
        mov dl,cl
        int 21h

        sub cl,1
        mov dl,cl
        int 21h

        sub cl,1
        mov dl,cl
        int 21h

        sub cl,1
        mov dl,cl
        int 21h















        jmp exit

    small_to_big:

        sub bl,31
        mov ah,02
        mov dl,bl
        int 21h



        add bl,1
        mov dl,bl
        int 21h

        add bl,1
        mov dl,bl
        int 21h

        add bl,1
        mov dl,bl
        int 21h

        add bl,1
        mov dl,bl
        int 21h


        mov ah,2
        mov dl,13
        int  21h

        mov ah,2
        mov dl,10
        int  21h


        sub cl,97
        add cl,90
        mov dl,cl
        int 21h

        sub cl,1
        mov dl,cl
        int 21h

        sub cl,1
        mov dl,cl
        int 21h


        sub cl,1
        mov dl,cl
        int 21h


        sub cl,1
        mov dl,cl
        int 21h








     exit:
        mov ah,4ch
        int 21h

     main endp
    end main
   ret