Mis Algoritmos

;Autor Hector Torres
;URL

; programa que lee una cadena y busca un caracter dentro de ella

.model small
.stack
.data

  cadena1 db 10 dup(' '),'$'

.code
.startup

 mov ah,06h         ; peticion de recorrido de la pantalla
 mov al,00h         ; indica la pantalla completa
 mov bh,07h         ; attributos de color y fondo 7 blanco 0 negro
 mov cx,0000h       ; esquina superior izquierda renglon columna
 mov dx,184fh       ; esquina inferior derecha renglon columna
 int 10h            ; llamada a la interrupcion de video BIOS

 lea SI,cadena1
 mov cx,10
 regresa:
    mov ah,07h
    int 21h
    cmp al,13
    je termina
    mov [SI],al
    inc SI
    mov dl,al
    mov ah,02h
    int 21h
    loop regresa

  termina:
    mov ah,07h
    int 21h
    mov dl,al
    mov ah,02h
    int 21h


 mov BX,DS
 mov ES,BX
 lea DI,cadena1
 mov cx,10
 mov dx,0
 otro:
   repne scasb
   inc dl
   cmp cx,0
   jne otro
 add dl,48
 mov ah,02h
 int 21h

.exit
end