Вывод 24-битного BMP-изображения

.286
ASSUME CS:CODE,DS:CODE
CODE segment
ORG 100h
 start:
mov ax,13h
int 10h
 push 0A000h
        pop es
mov di,100*320+100
mov al,00110000b
stosb
mov ah,10h
int 16h
mov di,100*320+101
mov al,00001100b
stosb
mov ah,10h
int 16h
mov di,100*320+102
mov al,00000011b
stosb
mov ah,10h
int 16h
read_size proc
    mov ax,3d00h                    ;3dh- функция для открытия файла 
    lea dx,name_file                ; в dx  начало name_file
    int 21h
    or handle,ax
    mov bx,ax                       ; в bx 16-битный номер файла
    lea dx,buffer                   ; dx  на начало буфер
    mov ah,3Fh                  ;читаем
    mov cx,53                  ;прочитаем 26 байт. Пока нам больше и не надо
    int 21h
    mov ax,word ptr [buffer+2]
    mov _size,ax            ;размер
    mov ax,word ptr [buffer+18]
    mov x,ax                    ; по горизонтали
    mov ax,word ptr [buffer+22]
    mov y,ax                    ;по вертикали
;ret
read_size endp
 
; процедура открытия файла
;думаю тут комментировать нечего
 
 
; процедура чтения файла в буфер
read_x proc                     
    mov bx,handle                           ; в handle 16 битный номер файла
    lea dx,buffer1                          ; dx
    mov ah,3Fh
    mov cx, _size        
    int 21h
  ;      ret
read_x endp
 
 push 0A000h
        pop es
mov di,0
mov si,offset buffer1
;inc si
mov cx,64000
loopsym:
push cx
mov bl,[si]
inc si
mov cl,[si]
inc si
mov bh,[si]
inc si
shr cl,6
shl cl,4
shr bl,6
shl bl,2
shr bh,6
xor al,al
or al,bl
or al,bh
or al,cl
stosb
pop cx
loop loopsym
 
      ;  mov al,00110011b ; число от 0 до 255
    ;    mov di,100*320+100; Х и Y
   ;     stosb; вывел точку заданного цвета в заданные координаты
mov ah,10h
int 16h
int 20h
x dw 0
y dw 0
_size dw 0
handle dw 0
name_file db 'D:\ASM\TestProg\1.bmp',0
buffer db 36h dup (?)
buffer1 db 62000 dup (?)
CODE ends
end start