9.Programa Mensaje en posicion X,Y

	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',CR,LF,'$'
	DATOS ENDS
	PILA SEGMENT STACK
	DW 100 DUP('0')
	PILA ENDS
	CODIGO SEGMENT
	PC PROC FAR
	ASSUME CS:CODIGO,DS:DATOS,SS:PILA
	MOV AX,DATOS
	MOV DS,AX
	LEA DX,MENSAJE
	CALL POSICIONA_CURSOR
	MOV AH,IMPRIMIR_9
	INT DOS_21H
	MOV AX,FIN_4C00H
	INT DOS_21H
	PC 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 PC

view rawMensaje en posicion. hosted with ❤ by GitHub