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

;******************************************************************************
;   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:
;---------------------------------------------------------------------