Unidad 3-ejemplo con macros

Programa que que imprime valores numericos en hexadecimales pero haciendo la utilizacion de macros.

include 'emu8086.inc'

Mostrar Macro Mensaje
    LEA DX,Mensaje ;mandamos el mensaje a leer
    MOV AH,9 ;usamos el servicio para mostrar en pantalla
    INT 21H
endM     

Terminar Macro
    MOV AX,4C00H
    INT 21H
endM

DATOS SEGMENT
    ENCABEZADO DB 13,10,13,09h,09h,"==============================="
    DB 13,10,13,09h,09h,"PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y HEXA "
    DB 13,10,13,09h,09h,"================================",13,10,"$"
    ALINEAR DB 13,10,13,09h,09h
    VALOR_1 DW 41D,"$"
    VALOR_2 DW 42D,"$"
    VALOR_3 DW 43D,"$"
    VALOR_4 DW 44D,"$"
    VALOR_5 DW 45D,"$"
    VALOR_6 DW 46,"$"
    VALOR_7 DW 47,"$"
    VALOR_8 DW 48,"$"
    VALOR_9 DW 49,"$"
    VALOR_10 DW 50,"$"
DATOS ENDS


valores Macro 
    Mostrar ALINEAR
    Mostrar VALOR_1
    Mostrar VALOR_2
    Mostrar VALOR_3
    Mostrar VALOR_4
    Mostrar VALOR_5
    Mostrar VALOR_6   
    Mostrar VALOR_7
    Mostrar VALOR_8
    Mostrar VALOR_9
    Mostrar VALOR_10
endM

Titulo Macro
    Mostrar ENCABEZADO
endm

CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
Main PROC

MOV AX,DATOS
MOV DS,AX

Titulo
valores


Main ENDP 
Terminar
CODIGO ENDS
END Main


captura de la ejecucion del programa:

Unidad 3-ejemplo de cambio de colores

programa que hace el cambio de cioolor de las letras

Macro a utilizar y mandarlo en un archivo en blanco con extension .inc

COLOR PROC  

    MOV AH,9         ;Invoco al servicio 09 para imprimir texto con formato

    XOR BH,BH        ;Limpio bh para indicarle que imprima en la misma pagina

    INT BIOS         ;Hago la impresion pidiendo la interrupcion 10h

    RET    ;retorno al programa principal

    COLOR ENDP

    

    COLOCA PROC

    MOV AH,2   ;Invoco al servicio 02 de 10h para posicionar el cursor

    XOR BX,BX  ;Limpio bx para decirle que debe ser en la misma pagina

    INT BIOS   ;Coloco el cursor con 10h en funcion del servicio 02

    RET   ;retorno al programa principal

    COLOCA ENDP

 

 PUT_CURSOR MACRO X,Y

 MOV AH,02H   ;Para posicionar el cursor

    MOV BH,00H   ;Coloco en la pagina 0

    MOV DH,X  ;Establesco las coordenadas, x=dh=renglon

 MOV DL,Y     ; Establesco las coordenadas y=dl=columna

    INT 10H      ;ejecuto la interrupción

 endm

 

 TERMINA MACRO

 MOV AX,4C00H  ;Termino el programa

    INT 21H     ;llamando a la interrupcion 21h

 ENDM

----------------------------------------------------------

Codigo que utiliza las macros

CR EQU 13    ;Declaro retorno de carro

LF EQU 10    ;Declaro salto de linea

BIOS EQU 10H ;Declaro interrupcion 10h

DOS EQU 21H  ;Declaro interrupcion 21h

TEXTO EQU 3  ;Declaro el servicio 03 para la impresion de texto desde BIOS

FIN EQU 4C00H ;Declaro interrupcion de exit

VARIABLES SEGMENT          ;Declaro las variables  

    include "emu8086.inc"

    TITULO DB "JUENITO_XD" ;Un texto

    COLORES DB 01001110B   ;Una agrupacion de colores

    DB 11101111B           ;0= cursos parpadeante 000=color de fondo 0000=color del texto

    DB 10110001B

    DB 01011100B

    DB 00110001B

    DB 01011111B

    DB 01101011B

    DB 01011100B

    DB 01101111B

    DB 01001110B

    DB 00110001B

VARIABLES ENDS

VPILA SEGMENT;STACK       ;Declaro la pila

    DB 64 DUP("PILA")

VPILA ENDS

