Вставить надпись в середину окна

.model small
.stack 100h
.data
    mesg     db "Hi All!!! $"
.code
start:
    xor AL,AL 
    mov BH,10h   ;цвет окна
    mov CH,5     ;координаты окон
    mov CL,10h 
    mov DH,10h
    mov DL,3Eh
    mov AH,6
    int 10h     ;вызываем видео
    call WINDOW ;вызываем окна
    call WINDOW 
    call WINDOW
    call WINDOW
  
    mov ax, @data ; настраивается сегментный регистр
    mov ds, ax
        
    mov ah, 09
    mov dx, offset mesg ; вывод сообщения
    int 21h
    
    mov ah, 01 ; ждет нажатия кнопок
    int 21h
 
    mov ax,4c00h ; выход
    int 21h
 
WINDOW: ADD BH,10h
        ADD CH,1 
        ADD CL,1 
        SUB DH,1 
        SUB DL,1 
        INT 10h
        RET 
 
end start

.model small
.stack 100h
.data
        mesg     db "Hi All!!! $"
    lnt=$-mesg
.code
start:
 
;Очистка экрана.
 
    mov ah,6
    mov al,0
    mov bh,7
    xor cx,cx
    mov dh,24
    mov dl,79
    int 10h 
 
    xor AL,AL 
    mov BH,10h   ;цвет окна
    mov CH,5     ;координаты окон
    mov CL,10h 
    mov DH,10h
    mov DL,3Eh
    mov AH,6
    int 10h     ;вызываем видео
    call WINDOW ;вызываем окна
    call WINDOW 
    call WINDOW
    call WINDOW
  
        mov ax, @data ; настраивается сегментный регистр
    mov ds, ax
 
;Установка курсора.
 
    mov ah,2
    mov bh,0
    sub dh,ch
    shr dh,1
    add dh,ch
    sub dl,cl
    shr dl,1
    add dl,cl
    sub dl,lnt/2
    int 10h
        
    mov ah, 09
    mov dx, offset mesg ; вывод сообщения
    int 21h
        
        mov ah, 01 ; ждет нажатия кнопок
    int 21h
 
    mov ax,4c00h ; выход
    int 21h
 
WINDOW: ADD BH,10h
                ADD CH,1 
                ADD CL,1 
                SUB DH,1 
                SUB DL,1 
                INT 10h
                RET 
 
end start