Compare 3 numbers and print smallest number

 .model small
 .stack 100h
 .data
 s1 db 'digit 1: $'
 s2 db 0dh,0ah,'$'
 s3 db 0dh,0ah,'$'
 s4 db 0dh,0ah,'output: $'


 .code
 main proc
    mov ax,@data
    mov ds,ax
    mov ah,9
    lea dx,s1
   
    mov ah,1
    int 21h
    mov bl,al
   
    mov ah,9
    lea dx,s2
    int 21h
   
    mov ah,1
    int 21h
    mov cl,al
 
    mov ah,9
    lea dx,s3
    int 21h
     mov ah,1
    int 21h
 
   cmp bl,cl
   jl l1
   cmp cl,al
   jl l3
 
   mov ah,2
   mov dl,al
   int 21h
         
   l1:
   cmp bl,al
   jl l2
    jg l4
   
       
   l2:
   mov dl,0dh
   mov ah,2
   int 21h
   mov dl,0ah
   int 21h
   mov ah,2
   mov dl,bl
   int 21h
    jmp l5
 
    l3:
   mov dl,0dh
   mov ah,2
   int 21h
   mov dl,0ah
   int 21h
       mov ah,2
   mov dl,cl
   int 21h
   jmp l5
     
      l4:
   mov dl,0dh
   mov ah,2
   int 21h
   mov dl,0ah
   int 21h
   mov ah,2
   mov dl,al
   int 21h
       
 
   l5:
 
    main endp
 end main