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

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

[复制链接]

该用户从未签到

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

EDA365欢迎您登录!

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

x
单片机密码锁proteus仿真和汇编语言源代码 数码管显示
2 a% k. X) }; n& A) v) F" m3 s! C" }/ b4 O6 u/ O  M) R0 a, x
单片机汇编语言源程序:
" Y0 V6 e9 u( S, |4 O5 y        LED_BIT_1 EQU 30H) Y) T5 K. t0 Q1 ]# M1 P
        LED_BIT_2 EQU 31H
  a0 w2 D3 ~, z5 }        LED_BIT_3 EQU 32H0 C1 K5 Z+ ]) d* A  g
        LED_BIT_4 EQU 33H
% w! ^, X+ J, e        LED_BIT_5 EQU 34H+ }$ Q  z. m9 Q  O4 p: _* T
        LED_BIT_6 EQU 35H
- R" m3 R: {% ]$ B) s        LED_BIT_7 EQU 36H
6 b1 S/ f# N8 a        LED_BIT_8 EQU 37H
4 \( r: U/ m( S0 s3 TWORD_1 EQU 38H, R- z1 Q: F( s. U
WORD_2 EQU 39H
% E' I+ I2 W/ o% WWORD_3 EQU 3AH. f7 `$ I5 ^' s' I% D9 ~
WORD_4 EQU 3BH1 S8 p* e' V9 u7 y, K( \" w' d
WORD_5 EQU 3CH
' J) ^  {1 o2 `6 t3 j/ kWORD_6 EQU 3DH8 U; Y! l# d* q/ a' G2 S' U4 J
KEY_1 EQU 3EH
0 E$ E7 K6 R0 E4 nKEY_2 EQU 3FH
, ~1 \( F' |6 @KEY_3 EQU 40H
- e8 p  i) X; a3 RKEY_4 EQU 41H) \1 J/ U) M: T* i( ~3 e% b
KEY_5 EQU 42H
0 W4 i( c2 _7 x5 |KEY_6 EQU 43H
* F  g3 }  @) D; MCNT_A EQU 44H$ k4 g+ O1 _0 H* C: a
CNT_B EQU 45H
2 `1 u% e0 a' u9 x. e4 t7 J9 A, j. O9 bKEY_CNT EQU 46H
' `! R5 k0 x! ^7 [' p% a% ?' aLINE EQU 47H+ o2 V9 U+ d$ N# V( v
ROW EQU 48H. o9 a5 F! _  C% ]8 r2 _
VAL EQU 49H
+ X8 b$ Y/ j1 v$ b& W9 iORG 00H
/ s% J. y3 ^) i/ R: [) |6 ]* tSJMP START5 r8 e% N' Q7 i7 X5 K. ?# k- ?8 K/ t
ORG 0BH
; Z9 r7 a- F8 K4 `5 \LJMP INT_T02 F6 J% ~2 a/ f
START: MOV CNT_A,#00H
& ]( [8 U# [  @& o; d            MOV CNT_B,#00H
% f+ L- o( X# p/ D            MOV KEY_CNT,#00H
: ~) Z" W$ q% ]2 Y0 F/ Z* i- e            MOV LINE,#00H% A" w) Z% E( [
            MOV ROW,#00H  E/ X* c4 Z& P' w
            MOV VAL,#00H3 G2 ^( n- s8 f  C' `3 c
            SETB P1.0
