Unidad No.3-Trabajando con Turbo Assembler

Ejecución del programa:

Código:

CR EQU 13
LF EQU 0Ah

DATOS SEGMENT
       MENSAJE DB CR, LF, 'Hola mundo este programa fue compilado por Ivan Gutierrez', 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   

Programa No.2

Link del programa: https://drive.google.com/open?id=1mjcmgYCnMYn7XRYEfhkArns5sY_r6HbD

Ejecución:

Código:

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

DATOS SEGMENT
    TEXTO DB 'EJEMPLO DE USO DE CONSTANTES POR IVAN GUTIERREZ', 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, PIN
    INT DOS
   
CODIGO ENDS
END INICIO

Programa No.3:

Link del programa: https://drive.google.com/open?id=1CpO0zNQ80aSTKuZ-npxtX8WCA6r0GYFh

Ejecución:

Código:

CR EQU 13
LF EQU 10

DATOS SEGMENT
    MENSAJE DB, CR, LF, 'Hola mundo traido por Ivan Gutierrez', 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

Programa No.4:

Link del programa: https://drive.google.com/open?id=11Sw82U12hNgsZbvG000kLgfow_pTTO_c

Ejecución:

Código:

CR EQU 13
LF EQU 10

DATOS SEGMENT
    LINEA1 DB CR, LF, 'Ivan Gutierrez', CR, LF, '$'
    LINEA2 DB 'Tecnologico de Matamoros', CR, LF, '$'
    LINEA3 DB 'Ing. Sistemas Computacionales', 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