letrerito

;PILA SEGMENT STACK "STACK"
 ;   DB 100 DUP ('0')
  ;  PILA ENDS 
DATOS SEGMENT
    MENSAJE DB 10,13, 'CAMBIO EL COLOR DE LA PANTALLA',10,13,'$'
    DATOS ENDS

CODIGO SEGMENT
    ASSUME CS:CODIGO,SS:PILA
    INICIO: MOV AH,06H
    MOV BH,9FH
    MOV CX,0000H
    MOV DX,104FH
    INT 10H
   
    MOV AH,02H
    MOV BH,00H
    MOV DX,0000H
    INT 10H
   
    MOV AX,DATOS
    MOV DX,AX
    LEA DX,MENSAJE
    MOV AH,9H
   
    INT 21H
    MOV AX,4C00H
    INT 21H
    CODIGO ENDS
END INICIO