Imprimir letras de Colores

• Programa que imprime letras de colores en EMU8086

• Código

BIOS EQU 10H

DOS EQU 21H

FIN EQU 4C00H

.DATA

    TITULO DB 'Edna Garcia (:'

    COLORES DB 5BH

    DB 5FH

    DB 3DH

    DB 5FH

    

    DB 00H

    

    DB 5BH

    DB 0F0H

    DB 05DH

    DB 09FH

    DB 03BH

    DB 09FH

    

    DB 00H

     

    DB 08AH

    DB 01BH

    

    

   

.CODE

    INICIO PROC NEAR:

    MOV AX, @DATA

    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