page	58,132
TITLE	Key 1 Typing program.
INCLUDE DENNIS.MAC
.model	MEDIUM
.286
.STACK
.DATA
KEYBUFF		DB	80 dup (?)
REQUEST 	DB	"Enter the pasword to proceed:",0ah,0dh,24H
PASSWORD	DB	"xxx"
PASSED		DB	"You passed",0ah,0dh,24H
FAILED		DB	"Incorrect",0ah,0dh,24H
.CODE


MAIN	PROC	FAR
	PUSHA
	PUSH	DS
	MOV	AX,@DATA
	MOV	DS,AX
	MOV	ES,AX
	MOV	SI,0
	PRINT	REQUEST
	MOV	CX,80
	XOR	AX,AX
	MOV	AH,3FH
	MOV	BX,0
	MOV	DX,OFFSET KEYBUFF

	INT	21H
	LEA	DI,KEYBUFF
	LEA	SI,PASSWORD
REPE	CMPSW	KEYBUFF,PASSWORD
	JE	PASS
	PRINT	FAILED
	JMP	FINI
PASS:
	PRINT	PASSED

FINI:

	PROGEND

MAIN	ENDP
	END	MAIN