stack segment
cache db 10 dup ('?')
stack ends
code segment
assume cs:code,ds:code,es:code,ss:stack
message db 'Made by correy',24h
email db 0dh,0ah,'Email:leguanyuan@126.com',24h
notice db 0dh,0ah,'input password:',24h
password db 'correy999'
main proc
mov ax, code
mov ds, ax
mov es, ax
mov ax,stack
mov ss,ax
mov dx, offset message
mov ah, 09
int 21h
mov dx, offset email
mov ah, 09
int 21h
start:mov dx, offset notice
mov ah, 09
int 21h
mov cx, 9
mov bx,offset cache
show:mov ah, 00
int 16h
cmp al, 0Dh
je comp
mov [bx],al
inc bx
mov dl, 2Ah
mov ah, 02
int 21h
loop show
comp:mov cx, 9
mov si, offset password
mov di, offset cache
repz cmpsb
jne start
mov ah, 4Ch
int 21h
main endp
code ends
end main