cuadros de colores alex

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 "T",'$'
M3 DB "T",'$'


datos ends
cincocuadros macro

cuadro 1,1,20,5,78
posicion 10,3
desplegar M1

cuadro 21,1,40,5,80
posicion 30,3
desplegar M2

cuadro 41,1,60,5,44
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