UNIDAD 3 [EJERCICIOS]

1.  HOLA MUNDO

CR EQU 13
LF EQU 0Ah

DATOS SEGMENT
    MENSAJE DB CR, LF, 'HOLA MUNDO: PROGRAMA COMPILADO POR ROCIO',CR, LF, '$'
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP ('PILA')
PILA ENDS


CODIGO SEGMENT
    HM PROC FAR
    ASSUME CS: CODIGO, DS: DATOS, SS:PILA
    
    
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, MENSAJE
    
    MOV AH, 9
    INT 21H
    
    MOV AX, 4C00H
    INT 21H
    
    HM ENDP

    
CODIGO ENDS
END HM

2.  EJEMPLO DE USO DE CONSTANTES

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H

DATOS SEGMENT
    TEXTO DB 'EJEMPLO DEL USO DE CONSTANTES. COMPILADO POR ROCIO', CR, LF, 'S'
   
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP ('PILA')
PILA ENDS

CODIGO SEGMENT
    ASSUME CS: CODIGO, DS: DATOS, SS: PILA
    INICIO:MOV AX, DATOS
           MOV DS, AX
           MOV DX, OFFSET TEXTO
           MOV AH, IMPRIMIR
           INT DOS
           MOV AX, FIN
           INT DOS
         
CODIGO ENDS     
END INICIO

     
3.  HOLA MUNDO (FUNCIONES)

CR EQU 13
LF EQU 10

DATOS SEGMENT
    MENSAJE DB CR, LF, 'HOLA MUNDO. COMPILADO: ROCIO', 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

4.  DATOS PERSONALES

CR EQU 13
LF EQU 10

DATOS SEGMENT
    LINEA1 DB CR, LF, 'ROCIO MAHE', CR, LF, '$'
    LINEA2 DB 'INSTITUTO TECNOLOGICO DE MATAMOROS', CR, LF, '$'
    LINEA3 DB 'ING. SISTEMAS COMPUTACIONALES', CR, LF, '$'
    LINEA4 DB 'SOLTERA', 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

5.  LIMPIAR PANTALLA

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

6.  POSICION DEL CURSOR

CR EQU 13
LF EQU 10
TECLADO_8 EQU 8
IMPRIMIR_9 EQU 9
FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H
TAB EQU 09H
BBLL EQU 07H

DATOS SEGMENT
    RENGLON DB 0
    COLUMNA DB 0
    MENSAJE DB CR, LF, 'POSICION (X,Y), DEL MENSAJE: ROCIO MAHE', CR,LF, '$'
DATOS ENDS

PILA SEGMENT STACK
    DW 100 DUP('0')
PILA ENDS

CODIGO SEGMENT
    PC PROC FAR
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, MENSAJE
    CALL POSICIONA_CURSOR
    MOV AH, IMPRIMIR_9
    INT DOS_21H
    MOV AX, FIN_4C00H
    INT DOS_21H
   
    PC ENDP
    POSICIONA_CURSOR PROC NEAR
    MOV AH, 02
    MOV BH, 00
    MOV DH, RENGLON
    MOV DL, COLUMNA
    INT BIOS_10H
    RET
    POSICIONA_CURSOR ENDP
   
CODIGO ENDS
END PC

7.  BORRA PANTALLA Y POSICIONA EL CURSOR

CR EQU 13
LF EQU 10
TECLADO_8 EQU 8
IMPRIMIR_9 EQU 9
FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H
TAB EQU 09H
BBLL EQU 07H

