|
|
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
|
|
/1 
发表于 2018-11-29 07:00
收藏
淘帖
支持！
反对！