CODIGO SEGMENT

    COLO PROC FAR    ;Declaro un procedimiento

    ASSUME CS:CODIGO, DS:VARIABLES, SS:VPILA

    MOV AX,VARIABLES

    MOV DS,AX

    MOV AX,TEXTO     ;Invoco el servicio de impresion de texto 

    INT BIOS         ;Ejecuto el servicio con 10h

    MOV CX,11        ;Declaro el iterador en 11

    XOR SI,SI        ;Borro SI

    BUCLE:           ;Llamo al bucle

    PUSH CX

    MOV DX,SI        ;Indico la posicion de la letra a imprimir con SI

    ADD DX,35        ;Indico la coordenada en x, la coordenada inicial es x=35

    MOV DH,12        ;Indico la coordenada en y  

    CALL COLOCA      ;Llamo al sistema para que coloque el cursor donde yo quiero

    MOV AL,[SI+OFFSET TITULO] ;Le indico la letra a imprimir pasandole SI y el texto como parametros

    MOV BL,[SI+OFFSET COLORES]   ;Le indico los colores a imprimir pasandole SI y el conjunto de colores como parametros

    CALL COLOR                ;Llamo a la impresion del texto

    POP CX

    INC SI                     ;Incremento a SI para modificar la letra a imprimir y la coordenada en x

    

    LOOPNZ BUCLE

    MOV AH,8    ;08:Lee un caracter sin imprimir nada en pantalla

    INT DOS     ;Ejecuto el servicio

    XOR DX,DX   ;Limpio DX

    CALL COLOCA ;Coloco el cursor en las coordenadas x=0 y=0     

    PUT_CURSOR 10,10

    print "Hola mundo" 

    PUT_CURSOR 20,20

    print "Estas son las coordenadas( x=20, y=20)"

    TERMINA        ;MACRO TERMINA

    COLO ENDP

       

    include "C:\Users\CARLOS\Desktop\6 semestre\Lenguajes de Interfaz\Unidad 3\9-ejemplo ambrocio\macroambrocio.inc"

    

CODIGO ENDS

END COLO

--------------------------------------------------------------------------------------

ejecucion del programa

Unidad 3-Cambiar las letras a colores y un fondo a través de macros

#programa que utiliza macros para desplegar nombre con colores

CUADRO MACRO XI,YI,XF,YF,COLOR
MOV AX, 0600H ;
MOV BH, COLOR ; COLOR DE FONDO Y LETRA
MOV BL, 00H
MOV CH, YI ; Y INICIAL
MOV CL, XI ; X INICIAL
MOV DH, YF ; Y FINAL
MOV DL, XF ; X FINAL
INT 10h
endM

