Programa #9 "Color de texto y resaltado"

CR EQU 13

LF EQU 10

BIOS EQU 10H

DOS EQU 21H

TEXTO EQU 3

FIN EQU 4C00H

 

DATOS SEGMENT

    TITULO DB "JUENITO_XD"

    COLORES DB 01001110B

    DB 11101111B

    DB 10110001B

    DB 01011100B

    DB 00110001B

    DB 01011111B

    DB 01101011B

    DB 01011100B

    DB 01101111B

    DB 01001110B

    DB 00110001B

DATOS ENDS

 

PILA SEGMENT STACK

    DB 64 DUP("PILA")

PILA ENDS

 

CODIGO SEGMENT

    COLO PROC FAR

    ASSUME CS:CODIGO, DS:DATOS, SS:PILA

    MOV AX,DATOS

    MOV DS,AX

    MOV AX,TEXTO

    INT BIOS

    MOV CX,11

    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