DATOS SEGMENT
    RENGLON DB 0
    COLUMNA DB 0
    MENSAJE DB CR, LF, 'POSICION (x, y), DEL MENSAJE: ROCIO MAHE'
            DB 'DESPUES DE BORRAR PANTALLA', CR, LF, '$'
        DATOS ENDS
       
        PILA SEGMENT STACK
            DW 100 DUP ('0')
        PILA ENDS
       
       
        CODIGO SEGMENT
            CLSP PROC FAR
            ASSUME CS:CODIGO, DS:DATOS, SS:PILA
            MOV AX, DATOS
            MOV DS, AX
            LEA DX, MENSAJE
            CALL LIMPIA_PANTALLA
            CALL POSICIONA_CURSOR
            MOV AH, IMPRIMIR_9
            INT DOS_21H
            MOV AX, FIN_4C00H
            INT DOS_21H
           
            CLSP ENDP
           
            LIMPIA_PANTALA PROC NEAR
            MOV AX, 0600H
            MOV BH, 0AH
            MOV CX, 000H
            MOV DX, 484FH
            INT BIOS_10H
            RET
            LIMPIA_PANTALLA ENDP
           
            POSICIONA_CURSOR PROC NEAR
            MOV AH, 02
            MOV BH, 00
            MOV DH, RENGLON
            MOV DL, COLUMNA
            INT BIOS_10H
            RET
            POSICIONA_CURSOR ENDP
       
        CODIGO ENDS
        END CLSP

8. PIDE 3 CADENAS

TECLADO EQU 8
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
BIOS EQU 10H
TAB EQU 09H
BBLL EQU 07H

DATOS SEGMENT
    NOMBRE DB 30 DUP (32), '$'
    DIR DB 30 DUP(32), '$'
    TLF DB 15 DUP(32), '$'
    MENS1 DB 'NOMBRE : $'
    MENS2 DB 'DIRECCION : $'
    MENS3 DB 'TELEFONO : $'
    ENTERR DB CR, LF, '$'
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP('PILA')
PILA ENDS

CODIGO SEGMENT
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    MOV AX, DATOS
    MOV DS, AX
    CALL MODO_DE_VIDEO
    MOV DX, OFFSET MENS1
    CALL ESCRIBE
    MOV SI, OFFSET NOMBRE
    MOV CX, 30
    CALL PEDIR
    CALL SALTO_DE_LINEA
    MOV DX, OFFSET MENS2
    CALL ESCRIBE
    MOV SI, OFFSET DIR
    MOV CX, 30
    CALL PEDIR
    CALL SALTO_DE_LINEA
    MOV DX, OFFSET MENS3
    CALL ESCRIBE
    MOV SI, OFFSET ENTERR
    CALL ESCRIBE
    CALL ESCRIBE
    CALL ESCRIBE
    MOV DX, OFFSET NOMBRE
    CALL ESCRIBE
    CALL SALTO_DE_LINEA
   
   
    CALL SALTO_DE_LINEA
    MOV DX, OFFSET DIR
    CALL ESCRIBE
    CALL SALTO_DE_LINEA
    MOV DX, OFFSET TLF
    CALL ESCRIBE
    CALL SALTO_DE_LINEA
    CALL SALIR
   
    PEDIR PROC NEAR
    BUCLE:
    MOV AH, TECLADO
    INT DOS
    MOV [SI], AL
    MOV AH, 2
    MOV DL, AL
    INT DOS
   
    INC SI
    LOOPNZ BUCLE
   
    RET
    PEDIR ENDP
   
    ESCRIBE PROC NEAR
    MOV AH, IMPRIMIR
    INT DOS
    RET
    ESCRIBE ENDP
   
    SALTO_DE_LINEA PROC NEAR
    MOV DX, OFFSET ENTERR
    CALL ESCRIBE
    RET
    SALTO_DE_LINEA ENDP
   
    MODO_DE_VIDEO PROC NEAR
    MOV AX, 3
    INT BIOS
    RET
    MODO_DE_VIDEO ENDP
   
    SALIR PROC NEAR
    MOV AX, FIN
    INT DOS
    RET
    SALIR ENDP
CODIGO ENDS
END INICIO
   
9.  IMPRIME UN VALOR BINARIO

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
BELL EQU 07H

DATOS SEGMENT
    ENCABEZADO DB 13, 10, 13, TAB, TAB, "==================="
    DB 13, 10, 13, TAB, TAB, " PROGRAMA QUE IMPRIME UN VALOR BINARIO"
    DB 13, 10, 13, TAB, TAB, "=====================", 13, 10, 13, "$"
    VALOR_ASCII DB '21314151', "$"
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP('0')
PILA ENDS

