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 | |
| DATOS SEGMENT | |
| MENSAJE DB CR,LF,'HOLA MUNDO ', CR,LF,'$' | |
| DATOS ENDS | |
| PILA SEGMENT STACK | |
| DB 64 DUP('PILA') | |
| PILA ENDS | |
| CODIGO SEGMENT | |
| HMF PROC FAR | |
| ASSUME CS:CODIGO,DS:DATOS,SS:PILA | |
| MOV AX,DATOS | |
| MOV DS,AX | |
| LEA DX,MENSAJE | |
| CALL ESCRIBE | |
| MOV AX,4C00H | |
| INT 21H | |
| HMF ENDP | |
| ESCRIBE PROC | |
| MOV AH,9 | |
| INT 21H | |
| RET | |
| ESCRIBE ENDP | |
| CODIGO ENDS | |
| END HMF |
