Asembler-Programa Usuario Y Contraseña

.MODEL SMALL
.STACK 100H
.DATA

CLAVEE DB ,13,10,'INGRESE CONTRASENA: $'
CLAVE1 DB ,13,10,' "BIENVENIDO"', 13,10, '$'
ERROR1 DB ,13,10,'Clave Incorrecta!! Intento 1 $',0
ERROR2 DB,13,10,'Clave Incorrecta!! Intento 2 $',0
ERROR3 DB ,13,10,'Clave Incorrecta!! Intento 3 $',0
CAMBIO DB ,13,10,'USTED AGOTO SUS LOS INTENTOS PARA INGRESAR''$',0
CAMBIO1 DB ,13,10,'DESEA CAMBIAR SUCONTRASENA(S/N):$',0
NUEVO DB ,13,10,'INGRESE NUEVA CONTRASENA:$',0
ERROR4 DB ,13,10,'"CONTRASENA INGRESADA ES INCORRECTA"', 13,10, '$'
ERROR5 DB ,13, 10,'"ESCRIBA SOLO UNA DE LAS OPCIONES"''$'.CODE
INICIO:
MOV AX,@DATA
MOV DS,AX
mov ax,0600h
mov bh,9Dh
mov cx,0700h
mov dx,139Fh
int 10h
mov dx,0814h
mov ah,02h
mov bh,00h
int 10h

CONTRA:
MOV DX,OFFSET CLAVEE
MOV AH,9INT 21H

MOV AH,1
INT 21H

CMP AL,'E'

MOV AH,1
INT 21H
CMP AL,'L'

MOV AH,1
INT 21H
CMP AL,'V'

MOV AH,1
INT 21H
CMP AL,'I'

JZ CLAVE

jmpintento1

CLAVE:
MOV DX,OFFSET CLAVE1
MOV AH,9
INT 21H
JMP CONTRASENA

CONTRASENA:
MOV DX,OFFSET CAMBIO1
MOV AH,9
INT 21H
MOV AH,1 ;funcion de lectura de un caracter
INT21H
CMP AL,'S'
JZ AS
CMP AL,'s'
JZ AS
CMP AL,'N'
JZ AN
CMP AL,'n'
JZ AN
MOV DX,OFFSET ERROR5
MOV AH,9
INT 21H
JMP SALIR
AS:
MOV DX,OFFSET NUEVO
MOVAH,9
INT 21H
MOV AH,1 ;funcion de lectura de un caracter
INT 21H
;CAMBIO DE CONTRASENA
MOV BL,AL

MOV DX,OFFSET CLAVEE
MOV AH,9
INT 21H
MOV AH,1 ;funcion de lectura de uncaracter
INT 21H
CMP AL,BL
JZ CLAVE
JMP ERRORSITO

AN:
JMP SALIR

ERRORSITO:
MOV DX,OFFSET ERROR4
MOV AH,9
INT 21H
JMP salir

intento1:

MOV DX,OFFSET ERROR1
MOV AH,9INT 21H
MOV AH,1
INT 21H

CMP AL,'E'

MOV AH,1
INT 21H
CMP AL,'L'

MOV AH,1
INT 21H
CMP AL,'V'

MOV AH,1
INT 21H
CMP AL,'I'

JZ CLAVE
jmp...