0,0 → 1,422 |
; |
; DESKTOP CONTEXT MENU |
; written by Ivan Poddubny |
; |
; ¢â®à - ¢ ®¤¤ã¡ë© |
; e-mail: ivan-yar@bk.ru |
; |
; Compile with flat assembler |
; |
include 'lang.inc' |
include 'macros.inc' |
|
meos_app_start |
code |
|
mov [start_info.mode], 16 |
mov [start_info.params], 0 |
mov [start_info.workarea], work_area |
|
mov eax,40 ; ãáâ ®¢¨¬ ¬ áªã ᮡë⨩ |
mov ebx,100000b ; á ¨â¥à¥áã¥â ⮫쪮 ¬ëèì |
int 0x40 |
|
still: ; £« ¢ë© 横« ®á®¢®£® ¯à®æ¥áá |
|
mov eax,10 ; ¦¤ñ¬ ᮡëâ¨ï |
int 0x40 |
|
cmp eax,6 ; ¬ëèì? |
jne still |
|
mov eax,37 ; ª ª¨¥ ¦ âë ª¯®¯ª¨? |
mov ebx,2 |
int 0x40 |
|
cmp eax,2 ; ¥á«¨ ¥ ¯à ¢ ï, ¢®§¢à â |
jne still |
|
;---¯®¥å «¨!--- |
|
; mov eax,37 ; íâ® ¤«ï ®â« ¤ª¨ - ¥á«¨ ¬ëèì ¢ â®çª¥ (0;0), § ªà®¥¬áï |
; xor ebx,ebx |
; int 0x40 |
; test eax,eax ; ªãàá®à ¢ â®çª¥ (0;0), â.¥. eax = 0 |
; je exit |
|
|
mov eax,9 ; ¯®«ã稬 ç¨á«® ¯à®æ¥áᮢ ¢ á¨á⥬¥ |
mov ebx,procinfo |
xor ecx,ecx |
int 0x40 |
|
inc eax ; ⥯¥àì ¢ eax ᮤ¥à¦¨âáï ç¨á«® ¯à®æ¥áᮢ + 1 |
mov [processes],eax |
mov ecx,1 |
|
new_process: |
pushad |
mov eax,9 ; ¯®«ã稬 ¨ä®à¬ æ¨î ® ¯à®æ¥áá¥; ®¬¥à - ¢ ecx |
mov ebx,procinfo |
int 0x40 |
mov eax,37 ; ª®®à¤¨ âë ªãàá®à |
xor ebx,ebx |
int 0x40 |
mov ebx,eax ; eax = cursor_x |
shr eax,16 ; ebx = cursor_y |
and ebx,0xffff |
mov [curx1],eax ; curx1 = cursor_x |
mov [cury1],ebx ; cury1 = cursor_y |
mov eax,[procinfo.x_start] ; eax = wnd_x_start |
mov ebx,[procinfo.y_start] ; ebx = wnd_y_start |
|
mov ecx,[procinfo.x_size] |
add ecx,eax ; ecx = wnd_x_end |
mov edx,[procinfo.y_size] |
add edx,ebx ; ecx = wnd_y_end |
|
cmp eax,[curx1] ; wnd_x_start > cursor_x => ªãàá®à «¥¢¥¥ ®ª |
jg ne_goden |
cmp ecx,[curx1] ; wnd_x_end < cursor_x => ªãàá®à ¯à ¢¥¥ ®ª |
jl ne_goden |
cmp ebx,[cury1] ; wnd_y_start > cursor_y => ªãàá®à ¢ëè¥ ®ª |
jg ne_goden |
cmp edx,[cury1] ; wnd_y_end < cursor_y => ªãàá®à ¨¦¥ ®ª |
jl ne_goden |
|
goden: ; ª«¨ª ¡ë« ¢ãâਠª ª®£®-â® ®ª , ¯®í⮬㠨祣® ¥ ¤¥« ¥¬ |
popad |
jmp still |
|
ne_goden: ; ª«¨ª ¡ë« á à㦨 à áᬠâਢ ¥¬®£® ®ª , ¯®í⮬ã |
popad |
inc ecx |
cmp ecx,[processes] |
jl new_process ; «¨¡® ᬮਬ á«¥¤ãî饥 ®ª®, «¨¡® § ¯ã᪠¥¬ ¬¥î |
|
|
@@: ; ¯®¤®¦¤ñ¬, ¯®ª ¯®«ì§®¢ â¥«ì ¥ ®â¯ãá⨫ ¯à ¢ãî ª®¯ªã ¬ëè¨ |
mov eax,37 |
mov ebx,2 ; äãªæ¨ï 37-2: |
int 0x40 ; ¦ âë «¨ ª®¯ª¨ ¬ëè¨? |
cmp eax,ebx ; ¥á«¨ ®â¯ãá⨫, (eax != 2) |
jnz @f ; ¨¤ñ¬ ¢ ç «® £« ¢®£® 横« |
|
mov eax,5 ; ¨ ç¥ |
mov ebx,2 ; ¯®¤®¦¤ñ¬ 2 ¬á |
int 0x40 |
|
jmp @b ; ¨ ¯à®¢¥à¨¬ ¬ëèì ®¯ïâì |
@@: |
|
; ¥á«¨ 㦥 ¡ë«® ®âªàëâ® ¬¥î, 㦮 ¯®¤®¦¤ âì, ¯®ª ®® § ªà®¥âáï: |
@@: |
cmp [menu_opened],0 |
je @f |
mov eax,5 |
mov ebx,3 ; ¦¤ñ¬ 3 ¬á |
int 0x40 |
jmp @b |
@@: |
|
mov eax,51 ; ⥯¥àì ¬®¦® ᬥ«® § ¯ã᪠âì ¯à®æ¥áá (¯®â®ª) ¬¥î |
mov ebx,1 ; ᮧ¤ ñ¬ ¯®â®ª (thread) |
mov ecx,start_wnd ; â®çª ¢å®¤ ¯®â®ª |
mov edx,stack_wnd ; ¢¥àè¨ áâíª ¤«ï ¯®â®ª |
int 0x40 |
|
jmp still |
|
|
|
exit_menu: ; ¥á«¨ ¢ë室¨¬ ¨§ ¬¥î, ¤® § ¯¨á âì ¢ [menu_opened] 0 |
mov [menu_opened],0 |
exit: ; áî¤ ¬ë ¨¤ñ¬, ª®£¤ ¢ë室¨¬ ¨§ ®á®¢®£® ¯à®æ¥áá |
or eax,-1 ; eax = -1 |
int 0x40 |
|
|
|
|
; §¤¥áì áâ àâã¥â ¯à®æ¥áá ¬¥î |
start_wnd: |
mov [menu_opened],1 |
call draw_window |
|
mov eax,40 ; ãáâ ®¢¨¬ ¬ áªã ¦¥« ¥¬ëå ᮡë⨩ ¤«ï í⮣® ¯à®æ¥áá |
mov ebx,100101b ; ¬¥î + ª®¯ª¨ + ¯¥à¥à¨á®¢ª |
int 0x40 |
|
still2: ; £« ¢ë© 横« ¯à®æ¥áá ¬¥î |
|
mov eax,10 ; ¦¤ñ¬ ᮡëâ¨ï |
int 0x40 |
|
cmp eax,1 ; ¯¥à¥à¨á®¢ª ? |
je red |
cmp eax,3 ; ª®¯ª ? |
je button |
cmp eax,6 ; ¬ëèì? |
je mouse |
|
jmp still2 ; ¢¥àñ¬áï ¢ ç «® £« ¢®£® 横« |
|
|
; |
mouse: ; ª®£¤ ¯®«ì§®¢ â¥«ì ¦¬ñâ ª®¯ªã ¬ëè¨, § ªà®¥¬áï |
mov eax,37 |
mov ebx,2 ; ª ª¨¥ ª®¯ª¨ ¦ âë? |
int 0x40 |
test eax,eax ; ¨ª ª¨¥? - ⮣¤ ¯à¥ªà á®! ¢¥àñ¬áï ¢ £« ë© æ¨ª« |
jz still2 |
jmp exit_menu ; ¥á«¨ ¢áñ-â ª¨ ¦ âë - § ªà®¥¬ ®ª® |
|
|
;
|
red: |
call draw_window |
jmp still2 |
|
|
; |
button: |
mov eax,17 ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ ⮩ ª®¯ª¨ |
int 0x40 |
|
cmp ah,10 ; áà ¢¨¢ ¥¬ á 10 |
jl nofuncbtns ; ¥á«¨ ¬¥ìè¥ - § ªàë¢ ¥¬ ¬¥î |
|
add ah,-10 ; ¢ëç⥬ ¨§ ¨¤¥â¨ä¨ª â®à ª®¯ª¨ 10 |
movzx ebx,ah ; ¯®«ã稫¨ ®¬¥à ¯à®£à ¬¬ë ¢ ᯨ᪥ ¢ ebx |
lea esi, [startapps + ebx*4] |
lea edi, [start_info.path] |
mov esi, [esi] |
cld |
@@: |
lodsb |
stosb |
test al, al |
jnz @b |
mcall 58, start_info |
|
; mov eax,5 ; ¯®¤®¦¤ñ¬, ¯®ª ¯à®£à ¬¬ § ¯ãáâ¨âìáï |
; mov ebx,1 ; â® ¥ñ ®ª® ¥ ¡ã¤¥â ®âà¨á®¢ ® (¡ £ ¢ ï¤à¥???) |
; int 0x40 ; à ᪮¬¬¥â¨àã©â¥ í⨠áâப¨, ¥á«¨ ã ¢ á ¯à®¡«¥¬ë |
; á ®âà¨á®¢ª®© |
|
nofuncbtns: ; § ªàë¢ ¥¬ ¬¥î |
jmp exit_menu |
|
|
|
_BTNS_ = 8 ; ª®«¨ç¥á⢮ ª®¯®ª ("¯ãªâ®¢ ¬¥î") |
|
if lang eq ru |
font = 0x00000000 |
string_length = 20 ; ¤«¨ áâப¨ |
wnd_x_size = 133 ; è¨à¨ ®ª |
header_pos = 36 shl 16 + 7 |
else |
font = 0x10000000 |
string_length = 12 ; ¤«¨ áâப¨ |
wnd_x_size = 105 ; è¨à¨ ®ª |
header_pos = 23 shl 16 + 7 |
end if |
|
;******************************* |
;********
******** |
;******************************* |
|
draw_window: |
|
mov eax,12 ; ç¨ ¥¬ "à¨á®¢ âì" |
mov ebx,1 |
int 0x40 |
|
mov eax,[curx1] ; ⥪ã騥 ª®®à¤¨ âë ªãàá®à |
mov [curx],eax ; § ¯¨è¥¬ ¢ ª®®à¤¨ âë ®ª |
mov eax,[cury1] |
mov [cury],eax |
|
; ⥯¥àì ¡ã¤¥¬ áç¨â âì ª®®à¤¨ âë ®ª , çâ®¡ë ®® § ªà © íªà ¥ ¢ë«¥§«® |
mov eax,14 ; ¯®«ã稬 à §¬¥à íªà |
int 0x40 |
mov ebx,eax |
shr eax,16 ; ¢ eax - x_screen |
and ebx,0xffff ; ¢ ebx - y_screen |
add eax,-wnd_x_size ; eax = [x_screen - è¨à¨ ®ª ] |
add ebx,-_BTNS_*15-21 ; ebx = [y_screen - ¢ëá®â ®ª ] |
|
cmp eax,[curx] |
jg .okx ; ¥á«¨ ®ª® ᫨誮¬ ¡«¨§ª® ª ¯à ¢®¬ã ªà î, |
add [curx],-wnd_x_size ; ᤢ¨¥¬ ¥£® ¢«¥¢® 100 |
.okx: |
|
cmp ebx, [cury] |
jg .oky ; ¯® ¢¥à⨪ «¨ â®ç® â ª¦¥ |
add [cury], -_BTNS_*15-21 |
.oky: |
|
mov eax, 48 ; ¯®«ãç¨âì á¨áâ¥¬ë¥ æ¢¥â |
mov ebx, 3 |
mov ecx, sc ; ¤à¥á áâàãªâãàë |
mov edx, sizeof.system_colors ; ¨ ¥¥ à §¬¥à |
int 0x40 |
|
xor eax, eax ; äãªæ¨ï 0 - ᮧ¤ âì ®ª® |
mov ebx, [curx] ; ebx = [ª®®à¤¨ â ¯® x] shl 16 + [è¨à¨ ] |
shl ebx, 16 |
add ebx, wnd_x_size |
mov ecx, [cury] ; ecx = [ª®®à¤¨ â ¯® y] shl 16 + [¢ëá®â ] |
shl ecx, 16 |
add ecx, _BTNS_*15+21 |
mov edx, [sc.work] ; 梥â à ¡®ç¥© ®¡« á⨠|
mov esi, [sc.grab] ; 梥⠧ £®«®¢ª |
or esi, 0x81000000 |
mov edi, [sc.frame] ; 梥â à ¬ª¨ |
int 0x40 |
|
mov eax, 4 ; § £®«®¢®ª |
mov ebx, header_pos ; [x] shl 16 + [y] |
mov ecx, [sc.grab_text]; èà¨äâ ¨ 梥â (á¥àë©) |
add ecx, -0x333333 |
or ecx, 0x10000000 |
mov edx, header ; ¤à¥á § £®«®¢ª |
mov esi, header.size ; ¤«¨ § £®«®¢ª ("M E N U") |
int 0x40 |
add ecx, 0x333333 ; 梥⠡¥«ë© |
add ebx, 1 shl 16 ; ᤢ¨¥¬ ¢¯à ¢® 1 |
int 0x40 |
|
mov ebx, 1*65536+wnd_x_size-2 ; ç¨ ¥¬ ¤¥« âì ª®¯ª¨ |
mov ecx, 20*65536+15 |
mov edx, 10 or 0x40000000 ; ¡¨â 30 ãáâ ®¢«¥ => ª®¯ª ¥ à¨áã¥âáï |
|
mov edi,_BTNS_ ; ª®«¨ç¥á⢮ ª®¯®ª (áçñâ稪) |
|
newbtn: ; ç «® 横« |
mov eax,8 ; ᮧ¤ ñ¬ ª®¯ªã |
int 0x40 |
|
; ¯¨è¥¬ ⥪áâ ª®¯ª¥ |
pushad ; á¯ á ¥¬ ॣ¨áâàë |
shr ecx, 16 |
and ebx, 0xffff0000 |
add ebx, ecx ; ebx = [x] shl 16 + [y]; |
add ebx, 10*65536+4 ; ebx += ᬥ饨¥ ®â®á¨â¥«ì® ªà ï ª®¯ª¨; |
mov ecx, [sc.work_text] ; èà¨äâ ¨ 梥â |
or ecx, font |
add edx, -10 ; edx = ®¬¥à ª®¯ª¨; |
imul edx, string_length ; edx *= ¤«¨ áâப¨; |
add edx, text ; edx += text; ⥯¥àì ¢ edx ¤à¥á áâப¨ |
mov esi, string_length ; ¢ esi - ¤«¨ áâப¨ |
mov eax, 4 ; äãªæ¨ï 4 - ¢ë¢®¤ ⥪áâ |
int 0x40 |
popad |
|
inc edx ; ®¬¥à ª®¯ª¨++; |
add ecx,15*65536 ; 㢥«¨ç¨¬ ᬥ饨¥ ¯® y |
dec edi ; 㬥ì訬 áçñâ稪 |
jnz newbtn ; ¥á«¨ ¥ ®«ì, ¯®¢â®à¨¬ ¢áñ ¥éñ à § |
|
mov eax,12 ; § ª®ç¨«¨ "à¨á®¢ âì" |
mov ebx,2 |
int 0x40 |
|
ret ; ¢®§¢à â |
|
|
|
;
|
DATA |
|
macro strtbl name, [string] |
{ |
common |
label name dword |
forward |
local str |
dd str |
forward |
str db string |
} |
|
strtbl startapps ,\ |
<"/RD/1/PIC4",0> ,\ |
<"/RD/1/DESKTOP",0> ,\ |
<"/RD/1/MV",0> ,\ |
<"/RD/1/JPEGVIEW",0> ,\ |
<"/RD/1/CPU",0> ,\ |
<"/RD/1/SPANEL",0> ,\ |
<"/RD/1/ICONMNGR",0> ,\ |
<"/RD/1/VRR",0> |
|
; header: ; § £®«®¢®ª |
; db 'M E N U' |
; header_len = $ - header |
|
; text: ; ⥪áâ ª®¯ª å |
; db 'Background '; 12 |
; db 'Colors ' |
; db 'MeView ' |
; db 'Processes ' |
; db 'Panel setup ' |
; db 'Icon manager' |
|
sz header, "MenuetOS" |
|
lsz text,\ |
en, 'Background ',\ |
en, 'Colors ',\ |
en, 'MeView ',\ |
en, 'JpegView ',\ |
en, 'Processes ',\ |
en, 'Panel setup ',\ |
en, 'Icon manager',\ |
en, 'VRR ',\ |
\ |
ru, '¥¥à â®à ®¡®¥¢ ',\ |
ru, '¨áâ¥¬ë¥ æ¢¥â ',\ |
ru, 'à®á¬®âà BMP ',\ |
ru, 'à®á¬®âà JPEG ',\ |
ru, 'à®æ¥ááë ',\ |
ru, ' áâனª ¯ ¥«¨ ',\ |
ru, '¯à ¢«¥¨¥ ¨ª®ª ¬¨ ',\ |
ru, ' áâனª ¬®¨â®à ' |
|
|
|
;
|
UDATA |
processes dd ? ; ª®«¨ç¥á⢮ ¯à®æ¥áᮢ ¢ á¨á⥬¥ |
curx1 dd ? ; ª®®à¤¨ âë ªãàá®à |
cury1 dd ? |
curx dd ? ; ª®®à¤¨ âë ®ª ¬¥î |
cury dd ? |
|
menu_opened db ? ; ®âªàëâ® ¬¥î ¨«¨ ¥â? (1-¤ , 0-¥â) |
|
align 32 |
start_info: |
.mode dd ? |
dd ? |
.params dd ? |
dd ? |
.workarea dd ? |
.path: |
rb 256 |
|
|
sc system_colors ; á¨áâ¥¬ë¥ æ¢¥â |
procinfo process_information ; ¨ä®à¬ æ¨ï ® ¯à®æ¥áᥠ|
|
work_area: |
rb 0x1000 |
|
rb 1024 ; áâíª ¤«ï ®ª ¬¥î - å¢ â¨â ¨ 1 ¡ |
align 32 |
stack_wnd: |
|
|
MEOS_APP_END |
;
|