UNIDAD 2: PROGRAMA LOOP 3 EN EMU8086

;PROGRAMA LOOP HECHO EN EMU8086 

;JESUS EDUARDO MARTINEZ HINOJOSA      

.model small

.stack 64

.data

texto db "INGRESA LAS VECES QUE QUIERES REPETIR EL MENSAJE (1-9)",13,10,'$'

repetir db 13,10,"ESTE CICLO SE REPITE Y SE REPITE $"

.code

inicio proc far

    

    mov ax, @data

    mov ds, ax

    

    mov ah, 09

    lea dx, texto

    int 21h

    mov ah, 01

    int 21h

    sub al, 30h

    

    mov cl, al

    

    ciclo:

        mov ah, 09

        lea dx, repetir

        int 21h

    loop ciclo 

    mov ax,4c00h

    int 21h  

    

inicio endp

end

EN TASM

.model small

.stack 64       ; Se pone el stack 

datos segment

    mensaje db "Ingresa el numero de veces que se repetira el mensaje (1-9)",13,10,'$'

    repetir db 13,10,"Repitiendo el ciclo $"

datos ends

codigo segment                              

    assume cs:codigo, ds:datos

inicio:

    

    mov ax, datos

    mov ds, ax

    

    mov ah, 09

    lea dx, mensaje

    int 21h

    mov ah, 01  ;   Leer un caracter desde el teclado con la interrupcion 21h

    int 21h

    sub al, 30h ;   Se le resta 30h para convertirlo a digito      

    mov cl, al   

    

    ciclo:

        mov ah, 09

        lea dx, repetir

        int 21h

    loop ciclo 

    mov ax,4c00h

    int 21h                                

codigo ends

end inicio