Code: Select all

unit ww;
interface

type system_colors = record
  frame: integer;
  grab: integer;
  grab_button: integer;
  grab_button_text: integer;
  grab_text: integer;
  work: integer;
  work_button: integer;
  work_button_text: integer;
  work_text: integer;
  work_graph: integer;
end;

const
  wnd_x = 200;
  wnd_y = 200;
  wnd_w = 317;
  wnd_h = 116;
 
procedure main;
Procedure Wnd_DrawBegin;  Assembler;
Procedure Wnd_DrawEnd;    Assembler;
Procedure Wnd_SetWindows; Assembler;

var
  sc: system_colors;
  psc: pointer;
  key: cardinal;
  wnd_c: pchar;

implementation

procedure main;
label xstart,xdraw,xstill,xkey,xbutton,xexit;
begin
  psc := @sc;
  wnd_c := 'Hello World!';
asm

xstart:
    call    xdraw

xstill:
    mov     eax,10                        // функция 10 - ждать события
    int     $40                           // Прерывание
    cmp     eax,1                         // перерисовать окно ?
    je      xstart                        // если да - на метку xstart
    cmp     eax,2                         // нажата клавиша ?
    je      xkey                          // если да - на key
    cmp     eax,3                         // нажата кнопка ?
    je      xbutton                       // если да - на button
    jmp     xstill                        // если другое событие - в начало цикла

xkey:
    mov     eax,10                        // функция 2 - считать код символа (в ah) (тут в принципе не нужна)
    int     $40                           // Прерывание
    jmp     xstill                        // вернуться к началу цикла

xbutton:
    mov     eax,17                        // функция 17 - получить идентификатор нажатой кнопки
    int     $40                           // Прерывание
    cmp     ah, 1                         // если нажата кнопка с номером 1,
    jz      xexit                         // выходим
    jmp     xstill                        // вернуться к началу цикла
  xexit:
    mov     eax,-1                        // функция -1 - выход
    int     $40                           // Прерывание

  xdraw:
    call    Wnd_DrawBegin
    call    Wnd_SetWindows


    mov     eax,48                        // Функция 48 - стили отображения окон.
    mov     ebx,4                         // Подфункция 4 - возвращает eax = высота скина.
    int     $40                           // Прерывание
    mov     ecx,eax                       // Запоминаем высоту скина

    xor     eax,eax                       // Очищаем eax (mov eax,0) (Функция 0)
    mov     ebx,wnd_x shl 16+wnd_w        // [координата по оси x]*65536 + [размер по оси x]
    add     ecx,wnd_y shl 16+wnd_h        // Высота скина + [координата по y]*65536 + [размер по y]
    mov     edx,[sc.work]
    or      edx,$34000000                 // Или окно со скином фиксированных размеров
    mov     edi,wnd_c                     // Заголовок окна
    int     $40                           // Прерывание


    call    Wnd_DrawEnd    
    ret
end;

end;

Procedure Wnd_DrawBegin(); Assembler;
Asm
 mov    eax,12
 mov    ebx,1
 int    $40
End;

Procedure Wnd_DrawEnd(); Assembler;
Asm
 mov    eax,12
 mov    ebx,2
 int    $40
End;

Procedure Wnd_SetWindows; Assembler;
Asm
    mov     eax,48                        // Функция 48 - стили отображения окон
    mov     ebx,3                         // Подфункция 3 - получить стандартные цвета окон.
    mov     ecx,psc                        // Указатель на буфер размером edx байт, под структуру
    mov     edx,40                        // Размер таблицы цветов (должен быть 40 байт)
    int     $40                           // Прерывание
end;

begin
  main();
end.