单片机密码锁proteus仿真和汇编语言源代码 数码管显示

helendcany

单片机密码锁proteus仿真和汇编语言源代码 数码管显示

单片机汇编语言源程序：
        LED_BIT_1 EQU 30H
/ b) N! e: [5 R+ b* T& Y2 ]        LED_BIT_2 EQU 31H
5 d, y* U: t) v5 L4 o1 ?" x- R' l0 f        LED_BIT_3 EQU 32H
        LED_BIT_4 EQU 33H
        LED_BIT_5 EQU 34H
# ~/ Q$ }  p7 c3 ^        LED_BIT_6 EQU 35H
; Q. C$ B% U0 C9 x( U        LED_BIT_7 EQU 36H
        LED_BIT_8 EQU 37H
7 X, C6 f8 u  {: vWORD_1 EQU 38H
WORD_2 EQU 39H
8 m' y6 f5 y) {5 r$ ], sWORD_3 EQU 3AH
WORD_4 EQU 3BH
; |4 K  B& y2 k. o# ?, NWORD_5 EQU 3CH
WORD_6 EQU 3DH
KEY_1 EQU 3EH
3 \8 Y6 K: d8 Q) V) z6 RKEY_2 EQU 3FH
KEY_3 EQU 40H
KEY_4 EQU 41H
KEY_5 EQU 42H
KEY_6 EQU 43H
# {6 X( u& V- f, q1 T9 _  wCNT_A EQU 44H
8 B  O' m8 L) M1 K3 kCNT_B EQU 45H
KEY_CNT EQU 46H
9 r6 F8 u' E+ KLINE EQU 47H
6 J4 y* o0 C& d2 ]2 E" [ROW EQU 48H
VAL EQU 49H
ORG 00H
+ q+ R8 u! Z" hSJMP START
ORG 0BH
( w, p. w- u: y1 R. K" V" E1 G! SLJMP INT_T0
START: MOV CNT_A,#00H
! g/ U$ m. Y3 q. N! H            MOV CNT_B,#00H
$ m1 a! [4 d6 ^2 J) C+ }; y            MOV KEY_CNT,#00H
            MOV LINE,#00H
            MOV ROW,#00H
            MOV VAL,#00H
, x: d8 X  W( }- l7 A" e            SETB P1.0
            MOV LED_BIT_1,#00H
            MOV LED_BIT_2,#00H
            MOV LED_BIT_3,#00H
            MOV LED_BIT_4,#00H
            MOV LED_BIT_5,#00H
& y% o1 Y# Q& `2 P2 H            MOV LED_BIT_6,#00H
8 B% V* g9 e/ o$ v            MOV LED_BIT_7,#79H
            MOV LED_BIT_8,#73H
            MOV KEY_1,#00H
7 p/ n- e; I# S! V, a            MOV KEY_2,#00H
            MOV KEY_3,#00H
/ [6 T, {8 m/ W0 @. U1 T            MOV KEY_4,#00H
% A  a# [( R$ c7 m2 U# [            MOV KEY_5,#00H
            MOV KEY_6,#00H
            MOV WORD_1,#6
8 {" z1 m  }8 w            MOV WORD_2,#5
            MOV WORD_3,#4
+ Z8 _- g2 U; y6 _* e' c" H, c5 I            MOV WORD_4,#3
# |% J* G7 z# h2 D. S! F8 k2 R" R! |            MOV WORD_5,#2
# {/ {6 {) k8 v; Z) u7 s            MOV WORD_6,#1
            MOV TMOD,#01H
            MOV TH0,#(65536-700)/256
            MOV TL0,#(65536-700)/256
" c& K% Y& ]! u) H0 P5 O/ z  b* |            MOV IE,#82H
1 x( Y% F' S* N+ _) QA0:       LCALL DISP
7 L4 I9 B3 G3 E8 a7 B/ r

' E& L3 x2 Y2 V8 uLSCAN: MOV P3,#0F0H
L1:          JNB P3.0,L2
             LCALL DLY_S
             JNB P3.0,L2
. t$ `- _- i8 G5 A) U" v             MOV LINE,#00H
* s- C% \/ ?; R3 }! j  n$ i             LJMP RSCAN
L2:        JNB P3.1,L3
% R1 T) Y4 X4 z9 e" Y             LCALL DLY_S
, C: v: h' Z. P( Y; o. ?             JNB P3.1,L3
8 F; r+ w3 C; n( B             MOV LINE,#01H
             LJMP RSCAN
! C/ ?4 ^; @. a, n+ e8 b3 yL3:        JNB P3.2,L4
             LCALL DLY_S
             JNB P3.2,L4
( J9 P& ^+ e, V5 e3 P             MOV LINE,#02H
0 G- h" l) F/ h+ f! X0 h$ Y& i             LJMP RSCAN
6 P. _6 X& ?! h2 i- B: |8 iL4:        JNB P3.3,A0
             LCALL DLY_S
             JNB P3.3,A0
             MOV LINE,#03H

9 h  x3 r% s& e- x5 I* ]6 X% f" r
                RSCAN: MOV P3,#0FH
3 d/ ~7 g# ]! L' `  |! U                C1:         JNB P3.4,C2
                             MOV ROW,#00H
                             LJMP CALCU
! D# E9 h; q) q0 k                C2:        JNB P3.5,C3
                             MOV ROW,#01H
8 U) O+ s8 j9 H5 H                             LJMP CALCU
                C3:        JNB P3.6,C1
3 Y3 ~" m& n$ N. D/ T                             MOV ROW,#02H
                CALCU: MOV A,LINE
                             MOV B,#03H
- E/ e: b  V+ y: M3 I                             MUL AB
                             ADD A,ROW
* ^$ `: P$ }5 x& \0 ?, a                             MOV VAL,A
; w3 |% j! z& B( v                CJNE A,#0AH,J1
                     MOV R1,KEY_CNT
                CJNE R1,#00H,J2
                LCALL ALARM_1
  p/ b! a& h2 }* e7 w0 x                LJMP START

# Z" Q0 X+ Q! `: z
$ Q+ d: Z% N% L$ }$ V
J2:          DEC KEY_CNT

      LCALL SHIFTL2


) x" o/ G  H- D, v: d

# H5 M. V. I% y& w& b  b8 i

1 S6 d% z) J$ F  VW00: LCALL DISP
) Q) O) [; w$ w           MOV A,P3
           CJNE A,#0FH,W01
6 U- N) ^# N, w) y           LJMP A0
. L2 c+ e; k, S+ t8 c  UW01:   MOV A,P3
           CJNE A,#0F0H,W02
           LJMP A0
