Subversion Repositories Kolibri OS

Rev

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

Rev 3588 Rev 3595
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: 3588 $
 74 
$Revision: 3595 $
Line 3851... Line 3851...
3851 
endp
 3851 
endp
Line 3852... Line 3852...
3852 
 
 3852 
 
3853 
align 4
 3853 
align 4
3854 
delay_hs:     ; delay in 1/100 secs
 3854 
delay_hs:     ; delay in 1/100 secs
3855 
; ebx = delay time
 - 
 
3856 
        push    ecx
 - 
 
3857 
        push    edx
 - 
 
3858 
 
 - 
 
3859 
        mov     edx, [timer_ticks]
 - 
 
3860 
;--------------------------------------
 - 
 
3861 
align 4
 - 
 
3862 
newtic:
 - 
 
3863 
        mov     ecx, [timer_ticks]
 - 
 
3864 
        sub     ecx, edx
 - 
 
3865 
        cmp     ecx, ebx
 - 
 
Line -... Line 3855...
- 
 
 3855 
; ebx = delay time
- 
 
 3856 
 
- 
 
 3857 
        pushad
- 
 
 3858 
        push    ebx
3866 
        jae     zerodelay
 3859 
        xor     esi, esi
- 
 
 3860 
        mov     ecx, MANUAL_DESTROY
- 
 
 3861 
        call    create_event
Line -... Line 3862...
- 
 
 3862 
        test    eax, eax
- 
 
 3863 
        jz      .done
3867 
 
 3864 
 
3868 
        call    change_task
 3865 
        mov     ebx, edx
3869 
 
 3866 
        mov     ecx, [esp]
- 
 
 3867 
        push    eax
- 
 
 3868 
        call    wait_event_timeout
3870 
        jmp     newtic
 3869 
        pop     eax
3871 
;--------------------------------------
 3870 
        mov     ebx, [esp]
3872 
align 4
 3871 
        call    destroy_event
3873 
zerodelay:
 3872 
.done:
3874 
        pop     edx
 3873 
        add     esp, 4
3875 
        pop     ecx
 3874 
        popad
3876 
        ret
 3875 
        ret
3877 
;-----------------------------------------------------------------------------
 3876 
;-----------------------------------------------------------------------------