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

;******************************************************************************
;   MAIN MENU
;******************************************************************************
; last update:  17/04/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Support for boot parameters.
;------------------------------------------------------------------------------
; last update:  22/03/2012
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      Global optimization! The program uses
;               only 32 KB of memory instead of 128 kb is now.
;------------------------------------------------------------------------------
; 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 Kolibri
;******************************************************************************
  BTN_HEIGHT         = 26
  BTN_WIDTH          = 198 ; 178 for a small font
  TXT_Y              = (BTN_HEIGHT)/2-7
  FONT_TYPE          = 0x90000000

  PANEL_HEIGHT       = 20
  MENU_BOTTON_X_POS  = 10
  MENU_BOTTON_X_SIZE = 50
;------------------------------------------------------------------------------
	use32
	org 0x0

	db 'MENUET01'  ; 8 byte id
	dd 0x01        ; header version
	dd START       ; start of code
	dd IM_END      ; size of image
	dd mem_end     ; memory for app
	dd stack_area  ; esp
	dd bootparam   ; boot parameters
	dd 0x0         ; path
;------------------------------------------------------------------------------
include "..\..\..\macros.inc"
include "..\..\..\gui_patterns.inc"
; Formatted debug output:
include "..\..\..\debug-fdo.inc"
__DEBUG__       = 1             ; 0 - disable debug output / 1 - enable debug output
__DEBUG_LEVEL__ = DBG_ERR      ; set the debug level
DBG_ALL       = 0  ; all messages
DBG_INFO      = 1  ; info and errors
DBG_ERR       = 2  ; only errors
;------------------------------------------------------------------------------
align 4
conversion_ASCII_to_HEX:
	xor	ebx,ebx
	cld
	lodsd
	mov	ecx,4
;--------------------------------------
align 4
.loop:
	cmp	al,0x60	; check for ABCDEF
	ja	@f
	sub	al,0x30 ; 0-9
	jmp	.store
;--------------------------------------
align 4
@@:
	sub	al,0x57 ; A-F
;--------------------------------------
align 4
.store:
	and	al,0xf
	rol	ebx,4
	add	bl,al
	ror	eax,8
	dec	ecx
	jnz	.loop

	ret
;------------------------------------------------------------------------------
align 4
START:		       ; start of execution
	mcall	68,11

	mcall 30, 1, default_dir

	; DEBUGF DBG_INFO, "MENU START! sc.work = %x\n", [sc.work]

	mov	esi,bootparam
	cmp	[esi],byte 0
	je	.no_boot_parameters
; boot params - hex
; db '9999'	; +0	Menu button X
; db '9999'	; +4	Menu button X size
; db '9999'	; +8	Menu button Y
; db '9999'	; +12	Menu button Y size
; db '9999'	; +16	Panel height
; db '1000'	; +20	Panel attachment

;	mov	edx,bootparam
;	call	debug_outstr
;	newline

	call	conversion_ASCII_to_HEX
	mov	[menu_button_x.start],ebx

;	dps	"menu_button_x.start: "
;	dpd	ebx
;	newline

	call	conversion_ASCII_to_HEX
	mov	[menu_button_x.size],ebx

;	dps	"menu_button_x.size: "
;	dpd	ebx
;	newline

	call	conversion_ASCII_to_HEX
	mov	[menu_button_y.start],ebx

;	dps	"menu_button_y.start: "
;	dpd	ebx
;	newline

	call	conversion_ASCII_to_HEX
	mov	[menu_button_y.size],ebx

;	dps	"menu_button_y.size: "
;	dpd	ebx
;	newline

	call	conversion_ASCII_to_HEX
	mov	[panel_height],ebx

;	dps	"panel_height: "
;	dpd	ebx
;	newline

	call	conversion_ASCII_to_HEX
	mov	[panel_attachment],ebx

;	dps	"panel_attachment: "
;	dpd	ebx
;	newline
;--------------------------------------
align 4
.no_boot_parameters:
	call	program_exist
	mcall	14
	mov	[screen_size],eax

	mcall	48,3,sc,sizeof.system_colors	; load system colors

	; DEBUGF  DBG_INFO, "sc.work = %x\n", [sc.work]

	mov esi, [sc.work]
	add esi, 0x1a1a1a
	mov ebx, esi
	and ebx, 0xFF000000
	test ebx, ebx
	jz @f
	mov esi, 0x00FFFFFF
