找回密码
 注册
关于网站域名变更的通知
查看: 777|回复: 2
打印 上一主题 下一主题

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

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2018-11-29 07:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
单片机密码锁proteus仿真和汇编语言源代码 数码管显示; S" F6 ?) V% Q( n
7 Q' h9 X$ W' I
单片机汇编语言源程序:6 g$ c& V% J& K8 J' X
        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' V; T% t9 B# \+ s9 r! N
        LED_BIT_4 EQU 33H% Y9 I! ^3 W3 F) v
        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* F0 d- k3 {  R. P) ~5 G1 r
        LED_BIT_8 EQU 37H
7 X, C6 f8 u  {: vWORD_1 EQU 38H0 w  J9 c5 g( v
WORD_2 EQU 39H
8 m' y6 f5 y) {5 r$ ], sWORD_3 EQU 3AH3 |4 h" S. Z: j! T% b! I4 c/ R
WORD_4 EQU 3BH
; |4 K  B& y2 k. o# ?, NWORD_5 EQU 3CH( ~" E2 r$ w4 u8 b: {. B
WORD_6 EQU 3DH+ A# b+ ^6 t/ T* `% `$ ?% V  s
KEY_1 EQU 3EH
3 \8 Y6 K: d8 Q) V) z6 RKEY_2 EQU 3FH* N2 Y) h9 \1 e( o
KEY_3 EQU 40H0 e) o/ X! N8 }% {) J$ a
KEY_4 EQU 41H- N) h) O" b& H: f
KEY_5 EQU 42H7 H+ I( M0 R; E4 K$ @
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" e2 ]8 O) T3 ^3 m9 `- [2 \) l
KEY_CNT EQU 46H
9 r6 F8 u' E+ KLINE EQU 47H
6 J4 y* o0 C& d2 ]2 E" [ROW EQU 48H! `5 i8 O0 [$ S5 J
VAL EQU 49H2 c: T5 `  j4 \/ ^
ORG 00H
+ q+ R8 u! Z" hSJMP START" d# \, t' M& f% C& X! t* m9 K% [3 e
ORG 0BH
( w, p. w- u: y1 R. K" V" E1 G! SLJMP INT_T0) C8 v! g/ c6 H# E# T
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,#00H3 h* d" I$ M# ~& Q4 x& ^
            MOV LINE,#00H8 I5 p/ L. D0 r6 q5 W& ^" G
            MOV ROW,#00H9 S0 Z+ w2 w. \
            MOV VAL,#00H
, x: d8 X  W( }- l7 A" e            SETB P1.0. S+ a- e# x. X
            MOV LED_BIT_1,#00H+ B) _8 S0 j& a! M! N3 P
            MOV LED_BIT_2,#00H$ y: a; g3 {# A& @
            MOV LED_BIT_3,#00H5 n# L: D. z7 w3 ^" x
            MOV LED_BIT_4,#00H8 K  ]) b( X3 r5 g1 c, _! n7 b
            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  b1 O' X9 p% m
            MOV LED_BIT_8,#73H* b, S) _+ K4 A2 h1 n4 ]5 K
            MOV KEY_1,#00H
7 p/ n- e; I# S! V, a            MOV KEY_2,#00H% N. I$ G  z0 R! K  Z6 O% W4 D
            MOV KEY_3,#00H
/ [6 T, {8 m/ W0 @. U1 T            MOV KEY_4,#00H
% A  a# [( R$ c7 m2 U# [            MOV KEY_5,#00H5 ]; V- D6 Q/ R  x8 F, D( z! S
            MOV KEY_6,#00H! \, q  I4 V1 H9 B: q
            MOV WORD_1,#6
8 {" z1 m  }8 w            MOV WORD_2,#5- o3 Z' I3 _0 ?# a. \
            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,#10 @6 t7 M- p6 n$ n
            MOV TMOD,#01H+ H( i& F+ i* g) A  ~( [# T
            MOV TH0,#(65536-700)/256" t, i, [+ Y# d5 B1 ^/ p, {
            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, G2 f- m& {# f, V$ X

' E& L3 x2 Y2 V8 uLSCAN: MOV P3,#0F0H) t& L) H9 O1 _  I  S0 D
L1:          JNB P3.0,L2% A# S- @3 T- u* e
             LCALL DLY_S, c! Z$ T9 E" e- P% n0 u  e: y( t& w
             JNB P3.0,L2
. t$ `- _- i8 G5 A) U" v             MOV LINE,#00H
* s- C% \/ ?; R3 }! j  n$ i             LJMP RSCAN# B5 m' Y4 |& b- _1 \
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+ a9 |7 S) a' f9 {; ]4 ]( Y$ w
             LJMP RSCAN
