基于单片机的密码锁汇编程序

 程序流程图

*******************************************************

;以下8个字节存放8位数码管的段码

LED_BIT_1  EQU     30H

LED_BIT_2  EQU     31H

LED_BIT_3  EQU     32H

LED_BIT_4  EQU     33H

LED_BIT_5  EQU     34H

LED_BIT_6  EQU     35H

LED_BIT_7  EQU     36H

LED_BIT_8  EQU     37H

;以下6个字节存放初始密码

WORD_1     EQU     38H

WORD_2     EQU     39H

WORD_3     EQU     3AH

WORD_4     EQU     3BH

WORD_5     EQU     3CH

WORD_6     EQU     3DH

;以下6个字节存放用户输入的6位密码

KEY_1      EQU     3EH

KEY_2      EQU     3FH

KEY_3      EQU     40H

KEY_4      EQU     41H

KEY_5      EQU     42H

KEY_6      EQU     43H

;******************************************************

CNT_A      EQU     44H

CNT_B      EQU     45H

KEY_CNT        EQU     46H     ;已输出的密码位数

LINE       EQU     47H     ;按键行号

ROW         EQU     48H     ;按键列号

VAL         EQU     49H     ;键值

;******************************************************

;以下为初始化程序,包括数据存储空间初始化,设置初始密码

        ORG     00H

        SJMP   START

        ORG     0BH

        LJMP   INT_T0

START: MOV     CNT_A,#00H     ;程序初始化

        MOV     CNT_B,#00H

        MOV     KEY_CNT,#00H

        MOV     LINE,#00H

        MOV     ROW,#00H

        MOV     VAL,#00H

        SETB   P1.0

        MOV     LED_BIT_1,#00H    ;段码存储区清0

        MOV     LED_BIT_2,#00H

        MOV     LED_BIT_3,#00H

        MOV     LED_BIT_4,#00H

        MOV     LED_BIT_5,#00H

        MOV     LED_BIT_6,#00H

        MOV     LED_BIT_7,#79H

        MOV     LED_BIT_8,#73H

 

        MOV     KEY_1,#00H     ;输入密码存储区清0

        MOV     KEY_2,#00H

        MOV     KEY_3,#00H

        MOV     KEY_4,#00H

        MOV     KEY_5,#00H

        MOV     KEY_6,#00H

 

        MOV     WORD_1,#6      ;设置初始密码为"123456"

        MOV     WORD_2,#5

        MOV     WORD_3,#4

        MOV     WORD_4,#3

        MOV     WORD_5,#2

        MOV     WORD_6,#1

 

        MOV     TMOD,#01H

        MOV     TH0,#(65536-700)/256

        MOV     TL0,#(65536-700)/256

        MOV     IE,#82H

 

A0:     LCALL  DISP

;***********************************************************

;以下为键盘扫描程序,计算键值并存入VAL

LSCAN: MOV     P3,#0F0H       ;扫描行码

    L1: JNB     P3.0,L2

        LCALL  DLY_S

        JNB     P3.0,L2

        MOV     LINE,#00H

        LJMP   RSCAN

    L2: JNB     P3.1,L3

        LCALL  DLY_S

        JNB     P3.1,L3

        MOV     LINE,#01H

        LJMP   RSCAN

    L3: JNB     P3.2,L4

        LCALL  DLY_S

        JNB     P3.2,L4

        MOV     LINE,#02H

        LJMP   RSCAN

    L4: JNB     P3.3,A0

        LCALL  DLY_S

        JNB     P3.3,A0

        MOV     LINE,#03H

 

RSCAN: MOV     P3,#0FH            ;扫描列码

    C1: JNB     P3.4,C2

        MOV     ROW,#00H

        LJMP   CALCU

    C2: JNB     P3.5,C3

        MOV     ROW,#01H

        LJMP   CALCU

    C3: JNB     P3.6,C1

        MOV     ROW,#02H

 

CALCU: MOV     A,LINE         ;计算键值

        MOV     B,#03H

        MUL     AB

        ADD     A,ROW

        MOV     VAL,A

 

        CLR     P1.0

        LCALL  DLY_L

        LJMP   FINI

 

    J5: LCALL  ALARM_2

        LJMP   START

 

    J4: LCALL  ALARM_1

        LJMP   START

 

DLY_S: MOV     R6,#10

D1:     MOV     R7,#250

        DJNZ   R7,$

        DJNZ   R6,D1

        RET

 

DLY_L: MOV     R5,#100

D2:     MOV     R6,#100

D3:     MOV     R7,#248

        DJNZ   R7,$

        DJNZ   R6,D3

        DJNZ   R5,D2

        RET

FINI:  NOP

        END