Character Indexing

.model small
.stack 100h
.data

msg1 db 'Enter letter: $'
msg2 db 0ah, 0dh,'The Characters are: $'
msg3 db 0ah, 0dh,'The Characters are: $'



A db ?
B db ?
;C db ?

.code
main proc
    mov ax, @data
    mov ds, ax

    mov ah, 9
    lea dx,msg1       ;Print String
    int 21h

    mov ah,1
    int 21h
    mov A,al


    mov ah, 1
    int 21h
    mov B,al
    mov cl,B








    CMP A, cl       ; CMP=Compare, JE=Jump Equal
    JL l1

    mov ah,9
    lea dx,msg2
    int 21h

    mov ah,2
    mov dl,B
    int 21h

    mov ah,2
    mov dl,032
    int 21h

    mov ah,2
    mov dl,A
    int 21h

       JMP exit

    l1:

    mov ah,9
    lea dx,msg3
    int 21h

    mov ah,2
    mov dl,A
    int 21h

    mov ah,2
    mov dl,032
    int 21h

    mov ah,2
    mov dl,B
    int 21h






         exit:
         main endp
end main