Не могу вывести значение в консоль

.8086
.model small
.stack 100h
 
.data
    mass db 1,4,5,3,6       
    summ    dw 0            
    s  db 'Значение = $'
    medium db 0             
    modd db 0               
    
.code 
proc_1 proc                 
    mov cx, 5               
    lea si, [mass]          
    mov al, byte ptr[mass]  
 
l1:    
    mov bl,[si+1]           
    add ax, bx              
    inc si                  
    loop l1                 
    
mov summ, ax                
mov dl, 5                   
div dl                      
add medium, al              
add modd, ah                
ret 12                      
proc_1 endp                 
 
start:
    mov ax, @data           
    mov ds, ax              
    xor ax, ax              
    xor bx, bx              
    call proc_1             
 
    ;вывод на экран
    xor ax,ax
    xor dl,dl
    mov al,medium
    aam 
    add ax, 3030h 
    mov dl, ah 
    mov dh, al 
    mov ah,02 
    int 21h 
    mov dl, dh 
    int 21h
 
exit:
    mov ax, 4C00h
    int     21h 
    
end start

.model small
.386
.stack 100h
 
.data
    mass    dw  1,4,5,3,6       
    len     dw  $ - mass            
.code                 
                  
start:  
    mov ax,@data           
    mov ds, ax     
 
    mov cx,len
    shr cx,1
    xor     ax,ax
 
    lea bx,mass
    go:         
    add ax,[bx]
    add bx,2
    loop go 
    
    mov bl,5
    div bl
    mov dh,ah
 
    call chislo
    mov al,'.'
    int 29h
    xor ax,ax
    mov al,dh
    mov dx,10
    mul dx
    div bl
    call chislo
    
    mov ax, 4C00h
    int 21h 
 
chislo proc
    add al,'0'
    int 29h
    ret
chislo endp
 
 
    
end start

lea si,mass
    go:         
    lodsw
    add bx,ax
    loop go
    mov ax,bx