Mis Algoritmos

;Autor Hector Torres
;URL

; peograma que lee dos cadenas y las compara

.model small
.stack
.data

  cadena1 db 'hola$'
  cadena2 db 'hola$'
  msj1 db 'Las cadenas SI son iguales$'
  msj2 db 'Las cadenas NO son iguales$'

.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

 mov ax,ds
 mov es,ax
 mov cx,4
 lea SI,cadena1
 lea DI,cadena2
 repe cmpsb
 JNE no_igual
 jmp igual
 no_igual:
 lea DX,msj2
 jmp fin
 igual:
 lea DX,msj1
 fin:
 mov ah,09h
 int 21h
 mov dl,cl
 add dl,30h
 mov ah,02h
 int 21h
.exit
end