用51单片机写一个汇编程序：设计一个电子密码锁，可以输入四位固定密码，密码比对成功人士蜂鸣器引起响一声，密码输入内容由数码管显示。

好的，以下是一个简单的汇编程序，用于实现电子密码锁的功能：

ORG 0H              ; 程序起始地址为0

P1 EQU 90H          ; 定义P1口地址
DPH EQU 83H         ; 定义DPH地址
DP7 EQU 87H         ; 定义DP7地址
BUZZER EQU P1.0     ; 定义蜂鸣器控制口

RESET:
    MOV P1, #0FFH   ; P1口设为输入模式
    MOV DPH, #0     ; DP高位清零
    MOV DP7, #0     ; DP7位清零
    MOV R0, #4      ; 设置密码长度为4
    MOV R1, #0      ; 清空计数器
    MOV R2, #0      ; 清空输入的密码

READ_KEY:
    MOV A, P1       ; 读取按键状态
    CJNE A, #0FFH, CHECK_KEY   ; 判断是否有按键按下
    SJMP READ_KEY

CHECK_KEY:
    MOV B, A        ; 将按键状态保存在B寄存器中
    ANL B, #0F0H    ; 判断是否为第一行按键按下
    JZ SET_KEY      ; 如果是则跳转到SET_KEY
    SJMP READ_KEY

SET_KEY:
    MOV A, P1       ; 再次读取按键状态
    ANL A, #0FH     ; 获取按下的数字
    MOV R3, A       ; 将数字保存在R3寄存器中
    INC R1          ; 计数器加1
    MOV A, R1       ; 将计数器的值保存在A寄存器中
    CJNE A, R0, READ_KEY     ; 如果还没输入完四位密码，则继续等待
    MOV A, #0        ; 清空A寄存器
    MOV R1, A        ; 清空计数器
    MOV R2, #1234H   ; 将正确的密码保存在R2寄存器中
    CJNE R2, #1234H, WRONG_PASSWORD    ; 如果输入的密码与正确的密码不一致，则跳转到WRONG_PASSWORD
    MOV BUZZER, #1   ; 如果输入的密码正确，则开启蜂鸣器
    MOV DPH, #0      ; 显示“PASS”（通过）
    MOV DP7, #5DH
    SJMP RESET

WRONG_PASSWORD:
    MOV DPH, #0      ; 显示“FAIL”（失败）
    MOV DP7, #7CH
    SJMP RESET

END

该程序将P1口设为输入模式，读取按键状态，判断按下的数字是否为第一行数字键，如果是则将数字保存在R3寄存器中，否则继续等待。当输入完四位密码后，将正确的密码保存在R2寄存器中，如果输入的密码与正确的密码不一致，则显示“FAIL”（失败），否则显示“PASS”（通过）并开启蜂鸣器。