Subversion Repositories Kolibri OS

;******************************************************************************

;   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 

;

;   Compile with FASM for Menuet

;******************************************************************************

  BTN_HEIGHT  = 22

  TXT_Y       = (BTN_HEIGHT)/2-4

  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 "lang.inc"

include "..\..\..\macros.inc"

;include "../../../debug.inc"             ; debug macros

;------------------------------------------------------------------------------

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

	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

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

	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

;--------------------------------------

align 4

.number:

	shl	ebx,4

	add	ebx,[menu_data]     ; pointer to process table

	mov	[ebx],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: