Subversion Repositories Kolibri OS

Rev

Rev 3596 | Rev 3598 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3596 Rev 3597
Line 69... Line 69...
69
format binary as "mnt"
69
format binary as "mnt"
Line 70... Line 70...
70
 
70
 
71
include 'macros.inc'
71
include 'macros.inc'
Line 72... Line 72...
72
include 'struct.inc'
72
include 'struct.inc'
Line 73... Line 73...
73
 
73
 
Line 74... Line 74...
74
$Revision: 3596 $
74
$Revision: 3597 $
Line 2034... Line 2034...
2034
 
2034
 
2035
        mov     eax, [TASK_BASE]
2035
        mov     eax, [TASK_BASE]
2036
        mov     [eax+TASKDATA.state], 3; terminate this program
2036
        mov     [eax+TASKDATA.state], 3; terminate this program
Line 2037... Line 2037...
2037
        call    wakeup_osloop
2037
        call    wakeup_osloop
2038
 
-
 
2039
    waitterm:            ; wait here for termination
2038
 
2040
        mov     ebx, 100
2039
.waitterm:            ; wait here for termination
2041
        call    delay_hs
2040
        call    change_task
2042
        jmp     waitterm
2041
        jmp     .waitterm
2043
;------------------------------------------------------------------------------
2042
;------------------------------------------------------------------------------
2044
align 4
2043
align 4
2045
restore_default_cursor_before_killing:
2044
restore_default_cursor_before_killing:
Line 3848... Line 3847...
3848
        call    delay_hs
3847
        call    delay_hs
3849
        call    protect_from_terminate
3848
        call    protect_from_terminate
3850
        ret
3849
        ret
3851
endp
3850
endp
Line 3852... Line 3851...
3852
 
3851
 
3853
if 0
3852
if 1
3854
align 4
3853
align 4
3855
delay_hs:     ; delay in 1/100 secs
3854
delay_hs:     ; delay in 1/100 secs
Line 3856... Line 3855...
3856
; ebx = delay time
3855
; ebx = delay time
Line 3863... Line 3862...
3863
        test    eax, eax
3862
        test    eax, eax
3864
        jz      .done
3863
        jz      .done
Line 3865... Line 3864...
3865
 
3864
 
3866
        mov     ebx, edx
3865
        mov     ebx, edx
-
 
3866
        mov     ecx, [esp]
3867
        mov     ecx, [esp]
3867
        push    edx
3868
        push    eax
3868
        push    eax
3869
        call    wait_event_timeout
3869
        call    wait_event_timeout
3870
        pop     eax
3870
        pop     eax
3871
        mov     ebx, [esp]
3871
        pop     ebx
3872
        call    destroy_event
3872
        call    destroy_event
3873
.done:
3873
.done:
3874
        add     esp, 4
3874
        add     esp, 4
3875
        popad
3875
        popad