ORG 1000H
    MSJ DB "INGRESE CLAVE"
    FIN DB ?
    CLAVE DB "CASI"
    ING DB ?
    DB ?
    DB ?
    DB ?
    CAR1 DB "ACCESO PERMITIDO"
    FIN1 DB ?
    CAR2 DB "ACCESO DENEGADO"
    FIN2 DB ?
    AST DB '*'
ORG 2000H
    MOV BX, OFFSET MSJ
    MOV AL, OFFSET FIN-OFFSET MSJ
    INT 7
    MOV CL,4
    MOV BX, OFFSET ING
   SIGO:INT 6
    PUSH BX
    PUSH AX
    MOV Bx,OFFSET AST
    MOV AL,1
    INT 7 // imprime asterisco
    POP AX
    POP BX
        INC BX
    DEC CL
    JNZ SIGO
    MOV DX, OFFSET ING
    MOV CX, OFFSET CLAVE
    MOV AH, 4
    MAS:MOV BX, CX
    MOV AL, [BX]
    MOV BX, DX
    CMP AL, [BX]
    JNZ ACCDEN
    INC DX
    INC CX
    DEC AH
    JNZ MAS
    MOV BX, OFFSET CAR1
    MOV AL, OFFSET FIN1-OFFSET CAR1
    INT 7
    JMP FINAL
 ACCDEN:MOV BX, OFFSET CAR2
    MOV AL, OFFSET FIN2-OFFSET CAR2
    INT 7
  FINAL:INT 0
END