forked from KolibriOS/kolibrios
102 lines
2.6 KiB
NASM
102 lines
2.6 KiB
NASM
|
; <--- description --->
|
|||
|
|
; compiler: FASM 1.50
|
|||
|
|
; name: Basic window example for MenuetOS
|
|||
|
|
; version: 1.01
|
|||
|
|
; last update: 25/08/2004
|
|||
|
|
; written by: Ivan Poddubny
|
|||
|
|
; e-mail: ivan-yar@bk.ru
|
|||
|
|
|
|||
|
|
|
|||
|
|
; <--- include all MeOS stuff --->
|
|||
|
|
include "lang.inc"
|
|||
|
|
include "macros.inc"
|
|||
|
|
|
|||
|
|
|
|||
|
|
; <--- start of MenuetOS application --->
|
|||
|
|
MEOS_APP_START
|
|||
|
|
|
|||
|
|
|
|||
|
|
; <--- start of code --->
|
|||
|
|
CODE
|
|||
|
|
call draw_window ; at first create and draw the window
|
|||
|
|
|
|||
|
|
wait_event: ; main cycle
|
|||
|
|
mov eax, 10
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
cmp eax, 1 ; if event == 1
|
|||
|
|
je redraw ; jump to redraw handler
|
|||
|
|
cmp eax, 2 ; else if event == 2
|
|||
|
|
je key ; jump to key handler
|
|||
|
|
cmp eax, 3 ; else if event == 3
|
|||
|
|
je button ; jump to button handler
|
|||
|
|
|
|||
|
|
jmp wait_event ; else return to the start of main cycle
|
|||
|
|
|
|||
|
|
|
|||
|
|
redraw: ; redraw event handler
|
|||
|
|
call draw_window
|
|||
|
|
jmp wait_event
|
|||
|
|
|
|||
|
|
|
|||
|
|
key: ; key event handler
|
|||
|
|
mov eax, 2 ; get key code
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
jmp wait_event
|
|||
|
|
|
|||
|
|
|
|||
|
|
button: ; button event handler
|
|||
|
|
mov eax, 17 ; get button identifier
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
cmp ah, 1
|
|||
|
|
jne wait_event ; return if button id != 1
|
|||
|
|
|
|||
|
|
or eax, -1 ; exit application
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
|
|||
|
|
draw_window:
|
|||
|
|
mov eax, 12 ; start drawing
|
|||
|
|
mov ebx, 1
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
mov eax, 0 ; create and draw the window
|
|||
|
|
mov ebx, 100*65536+300 ; (window_cx)*65536+(window_sx)
|
|||
|
|
mov ecx, 100*65536+200 ; (window_cy)*65536+(window_sy)
|
|||
|
|
mov edx, 0x03ffffff ; work area color & window type 3
|
|||
|
|
; mov esi, 0 ; grab color (not used)
|
|||
|
|
; mov edi, 0 ; frame color (not used)
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
mov eax, 4 ; window header
|
|||
|
|
mov ebx, 8*65536+8 ; coordinates
|
|||
|
|
mov ecx, 0x10ffffff ; color & font N1
|
|||
|
|
mov edx, header ; address of text
|
|||
|
|
mov esi, header.size ; length of text
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
mov eax, 12 ; finish drawing
|
|||
|
|
mov ebx, 2
|
|||
|
|
int 0x40
|
|||
|
|
|
|||
|
|
ret
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
; <--- initialised data --->
|
|||
|
|
DATA
|
|||
|
|
lsz header,\
|
|||
|
|
ru, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>",\
|
|||
|
|
en, "Template program",\
|
|||
|
|
fr, "La programme poncive"
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
; <--- uninitialised data --->
|
|||
|
|
UDATA
|
|||
|
|
|
|||
|
|
|
|||
|
|
MEOS_APP_END
|
|||
|
|
; <--- end of MenuetOS application --->
|