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

Demyar

心形多变流水灯光 带仿真与单片机汇编语言程序
0 V1 t+ d. a6 j9 q& e/ X8 A
# z% ?% z4 G' H! r! T& Y
4 w9 @8 j3 d5 O趁着假期自学了一下，用汇编做了个心形流水灯光（89c51单片机），希望前辈参考与指点指点，谢谢

9 N! x8 r' M2 `3 g) p7 ?
  }6 V; V% L6 ]单片机汇编语言程序：
7 {% O4 ?" ~1 O) ~- F/ EORG 0000H
LJMP START
ORG 0100H
8 p" ]: e. m5 n( I" t* BDELAY: MOV R4,#2
L3: MOV R2 ,#250
L1: MOV R3 ,#250
$ S3 F4 X1 n6 IL2: DJNZ R3 ,L2  
DJNZ R2 ,L1
' D+ l  s1 L- S7 nDJNZ R4 ,L3   
RET
START: MOV P0,#0FFH
" B2 k! M3 u$ u3 e$ WMOV P2,#0FFH
% B2 w* k' D* u$ a& _# TMOV P3,#0FFH
: x7 n' V, t) w, F" \& w: WFLOP: MOV P0,#11111110B
" X/ b- X! S" G" Q% hLCALL DELAY
MOV P0,#11111101B
& k; p3 _8 P4 C+ l9 p* O& f7 zLCALL DELAY
MOV P0,#11111011B
' r# ?$ e2 }2 y! V! s" X/ jLCALL DELAY
8 R, u7 |/ J* P6 ~: k' Y4 t; h  oMOV P0,#11110111B
1 D, X, P9 r& `4 {LCALL DELAY
MOV P0,#11101111B
1 p2 w3 |* b) z$ V) iLCALL DELAY
( B, s- Z% ^& @( L( ^1 z8 oMOV P0,#11011111B
LCALL DELAY
! b& @. p7 x$ jMOV P0,#10111111B
LCALL DELAY
MOV P0,#01111111B
LCALL DELAY
: ?8 d2 T( y. K+ a' vMOV P0,#11111111B
MOV P2,#11111110B
LCALL DELAY
MOV P2,#11111101B
( |# ^; \5 S- n, bLCALL DELAY
MOV P2,#11111011B
" h. P, Y1 d5 \7 O2 z$ E! wLCALL DELAY
MOV P2,#11110111B
LCALL DELAY
MOV P2,#11101111B
8 y6 r8 Q% \6 i1 R# yLCALL DELAY
MOV P2,#11011111B
LCALL DELAY
MOV P2,#10111111B
' m$ D; ?. g; C1 m6 K% \; m+ R' qLCALL DELAY
MOV P2,#01111111B
LCALL DELAY
MOV P2,#11111111B
MOV P3,#11111110B
LCALL DELAY
$ x  d1 H3 S# F, _MOV P3,#11111101B
LCALL DELAY
, t% F' W: M' Q( G! HMOV P3,#11111011B
+ E4 K" a# T) G7 O; B0 ]% K9 @LCALL DELAY
2 T. P% [+ s7 A8 ?. SMOV P3,#11110111B
LCALL DELAY
' U8 G% {, A  R0 T2 M  I! NMOV P3,#11101111B
LCALL DELAY
MOV P3,#11111111B
FLOP2:MOV P0,#00H
  }" @0 I$ r  `) P7 \! cMOV P2,#00H