@@:
	mov [active_color], esi

	mov  esi, [sc.work]
	cmp  esi, 0xdfdfdf
	jb   @f
	sub  esi, 0x1b1b1b
@@:
	mov [work_color], esi

	mov eax, 68
	mov ebx, 22
	mov ecx, icons_resname
	mov esi, 0 ; SHM_READ
	mcall
	test eax, eax
	jnz @f
	mov [no_shared_resources], 1
	DEBUGF DBG_ERR, "Failed to get ICONS18W from @RESHARE.\nTry rerun @RESHARE.\n"
	jmp .no_res
@@:
	mov [shared_icons_size], edx
	; copy shared icons
	mov esi, eax
	mov ecx, edx
	mcall 68, 12, edx
	mov edi, eax
	mov [shared_icons_ptr], eax
	shr ecx, 2 ; /= 4; ecx = how many dwords in shared icons
	cld
	rep movsd

	; copy shared icons to active icons
	mov esi, [shared_icons_ptr]
	mov ecx, edx
	mcall 68, 12, edx
	mov edi, eax
	mov [shared_icons_active_ptr], eax
	shr ecx, 2 ; /= 4; ecx = how many dwords in shared icons
	cld
	rep movsd

	; fix colors:
	mov esi, [shared_icons_active_ptr]
	mov edi, [shared_icons_ptr]
	xor ecx, ecx
.for1:
	cmp ecx, [shared_icons_size]
	jae .end_for1

	mov eax, esi
	add eax, ecx
	mov edx, [eax]
	cmp edx, [sc.work]
	; DEBUGF DBG_INFO, "eax = %x, sc.work = %x\n", eax, [sc.work]
	jne @f
	mov ebx, [active_color]
	mov [eax], ebx
@@:

	mov eax, edi
	add eax, ecx
	mov edx, [eax]
	cmp edx, [sc.work]
	jne @f
	mov ebx, [work_color]
	mov [eax], ebx
@@:

	add ecx, 4
	jmp .for1
.end_for1:
.no_res:

; get size of file MENU.DAT
	mcall	70,fileinfo
	test	eax,eax
	jnz	close
; get memory for MENU.DAT
	mov	ecx,[procinfo+32]
	mov	[fileinfo.size],ecx
	mcall	68,12
	mov	[fileinfo.return],eax
	mcall	68
	mov	[menu_data],eax
; load MENU.DAT
	mov	[fileinfo],dword 0
	mcall	70,fileinfo
	test	eax,eax
	jnz	close

	test	ebx,ebx	   ; length = 0 ?
	jz	close
	mov	ecx,ebx
	mov	edi,[fileinfo.return]	;mem_end
;--------------------------------------
align 4
newsearch: ; search for next submenu in MENU.DAT
	mov	al,'#'
	cld
	repne	scasb
	test	ecx,ecx	   ; if not found
	jz	close
	call	get_number ; get submenu number from char at edi position to ebx
	test	ebx,ebx
	jnz	.number
	cmp	al,'#'
	je	search_end
;--------------------------------------
align 4
.number:
	shl	ebx,4 ; *= 16 . 16 is size of process table (see virtual at 0 ... stuff in the end of file)
	add	ebx,[menu_data]     ; pointer to process table
	mov	[ebx],edi ; process_table->pointer = edi
	inc	[processes]
	jmp	newsearch
;--------------------------------------
align 4
search_end:
	mov	[end_pointer],edi
	mov	ebx,[processes]
	dec	ebx
	shl	ebx,4
	add	ebx,[menu_data]
;--------------------------------------
align 4
newprocess:
	xor	edx,edx
	mov	ecx,edi
	sub	ecx,[ebx]
	mov	al,10
;--------------------------------------
align 4
newsearch1:
	std
	repne	scasb
	test	ecx,ecx
	je	endprocess
	cmp	[edi],byte 13
	jne	newsearch1
	inc	edx
	jmp	newsearch1
;--------------------------------------
align 4
endprocess:
	mov	esi,ebx
	add	esi,4
	dec	edx
	mov	[esi],dl
	cmp	ebx,[menu_data]
	jbe	search_end1
	sub	ebx,16
	jmp	newprocess
