NASMX библиотеки

BITS 32
 
;подключаем наши библиотеки
 
%include 'nasmx.inc'
 
%include 'x11/xlib.inc'
 
ENTRY demo ;основная наша процедура
 
;делаем импорт библиотек которые будем использовать
 
IMPORT puts
 
IMPORT exit
 
IMPORT XStoreName
 
IMPORT XFreeGC
 
IMPORT XDrawImageString
 
IMPORT XDrawLine
 
IMPORT XSetForeground
 
IMPORT XSetBackground
 
%define RGB(r,g,b) (r << 16)+(g << 8)+(b)
 
; создаем константу которая будет указывать что должно обрабатывать окно
 
%assign OurInputMask ( KeyPressMask + KeyReleaseMask + ExposureMask )
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
SECTION .data
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
strCaption DB 'Hello World', 0 ;переменная которая будет в заголовке окна
 
strMessage DB "Hello World!" ;и эту переменную выведем в окне
 
lenMessage EQU ($-strMessage)
 
oError DD 0
 
strErrorDisplay DB 'XOpenDisplay: could not open connection to X server.', 0
 
strErrorCreation DB 'XCreateSimpleWindow: could not create window.', 0
 
strErrorShow DB 'XMapRaised: could not display window.', 0
 
hGC DD 0
 
hwin DD 0
 
hdisplay DD 0
 
event TIMES 20 DD 0
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
SECTION .text
 
proc Xshutdown ;процедура отвечает за закрытие(удаление) окна
 
locals none
invoke XFreeGC, dword [hdisplay], dword [hGC]
invoke XDestroyWindow, dword [hdisplay], dword [hwin]
xor eax, eax
 
endproc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
;процедура создания окна
proc Xinitialize, dword t, dword x, dword y, dword w, dword h
 
locals ;создаем локальные переменные
 
local hscreen, dword
local hroot, dword
 
endlocals
invoke XOpenDisplay, 0
or eax, eax
jnz .display_ok
invoke puts, strErrorDisplay
return -1
.display_ok: ; если мы тут то окно создано и ax содержит дескриптор окна
mov dword [hdisplay], eax
invoke XDefaultScreen, dword [hdisplay]
mov dword [var(.hscreen)], eax
invoke XDefaultRootWindow, dword [hdisplay]
mov dword [var(.hroot)], eax
;затем рисуем само окно
;и этот код должен быть в одну строчку
invoke XCreateSimpleWindow, dword [hdisplay], dword [var(.hroot)], dword [argv(.x)], dword [argv(.y)], dword [argv(.w)], dword [argv(.h)], 5, RGB(255,100,50), RGB(25,255,230)
or eax, eax
jne .create_ok
invoke puts, strErrorCreation
return -1
.create_ok:
mov dword [hwin], eax
invoke XSelectInput, dword [hdisplay], dword [hwin], OurInputMask
invoke XStoreName, dword [hdisplay], dword [hwin], dword [argv(.t)]
invoke XMapRaised, dword [hdisplay], dword [hwin]
or eax, eax
jnz .show_ok
invoke puts, strErrorShow
 
return -1
.show_ok:
invoke XCreateGC, dword [hdisplay], dword [hwin], 0, 0
mov dword [hGC], eax
;цвет текста
invoke XSetForeground, dword [hdisplay], dword [hGC], RGB(0,230,0)
;цвет фона на котором будет текст
invoke XSetBackground, dword [hdisplay], dword [hGC], RGB(0,0,0)
xor eax, eax
 
endproc
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
proc Xdrawscreen
 
locals none
invoke XDrawImageString, dword [hdisplay], dword [hwin], dword [hGC], 150, 100, strMessage, lenMessage
 
endproc
 
proc Xeventhandler ;функция проверяет нажали ли мы клавишу
 
locals none
clc ;clear carry
.on_expose:
mov eax, [event] ;помещаем в ах код обработчика событий
cmp eax, Expose ;и сверяем к кодом нажатий клавиш
jnz .on_keypress
;перерисовываем наше окно
invoke Xdrawscreen
jmp .exit
.on_keypress:
cmp eax, KeyPress
jnz .exit
;если клавиша нажата то процедура вернет 1
return 1
.exit:
xor eax, eax
 
endproc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;наша основная процедура
proc demo
 
locals none
invoke Xinitialize, strCaption, 10, 200, 400, 200
cmp eax, -1
je .exit
;;; цикл обрабатывающий события окна
.msg_pump:
 
invoke XNextEvent, dword [hdisplay], event
invoke Xeventhandler
cmp eax, 1
jne .msg_pump
invoke Xshutdown ; вызываем процедуру закрытия окна
xor eax, eax
.exit:
invoke exit, eax ;выход с программы
 
endproc