0000: 5f 5f 73 79 73 5f 74 69 6d 65 5f 73 6c 69 63 65 __sys_time_slice
0010: 20 3d 20 31 30 20 3b 5b 6d 73 5d 0d 0a 0d 0a 0d = 10 ;[ms].....
0020: 0a 69 66 20 75 73 65 64 20 54 69 6d 65 72 43 72 .if used TimerCr
0030: 65 61 74 65 0d 0a 0d 0a 75 67 6c 6f 62 61 6c 0d eate....uglobal.
0040: 0a 20 20 5f 5f 49 6e 74 65 72 6e 61 6c 54 69 6d . __InternalTim
0050: 65 72 49 44 20 64 64 20 3f 0d 0a 65 6e 64 67 0d erID dd ?..endg.
0060: 0a 0d 0a 69 6e 69 74 69 61 6c 69 7a 65 20 49 6e ...initialize In
0070: 69 74 4c 69 6e 75 78 54 69 6d 65 72 73 0d 0a 20 itLinuxTimers..
0080: 20 2e 61 63 74 69 6f 6e 20 6c 6e 78 5f 73 69 67 .action lnx_sig
0090: 61 63 74 69 6f 6e 0d 0a 20 20 2e 74 69 6d 65 72 action.. .timer
00a0: 20 6c 6e 78 5f 73 69 67 65 76 65 6e 74 0d 0a 20 lnx_sigevent..
00b0: 20 2e 74 69 6d 65 20 20 6c 6e 78 5f 69 74 69 6d .time lnx_itim
00c0: 65 72 73 70 65 63 0d 0a 62 65 67 69 6e 0d 0a 3b erspec..begin..;
00d0: 20 73 65 74 20 74 68 65 20 73 69 67 6e 61 6c 20 set the signal
00e0: 68 61 6e 64 6c 65 72 2e 0d 0a 20 20 20 20 20 20 handler...
00f0: 20 20 6d 6f 76 20 20 20 20 20 65 61 78 2c 20 73 mov eax, s
0100: 79 73 5f 73 69 67 61 63 74 69 6f 6e 0d 0a 20 20 ys_sigaction..
0110: 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 65 62 mov eb
0120: 78 2c 20 53 49 47 41 4c 52 4d 0d 0a 0d 0a 20 20 x, SIGALRM....
0130: 20 20 20 20 20 20 6c 65 61 20 20 20 20 20 65 63 lea ec
0140: 78 2c 20 5b 2e 61 63 74 69 6f 6e 5d 0d 0a 20 20 x, [.action]..
0150: 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 5b 65 mov [e
0160: 63 78 2b 6c 6e 78 5f 73 69 67 61 63 74 69 6f 6e cx+lnx_sigaction
0170: 2e 73 61 5f 68 61 6e 64 6c 65 72 5d 2c 20 5f 5f .sa_handler], __
0180: 54 69 6d 65 72 50 72 6f 63 0d 0a 20 20 20 20 20 TimerProc..
0190: 20 20 20 6d 6f 76 20 20 20 20 20 5b 65 63 78 2b mov [ecx+
01a0: 6c 6e 78 5f 73 69 67 61 63 74 69 6f 6e 2e 73 61 lnx_sigaction.sa
01b0: 5f 6d 61 73 6b 5d 2c 20 30 0d 0a 20 20 20 20 20 _mask], 0..
01c0: 20 20 20 6d 6f 76 20 20 20 20 20 5b 65 63 78 2b mov [ecx+
01d0: 6c 6e 78 5f 73 69 67 61 63 74 69 6f 6e 2e 73 61 lnx_sigaction.sa
01e0: 5f 66 6c 61 67 73 5d 2c 20 30 0d 0a 20 20 20 20 _flags], 0..
01f0: 20 20 20 20 78 6f 72 20 20 20 20 20 65 64 78 2c xor edx,
0200: 20 65 64 78 0d 0a 0d 0a 20 20 20 20 20 20 20 20 edx....
0210: 69 6e 74 20 24 38 30 0d 0a 20 20 20 20 20 20 20 int $80..
0220: 20 73 74 64 63 61 6c 6c 20 20 20 20 20 4f 75 74 stdcall Out
0230: 70 75 74 52 65 67 69 73 74 65 72 2c 20 72 65 67 putRegister, reg
0240: 45 41 58 2c 20 31 36 0d 0a 0d 0a 3b 20 63 72 65 EAX, 16....; cre
0250: 61 74 65 20 74 68 65 20 69 6e 74 65 72 76 61 6c ate the interval
0260: 20 74 69 6d 65 72 0d 0a 20 20 20 20 20 20 20 20 timer..
0270: 6d 6f 76 20 20 20 20 20 65 61 78 2c 20 73 79 73 mov eax, sys
0280: 5f 74 69 6d 65 72 5f 63 72 65 61 74 65 0d 0a 20 _timer_create..
0290: 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 65 mov e
02a0: 62 78 2c 20 43 4c 4f 43 4b 5f 52 45 41 4c 54 49 bx, CLOCK_REALTI
02b0: 4d 45 0d 0a 0d 0a 20 20 20 20 20 20 20 20 6c 65 ME.... le
02c0: 61 20 20 20 20 20 65 63 78 2c 20 5b 2e 74 69 6d a ecx, [.tim
02d0: 65 72 5d 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 er].. mov
02e0: 20 20 20 20 20 5b 65 63 78 2b 6c 6e 78 5f 73 69 [ecx+lnx_si
02f0: 67 65 76 65 6e 74 2e 6e 6f 74 69 66 79 5d 2c 20 gevent.notify],
0300: 53 49 47 45 56 5f 53 49 47 4e 41 4c 0d 0a 20 20 SIGEV_SIGNAL..
0310: 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 5b 65 mov [e
0320: 63 78 2b 6c 6e 78 5f 73 69 67 65 76 65 6e 74 2e cx+lnx_sigevent.
0330: 73 69 67 6e 6f 5d 2c 20 53 49 47 41 4c 52 4d 0d signo], SIGALRM.
0340: 0a 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 . mov
0350: 20 5b 65 63 78 2b 6c 6e 78 5f 73 69 67 65 76 65 [ecx+lnx_sigeve
0360: 6e 74 2e 76 61 6c 75 65 5d 2c 20 30 20 20 20 20 nt.value], 0
0370: 20 20 20 20 20 20 20 20 20 3b 20 6e 6f 74 20 75 ; not u
0380: 73 65 64 20 62 75 74 20 6d 75 73 74 20 62 65 20 sed but must be
0390: 73 65 74 20 2d 20 74 68 65 20 66 75 6e 63 74 69 set - the functi
03a0: 6f 6e 20 66 61 69 6c 73 20 77 69 74 68 6f 75 74 on fails without
03b0: 20 69 74 2e 2e 2e 0d 0a 20 20 20 20 20 20 20 20 it.....
03c0: 6d 6f 76 20 20 20 20 20 65 64 78 2c 20 5f 5f 49 mov edx, __I
03d0: 6e 74 65 72 6e 61 6c 54 69 6d 65 72 49 44 0d 0a nternalTimerID..
03e0: 0d 0a 20 20 20 20 20 20 20 20 69 6e 74 20 24 38 .. int $8
03f0: 30 0d 0a 20 20 20 20 20 20 20 20 73 74 64 63 61 0.. stdca
0400: 6c 6c 20 20 20 20 20 4f 75 74 70 75 74 52 65 67 ll OutputReg
0410: 69 73 74 65 72 2c 20 72 65 67 45 41 58 2c 20 31 ister, regEAX, 1
0420: 36 0d 0a 0d 0a 3b 20 73 74 61 72 74 20 74 68 65 6....; start the
0430: 20 74 69 6d 65 72 0d 0a 20 20 20 20 20 20 20 20 timer..
0440: 6d 6f 76 20 20 20 20 20 65 62 78 2c 20 65 61 78 mov ebx, eax
0450: 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 .. mov
0460: 20 20 65 61 78 2c 20 73 79 73 5f 74 69 6d 65 72 eax, sys_timer
0470: 5f 73 65 74 74 69 6d 65 0d 0a 20 20 20 20 20 20 _settime..
0480: 20 20 6c 65 61 20 20 20 20 20 65 64 78 2c 20 5b lea edx, [
0490: 2e 74 69 6d 65 5d 0d 0a 20 20 20 20 20 20 20 20 .time]..
04a0: 6d 6f 76 20 20 20 20 20 5b 65 64 78 2b 6c 6e 78 mov [edx+lnx
04b0: 5f 69 74 69 6d 65 72 73 70 65 63 2e 69 74 5f 69 _itimerspec.it_i
04c0: 6e 74 65 72 76 61 6c 2e 74 76 5f 73 65 63 5d 2c nterval.tv_sec],
04d0: 20 30 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 20 0.. mov
04e0: 20 20 20 20 5b 65 64 78 2b 6c 6e 78 5f 69 74 69 [edx+lnx_iti
04f0: 6d 65 72 73 70 65 63 2e 69 74 5f 69 6e 74 65 72 merspec.it_inter
0500: 76 61 6c 2e 74 76 5f 6e 73 65 63 5d 2c 20 5f 5f val.tv_nsec], __
0510: 73 79 73 5f 74 69 6d 65 5f 73 6c 69 63 65 2a 31 sys_time_slice*1
0520: 30 30 30 30 30 30 0d 0a 20 20 20 20 20 20 20 20 000000..
0530: 6d 6f 76 20 20 20 20 20 5b 65 64 78 2b 6c 6e 78 mov [edx+lnx
0540: 5f 69 74 69 6d 65 72 73 70 65 63 2e 69 74 5f 76 _itimerspec.it_v
0550: 61 6c 75 65 2e 74 76 5f 73 65 63 5d 2c 20 30 0d alue.tv_sec], 0.
0560: 0a 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 . mov
0570: 20 5b 65 64 78 2b 6c 6e 78 5f 69 74 69 6d 65 72 [edx+lnx_itimer
0580: 73 70 65 63 2e 69 74 5f 76 61 6c 75 65 2e 74 76 spec.it_value.tv
0590: 5f 6e 73 65 63 5d 2c 20 5f 5f 73 79 73 5f 74 69 _nsec], __sys_ti
05a0: 6d 65 5f 73 6c 69 63 65 2a 31 30 30 30 30 30 30 me_slice*1000000
05b0: 0d 0a 20 20 20 20 20 20 20 20 78 6f 72 20 20 20 .. xor
05c0: 20 20 65 73 69 2c 20 65 73 69 0d 0a 0d 0a 20 20 esi, esi....
05d0: 20 20 20 20 20 20 69 6e 74 20 24 38 30 0d 0a 20 int $80..
05e0: 20 20 20 20 20 20 20 73 74 64 63 61 6c 6c 20 20 stdcall
05f0: 20 20 20 4f 75 74 70 75 74 52 65 67 69 73 74 65 OutputRegiste
0600: 72 2c 20 72 65 67 45 41 58 2c 20 31 36 0d 0a 0d r, regEAX, 16...
0610: 0a 20 20 20 20 44 65 62 75 67 4d 73 67 20 27 49 . DebugMsg 'I
0620: 6e 74 65 72 76 61 6c 20 74 69 6d 65 72 20 73 65 nterval timer se
0630: 74 2e 27 0d 0a 0d 0a 20 20 20 20 20 20 20 20 72 t.'.... r
0640: 65 74 75 72 6e 0d 0a 65 6e 64 70 0d 0a 0d 0a 0d eturn..endp.....
0650: 0a 0d 0a 66 69 6e 61 6c 69 7a 65 20 46 72 65 65 ...finalize Free
0660: 4c 69 6e 75 78 54 69 6d 65 72 73 0d 0a 62 65 67 LinuxTimers..beg
0670: 69 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 20 6d 6f in.... mo
0680: 76 20 20 20 20 20 65 61 78 2c 20 73 79 73 5f 74 v eax, sys_t
0690: 69 6d 65 72 5f 64 65 6c 65 74 65 0d 0a 20 20 20 imer_delete..
06a0: 20 20 20 20 20 6d 6f 76 20 20 20 20 20 65 62 78 mov ebx
06b0: 2c 20 5b 5f 5f 49 6e 74 65 72 6e 61 6c 54 69 6d , [__InternalTim
06c0: 65 72 49 44 5d 0d 0a 20 20 20 20 20 20 20 20 69 erID].. i
06d0: 6e 74 20 24 38 30 0d 0a 0d 0a 20 20 20 20 20 20 nt $80....
06e0: 20 20 72 65 74 75 72 6e 0d 0a 65 6e 64 70 0d 0a return..endp..
06f0: 0d 0a 65 6e 64 20 69 66 0d 0a 0d 0a 0d 0a 3b 20 ..end if......;
0700: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69 This procedure i
0710: 73 20 63 61 6c 6c 65 64 20 62 79 20 74 68 65 20 s called by the
0720: 73 79 73 74 65 6d 20 6f 6e 20 65 76 65 72 79 20 system on every
0730: 74 69 6d 65 20 71 75 61 6e 74 2e 0d 0a 3b 0d 0a time quant...;..
0740: 0d 0a 70 72 6f 63 20 5f 5f 54 69 6d 65 72 50 72 ..proc __TimerPr
0750: 6f 63 2c 20 2e 73 69 67 6e 61 6c 0d 0a 62 65 67 oc, .signal..beg
0760: 69 6e 0d 0a 20 20 20 20 20 20 20 20 70 75 73 68 in.. push
0770: 20 20 20 20 65 62 78 20 65 73 69 20 65 64 69 0d ebx esi edi.
0780: 0a 0d 0a 20 20 20 20 20 20 20 20 6c 65 61 20 20 ... lea
0790: 20 20 20 65 61 78 2c 20 5b 5f 5f 70 74 72 46 69 eax, [__ptrFi
07a0: 72 73 74 54 69 6d 65 72 5d 0d 0a 0d 0a 2e 6c 6f rstTimer].....lo
07b0: 6f 70 3a 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 op:.. mov
07c0: 20 20 20 20 20 65 61 78 2c 20 5b 65 61 78 2b 54 eax, [eax+T
07d0: 54 69 6d 65 72 2e 6e 65 78 74 5d 0d 0a 20 20 20 Timer.next]..
07e0: 20 20 20 20 20 74 65 73 74 20 20 20 20 65 61 78 test eax
07f0: 2c 20 65 61 78 0d 0a 20 20 20 20 20 20 20 20 6a , eax.. j
0800: 7a 20 20 20 20 20 20 2e 65 6e 64 5f 74 69 6d 65 z .end_time
0810: 72 73 0d 0a 0d 0a 20 20 20 20 20 20 20 20 74 65 rs.... te
0820: 73 74 20 20 20 20 5b 65 61 78 2b 54 54 69 6d 65 st [eax+TTime
0830: 72 2e 66 6c 61 67 73 5d 2c 20 74 6d 66 52 75 6e r.flags], tmfRun
0840: 6e 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 6a 7a ning.. jz
0850: 20 20 20 20 20 20 2e 6c 6f 6f 70 0d 0a 0d 0a 20 .loop....
0860: 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 65 mov e
0870: 63 78 2c 20 5b 65 61 78 2b 54 54 69 6d 65 72 2e cx, [eax+TTimer.
0880: 76 61 6c 75 65 5d 0d 0a 20 20 20 20 20 20 20 20 value]..
0890: 61 64 64 20 20 20 20 20 65 63 78 2c 20 5f 5f 73 add ecx, __s
08a0: 79 73 5f 74 69 6d 65 5f 73 6c 69 63 65 0d 0a 20 ys_time_slice..
08b0: 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 20 5b mov [
08c0: 65 61 78 2b 54 54 69 6d 65 72 2e 76 61 6c 75 65 eax+TTimer.value
08d0: 5d 2c 20 65 63 78 0d 0a 20 20 20 20 20 20 20 20 ], ecx..
08e0: 63 6d 70 20 20 20 20 20 65 63 78 2c 20 5b 65 61 cmp ecx, [ea
08f0: 78 2b 54 54 69 6d 65 72 2e 69 6e 74 65 72 76 61 x+TTimer.interva
0900: 6c 5d 0d 0a 20 20 20 20 20 20 20 20 6a 6c 20 20 l].. jl
0910: 20 20 20 2e 6c 6f 6f 70 0d 0a 0d 0a 3b 20 63 61 .loop....; ca
0920: 6c 6c 20 65 76 65 6e 74 20 68 61 6e 64 6c 65 72 ll event handler
0930: 0d 0a 20 20 20 20 20 20 20 20 63 6d 70 20 20 20 .. cmp
0940: 20 20 5b 65 61 78 2b 54 54 69 6d 65 72 2e 63 61 [eax+TTimer.ca
0950: 6c 6c 62 61 63 6b 5d 2c 20 30 0d 0a 20 20 20 20 llback], 0..
0960: 20 20 20 20 6a 65 20 20 20 20 20 20 2e 68 61 6e je .han
0970: 64 6c 65 72 6f 6b 0d 0a 0d 0a 20 20 20 20 20 20 dlerok....
0980: 20 20 70 75 73 68 20 20 20 20 65 61 78 0d 0a 0d push eax...
0990: 0a 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 20 . mov
09a0: 20 65 63 78 2c 20 5b 65 61 78 2b 54 54 69 6d 65 ecx, [eax+TTime
09b0: 72 2e 66 6c 61 67 73 5d 0d 0a 20 20 20 20 20 20 r.flags]..
09c0: 20 20 61 6e 64 20 20 20 20 20 65 63 78 2c 20 24 and ecx, $
09d0: 30 66 0d 0a 20 20 20 20 20 20 20 20 63 6d 70 20 0f.. cmp
09e0: 20 20 20 20 65 61 78 2c 20 74 6d 66 44 6f 4e 6f eax, tmfDoNo
09f0: 74 68 69 6e 67 0d 0a 20 20 20 20 20 20 20 20 6a thing.. j
0a00: 65 20 20 20 20 20 20 2e 65 6e 64 5f 65 76 65 6e e .end_even
0a10: 74 0d 0a 0d 0a 3b 20 72 75 6e 20 74 68 65 20 74 t....; run the t
0a20: 69 6d 65 72 20 65 76 65 6e 74 20 69 6e 20 73 65 imer event in se
0a30: 70 61 72 61 74 65 20 74 68 72 65 61 64 3a 0d 0a parate thread:..
0a40: 20 20 20 20 20 20 20 20 73 74 64 63 61 6c 6c 20 stdcall
0a50: 54 68 72 65 61 64 43 72 65 61 74 65 2c 20 5b 65 ThreadCreate, [e
0a60: 61 78 2b 54 54 69 6d 65 72 2e 63 61 6c 6c 62 61 ax+TTimer.callba
0a70: 63 6b 5d 2c 20 65 61 78 0d 0a 0d 0a 2e 65 6e 64 ck], eax.....end
0a80: 5f 65 76 65 6e 74 3a 0d 0a 20 20 20 20 20 20 20 _event:..
0a90: 20 70 6f 70 20 20 20 20 20 65 61 78 0d 0a 20 20 pop eax..
0aa0: 20 20 20 20 20 20 74 65 73 74 20 20 20 20 5b 65 test [e
0ab0: 61 78 2b 54 54 69 6d 65 72 2e 66 6c 61 67 73 5d ax+TTimer.flags]
0ac0: 2c 20 74 6d 66 53 79 6e 63 44 65 73 74 72 6f 79 , tmfSyncDestroy
0ad0: 0d 0a 20 20 20 20 20 20 20 20 6a 7a 20 20 20 20 .. jz
0ae0: 20 20 2e 68 61 6e 64 6c 65 72 6f 6b 0d 0a 0d 0a .handlerok....
0af0: 20 20 20 20 20 20 20 20 73 74 64 63 61 6c 6c 20 stdcall
0b00: 54 69 6d 65 72 44 65 73 74 72 6f 79 2c 20 65 61 TimerDestroy, ea
0b10: 78 0d 0a 0d 0a 2e 68 61 6e 64 6c 65 72 6f 6b 3a x.....handlerok:
0b20: 0d 0a 3b 20 6a 75 6d 70 20 74 6f 20 6c 6f 6f 70 ..; jump to loop
0b30: 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 20 20 20 .. mov
0b40: 20 20 65 63 78 2c 20 5b 65 61 78 2b 54 54 69 6d ecx, [eax+TTim
0b50: 65 72 2e 69 6e 74 65 72 76 61 6c 5d 0d 0a 20 20 er.interval]..
0b60: 20 20 20 20 20 20 73 75 62 20 20 20 20 20 5b 65 sub [e
0b70: 61 78 2b 54 54 69 6d 65 72 2e 76 61 6c 75 65 5d ax+TTimer.value]
0b80: 2c 20 65 63 78 0d 0a 20 20 20 20 20 20 20 20 6a , ecx.. j
0b90: 6d 70 20 20 20 20 20 2e 6c 6f 6f 70 0d 0a 0d 0a mp .loop....
0ba0: 2e 65 6e 64 5f 74 69 6d 65 72 73 3a 0d 0a 20 20 .end_timers:..
0bb0: 20 20 20 20 20 20 70 6f 70 20 20 20 20 20 65 64 pop ed
0bc0: 69 20 65 73 69 20 65 62 78 0d 0a 20 20 20 20 20 i esi ebx..
0bd0: 20 20 20 78 6f 72 20 20 20 20 20 65 61 78 2c 20 xor eax,
0be0: 65 61 78 0d 0a 20 20 20 20 20 20 20 20 63 72 65 eax.. cre
0bf0: 74 0d 0a 65 6e 64 70 t..endp