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 | |
| LINEA1 DB CR,LF,'Carolina Sauceda',CR,LF,'$' | |
| LINEA2 DB 'Tecnologico de matamoros',CR,LF,'$' | |
| LINEA3 DB 'ING. SISTEMAS COMPUTACIONALES',CR,LF,'$' | |
| LINEA4 DB 'ES COMPLICADO ;-;',CR,LF,'$' | |
| DATOS ENDS | |
| PILA SEGMENT STACK | |
| DB 64 DUP('PILA') | |
| PILA ENDS | |
| CODIGO SEGMENT | |
| LN PROC FAR | |
| ASSUME CS:CODIGO,DS:DATOS,SS:PILA | |
| MOV AX,DATOS | |
| MOV DS,AX | |
| LEA DX,LINEA1 | |
| CALL ESCRIBE | |
| LEA DX,LINEA2 | |
| CALL ESCRIBE | |
| LEA DX,LINEA3 | |
| CALL ESCRIBE | |
| LEA DX,LINEA4 | |
| CALL ESCRIBE | |
| MOV AX,4C00H | |
| INT 21H | |
| LN ENDP | |
| ESCRIBE PROC | |
| MOV AH,9 | |
| INT 21H | |
| RET | |
| ESCRIBE ENDP | |
| CODIGO ENDS | |
| END LN | |
