Ejercicios Realizados en Clase - (Turbo Assembler)

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