, F( y* R$ h6 L& X            MOV LED_BIT_1,#00H) a4 f) d1 K* C5 h
            MOV LED_BIT_2,#00H
# Q) z2 m# ^% b& w$ S            MOV LED_BIT_3,#00H
3 A  E: B8 a3 ?8 {# i& s9 ]            MOV LED_BIT_4,#00H8 s; w! E. e- t4 Q% ^
            MOV LED_BIT_5,#00H
9 E# }/ v  L- A+ m            MOV LED_BIT_6,#00H1 K% Y/ K) b+ H
            MOV LED_BIT_7,#79H0 e1 l( |+ o0 V: f7 y. ^
            MOV LED_BIT_8,#73H
' g* M& T$ C7 y            MOV KEY_1,#00H
! N# d0 j4 ]4 d            MOV KEY_2,#00H
/ m1 X& H# i  w( u5 ^6 m: p            MOV KEY_3,#00H! r( U( ?! j+ {6 F4 E2 D/ M, k
            MOV KEY_4,#00H. c, G( {. d7 _6 L; T5 w
            MOV KEY_5,#00H4 z- `7 D1 X, b
            MOV KEY_6,#00H4 |2 C* x7 y: @* ^9 z3 ]
            MOV WORD_1,#6( p2 I) A3 Y# `- p
            MOV WORD_2,#5
( ?% V2 v2 X6 k6 K            MOV WORD_3,#4
: s& G# {5 z1 G            MOV WORD_4,#3
( s& e: C. X; I( t/ N            MOV WORD_5,#2
$ `4 s5 s- ~2 w/ H  u- y            MOV WORD_6,#1- r* E7 H% f% U' ~. G2 ]
            MOV TMOD,#01H
4 W$ K( z" L) x" R) J& r1 C            MOV TH0,#(65536-700)/256+ r' ?$ m8 x1 K, y9 q+ k
            MOV TL0,#(65536-700)/256
! m( ?" u3 C. J, v. a5 O            MOV IE,#82H
" B! S4 e* r3 j* u, L6 k2 P' RA0:       LCALL DISP
$ c1 y5 z0 ]7 L& X9 H  t( O: k. U  H: j

" r5 O9 S6 L2 ?, ]9 dLSCAN: MOV P3,#0F0H; B. y3 d2 a/ L" G
L1:          JNB P3.0,L2
, W- B5 Z6 C, R) g             LCALL DLY_S
' i' Y6 l$ O+ T8 s/ p             JNB P3.0,L2: V% o8 ^6 w& r# B
             MOV LINE,#00H
- ]$ M: V# \  w$ J6 E+ ^8 w6 L$ o             LJMP RSCAN6 g4 j' f# m/ Y0 z
L2:        JNB P3.1,L3
6 ~. s7 H) m: a) D; e4 W, d7 k             LCALL DLY_S& w# v! n, h; L: u# X/ L0 u
             JNB P3.1,L3
& l" E+ @* o3 m1 t3 |+ @             MOV LINE,#01H- v1 ?. Q: n; b  B
             LJMP RSCAN
& X- t: U$ Y; n4 ?2 O! ~" l3 VL3:        JNB P3.2,L4
- _: Z$ P. v1 o  U             LCALL DLY_S1 u$ p- k* z# d( H* e6 Y0 c, X
             JNB P3.2,L4
7 g# B& H3 C  `# P             MOV LINE,#02H2 K0 }# c! R5 z1 v
             LJMP RSCAN
* a2 B4 K7 h1 @7 k+ u! `L4:        JNB P3.3,A0
8 p% T3 s: n/ C0 z! D/ V) Z             LCALL DLY_S# [1 D, ]9 d  K
             JNB P3.3,A0! x- v) C$ k  A
             MOV LINE,#03H
! m; @: Q2 X- n  s* s! u+ T& I8 I' [7 m5 W5 ?
4 r5 |! A& L4 b& v7 k% _
                RSCAN: MOV P3,#0FH
: O5 e1 Q* |& w  N# J- j$ B: u$ F                C1:         JNB P3.4,C2; p3 X' r1 n' c% v
                             MOV ROW,#00H
* R6 A% v) D2 N3 M4 g% u                             LJMP CALCU, |1 [( }6 K) z; L2 I
                C2:        JNB P3.5,C3
$ w6 C: C0 X' K. u  P                             MOV ROW,#01H$ f+ w) `" R7 C' G3 p% ^
                             LJMP CALCU1 z& N9 b$ j9 }; f+ V
                C3:        JNB P3.6,C1- V7 y: |/ x1 @! `, k7 U6 b
                             MOV ROW,#02H
* @6 g  a! b+ W7 N" \" b# i                CALCU: MOV A,LINE. k( o0 a) J( L2 _% I
                             MOV B,#03H
" d9 D; \9 r. b+ |; M                             MUL AB# y4 S, p7 D* }) d, b( ~8 r% t0 w9 P
                             ADD A,ROW- j7 J5 B8 ]  V" I5 P0 M
                             MOV VAL,A
4 J# u" r, U8 [7 X9 z% _$ M/ e                CJNE A,#0AH,J1
1 ]7 `1 W* N3 x1 Y/ L  y' n                     MOV R1,KEY_CNT
5 f0 h/ @- I# q9 w# }/ i                CJNE R1,#00H,J2! k! c1 ?. E  M% J1 q) Q0 D( J" B1 T, y
                LCALL ALARM_1
4 f7 w+ S- A/ a  ~6 P  ~                LJMP START
* H6 s7 {" `+ U7 f6 }' d5 `+ w, i8 k: i& K9 U  c

/ [1 I8 K* [8 ^* L. h/ d3 A# F9 o
1 M/ S" Y+ G0 a* T9 H) X- U8 ~J2:          DEC KEY_CNT
: i- X) w. F' l3 o, b# e! J# \7 i
      LCALL SHIFTL2
! h1 g; J9 K- f9 t. S6 @6 \( f( j9 v7 ?
8 N, H7 g8 L* P# ^; F$ i2 K

) R9 Z8 G% Y+ ^: ]
- x9 ~$ [* e8 D6 ~: z! |
- P1 e$ c) P' x; e
- `% `/ _1 F- `0 vW00: LCALL DISP
/ s5 R4 L$ |/ w) R# o% s           MOV A,P3
( J4 s6 ~! a; X4 S$ S           CJNE A,#0FH,W01
5 c( i6 S6 G7 z' K# z" H           LJMP A0( @8 Q) i8 t: t9 i; D
W01:   MOV A,P3) u" d% O( I. |
           CJNE A,#0F0H,W02
2 U# K3 P" n# I  g+ d           LJMP A0
; E( a/ G( k( G: J* I! }' VW02:   SJMP W003 Q0 |( Z. W5 u9 T- q' X
J1:       MOV A,VAL
7 }/ {4 S. i, g' Z3 U9 ]           CJNE A,#0BH,J3
3 L, q0 f) o( r4 |$ m* ~( f0 K1 P% R           MOV R1,KEY_CNT( Z5 M, k+ C" ]# }% O' O# V+ Y
           CJNE R1,#06H,J4
8 a% Z1 S6 b6 W2 H           MOV A,WORD_1
5 _1 I& g( g9 l           CJNE A,3EH,J5
) k# P% t; e5 k# {9 C' K  }. j. h           MOV A,WORD_2
. V( A' {1 v8 P$ c* P; ~           CJNE A,3FH,J5
9 {' R' v- J( \0 j* S1 u           MOV A,WORD_3
7 a; e: n' H8 y4 C. D           CJNE A,40H,J5
/ H8 S* a1 W. v3 q# C$ q           MOV A,WORD_4; W4 F4 Q( T$ a6 t: B. t
           CJNE A,41H,J5
: I! |! w4 ^0 h; a           MOV A,WORD_5. C# p: f+ c8 Y& U; F* h$ Z9 l1 E  v
           CJNE A,42H,J5
8 k' F# ]: ~- J5 ?% b' K$ Z           MOV A,WORD_6
, i6 V5 @% [: k  ?2 Y2 m           CJNE A,43H,J50 c6 s, m8 _; X
           CLR P1.0
. `' H% v. b' I+ R: ~           LCALL DLY_L/ y" ]* P0 q* a( X3 i4 y! p
           LJMP FINI
# H. \& {8 n. F/ iJ5:       LCALL ALARM_2
6 q6 B: d3 X- V' p) A           LJMP START- l2 l# |5 o: `: ~. P
J4:       LCALL ALARM_1
9 q, E' x. e, D" \6 H$ ^2 C  x3 ^           LJMP START/ `$ i! G7 A& u; a1 ?' y" {. J
J3:       INC KEY_CNT
3 f* ?+ x* O. W) g           MOV A,KEY_CNT8 N' a- h( E) j
           CJNE A,#07H,K1
% @0 \' X1 R% c           LCALL ALARM_1" a6 J* `  u* a. B! ^1 p
W10:   LCALL DISP. G( G* s- o5 j* Y( \1 X
           MOV A,P3
& @2 ~8 [, @/ w; N2 @" V; B           CJNE A,#0FH,W11
2 |# z, N( j# N- I+ k/ u1 d: L           LJMP START6 r2 K, |# C1 Z4 Y
W11:   MOV A,P34 F! M3 n2 g- ?4 ^; F: E) Z7 V
           CJNE A,#0F0H,W12
! l* v0 |" k2 x( C1 I% @           LJMP START$ A2 ^( u3 ?  ?& z2 L8 x5 T
W12:   SJMP W109 W/ d$ M1 g9 c
           LJMP START7 E- V& c: Z3 g# f( ^& k
           LJMP START
% Q$ ~* P9 o8 q8 gK1:      LCALL SHIFTL
& x' ~% m3 e. q7 _: l' I3 E! |W20:   LCALL DISP
4 j2 }- H# H, Z7 y. q           MOV A,P3( D* n: L1 s+ a
           CJNE A,#0FH,W21! o, x4 s. ?+ C& B5 K0 x
           LJMP A0' j9 E) \5 T4 ^8 ?& v: H5 x
W21:   MOV A,P3$ c3 E0 F8 {) H/ R. H  |( X
           CJNE A,#0F0H,W22# [1 Z4 p, F5 I( w  M+ |3 H' i
           LJMP A0
4 W( u% K% M- l; c' n: ^! kW22:   SJMP W20( M4 S, p4 F- q6 x5 V6 @+ |
           LJMP A0
/ H4 C& n' y& l0 I: O5 zALARM_1:SETB TR0+ ^6 F) V7 \4 G$ _* ]' z9 e3 S  `
                 JB TR0,$
$ z7 h6 V$ }' e# Z' z! L                 RET) h" C# W0 n  v) w. w/ y5 K
ALARM_2: SETB TR0
5 F& m) E% B) V! ~         JB TR0,$
- |: @/ ?/ M5 a         LCALL DLY_L/ ^, {; z* q) W$ `0 U- N
  RET) n' N+ A7 C' I

) Y1 }8 h" y; G) C$ HINT_T0:CPL P1.7
( s# m0 P) N" f  n" RMOV TH0,#100! ^- R4 F9 t3 E/ Z- A8 R
MOV TL0,#253
% o; M  ]$ a4 a9 n3 Q, X3 M9 eINC CNT_A3 U8 {/ l; l$ A: ?2 [( r
MOV R1,CNT_A- s3 O+ ?' v1 I. o. w4 D
CJNE R1,#30,RETUNE
" Q- S. L2 O7 e% K: R  {1 V+ g3 qMOV CNT_A,#00H! F6 J7 K, q- A0 ^
INC CNT_B
/ Z- e3 i5 H2 k8 dMOV R1,CNT_B7 k+ o( P. L5 d' [  C' H6 X
CJNE R1,#20,RETUNE
+ ]) E0 \! A# G& S, L5 gMOV CNT_A,#00H* o2 R0 ?) j6 O
MOV CNT_B,#00H# T% a! S+ V1 f) W0 R9 \% R
CLR TR0! {/ i- y+ N) }8 a
RETUNE:RETI# p" J/ g4 P8 B# M! S; ^# r

- j/ x# h. r# D. b% p6 ~5 |) K. d3 h3 G* g- g9 H# z
SHIFTL: MOV LED_BIT_6,LED_BIT_5
, O! R. |( g3 M; E$ n; X1 T        MOV LED_BIT_5,LED_BIT_4
. D: M) M- g- ^( {, ~5 z. p  V        MOV LED_BIT_4,LED_BIT_3
% g, Z: }- O! |7 C5 J" U                MOV LED_BIT_3,LED_BIT_2
" _7 g$ X. X: X7 Q. H7 ^/ t        MOV LED_BIT_2,LED_BIT_1
6 A. `! F' e' a& i$ R4 o        MOV LED_BIT_1,#40H
" c7 j% `% Z1 o2 h" w        MOV KEY_6,KEY_5, @# W8 v' J0 ?! s
        MOV KEY_5,KEY_4* w; b7 O% \% F0 \) b
        MOV KEY_4,KEY_3
8 y* K. o  C% J+ {- S; [4 j        MOV KEY_3,KEY_2
$ \4 K. [9 U3 S' E        MOV KEY_2,KEY_1& A9 b9 }9 \( k% R2 ^) X
        MOV KEY_1,VAL' y9 V* Y/ K- C7 ?# q
RET9 K+ c; h, I- J! a$ N* i6 O4 {3 W

6 S2 n' g- J" ^; }( c4 C) b
) C9 g8 |$ e/ M9 q/ p4 z3 B. a$ r* `5 _5 F( M# g
6 [( M) o$ U- ?4 b7 P0 T, I0 y
        SHIFTL2:
7 Q3 Y6 D# l' n
9 c: Z$ ?- H; \/ a% d                MOV LED_BIT_1,LED_BIT_2: I0 p" t) q$ D' j! ^
                MOV LED_BIT_2,LED_BIT_3
. `# P+ D7 w$ F  m                MOV LED_BIT_3,LED_BIT_4) }( I. H  I" Y, t2 E
                MOV LED_BIT_4,LED_BIT_5  ?" Z4 e2 \5 Q5 J, q
                MOV LED_BIT_5,LED_BIT_6* i0 K+ \4 D, A" t& P
                MOV LED_BIT_6,#00H, h( c' c& D1 t- X$ b! ]
                MOV KEY_1,KEY_2
+ K+ m8 c& {% i8 @% \                MOV KEY_2,KEY_3
* p/ q% g( d- Z6 m! g) s                MOV KEY_3,KEY_4
" B* B/ X* v2 I' i( h                MOV KEY_4,KEY_5, M- F# K* h+ i
                MOV KEY_5,KEY_6
+ K/ z8 e  e; `' n* v  {                MOV KEY_6,#00H7 {: Y: b: R% G4 m8 }
& ?. j/ ]) Z  q" s- _& q5 j
        RET
, k7 [+ \1 J# S4 _7 q6 R4 _6 P. D! t1 v( j- q
: n6 n2 f7 c0 d6 ^8 _
DISP:CLR P2.7
/ n4 C/ L7 i9 K0 }, c     MOV P0,LED_BIT_8
& q9 f5 r# f3 r3 _; c5 K     LCALL DLY_S
' p# w% {9 k- ~0 ]4 n  }2 J) {     SETB P2.7* H* \2 H7 s8 @- B+ n' {
     CLR P2.6
; D( V1 I  v8 ^3 s: U     MOV P0,LED_BIT_7/ K  l- }7 H2 l* I1 G7 F8 N2 R
     LCALL DLY_S1 S7 O* m$ B) W. M* i
     SETB P2.6# P. z& _) R, }4 S
     CLR P2.56 W4 M( t* ^" N8 P+ B. j
     MOV P0,LED_BIT_6+ e# P( Y; P( ^/ X% ]9 i7 D
     LCALL DLY_S1 H) ]0 f4 W' v( s7 q( ?
     SETB P2.50 b3 y1 l6 v7 f/ Z4 O" i& y
     CLR P2.4
( `6 `3 Y8 `# M- L3 D, p4 f, h     MOV P0,LED_BIT_5
" b- c% g8 y6 f) C; F& v% k+ d     LCALL DLY_S+ n+ ~0 h* J6 ]
     SETB P2.4
# t6 _' ~6 ^& S% P5 c     CLR P2.3
9 K) ?+ w! P% f% P     MOV P0,LED_BIT_4
& ]" ]" W' ?. T" P     LCALL DLY_S
5 B1 S% o, C8 O# R& m     SETB P2.3" T. [, [5 z7 J$ ~1 g' j
     CLR P2.2
$ V) T) R' q9 E% W, m2 A# ^; @     MOV P0,LED_BIT_33 D' M/ j6 {: F$ M) j7 Y( A4 y% p- ~
     LCALL DLY_S! T* `. R9 w( P$ }) n
     SETB P2.2: i+ A  O9 Z; G9 V: Y  H
     CLR P2.11 ^0 v$ q4 j* y  T
     MOV P0,LED_BIT_2
& D( h$ H; u: F& c     LCALL DLY_S
1 |- s9 Q! U% Y( N4 P/ t. W     SETB P2.1
1 I- a1 A6 w4 ^3 @" p+ y     CLR P2.0/ _! p: R  H+ _! a
     MOV P0,LED_BIT_1
0 k+ e+ y9 V: Z" x     LCALL DLY_S$ V: O# [1 @. Y9 i( v
     SETB P2.0
% M% U6 t) h" S: P4 X8 ~7 z; F, l     RET; V" n4 A# \: ^, r
        DLY_S:MOV R6,#10* G1 s8 k3 D9 ?. H; B' {: w0 j
        D1:MOV R7,#250
. }8 R: [! F* W* X3 \9 S        DJNZ R7,$
2 f& d4 h4 [5 f: O4 E: Y/ c! m! P        DJNZ R6,D1, {7 c8 r5 n3 C, E

8 Q* _) D' O6 C4 F# d/ E* u* Q1 J8 y' }5 P
…………限于本文篇幅 余下代码请从论坛下载附件…………
  f! Y1 u' h/ o' p+ k0 R
游客,如果您要查看本帖隐藏内容请回复
) H1 e/ h3 d$ L% j- o* ]; R4 }
; M) l5 s8 l# a: W$ s) X; L

该用户从未签到

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

本版积分规则

关闭

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

EDA365公众号

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

GMT+8, 2025-7-11 00:28 , Processed in 0.140625 second(s), 26 queries , Gzip On.

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

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

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