& _9 b8 `5 A5 r3 SW02:   SJMP W00
! Q1 k) e  E' bJ1:       MOV A,VAL
           CJNE A,#0BH,J3
           MOV R1,KEY_CNT
           CJNE R1,#06H,J4
           MOV A,WORD_1
           CJNE A,3EH,J5
           MOV A,WORD_2
           CJNE A,3FH,J5
           MOV A,WORD_3
           CJNE A,40H,J5
/ k( v+ l, ^; ^2 S1 l' A( n0 Y           MOV A,WORD_4
' P) i9 O& @6 X6 h/ z, D           CJNE A,41H,J5
           MOV A,WORD_5
           CJNE A,42H,J5
           MOV A,WORD_6
           CJNE A,43H,J5
           CLR P1.0
# w. t0 D3 G6 F  K           LCALL DLY_L
           LJMP FINI
J5:       LCALL ALARM_2
           LJMP START
J4:       LCALL ALARM_1
           LJMP START
J3:       INC KEY_CNT
6 S9 K5 y% Y2 D4 C0 d9 w" B/ \8 K           MOV A,KEY_CNT
. r1 z5 I7 h3 K  A: U* q! H           CJNE A,#07H,K1
! c5 E+ \/ J2 m& B           LCALL ALARM_1
W10:   LCALL DISP
* t6 o% W2 W/ Z7 ~7 l8 r           MOV A,P3
3 m1 D, }  x# q! z- p           CJNE A,#0FH,W11
- \+ ]8 o6 L4 r' \           LJMP START
W11:   MOV A,P3
1 U; p( T' J4 ?, G, o! ^4 m1 |: E           CJNE A,#0F0H,W12
8 M7 x5 M" j! t! s9 Z- Z( c           LJMP START
W12:   SJMP W10
( x$ e& l# ?: F1 d( N2 A           LJMP START
+ U7 g* m$ s- W5 c; o( o* a5 D           LJMP START
K1:      LCALL SHIFTL
! C2 P% D6 m5 b/ M8 ZW20:   LCALL DISP
  s. m9 n+ K5 j7 h           MOV A,P3
9 x0 s- p+ T& z; d. ~           CJNE A,#0FH,W21
$ H1 T0 F4 j" G. G+ e; x  J           LJMP A0
W21:   MOV A,P3
           CJNE A,#0F0H,W22
           LJMP A0
/ c6 z; Y3 C) e; v* ]# l8 uW22:   SJMP W20
1 E% m0 j" J$ N( Q( J2 e           LJMP A0
ALARM_1:SETB TR0
                 JB TR0,$
3 E2 u# J0 |! t" T) _                 RET
7 p& E! c! B" Z$ J* dALARM_2: SETB TR0
         JB TR0,$
4 U& `+ |- y) V5 r  H         LCALL DLY_L
; g& d3 g1 R3 d' ~: b* @9 v  RET