CODIGO SEGMENT
    ASCI PROC NEAR
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, ENCABEZADO
    CALL ESCRIBE
    CALL SALIR
   
    ASCI ENDP
   
    ESCRIBE PROC
    MOV AH, 9
    INT 21H
    RET
    ESCRIBE ENDP
   
   
    SALIR PROC NEAR
    MOV AX, FIN
    INT DOS
    RET
SALIR ENDS
CODIGO ENDS
END ASCI

10.  IMPRIME VALORES NUMERICOS  DEC Y HEX

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
BELL EQU 07H

DATOS SEGMENT
    ENCABEZADO DB 13, 10, 13, TAB, TAB,  "=============================="
    DB 13, 10, 13, TAB, TAB, "PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y EXA 91.3 ;)"
    DB 13, 10, 13, TAB, TAB,  "=============================="
    VALOR1 DW 41D, "$"
    VALOR2 DW 42D, "$"
    VALOR3 DW 43D, "$"
    VALOR4 DW 44D, "$"
    VALOR5 DW 45D, "$"
    VALOR6 DW 46, "$"
    VALOR7 DW 47, "$"
    VALOR8 DW 48, "$"
    VALOR9 DW 49, "$"
    VALOR10 DW 50, "$"
    VALOR11 DW 31H, "$"
    VALOR12 DW 32H, "$"
    VALOR13 DW 33H, "$"
    VALOR14 DW 34H, "$"
    VALOR15 DW 35H, "$"
    VALOR16 DW 36H, "$"
    VALOR17 DW 37H, "$"
    VALOR18 DW 38H, "$"
    VALOR19 DW 39H, "$"
    VALOR20 DW 40H, "$"
   
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP ('0')
PILA ENDS
CODIGO SEGMENT
    EXA PROC NEAR
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, ENCABEZADO
    CALL ESCRIBE
    LEA DX, VALOR1
    CALL ESCRIBE
   
LEA DX, VALOR2
CALL ESCRIBE
LEA DX, VALOR3
CALL ESCRIBE
LEA DX, VALOR4
CALL ESCRIBE
LEA DX, VALOR5
CALL ESCRIBE
LEA DX, VALOR6
CALL ESCRIBE
LEA DX, VALOR7
CALL ESCRIBE
LEA DX, VALOR8
CALL ESCRIBE
LEA DX, VALOR9
CALL ESCRIBE
LEA DX, VALOR10
CALL ESCRIBE
LEA DX, VALOR11
CALL ESCRIBE
LEA DX, VALOR12
CALL ESCRIBE
LEA DX, VALOR13
CALL ESCRIBE
LEA DX, VALOR14
CALL ESCRIBE
LEA DX, VALOR15
CALL ESCRIBE
LEA DX, VALOR16
CALL ESCRIBE
LEA DX, VALOR17
CALL ESCRIBE
LEA DX, VALOR18
CALL ESCRIBE
LEA DX, VALOR19
CALL ESCRIBE
LEA DX, VALOR20
CALL ESCRIBE
CALL SALIR
EXA ENDP
ESCRIBE PROC
MOV AH, 9
INT 21H
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX, FIN
INT DOS
RET
SALIR ENDP
CODIGO ENDS
END EXA

11.

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
BELL EQU 07H

DATOS SEGMENT
    ENCABEZADO DB 13, 10, 13, TAB, TAB,  "=============================="
    DB 13, 10, 13, TAB, TAB, "PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y EXA 91.3 ;)"
    DB 13, 10, 13, TAB, TAB,  "=============================="
    VALOR1 DW 41D, "$"
    VALOR2 DW 42D, "$"
    VALOR3 DW 43D, "$"
    VALOR4 DW 44D, "$"
    VALOR5 DW 45D, "$"
    VALOR6 DW 46, "$"
    VALOR7 DW 47, "$"
    VALOR8 DW 48, "$"
    VALOR9 DW 49, "$"
    VALOR10 DW 50, "$"
    VALOR11 DW 31H, "$"
    VALOR12 DW 32H, "$"
    VALOR13 DW 33H, "$"
    VALOR14 DW 34H, "$"
    VALOR15 DW 35H, "$"
    VALOR16 DW 36H, "$"
    VALOR17 DW 37H, "$"
    VALOR18 DW 38H, "$"
    VALOR19 DW 39H, "$"
    VALOR20 DW 40H, "$"
   
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP ('0')
PILA ENDS
CODIGO SEGMENT
    EXA PROC NEAR
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, ENCABEZADO
    CALL ESCRIBE
    LEA DX, VALOR1
    CALL ESCRIBE
   
