PROGRAMA IMPRIME LETRAS EN COLORES

emu8086

BIOS EQU 10H

DOS EQU 21H

FIN EQU 4C00H

.DATA

    TITULO DB 'ROMEO CRUZ'

    COLORES DB 3DH

    DB 5FH

    DB 3DH

    DB 5FH

    DB 3DH

   

    DB 00H

   

    DB 5BH

    DB 0F0H

    DB 05DH

    DB 0F0H

  

   

   

  

.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