/ M) _; M5 o; _2 aINT_T0:CPL P1.7
MOV TH0,#100
MOV TL0,#253
( l: K' r! W: W* R; H+ N% i; U# mINC CNT_A
MOV R1,CNT_A
/ c  o7 W" \& B5 e/ hCJNE R1,#30,RETUNE
MOV CNT_A,#00H
2 A% }4 ~( {8 C5 HINC CNT_B
MOV R1,CNT_B
: E; @; x# z$ W: f- d4 o. y8 YCJNE R1,#20,RETUNE
MOV CNT_A,#00H
MOV CNT_B,#00H
CLR TR0
9 i# j) b6 B- P* `$ c" |RETUNE:RETI
2 N+ w7 c7 z$ w
$ V6 W" [& Y8 L) c
! Z8 x5 y# c/ ^; pSHIFTL: MOV LED_BIT_6,LED_BIT_5
        MOV LED_BIT_5,LED_BIT_4
  C/ K+ N$ R) q3 ^( y        MOV LED_BIT_4,LED_BIT_3
                MOV LED_BIT_3,LED_BIT_2
( k) ]  P6 O: V' O- K        MOV LED_BIT_2,LED_BIT_1
1 r1 X4 m2 G( k0 k, q+ D        MOV LED_BIT_1,#40H
        MOV KEY_6,KEY_5
        MOV KEY_5,KEY_4
        MOV KEY_4,KEY_3
3 T* ?1 D( x+ e. g5 p3 S        MOV KEY_3,KEY_2
        MOV KEY_2,KEY_1
        MOV KEY_1,VAL
RET

" R: [2 Q- h/ b+ U& P5 _5 `5 _
1 E* d3 m; H1 e6 O0 p- H
" o3 e; g( t$ T+ B6 ]: g+ d
        SHIFTL2:
$ u+ O) e7 J; ^8 f2 K& n  ?
2 n, \% {# I; C/ Y                MOV LED_BIT_1,LED_BIT_2
                MOV LED_BIT_2,LED_BIT_3
                MOV LED_BIT_3,LED_BIT_4
                MOV LED_BIT_4,LED_BIT_5
                MOV LED_BIT_5,LED_BIT_6
' D/ S' d6 S. d9 a/ Z6 g5 D, X& o                MOV LED_BIT_6,#00H
: k* e) d! ~4 g3 \* x% K$ |                MOV KEY_1,KEY_2
                MOV KEY_2,KEY_3
7 i5 M  J* R3 \% @& b) R                MOV KEY_3,KEY_4
! f$ M; C" k% w" {                MOV KEY_4,KEY_5
0 v, _; N! `+ o, G, a                MOV KEY_5,KEY_6
' }3 {2 I+ c* r. [6 l' `                MOV KEY_6,#00H

        RET
2 a  M& @5 H# p' O7 n
$ U* p& g: k( C' x1 h
* A7 `# X% l( \& `+ t! e% vDISP:CLR P2.7
* n  y3 b' d0 T     MOV P0,LED_BIT_8
     LCALL DLY_S
     SETB P2.7
     CLR P2.6
! Z" n. O. s9 j8 |; y     MOV P0,LED_BIT_7
     LCALL DLY_S
& g: _$ v5 c  Z0 j     SETB P2.6
     CLR P2.5
0 p. n% ?& a% h. {6 e* j% L     MOV P0,LED_BIT_6
0 }: V- P' W. H/ D     LCALL DLY_S
% o1 N6 D  ]' p: V+ @" M3 o     SETB P2.5
     CLR P2.4
$ @! a) p& d; M8 c" k     MOV P0,LED_BIT_5
     LCALL DLY_S
5 W$ N3 t6 n- z     SETB P2.4
     CLR P2.3
8 I- V3 q9 t5 }- |8 Y, _3 W     MOV P0,LED_BIT_4
     LCALL DLY_S
     SETB P2.3
     CLR P2.2
. J5 `, d$ c$ L     MOV P0,LED_BIT_3
     LCALL DLY_S
  N2 Y8 a+ M) L8 L% s' b$ N; q     SETB P2.2
     CLR P2.1
     MOV P0,LED_BIT_2
     LCALL DLY_S
     SETB P2.1
     CLR P2.0
     MOV P0,LED_BIT_1
     LCALL DLY_S
9 q1 K5 K2 x* I     SETB P2.0
+ `6 R2 i5 F1 J1 m  _- l     RET
9 j6 B" O# ?) U! P0 ?  Q; D        DLY_S:MOV R6,#10
- E+ r* a2 {5 v& R/ b        D1:MOV R7,#250
% X) t. V/ f' `( Z: a. @5 {        DJNZ R7,$
        DJNZ R6,D1
9 Q3 V: o# L$ I9 u% H4 T
5 Y$ B6 i3 g& m" M9 m! [
…………限于本文篇幅 余下代码请从论坛下载附件…………
1 A# d9 |& o1 b( {" {4 H

游客，如果您要查看本帖隐藏内容请回复

gaoxings

学习中 谢谢分享