EDA365欢迎您登录！
您需要 登录 才可以下载或查看，没有帐号？注册
x
初级单片机流水灯程序
* k, ]0 e. H0 t( _7 `+ B3 i9 z+ x8 i7 ]
( J" K7 F$ z. m# l$ h
![]() ----- 主程序开始 ----- \/ o/ z- l& A
START: CLR P1.0  1.0输出低电平,使LED1点亮8 \0 @1 z3 }% Q5 f0 d' |
ACALL DELAY ;调用延时子程序
! P& d- ~, n: m0 E. O SETB P1.0 1.0输出高电平,使LED1熄灭
: F' T. ~8 O! q CLR P1.1 1.1输出低电平,使LED2点亮
: m- r; |& o/ m% w% t ACALL DELAY ;调用延时子程序( U' j( F0 f, K+ p$ y% F$ @
SETB P1.1 ;P1.1输出高电平,使LED2熄灭
' B/ o& u( d; k3 V1 L( ` CLR P1.2 ;P1.2输出低电平,使LED3点亮6 ^) X3 S2 }( ~+ V3 f0 x9 x
ACALL DELAY ;调用延时子程序
3 ?6 Z y v/ T$ z1 `0 H# q0 g SETB P1.2 ;P1.2输出高电平,使LED3熄灭
. A8 S* S, y& Y- m+ W L CLR P1.3 ;P1.3输出低电平,使LED4点亮& ?# ?# v8 p4 \% r) m$ U1 H `
ACALL DELAY ;调用延时子程序$ `3 A* q2 s+ B9 G" O2 z2 N
SETB P1.3 ;P1.3输出高电平,使LED4熄灭$ A) J0 Z* `0 f) E _( ?
CLR P1.4 ;P1.4输出低电平,使LED5点亮0 V- t5 m7 Z$ I! Z) W* n# T j A0 T
ACALL DELAY ;调用延时子程序7 u! K) K, t, n8 s
SETB P1.4 ;P1.4输出高电平,使LED5熄灭- |0 M k9 ^; z+ {. |( T# R
CLR P1.5 ;P1.5输出低电平,使LED6点亮5 _6 A; }- ~: F- `
ACALL DELAY ;调用延时子程序
- N+ \' B$ g% e9 g* |% l SETB P1.5 ;P1.5输出高电平,使LED6熄灭
% M7 D& p. p& v" b6 G M ~+ m; j6 Q( G CLR P1.6 ;P1.6输出低电平,使LED7点亮
& f3 d6 M; v3 E4 w& D5 h ACALL DELAY ;调用延时子程序
. z1 S. B7 m9 k+ i a# b( u SETB P1.6 ;P1.6输出高电平,使LED7熄灭
6 V3 }+ X2 I( D1 r# J+ ^0 R CLR P1.7 ;P1.7输出低电平,使LED8点亮6 p5 c3 B* q, K* Q# m! E& A
ACALL DELAY ;调用延时子程序8 _5 W, r: k* a! b5 \ V
SETB P1.7 ;P1.7输出高电平,使LED8熄灭
# I2 Z* Y6 H' a9 |$ i: [ ACALL DELAY ;调用延时子程序) r$ |! I# @6 z
AJMP START ;8个LED流了一遍后返回到标号START处再循环 ;----- 延时子程序 -----
: i9 M& t. V4 b9 G) b; N& K! f. x+ JDELAY: MOV R0,#255 ;延时一段时间* o8 i8 ~& z. z W6 z
D1: MOV R1,#255% n. ], P# y% T& ]" P0 q# w
DJNZ R1,$
' B3 q/ G7 G+ B# ^ DJNZ R0,D1* P6 S5 P6 E: n& [
RET ;子程序返回 END ;程序结束
3 l( R" {2 [5 B1 c" K j& t9 v t" P% l( t7 g7 O
|
/1 
发表于 2019-3-4 06:00
收藏
淘帖
支持！
反对！