Вывод текста по точкам напрямую в видеопамять в графическом режиме

.model small
.386
.stack 100h
data segment 
      fio db 'Hello',0
      coordX dw 0
      coordY dw 0
      widthEc equ 640
data ends
code segment
assume CS:code,DS:data
begin:  mov AX, offset data
        mov DS,AX
        mov AX, 0A000h
        mov ES,AX
        mov AX,0F000h
        mov GS,AX
        lea BX,fio
        ;УСТАНОВКА ВИДОРЕЖИМА
        mov AH,00h
        mov Al,12h
        int 10h
read:   movzx SI,byte ptr [BX]      
        lea ESI,[0FA6Eh+ESI*8]
        mov CX,8
a:      xor DI,DI
        mov DI,coordX
        mov AX,widthEc
        mul coordY
        add DI,AX
        movs byte ptr ES:[DI],GS:[SI]
        inc coordY
        loop a
        inc coordX
        inc BX
        cmp byte ptr [BX],0
        jne read 
exit:   mov AH,00h
        mov AL,03h
        int 10h
        mov AX,4C00h
        int 21h
code ends
        end begin

mov AX, data

.model tiny
org 100h
.code
.386 
      widthEc equ 639
begin:  
        mov AX,12h
        int 10h
        mov AH,05h
        mov AL,0h
        int 10h
        push 0A000h
        pop ES
        push 0F000h
        pop DS
        lea BX,fio
        ;УСТАНОВКА ВИДОРЕЖИМА
read:   movzx SI,byte ptr [BX]      
        lea ESI,[0FA6Eh+ESI*8]
        mov CX,8
a:      xor DI,DI
        mov DI,coordX
        mov AX,widthEc
        mul coordY
        add DI,AX 
        movs byte ptr ES:[DI],DS:[SI]
        add coordY,1
        loop a
        add coordX,1
        inc BX
        cmp byte ptr [BX],0
        jnz read 
exit:
        mov AH,00h
        mov AL,0
        int 16h
    ;   mov AH,00h
        mov AL,03h
        int 10h
        mov AX,4C00h
        int 21h
         
        fio db "Tarasov Artem",0
        coordX dw 0
        coordY dw 0
code ends
        end begin

    shl si, 1
    shl si, 1
    shl si, 1
    add si, 0FA6Eh

H    db    1,1,0,0,0,0,1,1
           1,1,0,0,0,0,1,1
           1,1,0,0,0,0,1,1
           1,1,1,1,1,1,1,1
           1,1,1,1,1,1,1,1
           1,1,0,0,0,0,1,1
           1,1,0,0,0,0,1,1
           1,1,0,0,0,0,1,1

;fasm-code 
;---------
org 100h
    mov    ax,12h     ; ставим режим
    int    10h 
 
    mov    ax,1130h   ; информация о шрифте
    mov    bh,1       ; 1 = адрес графического шрифта чз INT-43h
    int    10h        ; ---------------
ret                   ; Выход: cx = 10h - 16 строк растра в символе,
                      ;        dl = 1Dh - 29 знакоряда (инфо строк) в окне,
                      ;     es:bp = C000:3015 - адрес образов шрифта 9х16.

     mov   bx,3015h         ; база
     mov   si,byte[bx+'T']  ; берём из образов первый байт символа 'T'.

fio   db  'Tarasov Artem'
len   =   $ - fio          ; длина строки
buff  db  16*len dup(0)    ; буфер под образы (16-байт на символ)
 
;----------------
     push  0C000h
     pop   ds
     mov   dx,len            ; длина строки
     mov   bx,fio            ; её адрес
     mov   di,buff           ; приёмник
     mov   si,3015h          ; база 
     xor   ax,ax
@1:  mov   al,byte[es:bx]    ; читаем очередной символ из 'fio'
     inc   bx                ;        (сл.символ..)
     push  si                ; запомнить базу!
     add   si,ax             ; получаем адрес образа символа
     mov   cx,16             ; длина образа
     rep   movsb             ; копируем очередной образ (16-байт)
     pop   si                ; базу на место
     dec   dx                ; все образы скопировали?
     jnz   @1                ; нет..

