Práctica Color

 FIN_4C00H EQU 4C00H
 DOS_21H EQU 21H
 BIOS_10H EQU 10H

 PILA SEGMENT STACK
 DW 100 DUP('0')
 PILA ENDS

 CODIGO SEGMENT

 pe06_cls PROC FAR
 ASSUME CS:CODIGO,SS:PILA

 CALL LIMPIA_PANTALLA
 MOV AX,FIN_4C00H
 INT DOS_21H

 pe06_cls ENDP
 LIMPIA_PANTALLA PROC NEAR
 MOV AX,0600H
 MOV BH,6EH
 MOV CX,0000H
 MOV DX,484FH
 INT BIOS_10H
 RET
 LIMPIA_PANTALLA ENDP

 CODIGO ENDS

END pe06_cls