Подскажите в чем ошибки в лабе - Assembler

MASM
model small
.stack 256
.data
p1 dd ?
TABL DB '0123456789ABCDEF'
VI DB '******** $'
per DB 10,13,'$'
.code
 
vivod proc 
.486
pusha
push ax
mov cx,4
mov si,7
 
m1: 
push ax
AND AL,0FH  ; обнуляем старшую часть al
LEA BX,TABL ; преобразуем последную числа в  шестнадцатеричный вид
XLAT        ;
MOV VI[si],AL   ;
dec si
 
POP EAX     ; восстанавливаем значение ax из стека
PUSH EAX    ; сохраняем данные в регистрe ax 
 
SHR AL,4    ; перемещаем старшую часть байта в младшую
LEA BX,TABL ; преобразуем первую числа в  шестнадцатеричный вид
XLAT        ;
MOV VI[si],AL
dec si
 
pop ax
shr ax,8
loop m1     
 
MOV AH,9    ;
LEA DX,VI   ; выводим полученное значение
INT 21H     ;
 
pop eax
mov cx,32
 
m2: shl ax,1; выполняем логический сдвиг влево на один байт
    push ax ; сохроняем данные в регистрe ax
    mov dl,0; записываем 0 в dl
    adc dl,0;  
    add dl,30h; преобразуем в число     
    mov ah,02h; вывод в двоичном виде 
    int 21h;
    pop ax;восстанавливаем значение ax из стека 
loop m2 
 
POPA        
ret     
vivod ENDp

main:   mov ax,@data
    mov ds,ax
    .386
    
    mov ax,040h
    mov es,ax
    mov eax,dword ptr es:[06ch]
    mov p1,eax
 
    call vivod
 
    push eax
 
    mov ah,9
    lea dx,per
    int 21h
 
    pop ax
 
    ror ax,8
 
    call vivod      ; выводим значения
 
    mov ah,7
    int 21h 
    mov ax,4c00h
    int 21h
end main