! C/ ?4 ^; @. a, n+ e8 b3 yL3:        JNB P3.2,L42 z0 H( _3 p6 ^' h
             LCALL DLY_S: E( j- G* K5 X% o8 Y
             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,A09 O$ d2 \4 f# Y
             LCALL DLY_S. t- ^5 n, M8 G0 j
             JNB P3.3,A0! A: F9 f$ [. j- ^% J" M
             MOV LINE,#03H3 Z1 [5 T' |" E( i- D/ i

9 h  x3 r% s& e- x5 I* ]6 X% f" r! _% N" i1 A: l- j: p/ H' i
                RSCAN: MOV P3,#0FH
3 d/ ~7 g# ]! L' `  |! U                C1:         JNB P3.4,C2: c- T4 {  S5 G; \% \! d
                             MOV ROW,#00H7 b, |) I) d: r! |; W& w
                             LJMP CALCU
! D# E9 h; q) q0 k                C2:        JNB P3.5,C38 Z) ~- u3 j& _6 {/ G% K  o9 N
                             MOV ROW,#01H
8 U) O+ s8 j9 H5 H                             LJMP CALCU; y( Q9 m  U. t" a7 W+ G
                C3:        JNB P3.6,C1
3 Y3 ~" m& n$ N. D/ T                             MOV ROW,#02H% q2 B( q: U/ O! j. k
                CALCU: MOV A,LINE: T: z+ a( m, x; k) ?& s# X# \* C: i
                             MOV B,#03H
- E/ e: b  V+ y: M3 I                             MUL AB" x' j$ l- r6 a; H6 X
                             ADD A,ROW
* ^$ `: P$ }5 x& \0 ?, a                             MOV VAL,A
; w3 |% j! z& B( v                CJNE A,#0AH,J1& @, c  \0 a- r6 ^- s% Q
                     MOV R1,KEY_CNT" O/ t  M( F. ]* F2 ^
                CJNE R1,#00H,J2" ~$ s, i. e& J( L) a0 o4 [
                LCALL ALARM_1
  p/ b! a& h2 }* e7 w0 x                LJMP START" [$ c0 p# q% o* j- X4 G$ @, E

# Z" Q0 X+ Q! `: z
$ Q+ d: Z% N% L$ }$ V6 o8 j2 Y( ^$ q- `6 B! B
J2:          DEC KEY_CNT5 ?$ Y* V4 L* a& H* r$ d' ^
1 P/ |; X+ m; `* J' l% `' D
      LCALL SHIFTL2+ q; {1 p# K( u2 m; D1 J/ ^/ V
" j+ z4 N% {, @' S

) x" o/ G  H- D, v: d% g* L8 O6 l( G* ]4 G

# H5 M. V. I% y& w& b  b8 i9 m$ E4 T7 o/ m: S

1 S6 d% z) J$ F  VW00: LCALL DISP
) Q) O) [; w$ w           MOV A,P32 b' q# c: Q% b( `  P1 {
           CJNE A,#0FH,W01
6 U- N) ^# N, w) y           LJMP A0
. L2 c+ e; k, S+ t8 c  UW01:   MOV A,P3; N0 U0 V* a+ d% t1 A
           CJNE A,#0F0H,W02! |% ^; Y3 d% i0 u$ D+ a
           LJMP A0
