Lenguaje de Interfaz: 3. Programas en Turbo Assembler (parte 1)

lunes, 1 de abril de 2019

3. Programas en Turbo Assembler (parte 1)

Programa 1:

HOLA MUNDO

Código:

CR EQU 13
LF EQU 0Ah
 
DATOS SEGMENT
    MENSAJE DB CR,LF, 'Hola mundo este programa fue compilado por gmo', 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

Resultado:

Programa 2:

USO DE CONSTANTES

Código:

CR EQU 13
LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
 
DATOS SEGMENT
    TEXTO DB 'EJEMPLO DE 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

Resultado:

Programa 3:

HOLA MUNDO CON FUNCIÓN

Código:

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

Resultado:

Programa 4:

CONJUNTO DE LÍNEAS EN PANTALLA CON PROCEDIMIENTO

Código:

CR EQU 13
LF EQU 10
 
DATOS SEGMENT
    LINEA1 DB CR,LF,'Griselda Maldonado',CR,LF,'$'
    LINEA2 DB 'Tecnologico de matamoros',CR,LF,'$'
    LINEA3 DB 'ING. SISTEMAS COMPUTACIONALES',CR,LF,'$'
    LINEA4 DB 'Ninguno',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

Resultado: