Нажатием левой кнопки мыши выбирать и запоминать цвет, при нажатии правой кнопки мыши - устанавливать выбранный цвет

.model small
 
.stack 100h
 
.data
        ;коды клавиш
        KeyCode_Esc                     equ     1Bh     ;Esc
 
        ;Константы событий "мыши"
        MouseEvent_None                 equ     0000h   ;Удалить пользовательский обработчик
        MouseEvent_Move                 equ     0001h   ;любое перемещение
        MouseEvent_PressLeftButton      equ     0002h   ;нажатие левой кнопки
        MouseEvent_ReleaseLeftButton    equ     0004h   ;отпускание левой кнопки
        MouseEvent_PressRightButton     equ     0008h   ;нажатие правой кнопки
        MouseEvent_ReleaseRightButton   equ     0010h   ;отпускание правой кнопки
        MouseEvent_PressMiddleButton    equ     0020h   ;нажатие средней кнопки
        MouseEvent_ReleaseMiddleButton  equ     0040h   ;отпускание средней кнопки
 
        MouseInitOk                     equ     0FFFFh  ;инициализация мыши - успешна
        MouseInitFault                  equ     0000h   ;инициализация мыши - мышь или драйвер мыши не установлены
 
        MouseButtons_Any                equ     0000h   ;количество кнопок у мыши - отлично от 2 и 3
        MouseButtons_2                  equ     0002h   ;количество кнопок у мыши - 2
        MouseButtons_2_                 equ     0FFFFh  ;количество кнопок у мыши - 2
        MouseButtons_3                  equ     0003h   ;количество кнопок у мыши - 3
 
        ;сообщения программы
        msgMouseFault                   db      'The mouse or mouse driver was not detected.', 13, 10, '$'
 
        Color                           db      0
        ValidColor                      db      0
.code
 
;Ожидание нажатия клавиши на клавиатуре
;вход
; - нет
;выход
;ax - al - ASCII код нажатой клавиши, ah - скан-код
ReadKey         proc
        mov     ah,     00h
        int     16h
        ret
ReadKey         endp
 
;Инициализация работы с "мышью"
;Выполняется аппаратный и программный сброс мыши и драйвера
;вход
; - нет
;выход
;ax - результат инициализации
;   - 0000h, если мышь или драйвер мыши не установлены
;   - FFFFh, если драйвер и мышь установлены
;bx - число кнопок
;   - 0002 или FFFF - две
;   - 0003 - три
;   - 0000 - другое количество
MouseInit       macro
        mov     ax,     0000h
        int     33h
endm
 
;Показать курсор "мыши"
;вход
; - нет
;выход
; - нет
MouseShowCursor macro
        push    ax
        mov     ax,     0001h
        int     33h
        pop     ax
endm
 
;Спрятать курсор "мыши"
;вход
; - нет
;выход
; - нет
MouseHideCursor macro
        push    ax
        mov     ax,     0002h
        int     33h
        pop     ax
endm
 
;Установить/удалить обработчик событий от "мыши"
;вход
;ES:DX = адрес обработчика
;СХ = условие вызова
;   бит 0 — любое перемещение мыши
;   бит 1 — нажатие левой кнопки
;   бит 2 — отпускание левой кнопки
;   бит 3 — нажатие правой кнопки
;   бит 4 — отпускание правой кнопки
;   бит 5 — нажатие средней кнопки
;   бит 6 — отпускание средней кнопки
;СХ = 0000h — отменить обработчик;выход
;выход
; - нет
MouseSetHandler proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    es
 
        mov     ax,     000Ch
        int     33h
 
        pop     es
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
MouseSetHandler endp
 
;Обработчик событий "мыши"
;вход
;АХ содержит условие вызова,
;ВХ - состояние кнопок,
;СХ, DX - X- и Y-координаты курсора,
;SI, DI - счетчики последнего перемещения по горизонтали и вертикали
;      (единицы измерения для этих счетчиков - мики, 1/200 дюйма),
;DS - сегмент данных драйвера мыши.
;выход
; - нет
MyMouseHandler  proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    si
        push    di
        push    es
        push    ds
 
        push    ax
        ;настройка сегментных регистров
        mov     ax,     0B800h
        mov     es,     ax
        mov     ax,     @data
        mov     ds,     ax
        ;пересчёт координат курсора к экранным
        shr     cx,     1       ;x
        shr     cx,     1
        shr     cx,     1
 
        shr     dx,     1       ;y
        shr     dx,     1
        shr     dx,     1
        ;вычисление адреса видеопамяти, соответсвующего
        ;экраным координатам
        mov     ax,     160
        mul     dx
        add     ax,     cx
        add     ax,     cx
        mov     si,     ax
        ;спрятать курсор мыши
        MouseHideCursor
 
        pop     ax
 