;--------------------------------------
align 4
search_end1:
	mcall	14
	cmp	[panel_attachment],byte 1
	je	@f
	xor	ax,ax
	jmp	.store
;--------------------------------------
align 4
@@:
	sub	ax,[panel_height]	;20
.store:
	mov	ebx,[menu_data]
	mov	[ebx + y_end],ax
	mov	[ebx + x_start],5
	mov	al,[ebx + rows]
	mov	[ebx + cur_sel],al	 ; clear selection
	mov	[ebx + prev_sel],al
	mov	[buffer],0
;------------------------------------------------------------------------------
align 4
thread: ; starts new thread. called when opening each menu
	DEBUGF DBG_INFO, "start new THREAD\n"
	mov	ebp,esp
	sub	ebp,0x1000
	cmp	ebp,0x2000 ; if this is first started thread
	ja	@f
	xor	ebp,ebp ; not free area
;--------------------------------------
align 4
@@:
	mov	eax,[buffer]      ; identifier
	shl	eax,4
	add	eax,[menu_data]
	mov	edi,eax
	mcall	40,100111b	; mouse + button + key + redraw
;------------------------------------------------------------------------------
align 4
red:
	call	draw_window	; redraw
;------------------------------------------------------------------------------
align 4
still: ; event loop
	call	free_area_if_set_mutex

	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
;------------------------------------------------------------------------------
align 4
key:
	mcall	2
	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
;--------------------------------------
align 4
.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
;--------------------------------------
align 4
.nodn:
	cmp	ah,179 	 ; KEY_LEFT
	je	@f
	cmp	ah,13 	 ; ENTER
	jne	.noenter
@@:
	mov	ah,[edi + cur_sel]
	jmp	button1
;--------------------------------------
align 4
.noenter:
	cmp	ah,176 	 ; KEY_RIGHT
	je	@f
	cmp	ah,27 	 ; ESC
	jne	still
	jmp	close
;--------------------------------------
align 4
@@:
	call	get_process_ID
	cmp	[main_process_ID],ecx
	jne	close
	jmp	still
;------------------------------------------------------------------------------
align 4
button:	; BUTTON HANDLER
	mcall	17	; get id
				; dunkaist[
	test	eax,0xfffffe00	; is it system close button? (close signal from @taskbar)
	setz	byte[close_now]	; set (or not set) close_recursive flag
	jz	close		; if so,close all menus
				; dunkaist]
;--------------------------------------
align 4
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 (.next_string) for the next line in MENU.DAT <ah> times; <ah> = button_id
	push	eax
;--------------------------------------
align 4
.next_string:
	; DEBUGF DBG_INFO, ".next_string called\n"
	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
	pop	edi
	or	[close_now],1      ; set close flag
	mov	[mousemask],0
	; if program run failed then start /sys/@open with param
	test	eax,eax
	jns	close
	mov	eax, fileinfo_start.name
	mov [file_open.params], eax
	mcall	70,file_open
	jmp	close
;--------------------------------------
align 4
searchexit:
	pop	edi
	jmp	still
;------------------------------------------------------------------------------
align 4
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 doesn't 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,BTN_WIDTH+1	  ; 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

	; Leency: store vars for case when attachement=top
	pusha
	mov [prior_thread_selected_y_end], bl
	mcall	9,procinfo,-1
	m2m     [prior_thread_y], dword[procinfo+38]
	m2m     [prior_thread_h], dword[procinfo+46]
	popa

	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

	mcall	68,12,0x1000	; stack of each thread is allocated 4 KB
	add	eax,0x1000	; set the stack pointer to the desired position
	mov	edx,eax
	mcall	51,1,thread	; Go ahead!
	jmp	searchexit
;------------------------------------------------------------------------------
align 4
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,BTN_WIDTH	   ; 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
;--------------------------------------
align 4
redrawbut:
	call	draw_only_needed_buttons
;--------------------------------------
align 4
noredrawbut:
	call	backconvert
	bts	[mousemask],eax
	jmp	still
;--------------------------------------
align 4
noinwindow:
	call	backconvert
	btr	[mousemask],eax
	jmp	still
