心形多变流水灯光 带仿真与单片机汇编语言程序

Demyar

心形多变流水灯光 带仿真与单片机汇编语言程序


趁着假期自学了一下，用汇编做了个心形流水灯光（89c51单片机），希望前辈参考与指点指点，谢谢


7 S' w0 j% i! C7 M4 K0 [单片机汇编语言程序：
ORG 0000H
# m: w2 j. Z: dLJMP START
ORG 0100H
DELAY: MOV R4,#2
L3: MOV R2 ,#250
L1: MOV R3 ,#250
% \7 E9 O* }$ qL2: DJNZ R3 ,L2  
0 L1 c! H# V& e7 I  QDJNZ R2 ,L1
DJNZ R4 ,L3   
RET
2 B9 L( k: w" G% C% JSTART: MOV P0,#0FFH
, m9 V) J$ s8 H6 _, fMOV P2,#0FFH
" v9 Z2 l/ T( T- y; pMOV P3,#0FFH
FLOP: MOV P0,#11111110B
0 q9 f4 i# M6 R4 l. B# k1 rLCALL DELAY
MOV P0,#11111101B
LCALL DELAY
# e( u# v% _) D8 M! CMOV P0,#11111011B
* P! _/ A1 n2 ?! dLCALL DELAY
- k  B/ @' [5 k3 Y; b% u3 b& BMOV P0,#11110111B
LCALL DELAY
MOV P0,#11101111B
LCALL DELAY
MOV P0,#11011111B
LCALL DELAY
MOV P0,#10111111B
LCALL DELAY
MOV P0,#01111111B
! Y6 m# j) z8 S2 Z' g1 _, iLCALL DELAY
' z  z% D" I* F* D: R; iMOV P0,#11111111B
' u4 p) n8 Q$ O! t3 ?MOV P2,#11111110B
LCALL DELAY
MOV P2,#11111101B
LCALL DELAY
MOV P2,#11111011B
# a0 F: U$ r) @$ c" pLCALL DELAY
MOV P2,#11110111B
9 _/ }, z5 ]% bLCALL DELAY
MOV P2,#11101111B
5 |$ O$ B& x* }7 ?" t+ kLCALL DELAY
# A7 l% I9 h3 F0 P2 P7 ^$ j; G7 _: }MOV P2,#11011111B
8 x1 |, T; Z  t9 j5 D0 aLCALL DELAY
* y( B' v4 G. f2 ZMOV P2,#10111111B
0 G+ U, {5 j3 ]4 K9 N& XLCALL DELAY
0 w5 D2 E& u  \: pMOV P2,#01111111B
' A( B2 W6 w" p9 u/ y( Q8 t9 `LCALL DELAY
MOV P2,#11111111B
MOV P3,#11111110B
LCALL DELAY
MOV P3,#11111101B
3 t+ d! P- X& E0 C  fLCALL DELAY
MOV P3,#11111011B
2 R- F2 f2 l, i1 aLCALL DELAY
0 {* O/ m4 N- s; UMOV P3,#11110111B
LCALL DELAY
MOV P3,#11101111B
LCALL DELAY
* C# [" J* n& a; Y" LMOV P3,#11111111B
; V6 H+ N! K+ `- Q0 S* _3 B, BFLOP2:MOV P0,#00H
MOV P2,#00H
# O+ f" c3 P, N; ]' j- c0 jMOV P3,#00H
6 P, l  ^+ W6 G' C8 l( Y/ Y; |; X- pLCALL DELAY
MOV P0,#0FFH
& M2 B. z* d+ `6 n2 PMOV P2,#0FFH
: Q7 V. x2 D, m# g' r  x' aMOV P3,#0FFH
LCALL DELAY
MOV P0,#00H
MOV P2,#00H
8 O7 x5 K  J; q2 T3 {; b/ K# A. LMOV P3,#00H
LCALL DELAY
7 \- q# x. J; E& p- O# FMOV P0,#0FFH
8 u" k1 C7 D8 l" j5 E  HMOV P2,#0FFH
& t, [8 h6 y9 @3 R4 v, U9 t& kMOV P3,#0FFH
LCALL DELAY
! S% j0 q% D# g6 g/ `FLOP1:MOV P0,#00H
LCALL DELAY
LCALL DELAY
MOV P2,#00H
! K! m) |* I; l3 [$ A- [- eLCALL DELAY
0 i% G& w8 f% x: L2 U8 ^LCALL DELAY
: I8 j. d7 P& ?7 RMOV P3,#00H
LCALL DELAY
LCALL DELAY
MOV P0,#0FFH
) Z. _' A% O$ I2 tLCALL DELAY
LCALL DELAY
MOV P2,#0FFH
LCALL DELAY
LCALL DELAY
MOV P3,#0FFH
LCALL DELAY
" e7 S: @/ t; V' N8 L9 hLCALL DELAY
FLOP3:MOV P0,#11111110B
LCALL DELAY
- _  L/ @4 y2 l5 @MOV P0,#11111100B
+ O% }2 G2 s0 T+ d6 ?! b/ OLCALL DELAY
4 c6 b8 ?% ^+ M& }MOV P0,#11111000B
- `1 v; i! a, S& y: s  n6 dLCALL DELAY
MOV P0,#11110000B
" [: R2 Y: D6 i- d1 [/ vLCALL DELAY
  q- g5 q6 }2 H+ p' w( ~# hMOV P0,#11100000B
3 n; `% F3 T% n8 e) ZLCALL DELAY
+ D5 J9 ?7 T5 D# j8 e3 i: XMOV P0,#11000000B
LCALL DELAY
7 n- d# M  X1 G' f" D$ O; NMOV P0,#10000000B
LCALL DELAY
9 s+ F4 ?  p, V3 \) L3 X7 n. }MOV P0,#00H
3 e6 i. o9 f7 n; U5 G4 |LCALL DELAY
. a! H0 S& Y2 ?# W4 X: ^. dMOV P2,#11111110B
LCALL DELAY
MOV P2,#11111100B
+ @; L' y9 i; q: N; H$ k) hLCALL DELAY
MOV P2,#11111000B
LCALL DELAY
2 B: v+ x0 w. vMOV P2,#11110000B
7 V8 |2 N# }4 w$ e6 O  W( P* cLCALL DELAY
1 r9 y2 y3 j3 @5 b9 t4 |5 aMOV P2,#11100000B
LCALL DELAY
1 m2 W. n* d: tMOV P2,#11000000B
2 q1 |1 N- ~6 S( T0 U  sLCALL DELAY
MOV P2,#10000000B
LCALL DELAY
# o- _+ R& i5 ^MOV P2,#00H
" X% E8 e1 s& Z" a% Y- nLCALL DELAY
MOV P3,#11111110B
LCALL DELAY
MOV P3,#11111100B
8 A8 x5 Y: u1 F! E9 ?LCALL DELAY
5 S. J- K9 u( k! f8 z" I( `7 B5 EMOV P3,#11111000B
  ~. B' U& F4 hLCALL DELAY
& G* g2 {: W. ?! C& YMOV P3,#11110000B
: ~0 Z6 o, S9 k2 |9 BLCALL DELAY
2 g! k; b  i. Q2 i. E! M! d2 }9 i5 d5 }MOV P3,#11100000B
LCALL DELAY
$ [4 M& L6 f% xFLOP4:MOV P0,#00000011B
' o  K( @& k4 W. t8 t$ j# L4 u3 fLCALL DELAY
MOV P0,#00001111B
: U, R: D1 m5 n+ m+ [LCALL DELAY
% i! Z& [) ^; p( @& e3 k2 k  mMOV P0,#00111111B
LCALL DELAY
8 l) x" q  j  y5 iMOV P0,#11111111B
: v4 {. r2 I% }; ^+ c. e2 p" TLCALL DELAY
MOV P2,#00000011B
) g7 ~  ]; H7 v  c2 U8 ~LCALL DELAY
MOV P2,#00001111B
LCALL DELAY
& U3 u0 M, y8 D% _MOV P2,#00111111B
7 i3 ]' f. _; B. [5 l2 YLCALL DELAY
2 \; M2 G8 _0 C; S/ Q! kMOV P2,#11111111B
7 Y/ X: T) c7 H/ J- `LCALL DELAY
MOV P3,#00000011B
LCALL DELAY
MOV P3,#00001111B
9 H" m5 i) d, `4 \& J2 bLCALL DELAY
MOV P3,#00111111B
LCALL DELAY
LCALL DELAY
$ S- Q$ o7 \( s  h& h* ?% D4 vLJMP FLOP
END
7 |- {* R0 K$ y
2 s# X  e, f+ ?" F! F下载：
8 C2 l" q4 R) h/ W5 V

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

6 w, ]' p5 ?; Y9 c+ B2 Y# Z
# T  V$ `; _: J& e6 I& `

sunygd

不错，学习一下