79f
        jmp start

string: db 'COLOR TEST ',20 dup 219          ; 'Û'
len equ $-string
col_nmb db 0
color   db 0
strings:  db 'Color 00H-0FH$'
          db 'Color 10H-1FH$'
          db 'Color 20H-2FH$'
          db 'Color 30H-3FH$'

start:
        mov ah,00H
        mov al,03H             ;640x480, 256 colors
        int 10H

        mov si,0
        mov color,0
loopi:
        push si
        
        push bp
        
        mov ah,06H
        mov al,00H
        mov bh,07H
        mov ch,0
        mov cl,0
        mov dh,24
        mov dl,79
        int 10H

        pop bp

        mov ah,02H
        mov bh,0
        mov dh,0
        mov dl,0
        int 010
        
        mov bp,strings
        add bp,si
        
        mov ah,09H
        mov dx,bp
        int 21H
        
        
        mov col_nmb,0
        mov cx,16
set_loop:
        push cx

        mov ah,010H
        mov al,00H             ;Set individual DAC register
        
        mov bh,color
        mov bl,col_nmb            ;Color number
        int 10H

        inc col_nmb
        inc color
        
        pop cx
        loop set_loop


        mov col_nmb,0
        mov cx,16
        mov dh,0
out_loop:
        push cx
        push dx

        mov ah,13H
        mov al,01H
        mov bh,0
        mov bl,col_nmb
        mov dl,18
        mov cx,len
        mov bp,string
        int 10H

        pop dx
        pop cx
        inc dh
        inc col_nmb
        loop out_loop


        mov ah,00H
        int 16H
        cmp al,27
        je ending

        pop si
        add si,14
        cmp si,56
        jne >l1
        mov si,0
        mov color,0
l1:        
        jmp loopi
        
ending:        
        
        
        mov ah,00H
        mov al,03H
        int 10H
        
        
        mov ax,04c00
        int 21H



.

0