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: | |
| FIN_4C00H EQU 4C00H | |
| DOS_21H EQU 21H | |
| BIOS_10H EQU 10H | |
| PILA SEGMENT STACK | |
| DW 100 DUP('0') | |
| PILA ENDS | |
| CODIGO SEGMENT | |
| CLS PROC FAR | |
| ASSUME CS:CODIGO,SS:PILA | |
| CALL LIMPIA_PANTALLA | |
| MOV AX,FIN_4C00H | |
| INT DOS_21H | |
| CLS ENDP | |
| LIMPIA_PANTALLA PROC NEAR | |
| MOV AX,0600H | |
| MOV BH,0AH | |
| MOV CX,000H | |
| MOV DX,484FH | |
| INT BIOS_10H | |
| RET | |
| LIMPIA_PANTALLA ENDP | |
| CODIGO ENDS | |
| END CLS | |
