单片机控制流水灯程序 汇编语言

自己写的流水灯程序,汇编语言,

;这个小程序比较简单易懂,通过并行口置位清零来输出高平电平来控制LED

ORG 0000H
STAR:CLR P1.0 ;P1.0口输出低电平(共阴级LED使用,共阴级LED可以使用"SETB P1.0"命令)灯亮
LCALL TIME ;调用延时子程序
SETB P1.0 ;P1.0口输出高电平(共阴级LED使用,共阴级LED可以使用"CLR P1.0"命令)灯灭
CLR P1.1
LCALL TIME
SETB P1.1
CLR P1.2
LCALL TIME
SETB P1.2
CLR P1.3
LCALL TIME
SETB P1.3
CLR P1.4
LCALL TIME
SETB P1.4
CLR P1.5
LCALL TIME
SETB P1.5
CLR P1.6
LCALL TIME
SETB P1.6
CLR P1.7
LCALL TIME
SETB P1.7
SJMP STAR ;返回主程序执行循环
TIME:MOV R0,#255 ;延时子程序
D1:MOV R1,#255
DJNZ R1,$
DJNZ R0,D1
RET
END


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

;第二个小程序用到先置数11111110,然后循环右移(左移)来实现流水灯

ORG 0000H
AJMP MAIN
ORG 0030H

MAIN: MOV A,#0FEH ;送数据初值
MOV P1,A ;数据送P1口点亮发光二极管
ACALL TIME ;延时
MOV R3,#07H ;设置左移7次
LOOP: RL A ;左移一位
MOV P1,A ;数据送P1口点亮发光二极管
ACALL DELAY ;延时
DJNZ R3,LOOP
;R3是否为0，不为0转LOOP继续执行
AJMP MAIN ;返回主程循环执

TIME:MOV R0,#255 ;延时子程序
D1:MOV R1,#255
DJNZ R1,$
DJNZ R0,D1
RET
END