|
|
EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
单片机密码锁proteus仿真和汇编语言源代码 数码管显示
6 E: a) j2 R+ |- V# u7 K4 E( K; \: O8 Y
单片机汇编语言源程序：
; I' j7 f2 k! Q) u1 I% l8 u LED_BIT_1 EQU 30H
6 X& O9 c* |& I7 A LED_BIT_2 EQU 31H
8 \( J/ a3 O6 x2 ? LED_BIT_3 EQU 32H
6 U$ _: r* _/ V4 z5 i LED_BIT_4 EQU 33H3 m5 q, d1 I- f: ]) }
LED_BIT_5 EQU 34H" U% v4 c! |4 s( p
LED_BIT_6 EQU 35H ?9 R( G/ b$ y$ R: k4 u$ I0 W
LED_BIT_7 EQU 36H+ w# o: Q& q: x& O' J
LED_BIT_8 EQU 37H7 I V Z& d8 y
WORD_1 EQU 38H7 f- {9 A" A( H2 \
WORD_2 EQU 39H
4 ~) {* u8 `0 }+ FWORD_3 EQU 3AH
1 V& \+ Q8 }7 y! g9 CWORD_4 EQU 3BH
0 Q( Z4 K. m* ]" G8 F2 RWORD_5 EQU 3CH6 Y* h2 I+ F: I2 @- [- k
WORD_6 EQU 3DH
5 u. _6 a+ y0 o: R" xKEY_1 EQU 3EH6 I7 q: ~ T$ y# l0 h
KEY_2 EQU 3FH( [9 m+ L* V# e- t
KEY_3 EQU 40H
+ j% m% {. j; N; i+ F! C; XKEY_4 EQU 41H% e; c0 Q! j& C' Y
KEY_5 EQU 42H3 E8 k- V- @- z
KEY_6 EQU 43H
( R: G& v/ Y$ X- X5 V/ oCNT_A EQU 44H
2 K( q( ]5 ` o' h! i( BCNT_B EQU 45H
5 c3 q# u. X: MKEY_CNT EQU 46H+ q* f* ^/ {3 `* s( _) W4 L6 e" s
LINE EQU 47H+ h9 L' }; u0 w. L: `, K, R
ROW EQU 48H9 `$ w( Y& E5 H6 r: B
VAL EQU 49H# j) F1 F$ D) s2 ?+ V% f2 }6 |
ORG 00H
9 L, h% V' B8 S+ k, f+ fSJMP START! q2 G2 g; D9 E: d7 e
ORG 0BH! C7 r' y4 [- f" ~- X8 u1 ^0 C
LJMP INT_T05 E: `4 r3 N3 Y- t' t* Z+ K
START: MOV CNT_A,#00H) F! e* Z' |. |
MOV CNT_B,#00H8 l/ X$ w0 i3 Q4 q3 I. h
MOV KEY_CNT,#00H
9 s! F9 t" A1 e% t [+ k! |* } MOV LINE,#00H6 H( I4 N# m7 M
MOV ROW,#00H
: _- Z: C2 k( h& H8 E MOV VAL,#00H
* J* f U- y7 x; b& |( \ SETB P1.0
7 X- y2 d1 A- s* |0 u MOV LED_BIT_1,#00H
# D& c5 W4 m0 U0 T$ P MOV LED_BIT_2,#00H
! w5 J- @! Q% N- {* t% p# y4 C% v+ V MOV LED_BIT_3,#00H' ]9 v7 ]* ]0 F* A
MOV LED_BIT_4,#00H% Y5 C3 N; p1 V I* D4 k( a0 ]* `
MOV LED_BIT_5,#00H
" W; f- W6 ~6 Z- E0 S: P. w$ h5 s MOV LED_BIT_6,#00H o1 e8 e$ U/ f& A4 y2 B+ J! {3 W
MOV LED_BIT_7,#79H0 Y7 m" j" o7 M
MOV LED_BIT_8,#73H
; m+ s3 N8 e8 z% M MOV KEY_1,#00H
6 e9 p. p0 l8 _! \ MOV KEY_2,#00H
8 j+ i* _! p- z7 u MOV KEY_3,#00H
2 z' D! z! I- { MOV KEY_4,#00H
1 w* P" [; U6 n) d3 _1 |0 k2 w MOV KEY_5,#00H
( g8 N. |) |7 V! y% P" v MOV KEY_6,#00H
: i( y3 r/ X( d$ Y6 x: F6 C( s MOV WORD_1,#6* y, q# p9 X, B
MOV WORD_2,#5* G- i& x& W4 G0 V1 u
MOV WORD_3,#4* v e# M- X- N* \8 }# Q
MOV WORD_4,#3' W1 i ]9 H1 X$ a* t3 o' o( X
MOV WORD_5,#2
$ n: J o( Q" |9 d# a- A0 n n MOV WORD_6,#1- p: E6 K( ~0 w
MOV TMOD,#01H
8 X4 f7 S+ l0 D. Q5 `7 O MOV TH0,#(65536-700)/256; M6 ^: C6 s, K# J; S5 Z
MOV TL0,#(65536-700)/256
+ }2 Z, K# H/ Y* O; g+ O6 s5 A# n MOV IE,#82H
& I; | a. h. x0 L6 j0 lA0: LCALL DISP
+ \# G# j3 m# u
3 b/ d: ^2 a. x1 k" P0 z* m# v' V4 k2 |' @! F! r
LSCAN: MOV P3,#0F0H) N' [5 Z: ]( D+ U; g
L1: JNB P3.0,L2/ W- L" L T* `
LCALL DLY_S
" N. N% ~/ z: X/ C JNB P3.0,L2' D V2 {- i0 r8 I9 A2 y
MOV LINE,#00H
' R8 Y5 R6 p( v4 K LJMP RSCAN- N% g. A/ R Q$ L2 m/ U0 u
L2: JNB P3.1,L3
9 H. }: _$ ^ m% k9 U LCALL DLY_S
0 n% `& P& S- u+ Q; Y! x0 C9 n JNB P3.1,L33 _- u! d y) r! E
MOV LINE,#01H! f: ^& t5 [8 ^2 d$ U
LJMP RSCAN
# q! n3 H) v$ T, PL3: JNB P3.2,L4
+ u' F1 L* t- m( D z3 g1 d5 F LCALL DLY_S
' t$ n; ?9 y5 C8 e6 j4 m JNB P3.2,L4, T( Q _( W7 K
MOV LINE,#02H
2 s$ [7 Y: \( Y$ {9 Q; b LJMP RSCAN( e- B) H& I) m$ ?# S( e1 f
L4: JNB P3.3,A0
( r: D9 X# P& X3 d! _7 U0 o LCALL DLY_S% g: G# W3 _+ U, A9 D
JNB P3.3,A0
. S9 H# |/ C# S4 D% L( c MOV LINE,#03H
C$ h- s7 A2 k8 `% N2 i6 O
; F7 b1 Z" ^2 ^8 m1 F$ b( H: p4 O& Y% y) R1 [3 R
RSCAN: MOV P3,#0FH
( N; b; |! r1 y0 Q' `0 q9 h C1: JNB P3.4,C2
. h; _$ `. ]$ `8 h" F4 C MOV ROW,#00H; O8 j2 k, @1 P- o. R
LJMP CALCU
4 D, } s) m# `3 z C2: JNB P3.5,C3* E9 i0 J/ o- v2 g' u' ]
MOV ROW,#01H
3 c8 K( G7 L2 r1 C; ] LJMP CALCU; Q+ O$ F6 v, D, r
C3: JNB P3.6,C1
& ~+ \( o7 |+ V5 j: c; j; a: E- c MOV ROW,#02H
, O5 U: T) }* U$ ^9 J c: m( T) K! r CALCU: MOV A,LINE
% u0 F! {) y% [: m& z1 T' e MOV B,#03H; a7 m1 D3 G9 ]- [" K
MUL AB
7 p& \1 r) u7 F& h, W& z0 m ADD A,ROW$ o& D4 ^9 y! x8 ]% ]3 z- [
MOV VAL,A% {9 m+ m5 X) E; f5 x2 r
CJNE A,#0AH,J18 T3 v" f5 ^+ [( z3 f
MOV R1,KEY_CNT
0 q' ^7 k) |+ S; N" \* W+ T CJNE R1,#00H,J21 D$ y0 |" n h: g
LCALL ALARM_1
/ }" ^ S D9 o( \6 ` LJMP START0 \5 u) o% t$ P7 J
1 @4 x9 o1 L. P( d
, E) l6 w" {: Y( L6 o3 A, Z
% J5 o i4 u: ?# V
J2: DEC KEY_CNT2 Z/ Z" W; b( U, s* g
+ a Z0 u! K% q7 s2 u7 E( Y
LCALL SHIFTL2
+ `/ U" |) ~) [8 P
$ b! m J. N( L$ }8 Y# S: N# j! ^
) c; A( o, W* v% Z. k5 e
( q8 X( ^ m' n$ Y7 g' t; j; k5 r& h. o7 m
* A) W( K+ n6 x/ Y8 ]9 t' b" x
W00: LCALL DISP7 a' o" G2 @" ^! F4 g G+ d7 v
MOV A,P3
2 ?( H6 R, S: l8 s CJNE A,#0FH,W01" C# U+ A3 c: I
LJMP A0
, Y( J1 a7 U F( j/ n& d" OW01: MOV A,P3
1 c- z8 u+ N8 c( ~- g% r CJNE A,#0F0H,W022 Y/ }) n( u K2 B: I
LJMP A0% Q! o6 N. o8 d: P* H
W02: SJMP W00
}4 e+ ^2 H8 M C) _J1: MOV A,VAL
8 e5 L6 W, ~, G1 s5 i, _ CJNE A,#0BH,J3/ n7 I% K2 T: N0 e- |; J
MOV R1,KEY_CNT
& P0 {) [* Q6 D' s; H% x5 a CJNE R1,#06H,J4* t/ S% u" Q8 O/ Y
MOV A,WORD_15 y% E* G( g0 q. T+ L" K
CJNE A,3EH,J5) f' p0 N/ ~1 ~& J
MOV A,WORD_2! K' t0 z0 ?1 r
CJNE A,3FH,J5
/ H# p) }( a3 B MOV A,WORD_3
+ ]" O0 v/ ~' r3 y _! J5 X0 d6 N CJNE A,40H,J5
+ N' T7 o- u5 q! F MOV A,WORD_4
/ O2 W& v" X* s3 M& l% U& j( Q$ M6 A' { CJNE A,41H,J5+ M5 L: Z# q. L2 n3 H' X
MOV A,WORD_5
- C0 R" F3 q. t: R4 w4 c6 v CJNE A,42H,J5
' Q+ ^8 {: z7 L; y; _: w MOV A,WORD_6
8 v5 u. ?/ s c: |; A/ d CJNE A,43H,J57 x/ u6 A0 |+ g$ n) H8 ?
CLR P1.0/ x8 g- @, ~& J
LCALL DLY_L
' p) J) v2 `& c. `+ D4 m* z) a7 s, i LJMP FINI
+ k7 e+ Q, l Z6 `. ZJ5: LCALL ALARM_2
6 a6 n* V2 ]' r C# J- _1 v9 l LJMP START# `3 C% l- k I4 t4 w
J4: LCALL ALARM_1& Z6 I2 Q: j" d8 y5 M+ @
LJMP START
) Z% ?( P& a$ {. s# Y9 yJ3: INC KEY_CNT4 d% l3 l) j. H+ q/ `- U
MOV A,KEY_CNT
, n" i: ]& n4 b5 ^1 _$ n0 p CJNE A,#07H,K1" Y) O7 e& B2 [0 e5 h) h
LCALL ALARM_1) G5 Y ^/ k/ s M2 Q2 Y
W10: LCALL DISP
# F& b& r' F$ ~0 z/ N MOV A,P30 H3 I& @8 k$ C" i
CJNE A,#0FH,W11% D2 Y# F8 C4 i
LJMP START
$ y! q4 w' ` S8 @W11: MOV A,P3
* E# P* L% m7 V" x& Y+ L CJNE A,#0F0H,W12: Y/ Y5 x* b4 |; l( T
LJMP START
" S3 \) N% j2 U: p! I+ R" x7 u) PW12: SJMP W10- w5 l$ P. B( s- P' z/ a
LJMP START9 H, ~' ]- U4 @ K
LJMP START- j2 T7 g+ C/ v) Z, x
K1: LCALL SHIFTL5 l/ N/ Y6 w/ w. I7 d$ N* N3 w$ J
W20: LCALL DISP# X: r5 U+ o0 B
MOV A,P3
6 `3 H8 F0 U! g+ i: i" p CJNE A,#0FH,W21( `- G" D" t' A8 M# J
LJMP A0
( E* O) r2 I, C7 m8 m$ G! }W21: MOV A,P3
1 W0 i# ^! _- q' F5 J( } CJNE A,#0F0H,W22
2 s. x7 Y, F$ d& ~, _3 l LJMP A0
9 v, w3 w- o, @9 R GW22: SJMP W20
2 _9 A( Z& L9 G. z1 z$ I LJMP A0- ~1 R, c. C* {- Y3 W
ALARM_1:SETB TR0+ v7 ~+ |6 b+ G+ R+ |7 [. e4 t
JB TR0,$
+ G0 ]' t8 ]3 P RET% V) w3 x/ U7 ]0 d* N
ALARM_2: SETB TR0
6 ?* r: H( t4 c* E/ n JB TR0,$
3 p6 \* c, e8 M3 ?; e1 S, | LCALL DLY_L; ^: ?" i/ u7 W1 t: a
RET: o6 g( a; }( V4 t" H) v
; B1 Q1 k" G) tINT_T0:CPL P1.76 F" w7 P( j4 o
MOV TH0,#100" Z" q* n% G1 g) b; q# ?, w3 s7 a
MOV TL0,#253
. ?( X9 t. f" e; o) T) d, nINC CNT_A
: K# z! J4 J1 K5 T# ?. wMOV R1,CNT_A; V* |$ i. h0 k% A4 e: E, B
CJNE R1,#30,RETUNE
8 q- n+ _5 O/ `& rMOV CNT_A,#00H
" u4 v! S7 K4 R/ Q) b2 BINC CNT_B# Y* ^( `( s/ R1 N4 l- e" \ j8 P+ v7 R
MOV R1,CNT_B+ x& e+ Q* G0 M) p$ T
CJNE R1,#20,RETUNE
: j% V4 t [8 ]8 yMOV CNT_A,#00H
; x# Y7 B6 g; P" F1 U8 a0 {7 AMOV CNT_B,#00H
6 |; p. J2 ~6 m( s& G- b' D! {0 M6 e UCLR TR0; u% y! W- U! f5 T3 {/ @
RETUNE:RETI/ W* Y$ v+ Y" F4 ^0 y
# S9 a8 t0 H* o4 s$ C
: Q& @% v7 r5 e+ e0 j7 nSHIFTL: MOV LED_BIT_6,LED_BIT_54 M; a7 m: G( r( b2 l9 O6 v- N
MOV LED_BIT_5,LED_BIT_46 a4 o( ^/ _, c7 @
MOV LED_BIT_4,LED_BIT_3
2 i3 f( i/ i6 l) K6 y MOV LED_BIT_3,LED_BIT_2
5 t) G& L' c% s9 Z5 `4 T3 n8 M MOV LED_BIT_2,LED_BIT_13 L2 K; x' ? i( E9 d* v- o
MOV LED_BIT_1,#40H) @, p# t% K& X3 d6 Z8 P
MOV KEY_6,KEY_5
/ N8 I7 u6 s- O) y3 Y' H MOV KEY_5,KEY_4
8 n3 E# y4 ^% R+ Q" B MOV KEY_4,KEY_3
, |1 N8 w; Y1 K. |3 J MOV KEY_3,KEY_2* R, ]* K( |$ d
MOV KEY_2,KEY_1. R# H7 d# g. ^( a
MOV KEY_1,VAL. X9 {$ z9 j, l6 _5 c$ ]* v
RET. z( n* [/ e( M7 i+ {
4 x6 W8 H2 i; f/ w
/ u( D2 b* c7 c8 E& }8 |4 u l5 q
2 n1 m1 h* M- Z2 f. f* w, f- G) x: J/ [5 }) c& y: v
SHIFTL2:5 @ k, a5 t. J) V$ |0 e' K
d+ v) p& C4 v MOV LED_BIT_1,LED_BIT_2& O. _3 ~ e3 Q' }
MOV LED_BIT_2,LED_BIT_3( V( D2 Z$ @0 h, O6 }
MOV LED_BIT_3,LED_BIT_4
1 v' Y0 x5 S" C" Z MOV LED_BIT_4,LED_BIT_55 f: k, A$ \7 c/ Y- W
MOV LED_BIT_5,LED_BIT_6
( X, b! y, u4 i8 b! f4 d' g MOV LED_BIT_6,#00H
6 U! o0 N& Q0 `% W8 { MOV KEY_1,KEY_2: ]3 h* N. ^# t
MOV KEY_2,KEY_3$ G {2 X7 i* m8 t' p
MOV KEY_3,KEY_43 v: p4 m7 [9 B* Q- [/ p; `6 P
MOV KEY_4,KEY_52 o& p) y" A! h' M$ R y& N
MOV KEY_5,KEY_6. h& E+ \4 F4 x) |0 c
MOV KEY_6,#00H$ T, O6 L7 G7 h, |- _: c
$ S( K; Q) U2 w8 l' P z
RET+ R9 ]0 \( W% f5 ]3 D5 l" W
! q5 E# R/ M# r% s4 A- j$ \; ]1 g4 W
DISP:CLR P2.79 e4 h, v# w8 Q
MOV P0,LED_BIT_8
" [$ i$ |7 F" N0 C( O LCALL DLY_S! `% S, f+ R; r; o
SETB P2.7
( B% Z% {+ |, ]7 g( { CLR P2.6
6 N' ~# L7 W: n V MOV P0,LED_BIT_7
9 K, X. Q) _+ m/ R LCALL DLY_S, U2 {1 j& p c9 c: Q9 D4 ]: z
SETB P2.6
! ?3 K @, t1 m5 t2 N+ U* F2 @% D8 i$ c CLR P2.5
1 u5 `! T0 l$ v; j MOV P0,LED_BIT_6! a* p1 H: z* n! d& p' V
LCALL DLY_S
8 @3 Q2 L9 c$ Y: g SETB P2.5
' N$ ?; D7 F$ T# v& v CLR P2.48 p, W! f, P$ o9 P
MOV P0,LED_BIT_5
8 I5 ?1 t* S1 U# V LCALL DLY_S8 B# a- A; y5 u* q8 {0 [1 `& e
SETB P2.4: M8 |( | P/ C) N& ~6 [
CLR P2.3
0 ^, q2 b' |# E1 r MOV P0,LED_BIT_42 f% x" z d9 Q. e6 z L
LCALL DLY_S1 ^6 S1 n9 U' |! p
SETB P2.3/ Y3 W0 x: n8 v. [, x8 u
CLR P2.2
4 W* [2 Z/ I4 k2 A MOV P0,LED_BIT_3' w8 \! b( W% ^) N
LCALL DLY_S7 u& |: }5 H( F. |# S* Z- L
SETB P2.2
# @. b, {1 x1 l4 h CLR P2.1
' G" H) @! v+ {( b2 l4 t* \: S$ T MOV P0,LED_BIT_2
X# M+ _; t! _ { LCALL DLY_S" H8 @2 P8 M* B' w( m( y Z6 E
SETB P2.1
, y% f& M8 a# N/ z$ H CLR P2.0
5 _) Z: Y; o/ U" z) w' w MOV P0,LED_BIT_1
4 F/ t2 B* h/ y% Y7 s; R LCALL DLY_S
; H! x" z* U7 [8 V- k) z SETB P2.0
6 u7 b1 a% K; K( ~$ z" ~6 g RET/ N4 q3 z6 o* q2 ~: A
DLY_S:MOV R6,#10
- l2 q. h% b! ~) @ D1:MOV R7,#250) E; U; N7 `# V
DJNZ R7,$
1 _4 _' Z) v8 I+ A0 ? DJNZ R6,D1) P# u0 Y. H/ R0 o
' k! ~1 a* `! R7 X; v
4 f5 o! Q7 D: w/ g z$ N…………限于本文篇幅 余下代码请从论坛下载附件…………
J) R) w; ]' d5 c* E8 L& j" E6 ^8 i& e# I
) V Z9 d2 z; v$ M$ e; F0 F/ F3 ?' j |
|
/1 
发表于 2018-11-29 07:00
收藏
淘帖
支持！
反对！