Lab#11b

OBJECT:
To write a program to check the password by full segment.
PROGRAM:
.model small
.stack 64h
.data
STSEG SEGMENT STACK
DB 64 DUP(?)
STSEG ENDS

DTSEG SEGMENT

str1 db "ENTER PASSWORD",0dh,0ah,'$'
str2 db 0dh,0ah,"ACCESS DENIED",'$'
str3 db 0dh,0ah,"ACCESS APPROVED",'$'
pass db "khusro",'$'
count=($-pass)
kbarea label byte
max db 32h
charsinput db ?
entword db 32 dup(0)

DTSEG ENDS


CDSEG SEGMENT

main proc far
ASSUME CS:CDSEG,DS:DTSEG,SS:STSEG
MOV AX,DTSEG
MOV DS,AX
MOV ES,AX
MOV AH,9
LEA DX,str1
INT 21H
LEA DX,kbarea
MOV AH,0AH
INT 21H
LEA SI,pass
LEA DI,entword
MOV CX,count
repe cmpsb
jcxz match
LEA DX,str2
MOV AH,9
INT 21H
JMP EXIT

match:LEA DX,str3
MOV AH,9
INT 21H

EXIT:MOV AX,4C00H
INT 21H


MAIN ENDP

CDSEG ENDS

END MAIN

OUTPUT:
D:\MASM611\BIN>password.exe
Enter Password
khusro
Access Approved...