LEA DX, VALOR2
CALL ESCRIBE
LEA DX, VALOR3
CALL ESCRIBE
LEA DX, VALOR4
CALL ESCRIBE
LEA DX, VALOR5
CALL ESCRIBE
LEA DX, VALOR6
CALL ESCRIBE
LEA DX, VALOR7
CALL ESCRIBE
LEA DX, VALOR8
CALL ESCRIBE
LEA DX, VALOR9
CALL ESCRIBE
LEA DX, VALOR10
CALL ESCRIBE
LEA DX, VALOR11
CALL ESCRIBE
LEA DX, VALOR12
CALL ESCRIBE
LEA DX, VALOR13
CALL ESCRIBE
LEA DX, VALOR14
CALL ESCRIBE
LEA DX, VALOR15
CALL ESCRIBE
LEA DX, VALOR16
CALL ESCRIBE
LEA DX, VALOR17
CALL ESCRIBE
LEA DX, VALOR18
CALL ESCRIBE
LEA DX, VALOR19
CALL ESCRIBE
LEA DX, VALOR20
CALL ESCRIBE
CALL SALIR
EXA ENDP
ESCRIBE PROC
MOV AH, 9
INT 21H
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX, FIN
INT DOS
RET
SALIR ENDP
CODIGO ENDS
END EXA

12. CONVERSIÓN

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H

DATOS SEGMENT
    ASCII DB 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H'
    ESPACIO DB CR, LF, "$"
    BINARIO DB 64 DUP (?), "$"
    MENSAJE1 DB CR, LF, TAB, "ANTES DE LA CONVERSION: ", "$"
    MENSAJE2 DB CR, LF, TAB, "DESPUES DE LA CONVERSION: ", "$"
DATOS ENDS

PILA SEGMENT STACK 'STACK'
    DW 128 DUP('P')
PILA ENDS
CODIGO SEGMENT
    CONV PROC FAR
   
    ASSUME CS:CODIGO, SS:PILA, DS:DATOS
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, MENSAJE1
    CALL ESCRIBE
    LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, ASCII
CALL ESCRIBE
LEA DX,ESPACIO
CALL ESCRIBE
LEA DX,BINARIO
CALL ESCRIBE
LEA DX, ESPACIO
CALL ESCRIBE
LEA SI, ASCII
LEA DI, BINARIO
CALL ASCII2BIN
LEA DX, MENSAJE2
CALL ESCRIBE
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, ASCII
CALL ESCRIBE
LEA DX, ESPACIO
CALL ESCRIBE
LEA DX, BINARIO
CALL ESCRIBE
LEA DX, ESPACIO
CALL ESCRIBE
CALL SALIR
CONV ENDP
ASCII2BIN PROC NEAR
XOR AX, AX
MOV CX, 8
ASCII1:
MOV AL, [SI]
PUSH CX
MOV CX, 8
LOOP_SHIFT:
SHL AL, 1
JC BIN_UNO
MOV [DI], BYTE PTR '0'
JMP CICLO_SHIFT
BIN_UNO:
MOV [DI], BYTE PTR '1'
CICLO_SHIFT:
INC DI
LOOP LOOP_SHIFT
POP CX
INC SI
LOOP ASCII1
RET
ASCII2BIN ENDP
ESCRIBE PROC
MOV AH, IMPRIMIR
INT DOS
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX, FIN
INT DOS
SALIR ENDP
CODIGO ENDS
END CONV

13.  NUMEROS EN HEXADECIMAL

CR EQU 13

LF EQU 10

IMPRIMIR EQU 9

FIN EQU 4C00H

DOS EQU 21H

TAB EQU 09H

DATOS SEGMENT

ENCABEZADO DB 13, 10, 13, 10, TAB, TAB, "================="

