流水灯.asm

Proteus simulation (light water) proteus simulation water lights

/*****************************
************欢迎访问**********
****http://2099.5d6d.com/*****
************罗列快乐**********
*****************************/
	ORG	0000H
	LJMP	MAIN
	ORG	0030H
;循环主程序
MAIN:	MOV	SP,#5FH;设置堆栈
	MOV	A,#0FEH;把立即数FEH送入寄存器A
LOOP:	MOV	P0,A;把寄存器A内值送入P1口
	RL	A;将寄存器A内值循环左移
	LCALL	DELAY;调用延时子程序
	LJMP	LOOP
;延时子程序,延时120毫秒
DELAY:	MOV	R5,#100
D1:	MOV	R6,#100
D2:	MOV	R7,#6
D3:	DJNZ	R7,D3
	DJNZ	R6,D2
	DJNZ	R5,D1
	NOP
	NOP
	NOP
	RET
	END