@@IsLeftButton:
        test    ax,     MouseEvent_PressLeftButton
        je      @@IsRightButton
        ;проверка нахождения курсора в первых 16 символах первой строки
        cmp     si,     16*2
        jae     @@mmhExit
        ;копирование цвета фона прямым обращением к памяти
        mov     al,     es:[si+1]
        mov     [Color],        al
        mov     [ValidColor],   1
        jmp     @@mmhExit
@@IsRightButton:
        ;если цвет фона ещё не копировался - выйти
        cmp     [ValidColor],   0
        je      @@mmhExit
        ;проверка нахождения курсора в первых 16 символах первой строки
        cmp     si,     16*2
        jb      @@mmhExit
        ;установка цвета фона прямым обращением к видеопамяти
        mov     al,     [Color]
        mov     es:[si+1],      al
@@mmhExit:
        ;показать курсор
        MouseShowCursor
        pop     ds
        pop     es
        pop     di
        pop     si
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        retf
MyMouseHandler  endp
 
;Заполнение экрана символами
FillScreen      proc
        push    ax
        push    bx
        push    cx
        push    dx
        push    si
        push    di
        push    es
 
        mov     ax,     0B800h
        mov     es,     ax
        mov     si,     0
 
 
        mov     bl,     0       ;символ
        mov     bh,     0       ;цвет
        mov     cx,     25*80   ;количество знакомест на экране
@@ForWhole:
        and     bx,     0F0Fh
        mov     ax,     bx
        add     al,     'A'
        add     ah,     3       ;цвет фона делаем отличным от цвета символа
        and     ah,     07h
        shl     ah,     1
        shl     ah,     1
        shl     ah,     1
        shl     ah,     1
        or      ah,     bh      ;к цвету фона добавляем цвет символа
 
        mov     es:[si],ax      ;записываем символ и его атрибут (цвета)
        add     si,     2       ;переходим к следующему адресу символа на экране
 
        add     bx,     0101h   ;изменяем цвет и номер выводимого символа
 
        loop    @@ForWhole
 
        ;В первую строку экрана вывести 16 символов NUL (ASCII код 0)
        ;с различными значениями атрибута фона
        mov     cx,     16
        mov     ax,     0
        mov     di,     0
@@ForFirst16:
                stosw
                add     ah,     10h
        loop    @@ForFirst16
 
        pop     es
        pop     di
        pop     si
        pop     dx
        pop     cx
        pop     bx
        pop     ax
        ret
FillScreen      endp
 
;основная программа
main            proc
        mov     ax,     @data
        mov     ds,     ax
 
        ;попытка инициализации мыши
        MouseInit
        cmp     ax,     MouseInitOk
        je      @@MouseInitOk
        ;если инициализация не удалась - вывести сообщение
        ;и завершить программу
        mov     ah,     09h
        lea     dx,     msgMouseFault
        int     21h
        jmp     @@Exit
 
@@MouseInitOk:
        ;заполнение экрана
        call    FillScreen
        ;установить признак, что сохранённый цвет фона недействительный
        mov     [ValidColor],   0
        ;установить пользовательский обработчик событий "мыши"
        push    es
        mov     ax,     seg MyMouseHandler
        mov     es,     ax
        mov     dx,     offset  MyMouseHandler
        mov     cx,     MouseEvent_PressRightButton OR MouseEvent_PressLeftButton
        call    MouseSetHandler
        pop     es
        ;показать курсор
        MouseShowCursor
        ;цикл ожидания нажатия кнопки ESC
        ;в цикле проверяется работа обработчика мыши
@@WaitEscapePressed:
        call    ReadKey
        cmp     al,     KeyCode_Esc
        jne     @@WaitEscapePressed
 
        ;завершение работы с "мышью"
        ; - спрятать курсор
        MouseHideCursor
        ; - удалить пользовательский обработчик прерывания
        mov     cx,     MouseEvent_None
        call    MouseSetHandler
 
@@Exit:
        mov     ax,     4C00h
        int     21h
main            endp
 
end     main