;------------------------------------------------------------------------------
align 4
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]

	cmp	[panel_attachment],byte 1
	je	@f

	xor	ebx,ebx
	jmp	.check_y
;--------------------------------------
align 4
@@:
	mov	ebx,[screen_size]
	sub	bx,word [panel_height]	;PANEL_HEIGHT
;--------------------------------------
align 4
.check_y:
	add	bx,word [menu_button_y.start]
	cmp	bx,ax
	ja	close

	add	bx,word [menu_button_y.size]
	cmp	bx,ax
	jb	close

	shr	eax,16

	mov	ebx,[menu_button_x.start]
	cmp	bx,ax	; MENU_BOTTON_X_SIZE
	ja	close

	add	bx,[menu_button_x.size]
	cmp	bx,ax	; MENU_BOTTON_X_POS
	ja	still
;------------------------------------------------------------------------------
align 4
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
;--------------------------------------
align 4
@@:
	or	eax,-1                 ; close this thread
	mov	[edi + child],al       ; my child is not mine

	call	free_area_if_set_mutex
	call	set_mutex_for_free_area

	mcall
;--------------------------------------
align 4
backconvert:		  ; convert from pointer to process id
	mov	eax,edi
	sub	eax,[menu_data]
	shr	eax,4
	ret
;------------------------------------------------------------------------------
align 4
set_mutex_for_free_area:
; set mutex for free thread stack area
	push	eax ebx
;--------------------------------------
align 4
.wait_lock:
        cmp     [free_my_area_lock], 0
        je      .get_lock
	mcall	68,1
        jmp     .wait_lock
;--------------------------------------
align 4
.get_lock:
        mov     eax, 1
        xchg    eax, [free_my_area_lock]
        test    eax, eax
        jnz     .wait_lock
	mov	[free_my_area],ebp
	pop	ebx eax
	ret
;------------------------------------------------------------------------------
align 4
free_area_if_set_mutex:
	cmp	[free_my_area_lock],0
	je	.end

	push	eax ebx ecx
	mov	ecx,[free_my_area]

	test	ecx,ecx
	jz	@f
	mcall	68,13
;--------------------------------------
align 4
@@:
	xor	eax,eax
	mov	[free_my_area_lock],eax
	pop	ecx ebx eax
;--------------------------------------
align 4
.end:
	ret
;------------------------------------------------------------------------------
;==================================
; get_number
;    load number from [edi] to ebx
;==================================
align 4
get_number:
	push	edi
	xor	eax,eax
	xor	ebx,ebx
;--------------------------------------
align 4
.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
;-------------------------------------
align 4
.finish:
	pop	edi
	ret
;------------------------------------------------------------------------------
align 4
get_process_ID:
	mcall	9,procinfo,-1
	mov	edx,eax
	mov	ecx,[ebx+30]	; PID
	ret
;------------------------------------------------------------------------------
align 4
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
;-----------------------------------------
align 4
.loop:
	push	ecx
	mcall	9,procinfo
	mov	eax,[menu_mame]
	cmp	[ebx+10],eax
	jne	@f
	; temporary to fit into 3 IMG sectors
	;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
;--------------------------------------
align 4
@@:
	pop	ecx
	loop	.loop

	test	edx,edx
	jz	@f
	mcall	-1
;--------------------------------------
align 4
@@:
	ret
;------------------------------------------------------------------------------
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
align 4
draw_window:
	mcall	48,5 ; get working area
	mov	[x_working_area],eax
	mov	[y_working_area],ebx

	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]
	cmp	[panel_attachment],byte 1
	je	@f


	;cmp	ebp,0x000 ; if this is first started thread
	;je .1            ; then show it at the very top

	push  ebx eax
	; if attachement=top
	; then NEW_WIN_Y = PRIOR_WIN_Y + PRIOR_WIN_H - ITEM_H + 1 - SEL_ITEM_Y

	mov ecx, [prior_thread_y]
	add ecx, [prior_thread_h]
	sub ecx, BTN_HEIGHT
	inc ecx

	xor eax, eax
	mov al, [prior_thread_selected_y_end]
	mov ebx, BTN_HEIGHT
	mul ebx

	sub ecx, eax

	mov	[edi + cur_sel],1 ;if attachement=top then set item=1 selected

	pop eax ebx

	jmp	.1
