Subversion Repositories Kolibri OS

;   @notify, pop-up windows

;   by Sourcerer, 20.01.2011

;

;---------------------------------------------------------------------

  org    0x0         ; адресация с нуля

  dd     0x01        ; версия заголовка (всегда 1)

  dd     START       ; адрес первой команды

  dd     I_END       ; размер программы

  dd     0x1000      ; количество памяти

  dd     0x1000      ; адрес вершины стэка

  dd     I_PARAM     ; адрес буфера для параметров

  dd     0x0         ; зарезервировано

;---  НАЧАЛО ПРОГРАММЫ  ----------------------------------------------

;---------------------------------------------------------------------

;---  ЦИКЛ ОБРАБОТКИ СОБЫТИЙ  ----------------------------------------

;---------------------------------------------------------------------

    mcall 23, 500

    je exit

    cmp eax, 1

    je red

    cmp eax, 2

    je key

    cmp eax, 3

    je button

    mov     al, 17               ;   get button identifier

    mcall

    jne     still        ;   return if button id != 1

    mov     al, 2                 ;   get key code

    mcall

    mcall -1

;---  ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА  ----------------------------------

;---------------------------------------------------------------------

shr eax, 16

and eax,0x0000FFFF

sub eax,300 ;отнимем от нее 300

shl eax, 16 ;и превратим в координаты окна по оси X

add eax,300

mov ebx, eax

mov ecx, 30 ;высотой 25 пикс

mov edx, 0x41000000 ;черного цвета и без заголовка

mov esi, 0x01000000

mcall

mov eax, 1 ;функция вывода точки

mov edx, 0 ;черного цвета

mov ecx, 30 ;высота окна - 30 пкс

mov esi, 0 ;счетчик сдвига сетки

sub ecx, 1 ;уменьшаем счетчик линий

cmp ecx, 0 ;закончились линии?

je fin ;значит, хватит рисовать

mov ebx, 300 ;иначе - у нас ширина сетки 300 пкс

cmp esi,1 ;имелся ли сдвиг сетки в прошлой линии?

je sw;если да, то перейдем к sw

mov esi,1 ;иначе - сдвиг был выключен, включим сдвиг

jmp drawy ;перейдем к рисованию

mov esi,0 ;выключаем сдвиг сетки

sub ebx, 2 ;ставить точки будем через одну

cmp ebx, 0 ;дорисовали ли мы линию?

je drawx ;если да, то переходим к новой

sub ebx, esi ;применяем сдвиг

mcall ;рисуем

add ebx, esi ;возвращаем счетчик на место

jmp drawy ;рисуем новую точку

mcall  , <5, 12>

mcall  , <4, 11>

mcall  , <4, 13>

mcall  , <4, 12>, 0x80EFEFEF ;текст

;---  ДАННЫЕ ПРОГРАММЫ  ----------------------------------------------

;---------------------------------------------------------------------