10. Programa Mensaje en posición X y Y, limpia pantalla.

	import base64
	try:
	CR EQU 13
	LF EQU 10
	TECLADO_8 EQU 8
	IMPRIMIR_9 EQU 9
	FIN_4C00H EQU 4C00H
	DOS_21H EQU 21H
	BIOS_10H EQU 10H
	TAB EQU 09H
	BELL EQU 07H
	DATOS SEGMENT
	RENGLON DB 0
	COLUMNA DB 0
	MENSAJE DB CR,LF,'POSICION (X,Y), DEL MENSAJE: Hola mundo'
	DB 'DESPUES DE BORRAR PANTALLA',CR,LF,'$'
	DATOS ENDS
	PILA SEGMENT STACK
	DW 100 DUP('0')
	PILA ENDS
	CODIGO SEGMENT
	CLSP PROC FAR
	ASSUME CS:CODIGO,DS:DATOS,SS:PILA
	MOV AX,DATOS
	MOV DS,AX
	LEA DX,MENSAJE
	CALL LIMPIA_PANTALLA
	CALL POSICIONA_CURSOR
	MOV AH,IMPRIMIR_9
	INT DOS_21H
	MOV AX,FIN_4C00H
	INT DOS_21H
	CLSP ENDP
	LIMPIA_PANTALLA PROC NEAR
	MOV AX,0600H
	MOV BH,0AH
	MOV CX,000H
	MOV DX,484FH
	INT BIOS_10H
	RET
	LIMPIA_PANTALLA ENDP
	POSICIONA_CURSOR PROC NEAR
	MOV AH,02
	MOV BH,00
	MOV DH,RENGLON
	MOV DL,COLUMNA
	INT BIOS_10H
	RET
	POSICIONA_CURSOR ENDP
	CODIGO ENDS
	END CLSP

view rawMensaje en posición que limpia. hosted with ❤ by GitHub