汇编语言通信字识别

;FILENAM:EXA131.ASM
.486
        DATA  SEGMENT   USE16
        MESG  DB        0DH,0AH,'Please input the password:','$'
        ERRO  DB        0DH,0AH,'Wrong password!','$'
        PASS  DB        '16530202'
         LEN  EQU       $-PASS
        WELC  DB        0DH,0AH,'RIGHT','$'
         BUF  DB        9 DUP(?)
        
        DATA  ENDS
        CODE  SEGMENT   USE16
              ASSUME    CS:CODE,DS:DATA,ES:DATA
        BEG:  MOV       AX,DATA
              MOV       DS,AX
              MOV       ES,AX
        
      FIRST:  MOV       AH,9
              LEA       DX,MESG
              INT       21H
              LEA       BX,BUF
      AGAIN:  MOV       AH,07H
              INT       21H
              CMP       AL,0DH
              JZ        NEXT