;--------------------------------------
align 4
@@:
	sub	ecx,eax	    ; ecx = Y_START
;--------------------------------------
align 4
.1:
	shl	ecx,16
	add	ecx,eax	    ; ecx = [ Y_START | Y_SIZE ]
	dec ecx

	movzx	ebx,[edi + x_start]
	shl	ebx,16
	mov	bx,BTN_WIDTH	    ; ebx = [ X_START | X_SIZE ]
	mov	edx,0x01000000       ; color of work area RRGGBB,8->color gl
	mov	esi,edx	    ; unmovable window

	mov	eax,[y_working_area]
	shr	eax,16
	ror	ecx,16
	test	cx,0x8000
	jz	@f
	mov	cx,ax
;--------------------------------------
align 4
@@:
	cmp	cx,ax
	ja	@f
	mov	cx,ax
;--------------------------------------
align 4
@@:
	rol	ecx,16
	xor	eax,eax	    ; function 0 : define and draw window
	mcall

;	dps	"[ Y_START | Y_SIZE ] : "
;	dph	ecx
;	newline

;	dps	"[ X_START | X_SIZE ] : "
;	dph	ebx
;	newline

	call	draw_all_buttons
	mcall	12,2
	ret
;------------------------------------------------------------------------------
align 4
draw_all_buttons:
	xor	edx,edx
;--------------------------------------
align 4
.new_button:
	call	draw_one_button
	inc	edx
	cmp	dl,[edi + rows]
	jb	.new_button
	ret
;------------------------------------------------------------------------------
align 4
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
;------------------------------------------------------------------------------
align 4
draw_one_button:
; receives number of button in dl
	push	edx
	mov	eax,8
	mov	ebx,BTN_WIDTH
	movzx	ecx,dl
	imul	ecx,BTN_HEIGHT
	mov [draw_y], ecx
	shl	ecx,16
	add	ecx,BTN_HEIGHT
; edx = button identifier
	mov	esi, [work_color]

	mov [is_icon_active], 0
	inc	dl
	cmp	[edi + cur_sel],dl
	jne	.nohighlight
	mov [is_icon_active], 1

	mov	esi, [active_color]
;--------------------------------------
align 4
.nohighlight:
	or	edx,BT_NOFRAME + BT_HIDE
				; dunkaist[
	add	edx,0xd1ff00	; This makes first menu buttons differ
				; from system close button with 0x000001 id
				; dunkaist]
	mcall
	push edx

	mov edx, esi
	mcall 13 ; draw rect

	mcall , BTN_WIDTH,<[draw_y],1>,[sc.work_light]
	add     ecx, BTN_HEIGHT-1
	mcall , 1
	inc     ecx
	mcall , <BTN_WIDTH,1>, , [sc.work_dark]
	add     [draw_y], BTN_HEIGHT-1
	mcall , BTN_WIDTH,<[draw_y],1>

	pop edx
	movzx	edx,dl
	dec	dl
	imul	ebx,edx,BTN_HEIGHT
	add	ebx,((4 + 18) shl 16) + TXT_Y ; added + 18 (icon size)
	movzx	ecx,dl
	inc	ecx
	mov	edx,[edi + pointer]
;--------------------------------------
align 4
.findline:
	cmp	byte [edx],13 ; if \r encountered => line found
	je	.linefound
	inc	edx ; go to next char
	jmp	.findline
;------------------------------------------------------------------------------
align 4
.linefound:
	inc	edx ; go to next char after \r
	cmp	byte [edx],10 ; if it is not \n then again findline
	jne	.findline
	dec	ecx ; TODO what in ecx? button number?
	jnz	.findline

	mov ecx, [sc.work_text]
	add ecx, FONT_TYPE

	push ecx esi edi ebp
	push ebx ; preserve ebx, it stores coordinates
	mov [tmp], edx
	mov [has_icon], 1
	xor ebx, ebx
@@: ; parse icon number
	inc	edx
	mov	al,[edx]
	; DEBUGF DBG_INFO, "(%u)\n", al
	cmp	al, '0'
	jb	@f
	cmp	al, '9'
	ja	@f
	sub	al, '0'
	imul	ebx,10
	add	ebx,eax
	jmp @b
