Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 484 → Rev 485

/programs/media/midamp/trunk/dlg.inc
23,7 → 23,7
; mov eax,9
; mov ebx,prcinfo
; mov ecx,-1
; int 0x40
; mcall
mov eax,[parentPID]
; convert eax bin to param dec
; mov eax,dword [prcinfo+30] ;offset of myPID
57,12 → 57,12
mov ebx,1 ; define IPC
mov ecx,path ; offset of area
mov edx,1024+16 ; size
int 0x40
mcall
 
; change wanted events list 7-bit IPC event
mov eax,40
mov ebx,01000111b
int 0x40
mcall
 
;
; STEP 3 run SYSTEM XTREE with parameters
70,7 → 70,7
 
mov eax,70
mov ebx,run_fileinfo
int 0x40
mcall
 
call redproc
 
78,7 → 78,7
getmesloop:
mov eax,23
mov ebx,50 ;0.5 sec
int 0x40
mcall
dec eax
jz mred
dec eax
92,7 → 92,7
mov ebx,prcinfo
mov ecx,-1
mov eax,9
int 0x40
mcall
mov ebp,eax
 
loox:
99,7 → 99,7
mov eax,9
mov ebx,prcinfo
mov ecx,ebp
int 0x40
mcall
mov eax,[DLGPID]
cmp [prcinfo+30],eax ;IF Dialog find
je dlg_is_work ;jmp to dlg_is_work
124,15 → 124,15
jmp getmesloop
mkey:
mov eax,2
int 0x40 ; read (eax=2)
mcall ; read (eax=2)
jmp getmesloop
mbutton:
mov eax,17 ; get id
int 0x40
mcall
cmp ah,1 ; button id=1 ?
jne getmesloop
mov eax,-1 ; close this program
int 0x40
or eax,-1 ; close this program
mcall
mgetmes:
 
; If dlg_pid_get then second message get jmp to still