& _9 b8 `5 A5 r3 SW02:   SJMP W00
! Q1 k) e  E' bJ1:       MOV A,VAL' m8 u8 F6 f0 _! U9 l
           CJNE A,#0BH,J3% B$ W8 e& I7 R1 U, V
           MOV R1,KEY_CNT$ r' ^. g' C$ A- o
           CJNE R1,#06H,J41 }0 F( U2 k, `* M: ]% t) H
           MOV A,WORD_1$ a* n; y' P5 W
           CJNE A,3EH,J5. K+ C5 W2 R  v2 H
           MOV A,WORD_20 w: k/ ^. E% ^5 M
           CJNE A,3FH,J5- c, A$ I; {  O7 l" T4 R+ H/ W% A$ ?
           MOV A,WORD_3% _3 _! U/ u  m- j# c" ~/ H
           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,J51 Y4 A; |! Y  o2 K# p) [
           MOV A,WORD_52 \0 L, m; I* Y
           CJNE A,42H,J55 L7 m( o5 _, ]" V( Y
           MOV A,WORD_67 h% q# i3 ], v
           CJNE A,43H,J5" A4 S6 M* C- `. f+ \4 v& w0 k  T
           CLR P1.0
# w. t0 D3 G6 F  K           LCALL DLY_L$ P/ ^' k2 r3 ?# _9 Y, f
           LJMP FINI- s' h5 _0 I* Z( y5 g$ F6 g1 K/ {7 o
J5:       LCALL ALARM_2, S' o% H8 D8 y0 a" C: q" }
           LJMP START- s/ ]+ B4 ^' x' x
