kolibrios/programs/system/menu/trunk/menu.asm

616 lines
14 KiB
NASM
Raw Normal View History

;******************************************************************************
; MAIN MENU
;******************************************************************************
; last update: 19/09/2011
; changed by: Marat Zakiyanov aka Mario79, aka Mario
; changes: Checking for program exist to memory
; Added processing of keys: left and right arrow
;---------------------------------------------------------------------
; MAIN MENU by lisovin@26.ru
; Some parts of code rewritten by Ivan Poddubny <ivan-yar@bk.ru>
;
; Compile with FASM for Menuet
;******************************************************************************
include "lang.inc"
include "..\..\..\macros.inc"
BTN_HEIGHT = 22
TXT_Y = (BTN_HEIGHT)/2-5
PANEL_HEIGHT = 20
MENU_BOTTON_X_POS = 10
MENU_BOTTON_X_SIZE = 60
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd START ; start of code
dd I_END ; size of image
dd 0x20000 ; memory for app
dd 0x20000 ; esp
dd 0x0,0x0 ; I_Param , I_Icon
;******************************************************************************
;include "DEBUG.INC" ; debug macros
START: ; start of execution
call program_exist
mcall 14
mov [screen_size],eax
mcall 48,3,sc,sizeof.system_colors ; load system colors
mcall 70,fileinfo ; load MENU.DAT
test eax,eax ; error ?
jz @f
cmp eax,6
jnz close
@@:
test ebx,ebx ; length = 0 ?
jz close
mov ecx,ebx
mov edi,mem_end
newsearch:
mov al,'#'
cld
repne scasb
test ecx,ecx ; if not found
jz close
call get_number
test ebx,ebx
jnz .number
cmp al,'#'
je search_end
.number:
shl ebx,4
add ebx,menu_data ; pointer to process table
mov [ebx],edi
inc [processes]
jmp newsearch
;---------------------------------------------------------------------
search_end:
mov [end_pointer],edi
mov ebx,[processes]
dec ebx
shl ebx,4
add ebx,menu_data
newprocess:
xor edx,edx
mov ecx,edi
sub ecx,[ebx]
mov al,10
newsearch1:
std
repne scasb
test ecx,ecx
je endprocess
cmp [edi],byte 13
jne newsearch1
inc edx
jmp newsearch1
;---------------------------------------------------------------------
endprocess:
mov esi,ebx
add esi,4
dec edx
mov [esi],dl
cmp ebx,menu_data
jbe search_end1
sub ebx,16
jmp newprocess
;---------------------------------------------------------------------
search_end1:
mcall 14
sub ax,20
mov [menu_data + y_end],ax
mov [menu_data + x_start],5
mov al,[menu_data + rows]
mov [menu_data + cur_sel],al ; clear selection
mov [menu_data + prev_sel],al
mov [buffer],0
thread:
mov eax,[buffer] ; identifier
shl eax,4
add eax,menu_data
mov edi,eax
mcall 40,100111b ; mouse + button + key + redraw
red:
call draw_window ; redraw
still:
mcall 23,5 ; wait here for event
test [close_now],1 ; is close flag set?
jnz close
cmp eax,1 ; redraw request ?
je red
cmp eax,2 ; key pressed ?
je key
cmp eax,3 ; button in buffer ?
je button
cmp eax,6 ; mouse event ?
je mouse
cmp edi,menu_data
je still ; if main process-ignored
movzx ebx,[edi + parent] ; parent id
shl ebx,4
add ebx,menu_data ; ebx = base of parent info
call backconvert ; get my id in al
cmp al,[ebx + child] ; if I'm not child of my parent, I shall die :)
jne close
jmp still
;---------------------------------------------------------------------
key:
; mov eax,2
mcall
mov [last_key],ah
mov al,[edi + rows] ; number of buttons
cmp ah,178 ; KEY_UP
jne .noup
mov ah,[edi+cur_sel]
mov [edi+prev_sel],ah
dec byte [edi+cur_sel]
jnz redrawbut
mov [edi+cur_sel],al
jmp redrawbut
;---------------------------------------------------------------------
.noup:
cmp ah,177 ; KEY_DOWN
jne .nodn
mov ah,[edi + cur_sel]
mov [edi + prev_sel],ah
inc [edi + cur_sel]
cmp [edi + cur_sel],al
jna redrawbut
mov [edi + cur_sel],1
jmp redrawbut
;---------------------------------------------------------------------
.nodn:
cmp ah,179 ; KEY_LEFT
je @f
cmp ah,13 ; ENTER
jne .noenter
@@:
mov ah,[edi + cur_sel]
jmp button1
;---------------------------------------------------------------------
.noenter:
cmp ah,176 ; KEY_RIGHT
je @f
cmp ah,27 ; ESC
jne still
jmp close
@@:
call get_process_ID
cmp [main_process_ID],ecx
jne close
jmp still
;---------------------------------------------------------------------
; include "DEBUG.INC"
button: ; BUTTON HANDLER
mcall 17 ; get id
; dunkaist[
test eax,0xfffffe00 ; is it system close button? (close signal from @panel)
setz byte[close_now] ; set (or not set) close_recursive flag
jz close ; if so,close all menus
; dunkaist]
button1:
mov esi,edi
push edi
mov edi,[edi + pointer]
; print "hello"
mov al,[esi + cur_sel]
mov [esi + prev_sel],al
mov [esi + cur_sel],ah
pushad
mov edi,esi
; dph eax
call draw_only_needed_buttons
popad
; look for the next line <ah> times; <ah> = button_id
push eax
.next_string:
call searchstartstring
dec ah
jnz .next_string
pop eax
mov ecx,40
mov al,'/'
cld
repne scasb
test ecx,ecx ; if '/' not found
je searchexit
cmp [edi],byte '@' ; check for submenu
je runthread
cmp [last_key],179
je searchexit
dec edi
push edi ; pointer to start of filename
call searchstartstring ; search for next string
sub edi,2 ; to last byte of string
mov ecx,edi
pop esi
sub ecx,esi
inc ecx ; length of filename
mov edi, fileinfo_start.name
rep movsb ; copy string
mov [edi],byte 0 ; store terminator
mcall 70,fileinfo_start ; start program
or [close_now],1 ; set close flag
pop edi
mov [mousemask],0
jmp close
;---------------------------------------------------------------------
searchexit:
pop edi
jmp still
;---------------------------------------------------------------------
runthread:
inc edi
push eax
call get_number ; get number of this process
pop eax
test ebx,ebx ; returned zero - main menu or not number
jz searchexit
mov al,bl
mov ebx,[processes]
dec bl
cmp al,bl
ja searchexit ; such process doesnt exist
cmp al,[esi + child]
je searchexit ; such process already exists
mov [esi + child],al ; this is my child
mov cx,[esi + x_start]
add cx,141 ; new x_start in cx
movzx edx,al
shl edx,4
add edx,menu_data ; edx points to child's base address
mov [edx + x_start],cx ; xstart for new thread
mov cx,[esi + y_end] ; y_end in cx
mov bl,[esi + rows] ; number of buttons in bl
sub bl,ah ; number of btn from bottom
movzx eax,al
mov [buffer],eax ; thread id in buffer
movzx ebx,bl
push edx
mov eax,BTN_HEIGHT
mul ebx
sub cx,ax ; new y_end for new thread
pop edx
mov [edx + y_end],cx ; store y_end
mov edi,esi
call backconvert ; get number of this process (al)
mov [edx + parent],al ; store number of parent process
mov al,[edx + rows]
mov [edx + cur_sel],al ; clear current selected element
mov [edx + prev_sel],al ; clear previous selected element
mov [edx + child],0
cmp [thread_stack],0x1e000
jne thread_stack_not_full
mov [thread_stack],0xE000
thread_stack_not_full:
add [thread_stack],0x2000 ; start new thread
mcall 51,1,thread,[thread_stack]
jmp searchexit
;---------------------------------------------------------------------
mouse: ; MOUSE EVENT HANDLER
mcall 37,0
mov [screen_mouse_position],eax ; eax = [ Y | X ] relative to screen
mcall 37,2
test eax,eax ; check buttons state
jnz click
mcall 37,1
ror eax,16 ; eax = [ Y | X ] relative to window
cmp ax,140 ; pointer in window?
ja noinwindow
; *** in window ***
shr eax,16 ; eax = [ 0 | Y ]
xor edx,edx
mov ebx,BTN_HEIGHT
div ebx
inc eax ; number of "button" in eax
movzx ebx,[edi + rows] ; total strings in ebx
cmp eax,ebx
ja noinwindow
cmp [edi + cur_sel],al
je noredrawbut
mov bl,[edi + cur_sel]
;;;;;;
cmp [edi + child],0
jne noredrawbut
;;;;;;
mov [edi + cur_sel],al
mov [edi + prev_sel],bl
redrawbut:
call draw_only_needed_buttons
noredrawbut:
call backconvert
bts [mousemask],eax
jmp still
;---------------------------------------------------------------------
noinwindow:
call backconvert
btr [mousemask],eax
jmp still
;---------------------------------------------------------------------
click:
cmp [mousemask],0 ; not in a window (i.e. menu)
jne still
; checking for pressing 'MENU' on the taskbar
mov eax,[screen_mouse_position]
mov ebx,[screen_size]
sub bx,PANEL_HEIGHT
cmp bx,ax
ja close
shr eax,16
cmp ax,MENU_BOTTON_X_SIZE
ja close
cmp ax,MENU_BOTTON_X_POS
ja still
;---------------------------------------------------------------------
close:
movzx ebx,[edi+parent] ; parent id
shl ebx,4
add ebx,menu_data ; ebx = base of parent info
call backconvert
cmp [ebx + child],al ; if i am the child of my parent...
jnz @f
mov [ebx + child],-1 ; ...my parent now has no children
@@:
or eax,-1 ; close this thread
mov [edi + child],al ; my child is not mine
mcall
backconvert: ; convert from pointer to process id
mov eax,edi
sub eax,menu_data
shr eax,4
ret
;---------------------------------------------------------------------
;==================================
; get_number
; load number from [edi] to ebx
;==================================
get_number:
push edi
xor eax,eax
xor ebx,ebx
.get_next_char:
mov al,[edi]
inc edi
cmp al, '0'
jb .finish
cmp al, '9'
ja .finish
sub al, '0'
imul ebx,10
add ebx,eax
jmp .get_next_char
;-------------------------------------
.finish:
pop edi
ret
;---------------------------------------------------------------------
get_process_ID:
mcall 9,procinfo,-1
mov edx,eax
mov ecx,[ebx+30] ; PID
ret
;---------------------------------------------------------------------
program_exist:
call get_process_ID
mov [main_process_ID],ecx
mcall 18,21
mov [active_process],eax ; WINDOW SLOT
mov ecx,edx
xor edx,edx
;-----------------------------------------
.loop:
push ecx
mcall 9,procinfo
mov eax,[menu_mame]
cmp [ebx+10],eax
jne @f
mov ax,[menu_mame+4]
cmp [ebx+14],ax
jne @f
cmp ecx,[active_process]
je @f
; dph ecx
mcall 18,2
mov edx,1
@@:
pop ecx
loop .loop
;-----------------------------------------
test edx,edx
jz @f
mcall -1
@@:
ret
;---------------------------------------------------------------------
; *********************************************
; ******* WINDOW DEFINITIONS AND DRAW ********
; *********************************************
draw_window:
mcall 12,1 ; 1,start of draw
movzx ebx,[edi + rows]
imul eax,ebx,BTN_HEIGHT ; eax = height of window
movzx ecx,[edi + y_end]
sub ecx,eax ; ecx = Y_START
shl ecx,16
add ecx,eax ; ecx = [ Y_START | Y_SIZE ]
dec ecx
movzx ebx,[edi + x_start]
shl ebx,16
mov bx,140 ; ebx = [ X_START | X_SIZE ]
mov edx,0x01000000 ; color of work area RRGGBB,8->color gl
mov esi,edx ; unmovable window
xor eax,eax ; function 0 : define and draw window
mcall
call draw_all_buttons
mcall 12,2
ret
;---------------------------------------------------------------------
draw_all_buttons:
xor edx,edx
.new_button:
call draw_one_button
inc edx
cmp dl,[edi + rows]
jb .new_button
ret
;---------------------------------------------------------------------
draw_only_needed_buttons:
xor edx,edx
mov dl,[edi + cur_sel]
dec dl
call draw_one_button
mov dl,[edi + prev_sel]
dec dl
call draw_one_button
ret
;---------------------------------------------------------------------
draw_one_button:
; receives number of button in dl
push edx
mov eax,8
mov ebx,140
movzx ecx,dl
imul ecx,BTN_HEIGHT
shl ecx,16
add ecx,BTN_HEIGHT-1
; edx = button identifier
mov esi,[sc.work]
cmp esi,0xdfdfdf
jb nocorrect
sub esi,0x1b1b1b
nocorrect:
inc dl
cmp [edi + cur_sel],dl
jne .nohighlight
add esi,0x1a1a1a
.nohighlight:
or edx,0x20000000
; dunkaist[
add edx,0xd1ff00 ; This makes first menu buttons differ
; from system close button with 0x000001 id
; dunkaist]
mcall
movzx edx,dl
dec dl
imul ebx,edx,BTN_HEIGHT
add ebx,(4 shl 16) + TXT_Y
movzx ecx,dl
inc ecx
mov edx,[edi + pointer]
.findline:
cmp byte [edx],13
je .linefound
inc edx
jmp .findline
;---------------------------------------------------------------------
.linefound:
inc edx
cmp byte [edx],10
jne .findline
dec ecx
jnz .findline
mcall 4,,[sc.work_text],,21
pop edx
ret
;---------------------------------------------------------------------
searchstartstring:
mov ecx,40
mov al,13
cld
repne scasb
cmp byte [edi],10
jne searchstartstring
ret
;---------------------------------------------------------------------
;*** DATA AREA ****************************************************************
menu_mame:
db '@MENU',0
thread_stack dd 0xE000
processes dd 0
fileinfo:
.subfunction dd 0 ; 0=READ
.start dd 0 ; start byte
.size_high dd 0 ; rezerved
.size dd 0x10000-mem_end ; blocks to read
.return dd mem_end ; return data pointer
.name:
db '/sys/MENU.DAT',0 ; ASCIIZ dir & filename
fileinfo_start:
.subfunction dd 7 ; 7=START APPLICATION
.flags dd 0 ; flags
.params dd 0x0 ; nop
.rezerved dd 0x0 ; nop
.rezerved_1 dd 0x0 ; nop
.name:
times 50 db ' '
;---------------------------------------------------------------------
I_END:
;---------------------------------------------------------------------
close_now dd ? ; close all processes immediately
end_pointer dd ?
buffer dd ?
mousemask dd ? ; mask for mouse pointer location
active_process dd ?
main_process_ID dd ?
screen_mouse_position:
.y dw ?
.x dw ?
screen_size:
.y dw ?
.x dw ?
sc system_colors
menu_data:
rb 0x4000 ;x10000
virtual at 0 ; PROCESSES TABLE (located at menu_data)
pointer dd ? ; +0 pointer in file
rows db ? ; +4 numer of strings
x_start dw ? ; +5 x start
y_end dw ? ; +7 y end
child db ? ; +9 id of child menu
parent db ? ; +10 id of parent menu
cur_sel db ? ; +11 current selection
prev_sel db ? ; +12 previous selection
rb 16-$+1 ; [16 bytes per element]
end virtual
last_key db ?
;---------------------------------------------------------------------
align 4
procinfo:
rb 1024
;---------------------------------------------------------------------
mem_end:
;---------------------------------------------------------------------