POSICION MACRO X,Y
; **** POSICIONA EL CURSOR ********
MOV DH, Y ; POSICI[ON EN Y
MOV DL, X ; POSICI[ON EN X
MOV AH, 02
MOV BH, 00
INT 10H
ENDM

DESPLEGAR MACRO MENSAJE
MOV AH,09 ;****** MUESTRA MENSAJE *******
MOV DX,OFFSET MENSAJE
INT 21h
ENDM

DATOS SEGMENT ;SEGMENTO DE DATOS
M1 DB "c",'$'
M2 DB "a",'$'
M3 DB "r",'$'
M4 DB "l",'$'
M5 DB "o",'$'
M6 DB "s",'$'
datos ends
cincocuadros macro

cuadro 5,3,10,3,100
posicion 10,3
desplegar M1

cuadro 15,3,20,3,22
posicion 20,3
desplegar M2

cuadro 25,88,30,3,33
posicion 30,3
desplegar M3

cuadro 35,3,40,3,49
posicion 40,3
desplegar M4

cuadro 45,3,50,3,70
posicion 50,3
desplegar M5

cuadro 55,3,60,3,90
posicion 60,3
desplegar M6
endM
CODIGO SEGMENT
ASSUME CS: CODIGO,DS:DATOS,SS:PILA
PRINCIPAL PROC

MOV AX,DATOS
MOV DS,AX

cincocuadros

PRINCIPAL ENDP ;FIN DEL PROCEDIMIENTO
CODIGO ENDS ;FIN DEL SEGMENTO

END PRINCIPAL



ejecucion:

Unidad 3 -creacion de programas variados en turboAssembler

programa #1 Hola mundo

CR EQU 13

LF EQU 0Ah

DATOS SEGMENT

        MENSAJE DB CR,LF,'HOLA MUNDI ESTE PROGRAMA FUE COMPILADO POR CARLOS OLVERA ',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

Ejecucion en pantalla:

Programa #2 Uso de constantes

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 CARLOS OLVERA',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

ejecucion del programa:

programa #3 Hola mundo con uso de condiciones

CR EQU 13

LF EQU 10

DATOS SEGMENT

    MENSAJE DB CR,LF,'HOLA MUNDO TRAIDO POR CARLOS OLVERA',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

ejecucion del programa:

Programa #4 Despliegue de mensajes.

CR EQU 13

LF EQU 10

DATOS SEGMENT

    LINEA1 DB CR,LF,'CARLOS DANIEL OLVERA MAGNO',CR,LF,'$'

    LINEA2 DB 'TECNOLOGICO DE MATAMOROS',CR,LF,'$'

    LINEA3 DB 'ING. EN SISTEMAS COMPUTACIONALES',CR,LF,'$'

    LINEA4 DB 'SOLTERO ;-;',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

ejecucion del programa:

#5 programa que limpia lo mostrado en 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 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 :CARLOS OLVERA',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 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 BORRAR PANTALLA Y 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
BELL EQU 07H

DATOS SEGMENT
    RENGLON DB 0
    COLUMNA DB 0
    MENSAJE DB CR,LF,'POSICION (X,Y) DEL MENSAJE:CARLOS OLVERA'
            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
            MOV AX,FIN_4C00H
            INT DOS_21H
           
            CLSP ENDP
           
            LIMPIA_PANTALLA 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 PROGRAMA EN TURBO ASSEMBLER QUE DESPLIEGA UN MENSAJE EN PANTALLA

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
    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
    INT 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 PROGRAMA QUE MUESTRA UN TEXTO EDITANDO EL COLOR DEL FONDO DE CADA LETRA Y EL COLOR DE LA LETRA

CR EQU 13
LF EQU 10
BIOS EQU 10H
DOS EQU 21H
TEXTO EQU 3
FIN EQU 4C00H

DATOS SEGMENT
    TITULO DB 'CARLOS XD'
    COLORES DB 01001110B
    DB 01101111B
    DB 00110001B
    DB 01011100B
    DB 00110001B
    DB 01011111B
    DB 01101011B
    DB 01011100B
    DB 01101111B
    DB 01001110B
    DB 00110001B
DATOS ENDS
PILA SEGMENT STACK
    DB 64 DUP('PILA')
PILA ENDS

CODIGO SEGMENT
    COLO PROC FAR
    ASSUME CS:CODIGO,DS:DATOS,SS:PILA
    MOV AX,DATOS
    MOV DS,AX
    MOV AX,TEXTO
    INT BIOS
    MOV CX,11
    XOR SI,SI
    BUCLE:
    PUSH CX
    MOV DX,SI
    ADD DX,35
    MOV DH,12
    CALL COLOCA
    MOV AL,[SI+OFFSET TITULO]
    MOV BL,[SI+OFFSET COLORES]
    CALL COLOR
    POP CX
    INC SI
   
    LOOPNZ BUCLE
    MOV AH,8
    INT DOS
    XOR DX,DX
    CALL COLOCA
    MOV AX,FIN
    INT DOS
    COLO ENDP
   
    COLOR PROC
    MOV AH,9
    XOR BH,BH
    INT BIOS
    RET
    COLOR ENDP
   
    COLOCA PROC
    MOV AH,2
    XOR BX,BX
    INT BIOS
    RET
    COLOCA ENDP
CODIGO ENDS
END COLO

#10 PROGRAMA QUE MUESTRA EL VALOR BINARIO DE UN NUMERO:

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,"$"
    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

#11 PROGRAMA QUE IMPRIME NUMEROS Y CARACTERES EN PANTALLA:

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,'==============',13,10,"$"
    VALOR_1 DW 41D,"$"
    VALOR_2 DW 42D,"$"
    VALOR_3 DW 43D,"$"
    VALOR_4 DW 44D,"$"
    VALOR_5 DW 45D,"$"
    VALOR_6 DW 46D,"$"
    VALOR_7 DW 47D,"$"
    VALOR_8 DW 48D,"$"
    VALOR_9 DW 49D,"$"
    VALOR_10 DW 50D,"$"
    VALOR_11 DW 31H,"$"
    VALOR_12 DW 32H,"$"
    VALOR_13 DW 33H,"$"
    VALOR_14 DW 34H,"$"
    VALOR_15 DW 35H,"$"
    VALOR_16 DW 36H,"$"
    VALOR_17 DW 37H,"$"
    VALOR_18 DW 38H,"$"
    VALOR_19 DW 39H,"$"
    VALOR_20 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,VALOR_1
    CALL ESCRIBE
   
LEA DX, VALOR_2
CALL ESCRIBE
LEA DX, VALOR_3
CALL ESCRIBE
LEA DX, VALOR_4
CALL ESCRIBE
LEA DX, VALOR_5
CALL ESCRIBE
LEA DX, VALOR_6
CALL ESCRIBE
LEA DX, VALOR_7
CALL ESCRIBE
LEA DX, VALOR_8
CALL ESCRIBE
LEA DX, VALOR_9
CALL ESCRIBE
LEA DX, VALOR_9
CALL ESCRIBE
LEA DX, VALOR_10
CALL ESCRIBE
LEA DX, VALOR_11
CALL ESCRIBE
LEA DX, VALOR_12
CALL ESCRIBE
LEA DX, VALOR_13
CALL ESCRIBE
LEA DX, VALOR_14
CALL ESCRIBE
LEA DX, VALOR_15
CALL ESCRIBE
LEA DX, VALOR_16
CALL ESCRIBE
LEA DX, VALOR_17
CALL ESCRIBE
LEA DX, VALOR_18
CALL ESCRIBE
LEA DX, VALOR_19
CALL ESCRIBE
LEA DX, VALOR_20
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 PROGRAMA QUE CONVIERTE LETRAS EN BINARIO Y MUESTRA EL RESULTADO EN PANTALLA

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 PROGRAMA QUE HACE UNA NUMERACION 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 DS,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

#14 PROGRAMA QUE HACE LA POTENCIA EN 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 CONVIERTE UN NUMERO ASCII A BINARIO"
DB 13,10,13,TAB,TAB,"======================================================",13,10,"$"
VALOR_ASCII DB '33',"$"
VALOR_BINARIO DW 0,"$"
LONGITUD_ASCII DW 2,"$"
POTENCIA_10 DW 00000001B,"$"
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('0')
PILA ENDS
CODIGO SEGMENT 
    POTE PROC NEAR
ASSUME CS:CODIGO,DS:DATOS,SS:PILA
MOV AX,DATOS
MOV DS,AX
LEA DX, VALOR_ASCII
CALL ESCRIBE
MOV BX, 00001010B
MOV BX, LONGITUD_ASCII
LEA SI, VALOR_ASCII+1
ETIQUETA_1:
MOV AL, [SI]
AND AX, 000FH
MUL POTENCIA_10
ADD VALOR_BINARIO, AX
MOV AX, POTENCIA_10
MUL BX
MOV POTENCIA_10, AX
DEC SI
LOOP ETIQUETA_1
LEA DX, ENCABEZADO
CALL ESCRIBE
LEA DX, VALOR_BINARIO
CALL ESCRIBE
CALL SALIR
POTE 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 POTE

# 15 PROGRAMA QUE AL INTRODUCIR UN NUMERO MUESTRA EN PANTALLA SU RESPECTIVO SIMBOLO DEL CODIGO ASCII

LF EQU 10
IMPRIMIR EQU 9
FIN EQU 4C00H
DOS EQU 21H
TAB EQU 09H
BELL EQU 07H
TECLADO EQU 8
DATOS SEGMENT
NUMERO_BINARIO DW 0,"$"
NUMERO_ASCII DW 6,0,6 DUP (?),"$"
M_ENCABEZADO DB 13,10,13,10,TAB,"================================================================="
DB 13,10,13,TAB,"   PROGRAMA QUE CONVIERTE UN NUMERO ASCII (CAPTURADO) A BINARIO"
DB 13,10,13,TAB,"===============================================================",13,10,"$"
M_ESPACIO DB 13,10,13,10,13,10,13,10,13,10,13,10,"$"
M_ASCII_ASCII DB 13,10,13,10,"NUMERO ASCII IMPRESO NORMALMENTE COMO LO HACE UNA PC (EN ASCII)",13,10,"$"
M_BINARIO_ASCII DB 13,10,13,10,"NUMERO BINARIO (YA CONVERTIDO),",13,10,"IMPRESO NORMALMENTE COMO LO HACE UNA PC (EN ASCII): ","$"
POTENCIA DW 001H, 000AH, 0064, 03E8H, 2710H,"$"
DATOS ENDS
PILA SEGMENT STACK
DB 64 DUP('0')
PILA ENDS
CODIGO SEGMENT 
    CAPT PROC NEAR
ASSUME CS:CODIGO,DS:DATOS,SS:PILA
MOV AX,DATOS
MOV DS, AX
MOV AH,0AH
MOV DX, OFFSET NUMERO_ASCII
INT 21H
MOV DI, OFFSET NUMERO_ASCII + 1
MOV CX,[DI]
MOV SI, OFFSET NUMERO_ASCII + 2
XOR CH, CH
MOV DI, OFFSET POTENCIA
DEC SI
ADD SI,CX
XOR BX,BX
STD
CICLO:
LODSB
SUB AL, 30H
CBW
MOV DX, [DI]
MUL DX
ADD DI,2
ADD BX,AX
LOOP CICLO
MOV NUMERO_BINARIO,BX
LEA DX,M_ENCABEZADO
CALL ESCRIBE
LEA DX,M_ASCII_ASCII
CALL ESCRIBE
LEA DX,NUMERO_ASCII - 1
CALL ESCRIBE
LEA DX,M_BINARIO_ASCII
CALL ESCRIBE
LEA DX,NUMERO_BINARIO
CALL ESCRIBE
LEA DX,M_ESPACIO
CALL ESCRIBE
CALL SALIR
CAPT ENDP
ESCRIBE PROC
MOV AH,IMPRIMIR
INT DOS
RET
ESCRIBE ENDP
SALIR PROC NEAR
MOV AX,FIN
INT DOS
SALIR ENDP
CODIGO ENDS
END CAPT

ejercicio del dia 27 de marzo del 2019-multiplicacion de dos numeros con emu8086.inc

programa que se ejecuta con la libreria emu8086.inc.
La cual nos deja hacer uso de la palabra reservada PRINT para mostrar mas facilmente textos en pantalla.

el codigo:


; You may customize this and other start-up templates; 
; The location of this template is c:\emu8086\inc\0_com_template.txt
include "emu8086.inc"

org 100h

    
   .model small ;Modelo de memoria m?s utilizado
.stack

.data        ;definición de datos(variables), donde se almacenara información
.code
   chr1  db ? ;primer digito
   chr2  db ? ;segundo digito
   chr3  db ? ;multiplo
   chr4  db ?
   r1    db ? ;resultado 1
   r2    db ? ;resultado 2
   r3    db ?
   r4    db ?
   ac    db 0 ;acarreo
   ac1   db 0 
   
.startup
   ;cls    
   
  
   mov ah,00h     ;Function(Set video mode)
   mov al,03      ;Mode 80x25 8x8 16
   int 10h        ;Interruption Video  
   
    print 'hola este es un mensaje'
   printn ''
   printn 'introduzca el primer valor de dos digitos'
   printn ''

   mov ah,01h     ;Function(character read) Guarda en AL
   int 21h        ;Interruption DOS functions
   sub al,30h     ;ajustamos valores
   mov chr1,al    ;[chr1].chr2 * chr3 = ac.r1.r2

   mov ah,01h     ;Function(character read) Guarda en AL
   int 21h        ;Interruption DOS functions
   sub al,30h     ;Ajustamos valores
   mov chr2,al    ;chr1.[chr2] * chr3 = ac.r1.r2

   ;mov ah,02h     ;Function(character to send to standard output)
   ;mov dl,'*'     ;Character to show
   ;int 21h
   printn ''
   printn 'introduzca el segundo valor de dos digitos'
   printn ''
   mov ah,01h     ;Function(Read character) Guarda en AL
   int 21h        ;Interruption DOS Functions
   sub al,30h     ;Transform(0dec = 30hex)
   mov chr3,al    ;chr1.chr2 * [chr3] = ac.r1.r2
  
   mov ah,01h     ;Function(Read character) Guarda en AL
   int 21h        ;Interruption DOS Functions
   sub al,30h     ;Transform(0dec = 30hex)
   mov chr4,al    ;chr1.chr2 * [chr3] = ac.r1.r2
   
   ;mov ah,02h     ;Character to send to standar output
   ;mov dl,'='     ;
   ;int 21h        ;Interruption DOS functions

   ;Realizamos operaci?n    
   
  
   mov al,chr4  ;unidad del segundo numero
   mov bl,chr2  ;unidad del primer numero
   mul bl       ;multiplicar
   mov ah,0     ;limpiamos ah0
   aam          ;separamos de hex a dec
   mov ac1,ah   ;decenas del primera multiplicacion
   mov r4,al    ;unidades del primera multiplicacion
            
   mov al,chr4  ;unidades del segundo numero
   mov bl,chr1  ;decentas del primer numero
   mul bl       ;multiplicar
   mov r3,al    ;movemos el resultado de la operacion a r3
   mov bl,ac1   ;movemos el acarreo a bl
   add r3,bl    ;sumamos resultado mas acarreo
   mov ah,00h   ;limpiamos ah por residuos
   mov al,r3    ;movemos el resultado de la suma a al
   aam          ;separamos  de hex a dec
   mov r3,al    ;guardamos unidades en r3
   mov ac1,ah   ;guardamos decenas en ac1
  
      

   mov al,chr3    ;al = chr3
   mov bl,chr2    ;bl = chr2
   mul bl         ;AL = chr3*chr2 (BL*AL)
   mov Ah,0h      ;
   AAM            ;ASCII Adjusment
   mov ac,AH      ;ac = AH (Acarreo)
   mov r2,AL      ;r2 = AL       (Unidad del resultado)

   mov al,chr3    ;AL = chr3
   mov bl,chr1    ;BL = chr1
   mul bl         ;AL = chr1*chr3 (BL*AL)
   mov r1,al      ;r1 = AL       (Decena del resultado)
   mov bl,ac      ;BL = Acarreo anterior
   add r1,bl      ;r1 = r1+ac (r1 + Acarreo)
   mov ah,00h     ;
   mov al,r1      ;AL = r1 (Asignaci?n para el ajust)
   AAM            ;ASCII Adjustment
   mov r1,al      ;r1 = AL
   mov ac,ah      ;ac = AH (Acarreo para la Centena del resultado)
  
  
   ;suma final
   ;R4 resulta ser las unidades de mul y no se toma en cuenta ya que se pasa entero
   printn ''
   printn 'introduzca el valor de la mulltiplicacion es:'
   printn ''
  
   mov ax,0000h   ;limpiamos ax
  
   mov al,r3      ;movemos el segundo resultado de la primera mult a al
   mov bl,r2      ;movemos primer resultado de la segunda mult a bl
   add al,bl      ;sumamos
   mov ah,00h     ;limpiamos ah
   aam            ;separamos hex a dec
   mov r3,al      ;r3 guarda las decenas del resultado final
   mov r2,ah      ;r2 se utiliza como nuevo acarreo
  
   mov ax,0000h   ;''''
  
   mov al,ac1     ;movemos el acarreo de la primera mult a al
   mov bl,r1      ;movemos segundo resultado de la segunda mult a bl
   add al,r2      ;sumamos el nuevo  acarreo de la suma anterior  a al
   add al,bl      ;sumamos al a bl
   mov ah,00h     ;limpiamos el registro ah
   aam            ;separamos de hex a dec
   mov r1,al      ;r1 guarda las centenas
   mov r2,ah      ;ah se sigue utilizando como acarreo
  
   mov al,r2      ;movemos el acarreo a al
   mov bl,ac      ;movemos ac a bl
   add al,bl      ;sumamos al a bl
   ;aam            ;separamos hex a dec
   mov ac,al      ;mov al a ac como nuestro acarreo final
  

  
   ;Mostramos resultado
   mov ah,02h 
   mov dl,ac
   add dl,30h
   int 21h        ;Mostramos ac (millar)

   mov ah,02H
   mov dl,r1
   add dl,30h
   int 21h        ;Mostramos r1 (centena)

                 
  
   mov ah,02H
   mov dl,r3
   add dl,30h
   int 21h        ;Mostramos r3 (decena)
  
   mov ah,02H
   mov dl,r4
   add dl,30h
   int 21h        ;unidad
  
.exit
end   


ret

Unidad 2-Cadenas con formato

Unidad 2-Documentacion de 2.7 incremento y decremento

Unidad 2-ejercicios del dia 19 de marzo del 2019 -multiplicacion de dos numero

#programa creado en emu8086 que permita hacer la multiplicacion de dos dos valores cada uno con 2 numeros.


; You may customize this and other start-up templates;
; The location of this template is c:\emu8086\inc\0_com_template.txt

org 100h

   
   .model small ;Modelo de memoria m?s utilizado
.stack

.data        ;definición de datos(variables), donde se almacenara información
.code
   chr1  db ? ;primer digito
   chr2  db ? ;segundo digito
   chr3  db ? ;multiplo
   chr4  db ?
   r1    db ? ;resultado 1
   r2    db ? ;resultado 2
   r3    db ?
   r4    db ?
   ac    db 0 ;acarreo
   ac1   db 0
.startup
   ;cls
   mov ah,00h     ;Function(Set video mode)
   mov al,03      ;Mode 80x25 8x8 16
   int 10h        ;Interruption Video

   mov ah,01h     ;Function(character read) Guarda en AL
   int 21h        ;Interruption DOS functions
   sub al,30h     ;ajustamos valores
   mov chr1,al    ;[chr1].chr2 * chr3 = ac.r1.r2

   mov ah,01h     ;Function(character read) Guarda en AL
   int 21h        ;Interruption DOS functions
   sub al,30h     ;Ajustamos valores
   mov chr2,al    ;chr1.[chr2] * chr3 = ac.r1.r2

   mov ah,02h     ;Function(character to send to standard output)
   mov dl,'*'     ;Character to show
   int 21h

   mov ah,01h     ;Function(Read character) Guarda en AL
   int 21h        ;Interruption DOS Functions
   sub al,30h     ;Transform(0dec = 30hex)
   mov chr3,al    ;chr1.chr2 * [chr3] = ac.r1.r2
 
   mov ah,01h     ;Function(Read character) Guarda en AL
   int 21h        ;Interruption DOS Functions
   sub al,30h     ;Transform(0dec = 30hex)
   mov chr4,al    ;chr1.chr2 * [chr3] = ac.r1.r2

   mov ah,02h     ;Character to send to standar output
   mov dl,'='     ;
   int 21h        ;Interruption DOS functions

   ;Realizamos operaci?n 
 
   mov al,chr4  ;unidad del segundo numero
   mov bl,chr2  ;unidad del primer numero
   mul bl       ;multiplicar
   mov ah,0     ;limpiamos ah0
   aam          ;separamos de hex a dec
   mov ac1,ah   ;decenas del primera multiplicacion
   mov r4,al    ;unidades del primera multiplicacion
           
   mov al,chr4  ;unidades del segundo numero
   mov bl,chr1  ;decentas del primer numero
   mul bl       ;multiplicar
   mov r3,al    ;movemos el resultado de la operacion a r3
   mov bl,ac1   ;movemos el acarreo a bl
   add r3,bl    ;sumamos resultado mas acarreo
   mov ah,00h   ;limpiamos ah por residuos
   mov al,r3    ;movemos el resultado de la suma a al
   aam          ;separamos  de hex a dec
   mov r3,al    ;guardamos unidades en r3
   mov ac1,ah   ;guardamos decenas en ac1
 
     

   mov al,chr3    ;al = chr3
   mov bl,chr2    ;bl = chr2
   mul bl         ;AL = chr3*chr2 (BL*AL)
   mov Ah,0h      ;
   AAM            ;ASCII Adjusment
   mov ac,AH      ;ac = AH (Acarreo)
   mov r2,AL      ;r2 = AL       (Unidad del resultado)

   mov al,chr3    ;AL = chr3
   mov bl,chr1    ;BL = chr1
   mul bl         ;AL = chr1*chr3 (BL*AL)
   mov r1,al      ;r1 = AL       (Decena del resultado)
   mov bl,ac      ;BL = Acarreo anterior
   add r1,bl      ;r1 = r1+ac (r1 + Acarreo)
   mov ah,00h     ;
   mov al,r1      ;AL = r1 (Asignaci?n para el ajust)
   AAM            ;ASCII Adjustment
   mov r1,al      ;r1 = AL
   mov ac,ah      ;ac = AH (Acarreo para la Centena del resultado)
 
 
   ;suma final
   ;R4 resulta ser las unidades de mul y no se toma en cuenta ya que se pasa entero
 
 
   mov ax,0000h   ;limpiamos ax
 
   mov al,r3      ;movemos el segundo resultado de la primera mult a al
   mov bl,r2      ;movemos primer resultado de la segunda mult a bl
   add al,bl      ;sumamos
   mov ah,00h     ;limpiamos ah
   aam            ;separamos hex a dec
   mov r3,al      ;r3 guarda las decenas del resultado final
   mov r2,ah      ;r2 se utiliza como nuevo acarreo
 
   mov ax,0000h   ;''''
 
   mov al,ac1     ;movemos el acarreo de la primera mult a al
   mov bl,r1      ;movemos segundo resultado de la segunda mult a bl
   add al,r2      ;sumamos el nuevo  acarreo de la suma anterior  a al
   add al,bl      ;sumamos al a bl
   mov ah,00h     ;limpiamos el registro ah
   aam            ;separamos de hex a dec
   mov r1,al      ;r1 guarda las centenas
   mov r2,ah      ;ah se sigue utilizando como acarreo
 
   mov al,r2      ;movemos el acarreo a al
   mov bl,ac      ;movemos ac a bl
   add al,bl      ;sumamos al a bl
   ;aam            ;separamos hex a dec
   mov ac,al      ;mov al a ac como nuestro acarreo final
 

 
   ;Mostramos resultado
   mov ah,02h
   mov dl,ac
   add dl,30h
   int 21h        ;Mostramos ac (millar)

   mov ah,02H
   mov dl,r1
   add dl,30h
   int 21h        ;Mostramos r1 (centena)

               
 
   mov ah,02H
   mov dl,r3
   add dl,30h
   int 21h        ;Mostramos r3 (decena)
 
   mov ah,02H
   mov dl,r4
   add dl,30h
   int 21h        ;unidad
 
.exit
end 


ret

capturas de ejecucion del programa:

Unidad 2-LOOP Z

#Ejercicio que permite al hallar un valor al que se compara dar seguimiento con el loop.

En este caso se utiliza la letra mayuscula S

org 100h

mov ah,09

;invoca a la interrupcion para desplegar el mensaje

int 21h

;leera hasta 10 veces la letra s

mov cx,10 ;veces a repetir

mov al, '>';caracter inicial

LEE_CAR:

    mov ah,0eh ;funcion para imprimir los caracteres

    int 10h    ;llamada a la bios  

    

    mov ah,00 ;funcion esperar un caracter desde el teclado

    int 16h   ;llamar a al bios

    cmp al,'S' ;compara el caracter presionado con 's'

    loope LEE_CAR ;si es igual ,salta a OTRO_C  

    

    MOV ah,0Eh

    int 10h ;PARA SERVICIOS DE VIDEO

    

    ;coloca el fin de linea para que baje una linea y lo imprime

    mov ah,0Eh ;funcion de la bios para imprimir un caracter

    mov al,10

    int 10h

    

    ;coloca el retorno de carro parea que vaya al inicio

    mov al,13

    int 10h

    

    ;prepara salida del programa

    mov ax,4c00h

    int 21h

    

end inicio

UNIDAD 2-EJERCICIO DEL DIA 13 DE MARZO DEL 2019-BUCLES Y SALTOS

Ejercicios de bucle #1

org 100h
include 'emu8086.inc'
mov si, 0    ;ponemos si en 0
           

 
comienzo:
mov al, msg2[0]   ;copiar la primera letra de la palabra A al

cmp msg[si],"$"   ;si es el fin de la cadena mandar a final
 jz final      ; brinca si es igual

cmp msg[si], al   ;comparar si encuentra la primera letra de la cadena
 jne seguir    ;brica si es diferente


mov di,1       ;poner en 1 di 

comprobar:

 mov al, msg2[di]
 mov bx, di
 cmp msg[si+bx], al     ;posicion de la letra coincidente + di, comparar con la cadena
 jne seguir             ;si no coincide mandar a seguir 


 inc di                 ;incrementar di para seguir recorriendo cadena

 cmp msg2[di],"$"       ;si es el fin de la cadena y el programa llego
 jz resultado           ;aca quiere decir que la cadena es parte de la palabra


loop comprobar         ;bucle para recorrer cadena
                                                 
                                                 
seguir: 

 inc si       ;para seguir recorriendo la palabra

loop comienzo   ;bucle principal para recorrer palabra

resultado:

  mov dx, offset msg3    ;copiar msg3 a dx
  mov ah, 9              ;preparar ah con 9 para la interrupcion 21h
  int 21h
  jmp fin                ;mostrar contenido en dx 
 
final:
  mov dx, offset msg4    ;copiar msg3 a dx
  mov ah, 9              ;preparar ah con 9 para la interrupcion 21h
  int 21h 
 
fin:



ret 

msg db "tecnologico$"
msg2 db "tecy$"

msg3 db "Si se encuentra$"
msg4 db "no se encuentra$"

en este no se encontrara el mensaje 2 en el mensaje 3

ejecucion:

UNIDAD 2-Ejercicios del día 12 de marzo del 2019(BUCLES O LAZOS)

Bucles o Lazos:


los bucles loop van acompañados de registros ax es un contador y en el es el numero de vueltas que dara nuestro ciclo
si yo digo que ax=10 
se usa inc para incrementar
y se usa dec para decremenntar

Control de Bucles (instrucciones simples) 

Éstas posibilitan el grupo de control más elemental de nuestros programas. Un bucle es un bloque de código que se ejecuta varias veces. Hay 4 tipos de bucles básicos: 

o Bucles sin fin o Bucles por conteo o Bucles hasta o Bucles mientras 

Las instrucciones de control de bucles son las siguientes: 

• • INC   incrementar
• • DEC   decrementar 
• • LOOP   realizar un bucle
 • •LOOPZ,LOOPE realizar un bucle si es cero 
• • LOOPNZ,LOOPNE realizar un bucle si no es cero 
• • JCXZ   salta si CX es cero 


ejemplos

#1 ejemplo de bucle 1:

 org 100h


include 'emu8086.inc';libreria para las letras

mov cx,10;darle el valor de 10 a cx

comienzo:          ;inicio de la funcion

   printn 'letrero' ;letrero
   inc cx ;incrementar cx 
   

LOOP comienzo             ;inicio del bucle
ret


Capturas de ejecucion del programa

#2 CREACION DE UN BUCLe:

.MODEL tiny

NAME "BUCLE"

.DATA
    dato db 10,13,"letrero $" ,13,10




.code   
INICIO:
mov cx,2
comienzo:
    mov dx,OFFSET dato:
    mov ah,09
    int 21h
   loop comienzo
   
ret  

end
    

captura de ejecucion(no salio del todo bien):

#3 ejemplo de bucle 3 (cambio la salida en pantalla)

.MODEL tiny

NAME "BUCLE"

.DATA
    dato db 10,13,"letrero $" ,13,10




.code   
INICIO:
mov cx,2
comienzo:
    lea dx,dato
    mov ah,09
    int 21h
   loop comienzo
   
ret  

end

    
captura del programa en ejecucion:

#4 ejemplo con loopne
este ejemplo hace la utilizacion de las banderas.\


.MODEL tiny

NAME "BUCLE"

.DATA
    dato db 10,13,"letrero $" ,13,10

.code   
INICIO:
mov cx,10
comienzo:
    lea dx,dato
    mov ah,09
    int 21h
   loopne comienzo      ;esto es lo que cambia en ejemplo al anterior
   
ret  

end
    

captura de la ejecucion:

#5 ejemplo de la ejecucion con jcxz:

.MODEL tiny

NAME "BUCLE"

.DATA

    dato db 10,13,"letrero $" ,13,10

 

.code   

INICIO:

mov cx,0

comienzo:

    lea dx,dato

    mov ah,09

    int 21h

   jcxz comienzo      ;esto es lo que cambia en ejemplo al anterior

   

ret  

end

captura de la ejecucion: