Unidad No.3: Mejora programa # 9: Letras de colores(Alex Gutierrez)

Codigo:

include 'emu8086.inc'

CUADRO MACRO XI,YI,XF,YF,COLOR
    MOV AX, 0600H ;
    MOV BH, COLOR ; COLOR DE FONDO Y LETRA
    MOV BL, 00H
    MOV CH, YI ; Y INICIAL
    MOV CL, XI ; X INICIAL
    MOV DH, YF ; Y FINAL
    MOV DL, XF ; X FINAL
    INT 10h
endM

POSICION MACRO X,Y
    ; **** POSICIONA EL CURSOR ********
    MOV DH, Y ; POSICI[ON EN Y
    MOV DL, X ; POSICI[ON EN X
    MOV AH, 02
    MOV BH, 00
    INT 10H
ENDM

DESPLEGAR MACRO MENSAJE
    MOV AH,09 ;****** MUESTRA MENSAJE *******
    MOV DX,OFFSET MENSAJE
    INT 21h
ENDM

DATOS SEGMENT ;SEGMENTO DE DATOS
    M1 DB "A",'$'
    M2 DB "B",'$'
    M3 DB "C",'$'
   

datos ends
   
cincocuadros macro
   
    cuadro 1,1,20,5,50
    posicion 10,3
    desplegar M1
   
    cuadro 21,1,40,5,84
    posicion 30,3
    desplegar M2
   
    cuadro 41,1,60,5,19
    posicion 50,3
    desplegar M3
   

endM

    CODIGO SEGMENT
    ASSUME CS: CODIGO,DS:DATOS,SS:PILA
    PRINCIPAL PROC
   
    MOV AX,DATOS
    MOV DS,AX
   
    cincocuadros
   
    PRINCIPAL ENDP ;FIN DEL PROCEDIMIENTO
    CODIGO ENDS ;FIN DEL SEGMENTO

END PRINCIPAL