DB 13, 10, 13, TAB, TAB, "PROGRAMA QUE IMPRIME NUMEROS EN HEXADECIMAL"

DB 13, 10, 13, TAB, TAB, "=============", 13, 10, 13, 10, "$"

DATOS ENDS

PILA SEGMENT STACK 'STACK'

    DB 64 DUP ('0')

PILA ENDS

CODIGO SEGMENT

    CEXA PROC NEAR

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

ORG 100H

MOV AX, DATOS

MOV DX, AX

LEA DX, ENCABEZADO

CALL ESCRIBE

MOV CX, 200H

XOR DX, DX

CICLO:

CALL ESCRIBE_HEX

CALL ESCRIBE_CRLF

INC DX

LOOP CICLO

CALL SALIR

CEXA ENDP

ESCRIBE_HEX PROC NEAR

PUSH AX

PUSH CX

PUSH DX

OTRO_DIGITO:

PUSH CX

MOV CL,4

ROL DX, CL

CALL ESCRIBE_DIGITO_HEX

POP CX

LOOP OTRO_DIGITO

POP DX

POP CX

POP AX

RET

ESCRIBE_HEX ENDP

ESCRIBE_DIGITO_HEX PROC NEAR

PUSH AX

PUSH DX

AND DX, 0FH

CMP DL, 10

JAE ES_MAYOR_A_10

ADD DL, 48

JMP IMPRIME_DIGITO

ES_MAYOR_A_10:

ADD DL, 55

IMPRIME_DIGITO:

MOV AH, 2

INT 21H

POP DX

POP AX

RET

ESCRIBE_DIGITO_HEX ENDP

ESCRIBE_CRLF PROC NEAR

PUSH AX

PUSH DX

MOV AH,2

MOV DL, 13

INT 21H

MOV DL, 10

INT 21H

POP DX

POP AX

RET

ESCRIBE_CRLF ENDP

ESCRIBE PROC

MOV AH, 9

INT 21H

RET

ESCRIBE ENDP

SALIR PROC NEAR

MOV AX, FIN

INT DOS

RET

SALIR ENDP

CODIGO ENDS

END CEXA

COLOR DE PANTALLA Y TEXTO: CAMBIAR CON ENSAMBLADOR

En esta entrada, veremos lo basico para poder modificar el fondo de la consola de video de ensamblador, asi como el color del texto de cualquier mensaje que enviemos a ella.

Primeramente, debemos saber un poco sobre la interrupcion que usaremos para ello:

Interrupción 10h: Nos permite invocar servicios de video de la ROM BIOS, manipulando algunas de sus funciones.

Los servicios que nos permiten hacer este tipo de cambio de colores son:

• 02h: nos permite controlar la posicion de nuestro cursor en la pantalla. Los registros BH,DH y DL son los que usaremos para indicar la posicion en donde debe estar el cursor.
• 06h:Permite inicializar la ventana de video o desplazar su contenido. En este servicio el registro CX indica el pixel donde va a comenzar a cambiar el color y el registro DX indica donde terminara.

Como siguiente punto, debemos saber como es que se representan los colores dentro de emulador.

Cada uno de estos colores al momento de ingresarlos al emulador, podemos representarlo por su parte hexadecimal o binaria:

Los primeros 4 numeros  representan el color que sera para el color de letra, los siguientes 3 representan el color del fondo , el ultimo bit solo es un indicador, si esta en 1 el texto completo en pantalla estara parpadeando.

01011110

0: indicador que nos hara que el texto parpade o no

101: Color de fondo de la pantalla

1110: color del texto en la pantalla.

CR EQU 13
LF EQU 10
TECLADO_8 EQU 8
IMPRIMIR_9 EQU 9
FIN_4C00H EQU 4C00H
DOS_21H EQU 21H
BIOS_10H EQU 10H
TAB EQU 09H
BELL EQU 07H
 
