Programa 7 -Cambio de color de pantalla-

PILA SEGMENT STACK 'STACK'
     DB 100H DUP (?)
PILA ENDS

DATOS SEGMENT
              MENSAJE DB 'Se ha cambiado el color de la pantalla$'
DATOS ENDS
         
CODIGO SEGMENT
             
              ASSUME CS:CODIGO, SS:PILA, DS:DATOS

INICIO:

       MOV AH,06H
       MOV BH,02FH ; 02fh= verde, 03fh=cyan, 06fh= cafe,
       MOV CX,0000H
       MOV DX,184FH
       INT 10H
      
       MOV AH,02H
       MOV BH,00H
       MOV DX,0000H
       INT 10H
      
       MOV AX,DATOS
       MOV DS,AX
       LEA DX,MENSAJE
       MOV AH,9H
       INT 21H

       MOV AX,4C00H
       INT 21H

CODIGO ENDS

END INICIO