3 D! o9 ]8 H$ Q/ [, `7 kMOV P3,#00H
* L6 I% B# ?9 yLCALL DELAY
MOV P0,#0FFH
. K* U" O0 i6 Q% k: Y/ KMOV P2,#0FFH
" e7 l& ?7 x# n) uMOV P3,#0FFH
LCALL DELAY
, U5 q3 w6 R! Z& f! v4 xMOV P0,#00H
MOV P2,#00H
MOV P3,#00H
& S9 H7 Z/ K; B) }) MLCALL DELAY
3 v: S& d6 }9 F  JMOV P0,#0FFH
MOV P2,#0FFH
MOV P3,#0FFH
LCALL DELAY
FLOP1:MOV P0,#00H
5 v1 Y( t3 ~8 L4 ?4 \5 X4 f! fLCALL DELAY
9 W, Q: p( |' o* |0 [LCALL DELAY
4 _4 _1 z, R, n3 r9 e' @8 `0 E- HMOV P2,#00H
3 Z' ?$ b& U" G* u2 f4 HLCALL DELAY
1 L% {. @4 F/ ^8 @6 j2 T4 lLCALL DELAY
MOV P3,#00H
LCALL DELAY
0 ^, `4 A$ V! G, \8 q  I7 O8 TLCALL DELAY
MOV P0,#0FFH
' ?7 u# ^6 N; X& l" a& dLCALL DELAY
LCALL DELAY
( z' N1 v6 x( H4 f. B3 qMOV P2,#0FFH
LCALL DELAY
LCALL DELAY
MOV P3,#0FFH
LCALL DELAY
LCALL DELAY
FLOP3:MOV P0,#11111110B
LCALL DELAY
MOV P0,#11111100B
LCALL DELAY
MOV P0,#11111000B
LCALL DELAY
MOV P0,#11110000B
LCALL DELAY
MOV P0,#11100000B
LCALL DELAY
MOV P0,#11000000B
LCALL DELAY
, \, k# s' v1 KMOV P0,#10000000B
8 M' ]$ Z$ l3 g/ X$ Z8 j4 M% fLCALL DELAY
& r: W  _/ l7 U# h- }MOV P0,#00H
LCALL DELAY
  x! [, l) Y- c& S2 T4 t6 Q# [) T$ YMOV P2,#11111110B
LCALL DELAY
5 o  Q' U2 h( J0 ~' {MOV P2,#11111100B
LCALL DELAY
MOV P2,#11111000B
LCALL DELAY
MOV P2,#11110000B
5 z% a4 H% G5 K8 f; n4 q8 E. ?LCALL DELAY
" v- l  n! p& x# |MOV P2,#11100000B
LCALL DELAY
MOV P2,#11000000B
9 Z& b8 {0 |# c. \8 M) zLCALL DELAY
2 y. H+ s3 p) c& {. k; R. VMOV P2,#10000000B
LCALL DELAY
% y, ~4 L. h. u  S' B0 BMOV P2,#00H
& s# _: N" `5 J$ k! m4 WLCALL DELAY
9 Y. I6 `: `% w" r) f  ZMOV P3,#11111110B
. E# P4 Z+ l# q8 hLCALL DELAY
MOV P3,#11111100B
) z1 v' M- g6 y1 x. J* ~4 v1 ELCALL DELAY
MOV P3,#11111000B
$ b$ K2 u# M" T6 F# @! b& }LCALL DELAY
MOV P3,#11110000B
/ o, L# x, Z, [& X4 X+ [/ C: bLCALL DELAY
MOV P3,#11100000B
LCALL DELAY
FLOP4:MOV P0,#00000011B
LCALL DELAY
MOV P0,#00001111B
LCALL DELAY
  V) S5 {# Y: s5 _9 c+ x$ YMOV P0,#00111111B
LCALL DELAY
MOV P0,#11111111B
' b+ ~; k1 S, G+ H2 D8 w/ R7 SLCALL DELAY
MOV P2,#00000011B
LCALL DELAY
MOV P2,#00001111B
LCALL DELAY
0 G3 _' K" R7 Z+ N! X+ tMOV P2,#00111111B
LCALL DELAY
MOV P2,#11111111B
- I; z3 T9 v$ {4 S- m$ i! \8 DLCALL DELAY
7 [: w5 _) y: n( ~/ f8 a) jMOV P3,#00000011B
LCALL DELAY
MOV P3,#00001111B
LCALL DELAY
MOV P3,#00111111B
# _7 e) T6 C  _8 h2 `5 k+ c9 qLCALL DELAY
LCALL DELAY
LJMP FLOP
END

下载：

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

  L: m( d, E, T- ~' B5 z

sunygd

不错，学习一下