Asm

Примеры программирования на Ассемблере

Простой пример обработки сообщения от мыши.
Для обработки сообщения от мыши в DOS`е нам потребуется прерывание 33h.

int 33h
 
Вход:  ax =0000h
Выход: ax =0000h, если мышь или драйвер мыши не установлены.
       ax =0ffffh, драйвер и мышь установлены.
       Bx=число кнопок:
         0002 или 0ffffh – две
         0003 – три
         0000 – другое количество
int 33h
Вход:     ax=0001h
 
Спрятать курсор:
 
int 33h
Вход:     ax=0002h
int 33h
Вход:     ax=000сh
             es:dx = адрес обработчика
             cx      = условие вызова
               бит 0: любое перемещение
               бит 1: нажатие левой копки
               бит 2: отпускание левой копки
               бит 3: нажатие правой копки
               бит 4: отпускание правой копки
               бит 5: нажатие средней копки
               бит 6: отпускание средней копки
             cx = 0000h – отменить обработчик

Обработчик оформляется как дальняя процедура, на входе ax — содержит условие вызова, bx – состояние кнопок, cx и dx – x и y координаты курсора, si и di – счетчик последнего перемещения по горизонтали и вертикали, ds – сегмент данных драйвера мыши.

Делать будем com программу, используя TASM, параметры транслятора и компоновщика такие:

bin\tasm mouse.asm
bin\tlink /t /x mouse.obj
 
/t – создать файл типа .com
 
/x – не создавать файл карты(map)
 
.model tiny ; код, данные и стек размещаются в одном сегменте, размером 64 кб
.code       ; основной сегмент кода
org       100h ; счетчик для com
start:     
            mov ax,12h ;установка видеорежима 640х480, 16 цветов
            int 10h
            mov ax,0000h ;инициализация мыши
            int 33h
            mov ax,0ch ; установка обработчика мыши
            mov cx,0001h  ; любое перемещение
            lea dx,handler_I ; смещение обработчика
            int 33h
;-----------------------------------------
            mov ah,10h ; ждем нажатие любой кнопки
            int 16h
            mov ax,000ch
            mov cx,0000h ; отменяем обработчик
            int 33h
            ret ; конец программы
            handler_I: ; наш обработчик
 
; cx и dx – x и y координаты курсора, а для  int 10h это номера строки и столбца
            push cs
            pop ds ; в ds сегмент кода и  данные программы
            mov bh,0 ; номер видеостраницы
            mov ah,0ch ; вывести точку на экран
            mov al,color_m ; цвет точки
            int 10h
            retf ; выход из процедуры  
color_m   db        0000010          
 
end      start

Здесь необходимо заметить, что в режиме 12h возвращаемые координаты совпадают с координатами пикселов. Если использовать режим 13h, то необходимо координату X разделить на 2. Программу можно оптимизировать, необходимо в обработчике мыши использовать прямую запись в видеопамять вместо прерывания 10h.

Массивы на Ассемблере

Создание одномерного массива на Ассемблере.

.model tiny
.code
org     100h
start:  
        push cs
        pop ds
;---------------------------------------
        mov cx,99       ;Значение счетчика циклов для команды loop
        mov si,0        ;Индекс первого элемента, si так же будет и значением
ARR_loop:
        mov array[si],si;array[0]=0,array[1]=1...array[n]=n
        inc si
loop ARR_loop   ;цикл
        int 20h
;---------------------------------------
array   dw      99 dup (?)      ;Не инициализированный массив   
end     start

Создание двухмерного массива на Ассемблере.

.model tiny
.code
org     100h
start:  
        push cs
        pop ds          ;в сегмент данных заносим сегмент кода
        mov si,0        ;Начальная строка
        mov bx,0        ;Начальный столбец
;---------------------------------------
array_loop:
        mov array[bx][si],bx    ;Заполняем элементы массива текущим индексом столбца
        inc si                  ;На следующий элемент строки
        cmp si,10               ;Конец строки?
        jz NextLine             ;если да, переходим на метку NextLine
        jmp array_loop          ;иначе, продолжаем заполнять строку
NextLine:
        mov si,0        ;Обнуляем индекс элемента строки
        inc bx          ;Переходим на следующий столбец
        cmp bx,10       ;Последний столбец?
        jz exit         ;если да,выход
        jmp array_loop  ;иначе, продолжаем заполнять следующею строку
exit:
;---------------------------------------
        int 20h ;Выход из com программы
;---------------------------------------
array   dw      10 dup (10 dup (?))     
end     start

Поиск числа в двухмерном массиве на Ассемблере.

.model tiny
.code
org     100h
start:  
        push cs
        pop ds          ;в сегмент данных заносим сегмент кода
        mov si,0
        mov bx,0
;Поиск----------------------------------
array_find:
        mov ax,array[bx][si]
        call Proverka
        inc si                  ;На следующий элемент строки
        cmp si,2                ;Конец строки?
        jz NLine                ;если да, переходим на метку NextLine
        jmp array_find          ;иначе, продолжаем заполнять строку
NLine:
        mov si,0        ;Обнуляем индекс элемента строки
        inc bx          ;Переходим на следующий столбец
        cmp bx,3        ;Последний столбец?
        jz exit         ;если да,выход
        jmp array_find  ;иначе, продолжаем заполнять следующею строку
exit:
;---------------------------------------
        int 20h ;Выход из com программы
;---------------------------------------
array   dw      2 dup (3 dup (0))
message db      "Yes ",0dh,0ah,'$'
;---------------------------------------
Proverka    proc   
        cmp ax,0
        jz YES
        ret
YES:    mov ah,9
        mov dx,offset message
        int 21h
        ret
Proverka    endp
end     start

Пример расчета факториала на Ассемблере.
Пример расчета факториала, на мой взгляд, очень полезная программа для понимания работы стека.

.model small
.486
.stack 100h
.code
start:
        mov ax,@data
        mov ds,ax
        mov     res,1
        push    5
        call    factorial
;-----------------------------------------------------
        mov ax,4c00h
        int 21h
;-----------------------------------------------------
factorial       proc
        push    bp
        mov     bp,sp
        mov     cx,[bp+4]
        mov     ax,cx
        mul     res
        mov     res,ax
        dec     cx
        jcxz    end_p
        push    cx
        call    factorial
end_p:
        mov     sp,bp
        pop     bp
        ret
factorial       endp
;-----------------------------------------------------
.data
res     dw      0
end     start

Прямая запись в видео память на ассемблере.
Рисование горизонтальной линии, с помощью прямой записи в видео память.

.model tiny     
.code
org 100h
start:
 
        mov al,13h
        int 10h
        mov ax,0A000h
        mov es,ax
        mov dx,320*100+160      ;320*y1+x1(начальная точка)
        mov cx,13               ;Длина линии
        call gline
        mov ah,10h
        int 16h
 
ret
;------------------------------------------------------------
gline    proc
        mov di,dx
        mov al,111b     ;color
        rep stosb       ;копируем al в ES:DI, dec DI
        ret
gline   endp
;------------------------------------------------------------
end start

Вывод ASCII кодов на ассемблере.

.model tiny     
.code
org 100h
start:
 
        mov ax,13h
        int 10h
        mov cx,256     ;Счетчик кругов для loop
        mov ax,0003h   ;Установка видеорижима 3, курсор в 0,0
        int 10h        ;и очистка экрана
        mov ax,0b800h  
        mov es,ax      ;Загружаем в дополнительный сегментный регистр абсол.адрес
        mov di,0       ;Смещение относительно адреса 0b800h
        mov ah,010b    ;Атрибуты, цвет текста зеленый
        mov al,00h     ;ASCII код
        mov es:[di],ax ;Грузим не в регистр а по адресу который наход. в регистре
;----------------------
cloop:
        add di,4       ;Смещение на 4 байта, чтобы выглядело нормально
        inc al         ;Следущий ASCII код                      
        mov es:[di],ax ;Грузим по адресу в видеопамять
        loop cloop     ;Дальше...
;----------------------
        mov ah,10h     ;Ждем нажатие Any Key
        int 16h
ret
end start