org 100h
jmp start
svetla dw 249h,2CBh,30Ch,2CBh,249h,659h,861h,451h


start:mov cx,7

skok:mov ax,cx
    out 199,ax
    call kasni
    loop skok
    int 20h


   ponovo:lodsw
   out 4,ax
   loop ponovo

   mov cx,3

skok1:mov ax,cx
    out 199,ax
    call kasni
    loop skok1
    int 20h

   ponovo1:lodsw
   out 4,ax
   loop ponovo1
   jmp start


   kasni:push cx
   mov ax,1000
   mul ax
   mov cx,dx
   mov dx,ax
   mov ah,86h
   int 15h
   pop cx
   cmp ax,86h
   jg skok
   lea si,svetla
   jmp ponovo
   int 20h