forked from KolibriOS/kolibrios
148 lines
5.0 KiB
NASM
148 lines
5.0 KiB
NASM
|
;*****************************************************************************
|
|||
|
|
; Example for Box_lib: checkbox
|
|||
|
|
; Copyright (c) 2007-2010, Alexey Teplov aka <Lrz>
|
|||
|
|
; All rights reserved.
|
|||
|
|
;
|
|||
|
|
; Redistribution and use in source and binary forms, with or without
|
|||
|
|
; modification, are permitted provided that the following conditions are met:
|
|||
|
|
; * Redistributions of source code must retain the above copyright
|
|||
|
|
; notice, this list of conditions and the following disclaimer.
|
|||
|
|
; * Redistributions in binary form must reproduce the above copyright
|
|||
|
|
; notice, this list of conditions and the following disclaimer in the
|
|||
|
|
; documentation and/or other materials provided with the distribution.
|
|||
|
|
; * Neither the name of the <organization> nor the
|
|||
|
|
; names of its contributors may be used to endorse or promote products
|
|||
|
|
; derived from this software without specific prior written permission.
|
|||
|
|
;
|
|||
|
|
; THIS SOFTWARE IS PROVIDED BY Alexey Teplov ''AS IS'' AND ANY
|
|||
|
|
; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|||
|
|
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|||
|
|
; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
|
|||
|
|
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|||
|
|
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|||
|
|
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
|||
|
|
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|||
|
|
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|||
|
|
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|||
|
|
;******************************************************************************
|
|||
|
|
|
|||
|
|
use32
|
|||
|
|
org 0x0
|
|||
|
|
;------------ <head> from kolibrios programm
|
|||
|
|
db 'MENUET01'
|
|||
|
|
dd 0x01
|
|||
|
|
dd START
|
|||
|
|
dd MEM_END
|
|||
|
|
dd PRIL_END
|
|||
|
|
dd PRIL_END
|
|||
|
|
dd 0x0
|
|||
|
|
dd cur_dir_path
|
|||
|
|
;------------ </head>
|
|||
|
|
;------------ <include macros>
|
|||
|
|
include '../../../../macros.inc'
|
|||
|
|
include '../load_lib.mac'
|
|||
|
|
include 'box_lib.mac'
|
|||
|
|
;include 'macros.inc'
|
|||
|
|
;include 'load_lib.mac'
|
|||
|
|
;------------ </include macros>
|
|||
|
|
;------------ <init library>
|
|||
|
|
@use_library
|
|||
|
|
;------------ </init library>
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
;--- Start of program ----------------------------------------------
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
START:
|
|||
|
|
sys_load_library library_name, cur_dir_path, library_path, system_path, \
|
|||
|
|
err_message_found_lib, head_f_l, myimport, err_message_import, head_f_i
|
|||
|
|
test eax,eax
|
|||
|
|
jnz exit
|
|||
|
|
|
|||
|
|
window:
|
|||
|
|
call draw_window ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
|
|||
|
|
align 4
|
|||
|
|
still: ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
mcall 10 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
dec eax
|
|||
|
|
jz window
|
|||
|
|
dec eax
|
|||
|
|
jz key
|
|||
|
|
dec eax
|
|||
|
|
jz button
|
|||
|
|
|
|||
|
|
push dword check1
|
|||
|
|
call [check_box_mouse]
|
|||
|
|
|
|||
|
|
push dword check2
|
|||
|
|
call [check_box_mouse]
|
|||
|
|
|
|||
|
|
jmp still ;<3B><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
button:
|
|||
|
|
mcall 17 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
test ah,ah ;<3B><><EFBFBD><EFBFBD> <20> ah 0, <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> still
|
|||
|
|
jz still
|
|||
|
|
exit: mcall -1
|
|||
|
|
key:
|
|||
|
|
mcall 2 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 2 <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> eax <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
jmp still
|
|||
|
|
|
|||
|
|
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
|||
|
|
align 4
|
|||
|
|
draw_window: ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
mcall 12,1
|
|||
|
|
mcall 0,(50*65536+390),(30*65536+200),0x33AABBCC,0x805080DD,hed
|
|||
|
|
|
|||
|
|
push dword check1
|
|||
|
|
call [check_box_draw]
|
|||
|
|
|
|||
|
|
push dword check2
|
|||
|
|
call [check_box_draw]
|
|||
|
|
|
|||
|
|
mcall 12,2
|
|||
|
|
ret
|
|||
|
|
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
|
|||
|
|
;DATA <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>.
|
|||
|
|
system_path db '/sys/lib/'
|
|||
|
|
library_name db 'box_lib.obj',0
|
|||
|
|
; <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
;system_path db '/sys/lib/box_lib.obj',0
|
|||
|
|
;... <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
|||
|
|
;library_name db 'box_lib.obj',0
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
err_message_found_lib db 'Sorry I cannot load library box_lib.obj',0
|
|||
|
|
head_f_i:
|
|||
|
|
head_f_l db 'System error',0
|
|||
|
|
err_message_import db 'Error on load import library box_lib.obj',0
|
|||
|
|
|
|||
|
|
myimport:
|
|||
|
|
|
|||
|
|
check_box_draw dd aCheck_box_draw
|
|||
|
|
check_box_mouse dd aCheck_box_mouse
|
|||
|
|
version_ch dd aVersion_ch
|
|||
|
|
dd 0,0
|
|||
|
|
|
|||
|
|
|
|||
|
|
aCheck_box_draw db 'check_box_draw',0
|
|||
|
|
aCheck_box_mouse db 'check_box_mouse',0
|
|||
|
|
aVersion_ch db 'version_ch',0
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
check1 check_box (10 shr 16 + 12),(45 shr 16 + 12),6,0x80AABBCC,0,0,check_text,14,ch_flag_en
|
|||
|
|
check2 check_box (10 shr 16 + 12),(60 shr 16 + 12),6,0x80AABBCC,0,0,check_text2,15
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
hed db 'CheckBox Exemples <Lrz> date 03.10.2010',0
|
|||
|
|
hed_end:
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
check_text db 'First checkbox'
|
|||
|
|
check_text2 db 'Second checkbox'
|
|||
|
|
;---------------------------------------------------------------------
|
|||
|
|
MEM_END:
|
|||
|
|
cur_dir_path rb 1024
|
|||
|
|
library_path rb 1024
|
|||
|
|
rb 1024 ;for stack
|
|||
|
|
PRIL_END:
|
|||
|
|
|
|||
|
|
|