DATOS SEGMENT
    RENGLON DB 0
    COLUMNA DB 0
    MENSAJE DB CR,LF,'POSICION (X,Y), DEL MENSAJE: Hola mundo'
            DB 'DESPUES DE BORRAR PANTALLA',CR,LF,'$'
        DATOS ENDS
        PILA SEGMENT STACK
            DW 100 DUP('0')
        PILA ENDS
 
        CODIGO SEGMENT
            CLSP PROC FAR
            ASSUME CS:CODIGO,DS:DATOS,SS:PILA
             
             
            MOV AX,DATOS
            MOV DS,AX
            LEA DX,MENSAJE
            CALL LIMPIA_PANTALLA
            CALL POSICIONA_CURSOR
            MOV AH,IMPRIMIR_9
            INT DOS_21H
            MOV AX,FIN_4C00H
            INT DOS_21H
             
            CLSP ENDP
             
            LIMPIA_PANTALLA PROC NEAR
            MOV AX,0600H
            MOV BH,01011110b ;color que se modifico
            MOV CX,000H
            MOV DX,484FH
            INT BIOS_10H
            RET
            LIMPIA_PANTALLA ENDP
             
            POSICIONA_CURSOR PROC NEAR
            MOV AH,02 ;Posicion del cursor
            MOV BH,00 ;Pagina en 0,es decir que usara esa pantalla y no otra
            MOV DH,RENGLON ; coordenadas de la pagina por renglon
            MOV DL,COLUMNA ;coordenadas de la pagina por columna
            INT BIOS_10H
            RET
            POSICIONA_CURSOR ENDP
             
        CODIGO ENDS
        END CLSP

PROGRAMAS EN TURBO ASSEMBLER

ALGUNAS DE LAS DEFINICIONES DE ESTAS INSTRUCCIONES QUE UTILIZAREMOS SON LAS SIGUIENTEs:

Las dos primeras sentencias funcionales del programa (sin tomar en cuenta los comentarios que inician con “;”) permiten definir dos constantes: CR y LF. Estas constantes no generan código objeto alguno, ya que indican al compilador que cuando encuentren en el código dichas constantes o símbolos, sustituya dichos símbolos por el valor indicado.

CR EQU 13 
LF EQU 0AH 


EJEMPLO 1:

Código que imprime el mensaje "HOLA MUNDO"

CR EQU 13
LF EQU 0Ah

DATOS SEGMENT
    MENSAJE DB CR, LF, 'HOLA MUNDO', CR, LF, '$'
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP('PILA')
PILA ENDS

CODIGO SEGMENT
    HM PROC FAR
    ASSUME CS: CODIGO, DS:DATOS, SS:PILA
    
    MOV AX, DATOS
    MOV DS, AX
    LEA DX, MENSAJE
    
    MOV AH, 9
    INT 21H
    
    MOV AX, 4C00H
    INT 21H
    
    HM ENDP
    
CODIGO ENDS
END HM

EJEMPLO 2:

Código que imprime "EL USO DE DOS CONSTANTES"

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H

DATOS SEGMENT
    TEXTO DB 'EJEMPLO DEL USO DE CONSTANTES', CR, LF, '$'
    

    
DATOS ENDS

PILA SEGMENT STACK
    DB 64 DUP ('PILA')
PILA ENDS

CODIGO SEGMENT
    ASSUME CS:CODIGO, DS:DATOS, SS:PILA
    INICIO: MOV AX, DATOS
        MOV DS, AX
        MOV DX, OFFSET TEXTO
        MOV AH, IMPRIMIR
        INT DOS
        MOV AX, FIN
        INT DOS
    
    CODIGO ENDS
    END INICIO

EJEMPLO 3:

Código que imprime "HOLA MUNDO" mediante una función

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

EJEMPLO 4:

Código que imprime datos personales 

CR EQU 13
LF EQU 10

DATOS SEGMENT
    LINEA1 DB CR, LF, 'ROCIO MAHE ALVAREZ', CR, LF, '$'
    LINEA2 DB 'TECNOLOGICO DE MATAMOROS', CR, LF, '$'
    LINEA3 DB 'ING. SISTEMAS COMPUTACIONALES', CR, LF, '$'
    LINEA4 DB 'SOLTERA ;-;', 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
    MOV AX, 4C00H
    INT 21H
    
    LN ENDP
    
    ESCRIBE PROC
    MOV AH, 9
    INT 21H
    RET
    ESCRIBE ENDP

CODIGO ENDS
END LN