LOOP LETRAS DE COLORES TURBO ASSEMBLER

 Aportacion de compañeros de la otra clase 
;Turbo Assembler     

.MODEL SMALL
PILA SEGMENT STACK
    DB 64 DUP('PILA ')
PILA ENDS

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

DATO SEGMENT 
    TITULO DB 'Agnax & Alizz '
    COLORES DB 5BH
    DB 5FH
    DB 5BH
    DB 5FH
    DB 5BH
    DB 00H
    DB 0F0H
    DB 00H
    DB 09CH
    DB 09FH
    DB 09CH
    DB 09FH
    DB 09CH
    DB 00H
    DB 0CH
DATO ENDS
 
CODIGO SEGMENT
    ASSUME DS:DATO, CS:CODIGO, SS:PILA
 
    INICIO PROC NEAR
    MOV AX, DATO
    MOV DS, AX
    ;Esta parte de aqui no es necesaria
    INT BIOS
    MOV CX, 15 
        BUCLE:
            ;Ponemos esto para no agarrar basura
            MOV DX,SI
            ADD DX,35 ;columna
            MOV DH,12 ;renglon
            CALL COLOCA
            MOV AL, [SI+OFFSET TITULO]
            MOV BL, [SI+OFFSET COLORES]
            CALL COLOR
            INC SI
        LOOPNZ BUCLE
     
        MOV AH,0
        INT DOS
        CALL COLOCA
        MOV AX, FIN
        INT DOS
 
    COLOR PROC
    MOV AH, 9
    INT BIOS
    RET
     
    COLOCA PROC
    MOV AH,2
    INT BIOS
    RET

END INICIO
CODIGO ENDS