37c
        jmp start

string: db 'COLOR TEST COLOR TEST COLOR TEST'
len equ $-string
col_nmb db 0
green db 0
red db 0
blue db 0

start:

        push bp
        
        mov ah,06H
        mov al,00H
        mov bh,00H
        mov ch,0
        mov cl,0
        mov dh,29
        mov dl,79
        int 10H

        pop bp
        
        mov bl,00H

        mov dl,0
        mov dh,0
        
        mov cx,16

loop1:
        push cx
        push dx

        mov ah,13H
        mov al,01H
        mov bh,0
        mov bp,string
        mov cx,len
        int 10H
        
        pop dx
        inc dh
        inc bl
        
        pop cx
        loop loop1
        

        mov ah,00H
        int 16H

        
        mov ah,00H
        mov al,03H
        int 10H
        
        
        mov ax,04c00
        int 21H



.

0