@@:
	; DEBUGF DBG_INFO, "icon_number = %x al = %u\n", ebx, al
	mov [icon_number], ebx
	cmp al, ' '
	je @f
	; if no space after number then consider that number is a part of caption
	mov edx, [tmp] ; restore edx
	mov [has_icon], 0 ; no icon
@@:
	pop ebx

	mcall	4,,,,21 ; draw menu element caption

	cmp [no_shared_resources], 1
	je @f
	cmp [has_icon], 1
	jne @f
	; draw icon:
	mov eax, ebx
	shr eax, 16
	sub eax, 18 ; 18 - icon width
	movzx ebx, bx

	sub ebx, 2
	shl eax, 16
	add eax, ebx
	add eax, 1 shl 16
	mov [tmp], eax
	mov ebx, [icon_number]
	imul ebx, 18*18*4

	mov ecx, [shared_icons_ptr]
	; DEBUGF DBG_INFO, "is_icon_active = %x\n", [is_icon_active]
 	cmp [is_icon_active], 1
 	jne .not_active_icon
 	mov ecx, [shared_icons_active_ptr]
.not_active_icon:
	add ebx, ecx
	mcall 65, ebx, <18,18>, [tmp], 32, 0, 0

@@:
	pop ebp edi esi ecx

	pop	edx
	ret
;------------------------------------------------------------------------------
align 4
searchstartstring:
	mov	ecx,40
	mov	al,13
	cld
	repne	scasb
	cmp	byte [edi],10
	jne	searchstartstring
	ret
;------------------------------------------------------------------------------
;*** DATA AREA ****************************************************************
menu_mame:   db '@MENU',0
default_dir: db '/sys',0

align 4
free_my_area_lock	dd 0
free_my_area	dd 0

processes      dd 0
;--------------------------------------
menu_button_x:
.start:	dd MENU_BOTTON_X_POS
.size:	dd MENU_BOTTON_X_SIZE
;--------------------------------------
menu_button_y:
.start:	dd 2
.size:	dd 18
;--------------------------------------
panel_height:		dd PANEL_HEIGHT
panel_attachment:	dd 1
;--------------------------------------
align 4
fileinfo:
 .subfunction	 dd 5		; 5 - file info; 0 - file read
 .start 	 dd 0		; start byte
 .size_high	 dd 0		; rezerved
 .size		 dd 0		; bytes to read
 .return	 dd procinfo	; return data pointer
 .name:
     db   'SETTINGS/MENU.DAT',0   ; ASCIIZ dir & filename
;--------------------------------------
align 4
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 ' '
;--------------------------------------
align 4
file_open:
 .subfunction	dd 7	; 7=START /SYS/@OPEN APP WITH PARAM
 .flags		dd 0	; flags
 .params	dd 0x0	; nop
 .rezerved	dd 0x0	; nop
 .rezerved_1	dd 0x0	; nop
 .name:
   db   '/SYS/@OPEN',0
;------------------------------------------------------------------------------
IM_END:
;------------------------------------------------------------------------------
align 4
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 ?
;--------------------------------------
draw_y dd ?
;--------------------------------------
x_working_area:
.right:		dw ?
.left:		dw ?
y_working_area:
.bottom:	dw ?
.top:		dw ?
;--------------------------------------
sc system_colors
;--------------------------------------
last_key	db ?
prior_thread_y dd ?
prior_thread_h dd ?
prior_thread_selected_y_end db ?
;------------------------------------------------------------------------------
align 4
menu_data   dd ?
;--------------------------------------
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

include_debug_strings ; for debug-fdo

icons_resname db 'ICONS18W', 0
shared_icons_ptr dd ?
shared_icons_active_ptr dd ?
shared_icons_size dd ?
has_icon db ?
icon_number dd ?
is_icon_active dd ?
no_shared_resources dd 0
tmp dd ?
active_color dd ?
work_color dd ?
;------------------------------------------------------------------------------
align 4
bootparam:
procinfo:
	rb 1024
;------------------------------------------------------------------------------
align 4
	rb 0x1000
stack_area:
;------------------------------------------------------------------------------
mem_end:
;------------------------------------------------------------------------------