This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
