forked from KolibriOS/kolibrios
93 lines
2.2 KiB
NASM
93 lines
2.2 KiB
NASM
; <--- description --->
|
||
; compiler: FASM 1.67
|
||
; name: Basic window example for KolibriOS
|
||
; version: 1.02
|
||
; last update: 1/03/2007
|
||
; written by: Ivan Poddubny
|
||
; e-mail: ivan-yar@bk.ru
|
||
;modified by: Heavyiron, maxcodehack
|
||
|
||
; <--- include all KolibriOS stuff --->
|
||
include "lang.inc"
|
||
include "..\..\..\..\macros.inc"
|
||
|
||
|
||
; <--- start of KolibriOS application --->
|
||
KOS_APP_START
|
||
|
||
|
||
; <--- start of code --->
|
||
CODE
|
||
|
||
mov eax,48 ; get system colors
|
||
mov ebx,3
|
||
mov ecx,sc
|
||
mov edx,sizeof.system_colors
|
||
mcall
|
||
|
||
redraw: ; redraw event handler
|
||
call draw_window ; at first create and draw the window
|
||
|
||
wait_event: ; main cycle
|
||
mov eax, 10
|
||
mcall
|
||
|
||
dec eax ; if event = 1
|
||
jz redraw ; jump to redraw handler
|
||
dec eax ; else if event = 2
|
||
jz key ; jump to key handler
|
||
|
||
|
||
button: ; button event handler
|
||
mov al, 17 ; get button identifier
|
||
mcall
|
||
|
||
cmp ah, 1
|
||
jne wait_event ; return if button id != 1
|
||
|
||
or eax, -1 ; exit application
|
||
mcall
|
||
|
||
key: ; key event handler
|
||
mov al, 2 ; get key code
|
||
mcall
|
||
|
||
jmp wait_event
|
||
|
||
draw_window:
|
||
mov eax, 12 ; start drawing
|
||
mov ebx, 1
|
||
mcall
|
||
|
||
xor eax, eax ; create and draw the window
|
||
mov ebx, 100*65536+200 ; (window_cx)*65536+(window_sx)
|
||
mov ecx, 100*65536+100 ; (window_cy)*65536+(window_sy)
|
||
mov edx, [sc.work] ; work area color
|
||
or edx, 0x33000000 ; & window type 3
|
||
mov edi, title ; window title
|
||
int 0x40
|
||
|
||
mov eax, 12 ; finish drawing
|
||
mov ebx, 2
|
||
mcall
|
||
|
||
ret
|
||
|
||
; <--- initialised data --->
|
||
DATA
|
||
|
||
if lang eq ru
|
||
title db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>',0
|
||
else if lang eq fr
|
||
title db 'La programme poncive',0
|
||
else
|
||
title db 'Template program',0
|
||
end if
|
||
|
||
; <--- uninitialised data --->
|
||
UDATA
|
||
sc system_colors
|
||
|
||
KOS_APP_END
|
||
; <--- end of KolibriOS application --->
|