.MODEL SMALL
.STACK 100H
.DATA
PROMPT DB  'Enter Text',0dh,0ah,'$'
NOCAP_MSG DB 0DH,0AH,'NO capitals $'

CAP_MSG DB   0DH,0AH,' First capital = '

FIRST DB  ']'
      DB  ' Last capital = '
LAST db   '@ $'
.CODE
MAIN PROC

    MOV AX,@DATA
    MOV DS,AX

    MOV AH,9
    LEA DX,PROMPT
    INT 21H

    MOV AH,1
    INT 21H

    CMP AL,0DH
    JE END_WHILE

    CMP AL,'A'
    JNGE END_IF

    CMP AL,'Z'
    JNLE END_IF

    CMP AL,FIRST
    JNL CHECK_LAST
    MOV FIRST,AL

 CHECK_LAST:

    CMP AL,LAST
    JNG END_IF

    MOV LAST,AL

END IF:
    INT 21H
    JMP WHILE

END_WHILE:
    MOV AH,9
    CMP FIRST,']'
    JNE CAPS

    LEA DX,NOCAP_MSG
    JMP DISPLAY

CAPS:

    LEA DX,CAP_MSG
DISPLAY:
    INT 21H

    MOV AH,4CH
    INT 21H
    MAIN ENDP
END MAIN