Subversion Repositories Kolibri OS

Rev

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

Rev 3595 Rev 3596
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: 3595 $
74
$Revision: 3596 $
Line 3848... Line 3848...
3848
        call    delay_hs
3848
        call    delay_hs
3849
        call    protect_from_terminate
3849
        call    protect_from_terminate
3850
        ret
3850
        ret
3851
endp
3851
endp
Line -... Line 3852...
-
 
3852
 
3852
 
3853
if 0
3853
align 4
3854
align 4
3854
delay_hs:     ; delay in 1/100 secs
3855
delay_hs:     ; delay in 1/100 secs
Line 3855... Line 3856...
3855
; ebx = delay time
3856
; ebx = delay time
Line 3871... Line 3872...
3871
        call    destroy_event
3872
        call    destroy_event
3872
.done:
3873
.done:
3873
        add     esp, 4
3874
        add     esp, 4
3874
        popad
3875
        popad
3875
        ret
3876
        ret
-
 
3877
 
-
 
3878
else
-
 
3879
 
-
 
3880
align 4
-
 
3881
delay_hs:     ; delay in 1/100 secs
-
 
3882
; ebx = delay time
-
 
3883
        push    ecx
-
 
3884
        push    edx
-
 
3885
 
-
 
3886
        mov     edx, [timer_ticks]
-
 
3887
;--------------------------------------
-
 
3888
align 4
-
 
3889
newtic:
-
 
3890
        mov     ecx, [timer_ticks]
-
 
3891
        sub     ecx, edx
-
 
3892
        cmp     ecx, ebx
-
 
3893
        jae     zerodelay
-
 
3894
 
-
 
3895
        call    change_task
-
 
3896
 
-
 
3897
        jmp     newtic
-
 
3898
;--------------------------------------
-
 
3899
align 4
-
 
3900
zerodelay:
-
 
3901
        pop     edx
-
 
3902
        pop     ecx
-
 
3903
        ret
-
 
3904
end if
-
 
3905
 
3876
;-----------------------------------------------------------------------------
3906
;-----------------------------------------------------------------------------
3877
align 16        ;very often call this subrutine
3907
align 16        ;very often call this subrutine
3878
memmove:       ; memory move in bytes
3908
memmove:       ; memory move in bytes
3879
; eax = from
3909
; eax = from
3880
; ebx = to
3910
; ebx = to