Использование таймера

dely macro time; (1) 
 local zd,c1,cikl,ii,ii1; (2) описываем все метки, используемые вмакроопределении 
 push cx; (3)помещаем в стек используемые в макроопределении регистры 
 push bx; (4) 
 push bp; (5) 
 push ax; (6) 
 push dx; (7) 
 mov cx,time; (8) задаём количество повторений цикла задержки zd – задержка в цикле 18.2 секунды 
zd: push cx; (9) 
 mov bp,0;(10) 
 mov bx,1;(11) 
 
cikl: 
 inc BP;(12) 
 mov ah,00h;(13) 
 int 1Ah;(14) 
 cmp BP,1;(15) 
 je ii;(16) переходим на метку ii на первой итерации цикла 
 jmp ii1;(17) на следующих итерациях переходим на метку ii1 
ii: add bx,dx;(18) формируем значение на единицу больше, чем в регистре dx 
ii1: ; (19) 
 cmp bx,dx;(20) если значение в регистре dx изменилось(сравниваем значение в dx с сформированным в строке 18 значением в регистре bx, которое на единицу больше, на единицу больше значение в dx станет через 18.2 сек) 
 jne cikl;(21) если нет, то новая итерация цикла 
 pop cx;(22) если да, конец макрокоманды задержки 
 loop zd;(23) 
 pop cx;(24) 
 pop bx;(25) 
 pop bp;(26) 
 pop ax;(27) 
 pop dx;(28) 
 endm;(29)

changcv proc 
    inc color 
    call zvezda 
    jmp changcv 
ret 
changcv endp