Actividades en TurboAssambler

1. Limpiar Pantalla:


FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_l0H 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,9AH
MOV CX,00H
MOV DX,484FH
INT BIOS_l0H
RET
LIMPIA_PANTALLA ENDP

CODIGO ENDS
END CLS

2. Mismo Programa en EMU8086:


Pila SEGMENT STACK "STACK"
DB 100 DUP ('0')
PILA ENDS


CODIGO SEGMENT


ASSUME CS:CODIGO,SS:PILA

INICIO:


MOV AH,06H
MOV BH,9FH
MOV CX,0000H
MOV DX,104FH
INT 10h


INT 21H
MOV AX,4C00H
INT 21H



CODIGO ENDS

END INICIO

3. Cambiar Color y Mostrar Mensaje:


DATOS SEGMENT

MENSAJE DB 10,13, "SE HA CAMBIADO EL COLOR DE LA PANTALLA",10,13,"$"


DATOS ENDS

CODIGO SEGMENT

ASSUME CS:CODIGO,SS:PILA, DS:DATA

INICIO:


MOV AH,06H
MOV BH,6FH
MOV CX,0000H
MOV DX,104FH
INT 10h


MOV AH,02H
MOV BH,00H
MOV DX,0000H
INT 10h

MOV AX, DATOS
MOV DX,AX
LEA DX,MENSAJE
MOV AH,9H
INT 21H

MOV AX,4C00H
INT 21H



CODIGO ENDS

END INICIO