Programa Ambrocio Letras de colores

CR EQU 13    ;Declaro retorno de carro

LF EQU 10    ;Declaro salto de linea

BIOS EQU 10H ;Declaro interrupcion 10h

DOS EQU 21H  ;Declaro interrupcion 21h

TEXTO EQU 3  ;Declaro el servicio 03 para la impresion de texto desde BIOS

FIN EQU 4C00H ;Declaro interrupcion de exit

VARIABLES SEGMENT          ;Declaro las variables  

    include "emu8086.inc"

    TITULO DB "JUENITO_XD" ;Un texto

    COLORES DB 01001110B   ;Una agrupacion de colores

    DB 11101111B           ;0= cursos parpadeante 000=color de fondo 0000=color del texto

    DB 10110001B

    DB 01011100B

    DB 00110001B

    DB 01011111B

    DB 01101011B

    DB 01011100B

    DB 01101111B

    DB 01001110B

    DB 00110001B

VARIABLES ENDS

VPILA SEGMENT;STACK       ;Declaro la pila

    DB 64 DUP("PILA")

VPILA ENDS

CODIGO SEGMENT

    COLO PROC FAR    ;Declaro un procedimiento

    ASSUME CS:CODIGO, DS:VARIABLES, SS:VPILA

    MOV AX,VARIABLES

    MOV DS,AX

    MOV AX,TEXTO     ;Invoco el servicio de impresion de texto 

    INT BIOS         ;Ejecuto el servicio con 10h

    MOV CX,11        ;Declaro el iterador en 11

    XOR SI,SI        ;Borro SI

    BUCLE:           ;Llamo al bucle

    PUSH CX

    MOV DX,SI        ;Indico la posicion de la letra a imprimir con SI

    ADD DX,35        ;Indico la coordenada en x, la coordenada inicial es x=35

    MOV DH,12        ;Indico la coordenada en y  

    CALL COLOCA      ;Llamo al sistema para que coloque el cursor donde yo quiero

    MOV AL,[SI+OFFSET TITULO] ;Le indico la letra a imprimir pasandole SI y el texto como parametros

    MOV BL,[SI+OFFSET COLORES]   ;Le indico los colores a imprimir pasandole SI y el conjunto de colores como parametros

    CALL COLOR                ;Llamo a la impresion del texto

    POP CX

    INC SI                     ;Incremento a SI para modificar la letra a imprimir y la coordenada en x

    

    LOOPNZ BUCLE

    MOV AH,8    ;08:Lee un caracter sin imprimir nada en pantalla

    INT DOS     ;Ejecuto el servicio

    XOR DX,DX   ;Limpio DX

    CALL COLOCA ;Coloco el cursor en las coordenadas x=0 y=0     

    PUT_CURSOR 10,10

    print "Hola mundo" 

    PUT_CURSOR 20,20

    print "Estas son las coordenadas( x=20, y=20)"

    TERMINA        ;MACRO TERMINA

    COLO ENDP

       

    include "C:\Users\ekt\Desktop\Lenguajes De Interfaz\practica 9_2\libreria.inc"

    

CODIGO ENDS

END COLO