;****************************************************************************** ; 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 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 times; = 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 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,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 , , , [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: ;------------------------------------------------------------------------------