membuat pasword dengan program Micro Bahasa Rakitan

.MODEL SMALL
    .CODE
    ORG 100H

DATA:   JMP MULAI

    BUFFER DB    23,?,23 DUP(?)
    TUJUAN DB    23 DUP (?)
    KODE   DB    'STMIK'
    J_K    DW    ?
    KLG    DB    13,10,10,'$'
    KAL_0  DB    'MASUKKAN KODE    :$'
    KAL_1  DB    13,10,'KODE YANGB DIMASUKKAN   : $'
    KALT   DB    13,10,'PASSWORD ANDA SALAH!! $'
    KALS   DB    13,10,'PASSWORD BENAR  $'

MULAI :
    MOV    AH,09H
    LEA    DX,KAL_0
    INT    21H
    MOV    AH,0AH
    MOV    DX,OFFSET BUFFER
    INT    21H
    LEA    BX,BUFFER+2
    MOV    AH,09H
    LEA    DX,KAL_1
    INT     21H
    XOR    CX,CX

ULANG :
    PUSH    BX
    CMP    BYTE PTR[BX],0DH
    JE    CETAKD
    MOV    AL,[BX]
    XOR    BX,BX
    ADD    BX,CX
    MOV    TUJUAN[BX],AL
    POP    BX
    INC    BX
    INC    CX
    MOV    J_K,CX
    JMP    ULANG

CETAKD: XOR    BX,BX
CETAK1: MOV    AH,02H
    MOV    DL,TUJUAN[BX]
    INT    21H
    INC    BX
    LOOP    CETAK1

UJI:    LEA    SI,KODE
    LEA    DI,TUJUAN
    CLD   
    MOV    CX,J_K
    REP    CMPSB
    JNE    TIDAKS
    MOV    AH,09H
    LEA    DX,KALS
    INT    21H
    JMP    EXIT

TIDAKS:
    MOV    AH,09H
    LEA    DX,KALT
    INT    21H

EXIT:
    INT    20H
    END    DATA