Programas del dia 20/02/018. Manejo del colores

FIN_4c00H EQU 4c00h
DOS_21h EQU 21h
BIOS_10h EQU 10h

pila segment stack
    Dw 100 DUP('0')
pila ends

codigo segment
    CLS proc Far
    assume CS:codigo,SS:pila
    CAll limpia
    mov ax,FIN_4c00H
    int DOS_21h
    CLS ENDP
limpia proc near
 mov ax,0600h
 mov bh,0Ah
 mov cx,001h
 mov dx,484fh
 int BIOS_10h
 ret
 limpia endp
codigo ends
end CLS
---------------------------------------------------------------------------------------------
org 100h

mov ah ,06h
mov bh, 9fh
mov cx ,0000h
mov dx,484fh

int 10h

mov ah,02h
mov bh ,00h
mov dx ,0000h
int 10h

int 21h
mov ax,4c00h
int 21h



ret
--------------------------------------------------------------------------------------------------
org 100h

.data
msg DB "color","$"

.code

mov ah ,06h
mov bh, 9fh
mov cx ,0000h
mov dx,484fh

int 10h

mov ah,02h
mov bh ,00h
mov dx ,0000h
int 10h

mov ax,@data
mov dx,ax
lea dx,msg
mov ah,9h
int 21h

mov ax,4c00h
int 21h