.486
        DATA  SEGMENT   USE16
        MIMA  DB        'ABCD'
         BUF  DB        10 DUP(?)
       FALSE  DB        '   FAILED',0AH,0DH, '$'
       INPUT  DB        'INPUT PASSWORD:$'
         YES  DB        0DH,0AH,'OK!$'
        DATA  ENDS
        CODE  SEGMENT   USE16
              ASSUME    CS:CODE,DS:DATA,ES:DATA
        BEG:  MOV       AX,DATA
              MOV       DS,AX
              MOV       ES,AX
              MOV       AH,00H
              MOV       AL,0
              INT       10H
       BEG1:  MOV       BX,0
              MOV       AH,09H
              MOV       DX,OFFSET INPUT
              INT       21H
              MOV       DI,OFFSET BUF
        INP:  MOV       AH,07H
              INT       21H
              CMP       AL,0DH
              JZ        NEXT
              MOV       BYTE PTR [DI],AL
              INC       DI
              MOV       AH,02H
              MOV       DL,'*'
              INT       21H
              INC       BX
              JMP       INP
       NEXT:  CMP       BX,4
              JNZ       FAIL
              DEC       DI
              MOV       SI,OFFSET MIMA+3
              MOV       CX,4
              STD
              REPE      CMPSB
              JZ        EXIT
       FAIL:  MOV       AH,09H
              MOV       DX,OFFSET FALSE
              INT       21H
              JMP       BEG1
       EXIT:  MOV       AH,09H
              MOV       DX,OFFSET YES
              INT       21H
              MOV       AH,4CH
              INT       21H
        CODE  ENDS
              END       BEG