;fasm-code 
;----------
org  100h
jmp  start
 
fio   db  'Tarasov Artem'
 
start: mov  ax,12h
       int  10h 
 
       mov  ah,9
       mov  dx,fio 
       int  21h
 
       xor  ax,ax 
       int  16h
       mov  ax,3
       int  10h
       ret

.model small
 
.stack 100h
 
.data
        CrLf            db      0Dh, 0Ah, '$'
        azMsg           db      'My Little String!', 0
 
        Mode0D_W        equ     320     ;ширина экрана в пикселях для видеорежима 0Dh
        Mode0D_H        equ     200     ;высота экрана в пикселях для видеорежима 0Dh
        Mode0D_C        equ     16      ;количество цветов для видеорежима 0Dh
        Mode0D_A        equ     0A000h  ;начальный адрес видеопамяти для видеорежима 0Dh
 
        lpFontTable8x14 dw      2 dup(?);указатель на таблицу символов 8x14
        FontH           equ     14      ;количество строк в описании глифа
 
        Xstart          dw      100     ;координаты начала надписи
        Ystart          dw      70
 
        Xcurr           dw      ?       ;текущие координаты
        Ycurr           dw      ?
 
        Color           db      3       ;цвет выводимого текста
 
.code
 
main    proc
        mov     ax,     @data
        mov     ds,     ax
 
        ; установка графического видео режима
        mov     ax,     000Dh
        int     10h
 
        ;возьмём какую-нибудь таблицу знакогенератора
        ;например, 8x14
 
        ;Get EGA information
        mov     ax,     1130h
        mov     bh,     2       ;2 = return ES:BP => ROM 8x14 font table addr
        int     10h
        mov     lpFontTable8x14, bp
        mov     lpFontTable8x14+2, es
 
        mov     ax,     Xstart
        mov     Xcurr,  ax
        mov     ax,     Ystart
        mov     Ycurr,  ax
        lea     si,     azMsg
        cld
ForByChar:
        lodsb                   ;al - очередной символ строки
        or      al,     al      ;конец строки? - прервать цикл
        jz      Break
 
        mov     cx,     FontH   ;цикл по строкам глифа
        mul     cl              ;di=(код символа)*(размер глифа) - смещение строки текущего глифа
        mov     di,     ax
ForByLines:
        push    ax
        push    cx
 
        mov     ah,     es:[bp+di]      ;считываем очередную строку глифа
        mov     cx,     8
ForByBits:
        mov     al,     0       ;сдвигаем биты влево, и выбираем цвет точки
        shl     ah,     1
        sbb     al,     0       ;если бит был равен 0 - то al:=0
        and     al,     Color   ;если бит был равен 1 - то al:=Color
 
        push    ax
        push    bx
        push    cx
        push    dx
        ;установка графической точки
        mov     ah,     0Ch
        mov     bh,     0       ;номер видеостраницы
        mov     dx,     Ycurr   ;строка
        mov     cx,     Xcurr   ;колонка
        ;mov    al,     1       ;цвет (+80h означает XOR с точкой на экране)
        int     10h
        pop     dx
        pop     cx
        pop     bx
        pop     ax
 
        inc     word ptr [Xcurr]        ;следующую точку выводить правее
        loop    ForByBits
 
        ;сместиться на одну строку вниз при выводе следующей линии глифа
        inc     word ptr [Ycurr]
        ;вернуться на начальную колонку при выводе след. линии глифа
        sub     [Xcurr],word ptr 8
        pop     cx
        pop     ax
        add     di,     1       ;переходим к рассмотрению следующей строки глифа
        loop    ForByLines
 
        ;для вывода глифа следующего символа
        ; - уменьшить строку на высоту глифа
        sub     [Ycurr],word ptr FontH
        ; - сдвинуть колонку на ширину глифа
        add     [Xcurr],word ptr 8
        jmp     ForByChar
Break:
        ;ожидание нажатия любой клавиши
        mov     ah,     08h
        int     21h
        ;переключение в текстовый режим
        mov     ax,     0003h
        int     10h
        ;завершение программы
        mov     ax,     4C00h
        int     21h
main    endp
 
end     main