;Programa que limpia pantalla y escribe una cadena en el renglón12, columna 30. DATOS SEGMENT PARA 'DATA' CADENA DB 'ESTO ES UNA PRUEBA$' DATOS ENDS PILA SEGMENT PARA STACK 'STACK' DW 100 DUP(0) PILA ENDS CODIGO SEGMENT PARA 'CODE' ASSUME CS:CODIGO, DS:DATOS, SS:PILA, ES:DATOS DES_CADE_ATRI PROC NEAR MOV AH,13H MOV AL,01 MOV BH,0 MOV BL,42H LEA BP, CADENA MOV CX,18 MOV DX,1010 INT 10H RET DES_CADE_ATRI ENDP PRINCIPAL PROC FAR PUSH DS XOR AX, AX PUSH AX MOV AX, DATOS MOV DS, AX MOV ES, AX CALL DES_CADE_ATRI MOV AH,10H INT 16H RET PRINCIPAL ENDP CODIGO ENDS END PRINCIPAL