J4:       LCALL ALARM_1& g  P& Q; V( R  N# p* g9 l
           LJMP START9 P4 W! T& [/ z
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# |# d/ |. z$ G  M! Z6 w  M5 [) I
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 START8 L" ]5 c5 x" ~- V
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( X) z# `& _3 H* D6 [
W12:   SJMP W10
( x$ e& l# ?: F1 d( N2 A           LJMP START
+ U7 g* m$ s- W5 c; o( o* a5 D           LJMP START) q+ S, O0 ~0 s" R0 G! |
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+ [+ ^7 S  X* Q
W21:   MOV A,P3! o+ @. v3 P2 l3 _6 h$ n% _* R0 d
           CJNE A,#0F0H,W22: u4 \/ `8 K! W7 |' M7 j) I
           LJMP A0
/ c6 z; Y3 C) e; v* ]# l8 uW22:   SJMP W20
1 E% m0 j" J$ N( Q( J2 e           LJMP A08 Y0 `0 D; z" i2 {) k
ALARM_1:SETB TR05 s0 U4 w! e) T5 W+ R, B1 s
                 JB TR0,$
3 E2 u# J0 |! t" T) _                 RET
7 p& E! c! B" Z$ J* dALARM_2: SETB TR06 E8 Q5 V0 y* {0 y: S6 l
         JB TR0,$
4 U& `+ |- y) V5 r  H         LCALL DLY_L
; g& d3 g1 R3 d' ~: b* @9 v  RET, n1 U$ f; n! C. M/ ~% @( Y

/ M) _; M5 o; _2 aINT_T0:CPL P1.76 r% }1 S5 \9 c: @! h$ c
MOV TH0,#100, e- I/ z6 |0 E) s8 d9 d
MOV TL0,#253
( l: K' r! W: W* R; H+ N% i; U# mINC CNT_A0 l, u  @" z8 J2 d% j8 \( q
MOV R1,CNT_A
/ c  o7 W" \& B5 e/ hCJNE R1,#30,RETUNE& T4 U2 }  |9 J* g
MOV CNT_A,#00H
2 A% }4 ~( {8 C5 HINC CNT_B8 O* d+ l$ V4 e' h, `. ~4 z2 J
MOV R1,CNT_B
: E; @; x# z$ W: f- d4 o. y8 YCJNE R1,#20,RETUNE' q/ O/ A8 x4 ?: M" f+ s, f% g
MOV CNT_A,#00H; E1 I0 F0 [' @' b4 ]
MOV CNT_B,#00H; [; w' L. ?5 L2 D" g- B! q
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. P( v% [: P& w3 m7 y
        MOV LED_BIT_5,LED_BIT_4
  C/ K+ N$ R) q3 ^( y        MOV LED_BIT_4,LED_BIT_3! {- v" B9 k: X' o
                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& t$ X. l7 Q& e1 C9 ]5 q
        MOV KEY_6,KEY_5: A  P  v8 ^! Q6 X
        MOV KEY_5,KEY_46 D- j, I& Z1 s( _4 l
        MOV KEY_4,KEY_3
3 T* ?1 D( x+ e. g5 p3 S        MOV KEY_3,KEY_2& P1 N) k- w2 `  W# x
        MOV KEY_2,KEY_16 }1 f5 v. {4 q0 c
        MOV KEY_1,VAL. a5 \4 z6 n  m8 P* G2 V
RET. i6 c4 G4 m4 @* W& g* |  E5 w

" 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- S' J' `% h2 ^+ Z
        SHIFTL2:
$ u+ O) e7 J; ^8 f2 K& n  ?
2 n, \% {# I; C/ Y                MOV LED_BIT_1,LED_BIT_2, {4 v/ n  W  l+ O/ N
                MOV LED_BIT_2,LED_BIT_36 v% _7 [" p8 z( G. k. D
                MOV LED_BIT_3,LED_BIT_4, x4 `! ^- f5 {$ F+ [# A
                MOV LED_BIT_4,LED_BIT_5' c+ `( {7 W: q
                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% i2 m3 b* S' _8 I
                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. M& g$ W  t- K4 b9 \( A
- W! z. b  F$ h7 T6 P; ?
        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: ~" {! I; o6 M* x
     LCALL DLY_S4 w$ f( H9 J) F/ B+ _9 |$ x
     SETB P2.73 T' \" ~- p' y+ p- k/ Y
     CLR P2.6
! Z" n. O. s9 j8 |; y     MOV P0,LED_BIT_7, E0 V: c* \  l3 ^: g
     LCALL DLY_S
& g: _$ v5 c  Z0 j     SETB P2.6. T  {6 Y3 ?* q* b! R
     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; Y" C% \1 ^/ f7 Z# Y
     CLR P2.4
$ @! a) p& d; M8 c" k     MOV P0,LED_BIT_5' Y0 M/ T6 B. F
     LCALL DLY_S
5 W$ N3 t6 n- z     SETB P2.4* L1 ^! i1 R+ i& j% B$ p
     CLR P2.3
8 I- V3 q9 t5 }- |8 Y, _3 W     MOV P0,LED_BIT_4# W2 N; M5 O/ U' ^
     LCALL DLY_S3 e/ n7 P" F! ^' r
     SETB P2.3( L% m0 z6 r2 f
     CLR P2.2
. J5 `, d$ c$ L     MOV P0,LED_BIT_30 k* }+ T' ?; \+ O, _- B$ S
     LCALL DLY_S
  N2 Y8 a+ M) L8 L% s' b$ N; q     SETB P2.28 _6 o: ~* D7 y
     CLR P2.1, y: r/ r$ A( m0 r/ ?5 Q1 F
     MOV P0,LED_BIT_2; x1 [- s. i- V) `
     LCALL DLY_S* @( [( k' m! ^7 w" W& [
     SETB P2.1/ h) Y: v6 q7 A9 O6 k) P  S2 C/ G
     CLR P2.00 l. y* C4 J/ a# c- o+ m2 H
     MOV P0,LED_BIT_1% s+ f6 Y" |) q: e
     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,$4 G7 |& S% K5 a: Q" h6 u+ n
        DJNZ R6,D1
9 Q3 V: o# L$ I9 u% H4 T
5 Y$ B6 i3 g& m" M9 m! [/ O; R  q) ?+ u! h. Z
…………限于本文篇幅 余下代码请从论坛下载附件…………
1 A# d9 |& o1 b( {" {4 H
游客,如果您要查看本帖隐藏内容请回复
# W6 L4 v+ k0 e4 i+ R% U
3 t) W1 p' h: k0 r& r0 T

该用户从未签到

2#
发表于 2018-11-29 10:07 | 只看该作者
学习中 谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-10-26 14:27 , Processed in 0.140625 second(s), 27 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表