Написать программу вывода строки на экран: прямой записью в видеопамять / функциями BIOS

use16
org 100h
 
    mov ax, 3
    int 10h        ;stiraem s ekrana i ustanavlivaem rezhim 80*25
 
    mov si,message
    mov dx, si
    push    0B800h
    pop es        ;v ES adres tekstovogo videobufera
    mov di, 30
    mov cx, len
    mov ah, 1
@@: lodsb         ;chitaem simvol
    stosw         ;vyvodim simvol na ekran 
    add di, 158   ; perehodim na sleduyuschuu stroku
    inc ah
    loop    @B
 
;cursor pos
    mov si, dx
    mov di, 1
    mov bp, di
    xor dx, dx
    mov cx, len
@@: mov ah, 2
    mov bx,0
    int 10h
    push    dx
    xchg    cx, bp
    push    ax
    lodsb
    xchg    di, bx
    mov ah, 9
    int 10h
    xchg    cx, bp
    pop ax
    pop dx
    inc dh
    inc bl
    xchg    di, bx
    loop    @B
    mov ah,00h
    int 16h
 
    mov ax,4c00h
    int 21h
    message db 'HELLO WORLD!'
    len=$-message

    org 100h
 
    mov ax,3        ;vidmode 3 - 80*25
    int 10h
 
    mov si,message  ; si -> 'HELLO WORLD!'
    mov dx, si
    push    0B800h
    pop es      ; es = начало видеобуффера
    mov di, 50      ; 25 колонка, от балды
    mov cx, len     ; длина мессаги
    mov ah, 1       ; начальный атрибут, синий
@@: lodsb           ; получаем байт
    stosw           ; сохраняем вместе с атрибутом
    add di, 158     ; (80*2)-2, следующая строка
    inc ah      ; увеличиваем атрибут
    loop    @B      ; по длине строки
 
;cursor pos
    mov si, dx      ; возвращаем указатель взад
    mov di, 1       ; начальный атрибут, синий
    mov bp, di      ; сколько раз вывести символ, потом пригодится
    xor dx, dx      ; начальные координаты: 0,0
    mov cx, len     ; длина мессаги
@@: mov ah, 2           ; выставить позицию курсора
    mov bx,0        ; видеостраница 0
    int 10h
    push    dx      ; сохраняем координаты
    xchg    cx, bp      ; CX=1, сколько раз вывести символ
    push    ax              ; сохраняем двойку
    lodsb           ; AL=символ из строки
    xchg    di, bx      ; BH=видеостраница(0), BL=атрибут
    mov ah,9        ; выводим
    int 10h     ; символ
    xchg    cx, bp      ; вертаем взад длину строки
    pop ax      ; -//- # ф-ции
    pop dx      ; -//- координаты
    inc dh      ; увеличиваем # строки
    inc bl      ; прибавляем аттрибут
    xchg    di, bx
    loop    @B      ; по длине строки
    mov ah,00h      ; getch();
    int 16h
    ret         ; gtfo
    message db 'HELLO WORLD!'
    len=$-message