Даны 5 символов в стеке, вытащить из стека символы и вставить в стек только заглавные буквы

TITLE Z_Stack
CODE_SEG SEGMENT
    ASSUME CS:CODE_SEG,DS:CODE_SEG,ES:CODE_SEG
    ORG 100H
;use16                 
org 100h   
START   PROC 
     
  
    mov ax,'M'   ;prisvaivaet v registr ax a
    push ax      ;zakidivaet v stek
    mov ax,'s'   ;prisvaivaet v registr ax s
    push ax      ;zakidivaet v stek
    mov ax,'S'   ;prisvaivaet v registr ax s
    push ax      ;zakidivaet v stek
    mov ax,'m'   ;prisvaivaet v registr ax m
    push ax      ;zakidivaet v stek
    mov ax,'a'   ;prisvaivaet v registr ax a
    push ax      ;zakidivaet v stek
;----------------------------------------------------
    pop ax       ;vitaskivaet iz steka
    pop bx       ;vitaskivaet iz steka
    pop cx       ;vitaskivaet iz steka
    pop dx      ;vitaskivaet iz steka
    pop si       ;vitaskivaet iz steka
    
   
    push ax      ;zapisivaet v stek
    push bx      ;zapisivaet v stek
    push cx      ;zapisivaet v stek
    push dx      ;zapisivaet v stek
    push si      ;zapisivaet v stek
    
mov cx,5          ;skolko raz vipolnyaetsya cikl
loop_1:
 
    mov ah,02h          
    pop dx         ;Vivod na ekran
    int 21h           
    loop loop_1
        
exit:
mov ah,08
int 21h
    mov ax,4C00h        
    int 21h             
 
     
CODE_SEG ENDS
     END    START
 
END

cmp al,'A'
jl start 
cmp al,'Z'
jle loop_1

   cmp al,'a'
   jb nestrochnaya_bukva 
   cmp al,'z'
   ja nestrochnaya_bukva
   and al,11011111b; делаем из строчной латинской прописную латинскую

  cmp al,'A'
   jb nepropisnaya_bukva 
   cmp al,'Z'
   ja nepropisnaya_bukva
   вывод AL на экран