Mejora programa # 9: Letras de colores (Ivan Gutierrez)

Código:

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 "I",'$'

M2 DB "V",'$'

M3 DB "A",'$'

M4 DB "N",'$'

datos ends

cincocuadros macro

cuadro 1,1,20,5,71

posicion 10,3

desplegar M1

cuadro 21,1,40,5,22

posicion 30,3

desplegar M2

cuadro 41,1,60,5,33

posicion 50,3

desplegar M3

cuadro 61,1,78,5,54

posicion 70,3

desplegar M4

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