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