Programa 9 Colores 2

include 'emu8086.inc'

CUADRO MACRO XI,YI,XF,YF,COLOR
MOV AX, 0600H
MOV BH, COLOR
MOV BL, 00H
MOV CH, YI
MOV CL, XI
MOV DH, YF
MOV DL, XF
INT 10h
endM

Cuadros macro

    cuadro 1,1,10,5,160
    posicion 2,3
    desplegar M1

    cuadro 1,1,10,5,40
    posicion 3,3
    desplegar M2

    cuadro 1,1,10,5,70
    posicion 4,3
    desplegar M3

    cuadro 1,1,10,5,100
    posicion 5,3
    desplegar M4

    cuadro 1,1,10,5,130
    posicion 6,3
    desplegar M5

    cuadro 1,1,10,5,160
    posicion 7,3
    desplegar M6

    cuadro 1,1,10,5,180
    posicion 8,3
    desplegar M7

    cuadro 1,1,10,5,200
    posicion 2,3
    desplegar M8

    cuadro 1,1,10,5,20
    posicion 2,3
    desplegar M9

    cuadro 1,1,10,5,40
    posicion 2,3
    desplegar M10

    cuadro 1,1,10,5,60
    posicion 2,3
    desplegar M11

    cuadro 1,1,10,5,80
    posicion 2,3
    desplegar M12

    cuadro 1,1,10,5,120
    posicion 2,3
    desplegar M13

    cuadro 1,1,25,5,160
    posicion 2,3
    desplegar M14




endM



POSICION MACRO X,Y
MOV DH, Y
MOV DL, X
MOV AH, 02
MOV BH, 00
INT 10H
ENDM

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

DATOS SEGMENT
M1 DB "E",'$'
M2 DB "Q",'$'
M3 DB "U",'$'
M4 DB "I",'$'
M5 DB "P",'$'
M6 DB "O",'$'
M7 DB "1",'$'
M8 DB "EQUIPO1",'$'
M9 DB "HUMBERTO",'$'
M10 DB "PEDRO",'$'
M11 DB "HUMBERTO",'$'
M12 DB "PEDRO",'$'
M13 DB "HUMBERTO",'$'
M14 DB "EQUIPO1 HUMBERTO, PEDRO",'$'                                       

datos ends

CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
PRINCIPAL PROC

MOV AX,DATOS
MOV DS,AX
Cuadros

PRINCIPAL ENDP

CODIGO ENDS

END PRINCIPAL