Код простейшего таймера ассемблер

[иванлеон]

Есть у кого нибудь код простейшего таймера на ассемблере, желательно с комментариями?
Спасибо за внимание

[lunatik_92]

.

386P
.MODEL FLAT, stdcall
STD_OUTPUT_HANDLE   equ -11
STD_INPUT_HANDLE        equ -10
TIME_PERIODIC       equ 1
EXTERN lstrlenA@4:NEAR
EXTERN wsprintfA:NEAR
EXTERN timeSetEvent@20:NEAR
includelib c:\masm32\lib\user32.lib
includelib c:\masm32\lib\kernel32.lib
includelib c:\masm32\lib\winmm.lib
include c:\masm32\include\kernel32.inc
WriteConsoleA   PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD
ReadConsoleA    PROTO :DWORD,:DWORD,:DWORD,:DWORD,:DWORD
lstrlenA        PROTO :DWORD
ExitProcess     PROTO :DWORD
timeKillEvent   PROTO :DWORD
GetStdHandle    PROTO :DWORD
__
_DATA SEGMENT   DWORD PUBLIC USE32 'DATA'
HANDL       DWORD ?
HANDL1      DWORD ?
STR3        DB 100 dup(0)
FORM        DB " %lu",0
BUF         DB 200 dup(?)
NUM         DWORD 0
LENS        DWORD ?
ID      DWORD ?
_DATA ENDS
 
_TEXT SEGMENT   DWORD PUBLIC USE32 'CODE'
START:
call        AllocConsole
invoke      GetStdHandle, STD_INPUT_HANDLE
MOV         HANDL1,EAX
invoke      GetStdHandle, STD_OUTPUT_HANDLE
MOV         HANDL,EAX
 
PUSH        TIME_PERIODIC
PUSH        0
PUSH        OFFSET TIME
PUSH        0                      
PUSH        1000                        
CALL        timeSetEvent@20
 
MOV         ID,EAX
 
INVOKE      ReadConsoleA, HANDL1, OFFSET BUF, 200, OFFSET LENS, 0
INVOKE      timeKillEvent, ID
CALL        FreeConsole
INVOKE      ExitProcess, 0
TIME PROC
    PUSHA
    PUSH        NUM
    PUSH        OFFSET FORM
    PUSH        OFFSET STR3
    CALL        wsprintfA
    ADD         ESP,12
    INVOKE      lstrlenA, OFFSET STR3
    INVOKE      WriteConsoleA,HANDL,OFFSET STR3,EAX,OFFSET LENS,0
    INC         NUM
    POPA
    RET         20
TIME ENDP
_TEXT ENDS
END START