paomadengyanshi.asm

51单片机“心形”音乐电子贺卡源码

;移位位实现跑马灯的程序
;已经好使了的

	ORG	0000H
	LJMP	START
	ORG	30H
START:MOV	A,#0FEH		;一个灯亮
LOOP:MOV	P1,A		;P1口输出
	RL	A
	LCALL	DELAY
	LJMP	LOOP		;一直循环移位
DELAY:MOV	R7,#240		;延时程序
D1:	MOV	R6,#240
D2:	DJNZ	R6,D2
	DJNZ	R7,D1
	RET
END