Aportación de Jonnatan Guzman J. programa de colores en Turbo....

BIOS EQU 10H
DOS EQU 21H
FIN EQU 4C00H
TEXTO EQU 3

PILA SEGMENT STACK
    DB 64 DUP('PILA ')
PILA ENDS


DATOS SEGMENT
    assume ds:DATOS,SS:PILA,cs:codigo


TITULO DB 'YO Y MI PAREJA '
colores db 5bh
DB 5FH
DB 5BH
DB 5FH
db 5BH
DB 5FH
DB 5BH
DB 5FH
db 5BH
DB 5FH
DB 5BH
DB 5FH
db 5BH
DB 5FH
DB 5BH
DB 5FH
db 5BH
DATOS ENDS
codigo segment
    COLO PROC FAR
    mov AX, DATOS
       mov ds,ax
       mov ax,texto
       int bios
       mov cx,16
       xor si,si
       bucle:
       push cx
       mov dx,si
       add dx,35
       mov dh,12
       call coloca
       mov al,[si+offset titulo]
       mov bl,[si+offset colores]
       call color
       pop cx
       inc si
     
       loopnz bucle
       mov ah,8
       int dos
       xor dx,dx
       call coloca
       mov ax,fin
       int dos
       colo endp
   
    color proc
        mov ah,9
        xor bh,bh
        int bios
        ret
        color endp
    coloca proc
        mov ah,2
        xor bx,bx
        int bios
        ret
        coloca endp
        codigo ends
    end colo