stacksegment

cachedb10dup('?')

stackends

codesegment

assumecs:code,ds:code,es:code,ss:stack

messagedb'Madebycorrey',24h

emaildb0dh,0ah,'Email:leguanyuan@126.com',24h

noticedb0dh,0ah,'inputpassword:',24h

passworddb'correy999'

mainproc

movax,code

movds,ax

moves,ax

movax,stack

movss,ax

movdx,offsetmessage

movah,09

int21h

movdx,offsetemail

movah,09

int21h

start:movdx,offsetnotice

movah,09

int21h

movcx,9

movbx,offsetcache

show:movah,00

int16h

cmpal,0Dh

jecomp

mov[bx],al

incbx

movdl,2Ah

movah,02

int21h

loopshow

comp:movcx,9

movsi,offsetpassword

movdi,offsetcache

repzcmpsb

jnestart

movah,4Ch

int21h

mainendp

codeends

endmain