Вывести изображение из массива 320×200 прямой записью в видеопамять видеорежима 4 (CGA)

push OAOOOh ;Сегментный адрес видеопамяти
pop es ;в ES.
mov ex,320*200 ;Максимальный номер точки
mov di.cx ;в видеопамяти - 320x200,
mov si, ex ;а в массиве -
inc si ;320x200 + 1.
rep raovsb ;Выполнить копирование в видеопамять

; Заполнение экрана CGA mode 4 (320*200*4) по точкам
 
    .model tiny
    .code
    org 100h
start:  jmp beg
;
; Name:     PixelAddr04
;
; Function: Determine buffer address of pixel in 320x200 4-color mode
;
; Caller:   AX = y-coordinate (0-199)
;       BX = x-coordinate (0-319)
;
; Returns:  AH = bit mask
;       BX = byte offset in buffer
;       CL = number of bits to shift left
;       ES = video buffer segment
;
 
 
OriginOffset    EQU 0       ; byte offset of (0,0)
; Здесь можно поставить сегмент RAM а не видеопамяти
; После изменения изображения можно быстро копировать его в видео память
; с помощью rep movsw
VideoBufferSeg  EQU 0B800h
dotcolor    db 0
 
PixelAddr04:
 
        mov cl,bl       ; CL := low-order byte of x
 
        xchg    ah,al       ; AX := 100h * y
        shr ax,1        ; AL := 80h * (y&1)
        add bh,al       ; BX := x + 8000h*(y&1)
        xor al,al       ; AX := 100h*(y/2)
        add bx,ax       ; BX := x + 8000h*(y&1) + 100h*(y/2)
        shr ax,1
        shr ax,1        ; AX := 40h*(y/2)
        add bx,ax       ; BX := x + 8000h*(y&1) + 140h*(y/2)
        shr bx,1
        shr bx,1        ; BX := x/4 + 2000h*(y&1) + 50h*(y/2)
        add bx,OriginOffset ; BX := byte offset in video buffer
 
        mov ax,VideoBufferSeg
        mov es,ax       ; ES:BX := byte address of pixel
 
        mov ah,3        ; AH := unshifted bit mask
        and cl,ah       ; CL := x & 3
        xor cl,ah       ; CL := 3 - (x & 3)
        shl cl,1        ; CL := # bits to shift left
 
        ret
; вывод точки на cga 320*200*4 cx - x, dx - y,al - цвет (0-3)
pset04: push ax
    push bx
    push cx
    push dx
    push es
    cmp  cx,320
    jnc  ps1
    cmp  dx,200
    jnc  ps1
    mov  dotcolor,al
    mov  ax,dx ; y
    mov  bx,cx ; x
    call pixeladdr04
    mov al,ah ; ставим в позицию точки цвет 0
    shl al,cl
    xor al,255
    and es:[bx],al
    mov al,dotcolor ; ставим в позицию точки цвет color
    shl al,cl
    or  es:[bx],al
ps1:    pop es
    pop dx
    pop cx
    pop bx
    pop ax
    ret
 
; основная программа Весь экран заполняется по точкам
; Это всё равно довольно медленно на слабых компьютерах.
beg:    push cs
    pop  ds
    push cs
    pop  es
    mov ax,4
    int 10h
    mov dx,0
m0: mov cx,319
m1: mov al,1
    call pset04
    loop m1
    inc dx
    cmp dx,200
    jc  m0
    mov ah,0
    int 16h
    mov ax,3
    int 10h
    mov ax,4C00h
    int 21h
    end start