org 100h
jmp start
svetla dw 2249h,22CBh,0F30Ch,1208h,130Ch,1208h,130Ch,1208h,130Ch,228Ah,2249h,2659h,0A861h,2451h,2249h
start: mov cx,15
lea si,svetla
ponovo: lodsw
out 4,ax
mov dx,0
mov bx,ax
shl bx,14
shr bx,14
cmp bx,0000h
mov bx,5
je kasni1
jne kasni
vrati:loop ponovo
jmp start
int 20h

kasni:push ax
push cx

shr ax,12
mov cx,ax
cmp cx,000Fh
jne skok
mov cx,10
skok:push cx

push ax

mov ax,5
out 199,ax
mov bx,ax
dec bx
pop ax

mov ax,707
mul ax
mov cx,dx
mov dx,ax
mov ah,86h
int 15h
pop cx
loop skok
mov dx,0
pop cx
pop ax
jmp vrati

kasni1:push ax
push cx
shr ax,12
mov cx,ax
cmp cx,000Fh
jne skok1
mov cx,10
skok1:push cx

push ax

mov ax,bx
out 199,ax
pop dx
inc dx
cmp dx,0002h
je proso
mov dx,0
dec bx
proso:
push dx
pop ax
mov ax,707
mul ax
mov cx,dx
mov dx,ax
mov ah,86h
int 15h
pop cx
loop skok1

pop cx
pop ax
jmp vrati