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

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