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