Viết chương trình nhập mật khẩu (tối đa 127 ký tự)

Bài thực hành buổi 2 NNHT
Viết chương trình nhập mật khẩu (tối đa 127 ký tự) yêu cầu:
+ Hiện thị chuỗi dạng nhập: *********
+ Kết thúc bằng phím Enter
+ In ra nội dung mật khẩu đã nhập
Chú ý:
+Xữ lí phím Esc: bỏ qua chuỗi đã nhập, nhập lại mật khẩu
+ Xữ lí Backspace xóa lùi ký tự vừa nhập
+ Phân biệt chữ hoa và chữ thường.

Code:


Tab    EQU    9
Bck    EQU    8
Enter  EQU    13
Esp    EQU    27

MyCOM  GROUP  CodeSeg, DataSeg
    ASSUME  CS:MyCOM, DS:MyCOM
CodeSeg  SEGMENT  PUBLIC 
    ORG  100h
Main  PROC
    call    Nhap
    call    Xuly
    call    Xuat
    int 20h
Main  ENDP       
;-------------------------
Nhap Proc
    mov    Len,0
    lea    dx,caunhac
    call    writestr
    ret
Nhap endP
;-------------------------
Xuly Proc
    lea    di,Buffer
Nhap1:
    call    Readkey
    cmp    al,Tab
    jz      Quit
    cmp    al,Esp
    jz      Esckey
    cmp    al,Enter
    jz      Enterkey
    cmp    al,Bck
    jz      Bckkey
    STOSB            ; lodsb    al <- ds:si,    stosb    al <- ls:si
    inc      len
    mov    dl,'*'
    call    writechar
    jmp    short    Nhap1
Quit:
    stc
    ret
Esckey:
    call    Nhap
    jmp    Xuly
    ret
Enterkey:
    clc   
    ret
Bckkey:
    cmp    len,0
    jz      xuly
    dec    len
    dec    di
    mov    dl,al
    call    writechar
    mov    dl,' '
    call    writechar
    mov    dl,Bck
    call    writechar
    jmp    Nhap1
    ret
Xuly endP
;-------------------------
Xuat Proc   
    cmp    len,0
    jz    Error
    lea    dx,matkhau
    call    writestr
    mov    ch,0
    mov    cl,Len
    lea    si,Buffer
Loadch:
    LODSB
    mov    dl,al
    call    writechar
    loop    loadch
    ret
   
Error:
    lea    dx,boqua
    call writestr
    ret
Xuat endp
;-------------------------
WriteStr    PROC
      MOV          AH,9
      INT          21h
      RET
WriteStr    ENDP
;-------------------------
Writechar    PROC
      MOV          AH,2
      INT          21h
      RET
Writechar    ENDP
;-------------------------
Readkey    Proc
    mov ah,8
    int 21h
    ret
Readkey Endp
;-------------------------
CodeSeg  ENDS
DataSeg  SEGMENT  PUBLIC
    caunhac        db 0dh,0ah,'Nhap mat khau cua ban:$'
    boqua        db 0dh,0ah, 'Khong Nhap Mat Khau!!$'
    matkhau        db 0dh,0ah, 'Mat Khau cua ban la:  $'   
Len    db    0
Buffer    db    128 dup (0)
DataSeg      ENDS
END  Main


ước gì mình được như anh ấy