.model small
.code
org 100h
s:jmp main
b dB 0
d dB 000h
main proc


x:call color
mov ah,2
mov dl,b
int 21h
inc b
cmp b,15
jna x
int 20h

color proc
mov ah,9
mov al,''
mov bl,d
mov cx,1
int 10h
inc d
ret
color endp

main endp
end s